Routine: SRCHL7A

Package	Total	Call Graph
VA Fileman	4	^%DT NOW^%DTC ^DIC $$GET1^DIQ
Integrated Billing	1	($$GETACCT,$$SWSTAT)^IBBAPI
Kernel	1	$$UP^XLFSTR
Surgery	1	($$FMDATE,EXIT,PID,REJECT)^SRCHL7U

Entry Points

Name	Comments	DBIA/ICR reference
OBR(SRCOBR)	;Get fields from OBR segment.
ORC(SRCORC)	;Get fields from ORC segment.
EN(MSG)	;Entry point from protocol SR RECEIVE
OBX(SRCOBX)	;Get fields from OBX segment and set into SRC variables
FN(X)	;Return New Person Code give Name from HL-7 segment
ACCT
ZSV(SRCZSV)	;Get service from ZSV segment

External References

Name	Field # of Occurrence
^%DT	OBX+7
NOW^%DTC	OBX+7
^DIC	FN+2
$$GET1^DIQ	OBR+7
$$GETACCT^IBBAPI	ACCT
$$SWSTAT^IBBAPI	EN+1
$$FMDATE^SRCHL7U	OBR+13, OBR+16
EXIT^SRCHL7U	EN+25, ACCT+2
PID^SRCHL7U	EN+13
REJECT^SRCHL7U	EN+23, ACCT+1
$$UP^XLFSTR	OBX+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123.5 - [#123.5]	GET1^DIQ
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	EN+9
^DIC(40.7 - [#40.7]	OBX+17
^SRO(137.45 - [#137.45]	OBX+10, OBX+17

Label References

Name	Line Occurrences
$$FN	OBX+8, OBX+9
OBR	EN+17
OBX	EN+21
ORC	EN+15
ZSV	EN+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	OBX+7*
DIC	FN+2!*
DIC(0	FN+2*
>> II	OBX+12, OBX+15
LN	OBX+6*, OBX+12, OBX+15, EN+3~
MSG	EN~
MSG(	OBX+3, OBX+6, OBX+12, OBX+15, EN+8, EN+12
SRC99C	OBR+4*, OBR+5, EN+3~
SRCARFN	EN+3~, ACCT*, ACCT+1
SRCATN	OBR+14*, EN+3~
SRCDG1	EN+3~, ACCT
SRCDG1(1	OBX+13, EN+7, EN+23
SRCDIV	EN+3~, EN+9*, ACCT
SRCINTR	OBR+17*, EN+3~
SRCMSG	ORC+3, OBX+3, OBX+4, EN+3~, EN+7, EN+8, EN+9, EN+11, EN+12*, EN+13 , EN+15, EN+17, EN+20, EN+21
SRCNOD	EN+3~, EN+7, EN+8, EN+11, EN+12, EN+21
SRCOBR	OBR~, OBR+4, OBR+6, OBR+12, OBR+14, OBR+15, OBR+17, EN+4~
SRCOBX	OBX~, OBX+3, OBX+6, OBX+12, OBX+15, EN+4~
SRCODT	ORC+6, OBR+12, OBR+13*, EN+4~
SRCOID	OBX+4*, OBX+5, EN+4~
SRCORC	ORC~, ORC+4, ORC+5, ORC+6
SRCORNP	ORC+5*, EN+4~
SRCOTXT	ZSV+3*, EN+4~
SRCPNM	EN+4~
SRCPR1	EN+4~, ACCT
SRCPR1(4	OBX+16, EN+7, EN+23
>> SRCPV1	ACCT
>> SRCPV1(17	OBX+8, EN+7
>> SRCPV1(18	OBX+17*
>> SRCPV1(2	OBX+18*
>> SRCPV1(3	OBX+17*
>> SRCPV1(7	OBX+9, EN+7
SRCPV2	EN+4~, ACCT
SRCPV2(8	OBX+7, EN+7, EN+23
SRCQT	ORC+3, OBR+5, OBR+11, EN+4~, EN+11, EN+12, EN+16, EN+17*, EN+18
SRCRATSN	EN+5~
SRCRB	EN+5~
SRCRF	OBX+6*, OBX+7, OBX+8, OBX+9, OBX+10, OBX+11, OBX+12, OBX+14, OBX+15, EN+5~
SRCRF(	OBX+6*
SRCRFL	OBX+6, OBX+7, OBX+8, OBX+9, OBX+10, OBX+12, OBX+13, OBX+15*, OBX+16, EN+5~
SRCSEND	EN+5~, EN+9*
SRCSS	OBR+5, OBR+7, OBR+8, OBR+10, OBR+11, EN+5~, EN+17, EN+22, EN+25
SRCSST	OBR+6*, OBR+7, EN+5~
SRCSTDT	OBR+15, OBR+16, EN+5~
SRCSURG	EN+5~, ACCT
SRCSURG(2	OBX+17, EN+7, EN+23
SRCTRLC	ORC+4*, EN+6~, EN+25
SRCZSS	ZSV+1*, EN+6~
SRCZSV	ZSV~, ZSV+1, ZSV+3
SRDFN	EN+6~, ACCT
SRDOP	OBX+7*, EN+6~
SRX	OBX+10*, OBX+17, EN+5~
X	OBX+7*, FN~, FN+1
Y	OBX+7, EN+6~, FN+3

Customize PDF page

Package: Surgery

Routine: SRCHL7A

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: