Routine: IBCNEHL3

Information

IBCNEHL3 ;DAOU/ALA - HL7 Process Incoming RPI Continued ;03-JUL-2002 ; Compiled June 2, 2005 14:20:19

Package	Total	Call Graph
Integrated Billing	7	RP^IBCNEBF RESP^IBCNEDEQ BUF^IBCNEHL3 ($$CLNSTR,$$NAMECMP)^IBCNEHLU (BUFF,SST)^IBCNEUT2 MSG^IBCNEUT5 ($$ERRN,RSTA)^IBCNEUT7
VA FileMan	3	($$FIND1,FIND)^DIC (,FILE)^DIE $$GET1^DIQ
Kernel	1	($$DT,$$FMADD,$$NOW)^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Integrated Billing	6	IBCNBAR IBCNEHL1 IBCNEHL3 IBCNEHL4 IBCNEHL5 IBCNEHL6

Entry Points

Name	Comments	DBIA/ICR reference
ERROR(TQN,ERACT,ERCON,TRCN)	; Entry point ; Input: TQN - IEN for eIV Transmission Queue (#365.1), required ; ERACT - Error Action Code (#365.14), required ; ERCON - Error Condition Code (#365.17), required ; TRCN - Trace # from eIV Response (#365)
ERRORX	; ERROR exit pt
UPDATE(TQN,TSTS,TDAYS,ERACT,ERCON)	; Update Transmission Queue (#365.1) ; Update/Create Buffer information as necessary ; * If unsolicited error or negative Verification response do not ; update TQ entry. However, create a new Buffer entry. ; Input Variables ; ERACT,ERCON,IIVSTAT,TDAYS,TQN,TSTS
UPDATX	; UPDATE exit point
PCK	; Payer Check ; Find the associated Response IEN
BUF	; Create Buffer Record if Doesn't Exist
IIVPROC(BUFF)	; Set IIV Processed Date to current dt/tm & IIV stat (aka SYMBOL) ; Input Variables ; BUFF
PFN(IN1DATA)	; Find Payer from HL7 msg
GIN1()	;Get IN1 segment
WARN	; Create and send a response processing error warning message
UEACT	; Send warning msg if Unknown Error Action Code was received or ; encountered problem filing date
CHK1()	; check auto-update criteria for patient who is the subscriber ; called from tag AUTOUPD, uses variables defined there
CHK1X	;
CHK2(MWNRTYP)	; check auto-update criteria for patient who is not the subscriber ; called from tag AUTOUPD, uses variables defined there
CHK2X	;
UPDIREC(RIEN,IEN312)	; IB2595/DM update INSUR RECORD IEN in the response file (#365,.12) ; RIEN - ien in eIV Response file (365) ; IEN312 - ien in pat. insurance multiple (2.312)
LCKERR	; send locking error message

External References

Name	Field # of Occurrence
$$FIND1^DIC	IIVPROC+10, PFN+10
FIND^DIC	PCK+16
^DIE	UPDATE+77, UPDATE+80, PCK+58
FILE^DIE	BUF+14, IIVPROC+11, UPDIREC+11
$$GET1^DIQ	CHK2+10, CHK2+12, LCKERR+5, LCKERR+6
RP^IBCNEBF	BUF+10
RESP^IBCNEDEQ	PCK+52
BUF^IBCNEHL3	UEACT+27
$$CLNSTR^IBCNEHLU	PFN+9
$$NAMECMP^IBCNEHLU	CHK1+8, CHK2+13, CHK2+14
BUFF^IBCNEUT2	UPDATE+45, UPDATE+50, UPDATE+53, IIVPROC+13, UEACT+30
SST^IBCNEUT2	UPDATE+71, UEACT+17
MSG^IBCNEUT5	WARN+28, LCKERR+11
$$ERRN^IBCNEUT7	PFN+12
RSTA^IBCNEUT7	UEACT+17
$$DT^XLFDT	UPDATE+75
$$FMADD^XLFDT	UPDATE+75
$$NOW^XLFDT	IIVPROC+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.312	GET1^DIQ
^VA(200 - [#200]	FIND1^DIC
^IBCN(365 - [#365]	Classic Fileman Calls, FIND^DIC
^IBCN(365.1 - [#365.1]	Classic Fileman Calls
^IBE(365.12 - [#365.12]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CHK2+6
^IBA(355.33 - [#355.33]	UPDATE+37
^IBCN(365 - [#365]	UPDATE+26, PCK+34, PCK+44, PCK+57
^IBCN(365.1 - [#365.1]	UPDATE+20, PCK+19, PCK+28
^TMP("IBCNEMID"	PCK+15!, PCK+20, PCK+21
^TMP($J	GIN1+9, GIN1+10

Label References

Name	Line Occurrences
$$GIN1	PCK+26, PCK+48
BUF	UPDATE+62, UPDATE+64, UPDATE+66
CHK1X	CHK1+6, CHK1+7, CHK1+8
CHK2X	CHK2+9, CHK2+11, CHK2+13, CHK2+14
ERRORX	ERROR+10, ERROR+57
IIVPROC	UPDATE+51
PFN	PCK+30, PCK+49
UPDATE	ERROR+59
UPDATX	UPDATE+21, UPDATE+30, UPDATE+68
WARN	UEACT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BUFF	PCK+11~, PCK+50, BUF+8~, BUF+11, IIVPROC~, IIVPROC+8, IIVPROC+13
D	UPDATE+14~
D0	UPDATE+14~
DA	ERROR+8~, UPDATE+14~, UPDATE+76, UPDATE+79, PCK+11~, PCK+58*
DATA	UPDIREC+4~
DATA(365	UPDIREC+10*
DFN	UPDATE+14~, UPDATE+58, PCK+11~, PCK+45, UEACT+9~, UEACT+26*, LCKERR+5
DI	UPDATE+14~
DIC	UPDATE+14~
DIE	ERROR+8~, UPDATE+14~, UPDATE+76, UPDATE+79, PCK+11~, PCK+58*
DOB	CHK2+4~, CHK2+10*, CHK2+11
DQ	UPDATE+14~
DR	ERROR+8~, UPDATE+14~, UPDATE+76, UPDATE+79, PCK+11~, PCK+58*
ERACT	ERROR~, ERROR+56*, ERROR+57, ERROR+59, UPDATE~, UPDATE+48, UPDATE+53, UPDATE+62, UPDATE+64, UPDATE+66
ERCON	ERROR~, ERROR+59, UPDATE~, UPDATE+11*
ERDESC	ERROR+8~
>> ERFLG	PCK+42, PCK+47, PFN+12, WARN+9
ERIEN	ERROR+8~
ERROR	UPDIREC+4~
ERROR("DIERR"	PFN+13, PFN+14, WARN+19, WARN+21, WARN+23, WARN+24, WARN+25
>> EVENTYP	PCK+26
FTDT	UPDATE+14~, UPDATE+75*
>> HCT	GIN1+8
>> HL("ECH"	PFN+9
>> HLFS	PFN+9
IBDATA	UPDATE+14~, UPDATE+37*, UPDATE+38, UPDATE+39
IBFDA	BUF+8~, BUF+11, BUF+12, BUF+13
IBIEN	UPDATE+14~, UPDATE+24, UPDATE+32, UPDATE+35, UPDATE+37, UPDATE+45, UPDATE+50, UPDATE+51, UPDATE+53, UPDATE+56 , UEACT+24*, UEACT+25, UEACT+30
IBQFL	UPDATE+14~, UPDATE+25*, UPDATE+30, UPDATE+56, UEACT+21
IBSTS	UPDATE+14~, UPDATE+38*, UPDATE+43
IBSYM	UPDATE+14~, UPDATE+39*, UPDATE+43
ID	CHK2+4~, CHK2+8*, CHK2+9
>> IDATA3	CHK1+7, CHK2+11
IDATA5	CHK2+4~, CHK2+6*, CHK2+9
>> IDATA7	CHK1+6, CHK1+8, CHK2+9, CHK2+13
IDUZ	IIVPROC+7~, IIVPROC+10*
IEN	PCK+11~, PCK+45*
>> IEN2	CHK2+6, CHK2+7
IEN312	CHK2+6, UPDIREC~, UPDIREC+5, UPDIREC+10
IENS	CHK2+4~, CHK2+7*, CHK2+10, CHK2+12, UPDIREC+4~, LCKERR+6, LCKERR+7
IERN	PCK+11~, PFN+8~, PFN+12*, PFN+13, PFN+14
>> IIVSTAT	UPDATE+18*, UPDATE+49, UPDATE+62, UPDATE+64, UEACT+21
IN1DATA	PCK+11~, PCK+26, PCK+27, PCK+30, PCK+48, PCK+49, PFN~, PFN+9
INSIEN	UPDATE+15~, UPDATE+60*
IPCT	GIN1+7~, GIN1+8, GIN1+9, GIN1+10
>> IRIEN	BUF+9*
>> MAP(	UPDATE+49, UPDATE+62, UPDATE+64
MCT	WARN+8~, WARN+9, WARN+20, WARN+21, WARN+22, WARN+23, WARN+24, WARN+25, WARN+26
MDTM	PCK+11~, PCK+45*
>> MGRP	WARN+28, LCKERR+11
MSG	ERROR+8~, WARN+8~, LCKERR+1~
MSG(	WARN+20, WARN+21, WARN+22, WARN+23, WARN+24, WARN+25, WARN+26*
MSG(1	WARN+10, WARN+28, LCKERR+2, LCKERR+11
MSG(2	WARN+11, LCKERR+3
MSG(3	WARN+12, LCKERR+4
MSG(4	WARN+13, LCKERR+5
MSG(5	WARN+14, LCKERR+6
MSG(6	WARN+15, LCKERR+7
MSG(7	WARN+16, LCKERR+8
MSG(8	WARN+17, LCKERR+9
MSG(9	WARN+18, LCKERR+10
>> MSGID	PCK+16, PCK+19
MWNRTYP	CHK2~, CHK2+13, CHK2+14
NAME	CHK2+4~, CHK2+12*, CHK2+13, CHK2+14
PAYR	PCK+11~, PCK+50*
PAYRID	PFN+8~, PFN+9*, PFN+10, PFN+13
PDOB	CHK2+4~, CHK2+10*, CHK2+11
PIEN	PCK+11~, PCK+18, PCK+28, PCK+30, PCK+34, PCK+47, PCK+49, PCK+50, PCK+57, PFN+10 , PFN+11
PNAME	CHK2+4~, CHK2+12*, CHK2+13, CHK2+14
PP	PCK+11~, PCK+18, PCK+20, PCK+21
PRDATA	PCK+12~, PCK+44*, PCK+45
PRIEN	PCK+12~, PCK+21*, PCK+27, PCK+34, PCK+35, PCK+43, PCK+44
QFL	PCK+11~, PCK+18, PCK+20, PCK+28, PCK+30, PCK+35, PCK+49*
>> RDATA1	CHK1+7, CHK2+10
>> RDATA13	CHK1+6, CHK1+8, CHK2+8, CHK2+12
RES	CHK1+4~, CHK1+5, CHK1+9, CHK1X+1, CHK2+4~, CHK2+5, CHK2+15, CHK2X+1
RIEN	UPDATE+26, PCK+18, PCK+35, PCK+42, PCK+53*, PCK+57, PCK+58, BUF+10, BUF+12, UEACT+13 , UPDIREC~, UPDIREC+5, UPDIREC+10
RSIEN	PCK+12~, PCK+53
RSTYPE	UPDATE+15~, UPDATE+26, UPDATE+30, UPDATE+32, UPDATE+68, PCK+50, BUF+9, BUF+13, UEACT+17, UEACT+24
SEGMT	GIN1+7~, GIN1+8, GIN1+10, GIN1+11
SUBCNT	WARN+8~, WARN+9, WARN+21
SYMBOL	UPDATE+15~, UPDATE+49, UPDATE+50, UPDATE+62, UPDATE+64, UPDATE+66, BUF+15!, IIVPROC+13, UEACT+9~, UEACT+27*
TDAYS	UPDATE~, UPDATE+74, UPDATE+75
TQDATA	UPDATE+15~, UPDATE+20*, UPDATE+21, UPDATE+24, UPDATE+25, UPDATE+58, UPDATE+60, UPDATE+78, UEACT+13, UEACT+26
TQIEN	PCK+13~, PCK+19, PCK+27, PCK+28, BUF+9
TQN	ERROR~, ERROR+10, ERROR+59, UPDATE~, UPDATE+20, UPDATE+71, UPDATE+76, UPDATE+79, BUF+13, UEACT+17
>> TRACE	PFN+14, WARN+16
TRCN	ERROR~
TSTS	UPDATE~, UPDATE+43*, UPDATE+45, UPDATE+48, UPDATE+53, UPDATE+71, UPDATE+74, UPDATE+78
U	UPDATE+24, UPDATE+25, UPDATE+26, UPDATE+38, UPDATE+39, UPDATE+58, UPDATE+60, UPDATE+78, PCK+21, PCK+28 , PCK+34, PCK+45, PCK+57, UEACT+26, CHK1+6, CHK1+7, CHK1+8, CHK2+8, CHK2+9, CHK2+10 , CHK2+11, CHK2+12, CHK2+13
UP	BUF+8~, IIVPROC+7~
UP(	BUF+13, IIVPROC+8
UP(365	BUF+12*
VEN	WARN+8~, WARN+9, WARN+19, WARN+21, WARN+23, WARN+24, WARN+25
X	UPDATE+15~, PCK+12~
XMY	ERROR+8~, WARN+8~, WARN+28, LCKERR+1~, LCKERR+11

Customize PDF page

Package: Integrated Billing