Routine: IBCNIUH1

Package	Total	Call Graph
Integrated Billing	9	$$ADD^IBCNBEE EDITSTF^IBCNBES $$BUFLOCK^IBCNEHL6 $$CLNSTR^IBCNEHLU BUFF^IBCNEUT2 $$INSERROR^IBCNEUT3 PAYER^IBCNINSU $$TFL^IBCNIUF ($$DUP,INDEX)^IBCNRDV
Kernel	2	($$FMDIFF,$$NOW)^XLFDT $$IEN^XUAF4
VA FileMan	2	$$FIND1^DIC $$GET1^DIQ
Automated Information Collection System	1	($$ADD,$$UPD)^IBDFDBS
Health Level Seven	1	($$FMDATE,$$FMNAME)^HLFNC
Master Patient Index VistA	1	$$GETDFN^MPIF001
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Integrated Billing	2	IBCNIU PIN/I07 EVENT IBCNIU PIN/I07 SUB
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
REC	;Receive data from remote system
RECX	;
RECEIVE	;Entry Point
GETSTAT	;Get the RECEIVER STATUS (365.19,2.01) by performing various checks
GETSTATQ	;
FILEBUF	;File IIU data file #365.19 into the Buffer file #355.33
STATI	;If the IIU ENABLED field is off, set RECEIVER STATUS to "I" IIU ENABLED IS OFF
STATR	;If the RECEIVE IIU DATA is off, set RECEIVER STATUS to "R" RECEIVE IIU DATA IS OFF
STATV	;If the last event date is greater then the site parameter IIU RECENT VISIT DAYS, ; set RECEIVER STATUS to "V" VISITED TOO LONG AGO
STATVQ	;
STATD	;Check for Duplicate IIU entry, if found set RECEIVER STATUS to "D" DUPLICATE
STATE	;If a error occurs during the creation of the entry into the IIU file (365.19),
STATB	;If a error occurs during the creation of the entry into the Buffer file (355.33),
FILESTAT	;File STATUS in File #365.19
DECHL7(STR,HL)	;Decode HL7 characters
LP	;Continue to loop through the string until all instances of encoding is decoded then exit.
DECHL7Q	; Exit
SPAR	;Segment Parsing (logic from SPAR^IBCNEHLU)
LP1

Name	Field # of Occurrence
$$FIND1^DIC	FILEBUF+3, FILEBUF+5
$$GET1^DIQ	STATI+2, STATV+11
$$FMDATE^HLFNC	RECEIVE+81, RECEIVE+85
$$FMNAME^HLFNC	RECEIVE+36, RECEIVE+62
$$ADD^IBCNBEE	FILEBUF+7
EDITSTF^IBCNBES	FILEBUF+41
$$BUFLOCK^IBCNEHL6	FILEBUF+13, FILEBUF+47
$$CLNSTR^IBCNEHLU	LP1+3
BUFF^IBCNEUT2	FILEBUF+43
$$INSERROR^IBCNEUT3	FILEBUF+43
PAYER^IBCNINSU	STATR+5
$$TFL^IBCNIUF	STATV+7
$$DUP^IBCNRDV	STATD+15
INDEX^IBCNRDV	STATD+4
$$ADD^IBDFDBS	RECEIVE+42, RECEIVE+51
$$UPD^IBDFDBS	RECEIVE+67, RECEIVE+102, RECEIVE+116, FILEBUF+52, FILESTAT+3
$$GETDFN^MPIF001	RECEIVE+29
$$SITE^VASITE	STATV+5
$$FMDIFF^XLFDT	STATV+13
$$NOW^XLFDT	REC+9, RECEIVE+39
$$IEN^XUAF4	RECEIVE+16, STATV+5

HL7 Protocol Name	Call Tags
IBCNIU PIN/I07 EVENT	REC
IBCNIU PIN/I07 SUB	REC

FileNo	Call Tags
^VA(200 - [#200]	FIND1^DIC
^IBE(350.9 - [#350.9]	GET1^DIQ
^IBE(355.12 - [#355.12]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^IBE(365.12 - [#365.12]	STATR+3
^TMP("IBCNIUH1"	REC+8!, REC+9, REC+12, REC+14*, RECX+1!, RECEIVE+6, SPAR+14, SPAR+16, SPAR+17
^TMP("IBCNRDV"	STATD+1!, STATD+17!

Name	Line Occurrences
$$DECHL7	RECEIVE+36, RECEIVE+62, RECEIVE+77, RECEIVE+78, RECEIVE+79, RECEIVE+109, RECEIVE+110
DECHL7Q	DECHL7+15, DECHL7+16, LP+1
FILEBUF	REC+30
FILESTAT	REC+35, GETSTATQ+1, STATE+3, STATB+3
GETSTAT	REC+26
GETSTATQ	GETSTAT+2, GETSTAT+3, GETSTAT+4, GETSTAT+5
LP	LP+7
LP1	LP1+6
RECEIVE	REC+23
RECX	REC+24, REC+27, REC+31
SPAR	RECEIVE+7
STATB	FILEBUF+9, FILEBUF+53
STATD	GETSTAT+5
STATE	RECEIVE+52, RECEIVE+68, RECEIVE+103, RECEIVE+117
STATI	GETSTAT+2
STATR	GETSTAT+3
STATV	GETSTAT+4
STATVQ	STATV+9

Name	Field # of Occurrence
BIN	REC+1~, RECEIVE+109*, RECEIVE+112, FILEBUF+20
BUFLOCK	FILEBUF+13, FILEBUF+47~
CNT	REC+1~, REC+11, REC+12, REC+13, REC+14
COB	REC+1~, RECEIVE+86*, RECEIVE+95, FILEBUF+26
DATA	RECEIVE+1~, RECEIVE+20!, RECEIVE+42, RECEIVE+45!, RECEIVE+51, RECEIVE+58!, RECEIVE+67, RECEIVE+72!, RECEIVE+102, RECEIVE+107! , RECEIVE+116, FILEBUF+50~, FILEBUF+52, FILESTAT+1~, FILESTAT+3
DATA(	RECEIVE+38, RECEIVE+39, RECEIVE+40, RECEIVE+48, RECEIVE+49, RECEIVE+64, RECEIVE+65, RECEIVE+88, RECEIVE+89, RECEIVE+90 , RECEIVE+91, RECEIVE+92, RECEIVE+93, RECEIVE+94, RECEIVE+95, RECEIVE+96, RECEIVE+98, RECEIVE+99, RECEIVE+112, RECEIVE+113 , RECEIVE+114, FILEBUF+51, FILESTAT+2*
DFN	REC+1~, RECEIVE+1~, RECEIVE+21, RECEIVE+32
DOB	REC+1~, RECEIVE+84, RECEIVE+85, RECEIVE+94, FILEBUF+25, STATD+12
DT	STATV+13
ECODE	REC+1~
EFFDT	REC+1~, RECEIVE+80, RECEIVE+81, RECEIVE+92, FILEBUF+23
ERFLG	REC+1~, REC+24, RECEIVE+4, RECEIVE+6, RECEIVE+30, RECEIVE+43, RECEIVE+54
ERROR	REC+1~, RECEIVE+1~, RECEIVE+58!, RECEIVE+67, RECEIVE+68, RECEIVE+72!, RECEIVE+102, RECEIVE+103, RECEIVE+107!, RECEIVE+116 , RECEIVE+117, FILEBUF+50~, FILEBUF+52, FILEBUF+53
EVENT	REC+1~
FDATA	REC+1~
FLD	REC+1~
GNAME	REC+2~, RECEIVE+79*, RECEIVE+89, FILEBUF+28
GNUM	REC+2~, RECEIVE+78*, RECEIVE+90, FILEBUF+29, STATD+9
GT1	REC+2~, RECEIVE+4, RECEIVE+59, RECEIVE+73, RECEIVE+74, RECEIVE+98, RECEIVE+99, FILEBUF+32, FILEBUF+35
HCT	RECEIVE+1~, RECEIVE+6*, SPAR+14, SPAR+16, SPAR+17
HL	DECHL7~, DECHL7+16
HL("ECH"	REC+18, REC+19, LP+3, LP+4, LP+5, LP+6, LP1+3
HL("FS"	REC+20, LP+2
HLCMP	REC+17~, REC+18*, RECEIVE+16, RECEIVE+60, RECEIVE+75, RECEIVE+108, RECEIVE+109, RECEIVE+110
HLECH	REC+2~, REC+17~, REC+19*, RECEIVE+23, RECEIVE+24, RECEIVE+25, RECEIVE+26, RECEIVE+36, RECEIVE+62
HLFS	REC+2~, REC+17~, REC+20*, SPAR+17, SPAR+18, LP1+3, LP1+5
HLNEXT	REC+10, RECX+2!
HLNODE	REC+12, RECX+2!
HLNODE(	REC+13, REC+14
HLQUIT	REC+10, RECX+2!
IBACK	REC+2~
IBARY	STATD+7~, STATD+15
IBARY(	STATD+8, STATD+9, STATD+10, STATD+11, STATD+12*
IBBUFDA	FILEBUF+1~, FILEBUF+7*, FILEBUF+9, FILEBUF+13, FILEBUF+41, FILEBUF+43, FILEBUF+47, FILEBUF+51
IBDATA	FILEBUF+1~, FILEBUF+41
IBDATA(	FILEBUF+15, FILEBUF+17, FILEBUF+18, FILEBUF+19, FILEBUF+20, FILEBUF+21, FILEBUF+22, FILEBUF+23, FILEBUF+24, FILEBUF+25 , FILEBUF+26, FILEBUF+27, FILEBUF+28, FILEBUF+29, FILEBUF+30, FILEBUF+33, FILEBUF+34, FILEBUF+37, FILEBUF+38*
IBDFA	REC+2~
IBDFDA	RECEIVE+1~, RECEIVE+51*, RECEIVE+52, RECEIVE+67, RECEIVE+102, RECEIVE+116
IBDFDA(1	RECEIVE+44*
IBPRTCL	REC+2~
IBS	STATV+2~, STATV+5*, STATV+7
IBSEG	RECEIVE+1~, SPAR+11!
IBSEG(	LP1+3*
IBSEG(1	RECEIVE+8
IBSEG(10	RECEIVE+79
IBSEG(13	RECEIVE+80
IBSEG(16	RECEIVE+82
IBSEG(18	RECEIVE+83
IBSEG(19	RECEIVE+84
IBSEG(23	RECEIVE+86
IBSEG(3	RECEIVE+60, RECEIVE+73, RECEIVE+74
IBSEG(4	RECEIVE+16, RECEIVE+22, RECEIVE+61, RECEIVE+75, RECEIVE+108, RECEIVE+109, RECEIVE+110
IBSEG(5	RECEIVE+76
IBSEG(6	RECEIVE+35
IBSEG(9	RECEIVE+78
ICN	REC+2~, RECEIVE+1~, RECEIVE+21, RECEIVE+27, RECEIVE+29, RECEIVE+30, RECEIVE+32
IDLIST	REC+2~, RECEIVE+22*, RECEIVE+23, RECEIVE+24
IDUZ	REC+2~, FILEBUF+5*, FILEBUF+9, FILEBUF+15
IENSTR	RECEIVE+1~
II	SPAR+8~, SPAR+13, LP1+3
IIUARR	STATR+1~, STATR+5
IIUARR(	STATR+6, STATR+8
IIUDAYS	STATV+2~, STATV+11*, STATV+13
IIUEN	STATI+1~, STATI+2*, STATI+3
IIUERR	REC+3~, REC+24, REC+27, REC+31, RECEIVE+4, GETSTAT+1, GETSTAT+2, GETSTAT+3, GETSTAT+4, GETSTAT+5 , STATI+3, STATR+8, STATV+9, STATV+13, STATD+15, STATE+2, STATB+2*
IIUIEN	REC+3~, RECEIVE+42*, RECEIVE+43, RECEIVE+44, RECEIVE+54, FILEBUF+52, FILESTAT+3
IIUIENS	STATR+1~, STATR+6*, STATR+8
IJ	SPAR+8~, LP1+2*, LP1+3
IK	SPAR+8~
IM	SPAR+8~, SPAR+20, LP1, LP1+1
INAME	REC+3~, RECEIVE+35, RECEIVE+36, RECEIVE+61, RECEIVE+62, RECEIVE+64, FILEBUF+34, STATD+11
INSNAME	REC+3~, RECEIVE+76, RECEIVE+77, RECEIVE+88, FILEBUF+18, STATD+8
IS	SPAR+8~, SPAR+13, SPAR+15, SPAR+16, SPAR+17, SPAR+18, LP1
ISCT	RECEIVE+1~, SPAR+8~, SPAR+13, SPAR+14, SPAR+16, SPAR+17
ISDATA	SPAR+8~
ISDATA(	SPAR+16, SPAR+17, SPAR+18, LP1+1
ISEND	SPAR+8~
ISPEC	SPAR+8~
ISPEC(	SPAR+18*, LP1+1
LSDATA	SPAR+8~, SPAR+20, LP1+1, LP1+3, LP1+5*
LV	STATV+2~, STATV+7*, STATV+9, STATV+13
MSG	REC+3~
NPC	SPAR+8~, LP1+1*, LP1+2, LP1+5
PATDFN	REC+3~, RECEIVE+32*, RECEIVE+38, FILEBUF+22, FILEBUF+38, STATV+7, STATD+4
PATICN	REC+3~, RECEIVE+33*, RECEIVE+49
PATID	REC+3~, RECEIVE+74*, RECEIVE+99, FILEBUF+33
PATNAME	REC+3~
PCN	REC+3~, RECEIVE+110*, RECEIVE+113, FILEBUF+21
PIEN	STATR+1~, STATR+3*, STATR+5
PTYPE	REC+3~, RECEIVE+82*, RECEIVE+91, FILEBUF+19
REL	REC+3~, RECEIVE+83*, RECEIVE+93, FILEBUF+27
SEG	RECEIVE+2~, RECEIVE+8*, RECEIVE+10, RECEIVE+13, RECEIVE+19, RECEIVE+57, RECEIVE+71, RECEIVE+106
SEGCNT	REC+4~, REC+10*, REC+12, REC+14
SEGMT	REC+4~
SITE	REC+4~, RECEIVE+16*, RECEIVE+48, FILEBUF+17, STATV+2~, STATV+7
SITE(	STATV+7
SOURCE	FILEBUF+1~, FILEBUF+3*, FILEBUF+7
STATUS	REC+4~, REC+34, RECEIVE+2~, GETSTAT+6, STATI+3, STATR+8, STATV+9, STATV+13, STATD+15, STATE+2 , STATB+2*, FILESTAT+2
STR	DECHL7~, DECHL7+15, LP+1, LP+2, LP+3, LP+4, LP+5, LP+6*, DECHL7Q+1
SUBC	REC+4~, RECEIVE+2~, RECEIVE+24*, RECEIVE+25, RECEIVE+26
SUBCDATA	REC+4~, RECEIVE+2~, RECEIVE+26*, RECEIVE+27, RECEIVE+33
SUBCID	REC+4~, RECEIVE+2~, RECEIVE+25*, RECEIVE+27
SUBCNT	REC+4~, RECEIVE+2~, RECEIVE+23*, RECEIVE+24
SUBID	REC+4~, RECEIVE+60, RECEIVE+65, RECEIVE+73, RECEIVE+98, FILEBUF+30, FILEBUF+37, STATD+10
U	STATV+5, STATV+7
UPD	RECEIVE+2~, RECEIVE+58!, RECEIVE+67, RECEIVE+72!, RECEIVE+102, RECEIVE+107!, RECEIVE+116, FILEBUF+50~, FILEBUF+52
VAID	REC+5~, RECEIVE+75*, RECEIVE+96, STATR+3
WHOSE	REC+5~, RECEIVE+108*, RECEIVE+114, FILEBUF+24
XDFN	REC+5~, RECEIVE+2~, RECEIVE+29*, RECEIVE+30, RECEIVE+32

Name

Field # of Occurrence

BIN

REC+1~, RECEIVE+109*, RECEIVE+112, FILEBUF+20

BUFLOCK

FILEBUF+13*, FILEBUF+47~*

CNT

REC+1~, REC+11*, REC+12, REC+13*, REC+14

COB

REC+1~, RECEIVE+86*, RECEIVE+95, FILEBUF+26

DATA