GMRCCLR.m

GMRCCLR ;SLC/DLT - Kill-off all variables used for consults tracking. ;15-Mar-2012 10:39;PLS

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

 ;Modified - IHS/CIA/MGH - 11/28/2005 - Line CLRTRK+6 - Added variable for HRCN

CLRTRK ;SLC-IRMFO/DCM; Kill-off all variables used to display consults

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

 K ^TMP("GMRC",$J),^TMP("GMRCSLIST",$J)

 K X,BLK,CDT,CNT,DA,DFN,D0,J1,NO,PL,TO,WP,FLG,LIN,POP,SEX,STS,TAB,BKLN,DATA,PROC,URG,WRD,LINE,LNCT,GMRC(0),GMRC(40),GMRCD,GMRCCT,GMRCD1,GMRCO,GMRCRB,GMRCSEX,GMRCDT,LASTA,LINE,ORIFN,GMRCDA,GMRCDG,GMRCDOB,GMRCLA,GMRCND,GMRCNO,GMRCSN

 K DSPLINE,CTRLCOL,GMRCDGT,GMRCDT1,GMRCDT2,GMRCGRP,GMRCIFN,GMRCLA1,GMRCAGE,GMRCDGT,GMRCHDR,GMRCPNM,GMRCPRT,GMRCQUT,GMRCSSN,GMRCPTN,GMRCSVC,GMRCPRNM,GMRCPROC,GMRCSSNM,GMRCWARD,ORACTION

 K GMRCA,GMRCFMDT,GMRCOR,GMRCWT,GMRCOPT,GMRCSS,GMRCACTM,GMRCWRD,GMRCNUL,GMRCVP,GMRCQIT,GMRCORNP,GMRCUSER,GMRCORVP,GMRCOER,GMRCXMF,GMRCSEL,GMRC

 K GMRCHRCN  ;IHS/CIA/MGH

 Q

GMRCCLR   ;SLC/DLT - Kill-off all variables used for consults tracking. ;15-Mar-2012 10:39;PLS

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

 +2       ;Modified - IHS/CIA/MGH - 11/28/2005 - Line CLRTRK+6 - Added variable for HRCN

CLRTRK    ;SLC-IRMFO/DCM; Kill-off all variables used to display consults

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

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

 +3        KILL X,BLK,CDT,CNT,DA,DFN,D0,J1,NO,PL,TO,WP,FLG,LIN,POP,SEX,STS,TAB,BKLN,DATA,PROC,URG,WRD,LINE,LNCT,GMRC(0),GMRC(40),GMRCD,GMRCCT,GMRCD1,GMRCO,GMRCRB,GMRCSEX,GMRCDT,LASTA,LINE,ORIFN,GMRCDA,GMRCDG,GMRCDOB,GMRCLA,GMRCND,GMRCNO,GMRCSN

 +4        KILL DSPLINE,CTRLCOL,GMRCDGT,GMRCDT1,GMRCDT2,GMRCGRP,GMRCIFN,GMRCLA1,GMRCAGE,GMRCDGT,GMRCHDR,GMRCPNM,GMRCPRT,GMRCQUT,GMRCSSN,GMRCPTN,GMRCSVC,GMRCPRNM,GMRCPROC,GMRCSSNM,GMRCWARD,ORACTION

 +5        KILL GMRCA,GMRCFMDT,GMRCOR,GMRCWT,GMRCOPT,GMRCSS,GMRCACTM,GMRCWRD,GMRCNUL,GMRCVP,GMRCQIT,GMRCORNP,GMRCUSER,GMRCORVP,GMRCOER,GMRCXMF,GMRCSEL,GMRC

 +6       ;IHS/CIA/MGH

           KILL GMRCHRCN

 +7        QUIT