MCDIE001 ;HIRMFO/DAD-KILL ALL VARIABLES ;7/26/96 10:37
;;2.3;Medicine;;09/13/1996
K F,F1,F2,FEF2575,FEV1,FFF,FIELD,FIELDS,FIL,FILE,FILE2,FILEN
K FILENAME,FILENUM,FILES,FILETYPE,FILNAM,FILNM,FILNO,FIND,FINIS
K FIO2,FL,FLAG,FLD,FLDN,FLDNAME,FLDNM,FLDNO,FLDS,FLOC,FMDT,FMREF
K FN,FNAME,FORMULA,FOUND,FR,FRC,FROOT,FT,FTYPE,FULL,FVC,FX
K G,GBLREF,GENEX,GL,GLB1,GLDONE,GLO,GLOBAL,GLONOD0,GLONODE,GLOPIECE
K GMCDGT,GMRAL,GMRCACT,GMRCACTM,GMRCAGE,GMRCDG,GMRCDGT,GMRCDGY
K GMRCDOB,GMRCDS,GMRCDTM,GMRCGRP,GMRCH,GMRCHDR,GMRCI,GMRCIFN
K GMRCNM,GMRCNP,GMRCNPG,GMRCO,GMRCPNM,GMRCPRNM,GMRCRB,GMRCRP,GMRCRPG
K GMRCSN,GMRCSNM,GMRCSR,GMRCSS,GMRCSSNM,GMRCTC,GMRCTITL,GMRCTM
K GMRCTYPE,GMRCVP,GMRCWARD,GMRLDG,GMRNPG,GMRTITL,GMRWARD,GNODE,GOOD
K H,HB,HDUZ,HEAD1,HEADER,HEADING,HELP,HI,HL7,HLECH,HMTVPRNM,HOLD
K HOLD2,HT,HT1
K I,I1,IC,ICD,ID,ID2,ID3,ID4,ID5,IEN,II,IJ,IN,INDX,INFO,INFO2,INST
K INSVER,IOP,ITEMS
K J,JJ
K K,K1,KEY,KK,KT
K L,LANM,LEFT,LEN,LEN1,LEN2,LENGTH,LEVEL,LIN,LINE,LINES,LINPTDNM,LL
K LL1,LM,LMI,LN,LOC,LOCATION,LOOK1,LOOP,LOOP1,LOOP2,LOP,LOW,LP,LPDT
K M,M1,M2,M3,M4,MA,MAILGRP,MAINFILE,MAINREC,MAX,MC,MC0,MC0EON,MC0OEN
K MC1,MC12FNAM,MC12LNAM,MC12NAM,MC16,MC17,MC17A,MC200,MC4,MC6
K MC6995D0,MC699D0,MC699D1,MCA,MCA12,MCAA,MCABNO,MCACPT,MCACTION
K MCAL,MCAR,MCAR0,MCAR1,MCARA,MCARAPDT,MCARCD,MCARCDIE,MCARCK
K MCARCNT,MCARCODE,MCARDA,MCARDC,MCARDE,MCARDIC,MCARDJA,MCARDJB
K MCARDJC,MCARDJD,MCARDJE,MCARDJSC,MCARDJX,MCARDJY,MCARDJZ,MCARDOB
K MCARDRCR,MCARDT,MCARDTM,MCAREG,MCAREL,MCARFILE,MCARFIND,MCARFLG
K MCARGCON,MCARGDA,MCARGDA1,MCARGDT,MCARGDT2,MCARGEN,MCARGNAM
K MCARGNM,MCARGNON,MCARGNUM,MCARGRTN,MCARHDR,MCARHOS,MCARI,MCARIEN
K MCARLC,MCARLEAD,MCARLK,MCARNAM,MCARNEW,MCARNM,MCARNP,MCARNUM
K MCAROLDT,MCARP,MCARPAT,MCARPPS,MCARPR,MCARPROC,MCARPS,MCARPSUM
K MCARPT,MCARR,MCARRB,MCARSUM,MCARTOT,MCARTY,MCARW,MCARWARD,MCARX
K MCARY,MCARZ,MCARZDN,MCASS,MCATT,MCB,MCB2V,MCB4V,MCB5V,MCB9V,MCBACK
K MCBDIC,MCBL,MCBOUGIE,MCBP,MCBRANCH,MCBS,MCBSA,MCC,MCCD,MCCFLD
K MCCHECK,MCCI,MCCK,MCCLEAN,MCCND,MCCNT,MCCOHB,MCCONTYP,MCCOR,MCCSA
K MCCSUB,MCCVIX,MCCX,MCCX1,MCD,MCD0,MCD1,MCD2,MCD3,MCDA,MCDATA
K MCDATE,MCDATET,MCDAY,MCDAYS,MCDD,MCDEF,MCDEL,MCDEMO,MCDEST,MCDF
K MCDFLAG,MCDFLG,MCDFN,MCDHD,MCDI,MCDIC,MCDICS,MCDID,MCDIE,MCDIL
K MCDIQ,MCDIQ0,MCDIQ1,MCDIQ2,MCDJHELP,MCDL,MCDONE,MCDOT,MCDR,MCDRNUM
K MCDRS,MCDRUG,MCDS,MCDSH,MCDSIX,MCDSIX1,MCDSOK,MCDSPTYP,MCDSR,MCDT
K MCDTIME,MCDUZ,MCDX,MCE,MCEBRIEF,MCEDT,MCEFF,MCEFULL,MCEKG,MCEMP
K MCENT,MCEOF,MCEPID,MCEPROC,MCEPROL,MCER,MCERR,MCERROR,MCESCUR
K MCESFL,MCESKEY,MCESMFD,MCESNEW,MCESO,MCESON,MCESPED,MCESPREV,MCESS
G ^MCDIE002
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCDIE001 2658 printed Oct 16, 2024@18:15:26 Page 2
MCDIE001 ;HIRMFO/DAD-KILL ALL VARIABLES ;7/26/96 10:37
+1 ;;2.3;Medicine;;09/13/1996
+2 KILL F,F1,F2,FEF2575,FEV1,FFF,FIELD,FIELDS,FIL,FILE,FILE2,FILEN
+3 KILL FILENAME,FILENUM,FILES,FILETYPE,FILNAM,FILNM,FILNO,FIND,FINIS
+4 KILL FIO2,FL,FLAG,FLD,FLDN,FLDNAME,FLDNM,FLDNO,FLDS,FLOC,FMDT,FMREF
+5 KILL FN,FNAME,FORMULA,FOUND,FR,FRC,FROOT,FT,FTYPE,FULL,FVC,FX
+6 KILL G,GBLREF,GENEX,GL,GLB1,GLDONE,GLO,GLOBAL,GLONOD0,GLONODE,GLOPIECE
+7 KILL GMCDGT,GMRAL,GMRCACT,GMRCACTM,GMRCAGE,GMRCDG,GMRCDGT,GMRCDGY
+8 KILL GMRCDOB,GMRCDS,GMRCDTM,GMRCGRP,GMRCH,GMRCHDR,GMRCI,GMRCIFN
+9 KILL GMRCNM,GMRCNP,GMRCNPG,GMRCO,GMRCPNM,GMRCPRNM,GMRCRB,GMRCRP,GMRCRPG
+10 KILL GMRCSN,GMRCSNM,GMRCSR,GMRCSS,GMRCSSNM,GMRCTC,GMRCTITL,GMRCTM
+11 KILL GMRCTYPE,GMRCVP,GMRCWARD,GMRLDG,GMRNPG,GMRTITL,GMRWARD,GNODE,GOOD
+12 KILL H,HB,HDUZ,HEAD1,HEADER,HEADING,HELP,HI,HL7,HLECH,HMTVPRNM,HOLD
+13 KILL HOLD2,HT,HT1
+14 KILL I,I1,IC,ICD,ID,ID2,ID3,ID4,ID5,IEN,II,IJ,IN,INDX,INFO,INFO2,INST
+15 KILL INSVER,IOP,ITEMS
+16 KILL J,JJ
+17 KILL K,K1,KEY,KK,KT
+18 KILL L,LANM,LEFT,LEN,LEN1,LEN2,LENGTH,LEVEL,LIN,LINE,LINES,LINPTDNM,LL
+19 KILL LL1,LM,LMI,LN,LOC,LOCATION,LOOK1,LOOP,LOOP1,LOOP2,LOP,LOW,LP,LPDT
+20 KILL M,M1,M2,M3,M4,MA,MAILGRP,MAINFILE,MAINREC,MAX,MC,MC0,MC0EON,MC0OEN
+21 KILL MC1,MC12FNAM,MC12LNAM,MC12NAM,MC16,MC17,MC17A,MC200,MC4,MC6
+22 KILL MC6995D0,MC699D0,MC699D1,MCA,MCA12,MCAA,MCABNO,MCACPT,MCACTION
+23 KILL MCAL,MCAR,MCAR0,MCAR1,MCARA,MCARAPDT,MCARCD,MCARCDIE,MCARCK
+24 KILL MCARCNT,MCARCODE,MCARDA,MCARDC,MCARDE,MCARDIC,MCARDJA,MCARDJB
+25 KILL MCARDJC,MCARDJD,MCARDJE,MCARDJSC,MCARDJX,MCARDJY,MCARDJZ,MCARDOB
+26 KILL MCARDRCR,MCARDT,MCARDTM,MCAREG,MCAREL,MCARFILE,MCARFIND,MCARFLG
+27 KILL MCARGCON,MCARGDA,MCARGDA1,MCARGDT,MCARGDT2,MCARGEN,MCARGNAM
+28 KILL MCARGNM,MCARGNON,MCARGNUM,MCARGRTN,MCARHDR,MCARHOS,MCARI,MCARIEN
+29 KILL MCARLC,MCARLEAD,MCARLK,MCARNAM,MCARNEW,MCARNM,MCARNP,MCARNUM
+30 KILL MCAROLDT,MCARP,MCARPAT,MCARPPS,MCARPR,MCARPROC,MCARPS,MCARPSUM
+31 KILL MCARPT,MCARR,MCARRB,MCARSUM,MCARTOT,MCARTY,MCARW,MCARWARD,MCARX
+32 KILL MCARY,MCARZ,MCARZDN,MCASS,MCATT,MCB,MCB2V,MCB4V,MCB5V,MCB9V,MCBACK
+33 KILL MCBDIC,MCBL,MCBOUGIE,MCBP,MCBRANCH,MCBS,MCBSA,MCC,MCCD,MCCFLD
+34 KILL MCCHECK,MCCI,MCCK,MCCLEAN,MCCND,MCCNT,MCCOHB,MCCONTYP,MCCOR,MCCSA
+35 KILL MCCSUB,MCCVIX,MCCX,MCCX1,MCD,MCD0,MCD1,MCD2,MCD3,MCDA,MCDATA
+36 KILL MCDATE,MCDATET,MCDAY,MCDAYS,MCDD,MCDEF,MCDEL,MCDEMO,MCDEST,MCDF
+37 KILL MCDFLAG,MCDFLG,MCDFN,MCDHD,MCDI,MCDIC,MCDICS,MCDID,MCDIE,MCDIL
+38 KILL MCDIQ,MCDIQ0,MCDIQ1,MCDIQ2,MCDJHELP,MCDL,MCDONE,MCDOT,MCDR,MCDRNUM
+39 KILL MCDRS,MCDRUG,MCDS,MCDSH,MCDSIX,MCDSIX1,MCDSOK,MCDSPTYP,MCDSR,MCDT
+40 KILL MCDTIME,MCDUZ,MCDX,MCE,MCEBRIEF,MCEDT,MCEFF,MCEFULL,MCEKG,MCEMP
+41 KILL MCENT,MCEOF,MCEPID,MCEPROC,MCEPROL,MCER,MCERR,MCERROR,MCESCUR
+42 KILL MCESFL,MCESKEY,MCESMFD,MCESNEW,MCESO,MCESON,MCESPED,MCESPREV,MCESS
+43 GOTO ^MCDIE002
