Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCEF72

Package: Integrated Billing

Routine: IBCEF72


Information

IBCEF72 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;8/6/03 10:56am

Source Information

Source file <IBCEF72.m>

Call Graph

Call Graph

Call Graph Total: 8

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

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

External References

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

Global Variables Directly Accessed

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

Label References

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*, NONVAQNONVAQ+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
NONVAQNONVAQ+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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All