Routine: GMRCITST

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

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!

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

Local Variables

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

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCITST

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items