©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ACRFEXIT ;IHS/OIRM/DSD/THL,AEF - EXIT UTILITY TO KILL LOCAL VARIABLES; [ 11/01/2001 9:44 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
;;ROUTINE CALLED TO KILL VARIABLES
EXIT ;EP;TO KILL ALL LOCAL VARIABLES
K ACRNEWOB,ACRCOMP,ACRREV,ACRNODIS,ACRRR,ACRFDIS,ACRPTX,ACRDEL,ACRREV,ACRCSI,ACRSOF,ACRCONV,ACRCTV,ACRTV,ACRCTV,ACRSOFX,ACRREACT,ACRREQST,ACRPRTX,ACRALDA,ACRALTOT,ACRLDG,ACROTHT,ACRRC,ACRPRT,ACRDOCDA,ACRFINAL,ACRAREA,ACRCONT,ACRAP0,ACRAPDT
K ACRX,ACRZY,ACRI,ACRJ,ACR,ACRY,ACRCOMP,ACRDISP,ACRQUIT,ACRZ,ACRFDNO,ACRFD,ACRFDNA,ACRRTN,ACRGREF,ACRAMEND,ACRCONV,ACRDIC,ACRDIE,ACRFD1,ACRFD2,ACRFD3,ACRFDX,ACROUT,ACRTDEL,ACRACPT,ACRALTDA,ACRAMTX,ACRPHEAD,ACRSCHK,ACRPRFIX,ACRAPLDA,ACRAPLDT
K ACRNEWOB,ACRCANDA,ACREOQ,ACRFDNOB,ACRFDNRQ,ACRFDNUO,ACRFRM,ACRFRM2,ACRFTOT,ACRFY,ACRK,ACRLCODE,ACRONE,ACRQRM,ACRY,ACRCAN,ACRD,ACRDR,ACRFD4,ACRLBOC,ACROBL,ACRSSCAN,ACRGLB,ACRSP,ACRDIC,ACRFD11,ACRFD12,ACRB,ACRBP,ACRCDA,ACRDCATE,ACRDOC
K ACRNODIS,ACRFDNAM,ACRSSADA,ACRALWDA,ACRAPPDA,ACRFDNY,ACRFDNDA,ACRFDNSP,ACRFDNSA,ACRFNDAP,ACRFDNAL,ACRFDNFY,ACRFDNQT,ACRFDNBA,ACRDISDA,ACRFDNAC,ACRFDNAP,ACRFDNCA,ACRFDNDD,ACRFDNDT,ACRFDNQ,ACR,ACRCISDA,ACRCOMC,ACRCS,ACRCSDA,ACRCTY,ACRNAM
K ACRCTY1,ACRCTY2,ACRCTYCD,ACRCTYDA,ACRCTYX,ACRDICA,ACRDISA1,ACRDISA2,ACRDPTDA,ACRDSC,ACRDTO,ACRE,ACRFDO,ACRFDT,ACRFEA3,ACRFVNDA,ACRFY1,ACRFY2,ACRINV,ACRJJJ,ACRLAMT,ACRLCOD,ACRNEWC,ACRNEWCD,ACRNEWSS,ACRORDRQ,ACRREFX,ACRBPA,ACRBPAV,ACRBPATX
K ACRPADA,ACRPADA2,ACRPAL,ACRPAL1,ACRPAL2,ACRPALX,ACRPCOD,ACRPCT,ACRPD,ACRPDA,ACRPER,ACRPRGDA,ACRPRI,ACRPRR1,ACRPRR2,ACRQO,ACRQR,ACRRCDA,ACRRDAT,ACRREF,ACRRTYPE,ACRS,ACRSC,ACRSCAN,ACRSETX,ACRSJ,ACRSS4,ACRSS6,ACRSSDSC,ACRSTDA,ACRPR,ACRAPDAS
K ACRSUM,ACRT1,ACRT2,ACRT3,ACRTC,ACRTXDO,ACRTYPE,ACRVND,ACRVND1,ACRYRM,ACRY,DX,DY,L,POP,ACRPTRS,ACRSET,ACRSET1,ACRTEXT,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,ACRCAT,ACRFINSS,ACRI,ACRJJ,ACRJJJ,ACRORDR,ACRTX,ACRTXNAM,ACRVDA,ACRTXDAX,ACRTXDOC
K ACRACC,ACRDA,ACRDUZ,ACRLVL,ACRUSER,ACRF,ACRFT,ACRN,ACRP,ACRTO,ACRFR,ACRDFN,ACR0,ACRGL,ACRMANAM,ACRD0,ACRII,ACRALW,ACRAPP,ACRCNT,ACRDDIE,ACRDISA,ACRID,ACRITEM,ACRMESS,ACRALWNO,ACRDEPT,ACRDT,ACRH,ACRDOCDA,ACRSSA,ACRTVRC,ACRTVRCX
K ACRMAX,ACRXX,ACRDOC0,ACRDOCDT,ACRDOCPO,ACROBLAP,ACROBL0,ACROBLDT,ACRAPV0,ACRAPVDT,ACRAPV,ACRDATE,ACRFD0,ACRTVRCJ,ACRAP,ACRLI,ACRQK,ACRQK1,ACRDATA1,ACRBPAPS,ACRBPASP,ACRBPATO,ACRFEDS,ACRSSNMS,ACRSSDSC,ACRSSDC1,ACRCOND,ACRSS0,ACRSSDT,ACRBPAFO
K ACRSSPO,ACRACP,ACRFINDA,ACRFINRQ,ACRFL,ACRFLDA,ACRFLRQ,ACRFUND,ACRIII,ACRJDATE,ACRPAGE,ACRPODA,ACRRQD,ACRSN,ACRSSRQ,ACRTP,ACRUNRCD,ACRRCD,ACR4P,ACRAAUD,ACRACPX,ACRADDM,ACRADVX,ACRANUM,ACRAP2,ACRAPVDA,ACRAPVTX,ACRATM,ACRATMX,ACRBPAA,ACRCATX
K ACRCCTDA,ACRDATE2,ACRDAX,ACRDIDAT,ACRDPT,ACRDUZX,ACRENT,ACRFC,ACRFCTL1,ACRFEA31,ACRFINX,ACRFIRST,ACRFLDS,ACRFS,ACRFSID,ACRHEAD,ACRIHS1,ACRIVACP,ACRIVD,ACRIVDAT,ACRIVDX,ACRIVNO,ACRIVT,ACRIVNO,ACRIVT,ACRIVTP,ACRIVUC,ACRIVUP,ACRIVY,ACRLAST
K ACRLCDA,ACRMIN,ACRMONTH,ACRNMS,ACRLCDA,ACROC,ACROD,ACROUT,ACRPADAT,ACRPDCO,ACRPOL,ACRPOL1,ACRPONUM,ACRPOPG,ACRPOTOT,ACRPS,ACRPURA,ACRPVN,ACRRACP,ACRRCDX,ACRRCVR,ACRRDAT2,ACRRL,ACRRQDD,ACRRR0,ACRRRCD,ACRRRDA,ACRRRDAT,ACRRRDT,ACRRRNO,ACRAL
K ACRRRUC,ACRSEQX,ACRSSMAX,ACRSSNO,ACRTOB,ACRUCX,ACRUNACP,ACRUNINV,ACRUSO,DIOEND,DIS,FLDS,XMDT,ACRAPDAF,ACRAPVS,ACRCCT,ACRPC,ACRTVCH,ACREIN,ACREMPDA,ACRLC,ACRRNT,ACRROFF,ACRSSDA,ACRSPENT,ACRTVEP,ACRTVRCC,ACRYN,ACRZI,ACRBY,ACRDC,ACRDESC
K ACRALTDT,ACRALTX,ACRCAN2,ACRDOM,ACREX,ACRFYN,ACRMCODE,ACROBJ,ACRP1,ACRP2,ACRP3,ACRRCODE,ACRREQX,ACRSADA,ACRSIGN,ACRSS3,ACRSSNOX,D0,ACRSSACP,ACRTYPS,ACRNOTES,ACRORIDA,ACRPOT,ACRRPEAT,ACRREIM,ACRZIS,ACRACT,ACRATM1,ACRATM2,ACRCNG,ACRCOPY
K ACRDAY,ACRINAM,ACRINDVA,ACRNO,ACRREFA,ACRRESP,ACRSSN,ACRUS,ACRXY,ACR115,ACR125,ACR27,ACR28,ACR29,ACR30,ACR31,ACR32,ACR33,ACR34,ACR35,ACR36,ACR37,ACR38,ACR39,ACR40,ACR41,ACR42,ACR43,ACR44,ACR45,ACR46,ACR50,ACR51,ACR52,ACR55,ACR56,ACR57
K ACR58,ACR59,ACR60,ACR61,ACR62,ACR63,ACR64,ACR65,ACRAAT,ACRACH,ACRATTCH,ACRBATDA,ACRBATNO,ACRBTYP,ACRCTRDA,ACRCTRL,ACRDFR,ACRDHRDA,ACRDHRZ,ACRDOCYR,ACRDTDA,ACREOD,ACRFYFUN,ACRINCMP,ACRINVIT,ACRIVACT,ACRIVDIS,ACRIVTF,ACRJVOD,ACRLBDT,ACRLP
K ACROP,ACRPAYME,ACRPDFOR,ACRPOS,ACRPQT,ACRPURP,ACRPX,ACRREF2,ACRSEG,ACRSEGDA,ACRSEND,ACRSEQDA,ACRSEQNO,ACRSIGT,ACRSPT,ACRTPO,ACRUSE,ACRV11,ACRV13,ACRV14,ACRWHICH,ACRHOUR,ACRSIC,ACRSIZE,ACRPAYDA
K:'$D(ACRSOFT) ACRZDA
EX1 K ACRFDNRC,ACRFDNUR,ACRGREF,ACR0,ACR1,ACR2,ACR21,ACR3,ACR31,ACR4,ACR5,ACR6,ACR7,ACR8,ACR9,ACR10,ACR11,ACR12,ACR13,ACR14,ACR141,ACR15,ACR16,ACR17,ACR18,ACR19,ACR20,ACR22,ACR23,ACR24,ACRDISDX,ACRFD21,ACRFD22,ACRFD31,ACRFD32,ACRFDIS,ACRFDNPD
K ACR25,ACR26,ACRFDX,ACRFDX1,ACRFDX2,ACRID1,ACRID2,ACRXREF,ACRYRN,ACRTXPFX,ACRTERM,ACRTT1,ACRTT2,ACRTT3,ACRTXT,ACRV1,ACRV1NAM,ACRV2,ACRV2NAM,ACRV,ACRW
D EXITFEA,EXIT^ACRFSSA,ACG
Q
EXITFEA ;EP;
K DIC,DIE,DA,DR,ACRZY,ACRALCDA,ACRD,ACRDATA,ACRDISP,ACRDIC,ACRDIE,ACRDR,ACRGREF,ACRLBDA,ACRREF,ACRREFDA,ACRRTN,ACRRTN2,ACRY,DIC,DIE,DIK,DTOUT,DUOUT,ACRTXDA,ACRTXLIM,ACRREFDA,ACRTXTP,ACRPARS,ACRDTREQ,ACRTXOBJ,DLAYGO,DN,D0
K:'$D(ACRSOFT) ACRZDA
K ACRQUIT
Q
EXITIO ;EP;
K ACRDOC,ACRTRM,ACRON,ACROF,ACRZ,ACRY,ACRFINSS,ACRPPO,ACRPTX,ACRREV,ACRRR,ACRSOF,ACRTRN,ACRBOX,ACRDATA1,ACRENTR1,ACRENTRY,ACRENTR2,ACRION,D0,ACRADA,IOBOFF,IOBON,IORVOFF,IORVON,IOUOFF,IOUON
Q
ACG F ACRI=1:1:70 K @("ACG"_ACRI)
K ACG,ACGDT,ACGDT1,ACGDT2,ACGDT3,ACGFLDS,ACGFLDSS,ACGFY,ACGIHS,ACGNC,ACGNEW,ACGPARA,ACGQUIT,ACGRDA,ACGSP,ACRI,ACG5DA,ACGCHK,ACRCNO,ACGCWIN,ACGDATA,ACGDR,ACGDW,ACGDXY,ACGEOL,ACGEOP,ACGI,ACGM,ACGOL,ACGON,ACGOWIN,ACGPAUSE,ACGPGM,ACGRECNT
K ACGREY,ACGTRM,ACGW,ACGW2,ACGW3,ACGWIN,ACGWIN3,ACGWIND,ACGXEXP,ACGXEXPD,ACGXY,ACGXYW2,ACGXYWIN,ACGY,ACGCNO,ACGOF,ACGWIN2,ACG1DA,ACG1
Q