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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCEF74

Package: Integrated Billing

Routine: IBCEF74


Information

IBCEF74 ;WOIFO/SS - FORMATTER/EXTRACT BILL FUNCTIONS ;31-JUL-03

Source Information

Source file <IBCEF74.m>

Entry Points

Name Comments DBIA/ICR reference
SORT(IBPRNUM,IBPRTYP,IB399,IBSRC,IBDST,IBN,IBEXC,IBSEQ,IBLIMIT) ;
PROVINF(IB399,IBPRNUM,IBRES,IBSORT,IBINSTP) ;
SECIDCK(IBIFN,IBSEQ,IBTYP,IBIFN1) ; Function returns 1 if ID type ptr in
; IBTYP is valid X12 code for the claim/prov function (IBPROVF)
; as a sec id
; IBSEQ = COB seq being checked
; IBIFN1 = entry # in PRV multiple being checked
; Called from input transform of fields .12-.14, subfile 399.0222
DEFID(IBIFN,IBPRV) ;
; IBIFN = ien of bill
; IBPRV = ien of entry subfile 399.0222
; Function returns default ids: prim id def^sec id def^tert id def
; SSN cannot be the default ID
DISPID(IBXIEN) ; Display list of all prov and fac ids that will
; extract for this bill if transmitted electronically
DISPIDX ;
NOMORE() ;
DEFSEC(IBIFN,IBARR) ; Returns array in IBARR for default prov sec ids for ien IBIFN
; IBARR if passed by ref is returned IBARR(prov function,COBN)=def id

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPID+6
Function Call: WRITE
  • Prompt: !,"If this bill is transmitted electronically, the following IDs will be sent:"
  • Line Location: DISPID+9
Function Call: WRITE
  • Prompt: !,"Note: For Medicare:",!," 1) All NPIs will be removed from the claim prior to submission."
  • Line Location: DISPID+10
Function Call: WRITE
  • Prompt: !," 2) All Provider IDs other than 'UPIN' will be removed from the claim prior to",!?4,"submission.",!
  • Line Location: DISPID+11
Function Call: WRITE
  • Prompt: !," Primary Ins Co: ",$$EXTERNAL^DILFD(399,101,"",Z)
  • Line Location: DISPID+13
Function Call: WRITE
  • Prompt: ?54,"<<<Current Ins"
  • Line Location: DISPID+13
Function Call: WRITE
  • Prompt: !,"Secondary Ins Co: ",$$EXTERNAL^DILFD(399,101,"",Z)
  • Line Location: DISPID+14
Function Call: WRITE
  • Prompt: ?54,"<<<Current Ins"
  • Line Location: DISPID+14
Function Call: WRITE
  • Prompt: !," Tertiary Ins Co: ",$$EXTERNAL^DILFD(399,101,"",Z)
  • Line Location: DISPID+15
Function Call: WRITE
  • Prompt: ?54,"<<<Current Ins"
  • Line Location: DISPID+15
Function Call: WRITE
  • Prompt: !!,"Provider IDs: (VistA Records OP1,OP2,OP4,OP8,OP9,OP10,OPR,OPR1,OPR2,OPR3,OPR4,",!?29,"OPR5,OPR7,OPR8,OPR9,OPRA,OPRB,OPRC):"
  • Line Location: DISPID+17
Function Call: WRITE
  • Prompt: !!?5,$$EXTERNAL^DILFD(399.0222,.01,"",IBPRV),": "_$$EXTERNAL^DILFD(399.0222,.02,"",$P(IBID("PROVINF",IBIFN,"C",1,IBPRV),U))
  • Line Location: DISPID+28
Function Call: WRITE
  • Prompt: !?8,"NPI: ",?40,$S($P($G(IBID("PROVINF",IBIFN,"C",1,IBPRV,0)),U,4)]"":$P(IBID("PROVINF",IBIFN,"C",1,IBPRV,0),U,4),1:"***MISSING***")
  • Line Location: DISPID+29
Function Call: WRITE
  • Prompt: !,?8,"(",IBID("PROVINF",IBIFN,CO,IBN),") ",$$EXTERNAL^DILFD(36,4.01,"",IBCODE),?40,$P(IBID("PROVINF",IBIFN,CO,IBN,IBPRV,Z0),U,4)
  • Line Location: DISPID+38
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPIDX+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NOMORE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NOMORE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(36 - [#36] EXTERNAL^DILFD
^DGCR(399 - [#399] EXTERNAL^DILFD
399.0222 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call