source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSDXR000.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1YSDXR000 ;DALISC/LJA - Continuation of YSDXR000 code... ;8/17/94 08:22
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;;
4 ;
5DAT ;
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 ;
10ENS ; 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 ;
17MULT ;
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 ;
28CK ; 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 ;
37EOR ;YSDXR000 - Continuation of YSDXR000 code... ;8/17/94
Note: See TracBrowser for help on using the repository browser.