ANSEXIT.m

ANSEXIT ;IHS/OIRM/DSD/CSC - EXIT UTILITY TO KILL LOCAL VARIABLES; [ 02/25/98  10:32 AM ]

 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 ;;ROUTINE CALLED TO KILL VARIABLES

EXIT ;EP;TO KILL ALL LOCAL VARIABLES

 D ^%ZISC  ;CSC 7-97

 K ANS,ANSA,ANSH,ANSF,DTOUT,DUOUT,ANSZ,ANSY,ANSFINSS,ANSPPO,ANSPTX,ANSREV,ANSHEAD,ANSHOME,ANSJ,ANSL,ANSLINE,ANSMAX,ANSN,ANSNS,ANSP,ANSPAGE,ANSPG,ANSPLUS,ANSPO,ANSPTC,ANSR,ANSRT,ANSRTN,ANSSH,ANSSITE,ANSSPAC,ANSTAB,ANSTOT,ANSTY,ANSU,ANSUNIT

 K ANSWTH,ANSWX,ANSADM,ANSDA,ANSAD,ANSDFN,ANSQUIT,ANSOUT,ANSAS,ANSBDT,ANSCL,ANSD,ANSDU,ANSEDT,ANSIOT,ANSI,ANSINPT,ANSJOB,ANSMR,ANSPLK,ANSPUNIT,ANSAF,ANSCA,ANSCOUNT

 K ANSBEGIN,ANSEND,DIR,X,Y,ANSDOCDA,ANSGREF,ANSLBDA,ANSSTOCK,ANSY,DN,A,ANSADM,ANSAF,ANSCL,ANSDX,ANSMR,ANSPAR,E,M,O,W,ANSADM,ANSDX,ANSTOT,ANSUN,DA,DTOUT,DIE,DR,DUOUT

 K %DT,%FN,%I,ANC,ANS3542,ANSALL,ANSCADT,ANSCOPY,ANSDATE,ANSDFM,ANSLPN,ANSNA,ANSOP,ANSPL,ANSPT,ANSRN,ANSTM,ANSUNX,ANW,AT,DX,J,K,NCL1,NCL2,POP,R,V,X1,X2,ZIBH,ZTIO,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE  ;CSC 10/96

 Q

EXITIO ;EP;

 K ANSTRM,ANSON,ANSOF,ANSRVON,ANSRVOF,ANSZ,ANSY,ANSPPO,ANSPTX,ANSREV,ANSRR,ANSSOF,ANSTRN,ANSBOX,ANSDT

 Q

ANSEXIT   ;IHS/OIRM/DSD/CSC - EXIT UTILITY TO KILL LOCAL VARIABLES; [ 02/25/98  10:32 AM ]

 +1       ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 +2       ;;ROUTINE CALLED TO KILL VARIABLES

EXIT      ;EP;TO KILL ALL LOCAL VARIABLES

 +1       ;CSC 7-97

           DO ^%ZISC

 +2        KILL ANS,ANSA,ANSH,ANSF,DTOUT,DUOUT,ANSZ,ANSY,ANSFINSS,ANSPPO,ANSPTX,ANSREV,ANSHEAD,ANSHOME,ANSJ,ANSL,ANSLINE,ANSMAX,ANSN,ANSNS,ANSP,ANSPAGE,ANSPG,ANSPLUS,ANSPO,ANSPTC,ANSR,ANSRT,ANSRTN,ANSSH,ANSSITE,ANSSPAC,ANSTAB,ANSTOT,ANSTY,ANSU,ANSUNIT

 +3        KILL ANSWTH,ANSWX,ANSADM,ANSDA,ANSAD,ANSDFN,ANSQUIT,ANSOUT,ANSAS,ANSBDT,ANSCL,ANSD,ANSDU,ANSEDT,ANSIOT,ANSI,ANSINPT,ANSJOB,ANSMR,ANSPLK,ANSPUNIT,ANSAF,ANSCA,ANSCOUNT

 +4        KILL ANSBEGIN,ANSEND,DIR,X,Y,ANSDOCDA,ANSGREF,ANSLBDA,ANSSTOCK,ANSY,DN,A,ANSADM,ANSAF,ANSCL,ANSDX,ANSMR,ANSPAR,E,M,O,W,ANSADM,ANSDX,ANSTOT,ANSUN,DA,DTOUT,DIE,DR,DUOUT

 +5       ;CSC 10/96

           KILL %DT,%FN,%I,ANC,ANS3542,ANSALL,ANSCADT,ANSCOPY,ANSDATE,ANSDFM,ANSLPN,ANSNA,ANSOP,ANSPL,ANSPT,ANSRN,ANSTM,ANSUNX,ANW,AT,DX,J,K,NCL1,NCL2,POP,R,V,X1,X2,ZIBH,ZTIO,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE

 +6        QUIT 

EXITIO    ;EP;

 +1        KILL ANSTRM,ANSON,ANSOF,ANSRVON,ANSRVOF,ANSZ,ANSY,ANSPPO,ANSPTX,ANSREV,ANSRR,ANSSOF,ANSTRN,ANSBOX,ANSDT

 +2        QUIT