Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
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>

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
Info |  Source |  Entry Points