Routine: GMRCUTL1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Local Variables

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
Consult Request Tracking	1	$$VALID^GMRCAU
Order Entry Results Reporting	1	($$LOCK1,UNLK1)^ORX2
Text Integration Utility	1	BLRPLT^TIUSRVD
VA Fileman	1	^DIR
VueCentric Framework	1	GETPAR^CIAVMRPC

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZTLOAD

Consult Request Tracking

$$VALID^GMRCAU

Order Entry Results Reporting

($$LOCK1,UNLK1)^ORX2

Text Integration Utility

BLRPLT^TIUSRVD

VA Fileman

^DIR

VueCentric Framework

GETPAR^CIAVMRPC

Package	Total	Caller Graph
Consult Request Tracking	11	GMRCA1 GMRCAAC GMRCADC GMRCAFRD GMRCEDT4 GMRCGUIA GMRCGUIC GMRCHL7B GMRCIAC1 GMRCIAC2 GMRCIACT
Order Entry Results Reporting	3	ORCDGMRC ORQQCN1 ORQQCN2

Package

Total

Caller Graph

Consult Request Tracking

GMRCA1 GMRCAAC GMRCADC GMRCAFRD GMRCEDT4 GMRCGUIA GMRCGUIC GMRCHL7B
GMRCIAC1 GMRCIAC2 GMRCIACT

Order Entry Results Reporting

ORCDGMRC ORQQCN1 ORQQCN2

Entry Points

Name	Comments	DBIA/ICR reference
END
ORIFN(GMRC123)	;return ORIFN associated with give record in ^GMR(123, ; GMRC123 = ien of consult record in file 123
PREREQ(GMRCARR,GMRCSRV,GMRCDFN,UNRESOLV)	; return service pre-requisite ; pre-requisite stored in 125 nodes in file 123.5 or 123.3 ; GMRCARR = array to return containing pre-requisite ; GMRCSRV = ref to file 123.5 (ien;99CON) or 123.3 (ien;99PRC) ; GMRCDFN = patient identifier if to return resolved ; UNRESOLV = 1 or 0 ; if UNRESOLV=1 GMRCARR will be returned unresolved
UNLKREC(GMRCDA)	;unlock a consult record ; Input: ; GMRCDA = ien of consult record from file 123
DCPRNT(IEN,USER)	;reprint SF-513 on DC?
ACTM	;;Set correct variables to complete, discontinue, etc. a consult
PROVDX(OI)	;return PROV DX prompting info from 123.5 ; Input: ; OI = ref to file 123.5("#;99CON") or file 123.3 (#;99PRC)
GETDT(PROMPT,DEFAULT)	;prompt and return FM date
LOCKREC(GMRCDA)	;attempt to lock a consult record using order or record ; Input: ; GMRCDA = ien of consult record from file 123
PRNT(SRVCIFN,GMRCO)	;print form 513 to a printer when new consult is entered

Name	Field # of Occurrence
^%ZIS	PRNT+5
HOME^%ZIS	PRNT+5, PRNT+11
^%ZTLOAD	PRNT+10
GETPAR^CIAVMRPC	PROVDX+16
^DIR	GETDT+12
$$VALID^GMRCAU	DCPRNT+6
$$LOCK1^ORX2	LOCKREC+11
UNLK1^ORX2	UNLKREC+7
BLRPLT^TIUSRVD	PREREQ+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(	PROVDX+11, PREREQ+9, PREREQ+11, PREREQ+12
^GMR(123 - [#123]	PRNT+2, ORIFN+2, DCPRNT+2, LOCKREC+9, LOCKREC+15, UNLKREC+5, UNLKREC+8
^GMR(123.1 - [#123.1]	ACTM+2, ACTM+3, ACTM+4
^GMR(123.3 - [#123.3]	PROVDX+13
^GMR(123.5 - [#123.5]	PRNT+3, PRNT+4, PROVDX+14, DCPRNT+3
^TMP("TIUBOIL"	PREREQ+13, PREREQ+14!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRNT+1~, PRNT+5, PRNT+11
DATA	PROVDX+12~, PROVDX+16, PROVDX+17
DEFAULT	GETDT~, GETDT+11
DIR	GETDT+7~
DIR("?"	GETDT+9*
DIR("A"	GETDT+10*
DIR("B"	GETDT+11*
DIR(0	GETDT+8*
DIROUT	GETDT+7~
DIRUT	GETDT+7~
DTOUT	GETDT+7~, GETDT+13
DUOUT	GETDT+7~, GETDT+13
GMRC123	ORIFN~, ORIFN+2
>> GMRCA	ACTM+2*, ACTM+3, ACTM+4, ACTM+5
>> GMRCACTM	ACTM+2, ACTM+3*
GMRCARR	PREREQ~, PREREQ+11, PREREQ+13
GMRCAUDT	PRNT+1~, PRNT+6*, PRNT+7
>> GMRCCPY	PRNT+7
GMRCDA	LOCKREC~, LOCKREC+9, LOCKREC+15, UNLKREC~, UNLKREC+5, UNLKREC+8
GMRCDEV	PRNT+1~, PRNT+6*, PRNT+9, END!
GMRCDEV1	PRNT+12!, END!
GMRCDFN	PREREQ~, PREREQ+10, PREREQ+12
GMRCFIL	PROVDX+8~, PROVDX+10, PROVDX+11, PROVDX+13, PROVDX+14, PREREQ+7~, PREREQ+8, PREREQ+9, PREREQ+11, PREREQ+12
GMRCFMT	END!
GMRCMSG	LOCKREC+8~, LOCKREC+11*, LOCKREC+13
GMRCO	PRNT~, PRNT+2, PRNT+7
GMRCORD	LOCKREC+8~, LOCKREC+9, LOCKREC+10, LOCKREC+11, UNLKREC+4~, UNLKREC+5, UNLKREC+6, UNLKREC+7
GMRCOREC	END!
GMRCQUED	PRNT+1~, PRNT+6*, PRNT+12!
GMRCQUT	ACTM+1!, ACTM+5*
GMRCSRV	PREREQ~, PREREQ+6, PREREQ+8, PREREQ+9, PREREQ+11, PREREQ+12
IEN	DCPRNT~, DCPRNT+2, DCPRNT+6
ION	PRNT+6
IOP	PRNT+1~, PRNT+4*
NODE	PROVDX+12~, PROVDX+13, PROVDX+14, PROVDX+18, PROVDX+19, PROVDX+20
OI	PROVDX~, PROVDX+9, PROVDX+10, PROVDX+11, PROVDX+13, PROVDX+14
>> ORSTS	ACTM+4*
ORVP	PRNT+1~
POP	PRNT+1~, PRNT+5
PROMPT	GETDT~, GETDT+10
REPR	DCPRNT+1~, DCPRNT+3*, DCPRNT+4, DCPRNT+5, DCPRNT+6
SERV	DCPRNT+1~, DCPRNT+2*, DCPRNT+3, DCPRNT+6
SRVCIFN	PRNT~, PRNT+2*, PRNT+3, PRNT+4
STRING	PROVDX+12~, PROVDX+19, PROVDX+20, PROVDX+21
>> TIUFLG	PRNT+7
U	PRNT+2, PROVDX+13, PROVDX+14, PROVDX+19, PROVDX+20, ORIFN+2, DCPRNT+2, DCPRNT+3, LOCKREC+9, UNLKREC+5
UNRESOLV	PREREQ~, PREREQ+10
USER	DCPRNT~, DCPRNT+6
X	GETDT+7~
Y	GETDT+7~, GETDT+13*, GETDT+14
ZTDESC	PRNT+1~, PRNT+8*
ZTDTH	PRNT+1~, PRNT+9*
ZTIO	PRNT+1~, PRNT+9*
ZTRTN	PRNT+1~, PRNT+7*
ZTSK	PRNT+1~

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCUTL1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Global Variables Directly Accessed

Local Variables

Legend: