Routine: GMRCPC1

Name	Comments	DBIA/ICR reference
CASE	;
FND(CD)	;status already selected?
END
TESTPT()	;IHS/MSC/MGH Check to see if test pts included.
STCK(RES)	;change code to status
STSAGAIN	;Loop to get another status.
ENDCASE
NUMBER	;
STS()	;Select a set of status for view.
CKCODE(CODE)	;
ENSTS	;GMRC List Manager Routine -- Second entry point for GMRC PENDING CONSULTS with user selected statuses
NEWSTS	;

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"Already selected" Line Location: CKCODE+1
Routine Call	DIR Line Location: STSAGAIN+9 TESTPT+7

Name	Line Occurrences
$$FND	CKCODE+1
$$STS	ENSTS+1, NEWSTS+3
CKCODE	CASE+4, CASE+5, CASE+6, CASE+7, CASE+8, CASE+9, CASE+10, CASE+11, CASE+12, CASE+13 , CASE+14, CASE+15, CASE+16, CASE+17, CASE+18, CASE+19, CASE+20
END	STSAGAIN+10, STSAGAIN+11
STCK	STSAGAIN+12
STSAGAIN	STSAGAIN+13

Name	Field # of Occurrence
CD	FND~, FND+1, FND+2, FND+3
CODE	STCK+1~, CASE+4*, CKCODE~, CKCODE+1, CKCODE+2, CKCODE+3
DIR	STS+2~, TESTPT+3!, TESTPT+10!
DIR("?"	TESTPT+5*
DIR("A"	STSAGAIN+4, STSAGAIN+7, TESTPT+6*
DIR("B"	STSAGAIN+5, STSAGAIN+8!, TESTPT+6
DIR(0	STSAGAIN+3, TESTPT+4
>> DIRUT	TESTPT+8
>> DTOUT	STSAGAIN+10
>> DUOUT	STSAGAIN+10
>> GMRCCTRL	NUMBER+1, NUMBER+2
>> GMRCQUT	ENSTS+2, NEWSTS+4, STSAGAIN+10, TESTPT+8
>> GMRCSTAT	ENSTS+1, NEWSTS+2, NEWSTS+3, NEWSTS+4*
GMRCSTCK	STS+2~, STSAGAIN+6, STSAGAIN+13, END, CASE+1, CKCODE+1, CKCODE+2, CKCODE+3*, FND+1, FND+2 , FND+3
>> IOBM	STS+1
>> IOSTBM	STS+1
>> IOTM	STS+1
RES	STCK~, CASE+1, CASE+3, CASE+5, CASE+6, CASE+7, CASE+8, CASE+9, CASE+10, CASE+11 , CASE+12, CASE+13, CASE+14, CASE+15, CASE+16, CASE+17, CASE+18, CASE+19, CASE+20
RESULT	TESTPT+2~, TESTPT+9*, TESTPT+11
TEMPSTAT	NEWSTS+1~, NEWSTS+2*, NEWSTS+4
X	STS+2~
Y	STS+2~, STSAGAIN+11, STSAGAIN+12, TESTPT+9

Information