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
Q
;
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 Dec 13, 2024@01:45:28 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
