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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRCASF

Package: Consult Request Tracking

Routine: GMRCASF


Information

GMRCASF ;SLC/DLT - Significant Findings Action ;7/11/03 13:28

Source Information

Source file <GMRCASF.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Consult Request Tracking 7 ($$LOCK,UNLOCK)^GMRCA1  SELECT^GMRCA2  (ANDTO,PROCALRT,SENDMSG)^GMRCACMT  EXAC^GMRCADC  $$ORTX^GMRCAU  EN^GMRCHL7  (AUDIT,STATUS)^GMRCP  
List Manager 1 FULL^VALM1  
VA FileMan 1 ^DIR  

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: 3

Package Total Caller Graph
Consult Request Tracking 2 GMRCAAC  GMRCACT SIGNIFICANT FINDINGS  
Order Entry Results Reporting 1 ORCONSLT  

Entry Points

Name Comments DBIA/ICR reference
SF(GMRCO) ;Evaluate Significant Findings and update accordingly
SETORTX ;Set prefix text for the alert
SENDALRT(GMRCORTX) ;Send to the requesting provider
GETSIGF(GMRCSFO) ;Get the significant findings
END ;cleanup variables

External References

Name Field # of Occurrence
^DIR SF+9, SF+29, GETSIGF+7
$$LOCK^GMRCA1 SF+11
UNLOCK^GMRCA1 END+1
SELECT^GMRCA2 SF+3
ANDTO^GMRCACMT SENDALRT+8
PROCALRT^GMRCACMT SF+56
SENDMSG^GMRCACMT SENDALRT+9
EXAC^GMRCADC SF+37, SF+43
$$ORTX^GMRCAU SF+50
EN^GMRCHL7 SF+45
AUDIT^GMRCP SF+42
STATUS^GMRCP SF+36
FULL^VALM1 SF+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The requesting facility may not take this action on an "
  • Line Location: SF+7
Function Call: WRITE
  • Prompt: "inter-facility consult."
  • Line Location: SF+8
Function Call: WRITE
  • Prompt: !!,"Current Significant Findings = "_$S(GMRCSFO="U":"Unknown",GMRCSFO="Y":"Yes",GMRCSFO="N":"No",1:"not entered yet"),!!
  • Line Location: SF+19
Function Call: WRITE
  • Prompt: !,"The old and new Significant Findings are the same."
  • Line Location: SF+24
Function Call: WRITE
  • Prompt: !,"An alert with the following text will be sent if recipients are selected: "
  • Line Location: SF+49
Function Call: WRITE
  • Prompt: !," "_GMRCORTX_$$ORTX^GMRCAU(+GMRCO)
  • Line Location: SF+50
Function Call: WRITE
  • Prompt: !
  • Line Location: SF+51
Function Call: WRITE
  • Prompt: !,"or the alert will be sent when the order is completed.",!
  • Line Location: SF+52
Function Call: WRITE
  • Prompt: !!,"The ordering provider for this inter-facility consult will "
  • Line Location: SF+54
Function Call: WRITE
  • Prompt: "automatically be ",!,"notified.",!
  • Line Location: SF+55
Function Call: WRITE
  • Prompt: !,"Alert will be sent to Requesting Provider: "_$P($G(^VA(200,+GMRCRP,0)),U,1)
  • Line Location: SENDALRT+5
Function Call: WRITE
  • Prompt: !,"No automatic alerts will be sent to the Requesting Provider."
  • Line Location: SENDALRT+6
Routine Call
  • DIR
  • Line Location:
    • SF+9
    • SF+29
    • GETSIGF+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] SF+5, SF+16, SF+45, SF+53, SENDALRT+2
^ORD(100.01 - [#100.01] SETORTX+2
^TMP("GMRC" END+4
^VA(200 - [#200] SENDALRT+5

Label References

Name Line Occurrences
$$GETSIGF SF+20
END SF+3, SF+4, SF+10, SF+11, SF+21, SF+23, SF+37, SF+43, SF+59
SENDALRT SF+47
SETORTX SF+46

Naked Globals

Name Field # of Occurrence
^("MENU" END+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SF+25~, GETSIGF+2~
DIR SF+6~, SF+25~, GETSIGF+2~
DIR("A" SF+26*, GETSIGF+6*
DIR("B" SF+28*, GETSIGF+4*, GETSIGF+5*
DIR(0 SF+9*, SF+27*, GETSIGF+3*
DIROUT SF+25~, SF+30, GETSIGF+2~, GETSIGF+8, END+3
DIRUT SF+25~, SF+30, GETSIGF+2~, GETSIGF+8
DTOUT SF+25~, SF+30, GETSIGF+2~, GETSIGF+8, END+3
DUOUT SF+25~, SF+30, GETSIGF+2~, GETSIGF+8
DUZ SENDALRT+3
GMRC SF+15~
GMRC(0 SF+16*, SF+18, SF+34
GMRCA SF+34*, END+2!
>> GMRCAD SF+45
GMRCADUZ SENDALRT+1~
GMRCADUZ( SENDALRT+4*
GMRCDELR SENDALRT+1~, SENDALRT+7*
GMRCDR SF+15~, SF+35*
GMRCERMS SF+37, SF+43, END+2!
GMRCERR SF+37, SF+43, END+2!
GMRCLCK SF+2~, SF+12*, END+1
GMRCMSG SF+37*, SF+43*, END+2!
GMRCO SF~, SF+3, SF+4, SF+5, SF+11, SF+16, SF+45, SF+50, SF+53, SF+56
, SENDALRT+2, SENDALRT+9, END+1, END+2!
GMRCOM SF+42*, SF+48, END+2!
>> GMRCORNP SF+45
GMRCORTX SF+15~, SF+47, SF+50, SF+56, SETORTX+1*, SETORTX+2*, SENDALRT~
GMRCQIT SF+2~, END+3*
>> GMRCQUT SF+3
>> GMRCRB SF+45
GMRCRP SENDALRT+1~, SENDALRT+2*, SENDALRT+3, SENDALRT+4, SENDALRT+5
GMRCSEL END+2!
GMRCSF SF+15~, SF+20*, SF+21, SF+23, SETORTX+1
GMRCSFO SF+15~, SF+18*, SF+19, SF+20, SF+23, GETSIGF~, GETSIGF+4
GMRCSTS SF+15~, SF+34*, SF+45, SF+47, SF+52, SETORTX+2
>> GMRCTYPE SF+45
>> GMRCVSIT SF+45
>> IOBM SF+14
>> IOSTBM SF+14
>> IOTM SF+14
U SF+5, SF+45, SF+53, SENDALRT+2, SENDALRT+5
>> XQORM("HIJACK" END+4*
>> Y SF+23, SF+30*, SF+31, GETSIGF+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All