VistA-WorldVistAEHR/r/MEDICINE-MC/MCDIEDIE.m

39 lines
2.0 KiB
Mathematica

MCDIEDIE ;HIRMFO/DAD-KILL ALL VARIABLES ;7/29/96 12:54
;;2.3;Medicine;;09/13/1996
D KVAR^VADPT
D KILL^XM
K %,%DT,%H,%I,%T,%X,%Y,%ZIS
K A,AA,AANAM,ABORT,ACT,AGE,AL,ALL,ARBLGNO,ARR,ARRAY,ASTM,ASTME
K ATYPE,AV,AZ
K B,B1C,B2C,B3C,B4C,B5C,B6C,B7C,B8C,BACK,BAD,BASE,BB,BBNAM,BDATE
K BE,BEG,BEGDATE,BINDX,BS,BY
K C,CAO2,CD,CDATE,CDLCOSB,CDUZ,CFEF2575,CFEV1,CFILE,CFRC,CFVC
K CHANGE,CHAR,CHECK,CHR,CI95,CK,CLIN,CMVV,CNT,CO,CODE,CODE2,COHB
K COL,CONT,CORSPEL,COUNT,COUNT2,CPF,CPT,CPTIEN,CR,CREAT,CREATION
K CROSS,CRV,CT,CTLC,CV,CVC,CVIX,CVO2,CVTL,CVVC
K D,D0,D1,D2,DA,DALL,DASH,DATA,DATE,DATE1,DATE2,DATESAME,DB
K DBZZ,DC,DCL,DD,DDER,DDR,DDRZREF,DE,DEVICE,DF,DFAST,DFN,DFNUM
K DFOUT,DG,DGO,DH,DHD,DHIT,DI,DIADD,DIASKHD,DIC,DICMX,DICR,DICRS
K DICS,DICSS,DICW,DID,DIDEL,DIE,DIEDT,DIEL,DIEX,DIEZ,DIFLD,DIFQ
K DIFROM,DIG,DIH,DIJ,DIK,DIL,DINAME,DINUM,DIOBEG,DIOEND,DIP,DIPGM
K DIPZ,DIQ,DIQUIET,DIR,DIROUR,DIROUT,DIRUT,DIS,DISMN,DISTOP,DISTP
K DIU,DIV,DIVA,DIVDIC,DIVDO,DIVDR,DIVDS,DIVP,DIVP1,DIVPDIC
K DIVS,DIVV,DIVY,DIW,DIWF,DIWI,DIWL,DIWR,DIWT,DIWTC,DIWX,DIX,DIXX
K DIY,DIYS,DIZ,DJ,DJ0,DJ01,DJ1,DJ11,DJ14,DJ16,DJ2,DJ3,DJ4,DJ44
K DJ5,DJ6,DJ7,DJ8,DJ9,DJA,DJAD,DJAT,DJBD,DJBHOLD,DJBITEM,DJBITEM1
K DJBLO,DJBNO,DJC,DJCHO,DJCL,DJCP,DJD,DJD0,DJDA,DJDB,DJDD,DJDD1
K DJDDS,DJDIC,DJDICS,DJDIS,DJDN,DJDNM,DJDP,DJDPL,DJDUZ,DJEOP,DJERR
K DJF,DJFF,DJFLAG,DJHIN,DJI,DJJ,DJJ0,DJK,DJK1,DJKEY,DJKL,DJKV,DJL
K DJLG,DJLIN,DJLK,DJLSTN,DJM1,DJM2,DJM3,DJMD0,DJMD1,DJMU,DJMUL,DJN
K DJNM,DJNN,DJNO,DJNODE,DJNX,DJOP,DJP,DJP1,DJP2,DJP8,DJPEDT,DJQ
K DJQ1,DJR,DJRJ,DJRNM,DJS,DJSC,DJSM,DJST,DJSV,DJSW1,DJSW2,DJT
K DJTOGGLE,DJVV,DJW,DJW1,DJW2,DJWR,DJX,DJX1,DJX3,DJXL,DJXT,DJXX
K DJY,DJZ,DJZ1,DK,DL,DLAYGO,DLB,DLCOSB,DM,DMAX,DN,DNM,DO,DOB
K DONE,DOTS,DOW,DP,DPDTO,DPP,DPQ,DQ,DQI,DR,DRAFT,DRUG,DRX,DS
K DSC,DSOU,DSOV,DT1,DTEMP,DTI,DTL,DTOUT,DTT,DU,DUOUT,DV,DW,DW1
K DWLW,DX,DXS,DY,DZ,DZ1
K E,EDATE,EDATE1,EDATE2,EE,EES,ENAME,END,ENDAT,ENDATE,ENDDATE
K ENDVEN,ENT,ENTRY,ER,ER1,ER2,ERORR,ERR,ERRCOUNT,ERRNAM,ERROR
K ESCAPE,EST,EST1,EST2,EX,EXC,EXDAY,EXIT,EXPRESS
G ^MCDIE001