- MCDIE002 ;HIRMFO/DAD-KILL ALL VARIABLES ;7/26/96 12:57
- ;;2.3;Medicine;;09/13/1996
- K MCESSEC,MCESSES,MCESSUP,MCESTEMP,MCEX,MCEXDT,MCEXIT,MCF,MCFF,MCFI
- K MCFIELD,MCFIL,MCFIL1,MCFIL2,MCFILE,MCFILE1,MCFILENO,MCFILET,MCFL
- K MCFLD,MCFLDIX,MCFLDNO,MCFLDREC,MCFLDUSE,MCFN,MCFNAM,MCFOOTER
- K MCFOUND,MCFP,MCFTEXT,MCFTMP,MCG,MCGEN,MCGFILE,MCGPROC,MCGTUBE,MCH
- K MCHAR,MCHB,MCHEAD,MCHEATP,MCHELP,MCHELPS2,MCHELPSW,MCHOLD,MCI
- K MCIAO1,MCIAO2,MCICDSS,MCIDA,MCIDL,MCIDP,MCIEN,MCIEN2,MCIFA
- K MCIFE,MCIFL,MCIFLG,MCIFLG15,MCIFV,MCII,MCIMAGE,MCINDCOM,MCINDEX
- K MCINST,MCINSTL,MCIPTL,MCIRV,MCITL,MCJ,MCJTUBE,MCK,MCKEY,MCL,MCL2
- K MCL3,MCLABDT,MCLAST,MCLD,MCLD0,MCLDATA,MCLDEL,MCLFILE,MCLFOUND
- K MCLINE,MCLN,MCLN1,MCLN2,MCLNAM,MCLNCT,MCLNG,MCLOOP,MCLP,MCLRDA
- K MCLRDFN,MCLSNO,MCLT,MCLTXT,MCLVD,MCM,MCMAIL,MCMAIN,MCMASS,MCMFLD
- K MCMM,MCMU,MCMUP,MCMVVN,MCN,MCNAM,MCNAME,MCNAME2,MCNARRDX,MCND
- K MCNDT,MCNEWDFN,MCNEWPRC,MCNM,MCNODE,MCNOW,MCNPI,MCNPJ,MCNT,MCNUM
- K MCOEN,MCOEON,MCOFFSET,MCON,MCONSULT,MCOPT,MCOPTION,MCOR,MCOR1
- K MCOR2,MCOR3,MCOR4,MCORCK,MCORSPEL,MCORSV,MCOUNT,MCOUT,MCP,MCP1
- K MCP1S0,MCP1S1,MCP1S2,MCP2,MCP2S0,MCP2S1,MCP2S2,MCPAGE,MCPAIN
- K MCPARAMS,MCPATFLD,MCPATNM,MCPBRIEF,MCPCT,MCPCTDIC,MCPCTW,MCPCTWW
- K MCPCTX,MCPCTY,MCPCTY2,MCPCTYY,MCPCTYYY,MCPCTZ,MCPFT0,MCPFTSS
- K MCPFULL,MCPH,MCPHYS,MCPI,MCPID,MCPIDT,MCPIECE,MCPIECE1,MCPOS
- K MCPOSTP,MCPRC,MCPRCCNT,MCPRCD0,MCPRCSUM,MCPRCTXT,MCPRE,MCPRE005
- K MCPRE08,MCPRG,MCPRNM,MCPRO,MCPROC,MCPROP,MCPROV,MCPROVID,MCPRTRTN
- K MCPV,MCPWALL,MCQDEL,MCQUEUE,MCR,MCRACE,MCRC,MCRC1,MCRC2,MCRC3,MCRC4
- K MCRCCHG,MCRCN,MCRCR,MCRCTOT,MCRD,MCREC,MCREC1,MCREC2,MCRECNO,MCRED
- K MCRED1,MCREF,MCREL,MCREP,MCRESULT,MCRH,MCRH1,MCRHL,MCRHLP,MCRHR
- K MCRHY,MCROOT,MCROUT,MCROUT2,MCRSR,MCRTYP,MCS,MCSBFILE,MCSBRIEF
- K MCSCATT,MCSEL,MCSEP,MCSEX,MCSF,MCSFIND,MCSFLD,MCSFREC,MCSFULL
- K MCSIGN,MCSIZ,MCSLASH,MCSM,MCSMR,MCSP,MCSPHIN,MCSREC,MCSS,MCSSN
- K MCSSN2,MCSTART,MCSTAT,MCSTENT,MCSUB,MCSUBDD,MCSUBFA,MCSUBFIL
- K MCSUBFLD,MCSUBFNU,MCSUMMRY,MCSUP,MCT,MCTDEC,MCTEL,MCTEMP,MCTEMP1
- K MCTEST,MCTEXT,MCTIEN,MCTIME,MCTLCN,MCTMP,MCTMP1,MCTODAY,MCTOPDD
- K MCTOT,MCTR,MCTXT,MCTYPE,MCTYPEP,MCUNDL,MCUP,MCUSER,MCUTOFDT,MCV
- K MCV1,MCV10,MCV2,MCV3,MCV4,MCV5,MCV6,MCV7,MCV8,MCV9,MCVA,MCVAL
- K MCVCN,MCVER,MCVI,MCVL,MCVN,MCVR,MCWARD,MCWP,MCX,MCXRET,MCY,MCZ
- K MCZERO,MDAT1,MDAT2,MEAS,MENU,MESSNUMB,MFD,MFD2,MFDNAME,MFIELD
- K MFILE,MFN,MGN,MHB,MHDX,MHDY,MHFL,MHX,MHY,MLEN,MLEN1,MLEN2,MNODE
- K MODE,MODE2,MPIECE,MREC,MSE,MSG,MSH,MST,MSTR,MULTI,MV,MVV,MX
- K N,NA,NAME,NAMEE,NCHANGE,ND,ND1,NE,NEW,NEWCODE,NEWCOE,NEWNAM,NEWPTR
- K NEWREC,NEWST,NEWSUB,NFILE,NIEN,NM,NMFILE,NODE,NOOCCS,NOPT,NOW,NP
- K NTEMP,NULL,NUM,NUMBER
- G ^MCDIE003
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCDIE002 2691 printed Feb 18, 2025@23:41:17 Page 2
- MCDIE002 ;HIRMFO/DAD-KILL ALL VARIABLES ;7/26/96 12:57
- +1 ;;2.3;Medicine;;09/13/1996
- +2 KILL MCESSEC,MCESSES,MCESSUP,MCESTEMP,MCEX,MCEXDT,MCEXIT,MCF,MCFF,MCFI
- +3 KILL MCFIELD,MCFIL,MCFIL1,MCFIL2,MCFILE,MCFILE1,MCFILENO,MCFILET,MCFL
- +4 KILL MCFLD,MCFLDIX,MCFLDNO,MCFLDREC,MCFLDUSE,MCFN,MCFNAM,MCFOOTER
- +5 KILL MCFOUND,MCFP,MCFTEXT,MCFTMP,MCG,MCGEN,MCGFILE,MCGPROC,MCGTUBE,MCH
- +6 KILL MCHAR,MCHB,MCHEAD,MCHEATP,MCHELP,MCHELPS2,MCHELPSW,MCHOLD,MCI
- +7 KILL MCIAO1,MCIAO2,MCICDSS,MCIDA,MCIDL,MCIDP,MCIEN,MCIEN2,MCIFA
- +8 KILL MCIFE,MCIFL,MCIFLG,MCIFLG15,MCIFV,MCII,MCIMAGE,MCINDCOM,MCINDEX
- +9 KILL MCINST,MCINSTL,MCIPTL,MCIRV,MCITL,MCJ,MCJTUBE,MCK,MCKEY,MCL,MCL2
- +10 KILL MCL3,MCLABDT,MCLAST,MCLD,MCLD0,MCLDATA,MCLDEL,MCLFILE,MCLFOUND
- +11 KILL MCLINE,MCLN,MCLN1,MCLN2,MCLNAM,MCLNCT,MCLNG,MCLOOP,MCLP,MCLRDA
- +12 KILL MCLRDFN,MCLSNO,MCLT,MCLTXT,MCLVD,MCM,MCMAIL,MCMAIN,MCMASS,MCMFLD
- +13 KILL MCMM,MCMU,MCMUP,MCMVVN,MCN,MCNAM,MCNAME,MCNAME2,MCNARRDX,MCND
- +14 KILL MCNDT,MCNEWDFN,MCNEWPRC,MCNM,MCNODE,MCNOW,MCNPI,MCNPJ,MCNT,MCNUM
- +15 KILL MCOEN,MCOEON,MCOFFSET,MCON,MCONSULT,MCOPT,MCOPTION,MCOR,MCOR1
- +16 KILL MCOR2,MCOR3,MCOR4,MCORCK,MCORSPEL,MCORSV,MCOUNT,MCOUT,MCP,MCP1
- +17 KILL MCP1S0,MCP1S1,MCP1S2,MCP2,MCP2S0,MCP2S1,MCP2S2,MCPAGE,MCPAIN
- +18 KILL MCPARAMS,MCPATFLD,MCPATNM,MCPBRIEF,MCPCT,MCPCTDIC,MCPCTW,MCPCTWW
- +19 KILL MCPCTX,MCPCTY,MCPCTY2,MCPCTYY,MCPCTYYY,MCPCTZ,MCPFT0,MCPFTSS
- +20 KILL MCPFULL,MCPH,MCPHYS,MCPI,MCPID,MCPIDT,MCPIECE,MCPIECE1,MCPOS
- +21 KILL MCPOSTP,MCPRC,MCPRCCNT,MCPRCD0,MCPRCSUM,MCPRCTXT,MCPRE,MCPRE005
- +22 KILL MCPRE08,MCPRG,MCPRNM,MCPRO,MCPROC,MCPROP,MCPROV,MCPROVID,MCPRTRTN
- +23 KILL MCPV,MCPWALL,MCQDEL,MCQUEUE,MCR,MCRACE,MCRC,MCRC1,MCRC2,MCRC3,MCRC4
- +24 KILL MCRCCHG,MCRCN,MCRCR,MCRCTOT,MCRD,MCREC,MCREC1,MCREC2,MCRECNO,MCRED
- +25 KILL MCRED1,MCREF,MCREL,MCREP,MCRESULT,MCRH,MCRH1,MCRHL,MCRHLP,MCRHR
- +26 KILL MCRHY,MCROOT,MCROUT,MCROUT2,MCRSR,MCRTYP,MCS,MCSBFILE,MCSBRIEF
- +27 KILL MCSCATT,MCSEL,MCSEP,MCSEX,MCSF,MCSFIND,MCSFLD,MCSFREC,MCSFULL
- +28 KILL MCSIGN,MCSIZ,MCSLASH,MCSM,MCSMR,MCSP,MCSPHIN,MCSREC,MCSS,MCSSN
- +29 KILL MCSSN2,MCSTART,MCSTAT,MCSTENT,MCSUB,MCSUBDD,MCSUBFA,MCSUBFIL
- +30 KILL MCSUBFLD,MCSUBFNU,MCSUMMRY,MCSUP,MCT,MCTDEC,MCTEL,MCTEMP,MCTEMP1
- +31 KILL MCTEST,MCTEXT,MCTIEN,MCTIME,MCTLCN,MCTMP,MCTMP1,MCTODAY,MCTOPDD
- +32 KILL MCTOT,MCTR,MCTXT,MCTYPE,MCTYPEP,MCUNDL,MCUP,MCUSER,MCUTOFDT,MCV
- +33 KILL MCV1,MCV10,MCV2,MCV3,MCV4,MCV5,MCV6,MCV7,MCV8,MCV9,MCVA,MCVAL
- +34 KILL MCVCN,MCVER,MCVI,MCVL,MCVN,MCVR,MCWARD,MCWP,MCX,MCXRET,MCY,MCZ
- +35 KILL MCZERO,MDAT1,MDAT2,MEAS,MENU,MESSNUMB,MFD,MFD2,MFDNAME,MFIELD
- +36 KILL MFILE,MFN,MGN,MHB,MHDX,MHDY,MHFL,MHX,MHY,MLEN,MLEN1,MLEN2,MNODE
- +37 KILL MODE,MODE2,MPIECE,MREC,MSE,MSG,MSH,MST,MSTR,MULTI,MV,MVV,MX
- +38 KILL N,NA,NAME,NAMEE,NCHANGE,ND,ND1,NE,NEW,NEWCODE,NEWCOE,NEWNAM,NEWPTR
- +39 KILL NEWREC,NEWST,NEWSUB,NFILE,NIEN,NM,NMFILE,NODE,NOOCCS,NOPT,NOW,NP
- +40 KILL NTEMP,NULL,NUM,NUMBER
- +41 GOTO ^MCDIE003