source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSDXUT01.m@ 1397

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1YSDXUT01 ;DALISC/LJA -Diagnosis Options Clean-up Utility ; [ 04/04/94 12:06 PM ]
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4KILLALL ; Kill all local and global variables created by Diagnosis related
5 ; options.
6 K %,%DT,%ZIS
7 K A,A1,A2,A3,A4,A5,A6,A7,A7UCT,A7UOPT,A8,A9,B,C,C2,CHOICE,CK,CK1,CT
8 K D,D2,DA,DFN,DIC,DIE,DIFQ,DIK,DIR,DIRUT,DIWF,DIWL,DIWR,DLAYGO
9 K DR,DTOUT,DUOUT,DX,DX1,DX2,DX3,F1,F2,F3
10 K G,G1,G10,G11,G2,G3,G4,G5,G6,G7,G8,G9
11 K I,I0,IEN,IORVOFF,IORVON,J,J1,J2,J3,J4,J5,J50,J6,J7,J8,K,K1,K2,K3,K4
12 K K5,K6,L,L10,L11,L2,L3,L4,L5,L6,L60,L7,L9
13 K M,M1,M2,M3,M4,M5,N,N1,N2,N3,N4,P1,P2,P3,P4,P5,P50,POP,PROFILE,Q,RDT
14 K S1,S2,ST,ST1,STDT,SUBSET,T,T1,TOTSET,TXT
15 K V,V1,V2,V3,V4,V5,V50,VADM,W,W1,W2,W3,W4,W5,W6,X,X1,X2,X6,X7,XRT0,XRTL
16 K XQH,XQY0,Y,Y1,Y2,YSADDT,YSAGE,YSALZ,YSAUTH,YSAX,YSAX4,YSAY,YSCD
17 K YSCENN,YSCON,YSCOND,YSD3FLG,YSDA,YSDFN,YSDIFLG
18 K YSDIR0,YSDIRT,YSDOB,YSDR,YSDT,YSDTM,YSDTY
19 K YSDUPDA,YSDUZ,YSDXD,YSDXDA,YSDXDA1,YSDXDT,YSDXI,YSDXLS,YSDXLSD,YSDXLSN
20 K YSDXLX,YSDXN,YSDXNN,YSDXS,YSDXST,YSDXSTAT
21 K YSF1,YSFHDR,YSFTR,YSGAF,YSI,YSLC,YSLFT,YSML,YSMOD,YSMODI
22 K YSNM,YSNO,YSNOFORM,YSOK,YSOLD,YSPDX,YSPE,YSPEC,YSPLDX,YSPLIC
23 K YSPP,YSPPF,YSPS,YSQDIR0,YSQDIRT,YSQNCH,YSQNO,YSQT,YSQXIEN,YSQXRS
24 K YSSL,YSSSN,YST,YSTATDT,YSTEST,YSTM,YSTOP1,YSTOP2
25 K YSTOUT,YSTY,YSUOUT,YSW,YSWN,YSY
26 K ZTDESC,ZTREQ,ZTRTN,ZTSAVE
27 QUIT
28 ;
29EOR ;YSDXUT01 - Diagnosis Options Clean-up Utility ; 3/24/94 16:12
Note: See TracBrowser for help on using the repository browser.