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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCDIEDIE 2105 printed Dec 13, 2024@02:14:52 Page 2
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
