MCDIEDIE.m

MCDIEDIE ;HIRMFO/DAD-KILL ALL VARIABLES ;7/29/96  12:54

 ;;2.3;Medicine;;09/13/1996

 D KVAR^VADPT

 D KILL^XM

 K %,%DT,%H,%I,%T,%X,%Y,%ZIS

 K A,AA,AANAM,ABORT,ACT,AGE,AL,ALL,ARBLGNO,ARR,ARRAY,ASTM,ASTME

 K ATYPE,AV,AZ

 K B,B1C,B2C,B3C,B4C,B5C,B6C,B7C,B8C,BACK,BAD,BASE,BB,BBNAM,BDATE

 K BE,BEG,BEGDATE,BINDX,BS,BY

 K C,CAO2,CD,CDATE,CDLCOSB,CDUZ,CFEF2575,CFEV1,CFILE,CFRC,CFVC

 K CHANGE,CHAR,CHECK,CHR,CI95,CK,CLIN,CMVV,CNT,CO,CODE,CODE2,COHB

 K COL,CONT,CORSPEL,COUNT,COUNT2,CPF,CPT,CPTIEN,CR,CREAT,CREATION

 K CROSS,CRV,CT,CTLC,CV,CVC,CVIX,CVO2,CVTL,CVVC

 K D,D0,D1,D2,DA,DALL,DASH,DATA,DATE,DATE1,DATE2,DATESAME,DB

 K DBZZ,DC,DCL,DD,DDER,DDR,DDRZREF,DE,DEVICE,DF,DFAST,DFN,DFNUM

 K DFOUT,DG,DGO,DH,DHD,DHIT,DI,DIADD,DIASKHD,DIC,DICMX,DICR,DICRS

 K DICS,DICSS,DICW,DID,DIDEL,DIE,DIEDT,DIEL,DIEX,DIEZ,DIFLD,DIFQ

 K DIFROM,DIG,DIH,DIJ,DIK,DIL,DINAME,DINUM,DIOBEG,DIOEND,DIP,DIPGM

 K DIPZ,DIQ,DIQUIET,DIR,DIROUR,DIROUT,DIRUT,DIS,DISMN,DISTOP,DISTP

 K DIU,DIV,DIVA,DIVDIC,DIVDO,DIVDR,DIVDS,DIVP,DIVP1,DIVPDIC

 K DIVS,DIVV,DIVY,DIW,DIWF,DIWI,DIWL,DIWR,DIWT,DIWTC,DIWX,DIX,DIXX

 K DIY,DIYS,DIZ,DJ,DJ0,DJ01,DJ1,DJ11,DJ14,DJ16,DJ2,DJ3,DJ4,DJ44

 K DJ5,DJ6,DJ7,DJ8,DJ9,DJA,DJAD,DJAT,DJBD,DJBHOLD,DJBITEM,DJBITEM1

 K DJBLO,DJBNO,DJC,DJCHO,DJCL,DJCP,DJD,DJD0,DJDA,DJDB,DJDD,DJDD1

 K DJDDS,DJDIC,DJDICS,DJDIS,DJDN,DJDNM,DJDP,DJDPL,DJDUZ,DJEOP,DJERR

 K DJF,DJFF,DJFLAG,DJHIN,DJI,DJJ,DJJ0,DJK,DJK1,DJKEY,DJKL,DJKV,DJL

 K DJLG,DJLIN,DJLK,DJLSTN,DJM1,DJM2,DJM3,DJMD0,DJMD1,DJMU,DJMUL,DJN

 K DJNM,DJNN,DJNO,DJNODE,DJNX,DJOP,DJP,DJP1,DJP2,DJP8,DJPEDT,DJQ

 K DJQ1,DJR,DJRJ,DJRNM,DJS,DJSC,DJSM,DJST,DJSV,DJSW1,DJSW2,DJT

 K DJTOGGLE,DJVV,DJW,DJW1,DJW2,DJWR,DJX,DJX1,DJX3,DJXL,DJXT,DJXX

 K DJY,DJZ,DJZ1,DK,DL,DLAYGO,DLB,DLCOSB,DM,DMAX,DN,DNM,DO,DOB

 K DONE,DOTS,DOW,DP,DPDTO,DPP,DPQ,DQ,DQI,DR,DRAFT,DRUG,DRX,DS

 K DSC,DSOU,DSOV,DT1,DTEMP,DTI,DTL,DTOUT,DTT,DU,DUOUT,DV,DW,DW1

 K DWLW,DX,DXS,DY,DZ,DZ1

 K E,EDATE,EDATE1,EDATE2,EE,EES,ENAME,END,ENDAT,ENDATE,ENDDATE

 K ENDVEN,ENT,ENTRY,ER,ER1,ER2,ERORR,ERR,ERRCOUNT,ERRNAM,ERROR

 K ESCAPE,EST,EST1,EST2,EX,EXC,EXDAY,EXIT,EXPRESS

 G ^MCDIE001

MCDIEDIE  ;HIRMFO/DAD-KILL ALL VARIABLES ;7/29/96  12:54

 +1       ;;2.3;Medicine;;09/13/1996

 +2        DO KVAR^VADPT

 +3        DO KILL^XM

 +4        KILL %,%DT,%H,%I,%T,%X,%Y,%ZIS

 +5        KILL A,AA,AANAM,ABORT,ACT,AGE,AL,ALL,ARBLGNO,ARR,ARRAY,ASTM,ASTME

 +6        KILL ATYPE,AV,AZ

 +7        KILL B,B1C,B2C,B3C,B4C,B5C,B6C,B7C,B8C,BACK,BAD,BASE,BB,BBNAM,BDATE

 +8        KILL BE,BEG,BEGDATE,BINDX,BS,BY

 +9        KILL C,CAO2,CD,CDATE,CDLCOSB,CDUZ,CFEF2575,CFEV1,CFILE,CFRC,CFVC

 +10       KILL CHANGE,CHAR,CHECK,CHR,CI95,CK,CLIN,CMVV,CNT,CO,CODE,CODE2,COHB

 +11       KILL COL,CONT,CORSPEL,COUNT,COUNT2,CPF,CPT,CPTIEN,CR,CREAT,CREATION

 +12       KILL CROSS,CRV,CT,CTLC,CV,CVC,CVIX,CVO2,CVTL,CVVC

 +13       KILL D,D0,D1,D2,DA,DALL,DASH,DATA,DATE,DATE1,DATE2,DATESAME,DB

 +14       KILL DBZZ,DC,DCL,DD,DDER,DDR,DDRZREF,DE,DEVICE,DF,DFAST,DFN,DFNUM

 +15       KILL DFOUT,DG,DGO,DH,DHD,DHIT,DI,DIADD,DIASKHD,DIC,DICMX,DICR,DICRS

 +16       KILL DICS,DICSS,DICW,DID,DIDEL,DIE,DIEDT,DIEL,DIEX,DIEZ,DIFLD,DIFQ

 +17       KILL DIFROM,DIG,DIH,DIJ,DIK,DIL,DINAME,DINUM,DIOBEG,DIOEND,DIP,DIPGM

 +18       KILL DIPZ,DIQ,DIQUIET,DIR,DIROUR,DIROUT,DIRUT,DIS,DISMN,DISTOP,DISTP

 +19       KILL DIU,DIV,DIVA,DIVDIC,DIVDO,DIVDR,DIVDS,DIVP,DIVP1,DIVPDIC

 +20       KILL DIVS,DIVV,DIVY,DIW,DIWF,DIWI,DIWL,DIWR,DIWT,DIWTC,DIWX,DIX,DIXX

 +21       KILL DIY,DIYS,DIZ,DJ,DJ0,DJ01,DJ1,DJ11,DJ14,DJ16,DJ2,DJ3,DJ4,DJ44

 +22       KILL DJ5,DJ6,DJ7,DJ8,DJ9,DJA,DJAD,DJAT,DJBD,DJBHOLD,DJBITEM,DJBITEM1

 +23       KILL DJBLO,DJBNO,DJC,DJCHO,DJCL,DJCP,DJD,DJD0,DJDA,DJDB,DJDD,DJDD1

 +24       KILL DJDDS,DJDIC,DJDICS,DJDIS,DJDN,DJDNM,DJDP,DJDPL,DJDUZ,DJEOP,DJERR

 +25       KILL DJF,DJFF,DJFLAG,DJHIN,DJI,DJJ,DJJ0,DJK,DJK1,DJKEY,DJKL,DJKV,DJL

 +26       KILL DJLG,DJLIN,DJLK,DJLSTN,DJM1,DJM2,DJM3,DJMD0,DJMD1,DJMU,DJMUL,DJN

 +27       KILL DJNM,DJNN,DJNO,DJNODE,DJNX,DJOP,DJP,DJP1,DJP2,DJP8,DJPEDT,DJQ

 +28       KILL DJQ1,DJR,DJRJ,DJRNM,DJS,DJSC,DJSM,DJST,DJSV,DJSW1,DJSW2,DJT

 +29       KILL DJTOGGLE,DJVV,DJW,DJW1,DJW2,DJWR,DJX,DJX1,DJX3,DJXL,DJXT,DJXX

 +30       KILL DJY,DJZ,DJZ1,DK,DL,DLAYGO,DLB,DLCOSB,DM,DMAX,DN,DNM,DO,DOB

 +31       KILL DONE,DOTS,DOW,DP,DPDTO,DPP,DPQ,DQ,DQI,DR,DRAFT,DRUG,DRX,DS

 +32       KILL DSC,DSOU,DSOV,DT1,DTEMP,DTI,DTL,DTOUT,DTT,DU,DUOUT,DV,DW,DW1

 +33       KILL DWLW,DX,DXS,DY,DZ,DZ1

 +34       KILL E,EDATE,EDATE1,EDATE2,EE,EES,ENAME,END,ENDAT,ENDATE,ENDDATE

 +35       KILL ENDVEN,ENT,ENTRY,ER,ER1,ER2,ERORR,ERR,ERRCOUNT,ERRNAM,ERROR

 +36       KILL ESCAPE,EST,EST1,EST2,EX,EXC,EXDAY,EXIT,EXPRESS

 +37       GOTO ^MCDIE001