VistA-WorldVistAEHR/r/ADVERSE_REACTION_TRACKING-G.../GMRAKILL.m

40 lines
2.4 KiB
Mathematica

GMRAKILL ;HIRMFO/WAA-ALLERGY KILL VARIABLES UTILITY ;12/7/95 12:34
;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
EN1 ; Kill all GMRA Variables
K DA,DD,DIC,DIE,DIF,DIFQ,DIR,DIROUT,DIRUT,DIWL,DIWR,DIX,DIY
K DLAYGO,DO,DR,DTOUT,DUOUT,DX,DY,DZ,END,ERR,FLG,FXN
K GMRA,GMRA42,GMRAAL,GMRAASK,GMRALL,GMRAAR,GMRAB,GMRABEG,GMRABGDT
K GMRABRK,GMRABUL,GMRABULL,GMRACAUS,GMRACCC,GMRAACCT,GMRACH,GMRACHC
K GMRACHK,GMRACL,GMRACLAS,GMRACLS,GMRACNT,GMRACNTF,GMRACOM,GMRACON
K GMRACS,GMRACT,GMRACTIV,GMRACTR,GMRACW,GMRADA,GMRADATA,GMRADATE
K GMRADC,GMRADEF,GMRADEL,GMRADFL,GMRADFN,GMRADFO,GMRADI,GMRADIG
K GMRADO,GMRADOB,GMRADOUT,GMRADRCL,GMRADRG,GMRADT,GMRADUP,GMRAED
K GMRAEER,GMRAEND,GMRAENDT,GMRAENTR,GMRAER,GMRAERR,GMRAES,GMRAFDA
K GMRAFG,GMRAFLAG,GMRAFLG,GMRAFST,GMRAFT,GMRAG,GMRAGBAL,GMRAGHC
K GMRAGNT1,GMRAGNT2,GMRAOUT,GMRAGRP,GMRAGRUP,GMRAHDR,GMRAHEAD,GMRAHLOC
K GMRAHLP,GMRAI,GMRAID,GMRAIEN,GMRAING,GMRAINGR,GMRAIV,GMRAIVS,GMRAKIND,GMRAL
K GMRALAGO,GMRALAR,GMRALIKA,GMRALIKB,GMRALIN,GMRALINE,GMRALL,GMRALLEG
K GMRALLER,GMRALN,GMRALOC,GMRALOOK,GMRALRCG,GMRALRCV,GMRALROG,GMRALROV
K GMRALRSG,GMRALRSV,GMRALST,GMRAM1,GMRAM2,GMRAMARK,GMRAMEC,GMRAMG
K GMRAMGBL,GMRAMID,GMRAMK,GMRAMOV,GMRAN,GMRANAM,GMRANAME,GMRANEW
K GMRANKA,GMRANLOC,GMRANO,GMRANOC,GMRANODE,GMRANON,GMRANOO,GMRANOR
K GMRANOT,GMRANOW,GMRANS,GMRANULL,GMRANUM,GMRAOK,GMRAORG,GMRAOSOF
K GMRAOTH,GMRAOUT,GMRAPA,GMRAPA1,GMRAPA2,GMRAPAGE,GMRAPASS,GMRAPAT
K GMRAPC,GMRAPCT,GMRAPDT,GMRAPG,GMRAPG1,GMRAPG2,GMRAPHRG,GMRAPHRV
K GMRAPRNT,GMRAPRSW,GMRAQ,GMRAQST,GMRAR10,GMRARAD,GMRACT,GMRADL
K GMRAREA,GMRAREAC,GMRAREAN,GMRAREC,GMRARECN,GMRAREQ,GMRARES,GMRARNG
K GMRARODT,GMRAROT,GMRAROTD,GMRARPR,GMRARRAY,GMRARSLT,GMRASEL,GMRASEL1
K GMRASEL2,GMRASEND,GMRASEX,GMRASING,GMRASITE,GMRASLIN,GMRASLL,GMRASND
K GMRASP,GMRASPAC,GMRASSN,GMRAST,GMRASTAT,GMRASTDT,GMRASUS,GMRASUS1
K GMRASUS2,GMRASWH,GMRATEAM,GMRATEMP,GMRATL,GMRATMP,GMRATONS,GMRATP
K GMRATRT,GMRATYP,GMRATYPE,GMRAUTO,GMRAVAR,GMRAVCM,GMRAVEDT,GMRAVER
K GMRAVFY,GMRAVIP,GMRAVIT1,GMRAVIT2,GMRAW,GMRAWEI,GMRAWLOC,GMRAX,GMRAXT
K GMRAXX,GMRAXXX,GMRAY,GMRAYN,GMRAYY,GMRAZ,GMRAZIS,GMRAZK,GMRAZL,GMRAZM
K GMRAZN,GMRBEG,GMRBGDT,GMRDFN,GMRDFN2,GMRDT,GMRAENDT,GMRENT,GMRFLG
K GMRIEN,GMRNODE,GMRVSTR,GMRWD,GMRX,GMRY,GMRZZ,GMTS1,GMTS2,GMTSI,HLOC
K IMEN,KEY,LINE1,LINE2,LRDFN,LST,MAX,MDIC,MEN,NEG,NM,NO,OH,ON
K OOS,POP,PS,PSIVREA,PSJEDT,PSNDA,PSNID,PSOBEGIN,PSODA,PSOID,RAAF18
K SCR,SEX,START,SUB,TAB,TEST,TYP,VA,VADM,VAERR,VAIN,VAROOT,VER,WLOC
K X0,X1,X2,XCN,XCNP,YN,ZERO,ZTSAVE,ZTSK
Q