Routine: GMRCHL7U

Package	Total	Call Graph
Consult Request Tracking	5	$$ORTX^GMRCAU ($$FMDATE,$$MSH,$$PID,BLD,ORC)^GMRCHL7 COMMENT^GMRCHL7B TRIGR^GMRCIEVT MSG^GMRCP
Kernel	2	$$NOW^XLFDT MSG^XQOR
VA FileMan	1	^DIE

Package	Total	Caller Graph
Consult Request Tracking	3	GMRCGUIB GMRCHL7A GMRCHL7B

Entry Points

Name	Comments	DBIA/ICR reference
INIT(MSH)	;break out MSH segment separators and set other needed variables
PID(GMRCPID)	;Get fields from PID segment and set into GMRC variables.
NTE(MSG,GMRCNTE,GMRCNODE,CTRLCODE)	;set NTE segments of HL-7 message into variables and globals
PV1(GMRCPV1)	;Get fields from PV1 segment of HL-7 message and set into GMRC variables
REJECT(GMRCMSG,REAS)	;action can't be filed send reject message
RETURN(GMRCIEN,GMRCTRLC)	;return IEN of record in ^GMR(123,IEN, to OERR
FILE(GMRCO,DR)	;File data into ^GMR(123,IEN,40 using ^DIE
EXIT	;Kill variables and exit
AUDIT0	;place activity audit tracking info into global ^GMR(123,IEN,40,
ALERT(GMRCDFN,GMRCSS,GMRCPR,GMRCFN,GMRCURG,GMRCORA)	;generate an alert when receiving a consult
CHKTXT(GMRCTXT)	;Added by GMRC3168

External References

Name	Field # of Occurrence
^DIE	FILE+9
$$ORTX^GMRCAU	ALERT+9
$$FMDATE^GMRCHL7	PV1+7
$$MSH^GMRCHL7	REJECT+11, RETURN+5
$$PID^GMRCHL7	RETURN+6
BLD^GMRCHL7	RETURN+8
ORC^GMRCHL7	RETURN+7
COMMENT^GMRCHL7B	FILE+10, FILE+11
TRIGR^GMRCIEVT	FILE+14
MSG^GMRCP	ALERT+11
$$NOW^XLFDT	AUDIT0+7
MSG^XQOR	REJECT+16, RETURN+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	FILE+5, FILE+6, FILE+8, FILE+13, FILE+15, AUDIT0+8, AUDIT0+16
^GMR(123.1 - [#123.1]	NTE+7, AUDIT0+12
^ORD(101 - [#101]	ALERT+9

Label References

Name	Line Occurrences
FILE	AUDIT0+15

Naked Globals

Name	Field # of Occurrence
^(0	FILE+5*, FILE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CTRLCD	REJECT+5~, REJECT+7*, REJECT+8
CTRLCODE	NTE~, NTE+7
DA	FILE+1~, FILE+6*, FILE+8
DA(1	FILE+6*
>> DFN	PID+1*
DIE	FILE+1~, FILE+7*
>> DILOCKTM	FILE+5, AUDIT0+8
DR	FILE~, AUDIT0+14*, AUDIT0+15
GMRCA	EXIT+2!
GMRCACT	NTE+5~, NTE+7, EXIT+2!, AUDIT0+12, AUDIT0+13*
GMRCACTI	FILE+1~, FILE+6*, FILE+14
GMRCAD	NTE+6, EXIT+2!, AUDIT0+9
GMRCADUZ	ALERT+11, ALERT+12!
GMRCAP	EXIT+2!
GMRCAPP	EXIT+2!
GMRCATN	EXIT+2!
GMRCCMT	FILE+11, EXIT+5!
GMRCDA	EXIT+2!, AUDIT0+6~, AUDIT0+7*, AUDIT0+9
GMRCDEV	NTE+6, EXIT+2!, AUDIT0+9
GMRCDFN	ALERT~, ALERT+11
GMRCDSID	EXIT+4!
GMRCERDT	EXIT+4!
GMRCFAC	EXIT+2!
GMRCFF	NTE+6, EXIT+2!, AUDIT0+9
GMRCFN	REJECT+5~, REJECT+6*, REJECT+8, ALERT~, ALERT+11
GMRCFQ	EXIT+2!
GMRCIEN	RETURN~, RETURN+6, RETURN+7
GMRCINTR	EXIT+2!
>> GMRCMESS	REJECT+16
>> GMRCMESS(1	REJECT+13*
>> GMRCMESS(2	REJECT+14*
>> GMRCMESS(3	REJECT+15*
GMRCMSG	REJECT~, RETURN+9, EXIT+2!
GMRCMSG(	REJECT+2, REJECT+3, REJECT+4, REJECT+6, REJECT+7
GMRCMSH	EXIT+2!
GMRCMTP	EXIT+2!
GMRCNATO	EXIT+4!
GMRCND	EXIT+3!
GMRCND1	EXIT+3!
GMRCNOD	EXIT+2!
GMRCNODE	NTE~
GMRCNTC	FILE+10, EXIT+2!
GMRCNTC(	NTE+9*
GMRCNTC(1	NTE+8*
GMRCNTE	NTE~, NTE+8, NTE+9
GMRCO	FILE~, FILE+4, FILE+5, FILE+6, FILE+7, FILE+8, FILE+13, FILE+14, FILE+15, EXIT+6! , AUDIT0+8, AUDIT0+15, AUDIT0+16, ALERT+9
GMRCODT	EXIT+2!
GMRCOFN	EXIT+5!
GMRCOID	EXIT+2!
GMRCORA	ALERT~, ALERT+10*, ALERT+11
GMRCORCC	RETURN+3~, RETURN+4*, RETURN+7
GMRCORFN	EXIT+2!
GMRCORNP	NTE+6, EXIT+6!, AUDIT0+9
GMRCORPV	EXIT+4!
GMRCORTX	ALERT+8~, ALERT+9*, ALERT+11
GMRCOTXT	EXIT+4!
GMRCPA	NTE+6, EXIT+2!, AUDIT0+9
GMRCPID	PID~, PID+1
GMRCPLCR	EXIT+2!, AUDIT0+9*
GMRCPLI	EXIT+2!
GMRCPNM	PID+1*, EXIT+2!
GMRCPR	EXIT+2!, ALERT~
GMRCPRA	EXIT+4!
GMRCPRDG	EXIT+3!
GMRCPRI	EXIT+2!
GMRCPRV	EXIT+3!
GMRCPV1	PV1~, PV1+4, PV1+5
GMRCRB	PV1+6*, EXIT+4!
GMRCRFQ	EXIT+4!
GMRCS123	EXIT+5!
GMRCS38	EXIT+5!
>> GMRCSBR	PV1+4*
GMRCSEND	EXIT+3!
GMRCSS	EXIT+6!, ALERT~
GMRCSTDT	EXIT+3!
GMRCSTS	EXIT+3!
GMRCTRLC	RETURN~, RETURN+4, RETURN+8, EXIT+6!, AUDIT0+12
GMRCTXT	CHKTXT~, CHKTXT+2, CHKTXT+3, CHKTXT+4*, CHKTXT+5
GMRCTYPE	EXIT+3!
GMRCURG	ALERT~, ALERT+9
GMRCURGI	EXIT+3!
GMRCVAL	EXIT+3!
>> GMRCVSIT	PV1+7*
GMRCVTYP	EXIT+3!
GMRCWARD	PV1+5*, EXIT+3!
HLQ	EXIT+1!
I	REJECT+1~, REJECT+2*, REJECT+3, REJECT+4, REJECT+6, REJECT+7
J	EXIT+1!
LN	NTE+9*, NTE+10!, EXIT+1!
LN1	NTE+9*, NTE+10!
MSG	NTE~
MSG(	NTE+8, NTE+9
MSH	INIT~, INIT+4, REJECT+1~, REJECT+11, REJECT+12, REJECT+13, RETURN+3~, RETURN+5*, RETURN+8, EXIT+4!
ND	EXIT+1!
ND1	EXIT+1!
ND2	EXIT+1!
OBXND	EXIT+4!
ORC	REJECT+1~, REJECT+8, REJECT+10, REJECT+15, RETURN+3~, RETURN+7*, RETURN+8
ORFN	REJECT+5~, REJECT+6*, REJECT+8
P17	REJECT+5~, REJECT+9*, REJECT+10
PID	REJECT+3, REJECT+14, RETURN+3~, RETURN+6, RETURN+8, EXIT+4!
REAS	REJECT~, REJECT+9
SEP1	INIT+3, INIT+4, PID+1, NTE+8, PV1+4, PV1+5, REJECT+12, RETURN+4*, RETURN+5, EXIT+1!
SEP2	INIT+3, INIT+5, PV1+5, PV1+6, EXIT+1!
SEP3	INIT+3, INIT+5, EXIT+1!
SEP4	INIT+3, INIT+5, EXIT+1!
SEP5	INIT+3, INIT+5, EXIT+1!
VISIT	PV1+5*, PV1+7, EXIT+3!
X	INIT+2~, INIT+4, INIT+5, PV1+3~, PV1+4, PV1+5*, PV1+6, RETURN+5
X1	CHKTXT+1~, CHKTXT+2*, CHKTXT+3, CHKTXT+4
X2	CHKTXT+1~, CHKTXT+3*, CHKTXT+4

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCHL7U

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: