Dim appendflag1, appendflag2, appendflag3 As Integer

Sub Form_Load ()
mdiform.Move 0, 0, screen.width, screen.height
LIST3(0).AddItem "AGE"
LIST3(0).AddItem "HEIGHT"
LIST3(0).AddItem "WEIGHT"
LIST3(0).AddItem "TEMP"
LIST3(0).AddItem "PULSE"
LIST3(0).AddItem "RESPIRATIONS"
LIST3(0).AddItem "BLOOD PRESSURE"
LIST3(0).AddItem "GENERAL HEALTH:"
LIST3(0).AddItem "USE OF TOBACCO"
LIST3(0).AddItem "USE OF ALCOHOL"
LIST3(0).AddItem "USE OF OTHER DRUGS"
LIST3(0).AddItem "ORAL MUCOSA:"
LIST3(0).AddItem "HEALTHY"
LIST3(0).AddItem "MOIST"
LIST3(0).AddItem "SKIN:"
LIST3(0).AddItem "LESIONS"
LIST3(0).AddItem "NOURISHMENT:"
LIST3(0).AddItem "WELL-NOURISHED"
LIST3(0).AddItem "OBESE"
LIST3(0).AddItem "EMACIATED"
LIST3(0).AddItem "SKIN:"
LIST3(0).AddItem "SKIN NORMAL"
LIST3(0).AddItem "HEALING PROBLEMS"
LIST3(0).AddItem "CHANGES IN PIGMENTATION"
LIST3(0).AddItem "TEETH:"
LIST3(0).AddItem "NO PROBLEM CONDITION"
LIST3(0).AddItem "DENTURES"
LIST3(0).AddItem "CARIES"
LIST3(0).AddItem "BROKEN TEETH"
LIST3(0).AddItem "MISSING TEETH"
'**********************************************
LIST2(0).AddItem "BREATH SOUNDS"
LIST2(0).AddItem "LIP COLOR"
LIST2(0).AddItem "USE OF ACCESSORY MUSCLES"
LIST2(0).AddItem "COUGH:"
LIST2(0).AddItem "NON-PRODUCTIVE"
LIST2(0).AddItem "PRODUCTIVE SPUTUM COLOR"
LIST2(0).AddItem "APICAL RATE"
LIST2(0).AddItem "RHYTHM:"
LIST2(0).AddItem "REGULAR"
LIST2(0).AddItem "IRREGULAR"
LIST2(0).AddItem "ABNORMAL HEART SOUNDS NOTED"
LIST2(0).AddItem "NECK VEIN DISTENSION AT 45 DEGREES:"
LIST2(0).AddItem "PRESENT"
LIST2(0).AddItem "ABSENT"
LIST2(0).AddItem "EDEMA       LOCATION"
LIST2(0).AddItem "RIGHT DORSALIS PEDAL PULSE:"
LIST2(0).AddItem "STRONG"
LIST2(0).AddItem "WEAK"
LIST2(0).AddItem "ABSENT"
LIST2(0).AddItem "LEFT DORSAL PEDAL PULSE"
LIST2(0).AddItem "STRONG"
LIST2(0).AddItem "WEAK"
LIST2(0).AddItem "ABSENT"
LIST2(0).AddItem "CALF TENDERNESS"
LIST2(0).AddItem "NO"
LIST2(0).AddItem "YES"
LIST2(0).AddItem "EXTREMITIES   COLOR"
LIST2(0).AddItem "              TEMP"
LIST2(0).AddItem "BREAST SOUNDS"
'**********************************************************
LIST1(0).AddItem "HEARING"
LIST1(0).AddItem "NORMAL LEFT"
LIST1(0).AddItem "NORMAL RIGHT"
LIST1(0).AddItem "IMPAIRED LEFT"
LIST1(0).AddItem "IMPAIRED RIGHT"
LIST1(0).AddItem "USES AID"
LIST1(0).AddItem "VISION"
LIST1(0).AddItem "NORMAL"
LIST1(0).AddItem "IMPAIRED"
LIST1(0).AddItem "GLASSES"
LIST1(0).AddItem "PROSTHESES"
LIST1(0).AddItem "FARSIGHTED"
LIST1(0).AddItem "NEARSIGHTED"
LIST1(0).AddItem "OTHER PROBLEMS"
LIST1(0).AddItem "COMMUNICATION:"
LIST1(0).AddItem "LANGUAGE SPOKEN:"
LIST1(0).AddItem "UNDERSTANDS ENGLISH:"
LIST1(0).AddItem "YES"
LIST1(0).AddItem "NO"
LIST1(0).AddItem "ABLE TO:"
LIST1(0).AddItem "READ"
LIST1(0).AddItem "WRITE"
LIST1(0).AddItem "LIP READ"
LIST1(0).AddItem "COGNITION:"
LIST1(0).AddItem "NO PROBLEMS"
LIST1(0).AddItem "RECENT MEMORY CHANGE"
LIST1(0).AddItem "DIFFICULTY LEARNING"
LIST1(0).AddItem "DISCOMFORT / PAIN"
LIST1(0).AddItem "NO"
LIST1(0).AddItem "YES  "
LIST1(0).AddItem " DESCRIBE (LOCATION-INTENSITY-DURATION)  "
LIST1(0).AddItem "EDUCATION - NEEDS REASON FOR ADMISSION"
'***************************************************************
LIST1(0).AddItem "HEARING"
LIST1(0).AddItem "HEARING"
LIST1(0).AddItem "HEARING"

mdichild1(3).Move 0, 0
mdichild1(2).Move 0, 360
mdichild1(1).Move 0, 720
mdichild1(3).active = -1
mdichild1(2).active = -1
mdichild1(1).active = -1
hedit1(1).Move bedit1(1).left, bedit1(1).top, bedit1(1).width, bedit1(1).height
hedit1(2).Move bedit1(2).left, bedit1(2).top, bedit1(2).width, bedit1(2).height
hedit1(3).Move bedit1(3).left, bedit1(3).top, bedit1(3).width, bedit1(3).height

End Sub

Sub DISPOSEROUTE_Click ()
If smartform(6) Then

menumode mdiform
Else
formcheck "Multiple Document"
End If

End Sub

Sub BACK_Click ()
If smartform(6) Then
        assess3.Show
        mdiform.Hide

Else
formcheck "Multiple Document"
End If

End Sub

Sub FORWARD_Click ()
If smartform(6) Then

summary.Show
mdiform.Hide
Else
formcheck "Multiple Document"
End If

End Sub

Sub ARRANGE_Click ()
mdichild1(1).ARRANGE = 1
End Sub

Sub List2_Click (index As Integer)
If appendflag2 Then
            Select Case index
            Case 0
            LIST2(1).AddItem LIST2(0).list(LIST2(0).listindex) + "  " + bedit1(2).text
            Case 1
            LIST2(1).RemoveItem LIST2(1).listindex

            End Select
Else
            Select Case index
            Case 0
            LIST2(1).AddItem LIST2(0).list(LIST2(0).listindex)
            Case 1
            LIST2(1).RemoveItem LIST2(1).listindex
            End Select
End If
End Sub

Sub List3_Click (index As Integer)
If appendflag3 Then
        Select Case index
        Case 0
        LIST3(1).AddItem LIST3(0).list(LIST3(0).listindex) + "  " + bedit1(3).text
        Case 1
        LIST3(1).RemoveItem LIST3(1).listindex

        End Select
Else
        Select Case index
        Case 0
        LIST3(1).AddItem LIST3(0).list(LIST3(0).listindex)
        Case 1
        LIST3(1).RemoveItem LIST3(1).listindex
        End Select
End If
End Sub

Sub List1_Click (index As Integer)
If appendflag1 Then
        Select Case index
        Case 0
        LIST1(1).AddItem LIST1(0).list(LIST1(0).listindex) + "  " + bedit1(1).text
        Case 1
        LIST1(1).RemoveItem LIST1(1).listindex
        End Select
Else

        Select Case index
        Case 0
        LIST1(1).AddItem LIST1(0).list(LIST1(0).listindex)
        Case 1
        LIST1(1).RemoveItem LIST1(1).listindex
        End Select
End If
    End Sub

Sub AniButton3_Click (index As Integer)

Select Case anibutton3(0).value
    Case 2
        editswap bedit1(1), hedit1(1), 1
        hedit1(1).visible = -1
        bedit1(1).visible = 0
         appendflag1 = -1

    Case 1
        editswap bedit1(1), hedit1(1), 2
        hedit1(1).visible = 0
        bedit1(1).visible = -1
         
         appendflag1 = 0
End Select
Select Case anibutton3(1).value
    Case 2
        editswap bedit1(2), hedit1(2), 1
        hedit1(2).visible = -1
        bedit1(2).visible = 0
         
         appendflag2 = -1

    Case 1
        editswap bedit1(2), hedit1(2), 2
        hedit1(2).visible = 0
        bedit1(2).visible = -1
         
         appendflag2 = 0
End Select

Select Case anibutton3(2).value
    Case 2
            editswap bedit1(3), hedit1(3), 1
            hedit1(3).visible = -1
            bedit1(3).visible = 0
         
         appendflag3 = -1

    Case 1
            editswap bedit1(3), hedit1(3), 2
            hedit1(3).visible = 0
            bedit1(3).visible = -1
         
         appendflag3 = 0
End Select


End Sub

