Routine: IBCEF72

Package	Total	Call Graph
Integrated Billing	8	($$COBN,$$FT,$$POLICY,F)^IBCEF ID^IBCEF2 $$PSPRV^IBCEF7 $$ISINSUR^IBCEF71 $$NONVAID^IBCEF72 ($$SSN200,$$SSN3559,CHCKSUB)^IBCEF73 ALLID^IBCEP8 $$MCRWNR^IBEFUNC

Package	Total	Caller Graph
Integrated Billing	6	IBCEF7 IBCEF72 IBCEF74 IBCEF78 IBCEF80 IBCEFP

Entry Points

Name	Comments	DBIA/ICR reference
CH35591(IBINSCO,IBFRMTYP,IBCARE)	;
FINDEIN(IBXIEN,IBPROV,IBFAC,IBS)	; find EIN for facility/ SSN for person ; IBXIEN = ien of bill entry file 399 ; IBFAC = 1 if facility, 0 if individual provider ; IBPROV = ien of provider (vp format) ; IBS = 1 if person's EIN should be returned if there, otherwise SSN ; FUNCTION RETURNS ; EIN or SSN ^ 24 for EIN, 34 for SSN or null if none found
NONVAID(IBXIEN,IBX,IBFAC,IBS)	; Find the non-VA provider default id ; IBXIEN = the ien of the bill (file 399) ; IBX = id data returned if passed by reference ; IBFAC = 1 if getting the id for the facility or 0 for rendering prov ; IBS = 1 if getting id for person, but need the EIN if there ; Function returns the id^type of id^person/facility flag: ; Type of id: 1 = SSN 2 = EIN 0 = not found ; person/facility: 1 = person 2 = facility
NONVAQ
PROVSEQ(IBXIEN,IBSAVE,IBDATA,IBFUNC,IBSEGM)	;
OUTPRVID(IBXIEN,IBXSAVE)	; Extract the outside provider or facility ids ; into IBXSAVE array ; Function returns 1 if person or 2 if facility ids or "" if neither
OUTPRV(IBREC,IBXIEN,IBXSAVE)	; Extract the outside provider or facility ids ; into IBXSAVE array ; Function returns 1 if person or 2 if facility ids or "" if neither ; IBREC = the record whose ids should be returned
OTHINS(IB399,IBRES)	;
OTHINSID(IB399,IBRES)	;insurance EDI
OTHINADR(IB399,IBRES,IBADDFLD)	;insurance EDI
SFIDQ(IBXIEN,IBXSAVE,IBXDATA)	; Find the service facility id qualifier for ; 837 record SUB2-5
OTHP36(IBXIEN,IBZOUT)
GETSSN(IBPTR)
PADNDC(Z)	;PAD LEADING ZERO'S INTO A NON 5-4-2 FORMAT NDC NUMBER

Name	Field # of Occurrence
$$COBN^IBCEF	OTHINS+2
$$FT^IBCEF	NONVAID+22, OUTPRV+12, OTHINSID+3
$$POLICY^IBCEF	OTHP36+3
F^IBCEF	OUTPRVID+8, OUTPRV+10, SFIDQ+8, OTHP36+2
ID^IBCEF2	PROVSEQ+9
$$PSPRV^IBCEF7	OUTPRVID+5, SFIDQ+11
$$ISINSUR^IBCEF71	PROVSEQ+4
$$NONVAID^IBCEF72	SFIDQ+14
$$SSN200^IBCEF73	GETSSN+2
$$SSN3559^IBCEF73	GETSSN+4
CHCKSUB^IBCEF73	OUTPRV+14
ALLID^IBCEP8	FINDEIN+9
$$MCRWNR^IBEFUNC	OTHINSID+8

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	NONVAID+9, NONVAID+23, NONVAID+24, OTHINS+3, OTHINS+9
^DIC(36 - [#36]	OTHINSID+8, OTHINADR+6, OTHINADR+10, OTHINADR+11, OTHINADR+12, OTHINADR+13, OTHINADR+14, OTHINADR+15, OTHINADR+19, OTHINADR+20 , OTHINADR+24, OTHINADR+28, OTHINADR+32
^DIC(5 - [#5]	OTHINADR+14, OTHINADR+28
^IBA(355.91 - [#355.91]	CH35591+3, CH35591+4
^IBE(355.97 - [#355.97]	CH35591+10

Name	Line Occurrences
$$FINDEIN	NONVAID+17, NONVAID+25
$$OUTPRVID	OUTPRV+7
NONVAQ	NONVAID+12, NONVAID+16, NONVAID+20
OTHINS	OTHINSID+5, OTHINADR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	SFIDQ+4~, SFIDQ+14
IB1	CH35591+1~, CH35591+4, CH35591+5, CH35591+6, CH35591+9, CH35591+10, PROVSEQ+1~, PROVSEQ+3, PROVSEQ+4, PROVSEQ+7 , PROVSEQ+8, PROVSEQ+9
IB35591	CH35591+1~, CH35591+2, CH35591+3, CH35591+4
IB399	OTHINS~, OTHINS+2, OTHINS+3, OTHINS+9, OTHINSID~, OTHINSID+3, OTHINSID+5, OTHINADR~, OTHINADR+2
IBADDFLD	OTHINADR~, OTHINADR+4, OTHINADR+8, OTHINADR+17, OTHINADR+22, OTHINADR+26, OTHINADR+30
IBARR	FINDEIN+7~, FINDEIN+9
IBARR(	FINDEIN+10, FINDEIN+11, FINDEIN+12, FINDEIN+13, FINDEIN+14, FINDEIN+15
IBCARE	CH35591~, CH35591+6, CH35591+9
IBDATA	PROVSEQ~
IBDATA(	PROVSEQ+8*
IBEIN	FINDEIN+7~, FINDEIN+8, FINDEIN+10, FINDEIN+11, FINDEIN+14, FINDEIN+15, FINDEIN+16*, FINDEIN+17
IBF	NONVAID+8~, NONVAID+9, NONVAID+21, NONVAQ+2
IBFAC	FINDEIN~, FINDEIN+11, NONVAID~, NONVAID+16, NONVAID+17, NONVAID+20, NONVAID+25, OUTPRV+4~, OUTPRV+7, OUTPRV+11 , OUTPRV+14
IBFL	PROVSEQ+1~
IBFRM	OUTPRV+4~, OUTPRV+12*, OUTPRV+14
IBFRMTYP	CH35591~, CH35591+5, CH35591+8, OTHINS+1~, OTHINSID+1~, OTHINSID+3*, OTHINSID+4, OTHINSID+8
IBFUNC	PROVSEQ~, PROVSEQ+7
IBINS	PROVSEQ+1~
IBINSCO	CH35591~, CH35591+3
IBPERSON	OUTPRVID+3~, OUTPRVID+5, OUTPRVID+8, OUTPRVID+9, OUTPRV+4~, OUTPRV+7, OUTPRV+11, OUTPRV+15
IBPROV	FINDEIN~, FINDEIN+9, NONVAID+8~, NONVAID+9, NONVAID+13, NONVAID+17, NONVAID+24*, NONVAID+25
IBPTR	GETSSN~, GETSSN+2, GETSSN+4
IBREC	OUTPRV~, OUTPRV+5, OUTPRV+13, OUTPRV+14
IBRES	OTHINS~, OTHINSID~, OTHINADR~
IBRES(	OTHINS+9, OTHINSID+8, OTHINSID+10, OTHINSID+12, OTHINADR+6, OTHINADR+7, OTHINADR+10, OTHINADR+11, OTHINADR+12, OTHINADR+13 , OTHINADR+14, OTHINADR+15, OTHINADR+16, OTHINADR+19, OTHINADR+20, OTHINADR+21, OTHINADR+24, OTHINADR+25, OTHINADR+28, OTHINADR+29 , OTHINADR+32, OTHINADR+33
IBRET	CH35591+1~, CH35591+2, CH35591+3, CH35591+10, CH35591+11
IBS	FINDEIN~, FINDEIN+13, FINDEIN+15, FINDEIN+16, NONVAID~, NONVAID+25
IBSAVE	PROVSEQ~
IBSAVE("PROVINF"	PROVSEQ+4, PROVSEQ+7, PROVSEQ+8
IBSEGM	PROVSEQ~, PROVSEQ+9
IBSSN	FINDEIN+7~, FINDEIN+8, FINDEIN+13, FINDEIN+16
IBTYPE	NONVAID+8~, NONVAID+9, NONVAID+12, NONVAID+17, NONVAID+25, NONVAQ, NONVAQ+2, OUTPRV+4~, OUTPRV+13*, OUTPRV+14
IBU2	NONVAID+8~, NONVAID+9*, NONVAID+11, NONVAQ
IBX	NONVAID~, NONVAID+12, NONVAID+17, NONVAID+21, NONVAID+25, NONVAQ, NONVAQ+1, NONVAQ+2
IBXDATA	OUTPRVID+3~, SFIDQ~, SFIDQ+7~, SFIDQ+9, SFIDQ+10!, SFIDQ+16*
IBXIEN	FINDEIN~, NONVAID~, NONVAID+9, NONVAID+17, NONVAID+22, NONVAID+23, NONVAID+24, NONVAID+25, PROVSEQ~, PROVSEQ+4 , PROVSEQ+7, PROVSEQ+8, OUTPRVID~, OUTPRVID+5, OUTPRV~, OUTPRV+6, OUTPRV+7, OUTPRV+9, OUTPRV+12, SFIDQ~ , SFIDQ+11, SFIDQ+14, OTHP36~, OTHP36+3
IBXSAVE	NONVAID+8~, OUTPRVID~, OUTPRV~, OUTPRV+7, OUTPRV+14, SFIDQ~
IBXSAVE("IBFAC"	SFIDQ+9*, SFIDQ+10
IBXSAVE("NVID"	SFIDQ+5!, SFIDQ+14*, SFIDQ+16
IBXSAVE("OUTPT"	PADNDC+3, PADNDC+7, PADNDC+11
IBXSAVE("PROVINF"	OUTPRV+6!
IBXSAVE("PROVINF_FAC"	OUTPRV+6!, OUTPRV+9!
IBZ	NONVAID+8~, OTHINSID+1~, OTHINSID+5, OTHINADR+1~, OTHINADR+2, OTHP36+1~
IBZ(	OTHINSID+7, OTHINSID+8, OTHINSID+10, OTHINSID+12, OTHINADR+5, OTHINADR+6, OTHINADR+9, OTHINADR+10, OTHINADR+11, OTHINADR+12 , OTHINADR+13, OTHINADR+14, OTHINADR+15, OTHINADR+18, OTHINADR+19, OTHINADR+20, OTHINADR+23, OTHINADR+24, OTHINADR+27, OTHINADR+28 , OTHINADR+31, OTHINADR+32
IBZOUT	OTHP36~
IBZOUT(	OTHP36+3*
NDC	PADNDC+2~, PADNDC+3, PADNDC+4, PADNDC+5, PADNDC+6, PADNDC+7, PADNDC+8, PADNDC+9, PADNDC+10*, PADNDC+11
Q	NONVAID+8~, NONVAID+23*, NONVAID+24
Q0	NONVAID+8~, NONVAID+22*, NONVAID+23
TAG	OUTPRVID+3~, OUTPRVID+8*
U	CH35591+10, FINDEIN+11, FINDEIN+12, FINDEIN+13, FINDEIN+14, FINDEIN+15, NONVAID+11, NONVAID+17, NONVAID+24, NONVAID+25 , NONVAQ, NONVAQ+2, OTHINS+9, OTHINSID+8, OTHINSID+10, OTHINSID+12, OTHINADR+6, OTHINADR+10, OTHINADR+11, OTHINADR+12 , OTHINADR+13, OTHINADR+14, OTHINADR+15, OTHINADR+19, OTHINADR+20, OTHINADR+24, OTHINADR+28, OTHINADR+32, SFIDQ+10, SFIDQ+16
Z	FINDEIN+7~, FINDEIN+10, FINDEIN+11, FINDEIN+12, FINDEIN+13, FINDEIN+14, FINDEIN+15, NONVAID+8~, NONVAID+11, NONVAID+12 , NONVAID+13, OUTPRVID+3~, OUTPRVID+5, OUTPRVID+8, OTHINS+1~, OTHINS+2, OTHINS+3, SFIDQ+4~, SFIDQ+11, SFIDQ+13 , SFIDQ+14, OTHP36+1~, OTHP36+3, PADNDC~, PADNDC+3, PADNDC+7, PADNDC+11
Z0	FINDEIN+7~, OTHINS+2, OTHINS+4, OTHINS+9, OTHINSID+1~, OTHINSID+7, OTHINSID+8, OTHINSID+10, OTHINSID+12, OTHINADR+1~ , OTHINADR+5, OTHINADR+6, OTHINADR+7, OTHINADR+9, OTHINADR+10, OTHINADR+11, OTHINADR+12, OTHINADR+13, OTHINADR+14, OTHINADR+15 , OTHINADR+16, OTHINADR+18, OTHINADR+19, OTHINADR+20, OTHINADR+21, OTHINADR+23, OTHINADR+24, OTHINADR+25, OTHINADR+27, OTHINADR+28 , OTHINADR+29, OTHINADR+31*, OTHINADR+32, OTHINADR+33, OTHP36+1~
Z1	OTHINS+1~, OTHINS+3, OTHINS+9, OTHINSID+1~, OTHINSID+6, OTHINADR+1~, OTHINADR+3*, OTHP36+1~
Z2	OTHINS+1~
Z4	OTHINS+1~, OTHINSID+1~, OTHINSID+4, OTHINSID+8, OTHINADR+1~, OTHINADR+11, OTHINADR+12, OTHINADR+13, OTHINADR+14, OTHINADR+15

Customize PDF page

Package: Integrated Billing

Routine: IBCEF72

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: