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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRCAFRD

Package: Consult Request Tracking

Routine: GMRCAFRD


Information

GMRCAFRD ;SLC/DLT,DCM,JFR - LM FORWARD ACTION ;7/11/03 14:02

Source Information

Source file <GMRCAFRD.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Consult Request Tracking 9 ($$LOCK,UNLOCK)^GMRCA1  SELECT^GMRCA2  EXAC^GMRCADC  ASRV^GMRCASV  ($$ORTX,GETPROV)^GMRCAU  EN^GMRCHL7  (AUDIT,MSG)^GMRCP  DEM^GMRCU  
($$GETDT,PRNT)^GMRCUTL1  
Kernel 3 $$NOW^XLFDT  EN^XQORM  $$PROVIDER^XUSER  
VA FileMan 3 ^DIE  $$GET1^DIQ  ^DIR  
List Manager 1 FULL^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Consult Request Tracking 2 GMRCACT FORWARD  GMRCGUIA  
Kernel 1 ^ORD(101  
Order Entry Results Reporting 1 ORCONSLT  

Entry Points

Name Comments DBIA/ICR reference
FR(GMRCO) ;Forward Request to a new service
FRGTPRV
FRMSG ; Common logic used by GUI and List Manager to process the HL7 message
; to update the order in OE/RR and then forward an alert to recipients
; is passed in as the DUZ instead of the responsible provider
URG ;Get the default urgency
DEFAULT ;Set up defaults for editing to be equal to the existing data.
TYPE ;This entry point is used when the only default needed is the GMRCTYPE
END ;Kill off variables and exit

External References

Name Field # of Occurrence
^DIE FR+55, FRGTPRV+20
$$GET1^DIQ DEFAULT+9, DEFAULT+11, TYPE+2
^DIR FR+13
$$LOCK^GMRCA1 FR+16
UNLOCK^GMRCA1 FRGTPRV+23, END+1
SELECT^GMRCA2 FR+7
EXAC^GMRCADC FR+19, FR+20, FR+24, FR+30, FR+33, FR+39, FR+42, FR+50, FR+51, FRGTPRV+8
, FRGTPRV+19
ASRV^GMRCASV FR+49
$$ORTX^GMRCAU FRMSG+7
GETPROV^GMRCAU FRGTPRV
EN^GMRCHL7 FRMSG+3
AUDIT^GMRCP FRGTPRV+21
MSG^GMRCP FRMSG+8
DEM^GMRCU DEFAULT+1
$$GETDT^GMRCUTL1 FRGTPRV+3
PRNT^GMRCUTL1 FRMSG+11
FULL^VALM1 FR+45
$$NOW^XLFDT FRGTPRV+4
EN^XQORM URG+9
$$PROVIDER^XUSER FRGTPRV+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Forward Request To Another Service For Action."
  • Line Location: FR+2
Function Call: WRITE
  • Prompt: !,"Select the service to send the consult to.",!
  • Line Location: FR+3
Function Call: WRITE
  • Prompt: !,"The requesting facility may not take this action on an "
  • Line Location: FR+11
Function Call: WRITE
  • Prompt: "inter-facility consult."
  • Line Location: FR+12
Function Call: WRITE
  • Prompt: !!,"This is a SERVICE ENTERED order stub. Please send the written consult to the",!,"Service, in addition to the automated forwarding!"
  • Line Location: FR+46
Routine Call
  • DIE
  • Line Location:
    • FR+55
    • FRGTPRV+20
Routine Call
  • DIR
  • Line Location:
    • FR+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] GET1^DIQ
^GMR(123 - [#123] Classic Fileman Calls,  GET1^DIQ
^GMR(123.3 - [#123.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] FR+9, FR+19, FR+20, FR+21, FR+25, FR+26, FR+34, FR+35, FR+46, FR+47
, FR+51, FR+52, FR+56, FRGTPRV+19, FRGTPRV+20, FRMSG+5, URG+2, DEFAULT+4
^GMR(123.5 - [#123.5] FRGTPRV+8, FRGTPRV+9, FRGTPRV+12, FRGTPRV+13, FRGTPRV+14, FRMSG+10, DEFAULT+5
^ORD(101 - [#101] URG+6, URG+7, DEFAULT+6, DEFAULT+7
^TIU(8925 - [#8925] FR+28, FR+31, FR+37, FR+40
^TMP("GMRC" END+5

Label References

Name Line Occurrences
DEFAULT FRGTPRV+6
END FR+7, FR+8, FR+14, FR+16, FR+19, FR+20, FR+24, FR+30, FR+33, FR+39
, FR+42, FR+49, FR+50, FR+51, FRGTPRV, FRGTPRV+3, FRGTPRV+8, FRGTPRV+10, FRGTPRV+19, FRMSG+12
FRGTPRV FRGTPRV+1
URG FRGTPRV+10

Naked Globals

Name Field # of Occurrence
^( FRGTPRV+9
^("MENU" END+5
^(0 DEFAULT+4, DEFAULT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA FR+54*, FRGTPRV+17*, FRGTPRV+19!, FRGTPRV+20!
DFN FR+1~, FR+47*, FRMSG+3, FRMSG+8
DIE FR+53~, FR+54*, FRGTPRV+17*, FRGTPRV+19!, FRGTPRV+20!
DIR FR+10~
DIR(0 FR+13*
DIROUT FR+49, URG+1~, URG+9, END+4!
DIRUT URG+1~
DR FR+53~, FR+54*, FRGTPRV+11*, FRGTPRV+16*, FRGTPRV+18*, FRGTPRV+19!, FRGTPRV+20!
DTOUT FR+49, URG+1~, END+4!
DUOUT URG+1~, END+4!
DUZ FRMSG+3, FRMSG+6
GETPROV FR+58*, END+2!
GMRC DEFAULT+2~
GMRC(0 DEFAULT+4*, DEFAULT+5, DEFAULT+6, DEFAULT+7, DEFAULT+8
GMRCA FRGTPRV+5~, FRGTPRV+11*, FRGTPRV+15*
GMRCACT FR+1~, FRGTPRV+1*
GMRCAD FR+5~, FRGTPRV+3*, FRGTPRV+4*, FRMSG+3
GMRCADUZ FR+5~, FRMSG+4*, FRMSG+8, END+3!
GMRCADUZ( FRMSG+6*
GMRCASV FR+48*, FR+49!
GMRCATTN FR+5~, FR+52*, FR+54, FR+57
GMRCDEV FRMSG+10*, FRMSG+11, END+2!
GMRCDG FR+5~, FR+50, FR+51, FRGTPRV+7, END+2!
GMRCDIC DEFAULT+2~
GMRCDOC FR+1~, FR+25*, FR+26*, FR+27, FR+28, FR+31, FR+34*, FR+35*, FR+36, FR+37
, FR+40
GMRCEND FRGTPRV+10, URG+9*, URG+11*, END+2!
GMRCFF FR+5~, FR+51*, END+2!
GMRCIFN END+2!
GMRCINM FRGTPRV+5~, FRGTPRV+14*
GMRCIROL FRGTPRV+5~, FRGTPRV+15*
GMRCIROU FRGTPRV+5~, FRGTPRV+13*
GMRCLCK FR+1~, FR+17*, FRGTPRV+23, END+1
GMRCMSG FR+19*, FR+20*, FR+22*, FR+24, FR+29*, FR+30, FR+32*, FR+33, FR+38*, FR+39
, FR+41*, FR+42, FR+50*, FR+51*, FRGTPRV+5~, FRGTPRV+8*, FRGTPRV+19*
GMRCMSG(1 FR+23*, FRGTPRV+19*
GMRCO FR~, FR+7, FR+8, FR+9, FR+16, FR+19, FR+20, FR+21, FR+25, FR+26
, FR+34, FR+35, FR+46, FR+47, FR+51, FR+52, FR+54, FR+56, FRGTPRV+17, FRGTPRV+19
, FRGTPRV+20, FRGTPRV+23, FRMSG+3, FRMSG+5, FRMSG+7, FRMSG+8, FRMSG+11, URG+2, DEFAULT+3, DEFAULT+4
, TYPE+2, END+1, END+2!
GMRCOM FRGTPRV+21*, FRMSG+3, FRMSG+9!, DEFAULT+4*, END+2!
GMRCORNP FR+5~, FRGTPRV, FRGTPRV+1, FRMSG+5*, FRMSG+6, END+2!
GMRCORTX FRMSG+7*, FRMSG+8, END+3!
GMRCPA FR+5~, FR+57*
GMRCPL FR+5~, DEFAULT+3*, DEFAULT+6*, END+3!
GMRCPLI DEFAULT+2~, DEFAULT+6*
GMRCPR FR+5~, DEFAULT+3*, DEFAULT+9*, DEFAULT+11*, END+3!
GMRCPRI DEFAULT+2~, DEFAULT+3*, DEFAULT+8*, DEFAULT+9, DEFAULT+10, DEFAULT+11
GMRCQUT FR+6!, FR+7, FR+8*, FR+15*, FR+16*, FR+19*, FR+20*, FR+21, FR+24*, FR+25
, FR+30*, FR+33*, FR+34, FR+39*, FR+42*, FR+43, FR+49, FR+50*, FR+51*, FRGTPRV*
, FRGTPRV+3*, FRGTPRV+8*, FRGTPRV+10*, FRGTPRV+19*
>> GMRCRB FRMSG+3
GMRCSEL FR+6!, END+3!
GMRCSEQ FR+1~, FR+25*, FR+26, FR+34*, FR+35
GMRCSS FR+4, FRGTPRV+5~, FRGTPRV+7*, FRGTPRV+8, FRGTPRV+9, FRGTPRV+12, FRGTPRV+13, FRGTPRV+14, FRMSG+10, FRMSG+11
, DEFAULT+3*, DEFAULT+5*
GMRCSSNM FRGTPRV+5~, FRGTPRV+9*, DEFAULT+3*, DEFAULT+5*
GMRCSSS FR+4*, FR+6!
GMRCTO FR+5~, FR+48*
GMRCTYPE FRMSG+3, URG+3, TYPE+2*, END+3!
GMRCURG FR+5~, FRMSG+7, URG+6*, URG+9, URG+12*, DEFAULT+3*, DEFAULT+7*, END+3!
GMRCURGI URG+6*, URG+12*, DEFAULT+7*, END+4!
>> IOBM FR+45
>> IOSTBM FR+45
>> IOTM FR+45
NEWATTN FR+5~, FR+56*, FR+57
ORSTS FRGTPRV+5~, FRGTPRV+17*
ORVP FR+1~
U FR+9, FR+28, FR+31, FR+35, FR+37, FR+40, FRGTPRV+1, FRGTPRV+9, FRGTPRV+13, FRGTPRV+14
, DEFAULT+5
>> VISIT FRMSG+3
X URG+1~, URG+3*, URG+4*, URG+5*, URG+7, URG+9
XQORM URG+1~, URG+8*, URG+9!, URG+10*
XQORM("A" URG+8*, URG+10!
XQORM("B" URG+9*, URG+10!
XQORM("HIJACK" END+5*
XQORM("NO^^" URG+8*, URG+10!
XQORM(0 URG+8*, URG+10!
Y URG+1~, URG+7*, URG+8, URG+11, END+3!
Y(1 URG+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All