Routine: GMRC101

Package	Total	Call Graph
Consult Request Tracking	1	EN^GMRC101C
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry to build Consult types for Add menus
END
HELP	;?? help for DIR to define types of consults
PROCDURE	;entry to create a Procedure Request
EN1
CONSULT	;entry to create a Consult Type
SETDEF	;Set GMRCDEF once to hold for filling in ORDEF for protocol processing.

External References

Name	Field # of Occurrence
^DIR	EN1+1
EN^GMRC101C	CONSULT+4, PROCDURE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are 2 types of Protocols used by the Consult Package on 'Add Orders'",!,"menus in OE/RR." Line Location: EN+1
Function Call: WRITE	Prompt: !!,"NOTE: All Consult Types in the Protocol file are prefixed with ""GMRCT "".",!,"For A Fast Lookup Of Consult Type Protocols, Type ""GMRCT"" At The Prompt.",! Line Location: CONSULT+2
Function Call: WRITE	Prompt: !!,"NOTE: All Procedure/Requests in the Protocol file are prefixed with ""GMRCR "".",!,"For A Fast Look-up Of Procedures, Type 'GMRCR' At The Prompt.",! Line Location: PROCDURE+2
Function Call: WRITE	Prompt: !!,"Missing Sample Protocol "_GMRCDEFN,! Line Location: SETDEF+1
Function Call: WRITE	Prompt: @IOF Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Protocols defined in this option and Added to Add New Order menus, will have" Line Location: HELP+2
Function Call: WRITE	Prompt: !,"orders created in OE/RR based on the protocols definition." Line Location: HELP+3
Function Call: WRITE	Prompt: !,"(e.g. Item Text: TPN, and Related Consult Service/Specialty: Pharmacy Service" Line Location: HELP+4
Function Call: WRITE	Prompt: !," creates a ""Pharmacy Service TPN"" order in OE/RR if the TPN protocol is" Line Location: HELP+5
Function Call: WRITE	Prompt: !," selected from the Add New Orders menu in OE/RR" Line Location: HELP+6
Function Call: WRITE	Prompt: !!,"CONSULT TYPES are names of consults which are very common, such as: " Line Location: HELP+7
Function Call: WRITE	Prompt: !," ""TPN"" Consult for Hyperalimentation Pharmacy consult" Line Location: HELP+8
Function Call: WRITE	Prompt: !," ""Physical Therapy"" Consult for RMS" Line Location: HELP+9
Function Call: WRITE	Prompt: !," Once the commonly known consults are defined here, they may also be added" Line Location: HELP+10
Function Call: WRITE	Prompt: !," to OE/RR Add New Orders menus for ease of ordering." Line Location: HELP+11
Function Call: WRITE	Prompt: !," Consult Type protocols are always prefixed with ""GMRCT """ Line Location: HELP+12
Function Call: WRITE	Prompt: !!,"PROCEDURE REQUESTS are names of procedures, tests, or other requests" Line Location: HELP+13
Function Call: WRITE	Prompt: !," which are very common, such as: " Line Location: HELP+14
Function Call: WRITE	Prompt: !," ""EKG: Portable""" Line Location: HELP+15
Function Call: WRITE	Prompt: !," Once the commonly known procedures which may be ordered without a consult" Line Location: HELP+16
Function Call: WRITE	Prompt: !," are defined here, they may also be added to OE/RR Add New Orders menus for" Line Location: HELP+17
Function Call: WRITE	Prompt: !," ease of ordering." Line Location: HELP+18
Function Call: WRITE	Prompt: !," Procedure Request protocols are always prefixed with ""GMRCR """ Line Location: HELP+19
Function Call: WRITE	Prompt: !! Line Location: HELP+20
Routine Call	DIR Line Location: EN1+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EN1!
DIR	EN1!, EN1+1!
DIR("??"	EN1*
DIR("A"	EN1*
DIR(0	EN1*
DIROUT	EN1+1, END+1!, HELP+21
DTIME	HELP+20
DTOUT	EN1+1, END+1!, HELP+21
DUOUT	EN1+1, END+1!, HELP+21
GMRCACT	END!
GMRCDEF	SETDEF+1*, END!
GMRCDEFN	CONSULT+1, PROCDURE+1, SETDEF+1, END!
GMRCDESC	CONSULT+1, PROCDURE+1, END!
GMRCEND	EN1, EN1+1, EN1+2, EN1+3, CONSULT+3, PROCDURE+3, SETDEF+1, END!, HELP+21
GMRCPFX	CONSULT+1, PROCDURE+1, END!
GMRCPRF	END!
IOF	HELP+1
ORPKG	END+1!
>> X	HELP+20*
Y	EN1+2, EN1+3, END+1!

Customize PDF page

Package: Consult Request Tracking

Routine: GMRC101

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
CONSULT	EN1+2
EN1	EN1+2, EN1+3
END	EN1+1, EN1+2, EN1+3, HELP+21
PROCDURE	EN1+3
SETDEF	CONSULT+3, PROCDURE+3