ACHSKILL.m

ACHSKILL ; IHS/ITSC/PMF - 1/2 KILL ALL VARIABLES USED IN CHS PACKAGE ;  [ 10/16/2001   8:16 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 ;

 K %ZIS

 K A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,X,Y,W,Z,XD1,XD2

 K DO,D1,D2,DA,DB,DD,DF,DH,DI,D0,DN,DQ,DR,DS,DSC,DU,DV,DX,DXS,DY,DZ

 K AFSCCTR,AFSDNAME,AFSDTJUL,AFSDTYPE,AFSEXFN,AFSHDTNM,AFSJFLG,AFSPKGNM

 K AFSRTCD,AFSXPFN,AFSY

 K AICDX,AICDE,AICDI,AICDJ,AICDK,AICDL,AICDN,AICDTOT,APCDAFLG,APCDALVR

 K DTOUT,DUOUT,DIR,DIROUT,DIRUT,DLAYGO

 K DIC,DICR,DICRS,DIE,DIIX,DIK,DIXDA,DIKDP,DIKF,DIKGP,DIKIL,DIKILL,DIKJ

 K DIKKS,DIKLM,DIKM1,DIKNM,DIKOZ,DIKSAT,DIKST,DIKUM,DIKUP,DIKY,DIKYR

 K DIKZ,DIKZ1,DIKZA,DIKZK,DIKZR,DIKZZ,DINUM,DIOT,DIP,DISET,DITTO,DIWF

 K DIWL,DIWR,DIX,DIXX,DIY

 K ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTUCI

 ;

 D EN^XBVK("ACHS")

 Q

 ;

ACHSKILL  ; IHS/ITSC/PMF - 1/2 KILL ALL VARIABLES USED IN CHS PACKAGE ;  [ 10/16/2001   8:16 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 +2       ;

 +3        KILL %ZIS

 +4        KILL A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,X,Y,W,Z,XD1,XD2

 +5        KILL DO,D1,D2,DA,DB,DD,DF,DH,DI,D0,DN,DQ,DR,DS,DSC,DU,DV,DX,DXS,DY,DZ

 +6        KILL AFSCCTR,AFSDNAME,AFSDTJUL,AFSDTYPE,AFSEXFN,AFSHDTNM,AFSJFLG,AFSPKGNM

 +7        KILL AFSRTCD,AFSXPFN,AFSY

 +8        KILL AICDX,AICDE,AICDI,AICDJ,AICDK,AICDL,AICDN,AICDTOT,APCDAFLG,APCDALVR

 +9        KILL DTOUT,DUOUT,DIR,DIROUT,DIRUT,DLAYGO

 +10       KILL DIC,DICR,DICRS,DIE,DIIX,DIK,DIXDA,DIKDP,DIKF,DIKGP,DIKIL,DIKILL,DIKJ

 +11       KILL DIKKS,DIKLM,DIKM1,DIKNM,DIKOZ,DIKSAT,DIKST,DIKUM,DIKUP,DIKY,DIKYR

 +12       KILL DIKZ,DIKZ1,DIKZA,DIKZK,DIKZR,DIKZZ,DINUM,DIOT,DIP,DISET,DITTO,DIWF

 +13       KILL DIWL,DIWR,DIX,DIXX,DIY

 +14       KILL ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTUCI

 +15      ;

 +16       DO EN^XBVK("ACHS")

 +17       QUIT 

 +18      ;