source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCDIE002.m@ 1111

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