Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMRC101

Package: Consult Request Tracking

Routine: GMRC101


Information

GMRC101 ;SLC/DLT - Create Protocol entries for OE/RR ADD orders screens ;5/20/98 14:20

Source Information

Source file <GMRC101.m>

Call Graph

Call Graph Total: 2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101 - [#101] SETDEF+1

Label References

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

Local Variables

Legend:

>> 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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All