Routine: GMRCSTSU

Entry Points

Name	Comments	DBIA/ICR reference
CPRSUPD(GMRCO)	;Update CPRS order with new status
END
END1
TIURSL	;Get TIU results to update the Consults package
LOOP	;LOOP Thru TIU entries to populate the 50th node.
ONETIME	;One time run to load the file 123 consult entry multiple results
ONETIMER	;
XREF	;re-create cross references for specific fields in files
NWXREF	;Create new cross references for specific fields in file 123
QUEUE(ZTRTN,ZTDESC,ZTDTH,ZTIO)	;

Name	Field # of Occurrence
^%ZTLOAD	QUEUE+14
ENALL^DIK	XREF+9, XREF+17, NWXREF+5, NWXREF+10, NWXREF+19
$$LOAD^GMRCTIUA	ONETIMER+6
ADDRSLT^GMRCTIUA	LOOP+11
BMES^XPDUTL	XREF+2, XREF+10, NWXREF+2, NWXREF+7, NWXREF+12

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"One time load Queued to run. Task#",ZTSK Line Location: ONETIME+5
Function Call: WRITE	Prompt: !,"One Time load failed to queue." Line Location: ONETIME+6

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

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	CPRSUPD+4, LOOP+7, LOOP+8!, ONETIMER+4, ONETIMER+5, ONETIMER+6, NWXREF+15
^GMR(123.5 - [#123.5]	XREF+3!, XREF+5, XREF+12, XREF+13!
^TIU(8925 - [#8925]	LOOP+2, LOOP+3, LOOP+4, LOOP+5
^TMP("GMRCS"	END1+1!
^TMP("GMRCSLIST"	END1+1!

Name	Field # of Occurrence
^(0	CPRSUPD+4

Name	Field # of Occurrence
CTRLCODE	CPRSUPD+3~
DA	CPRSUPD+8!, END1!, NWXREF+13~
DA(1	XREF+6, XREF+7, XREF+14, XREF+15, NWXREF+16*, NWXREF+17
DFN	CPRSUPD+3~, CPRSUPD+4*
DIE	CPRSUPD+8!
DIK	XREF+7, XREF+15, NWXREF+1~, NWXREF+3, NWXREF+8, NWXREF+13~, NWXREF+17*
DIK(1	XREF+8, XREF+16, NWXREF+4, NWXREF+9, NWXREF+18*
DR	CPRSUPD+8!
GMRCDT	END1!, ONETIMER+3, ONETIMER+4, ONETIMER+5
GMRCIDT	END1!
GMRCO	CPRSUPD~, CPRSUPD+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+11, ONETIMER+5, ONETIMER+6, NWXREF+13~ , NWXREF+14, NWXREF+15, NWXREF+16
GMRCOM	END1!
GMRCORFN	CPRSUPD+3~, CPRSUPD+4*
GMRCPCNT	END1!
GMRCPROV	CPRSUPD+3~, CPRSUPD+4*
GMRCSTS	CPRSUPD+3~, CPRSUPD+4*, CPRSUPD+8!
GMRCTRLC	END1!
>> GMRCVDA	LOOP+10*, LOOP+11
>> GMRCY	LOOP+1, ONETIMER+3, ONETIMER+6*
ORIFN	CPRSUPD+3~
ORSTS	CPRSUPD+3~
>> PASS	TIURSL+3*, LOOP+8
SVC	XREF+1~, XREF+4, XREF+5, XREF+6, XREF+11, XREF+12, XREF+13, XREF+14
>> TIUDA	LOOP+1, LOOP+3, LOOP+4, LOOP+5, LOOP+10
>> TIUEDT	LOOP+1, LOOP+2, LOOP+3
ZTCPU	QUEUE+7~
ZTDESC	QUEUE~, QUEUE+11*
ZTDTH	QUEUE~, QUEUE+13*
ZTIO	QUEUE~, QUEUE+12*
ZTPAR	QUEUE+7~
ZTPRE	QUEUE+7~
ZTPRI	QUEUE+7~
ZTRTN	QUEUE~, QUEUE+10
ZTSAVE	QUEUE+8~
ZTSK	ONETIME+3~, ONETIME+4*, ONETIME+5, QUEUE+8~, QUEUE+16
ZTUCI	QUEUE+8~