| 1 | YSDXR000 ;DALISC/LJA - Continuation of YSDXR000 code... ;8/17/94 08:22
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;;
|
|---|
| 4 | ;
|
|---|
| 5 | DAT ;
|
|---|
| 6 | ;D RECORD^YSDX0001("DAT^YSDXR00") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 7 | W " ",$E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3)
|
|---|
| 8 | QUIT
|
|---|
| 9 | ;
|
|---|
| 10 | ENS ; Called by routine YSDXR1, YSPDR1
|
|---|
| 11 | ; DSM-III Qualifier Date multiple
|
|---|
| 12 | ;D RECORD^YSDX0001("ENS^YSDXR") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 13 | S Y=";"_$P(^DD(90.05,1,0),U,3) F I=1:1:10 IF $P(Y,";",I)[(Z_":") QUIT
|
|---|
| 14 | W:I<10 " ",$P($P(Y,";",I),":",2),":"
|
|---|
| 15 | QUIT
|
|---|
| 16 | ;
|
|---|
| 17 | MULT ;
|
|---|
| 18 | ;D RECORD^YSDX0001("MULT^YSDXR") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 19 | I $Y+YSSL+3>IOSL D CK QUIT:YSLFT ;->
|
|---|
| 20 | I $D(^MR(YSDFN,"DXM")) D
|
|---|
| 21 | . S G=^MR(YSDFN,"DXM"),M4=$P(G,U),M5=$P(G,U,4)
|
|---|
| 22 | . W !!!?5,"AXIS 4: PSYCHOSOCIAL STRESSORS: ",M4," -"
|
|---|
| 23 | . W $S(M4=1:"NO",M4=2:"MINIMAL",M4=3:"MILD",M4=4:"MODERATE",M4=5:"SEVERE",M4=6:"EXTREME",M4=7:"CATASTROPHIC",1:"UNSPECIFIED")
|
|---|
| 24 | . W !?5,"AXIS 5: HIGHEST LEVEL OF FUNCTIONING IN PAST YEAR: ",M5," -"
|
|---|
| 25 | . W $S(M5=1:"SUPERIOR",M5=2:"VERY GOOD",M5=3:"GOOD",M5=4:"FAIR",M5=5:"POOR",M5=6:"VERY POOR",M5=7:"GROSSLY IMPAIRED",1:"UNSPECIFIED"),!
|
|---|
| 26 | QUIT
|
|---|
| 27 | ;
|
|---|
| 28 | CK ; Called by routine YSDXR1
|
|---|
| 29 | ;D RECORD^YSDX0001("CK^YSDXR") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 30 | I $D(YSNOFORM) D:'YST WAIT^YSUTL Q:YSLFT W:YST @IOF QUIT ;->
|
|---|
| 31 | S:YSSL YSCON=1
|
|---|
| 32 | D WAIT^YSUTL:'YST,ENFT^YSFORM:YST
|
|---|
| 33 | QUIT:YSLFT ;->
|
|---|
| 34 | D:YST ENHD^YSFORM
|
|---|
| 35 | QUIT
|
|---|
| 36 | ;
|
|---|
| 37 | EOR ;YSDXR000 - Continuation of YSDXR000 code... ;8/17/94
|
|---|
