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
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