Routine: GMRCONS3

Name	Comments	DBIA/ICR reference
CASE	;
FND(CD)	;status already selected?
CT3	;print clinic summary
END
STCK(RES)
STSAGAIN	;Loop to get another status.
SUMARY	;
ENDCASE
NUMBER	;
SETNOD	;
STS()	;Select a set of status for view.
HEADER	;
CKCODE(CODE)	;
SPC(DATA,COL)	;
NEWSTS	;

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	CT3+9
^SC - [#44]	CT3+9
^SC("AWAS1"	CT3+8, CT3+9
^TMP("GMRCR"	CT3+1!, SETNOD+1*
^TMP($J	CT3+2, CT3+3, CT3+5, CT3+6

Name	Line Occurrences
$$FND	CKCODE+1
$$SPC	CT3+11, CT3+13, CT3+15, HEADER+1, HEADER+2, HEADER+3
$$STS	NEWSTS+3
CKCODE	CASE+4, CASE+5, CASE+6, CASE+7, CASE+8, CASE+9, CASE+10, CASE+11
CT3	NEWSTS+5
END	STSAGAIN+8, STSAGAIN+9
HEADER	CT3+4
SETNOD	CT3+12, CT3+14, CT3+15, HEADER+1, HEADER+3
STCK	STSAGAIN+10
STSAGAIN	STSAGAIN+11

Name	Field # of Occurrence
^(	CT3+6

Name	Field # of Occurrence
>> A	CT3+2*, CT3+3, CT3+5, CT3+6, HEADER+1
>> B	CT3+3*, CT3+5, CT3+6, CT3+7
CD	FND~, FND+1, FND+2, FND+3
>> CLINIC	CT3+9*, CT3+13
>> CNSDT	CT3+6*
>> CNSLT	CT3+6*, CT3+8, CT3+9
>> CNSLTND	CT3+6*, CT3+11
CODE	STCK+1~, CASE+4*, CKCODE~, CKCODE+1, CKCODE+4, CKCODE+5
COL	SPC~, SPC+1
DATA	SPC~, SPC+1
DIR	STS+2~
DIR("A"	STSAGAIN+2, STSAGAIN+5
DIR("B"	STSAGAIN+3*, STSAGAIN+6!
DIR(0	STSAGAIN+1*
>> DSH	HEADER+3
>> DTOUT	STSAGAIN+8
>> DUOUT	STSAGAIN+8
>> FR	HEADER+1
>> GMRCCTRL	NUMBER+1, NUMBER+2
>> GMRCQUT	STSAGAIN+8*
>> GMRCSTAT	NEWSTS+2, NEWSTS+3*, CT3+3
GMRCSTCK	STS+2~, STSAGAIN+4, STSAGAIN+11, END, CASE+1, CKCODE+1, CKCODE+4, CKCODE+5*, FND+1, FND+2 , FND+3
HDR	CT3+3*, CT3+4!
>> I	CT3+15*
>> II	CT3+15*
>> IOBM	STS+1
>> IOSTBM	STS+1
>> IOTM	STS+1
>> L1	SPC+1*
>> L2	SPC+1*
>> L3	SPC+1*
>> LN	CT3+2, SETNOD+1
>> P3	CT3+7*
>> P4	CT3+7*, CT3+11
>> P6	CT3+7*, CT3+8, CT3+12
>> PC3	CT3+15*
>> PRTCNDT	CT3+6*, CT3+11
>> PTNM	CT3+6*, CT3+11
RES	STCK~, CASE+1, CASE+3, CASE+5, CASE+6, CASE+7, CASE+8, CASE+9, CASE+10, CASE+11
>> SDAPT	CT3+9*, CT3+10
>> SDAPT1	CT3+9*, CT3+13
>> SDAPTIM	CT3+10*, CT3+13
>> SETNOD	CT3+11, CT3+13, CT3+14, CT3+15, HEADER+1, HEADER+2, HEADER+3*, SETNOD+1
>> SM	CT3+15*
SPC	SETNOD+1, SPC+1~, SPC+2
>> STCOD	CT3+9*, CT3+13
SUM	CT3+3!, CT3+14
SUM(	CT3+5*, CT3+15
TEMPSTAT	NEWSTS+1~, NEWSTS+2*
>> TEXT	CT3+7*
>> TO	HEADER+1
>> TX	CT3+7*
U	CT3+6, CT3+9, CT3+11
>> VALMCNT	SETNOD+1*
X	STS+2~
Y	STS+2~, STSAGAIN+9, STSAGAIN+10, CT3+10*

Information