- YSDX3U00 ;DALISC/LJA - Continuation of YSDX3U00 code... ;8/17/94 08:22
- ;;5.01;MENTAL HEALTH;;Dec 30, 1994
- ;;
- ;
- END ; called by routine YSDX3
- ;D RECORD^YSDX0001("END^YSDX3U00") ;Used for testing. Inactivated in YSDX0001...
- D KVAR^VADPT
- K A,A1,A2,C1,C2,F1,F2,F3,G,G1,G2,G3,G4,G5,G6,G7,G8,G9,G10,G11
- K I,J,J1,J2,J3,J4,J5,J6,J7,J8,K1,K2,K3,K4,K5,K6
- K L1,L2,L3,L4,L5,L6,L7,L8,L9,M2,M3,N,N1,N2,N3,N4
- K P1,P2,P3,P4,P5,S1,S2,S3,V,W1,W2,W3,W4,W5,W6
- K X,X1,X2,X3,X4,X5,X6,Y,DFN,DIWL,DIWR,DIWF
- K YSDFN,YSDTY,YSDXN,YSDXNN,YSDXST,YSDXDT,YSAX,YSDXLS
- K YSDXDA,YSDA,YSNM,YSWN,YSW,YSDR,YSDXD,YSDXDA1,YSDXND,YSMOD
- K YSAGE,YSDOB,YSNO,YSSEX,YSSSN,YSALZ,YSDXLSD,YSDXLX,YSDXLSN
- K YSGAF,YSCON,YSMODI,YSDXSTAT,YSTATDT,YSPLIC,YSPLDX
- K CK,CK1,YSDUPDA,YSF1,YSSTOP,L10,YSDUZ,YSQT,YSTOUT,YSUOUT
- QUIT
- ;
- EOR ;YSDX3U00 - Continuation of YSDX3U00 code... ;8/17/94
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSDX3U00 869 printed Feb 18, 2025@23:40:38 Page 2
- YSDX3U00 ;DALISC/LJA - Continuation of YSDX3U00 code... ;8/17/94 08:22
- +1 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
- +2 ;;
- +3 ;
- END ; called by routine YSDX3
- +1 ;D RECORD^YSDX0001("END^YSDX3U00") ;Used for testing. Inactivated in YSDX0001...
- +2 DO KVAR^VADPT
- +3 KILL A,A1,A2,C1,C2,F1,F2,F3,G,G1,G2,G3,G4,G5,G6,G7,G8,G9,G10,G11
- +4 KILL I,J,J1,J2,J3,J4,J5,J6,J7,J8,K1,K2,K3,K4,K5,K6
- +5 KILL L1,L2,L3,L4,L5,L6,L7,L8,L9,M2,M3,N,N1,N2,N3,N4
- +6 KILL P1,P2,P3,P4,P5,S1,S2,S3,V,W1,W2,W3,W4,W5,W6
- +7 KILL X,X1,X2,X3,X4,X5,X6,Y,DFN,DIWL,DIWR,DIWF
- +8 KILL YSDFN,YSDTY,YSDXN,YSDXNN,YSDXST,YSDXDT,YSAX,YSDXLS
- +9 KILL YSDXDA,YSDA,YSNM,YSWN,YSW,YSDR,YSDXD,YSDXDA1,YSDXND,YSMOD
- +10 KILL YSAGE,YSDOB,YSNO,YSSEX,YSSSN,YSALZ,YSDXLSD,YSDXLX,YSDXLSN
- +11 KILL YSGAF,YSCON,YSMODI,YSDXSTAT,YSTATDT,YSPLIC,YSPLDX
- +12 KILL CK,CK1,YSDUPDA,YSF1,YSSTOP,L10,YSDUZ,YSQT,YSTOUT,YSUOUT
- +13 QUIT
- +14 ;
- EOR ;YSDX3U00 - Continuation of YSDX3U00 code... ;8/17/94