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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCEP2B

Package: Integrated Billing

Routine: IBCEP2B


Information

IBCEP2B ;ALB/TMP - EDI UTILITIES for provider ID ;18-MAY-04

Source Information

Source file <IBCEP2B.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 8 ($$COBN,$$FT,$$INPAT,F)^IBCEF  PRACT^IBCEF71  $$B^IBCEF79  $$GETID^IBCEP2  ($$CAREST,$$GETTYP)^IBCEP2A  $$CUNEED^IBCEP3  $$STLIC^IBCEP8  $$BF^IBCU  
List Manager 2 EN^VALM  FULL^VALM1  
VA FileMan 2 $$EXTERNAL^DILFD  ^DIR  
Registration 1 $$PRIM^VASITE  

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

Package Total Caller Graph
Integrated Billing 15 IBCEF7  IBCEF75  IBCEF76  IBCEF79  IBCEP7  IBCEP7A  IBCEP7B  IBCEP7C  
IBCEPA  IBCNSC1  IBCU  IBXSA21  IBXSAH1  IBXSC821  IBXSC8H1  

Entry Points

Name Comments DBIA/ICR reference
PROVID(IBIFN,IBPRIEN,IBCOBN,DIPA) ; Provider id entry on billing screen 10, and line level provider input on billing screens 4&5.
; IBIFN = ien file 399
; IBPRIEN = ien file 399.0222, or ien file 399.0404.
; IBCOBN = the COB number of the id being edited
; DIPA = passed by ref, returned with id data
; DIPA("EDIT")=-1 if no id editing = 1 if edit id = 2 if stuff id
; DIPA("PRID")= id to stuff DIPA("PRIDT")= id type to stuff
NEWID(IBIFN,IBPRIEN,IBCOBN,DIPA) ;
SELID(DIR,IBDEF,IBID,DIPA,IBNUM) ; Returns the selection from the array of possible IDs/ID actions
SELIDQ
MORE(DIR) ;
FACID(IBINS,IBFIDFL) ; Enter/edit billing facility ids
; IBINS = ien of ins co (file 36)
GETBPNUM(IBINS) ;
MAIN() ; Returns ien of main division of the database
FACNUM(IBIFN,IBCOB,IBQF) ; Function returns the current division's fac billing
; prov id for the COB insurance sequence from file 355.92
; IBIFN = ien file 399
; IBCOB = # of COB ins seq or if "", current assumed
; IBQF - 1 if qualifier is to be returned instead of ID
SOP(IBIFN,IBZD) ; Returns X12 current source of pay code for bill ien IBIFN
; IBZD = the current ins policy type, if known

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD PROVID+17, PROVID+18, NEWID+13, NEWID+32, NEWID+49
^DIR SELID+4, SELID+8, MORE+2
$$COBN^IBCEF NEWID+16, FACNUM+7
$$FT^IBCEF NEWID+11, FACNUM+16, SOP+5
$$INPAT^IBCEF NEWID+8
F^IBCEF SOP+4
PRACT^IBCEF71 NEWID+16
$$B^IBCEF79 FACNUM+10
$$GETID^IBCEP2 NEWID+24
$$CAREST^IBCEP2A NEWID+29
$$GETTYP^IBCEP2A NEWID+6
$$CUNEED^IBCEP3 NEWID+15
$$STLIC^IBCEP8 NEWID+48
$$BF^IBCU GETBPNUM+3
EN^VALM FACID+8
FULL^VALM1 FACID+11
$$PRIM^VASITE MAIN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROVID+13
Function Call: WRITE
  • Prompt: !,?19,"**** SECONDARY PERFORMING PROVIDER IDs ****"
  • Line Location: PROVID+14
Function Call: WRITE
  • Prompt: !!,$P("PRIMARY^SECONDARY^TERTIARY",U,IBCOBN)_" INSURANCE CO: "_$P($G(^DIC(36,+$G(^DGCR(399,IBIFN,"I"_IBCOBN)),0)),U)
  • Line Location: PROVID+15
Function Call: WRITE
  • Prompt: !,"PROVIDER: "_$$EXTERNAL^DILFD(399.0222,.02,"",$P(PRN0,U,2))_" ("_$$EXTERNAL^DILFD(399.0222,.01,"",+PRN0)_")",!
  • Line Location: PROVID+17
Function Call: WRITE
  • Prompt: !,"Line Level Provider: "_$$EXTERNAL^DILFD(399.0404,.02,"",$P(PRN0,U,2))_" ("_$$EXTERNAL^DILFD(399.0404,.01,"",+PRN0)_")",!
  • Line Location: PROVID+18
Function Call: WRITE
  • Prompt: !,"INS. COMPANY'S DEFAULT SECONDARY ID TYPE IS: "_$$EXTERNAL^DILFD(36,4.01,"",$P(Z(IBCOBN),U))
  • Line Location: NEWID+13
Function Call: WRITE
  • Prompt: !,?2," AND IS REQUIRED TO BE ENTERED FOR THIS CLAIM"
  • Line Location: NEWID+14
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWID+54
Function Call: WRITE
  • Prompt: !
  • Line Location: SELID+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELID+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FACID+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FACID+10
Routine Call
  • DIR
  • Line Location:
    • SELID+4
    • SELID+8
    • MORE+2
Routine Call
  • VALM
  • Line Location:
    • FACID+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.9 - [#355.9] EXTERNAL^DILFD
^DIC(36 - [#36] EXTERNAL^DILFD
399.0222 EXTERNAL^DILFD
399.0404 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] FACNUM+11
^DGCR(399 - [#399] PROVID+8, PROVID+11, PROVID+15, NEWID+5, NEWID+7, FACNUM+13, FACNUM+18
^DIC(36 - [#36] PROVID+15, NEWID+15
^DIC(5 - [#5] NEWID+29, NEWID+48
^IBA( NEWID+32
^IBA("355.9" NEWID+47
^IBA(355.92 - [#355.92] GETBPNUM+4, GETBPNUM+5
^IBE(355.97 - [#355.97] NEWID+28, NEWID+29, NEWID+48
^TMP("IBCE_PRVFAC_MAINT_INS" FACID+6!, FACID+7*, FACID+9!
^TMP($J FACID+3!, GETBPNUM+2*, GETBPNUM+8*, GETBPNUM+9*, FACNUM+17!, FACNUM+19, FACNUM+20, FACNUM+21, FACNUM+22!

Label References

Name Line Occurrences
$$MAIN GETBPNUM+2, FACNUM+14
$$MORE NEWID+51
$$SELID NEWID+22, NEWID+56
GETBPNUM FACID+5, FACNUM+18
NEWID PROVID+20
SELIDQ SELID+5, SELID+6, SELID+9

Naked Globals

Name Field # of Occurrence
^( FACNUM+20
^("QUAL" FACNUM+21
^(4 NEWID+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BPZ FACNUM+5~, FACNUM+10*, FACNUM+11
DIPA PROVID~, PROVID+20, NEWID~, NEWID+22, NEWID+56, SELID~
DIPA("EDIT" PROVID+12*, NEWID+22*, NEWID+55*, NEWID+56*
DIPA("I" NEWID+6
DIPA("PRID" PROVID+12*, PROVID+20!, SELID+10*
DIPA("PRIDT" PROVID+12*, PROVID+20!, SELID+10*
DIR NEWID+1~, NEWID+22, NEWID+51, NEWID+54!, NEWID+56, SELID~, SELID+4!, SELID+8!, MORE~, MORE+1~
DIR("A" NEWID+18*, NEWID+19*, NEWID+21*, NEWID+31*, NEWID+32*, NEWID+33, NEWID+49*, NEWID+50, SELID+3*, SELID+4*
, SELID+8*, MORE+2*
DIR("B" SELID+3*, SELID+8*, MORE+2*!
DIR(0 SELID+4*, SELID+8*, MORE+2*
DTOUT SELID+5, MORE+1~, MORE+3
DUOUT SELID+5, MORE+1~, MORE+3
IB0 NEWID+1~, NEWID+7*, NEWID+16
IBARR NEWID+1~, NEWID+16, NEWID+47*, NEWID+49
IBARR( NEWID+38, NEWID+39, NEWID+40, NEWID+41, NEWID+42, NEWID+43
IBARR("" NEWID+18, NEWID+22
IBARRS NEWID+1~
IBARRS( NEWID+42*, NEWID+44, NEWID+45, NEWID+46
IBCAR NEWID+1~, NEWID+8*, NEWID+16
IBCOB FACNUM~, FACNUM+7*, FACNUM+10, FACNUM+18
IBCOBN PROVID~, PROVID+15, PROVID+20, NEWID~, NEWID+6, NEWID+7, NEWID+12, NEWID+13, NEWID+14, NEWID+15
, NEWID+16, NEWID+24
IBCT NEWID+1~, NEWID+17*, NEWID+18*, NEWID+19*, NEWID+21*, NEWID+30*, NEWID+31, NEWID+32, NEWID+33, NEWID+45*
, NEWID+49, NEWID+50, NEWID+54*
IBDEF NEWID+1~, NEWID+17*, NEWID+22*, NEWID+24*, NEWID+33*, NEWID+56*, SELID~, SELID+3
IBDEF("IEN" NEWID+33*, NEWID+41
IBDIV FACNUM+5~, FACNUM+6*, FACNUM+11*, FACNUM+13*, FACNUM+14*, FACNUM+19*, FACNUM+20, FACNUM+21
IBFIDFL FACID~, FACID+7
IBFRM NEWID+1~, NEWID+11*, NEWID+16
IBFT FACNUM+5~, FACNUM+16*, FACNUM+20, FACNUM+21, SOP+2~, SOP+5*, SOP+7
IBID NEWID+1~, NEWID+22, NEWID+56, SELID~, FACID+2~, GETBPNUM+1~, GETBPNUM+3*
IBID( NEWID+33*, NEWID+50*, SELID+8, SELID+10
IBIFN PROVID~, PROVID+8, PROVID+11, PROVID+15, PROVID+20, NEWID~, NEWID+5, NEWID+6, NEWID+7, NEWID+8
, NEWID+11, NEWID+15, NEWID+16, NEWID+24, NEWID+29, FACNUM~, FACNUM+7, FACNUM+10, FACNUM+13, FACNUM+16
, FACNUM+18, SOP~, SOP+4, SOP+5
IBINS NEWID+1~, NEWID+7*, NEWID+15, NEWID+16, FACID~, FACID+5, FACID+7, GETBPNUM~, GETBPNUM+4
>> IBLNPRV PROVID+9, PROVID+11, PROVID+17, PROVID+18, NEWID+3, NEWID+5, NEWID+7
>> IBLNPRV("LNPRVIEN" PROVID+9, PROVID+11, NEWID+3, NEWID+5, NEWID+7
>> IBLNPRV("PROCIEN" PROVID+9, PROVID+11, NEWID+3, NEWID+5, NEWID+7
IBM NEWID+1~, NEWID+51*, NEWID+52, NEWID+53
IBMAIN GETBPNUM+1~, GETBPNUM+2*, GETBPNUM+8, GETBPNUM+9
IBNUM NEWID+1~, NEWID+17*, NEWID+21*, NEWID+22, NEWID+30*, NEWID+31, NEWID+33, NEWID+45*, NEWID+49, NEWID+50
, NEWID+51, NEWID+56, SELID~, SELID+4
IBPRIEN PROVID~, PROVID+11, PROVID+20, NEWID~, NEWID+5, NEWID+7
IBQF FACNUM~, FACNUM+20, FACNUM+21
IBQUIT NEWID+1~, NEWID+36*, NEWID+44, NEWID+45, NEWID+51, NEWID+52*, NEWID+53*
IBREQ NEWID+1~, NEWID+2*, NEWID+14*, NEWID+56
IBREQT NEWID+1~, NEWID+2*, NEWID+13*
IBSEL NEWID+1~, NEWID+36*, NEWID+52*, NEWID+55, NEWID+56
IBTYP NEWID+1~, NEWID+39*, NEWID+40, NEWID+42, NEWID+43, NEWID+44*, NEWID+45, NEWID+46, NEWID+48, NEWID+50
IBTYPN NEWID+1~, NEWID+48*, NEWID+49
IBUSED NEWID+1~
IBUSED( NEWID+34*, NEWID+40, NEWID+43*
IBZ NEWID+1~, NEWID+38*, NEWID+39, NEWID+40, NEWID+41, NEWID+42, NEWID+43, NEWID+44*, NEWID+45, NEWID+46
, SOP+2~, SOP+3*, SOP+7*, SOP+8
IBZ1 NEWID+1~, NEWID+38*, NEWID+39, NEWID+40, NEWID+41, NEWID+42, NEWID+43, NEWID+45*, NEWID+46, NEWID+47
, NEWID+49
IBZD SOP~, SOP+4, SOP+7
IDACT SELID+1~, SELID+2*, SELID+5*, SELID+6*, SELID+9*, SELID+10*, SELIDQ
IDSEL SELID+1~, SELID+7*, SELID+10
IOF PROVID+13, FACID+4, FACID+10
PRN NEWID+1~, NEWID+24*, NEWID+26, NEWID+31, NEWID+33, NEWID+34
PRN0 PROVID+7~, PROVID+11*, PROVID+17, PROVID+18, PROVID+20, NEWID+1~, NEWID+5*, NEWID+6, NEWID+24
PRT NEWID+1~, NEWID+24, NEWID+26, NEWID+28, NEWID+29, NEWID+32, NEWID+33, NEWID+34
PRT1 NEWID+27~, NEWID+28*, NEWID+29*, NEWID+31
U PROVID+15, PROVID+17, PROVID+18, PROVID+20, NEWID+6, NEWID+12, NEWID+13, NEWID+14, NEWID+15, NEWID+16
, NEWID+24, NEWID+28, NEWID+29, NEWID+32, NEWID+33, NEWID+39, NEWID+40, NEWID+41, NEWID+43, NEWID+47
, NEWID+48, NEWID+49, NEWID+50, SELID+10, FACID+7, GETBPNUM+6, GETBPNUM+7, GETBPNUM+8, GETBPNUM+9, FACNUM+13
, FACNUM+18
X NEWID+1~, SELID+1~, MORE+1~, FACNUM+5~, FACNUM+6*, FACNUM+20*, FACNUM+21*, FACNUM+23
Y NEWID+1~, SELID+1~, SELID+5, SELID+6, SELID+7, SELID+8, SELID+9, MORE+1~, MORE+3, FACID+2~
Z PROVID+7~, NEWID+1~, FACID+2~, GETBPNUM+1~, GETBPNUM+4*, GETBPNUM+5, FACNUM+5~
Z( NEWID+6*, NEWID+12, NEWID+13, NEWID+14
Z0 NEWID+1~, NEWID+46*, NEWID+47, NEWID+48, NEWID+49, NEWID+50, FACID+2~, GETBPNUM+1~, GETBPNUM+5*, GETBPNUM+6
, GETBPNUM+7, GETBPNUM+8, GETBPNUM+9
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 |  Naked Globals |  Local Variables  | All