GMRCREXT.m

GMRCREXT ;SLC/DCM - clean-up all variables and ^TMP globals upon exit ;7/16/98  03:49

 ;;3.0;CONSULT/REQUEST TRACKING;**1,4,12**;DEC 27, 1997

 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,GMRCSSNM,GMRCDOB,GMRCDGT,GMRCDOB,GMRCGRP,GMRCWRD,GMRCNUL,GMRCQUIT,GMRCELIG,GMRCNUL,GMRCOER,GMRCSEL,GMRCOK,GMRCSSS

 K VAEL,VADM,VAERR

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRCREXT   609     printed  Apr 09, 2024@20:50:39                                                                                                                                                                                                     Page 2

GMRCREXT  ;SLC/DCM - clean-up all variables and ^TMP globals upon exit ;7/16/98  03:49

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**1,4,12**;DEC 27, 1997

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

 +3        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

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

 +5        KILL VAEL,VADM,VAERR

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

 +7        QUIT