YSDXUT01.m

YSDXUT01 ;DALISC/LJA -Diagnosis Options Clean-up Utility ; [ 04/04/94  12:06 PM ]

 ;;5.01;MENTAL HEALTH;;Dec 30, 1994

 ;

KILLALL ;  Kill all local and global variables created by Diagnosis related 

 ;  options.

 K %,%DT,%ZIS

 K A,A1,A2,A3,A4,A5,A6,A7,A7UCT,A7UOPT,A8,A9,B,C,C2,CHOICE,CK,CK1,CT

 K D,D2,DA,DFN,DIC,DIE,DIFQ,DIK,DIR,DIRUT,DIWF,DIWL,DIWR,DLAYGO

 K DR,DTOUT,DUOUT,DX,DX1,DX2,DX3,F1,F2,F3

 K G,G1,G10,G11,G2,G3,G4,G5,G6,G7,G8,G9

 K I,I0,IEN,IORVOFF,IORVON,J,J1,J2,J3,J4,J5,J50,J6,J7,J8,K,K1,K2,K3,K4

 K K5,K6,L,L10,L11,L2,L3,L4,L5,L6,L60,L7,L9

 K M,M1,M2,M3,M4,M5,N,N1,N2,N3,N4,P1,P2,P3,P4,P5,P50,POP,PROFILE,Q,RDT

 K S1,S2,ST,ST1,STDT,SUBSET,T,T1,TOTSET,TXT

 K V,V1,V2,V3,V4,V5,V50,VADM,W,W1,W2,W3,W4,W5,W6,X,X1,X2,X6,X7,XRT0,XRTL

 K XQH,XQY0,Y,Y1,Y2,YSADDT,YSAGE,YSALZ,YSAUTH,YSAX,YSAX4,YSAY,YSCD

 K YSCENN,YSCON,YSCOND,YSD3FLG,YSDA,YSDFN,YSDIFLG

 K YSDIR0,YSDIRT,YSDOB,YSDR,YSDT,YSDTM,YSDTY

 K YSDUPDA,YSDUZ,YSDXD,YSDXDA,YSDXDA1,YSDXDT,YSDXI,YSDXLS,YSDXLSD,YSDXLSN

 K YSDXLX,YSDXN,YSDXNN,YSDXS,YSDXST,YSDXSTAT

 K YSF1,YSFHDR,YSFTR,YSGAF,YSI,YSLC,YSLFT,YSML,YSMOD,YSMODI

 K YSNM,YSNO,YSNOFORM,YSOK,YSOLD,YSPDX,YSPE,YSPEC,YSPLDX,YSPLIC

 K YSPP,YSPPF,YSPS,YSQDIR0,YSQDIRT,YSQNCH,YSQNO,YSQT,YSQXIEN,YSQXRS

 K YSSL,YSSSN,YST,YSTATDT,YSTEST,YSTM,YSTOP1,YSTOP2

 K YSTOUT,YSTY,YSUOUT,YSW,YSWN,YSY

 K ZTDESC,ZTREQ,ZTRTN,ZTSAVE

 QUIT

 ;

EOR ;YSDXUT01 - Diagnosis Options Clean-up Utility ; 3/24/94 16:12

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YSDXUT01   1437     printed  Apr 09, 2024@21:18:25                                                                                                                                                                                                    Page 2

YSDXUT01  ;DALISC/LJA -Diagnosis Options Clean-up Utility ; [ 04/04/94  12:06 PM ]

 +1       ;;5.01;MENTAL HEALTH;;Dec 30, 1994

 +2       ;

KILLALL   ;  Kill all local and global variables created by Diagnosis related 

 +1       ;  options.

 +2        KILL %,%DT,%ZIS

 +3        KILL A,A1,A2,A3,A4,A5,A6,A7,A7UCT,A7UOPT,A8,A9,B,C,C2,CHOICE,CK,CK1,CT

 +4        KILL D,D2,DA,DFN,DIC,DIE,DIFQ,DIK,DIR,DIRUT,DIWF,DIWL,DIWR,DLAYGO

 +5        KILL DR,DTOUT,DUOUT,DX,DX1,DX2,DX3,F1,F2,F3

 +6        KILL G,G1,G10,G11,G2,G3,G4,G5,G6,G7,G8,G9

 +7        KILL I,I0,IEN,IORVOFF,IORVON,J,J1,J2,J3,J4,J5,J50,J6,J7,J8,K,K1,K2,K3,K4

 +8        KILL K5,K6,L,L10,L11,L2,L3,L4,L5,L6,L60,L7,L9

 +9        KILL M,M1,M2,M3,M4,M5,N,N1,N2,N3,N4,P1,P2,P3,P4,P5,P50,POP,PROFILE,Q,RDT

 +10       KILL S1,S2,ST,ST1,STDT,SUBSET,T,T1,TOTSET,TXT

 +11       KILL V,V1,V2,V3,V4,V5,V50,VADM,W,W1,W2,W3,W4,W5,W6,X,X1,X2,X6,X7,XRT0,XRTL

 +12       KILL XQH,XQY0,Y,Y1,Y2,YSADDT,YSAGE,YSALZ,YSAUTH,YSAX,YSAX4,YSAY,YSCD

 +13       KILL YSCENN,YSCON,YSCOND,YSD3FLG,YSDA,YSDFN,YSDIFLG

 +14       KILL YSDIR0,YSDIRT,YSDOB,YSDR,YSDT,YSDTM,YSDTY

 +15       KILL YSDUPDA,YSDUZ,YSDXD,YSDXDA,YSDXDA1,YSDXDT,YSDXI,YSDXLS,YSDXLSD,YSDXLSN

 +16       KILL YSDXLX,YSDXN,YSDXNN,YSDXS,YSDXST,YSDXSTAT

 +17       KILL YSF1,YSFHDR,YSFTR,YSGAF,YSI,YSLC,YSLFT,YSML,YSMOD,YSMODI

 +18       KILL YSNM,YSNO,YSNOFORM,YSOK,YSOLD,YSPDX,YSPE,YSPEC,YSPLDX,YSPLIC

 +19       KILL YSPP,YSPPF,YSPS,YSQDIR0,YSQDIRT,YSQNCH,YSQNO,YSQT,YSQXIEN,YSQXRS

 +20       KILL YSSL,YSSSN,YST,YSTATDT,YSTEST,YSTM,YSTOP1,YSTOP2

 +21       KILL YSTOUT,YSTY,YSUOUT,YSW,YSWN,YSY

 +22       KILL ZTDESC,ZTREQ,ZTRTN,ZTSAVE

 +23       QUIT 

 +24      ;

EOR       ;YSDXUT01 - Diagnosis Options Clean-up Utility ; 3/24/94 16:12