Routine: GMRCDRFR

Information

GMRCDRFR ;SLC/JFR - DEFAULT REASON FOR REQUEST UTILS ; 11/12/00 12:00

Source file <GMRCDRFR.m>

Package	Total	Caller Graph
Order Entry Results Reporting	2	ORCDGMRC ORQQCN2
Consult Request Tracking	1	GMRC TEST DEFAULT REASON

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for GMRC DEFAULT REASON
HDR	; -- header code
SELPROC	; get a new procedure
SELSS	; get new service
REAF(GMRCOI)	;return value of RESTRICT DEFAULT REASON EDIT field to CPRS
EXPND	; -- expand code
GETDEF(GMRCARR,GMRCSRV,GMRCDFN,RESOLV)	; return default reason for request ; GMRCARR = array to return containing default RFR ; GMRCSRV = reference to file 123.5 (#;99CON) or file 123.3 (#;99PRC) ; GMRCDFN = patient identifier if to return resolved ; RESOLV = 1 or 0 ; if RESOLV=1 GMRCARR will be returned resolved
INIT	; -- init variables and list array
EXIT	; -- exit code
SELPT	;get new patient
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+9
Routine Call	DIR Line Location: EN+4 SELPT+3 SELSS+5 SELPROC+6

Name	Line Occurrences (* Changed, ! Killed)
^GMR(	GETDEF+8, GETDEF+10, GETDEF+11, REAF+10, REAF+11, REAF+12
^GMR(123.3 - [#123.3]	HDR+1
^GMR(123.5 - [#123.5]	HDR+2
^TMP("GMRCRFR"	SELPT+6!, SELSS+8!, SELPROC+9!, INIT+1, INIT+2, INIT+3, INIT+4*, INIT+5
^TMP("TIUBOIL"	GETDEF+12, GETDEF+13!

Name	Field # of Occurrence
DIR	EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~
DIR("A"	EN+3, SELSS+4, SELPROC+5*
DIR(0	EN+2, SELPT+3, SELSS+4, SELPROC+5
DIROUT	EN+1~
DIRUT	EN+1~, EN+4, SELPT+1~, SELPT+4, SELSS+1~, SELSS+6, SELPROC+2~, SELPROC+7
DTOUT	EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~
DUOUT	EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~
FILE	REAF+8~, REAF+9*, REAF+10, REAF+11, REAF+12
GMRCARR	GETDEF~, GETDEF+10, GETDEF+12
GMRCDFN	EN+1~, GETDEF~, GETDEF+9, GETDEF+11
GMRCFIL	GETDEF+6~, GETDEF+7*, GETDEF+8, GETDEF+10, GETDEF+11
GMRCOI	REAF~, REAF+9, REAF+10, REAF+11, REAF+12
GMRCPAT	EN+7, SELPT+5*, HDR+3, INIT+2, EXIT+1!
GMRCPROC	EN+6, SELSS+3!, SELPROC+4!, SELPROC+8*, HDR+1, INIT+2, EXIT+1!
GMRCSRV	GETDEF~, GETDEF+5, GETDEF+7, GETDEF+8, GETDEF+10, GETDEF+11
GMRCSV	EN+1~, EN+5, SELSS+3!, SELSS+7*, SELPROC+4!, HDR+2, INIT+2, EXIT+1!
RESOLV	GETDEF~, GETDEF+9
U	HDR+1, HDR+2, REAF+11, REAF+12
>> VALMBG	INIT+6*
>> VALMCNT	INIT+5*
>> VALMHDR(1	HDR+1, HDR+2
>> VALMHDR(2	HDR+3*
X	EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~, HELP+1*
Y	EN+1~, EN+5, EN+6, SELPT+1~, SELPT+5, SELSS+1~, SELSS+7, SELPROC+2~, SELPROC+8