Routine: GMRCQCST

Information

GMRCQCST ;SLC/DCM - Gather all consults for QC that do not have status of discontinued,complete, or expired ;15-Mar-2012 10:41;PLS

Package	Total	Call Graph
Consult Request Tracking	2	$$HRCN^GMRCMP REGDTM^GMRCU
VA Fileman	1	MIX^DIC1

Name	Comments	DBIA/ICR reference
STS(SRV)	;;Set partial statistics into the ^TMP global for printing
EN1	;Collect all consults for service chosen, excluding status discontinued
EN	;Use fileman to get service
KILL	;Kill all variables
PROC(GMRCSRV)	;Set status' info into the ^TMP global

FileNo	Call Tags
^GMR(123.5 - [#123.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PROC+8
^GMR(123 - [#123]	PROC+2, PROC+3, PROC+5, PROC+10
^GMR(123.1 - [#123.1]	PROC+11
^GMR(123.5 - [#123.5]	EN1+4, EN1+5
^SC - [#44]	PROC+13
^TMP("GMRCR"	STS+4, STS+6, STS+7, STS+9, EN1+1!, EN1+5, EN1+7, EN1+8, EN1+9, EN1+10* , EN1+11, EN1+12, EN1+15, PROC+15

Name	Field # of Occurrence
>> D	EN+3*
DIC	EN+2*, EN+4!
DIC("A"	EN+2*
DIC("S"	EN+3*
DIC(0	EN+2*
DIROUT	EN+4!
DTOUT	EN+4!
DUOUT	EN+4!
DUZ(2	PROC+9
GMRCBM	KILL+1!
>> GMRCCT	STS+4, STS+6, STS+7, STS+9, EN1+2, EN1+5, EN1+7, EN1+8, EN1+9, EN1+10 , EN1+11, EN1+12, EN1+15, EN1+16, PROC+15
GMRCD	PROC+10*, KILL+1!
GMRCD(0	PROC+5*, PROC+8, PROC+13
GMRCDA	PROC+10*, KILL+1!
GMRCDA(0	PROC+10*, PROC+11
GMRCDLA	PROC+5, PROC+11, PROC+15, KILL+1!
GMRCDT	PROC+4*, PROC+15, KILL+1!
GMRCLOC	PROC+13*, PROC+15, KILL+1!
GMRCND	KILL+1!
GMRCPT	PROC+3*, PROC+5, PROC+10, KILL+1!
GMRCPTN	PROC+8*, PROC+15, KILL+1!
GMRCPTSN	PROC+9*, PROC+15, KILL+1!
GMRCQUT	EN+1!, EN+4*
>> GMRCS(0	PROC+9
GMRCSND	EN1+2*, KILL+1!
GMRCSRV	PROC~, PROC+2, PROC+3, KILL+1!
GMRCSVC	EN+5, EN1+2, EN1+4, EN1+7, KILL+1!
GMRCSVCN	EN+5, EN1+4, EN1+5, EN1+7, KILL+1!
>> GMRCSVCP	STS+4, EN+5*
>> GMRCSVTT	EN1+3*
GMRCT	KILL+1!
GMRCTM	KILL+1!
GMRCTOT	EN1+2, EN1+15, PROC+3, KILL+1!
GMRCTOT(	STS+5, STS+7, EN1+10, EN1+12, PROC+2, PROC+3
GMRCTOT(11	EN1+2*
GMRCTOT(3	EN1+2*
GMRCTOT(4	EN1+2*
GMRCTOT(5	EN1+2*
GMRCTOT(6	EN1+2*
GMRCTOT(7	EN1+2*
GMRCTOT(8	EN1+2*
GMRCTOT(9	EN1+2*
GMRCTOT(99	EN1+2*
GMRCTOTS	STS+3, STS+7, STS+9, KILL+1!
GMRCXDT	PROC+2*, PROC+3, PROC+4, KILL+1!
I	EN1+10, EN1+11, EN1+12, PROC+2, PROC+3, PROC+14, KILL+1!
K	STS+5*, STS+6, STS+7, KILL+1!
SRV	STS~, STS+5, STS+7
STS	PROC+14*, PROC+15, KILL+1!
TAB	EN1+2*, PROC+15, KILL+1!
X	PROC+1~, PROC+4, PROC+5, PROC+9
Y	EN+4, EN+5, KILL+1!