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 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  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Consult Request Tracking 1 GMRCGUIA  
Order Entry Results Reporting 1 ORCONSLT  

Entry Points

Name Comments DBIA/ICR reference
FR(GMRCO) ;Forward Request to a new service
URG ;Get the default urgency
END ;Kill off variables and exit
DEFAULT ;Set up defaults for editing to be equal to the existing data.
FRGTPRV
TYPE ;This entry point is used when the only default needed is the GMRCTYPE
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

External References

Name Field # of Occurrence
^DIE 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+31, FR+32, FRGTPRV+8, FRGTPRV+19
ASRV^GMRCASV FR+30
$$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+26
$$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+27
Routine Call
  • DIE
  • Line Location:
    • 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+27, FR+28, FR+32, 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
^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+31, FR+32
, 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 FRGTPRV+17*, FRGTPRV+19!, FRGTPRV+20!
DFN FR+1~, FR+28*, FRMSG+3, FRMSG+8
DIE FRGTPRV+17*, FRGTPRV+19!, FRGTPRV+20!
DIR FR+10~
DIR(0 FR+13*
DIROUT FR+30, URG+1~, URG+9, END+4!
DIRUT URG+1~
DR FRGTPRV+11*, FRGTPRV+16*, FRGTPRV+18*, FRGTPRV+19!, FRGTPRV+20!
DTOUT FR+30, URG+1~, END+4!
DUOUT URG+1~, END+4!
DUZ FRMSG+3
GETPROV FR+33*, 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+29*, FR+30!
GMRCDEV FRMSG+10*, FRMSG+11, END+2!
GMRCDG FR+5~, FR+31, FR+32, FRGTPRV+7, END+2!
GMRCDIC DEFAULT+2~
GMRCEND FRGTPRV+10, URG+9*, URG+11*, END+2!
GMRCFF FR+5~, FR+32*, 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+31*, FR+32*, 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+27, FR+28
, FR+32, 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!
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+30
, FR+31*, FR+32*, FRGTPRV*, FRGTPRV+3*, FRGTPRV+8*, FRGTPRV+10*, FRGTPRV+19*
>> GMRCRB FRMSG+3
GMRCSEL FR+6!, END+3!
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+29*
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+26
>> IOSTBM FR+26
>> IOTM FR+26
ORSTS FRGTPRV+5~, FRGTPRV+17*
ORVP FR+1~
U FR+9, 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