Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls