- 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 Feb 18, 2025@23:11:43 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