- 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 Feb 18, 2025@23:11:53 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