Routine: IBCNEHL5

Package	Total	Call Graph
Integrated Billing	8	DELDATA^IBCNBED STATUS^IBCNBEE ($$EBFILE,$$GRPFILE,FIL)^IBCNEHL1 (LCKERR,UPDIREC,WARN)^IBCNEHL3 ($$PREL,CODECHK)^IBCNEHLU MSG003^IBCNEMS1 ($$MGRP,MSG)^IBCNEUT5 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+32, UPDT365+9, UPDT365+14
FILE^DIE	AUTOFIL+59, AUTOFIL+66, AUTOFIL+74, AUTOFIL+109
UPDATE^DIE	GZRF+16, ZMP+19, ROL+14, DG1+15, EBFILE+52, EBFILE+55, EBFILE+58, EBFILE+61, EBFILE+64, EBFILE+67 , EBFILE+70, AUTOFIL+124
^DIK	EBFILE+15
$$GET1^DIQ	EBFILE+42, UPDT365+5, AUTOFIL+10, AUTOFIL+12, AUTOFIL+14, AUTOFIL+16, AUTOFIL+19, AUTOFIL+20, AUTOFIL+28, AUTOFIL+29 , AUTOFIL+35, AUTOFIL+37, AUTOFIL+39, AUTOFIL+41, AUTOFIL+43, AUTOFIL+45, AUTOFIL+47, AUTOFIL+94, AUTOFIL+101, AUTOFIL+114 , AUTOFIL+115, AUTOFIL+118, AUTOFIL+119
GETS^DIQ	EBFILE+48
DELDATA^IBCNBED	AUTOFIL+110
STATUS^IBCNBEE	AUTOFIL+105
$$EBFILE^IBCNEHL1	AUTOFIL+81
$$GRPFILE^IBCNEHL1	AUTOFIL+77
FIL^IBCNEHL1	AUTOFIL+58, AUTOFIL+60
LCKERR^IBCNEHL3	AUTOFIL+58
UPDIREC^IBCNEHL3	AUTOFIL+70, AUTOFIL+85
WARN^IBCNEHL3	EBFILE+48, EBFILE+52, EBFILE+55, EBFILE+58, EBFILE+61, EBFILE+64, EBFILE+67, EBFILE+70, AUTOFIL+60, AUTOFIL+67
$$PREL^IBCNEHLU	AUTOFIL+22
CODECHK^IBCNEHLU	GZRF+15, ZMP+18, ROL+13
MSG003^IBCNEMS1	AUTOFIL+126
$$MGRP^IBCNEUT5	AUTOFIL+127
MSG^IBCNEUT5	AUTOFIL+127
LOC^IBCNIUF	AUTOFIL+94
$$NOW^XLFDT	AUTOFIL+5, AUTOFIL+116

FileNo	Call Tags
2.312	GET1^DIQ
^IBA(355.33 - [#355.33]	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+37, AUTOFIL+58, AUTOFILX+1
^IBA(355.3 - [#355.3]	EBFILE+43
^IBCN(365 - [#365]	GZRF+10, ROL+10, DG1+10, EBFILE+22, EBFILE+23, EBFILE+38, EBFILE+39, AUTOFIL+6, AUTOFIL+7, AUTOFIL+97
^IBCN(365.1 - [#365.1]	EBFILE+22

Name	Line Occurrences
AUTOFILX	AUTOFIL+60, AUTOFIL+67, AUTOFIL+78, AUTOFIL+82, AUTOFIL+101
UPDT365	EBFILE+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFLG	EBFILE~, EBFILE+48, EBFILE+52, EBFILE+55, EBFILE+58, EBFILE+61, EBFILE+64, EBFILE+67, EBFILE+70
BUFF	AUTOFIL+2~, AUTOFIL+97, AUTOFIL+101, AUTOFIL+104, AUTOFIL+105, AUTOFIL+107, AUTOFIL+110, AUTOFIL+113~, AUTOFIL+115, AUTOFIL+122 , AUTOFIL+126
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+72!, AUTOFIL+2~, AUTOFIL+59, AUTOFIL+61!, AUTOFIL+72!
DATA(	EBFILE+50, EBFILE+51, EBFILE+54, EBFILE+55, EBFILE+57, EBFILE+58, EBFILE+60, EBFILE+61, EBFILE+63, EBFILE+64 , EBFILE+66, EBFILE+67, EBFILE+69, EBFILE+70, AUTOFIL+11, AUTOFIL+13, AUTOFIL+15, AUTOFIL+17, AUTOFIL+22, AUTOFIL+31 , AUTOFIL+49, AUTOFIL+50, AUTOFIL+51, AUTOFIL+52, AUTOFIL+53, AUTOFIL+54, AUTOFIL+55, AUTOFIL+62, AUTOFIL+63, AUTOFIL+64 , AUTOFIL+65*
DATA(365	AUTOFIL+73*
DATA1	EBFILE+12~, EBFILE+53!, EBFILE+55!, EBFILE+58!, EBFILE+61!, EBFILE+64!, EBFILE+67!, EBFILE+70!
DATA1(	EBFILE+51, EBFILE+55, EBFILE+58, EBFILE+61, EBFILE+64, EBFILE+67, EBFILE+70*
DCODE	DG1+8~, DG1+11*, DG1+12
DFN	EBFILE~, EBFILE+14, EBFILE+15, EBFILE+25, EBFILE+28, EBFILE+36, EBFILE+37, AUTOFIL~, AUTOFIL+5, AUTOFIL+58 , AUTOFIL+77, AUTOFIL+81, AUTOFIL+94, AUTOFILX+1
DIE	EBFILE+21~, EBFILE+25, UPDT365+4~, UPDT365+7, UPDT365+12*
DIK	EBFILE+12~, EBFILE+14*
DR	EBFILE+21~, EBFILE+31, UPDT365+4~, UPDT365+8, UPDT365+13*
EBIENS	EBFILE+12~, EBFILE+39*, EBFILE+42, EBFILE+48
ERFLG	EBFILE+12~, EBFILE+38, EBFILE+54, EBFILE+57, EBFILE+60, EBFILE+63, EBFILE+66, EBFILE+69, EBFILE+74, AUTOFIL+77* , AUTOFIL+78, AUTOFIL+81*, AUTOFIL+82
ERROR	GZRF~, ZMP~, ROL~, DG1~, EBFILE+12~, EBFILE+48, EBFILE+52, EBFILE+55, EBFILE+58, EBFILE+61 , EBFILE+64, EBFILE+67, EBFILE+70, AUTOFIL+2~, AUTOFIL+60!, AUTOFIL+67, AUTOFIL+113~, AUTOFIL+125, AUTOFIL+126
FDA	AUTOFIL+113~
FDA(	AUTOFIL+116, AUTOFIL+117, AUTOFIL+118, AUTOFIL+119, AUTOFIL+120, AUTOFIL+121, AUTOFIL+122, AUTOFIL+123
GIEN	EBFILE+12~, EBFILE+37*, EBFILE+41, EBFILE+43
GSKIP	EBFILE+12~, EBFILE+41, EBFILE+44, EBFILE+45*, EBFILE+47
>> HLCMP	GZRF+12, ZMP+16, ROL+11, ROL+12, DG1+11, DG1+13, DG1+14
IBARR	AUTOFIL+3~, AUTOFIL+107!
IBARR(	AUTOFIL+108*
>> IBEIVUSR	AUTOFIL+63, AUTOFIL+65, AUTOFIL+108
IBIFN	AUTOFIL+3~, AUTOFIL+107*, AUTOFIL+108
>> IBMSG	AUTOFIL+126
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+36, EBFILE+37, UPDT365~, UPDT365+5, AUTOFIL~ , AUTOFIL+5, AUTOFIL+58, AUTOFIL+70, AUTOFIL+77, AUTOFIL+81, AUTOFIL+85, AUTOFIL+94, AUTOFILX+1
IENROOT	EBFILE+12~, EBFILE+53!
IENROOT(1	EBFILE+53
IENS	EBFILE+12~, EBFILE+51, EBFILE+53, EBFILE+55, EBFILE+58, EBFILE+61, EBFILE+64, EBFILE+67, EBFILE+70, 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+28, AUTOFIL+31, AUTOFIL+35, AUTOFIL+37, AUTOFIL+39, AUTOFIL+41, AUTOFIL+43, AUTOFIL+45, AUTOFIL+47 , AUTOFIL+49, AUTOFIL+50, AUTOFIL+51, AUTOFIL+52, AUTOFIL+53, AUTOFIL+54, AUTOFIL+55, AUTOFIL+62, AUTOFIL+63, AUTOFIL+64 , AUTOFIL+65
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+36*, EBFILE+51, EBFILE+53
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+49, AUTOFIL+50, AUTOFIL+51, AUTOFIL+52, AUTOFIL+53, AUTOFIL+54, AUTOFIL+55
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+31, EBFILE+38, EBFILE+39, UPDT365~, UPDT365+12 , AUTOFIL+6, AUTOFIL+7, AUTOFIL+19, AUTOFIL+70, AUTOFIL+73, AUTOFIL+77, AUTOFIL+81, AUTOFIL+85, AUTOFIL+94, AUTOFIL+97 , AUTOFIL+115, AUTOFIL+119, AUTOFIL+121, AUTOFIL+126
RSRVDT	EBFILE+21~, EBFILE+23, EBFILE+24, EBFILE+31
RSTYPE	EBFILE+21~, EBFILE+23, EBFILE+31, AUTOFIL+2~, AUTOFIL+8
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+29, AUTOFIL+94, AUTOFIL+114, AUTOFIL+118, AUTOFIL+120, AUTOFIL+126
TSTAMP	AUTOFIL+2~, AUTOFIL+5*, AUTOFIL+62, AUTOFIL+64
TYPE	EBFILE+12~, EBFILE+42*, EBFILE+44, EBFILE+45
TYPE1	EBFILE+12~, EBFILE+43*, EBFILE+44, EBFILE+45
U	EBFILE+22, EBFILE+23, EBFILE+24, EBFILE+37, EBFILE+43, AUTOFIL+8, AUTOFIL+11, AUTOFIL+13, AUTOFIL+15, AUTOFIL+17 , AUTOFIL+49, AUTOFIL+50, AUTOFIL+51, AUTOFIL+52, AUTOFIL+53, AUTOFIL+54, AUTOFIL+55, AUTOFIL+97, AUTOFIL+117
VALUE	GZRF+8~, GZRF+12, GZRF+13, ZMP+8~, ZMP+16, ZMP+17, ROL+8~
WE	AUTOFIL+113~, AUTOFIL+114*, AUTOFIL+117, AUTOFIL+123
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+29, AUTOFIL+30, AUTOFIL+31, 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*, AUTOFIL+48
Z	EBFILE+12~, EBFILE+38*, EBFILE+39
Z1	EBFILE+12~, EBFILE+51*
Z2	EBFILE+12~, EBFILE+54, EBFILE+55, EBFILE+57, EBFILE+58, EBFILE+60, EBFILE+61, EBFILE+63, EBFILE+64, EBFILE+66* , EBFILE+67, EBFILE+69*, EBFILE+70

Customize PDF page

Package: Integrated Billing

Routine: IBCNEHL5

Information

Source Information

Call Graph

Call Graph Total: 12

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: