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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 6 ($$COB,$$FT,$$NOPUNCT)^IBCEF  $$ORGNPI^IBCEF73A  $$NOMORE^IBCEF74  ($$B,GETBP)^IBCEF79  $$GETFAC^IBCEP8  $$EIN^IBCEP8A  
VA FileMan 1 $$EXTERNAL^DILFD  

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

Package Total Caller Graph
Integrated Billing 1 IBCEF74  

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 ;

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD LPRV+11, LPRV+21
$$COB^IBCEF SECID+8, SECID+22
$$FT^IBCEF SECID+17
$$NOPUNCT^IBCEF EN+30, EN+73
$$ORGNPI^IBCEF73A EN+17
$$NOMORE^IBCEF74 EN+18, EN+22, EN+27, EN+32, EN+36, EN+49, EN+65, EN+70, EN+75, EN+79
, LPRV+6, LPRV+10, LPRV+19, SECID+19
$$B^IBCEF79 EN+15
GETBP^IBCEF79 EN+16
$$GETFAC^IBCEP8 EN+63
$$EIN^IBCEP8A EN+73

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] SECID+22
^IBE(350.9 - [#350.9] EN+30
^IBE(355.97 - [#355.97] QUAL+9, QUAL+10

Label References

Name Line Occurrences
$$QUAL SECID+17
EX EN+18, EN+22, EN+27, EN+32, EN+36, EN+40, EN+49, EN+65, EN+70, EN+75
, EN+79, EN+83, LPRV+1
LPRV EN+46
QUALX QUAL+3, QUAL+4, QUAL+9
SECID EN+39, EN+82

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BPNAME EN+3~, EN+20*, EN+21*, EN+23
BPNPI EN+3~, EN+25*, EN+26*, EN+28
BPTAX EN+3~, EN+30*, EN+31*, EN+33
BPZ EN+3~, EN+15*, EN+16, EN+46, EN+63
CO LPRV+2~, LPRV+14*, LPRV+16, LPRV+17, LPRV+21
DATA EN+3~, SECID+3~, SECID+16*, SECID+17, SECID+18
FACNAME EN+3~, EN+63*, EN+64*, EN+66
FORMTYPE QUAL~, QUAL+5, QUAL+6
IBCODE LPRV+2~, LPRV+17*, LPRV+18, LPRV+20, LPRV+21
IBID EN~
IBID( EN+9, EN+10, SECID+15, SECID+16
IBID("L-PROV" LPRV+1, LPRV+5, LPRV+9, LPRV+11, LPRV+12, LPRV+16, LPRV+17, LPRV+21
IBIFN EN~, EN+9, EN+10, EN+15, EN+16, EN+17, EN+73, LPRV+5, LPRV+9, LPRV+11
, LPRV+12, LPRV+16, LPRV+17, LPRV+21, SECID+8, SECID+15, SECID+16, SECID+17, SECID+22
IBN LPRV+2~, LPRV+15*, LPRV+16, LPRV+17, LPRV+21
IBPRTYP LPRV+2~, LPRV+9*, LPRV+11, LPRV+12, LPRV+16, LPRV+17, LPRV+21
IBQUIT EN~, EN+18*, EN+22*, EN+27*, EN+32*, EN+36*, EN+39, EN+40, EN+49*, EN+65*
, EN+70*, EN+75*, EN+79*, EN+82, EN+83, LPRV+5, LPRV+6*, LPRV+10*, LPRV+16, LPRV+19*
, SECID~, SECID+4*, SECID+5, SECID+10, SECID+12, SECID+15, SECID+19*, SECID+28
IBSLC LPRV+2~, LPRV+3*, LPRV+5*, LPRV+7, LPRV+9, LPRV+11, LPRV+12, LPRV+16, LPRV+17, LPRV+21
IBTYP LPRV+2~, LPRV+13!
IBTYP( LPRV+18, LPRV+20*
IBX EN+3~, EN+8!
IBX( EN+11*, SECID+10, SECID+12
IBZ EN+3~, EN+16
IBZ("?ID" EN+20
IDNUM EN+3~, SECID+3~, SECID+18*, SECID+21
IEN QUAL+1~, QUAL+9*, QUAL+10
IOSL EN+18, EN+22, EN+27, EN+32, EN+36, EN+49, EN+65, EN+70, EN+75, EN+79
, LPRV+6, LPRV+10, LPRV+19, SECID+19
NODATA SECID+3~, SECID+4*, SECID+20*, SECID+28
ORGNPI EN+3~, EN+17*, EN+25, EN+68
PSIN EN+3~, SECID+3~, SECID+13*, SECID+15*, SECID+16, SECID+23
QUAL QUAL+1~, QUAL+2*, QUAL+5*, QUAL+6*, QUAL+10*, QUALX+1
QUALNM EN+3~, SECID+3~, SECID+17*, SECID+21
SEQ EN+3~, EN+10*, EN+11, SECID+3~, SECID+5*, SECID+8, SECID+10, SECID+12, SECID+21, SECID+22
SFNPI EN+3~, EN+68*, EN+69*, EN+71
SFTAX EN+3~, EN+73*, EN+74*, EN+76
U EN+10, EN+25, EN+30, EN+46, EN+63, EN+68, LPRV+11, LPRV+12, LPRV+17, LPRV+21
, QUAL+10, SECID+17, SECID+18
Z EN+3~, EN+9*, EN+10, EN+11, EN+38*, EN+39, EN+81*, EN+82, QUAL~, QUAL+3
, QUAL+4, QUAL+8*, QUAL+9, SECID~, SECID+8, SECID+10, SECID+12, SECID+15, SECID+16, SECID+22
, SECID+23
Z0 LPRV+2~, LPRV+16*, LPRV+17, LPRV+21
ZI EN+3~, EN+9*, EN+10, EN+11, SECID+3~, SECID+9*, SECID+10*, SECID+12, SECID+15, SECID+16
ZN EN+3~, EN+9*, EN+10, EN+11, SECID+3~, SECID+11*, SECID+12*, SECID+15, SECID+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All