Routine: GMRCASF

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

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

Entry Points

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

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+4
Routine Call	DIR Line Location: SF+9 SF+29 GETSIGF+7

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

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

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
GMRC	SF+15~
GMRC(0	SF+16*, SF+18, SF+34
GMRCA	SF+34*, END+2!
>> GMRCAD	SF+45
GMRCADUZ	SENDALRT+1~
GMRCADUZ(	SENDALRT+3*
GMRCDELR	SENDALRT+1~, SENDALRT+5*
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+7, 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
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+4
>> XQORM("HIJACK"	END+4*
>> Y	SF+23, SF+30*, SF+31, GETSIGF+9