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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: GMRCITST

Package: Consult Request Tracking

Routine: GMRCITST


Information

GMRCITST ;SLC/JFR - test IFC setup ; 11/30/01 10:30

Source Information

Source file <GMRCITST.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Level Seven 3 INIT^HLFNC2  DIRECT^HLMA  LINK^HLUTIL3  
Consult Request Tracking 1 ($$OBRTST,$$ORCTST)^GMRCISG1  
Kernel 1 $$STA^XUAF4  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Consult Request Tracking 1 GMRC IFC TEST SETUP  

Entry Points

Name Comments DBIA/ICR reference
ROUTE(GMRCOI) ; get the right HL link for testing
TSTPROC(GMRCPR) ;check procedure and make sure it has required fields for IFC
; Input:
; GMRCPR = ien from file 123.3
EN ; start here
RUN(GMRCTYP) ; check the procedure or service for proper setup
TSTSERV(GMRCSS) ;check service and make sure it has required fields for IFC
; Input:
; GMRCSS = ien from file 123.5

External References

Name Field # of Occurrence
^DIR EN+6, EN+13, RUN+9
$$OBRTST^GMRCISG1 RUN+18, RUN+19
$$ORCTST^GMRCISG1 RUN+17
INIT^HLFNC2 RUN+16
DIRECT^HLMA RUN+26
LINK^HLUTIL3 ROUTE+17
$$STA^XUAF4 ROUTE+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"No procedure or service selected."
  • Line Location: RUN+10
Function Call: WRITE
  • Prompt: !!,"The proper HL LOGICAL link could not be located!"
  • Line Location: RUN+22
Function Call: WRITE
  • Prompt: !,"Can't continue to test. Contact IRM."
  • Line Location: RUN+23
Function Call: WRITE
  • Prompt: !!," attempting to connect to remote system...",!
  • Line Location: RUN+25
Function Call: WRITE
  • Prompt: !,"There was a problem communicating with the remote site."
  • Line Location: RUN+28
Function Call: WRITE
  • Prompt: !,"IRM may need to check the HL7 communications."
  • Line Location: RUN+29
Function Call: WRITE
  • Prompt: !!,"Congratulations! You're configured correctly."
  • Line Location: RUN+35
Function Call: WRITE
  • Prompt: !!,"There is an implementation problem. The remote site indicated:"
  • Line Location: RUN+38
Function Call: WRITE
  • Prompt: !,?5,ERR_$S(+GMRCER:" ("_GMRCER_")",1:" (HL7 ERROR)")
  • Line Location: RUN+41
Function Call: WRITE
  • Prompt: !!,"This procedure is not configured for Inter-facility purposes."
  • Line Location: TSTPROC+9
Function Call: WRITE
  • Prompt: !!,"This procedure has no IFC ROUTING FACILITY entered."
  • Line Location: TSTPROC+11
Function Call: WRITE
  • Prompt: !!,"This procedure has no IFC REMOTE NAME entered."
  • Line Location: TSTPROC+13
Function Call: WRITE
  • Prompt: !!,"This service is not configured for Inter-facility purposes."
  • Line Location: TSTSERV+9
Function Call: WRITE
  • Prompt: !!,"This service has no IFC ROUTING FACILITY entered."
  • Line Location: TSTSERV+11
Function Call: WRITE
  • Prompt: !!,"This service has no IFC REMOTE NAME entered."
  • Line Location: TSTSERV+13
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • EN+13
    • RUN+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123.3 - [#123.3] TSTPROC+8, TSTPROC+10, TSTPROC+12, ROUTE+11
^GMR(123.5 - [#123.5] TSTSERV+8, TSTSERV+10, TSTSERV+12, ROUTE+13
^TMP("GMRCIF" RUN+31!, RUN+33*, RUN+34, RUN+36, RUN+39, RUN+42!
^TMP("HLS" RUN+15!, RUN+17*, RUN+18*, RUN+19*, RUN+42!

Label References

Name Line Occurrences
$$ROUTE RUN+20
$$TSTPROC RUN+11
$$TSTSERV RUN+12
EN EN+14
RUN EN+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR EN+3~, EN+11!, RUN+1~
DIR("A" EN+5*, EN+12*, RUN+4*, RUN+7*, RUN+8*
DIR(0 EN+4*, EN+12*, RUN+3*, RUN+6*
DIROUT EN+3~, RUN+1~
DIRUT EN+3~, EN+7, RUN+1~
DTOUT EN+3~, RUN+1~
ERR RUN+37~, RUN+39*, RUN+40*, RUN+41
GMRC773 RUN+1~, RUN+26, RUN+27
GMRCER RUN+37~, RUN+39*, RUN+41
GMRCLINK ROUTE+8~, ROUTE+17, ROUTE+18*, ROUTE+19*, ROUTE+20
GMRCLINK( ROUTE+19
GMRCLINK(0 ROUTE+18
GMRCOI ROUTE~, ROUTE+9, ROUTE+10, ROUTE+11, ROUTE+12, ROUTE+13
GMRCPR TSTPROC~, TSTPROC+8, TSTPROC+10, TSTPROC+12
GMRCSS TSTSERV~, TSTSERV+8, TSTSERV+10, TSTSERV+12
GMRCTYP RUN~, RUN+2, RUN+5, RUN+11, RUN+12
HL RUN+1~, RUN+16
HLL RUN+1~
HLL("LINKS" RUN+24*
HLNEXT RUN+32, RUN+42!
HLNODE RUN+30~, RUN+33
HLQUIT RUN+32, RUN+42!
I RUN+30~, RUN+32*
LINK RUN+1~, RUN+20*, RUN+21, RUN+24
PROC RUN+1~, RUN+11*, RUN+18, RUN+20
SEG RUN+30~
SERV RUN+1~, RUN+12*, RUN+19, RUN+20
SITE ROUTE+8~, ROUTE+11*, ROUTE+13*, ROUTE+14, ROUTE+15
STA ROUTE+8~, ROUTE+15*, ROUTE+16, ROUTE+17
U RUN+27, TSTPROC+10, TSTPROC+12, TSTSERV+10, TSTSERV+12, ROUTE+11, ROUTE+13
X EN+3~, EN+11!, RUN+1~
Y EN+3~, EN+9, EN+11!, EN+14, RUN+1~, RUN+10, RUN+11, RUN+12

Marked Items

Name Field # of Occurrence
$T(@ERR RUN+40
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All