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