Routine: GMRCAFRD

Information

GMRCAFRD ;SLC/DLT,DCM,JFR - LM FORWARD ACTION ;7/11/03 14:02

Source Information

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Consult Request Tracking	9	($$LOCK,UNLOCK)^GMRCA1 SELECT^GMRCA2 EXAC^GMRCADC ASRV^GMRCASV ($$ORTX,GETPROV)^GMRCAU EN^GMRCHL7 (AUDIT,MSG)^GMRCP DEM^GMRCU ($$GETDT,PRNT)^GMRCUTL1
Kernel	3	$$NOW^XLFDT EN^XQORM $$PROVIDER^XUSER
VA Fileman	3	^DIE $$GET1^DIQ ^DIR
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 2

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

Entry Points

Name	Comments	DBIA/ICR reference
FR(GMRCO)	;Forward Request to a new service
URG	;Get the default urgency
END	;Kill off variables and exit
DEFAULT	;Set up defaults for editing to be equal to the existing data.
FRGTPRV
TYPE	;This entry point is used when the only default needed is the GMRCTYPE
FRMSG	; Common logic used by GUI and List Manager to process the HL7 message ; to update the order in OE/RR and then forward an alert to recipients ; is passed in as the DUZ instead of the responsible provider

External References

Name	Field # of Occurrence
^DIE	FRGTPRV+20
$$GET1^DIQ	DEFAULT+9, DEFAULT+11, TYPE+2
^DIR	FR+13
$$LOCK^GMRCA1	FR+16
UNLOCK^GMRCA1	FRGTPRV+23, END+1
SELECT^GMRCA2	FR+7
EXAC^GMRCADC	FR+19, FR+20, FR+24, FR+31, FR+32, FRGTPRV+8, FRGTPRV+19
ASRV^GMRCASV	FR+30
$$ORTX^GMRCAU	FRMSG+7
GETPROV^GMRCAU	FRGTPRV
EN^GMRCHL7	FRMSG+3
AUDIT^GMRCP	FRGTPRV+21
MSG^GMRCP	FRMSG+8
DEM^GMRCU	DEFAULT+1
$$GETDT^GMRCUTL1	FRGTPRV+3
PRNT^GMRCUTL1	FRMSG+11
FULL^VALM1	FR+26
$$NOW^XLFDT	FRGTPRV+4
EN^XQORM	URG+9
$$PROVIDER^XUSER	FRGTPRV+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Forward Request To Another Service For Action." Line Location: FR+2
Function Call: WRITE	Prompt: !,"Select the service to send the consult to.",! Line Location: FR+3
Function Call: WRITE	Prompt: !,"The requesting facility may not take this action on an " Line Location: FR+11
Function Call: WRITE	Prompt: "inter-facility consult." Line Location: FR+12
Function Call: WRITE	Prompt: !!,"This is a SERVICE ENTERED order stub. Please send the written consult to the",!,"Service, in addition to the automated forwarding!" Line Location: FR+27
Routine Call	DIE Line Location: FRGTPRV+20
Routine Call	DIR Line Location: FR+13

FileNo	Call Tags
^ORD(101 - [#101]	GET1^DIQ
^GMR(123 - [#123]	Classic Fileman Calls, GET1^DIQ
^GMR(123.3 - [#123.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	FR+9, FR+19, FR+20, FR+21, FR+27, FR+28, FR+32, FRGTPRV+19, FRGTPRV+20, FRMSG+5 , URG+2, DEFAULT+4
^GMR(123.5 - [#123.5]	FRGTPRV+8, FRGTPRV+9, FRGTPRV+12, FRGTPRV+13, FRGTPRV+14, FRMSG+10, DEFAULT+5
^ORD(101 - [#101]	URG+6, URG+7, DEFAULT+6, DEFAULT+7
^TMP("GMRC"	END+5

Name	Line Occurrences
DEFAULT	FRGTPRV+6
END	FR+7, FR+8, FR+14, FR+16, FR+19, FR+20, FR+24, FR+30, FR+31, FR+32 , FRGTPRV, FRGTPRV+3, FRGTPRV+8, FRGTPRV+10, FRGTPRV+19, FRMSG+12
FRGTPRV	FRGTPRV+1
URG	FRGTPRV+10

Name	Field # of Occurrence
^(	FRGTPRV+9
^("MENU"	END+5
^(0	DEFAULT+4, DEFAULT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	FRGTPRV+17*, FRGTPRV+19!, FRGTPRV+20!
DFN	FR+1~, FR+28*, FRMSG+3, FRMSG+8
DIE	FRGTPRV+17*, FRGTPRV+19!, FRGTPRV+20!
DIR	FR+10~
DIR(0	FR+13*
DIROUT	FR+30, URG+1~, URG+9, END+4!
DIRUT	URG+1~
DR	FRGTPRV+11, FRGTPRV+16, FRGTPRV+18*, FRGTPRV+19!, FRGTPRV+20!
DTOUT	FR+30, URG+1~, END+4!
DUOUT	URG+1~, END+4!
DUZ	FRMSG+3
GETPROV	FR+33*, END+2!
GMRC	DEFAULT+2~
GMRC(0	DEFAULT+4*, DEFAULT+5, DEFAULT+6, DEFAULT+7, DEFAULT+8
GMRCA	FRGTPRV+5~, FRGTPRV+11, FRGTPRV+15
GMRCACT	FR+1~, FRGTPRV+1*
GMRCAD	FR+5~, FRGTPRV+3, FRGTPRV+4, FRMSG+3
GMRCADUZ	FR+5~, FRMSG+4*, FRMSG+8, END+3!
GMRCADUZ(	FRMSG+6*
GMRCASV	FR+29*, FR+30!
GMRCDEV	FRMSG+10*, FRMSG+11, END+2!
GMRCDG	FR+5~, FR+31, FR+32, FRGTPRV+7, END+2!
GMRCDIC	DEFAULT+2~
GMRCEND	FRGTPRV+10, URG+9, URG+11, END+2!
GMRCFF	FR+5~, FR+32*, END+2!
GMRCIFN	END+2!
GMRCINM	FRGTPRV+5~, FRGTPRV+14*
GMRCIROL	FRGTPRV+5~, FRGTPRV+15*
GMRCIROU	FRGTPRV+5~, FRGTPRV+13*
GMRCLCK	FR+1~, FR+17*, FRGTPRV+23, END+1
GMRCMSG	FR+19, FR+20, FR+22, FR+24, FR+31, FR+32, FRGTPRV+5~, FRGTPRV+8, FRGTPRV+19*
GMRCMSG(1	FR+23, FRGTPRV+19
GMRCO	FR~, FR+7, FR+8, FR+9, FR+16, FR+19, FR+20, FR+21, FR+27, FR+28 , FR+32, FRGTPRV+17, FRGTPRV+19, FRGTPRV+20, FRGTPRV+23, FRMSG+3, FRMSG+5, FRMSG+7, FRMSG+8, FRMSG+11 , URG+2, DEFAULT+3, DEFAULT+4, TYPE+2, END+1, END+2!
GMRCOM	FRGTPRV+21, FRMSG+3, FRMSG+9!, DEFAULT+4, END+2!
GMRCORNP	FR+5~, FRGTPRV, FRGTPRV+1, FRMSG+5*, FRMSG+6, END+2!
GMRCORTX	FRMSG+7*, FRMSG+8, END+3!
GMRCPL	FR+5~, DEFAULT+3, DEFAULT+6, END+3!
GMRCPLI	DEFAULT+2~, DEFAULT+6*
GMRCPR	FR+5~, DEFAULT+3, DEFAULT+9, DEFAULT+11*, END+3!
GMRCPRI	DEFAULT+2~, DEFAULT+3, DEFAULT+8, DEFAULT+9, DEFAULT+10, DEFAULT+11
GMRCQUT	FR+6!, FR+7, FR+8, FR+15, FR+16, FR+19, FR+20, FR+21, FR+24, FR+30 , FR+31, FR+32, FRGTPRV, FRGTPRV+3, FRGTPRV+8, FRGTPRV+10, FRGTPRV+19*
>> GMRCRB	FRMSG+3
GMRCSEL	FR+6!, END+3!
GMRCSS	FR+4, FRGTPRV+5~, FRGTPRV+7, FRGTPRV+8, FRGTPRV+9, FRGTPRV+12, FRGTPRV+13, FRGTPRV+14, FRMSG+10, FRMSG+11 , DEFAULT+3, DEFAULT+5*
GMRCSSNM	FRGTPRV+5~, FRGTPRV+9, DEFAULT+3, DEFAULT+5*
GMRCSSS	FR+4*, FR+6!
GMRCTO	FR+5~, FR+29*
GMRCTYPE	FRMSG+3, URG+3, TYPE+2*, END+3!
GMRCURG	FR+5~, FRMSG+7, URG+6, URG+9, URG+12, DEFAULT+3, DEFAULT+7, END+3!
GMRCURGI	URG+6, URG+12, DEFAULT+7*, END+4!
>> IOBM	FR+26
>> IOSTBM	FR+26
>> IOTM	FR+26
ORSTS	FRGTPRV+5~, FRGTPRV+17*
ORVP	FR+1~
U	FR+9, FRGTPRV+1, FRGTPRV+9, FRGTPRV+13, FRGTPRV+14, DEFAULT+5
>> VISIT	FRMSG+3
X	URG+1~, URG+3, URG+4, URG+5*, URG+7, URG+9
XQORM	URG+1~, URG+8, URG+9!, URG+10
XQORM("A"	URG+8*, URG+10!
XQORM("B"	URG+9*, URG+10!
XQORM("HIJACK"	END+5*
XQORM("NO^^"	URG+8*, URG+10!
XQORM(0	URG+8*, URG+10!
Y	URG+1~, URG+7*, URG+8, URG+11, END+3!
Y(1	URG+12

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCAFRD

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: