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: IBCEF74A

Package: Integrated Billing

Routine: IBCEF74A


Information

IBCEF74A ;ALB/ESG - Provider ID maint ?ID continuation ;7 Mar 2006

Source Information

Source file <IBCEF74A.m>

Entry Points

Name Comments DBIA/ICR reference
EN(IBIFN,IBQUIT,IBID) ; Display billing provider and service provider IDs as part
; of the ?ID display/help in the billing screens.
; Called from DISPID^IBCEF74.
LPRV ;Service Line Providers
EX ;
QUAL(Z,FORMTYPE) ; turn the qualifier code into a qualifier description
QUALX ;
SECID(Z,IBQUIT) ; Display secondary ID and qualifier information
; Z is the type of IDs passed in; either BILLING PRV or LAB/FAC
; IBQUIT is returned if passed by reference
SECIDX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Billing Provider Name and ID Information"
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,"Billing Provider: ",BPNAME
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !?5,"Billing Provider NPI: ",BPNPI
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !?5,"Billing Provider Tax ID (VistA Record PRV): ",BPTAX
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: !?5,"Billing Provider Secondary IDs (VistA Record CI1A):"
  • Line Location: EN+37
Function Call: WRITE
  • Prompt: !!,"Service Facility Name and ID Information"
  • Line Location: EN+50
Function Call: WRITE
  • Prompt: !!,"Note: Service Facility Data not sent for Current Insurance"
  • Line Location: EN+59
Function Call: WRITE
  • Prompt: !," 'Send VA Lab/Facility IDs or Facility Data for VAMC?' is set to NO",!
  • Line Location: EN+60
Function Call: WRITE
  • Prompt: !?5,"Facility: ",FACNAME
  • Line Location: EN+66
Function Call: WRITE
  • Prompt: !?5,"Lab or Facility NPI: ",SFNPI
  • Line Location: EN+71
Function Call: WRITE
  • Prompt: !?5,"Lab or Facility Tax ID (VistA Record SUB): ",SFTAX
  • Line Location: EN+76
Function Call: WRITE
  • Prompt: !?5,"Lab or Facility Secondary IDs (VistA Records SUB1,SUB2,OP3,OP6,OP7):"
  • Line Location: EN+80
Function Call: WRITE
  • Prompt: !!,"Service Line Providers"
  • Line Location: LPRV+4
Function Call: WRITE
  • Prompt: !!?5,"Service Line: ",IBSLC
  • Line Location: LPRV+7
Function Call: WRITE
  • Prompt: !?5,$$EXTERNAL^DILFD(399.0404,.01,"",IBPRTYP),": ",$$EXTERNAL^DILFD(399.0404,.02,"",$P(IBID("L-PROV",IBIFN,IBSLC,"C",1,IBPRTYP),U,1))
  • Line Location: LPRV+11
Function Call: WRITE
  • Prompt: !?8,"NPI:",?40,$S($P(IBID("L-PROV",IBIFN,IBSLC,"C",1,IBPRTYP,0),U,4)]"":$P(IBID("L-PROV",IBIFN,IBSLC,"C",1,IBPRTYP,0),U,4),1:"***MISSING***")
  • Line Location: LPRV+12
Function Call: WRITE
  • Prompt: !,?8,"(",IBID("L-PROV",IBIFN,IBSLC,CO,IBN),") ",$$EXTERNAL^DILFD(36,4.01,"",IBCODE),?40,$P(IBID("L-PROV",IBIFN,IBSLC,CO,IBN,IBPRTYP,Z0),U,4)
  • Line Location: LPRV+21
Function Call: WRITE
  • Prompt: !?8,"(",SEQ,") ",QUALNM,?40,IDNUM
  • Line Location: SECID+21
Function Call: WRITE
  • Prompt: ?54,"<<<Current Ins"
  • Line Location: SECID+22
Function Call: WRITE
  • Prompt: ?54,"<<<System Generated ID"
  • Line Location: SECID+23
Function Call: WRITE
  • Prompt: !?8,"(-) None Found"
  • Line Location: SECID+28

FileMan Files Accessed Via FileMan Db Call

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