source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCDIE001.m@ 699

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