GMRCCLR ;SLC/DLT - Kill-off all variables used for consults tracking. ;5/20/98 14:20
;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRCCLR 855 printed Oct 16, 2024@17:46:12 Page 2
GMRCCLR ;SLC/DLT - Kill-off all variables used for consults tracking. ;5/20/98 14:20
+1 ;;3.0;CONSULT/REQUEST TRACKING;**1**;DEC 27, 1997
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 QUIT
