Routine: DVBCPWC4

DVBCPWC4 ;ALB ISC/THM-POW PROTOCOL EXAM, PART 3 ; 5/6/91  9:39 AM

 ;;2.7;AMIE;;Apr 10, 1995

 G EN

L I $Y>55 D HD2^DVBCPWCK

EN S CNT=0 F I="cranial nerves","gait disturbance","biceps reflex","triceps reflex","patellar reflex","Achilles reflex","plantar response","peripheral nerves","sensory change" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L

 F I="seizures","loss of consciousness","paralysis","tremor","headaches" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L

 W ?4,"m. Psychiatric:",!!

 S CNT=0 F I="orientation","memory change","mood","trouble with decisions","sleep disturbance","crying spells","thoughts of suicide","difficulty with work","fatigue" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L

 F I="loss of appetite","trouble with sex life","social withdrawal","hallucinations","improbable beliefs","anxiety","depression" S CNT=CNT+1 W ?($S(CNT<10:7,1:6)),CNT,". ",I,!! D L

 W !!!!!,"C. Summary of findings:",!!!!!!!!!!,"D. Diagnoses:",!!!!!!!!!!,"E. Recommendations:",!!!!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!

 G ^DVBCPWC2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCPWC4   1136     printed  Apr 09, 2024@20:55:49                                                                                                                                                                                                    Page 2

DVBCPWC4  ;ALB ISC/THM-POW PROTOCOL EXAM, PART 3 ; 5/6/91  9:39 AM

 +1       ;;2.7;AMIE;;Apr 10, 1995

 +2        GOTO EN

 +3       ;

L          IF $Y>55

               DO HD2^DVBCPWCK

 +1        QUIT

 +2       ;

EN         SET CNT=0

           FOR I="cranial nerves","gait disturbance","biceps reflex","triceps reflex","patellar reflex","Achilles reflex","plantar response","peripheral nerves","sensory change"

               SET CNT=CNT+1

               WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!

               DO L

 +1        FOR I="seizures","loss of consciousness","paralysis","tremor","headaches"

               SET CNT=CNT+1

               WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!

               DO L

 +2        WRITE ?4,"m. Psychiatric:",!!

 +3        SET CNT=0

           FOR I="orientation","memory change","mood","trouble with decisions","sleep disturbance","crying spells","thoughts of suicide","difficulty with work","fatigue"

               SET CNT=CNT+1

               WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!

               DO L

 +4        FOR I="loss of appetite","trouble with sex life","social withdrawal","hallucinations","improbable beliefs","anxiety","depression"

               SET CNT=CNT+1

               WRITE ?($SELECT(CNT<10:7,1:6)),CNT,". ",I,!!

               DO L

 +5        WRITE !!!!!,"C. Summary of findings:",!!!!!!!!!!,"D. Diagnoses:",!!!!!!!!!!,"E. Recommendations:",!!!!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!

 +6        GOTO ^DVBCPWC2

DVBCPWC4.m