- 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 Feb 18, 2025@23:41:17 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
