Routine: IBECECU1

Package	Total	Call Graph
VA FileMan	4	NOW^%DTC FILE^DICN (,FILE)^DIE ($$GET1,GETS)^DIQ
Health Level Seven	3	($$ADDSEG,$$NEWMSG,SET)^HLOAPI $$SENDONE^HLOAPI1 ($$GET,$$NEXTSEG,$$STARTMSG)^HLOPRS
Integrated Billing	3	$$ICN^IBARXMU $$SITE^IBATUTL INPT^IBECECX1
Kernel	1	($$FMTHL7,$$HL7TFM,$$NOW)^XLFDT
Master Patient Index VistA	1	$$GETDFN^MPIF001

Package	Total	Caller Graph
Integrated Billing	5	IBAUTL3 IBECEA32 IBECEAU1 IBECECQ1 IBEMTBC
Health Level Seven	1	MESSAGE TYPE ACTIONS

Name	Comments	DBIA/ICR reference
EN(DFN,IBCLDA)	; OUTGOING DFT PRIMARY ENTRY POINT ; IBCLDA - IEN FROM 351
MSH	; Build outgoing MSH Segment
EVN	; Build outgoing EVN Segment
PID	; Build outgoing PID Segment
FT1	; Build FT1 Outgoing segment
FT2	;BUILD OUTGOING FT2 SEGMENT
SEND	;SEND MESSAGE AND QUIT
RECV	; INCOMING DFT PRIMARY ENTRY POINT
EVNI	;Parse Incoming EVN Segment
PIDI	;Parse Incoming PID Segment
FT1I	;Parse Incoming FT1 Segment, assumes one record only ; Get new 365 day clock data
FT2I	;Parse Incoming FT1 Segment,
PARSE	; Get the updated clock data to send via DFT
NEWREC	;Create a new entry in file 351
AGGR
MULTCLK
CHCKDAYS	;Check days for each clock - For future Cerner work
UPDATE(IBDA)

Name	Field # of Occurrence
NOW^%DTC	EVN+3
FILE^DICN	NEWREC+5
^DIE	NEWREC+22, UPDATE+14
FILE^DIE	NEWREC+37
$$GET1^DIQ	EN+8, RECV+16, RECV+17, NEWREC+16
GETS^DIQ	PARSE+3
$$ADDSEG^HLOAPI	EVN+12, PID+9, FT1+11
$$NEWMSG^HLOAPI	MSH+9
SET^HLOAPI	EVN+1, EVN+4, EVN+6, EVN+7, EVN+10, EVN+11, PID+1, PID+3, PID+5, PID+6 , FT1+1, FT1+2, FT1+3, FT1+4, FT1+5, FT1+6, FT1+7, FT1+8, FT1+9, FT1+10
$$SENDONE^HLOAPI1	SEND+5
$$GET^HLOPRS	EVNI+1, EVNI+3, EVNI+4, EVNI+5, EVNI+6, PIDI+1, PIDI+2, PIDI+4, FT1I+2, FT1I+3 , FT1I+5, FT1I+6, FT1I+7, FT1I+8, FT1I+9, FT1I+10, FT1I+11
$$NEXTSEG^HLOPRS	RECV+8
$$STARTMSG^HLOPRS	RECV+3
$$ICN^IBARXMU	PID+2
$$SITE^IBATUTL	PARSE+4
INPT^IBECECX1	EN+7
$$GETDFN^MPIF001	PIDI+3, NEWREC+7
$$FMTHL7^XLFDT	EVN+3, EVNI+2, PARSE+6, PARSE+14
$$HL7TFM^XLFDT	FT1I+4, FT1I+12
$$NOW^XLFDT	NEWREC+19, NEWREC+33, NEWREC+35, UPDATE+11

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^IBE(351 - [#351]	Classic Fileman Calls, GET1^DIQ, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^IBE(351 - [#351]	EN+6, RECV+15, NEWREC+1, NEWREC+4, NEWREC+8, NEWREC+14, NEWREC+38, AGGR+11, AGGR+12, AGGR+14 , UPDATE+2, UPDATE+15
^TMP("DFT"	MSH+1!

Name	Line Occurrences
AGGR	NEWREC+12
EVN	EN+9
EVNI	RECV+9
FT1	EN+10
FT1I	RECV+11
FT2	EN+10
FT2I	RECV+12
MSH	EN+9
NEWREC	RECV+20
PARSE	EN+9
PID	EN+9
PIDI	RECV+10
SEND	EN+10
UPDATE	RECV+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EVN+3
AGG	AGGR+2~, AGGR+3, AGGR+17, AGGR+19*, AGGR+20
DA	NEWREC+2~, NEWREC+5, NEWREC+17, NEWREC+23!, UPDATE+1~, UPDATE+3*, UPDATE+15
DATEQ	RECV+1~
DFN	EN~, EN+7, EN+8, PID+2, PID+3, RECV+1~, RECV+15, PIDI+3, NEWREC+7, NEWREC+8 , NEWREC+9, NEWREC+14, AGGR+11, AGGR+12
DIC	NEWREC+2~, NEWREC+3*
DIC(0	NEWREC+3*
DIE	NEWREC+2~, NEWREC+17, NEWREC+23!, UPDATE+1~, UPDATE+3
>> DILOCKTM	NEWREC+1, UPDATE+2
DR	NEWREC+2~, NEWREC+17, NEWREC+18, NEWREC+19, NEWREC+20, NEWREC+23!, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6 , UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+10, UPDATE+11, UPDATE+12, UPDATE+13*
DT	AGGR+10, AGGR+21
DUZ	NEWREC+18, UPDATE+10
ERR	RECV+1~, RECV+3*
ERROR	EN+3~, MSH+9, EVN+12, PID+9, FT1+11, SEND+5
FIELD	EN+3~, EVN+1, EVN+3, EVN+4, EVN+6, EVN+7, EVN+10, EVN+11, PID+1, PID+3 , PID+5, PID+6
HLERR	RECV+1~, RECV+5*
>> HLMSGIEN	RECV+3, RECV+4
IB901	EN+4~, FT1+5, PARSE+8*
IB902	EN+4~, FT1+6, PARSE+9*
IB903	EN+4~, FT1+7, PARSE+10*
IB904	EN+4~, FT1+8, PARSE+11*
IBACBCLK	EN+3~
IBACTC	RECV+2~, EVNI+3*
IBADM	EN+3~
IBADMIT	EN+3~
IBAEVNT	RECV+1~, EVNI+1, EVNI+2
>> IBAGG	NEWREC+12
IBARRAY	PARSE+1~
IBARRAY(351	PARSE+5, PARSE+7, PARSE+8, PARSE+9, PARSE+10, PARSE+11, PARSE+12, PARSE+13
IBCBDT	RECV+2~, RECV+15, RECV+16*, RECV+19
IBCKNUM	RECV+2~, EVNI+4*
IBCLDA	EN~, EN+6, FT1+2, FT1I+2*, PARSE+3, PARSE+5, PARSE+7, PARSE+8, PARSE+9, PARSE+10 , PARSE+11, PARSE+12, PARSE+13
IBCLDAY	EN+4~, FT1+9, PARSE+12*
IBCLDT	EN+4~, FT1+3, PARSE+5, PARSE+6
IBCLNDT	EN+4~, FT1+10, PARSE+13, PARSE+14
>> IBCNT	NEWREC+20, NEWREC+21
IBDA	RECV+2~, RECV+15, RECV+16, RECV+17, RECV+18, AGGR+2~, AGGR+12, AGGR+13, AGGR+14, UPDATE~ , UPDATE+2, UPDATE+3
IBDA1	RECV+2~, RECV+18*, RECV+19
IBDISCH	EN+3~
IBDTUP	NEWREC+2~, NEWREC+19, UPDATE+1~, UPDATE+11
IBDUZ	NEWREC+2~, NEWREC+18, UPDATE+1~, UPDATE+10
IBERR	PARSE+1~
IBEVFAC	EVN+11, RECV+1~, EVNI+6*
IBEVOCC	RECV+1~
IBFDA	NEWREC+2~
IBFDA(351	NEWREC+9, NEWREC+13, NEWREC+24, NEWREC+25, NEWREC+26, NEWREC+27, NEWREC+28, NEWREC+29, NEWREC+30, NEWREC+31 , NEWREC+32, NEWREC+33, NEWREC+34, NEWREC+35, NEWREC+36*
IBFLG	AGGR+2~, AGGR+11, AGGR+12*
IBHDR	RECV+1~, RECV+3
IBHDR("MESSAG	E TYPE" , RECV+6
IBI901	RECV+2~, FT1I+6, NEWREC+25, AGGR+24, UPDATE+4
IBI902	RECV+2~, FT1I+7, NEWREC+26, AGGR+25, UPDATE+5
IBI903	RECV+2~, FT1I+8, NEWREC+27, AGGR+26, UPDATE+6
IBI904	RECV+2~, FT1I+9, NEWREC+28, AGGR+27, UPDATE+7
IBICKDT	RECV+2~, FT1I+11, FT1I+12, NEWREC+30, UPDATE+9
IBICLDAY	RECV+2~, FT1I+10, NEWREC+29, AGGR+19, AGGR+23, UPDATE+8
IBICLDT	RECV+2~, RECV+13, RECV+15, RECV+19, FT1I+3, FT1I+4, NEWREC+13, AGGR+15, AGGR+17, AGGR+18 , AGGR+28*
>> IBICLNDT	NEWREC+15, AGGR+10, AGGR+21
IBICN	EN+3~, EN+9, PID+2, PID+4, PID+5, PIDI+1
IBICNAL	RECV+2~, PIDI+2*, PIDI+3, NEWREC+7
IBICNUM	RECV+2~, EVNI+5*
IBIEN	EN+3~, RECV+1~, RECV+4*
IBISTAT	RECV+2~, FT1I+5*, NEWREC+24
IBMSG	RECV+1~, RECV+3, RECV+8
IBMSG("HDR"	RECV+14
IBNADM	EN+4~, EVN+10
IBNAME	EN+4~, PIDI+4*
IBQIEN	EN+3~
IBQRYS	RECV+1~, RECV+17*
IBREASON	NEWREC+2~, NEWREC+20, NEWREC+21, UPDATE+12*
IBSEGT	RECV+1~, RECV+8*, RECV+9, RECV+10, RECV+11, RECV+12
IBSITE	EN+4~, PARSE+4*
IBSNDST	RECV+2~, RECV+14*, NEWREC+20, NEWREC+31, UPDATE+12
IBSOC	EN+4~
IBSTAT	EN+4~, EVN+6, FT1+4, RECV+1~, RECV+3, RECV+5, PARSE+7
IBSTDT	AGGR+2~, AGGR+16*, AGGR+28
IBWHAT	RECV+1~
ICN	RECV+1~
IEN	NEWREC+2~, NEWREC+5*
IEN351	NEWREC+2~, NEWREC+14*, NEWREC+16, NEWREC+17
IENS	NEWREC+2~, NEWREC+5*, NEWREC+9, NEWREC+13, NEWREC+24, NEWREC+25, NEWREC+26, NEWREC+27, NEWREC+28, NEWREC+29 , NEWREC+30, NEWREC+31, NEWREC+32, NEWREC+33, NEWREC+34, NEWREC+35, NEWREC+36
MSG	EN+3~, MSH+8*, MSH+9, EVN+12, PID+9, FT1+11, SEND+5
MSGTYPE	RECV+1~
NAME	EN+3~, EN+8*, PID+6
NODE	AGGR+2~, AGGR+10, AGGR+11, AGGR+12
NODE0	AGGR+2~, AGGR+14*, AGGR+15, AGGR+16, AGGR+17, AGGR+18, AGGR+19, AGGR+23, AGGR+24, AGGR+25 , AGGR+26, AGGR+27
PARMS	EN+3~, MSH+1~, MSH+9, SEND+5
PARMS("COUNTRY"	MSH+2*
PARMS("EVENT"	MSH+4*
PARMS("MESSAG	E STRUCTURE" , MSH+7, E TYPE" , MSH+3
PARMS("SENDIN	G APPLICATION" , MSH+5, SEND+4
PARMS("VERSION"	MSH+6*
QRYNUM	EN+3~
SEG	EN+3~, EVN+1, EVN+4, EVN+6, EVN+7, EVN+10, EVN+11, EVN+12, PID+1, PID+3 , PID+5, PID+6, PID+9, FT1+1, FT1+2, FT1+3, FT1+4, FT1+5, FT1+6, FT1+7 , FT1+8, FT1+9, FT1+10, FT1+11, RECV+1~, RECV+8, EVNI+1, EVNI+3, EVNI+4, EVNI+5 , EVNI+6, PIDI+1, PIDI+2, PIDI+4, FT1I+2, FT1I+3, FT1I+5, FT1I+6, FT1I+7, FT1I+8 , FT1I+9, FT1I+10, FT1I+11
SEG("SEGMENT	TYPE" , RECV+8
SERR	EN+3~, PID+4*
SERROR	EN+3~, PID+4*
U	EN+6, NEWREC+4, NEWREC+5, AGGR+12
VALUE	EN+3~, EVN+1, EVN+3, EVN+4, EVN+6, EVN+7, EVN+10, EVN+11, PID+1, PID+3 , PID+5, PID+6
WHOTO	EN+3~, SEND+5
WHOTO("MIDDLE	WARE LINK NAME" , SEND+3*
WHOTO("RECEIV	ING APPLICATION" , SEND+1*
WHOTO("STATIO	N NUMBER" , SEND+2*
X	EN+3~, MSH+9, EVN+12, PID+9, FT1+11, NEWREC+2~, NEWREC+4*
XXX	EN+3~, SEND+5*
Y	NEWREC+2~, NEWREC+5

Customize PDF page

Package: Integrated Billing

Routine: IBECECU1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: