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 Nov 22, 2024@17:24:22 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
