Routine: IBCNEHL5

Package	Total	Call Graph
Integrated Billing	10	DELDATA^IBCNBED STATUS^IBCNBEE ($$EBFILE,$$GRPFILE,FIL)^IBCNEHL1 (LCKERR,UPDIREC,WARN)^IBCNEHL3 ($$PREL,CODECHK)^IBCNEHLU MSG003^IBCNEMS1 SST^IBCNEUT2 ($$MGRP,MSG)^IBCNEUT5 RSTA^IBCNEUT7 LOC^IBCNIUF
VA FileMan	3	(,FILE,UPDATE)^DIE ^DIK ($$GET1,GETS)^DIQ
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Integrated Billing	1	IBCNEHL1

Name	Comments	DBIA/ICR reference
GZRF(ERROR,IBSEG,RIEN)	; Process Group level ZRF Reference identification segment (x12 loops 2100C and 2100D)
ZMP(ERROR,IBSEG,RIEN)	; Process Military Personnel Information that comes from X12 271 MPI segment of the 2100C and 2100D loops
ROL(ERROR,IBSEG,RIEN)	; process group level Provider Information in the X12 271 PRV segment of X12 loops: 2100B, 2100C, 2100D
DG1(ERROR,IBSEG,RIEN)	; process DIAGNOSIS codes in the X12 271 HI segment of X12 loops: 2100C, 2100D
EBFILE(DFN,IEN312,RIEN,AFLG)	;EP ; File eligibility/benefit data from file 365 into file 2.312 ; IB2.0549 moved method from IBCNEHL1 because of routine size limitations ; Input: DFN - Internal Patient IEN ; IEN312 - Insurance multiple # ; RIEN - file 365 ien ; AFLG - 1 if called from autoupdate ; 0 if called from ins. buffer process entry ; Returns: "" on success, ERFLG on failure. Also called from ACCEPT^IBCNBAR ; for manual processing of ins. buffer entry.
UPDT365(RIEN,IEN312)
AUTOFIL(DFN,IEN312,ISSUB)	;Finish processing the response message - file directly into patient insurance
AUTOFILX	;

Name	Field # of Occurrence
^DIE	EBFILE+30, UPDT365+9, UPDT365+14
FILE^DIE	AUTOFIL+58, AUTOFIL+65, AUTOFIL+73, AUTOFIL+94
UPDATE^DIE	GZRF+16, ZMP+19, ROL+14, DG1+15, EBFILE+50, EBFILE+53, EBFILE+56, EBFILE+59, EBFILE+62, EBFILE+65 , EBFILE+68, AUTOFIL+111
^DIK	EBFILE+15
$$GET1^DIQ	EBFILE+40, UPDT365+5, AUTOFIL+10, AUTOFIL+12, AUTOFIL+14, AUTOFIL+16, AUTOFIL+19, AUTOFIL+20, AUTOFIL+27, AUTOFIL+28 , AUTOFIL+34, AUTOFIL+36, AUTOFIL+38, AUTOFIL+40, AUTOFIL+42, AUTOFIL+44, AUTOFIL+46, AUTOFIL+101, AUTOFIL+102, AUTOFIL+105 , AUTOFIL+106, AUTOFIL+118
GETS^DIQ	EBFILE+46
DELDATA^IBCNBED	AUTOFIL+97
STATUS^IBCNBEE	AUTOFIL+89
$$EBFILE^IBCNEHL1	AUTOFIL+78
$$GRPFILE^IBCNEHL1	AUTOFIL+75
FIL^IBCNEHL1	AUTOFIL+57, AUTOFIL+59
LCKERR^IBCNEHL3	AUTOFIL+57
UPDIREC^IBCNEHL3	AUTOFIL+69, AUTOFIL+82
WARN^IBCNEHL3	EBFILE+46, EBFILE+50, EBFILE+53, EBFILE+56, EBFILE+59, EBFILE+62, EBFILE+65, EBFILE+68, AUTOFIL+59, AUTOFIL+66
$$PREL^IBCNEHLU	AUTOFIL+22
CODECHK^IBCNEHLU	GZRF+15, ZMP+18, ROL+13
MSG003^IBCNEMS1	AUTOFIL+113
SST^IBCNEUT2	AUTOFIL+85
$$MGRP^IBCNEUT5	AUTOFIL+114
MSG^IBCNEUT5	AUTOFIL+114
RSTA^IBCNEUT7	AUTOFIL+85
LOC^IBCNIUF	AUTOFIL+118
$$NOW^XLFDT	AUTOFIL+5, AUTOFIL+103

FileNo	Call Tags
2.312	GET1^DIQ
^IBCN(365 - [#365]	GET1^DIQ
365.02	GET1^DIQ, GETS^DIQ
^IBCN(365.1 - [#365.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EBFILE+15, EBFILE+35, AUTOFIL+57, AUTOFILX+1
^IBA(355.3 - [#355.3]	EBFILE+41
^IBCN(365 - [#365]	GZRF+10, ROL+10, DG1+10, EBFILE+22, EBFILE+23, EBFILE+36, EBFILE+37, AUTOFIL+6, AUTOFIL+7, AUTOFIL+87
^IBCN(365.1 - [#365.1]	EBFILE+22

Name	Line Occurrences
AUTOFILX	AUTOFIL+59, AUTOFIL+66, AUTOFIL+76, AUTOFIL+80
UPDT365	EBFILE+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFLG	EBFILE~, EBFILE+46, EBFILE+50, EBFILE+53, EBFILE+56, EBFILE+59, EBFILE+62, EBFILE+65, EBFILE+68
BUFF	AUTOFIL+2~, AUTOFIL+87, AUTOFIL+88, AUTOFIL+89, AUTOFIL+91, AUTOFIL+97, AUTOFIL+100~, AUTOFIL+102, AUTOFIL+109, AUTOFIL+113
DA	EBFILE+12~, EBFILE+15, EBFILE+25, UPDT365+4~, UPDT365+7, UPDT365+12
DA(1	EBFILE+14, EBFILE+25
DA(2	EBFILE+14*
DATA	EBFILE+12~, EBFILE+70!, AUTOFIL+2~, AUTOFIL+58, AUTOFIL+60!, AUTOFIL+71!
DATA(	EBFILE+48, EBFILE+49, EBFILE+52, EBFILE+53, EBFILE+55, EBFILE+56, EBFILE+58, EBFILE+59, EBFILE+61, EBFILE+62 , EBFILE+64, EBFILE+65, EBFILE+67, EBFILE+68, AUTOFIL+11, AUTOFIL+13, AUTOFIL+15, AUTOFIL+17, AUTOFIL+22, AUTOFIL+30 , AUTOFIL+48, AUTOFIL+49, AUTOFIL+50, AUTOFIL+51, AUTOFIL+52, AUTOFIL+53, AUTOFIL+54, AUTOFIL+61, AUTOFIL+62, AUTOFIL+63 , AUTOFIL+64*
DATA(365	AUTOFIL+72*
DATA1	EBFILE+12~, EBFILE+51!, EBFILE+53!, EBFILE+56!, EBFILE+59!, EBFILE+62!, EBFILE+65!, EBFILE+68!
DATA1(	EBFILE+49, EBFILE+53, EBFILE+56, EBFILE+59, EBFILE+62, EBFILE+65, EBFILE+68*
DCODE	DG1+8~, DG1+11*, DG1+12
DFN	EBFILE~, EBFILE+14, EBFILE+15, EBFILE+25, EBFILE+28, EBFILE+34, EBFILE+35, AUTOFIL~, AUTOFIL+5, AUTOFIL+57 , AUTOFIL+75, AUTOFIL+78, AUTOFIL+118, AUTOFILX+1
DIE	EBFILE+21~, EBFILE+25, UPDT365+4~, UPDT365+7, UPDT365+12*
DIK	EBFILE+12~, EBFILE+14*
DR	EBFILE+21~, EBFILE+29, UPDT365+4~, UPDT365+8, UPDT365+13*
EBIENS	EBFILE+12~, EBFILE+37*, EBFILE+40, EBFILE+46
ERFLG	EBFILE+12~, EBFILE+36, EBFILE+52, EBFILE+55, EBFILE+58, EBFILE+61, EBFILE+64, EBFILE+67, EBFILE+72, AUTOFIL+75* , AUTOFIL+76, AUTOFIL+78*, AUTOFIL+80
ERROR	GZRF~, ZMP~, ROL~, DG1~, EBFILE+12~, EBFILE+46, EBFILE+50, EBFILE+53, EBFILE+56, EBFILE+59 , EBFILE+62, EBFILE+65, EBFILE+68, AUTOFIL+2~, AUTOFIL+59!, AUTOFIL+66, AUTOFIL+100~, AUTOFIL+112, AUTOFIL+113
FDA	AUTOFIL+100~
FDA(	AUTOFIL+103, AUTOFIL+104, AUTOFIL+105, AUTOFIL+106, AUTOFIL+107, AUTOFIL+108, AUTOFIL+109, AUTOFIL+110
GIEN	EBFILE+12~, EBFILE+35*, EBFILE+39, EBFILE+41
GSKIP	EBFILE+12~, EBFILE+39, EBFILE+42, EBFILE+43*, EBFILE+45
>> HLCMP	GZRF+12, ZMP+16, ROL+11, ROL+12, DG1+11, DG1+13, DG1+14
IBARR	AUTOFIL+3~, AUTOFIL+91!
IBARR(	AUTOFIL+93*
>> IBEIVUSR	AUTOFIL+62, AUTOFIL+64, AUTOFIL+93
IBIFN	AUTOFIL+3~, AUTOFIL+91*, AUTOFIL+93
>> IBMSG	AUTOFIL+113
IBSEG	GZRF~, ZMP~, ROL~, DG1~
IBSEG(16	DG1+14
IBSEG(3	GZRF+12, ZMP+10
IBSEG(4	GZRF+12, ZMP+11, ROL+11, DG1+11, DG1+13
IBSEG(5	GZRF+14, ZMP+12, ROL+12
IBSEG(6	ZMP+13
IBSEG(7	ZMP+14
IBSEG(8	ZMP+16
IBSEG(9	ZMP+16
IEN312	EBFILE~, EBFILE+14, EBFILE+15, EBFILE+25, EBFILE+28, EBFILE+34, EBFILE+35, UPDT365~, UPDT365+5, AUTOFIL~ , AUTOFIL+5, AUTOFIL+57, AUTOFIL+69, AUTOFIL+75, AUTOFIL+78, AUTOFIL+82, AUTOFIL+118, AUTOFILX+1
IENROOT	EBFILE+12~, EBFILE+51!
IENROOT(1	EBFILE+51
IENS	EBFILE+12~, EBFILE+49, EBFILE+51, EBFILE+53, EBFILE+56, EBFILE+59, EBFILE+62, EBFILE+65, EBFILE+68, AUTOFIL+2~ , AUTOFIL+5*, AUTOFIL+10, AUTOFIL+11, AUTOFIL+12, AUTOFIL+13, AUTOFIL+14, AUTOFIL+15, AUTOFIL+16, AUTOFIL+17, AUTOFIL+20 , AUTOFIL+22, AUTOFIL+27, AUTOFIL+30, AUTOFIL+34, AUTOFIL+36, AUTOFIL+38, AUTOFIL+40, AUTOFIL+42, AUTOFIL+44, AUTOFIL+46 , AUTOFIL+48, AUTOFIL+49, AUTOFIL+50, AUTOFIL+51, AUTOFIL+52, AUTOFIL+53, AUTOFIL+54, AUTOFIL+61, AUTOFIL+62, AUTOFIL+63 , AUTOFIL+64
IENSTR	GZRF+8~, GZRF+9, GZRF+10, GZRF+13, GZRF+14, ZMP+8~, ZMP+9, ZMP+10, ZMP+11, ZMP+12 , ZMP+13, ZMP+14, ZMP+17, ROL+8~, ROL+9, ROL+10, ROL+11, ROL+12, DG1+8~, DG1+9 , DG1+10, DG1+12, DG1+13, DG1+14, EBFILE+12~, EBFILE+34*, EBFILE+49, EBFILE+51
ISSUB	AUTOFIL~, AUTOFIL+11, AUTOFIL+17, AUTOFIL+21
MIL	AUTOFIL+2~
NODE0	EBFILE+21~, EBFILE+22*, EBFILE+23, EBFILE+24
OKAY	AUTOFIL+2~
PREL	AUTOFIL+2~, AUTOFIL+19*, AUTOFIL+21, AUTOFIL+22
QUAL	GZRF+8~, GZRF+12, GZRF+13, ZMP+8~, ZMP+16, ZMP+17, ROL+8~
RDATA0	AUTOFIL+2~, AUTOFIL+6*, AUTOFIL+8
RDATA1	AUTOFIL+2~, AUTOFIL+6*, AUTOFIL+13, AUTOFIL+15, AUTOFIL+17
RDATA13	AUTOFIL+2~, AUTOFIL+7*, AUTOFIL+11
RDATA5	AUTOFIL+2~, AUTOFIL+6*, AUTOFIL+48, AUTOFIL+49, AUTOFIL+50, AUTOFIL+51, AUTOFIL+52, AUTOFIL+53, AUTOFIL+54
RIEN	GZRF~, GZRF+9, GZRF+10, ZMP~, ZMP+9, ROL~, ROL+9, ROL+10, DG1~, DG1+9 , DG1+10, EBFILE~, EBFILE+22, EBFILE+23, EBFILE+28, EBFILE+29, EBFILE+36, EBFILE+37, UPDT365~, UPDT365+12 , AUTOFIL+6, AUTOFIL+7, AUTOFIL+19, AUTOFIL+69, AUTOFIL+72, AUTOFIL+75, AUTOFIL+78, AUTOFIL+82, AUTOFIL+87, AUTOFIL+102 , AUTOFIL+106, AUTOFIL+108, AUTOFIL+113, AUTOFIL+118
RSRVDT	EBFILE+21~, EBFILE+23, EBFILE+24, EBFILE+29
RSTYPE	EBFILE+21~, EBFILE+23, EBFILE+29, AUTOFIL+2~, AUTOFIL+8, AUTOFIL+85
RSUPDT	GZRF+8~, GZRF+15, ZMP+8~, ZMP+18, ROL+8~, ROL+13, DG1+8~, DG1+15
RSUPDT(	GZRF+10, GZRF+13, GZRF+14, ROL+10, ROL+11, ROL+12, DG1+10, DG1+12, DG1+13, DG1+14
RSUPDT(365	ZMP+10, ZMP+11, ZMP+12, ZMP+13, ZMP+14, ZMP+17
TQIEN	EBFILE+21~, EBFILE+22*
TQN	AUTOFIL+2~, AUTOFIL+8*, AUTOFIL+28, AUTOFIL+85, AUTOFIL+101, AUTOFIL+105, AUTOFIL+107, AUTOFIL+113, AUTOFIL+118
TSTAMP	AUTOFIL+2~, AUTOFIL+5*, AUTOFIL+61, AUTOFIL+63
TYPE	EBFILE+12~, EBFILE+40*, EBFILE+42, EBFILE+43
TYPE1	EBFILE+12~, EBFILE+41*, EBFILE+42, EBFILE+43
U	EBFILE+22, EBFILE+23, EBFILE+24, EBFILE+35, EBFILE+41, AUTOFIL+8, AUTOFIL+11, AUTOFIL+13, AUTOFIL+15, AUTOFIL+17 , AUTOFIL+48, AUTOFIL+49, AUTOFIL+50, AUTOFIL+51, AUTOFIL+52, AUTOFIL+53, AUTOFIL+54, AUTOFIL+87, AUTOFIL+104
VALUE	GZRF+8~, GZRF+12, GZRF+13, ZMP+8~, ZMP+16, ZMP+17, ROL+8~
WE	AUTOFIL+100~, AUTOFIL+101*, AUTOFIL+104, AUTOFIL+110
XX	UPDT365+4~, UPDT365+5, UPDT365+6, UPDT365+7, AUTOFIL+2~, AUTOFIL+10, AUTOFIL+11, AUTOFIL+12, AUTOFIL+13, AUTOFIL+14 , AUTOFIL+15, AUTOFIL+16, AUTOFIL+17, AUTOFIL+20, AUTOFIL+21, AUTOFIL+28, AUTOFIL+29, AUTOFIL+30, AUTOFIL+34, AUTOFIL+35 , AUTOFIL+36, AUTOFIL+37, AUTOFIL+38, AUTOFIL+39, AUTOFIL+40, AUTOFIL+41, AUTOFIL+42, AUTOFIL+43, AUTOFIL+44, AUTOFIL+45 , AUTOFIL+46*, AUTOFIL+47
Z	EBFILE+12~, EBFILE+36*, EBFILE+37
Z1	EBFILE+12~, EBFILE+49*
Z2	EBFILE+12~, EBFILE+52, EBFILE+53, EBFILE+55, EBFILE+56, EBFILE+58, EBFILE+59, EBFILE+61, EBFILE+62, EBFILE+64* , EBFILE+65, EBFILE+67*, EBFILE+68

Customize PDF page

Package: Integrated Billing

Routine: IBCNEHL5

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: