GMRCREXT.m

GMRCREXT ;SLC/DCM - clean-up all variables and ^TMP globals upon exit ;15-Mar-2012 10:41;PLS

 ;;3.0;CONSULT/REQUEST TRACKING;**1,4,12,1001,1003**;DEC 27, 1997;Build 14

 ;Modified - IHS/CIA/MGH - 11/29/2005 - Line +5 - Code changed to use HRCN instead of SSN

 K ^TMP("GMRCR",$J),^TMP("GMRCS",$J),^TMP("GMRCSLIST",$J)

 K DFN,BLK,C,CDT,CNT,TAB,LNCT,CTRLCOL,D1,DATA,GMRCDT,GMRCND,GMRCNO,GMRCDT1,GMRCDT2,GMRCSEX,GMRCPNM,GMRCSSN,SEX,GMRCPTN,GMRCERR,GMRCWLI,GMRCPTR,GMRCSVCP,GMRCWRD,GMRCWT,GMRCDFN

 K GMRCRB,GMRCAGE,GMRCCT,GMRCSN,GMRCHRCN,GMRCSSNM,GMRCDOB,GMRCDGT,GMRCDOB,GMRCGRP,GMRCWRD,GMRCNUL,GMRCQUIT,GMRCELIG,GMRCNUL,GMRCOER,GMRCSEL,GMRCOK,GMRCSSS  ;IHS/CIA/MGH

 K VAEL,VADM,VAERR

 K GMRCBM,GMRCTM,GMRCNUL,GMRCAD,GMRCXMF,GMRC,GMRCO,GMRCND

 Q

GMRCREXT  ;SLC/DCM - clean-up all variables and ^TMP globals upon exit ;15-Mar-2012 10:41;PLS

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**1,4,12,1001,1003**;DEC 27, 1997;Build 14

 +2       ;Modified - IHS/CIA/MGH - 11/29/2005 - Line +5 - Code changed to use HRCN instead of SSN

 +3        KILL ^TMP("GMRCR",$JOB),^TMP("GMRCS",$JOB),^TMP("GMRCSLIST",$JOB)

 +4        KILL DFN,BLK,C,CDT,CNT,TAB,LNCT,CTRLCOL,D1,DATA,GMRCDT,GMRCND,GMRCNO,GMRCDT1,GMRCDT2,GMRCSEX,GMRCPNM,GMRCSSN,SEX,GMRCPTN,GMRCERR,GMRCWLI,GMRCPTR,GMRCSVCP,GMRCWRD,GMRCWT,GMRCDFN

 +5       ;IHS/CIA/MGH

           KILL GMRCRB,GMRCAGE,GMRCCT,GMRCSN,GMRCHRCN,GMRCSSNM,GMRCDOB,GMRCDGT,GMRCDOB,GMRCGRP,GMRCWRD,GMRCNUL,GMRCQUIT,GMRCELIG,GMRCNUL,GMRCOER,GMRCSEL,GMRCOK,GMRCSSS

 +6        KILL VAEL,VADM,VAERR

 +7        KILL GMRCBM,GMRCTM,GMRCNUL,GMRCAD,GMRCXMF,GMRC,GMRCO,GMRCND

 +8        QUIT