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

Package: Integrated Billing

Routine: IBJPS3


Information

IBJPS3 ;BP/YMG - IB Site Parameters, Pay-To Provider ;20-Oct-2008

Source Information

Source file <IBJPS3.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA FileMan 5 (,$$FIND1)^DIC  (,FILE)^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Integrated Billing 4 $$NOPUNCT^IBCEF  ($$B,GETBP)^IBCEF79  $$GETFAC^IBCEP8  ($$GETPROV,$$NODE,$$TRICARE,GETDIVS)^IBJPS4  
Kernel 4 $$UP^XLFSTR  DISP^XQORM1  $$WHAT^XUAF4  $$NPI^XUSNPI  
List Manager 3 EN^VALM  ($$SETSTR,CLEAR,FULL)^VALM1  (CLEAN,SET)^VALM10  
Registration 1 ($$PRIM,$$SITE)^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: 17

Package Total Caller Graph
Integrated Billing 16 IBCBB0  IBCEF79  IBCEMRAA  IBCEMRAB  IBJP IB PAY-TO PROVIDER ADD  IBJP IB PAY-TO PROVIDER DEL  IBJP IB PAY-TO PROVIDER EDIT  IBJP IB PAY-TO PROVIDERS  
IBJP IB TRICARE PAY-TO PROVIDER ADD  IBJP IB TRICARE PAY-TO PROVIDER DEL  IBJP IB TRICARE PAY-TO PROVIDER EDIT  IBJP IB TRICARE PAY-TO PROVS  IBJPS  IBJPS2  IBJPS4  IBNCPDPI  
Accounts Receivable 1 RCDPEX3  

Entry Points

Name Comments DBIA/ICR reference
EN(IBTCFLAG) ; -- main entry point for IBJP IB PAY-TO PROVIDERS
HDR(IBTCFLAG) ; -- header code
; Not setting VALMHDR causes this tag to be called upon return from every action,
; this is done to keep VALMSG displayed at all times, instead of the default message on the lower bar.
INIT(IBTCFLAG) ; -- init variables and list array
HELP ; -- help code
EXIT ; -- exit code
PRVADD(IBTCFLAG) ; add new pay-to provider
PRVDEL(IBTCFLAG) ; delete a pay-to provider
PRVDEL1 ;
PRVEDIT(IBTCFLAG) ; edit existing pay-to provider
PRVEDIT1 ;
SET(IBLN,IBSTR) ; add a line to display list
; returns line number added
ISDFLT(PIEN,IBTCFLAG) ; returns 1 if provider with ien PIEN is the default pay-to provider, 0 otherwise
GETDFLT(IBTCFLAG) ; returns ien of default pay-to provider
SEL(IBTCFLAG) ; select pay-to provider
; returns ien of selected pay-to provider, or 0 if nothing is selected
PRVDATA(IBIFN) ; Return a string of Pay-To provider information in the following format
; [1] name
; [2] npi
; [3] tax id#
; [4] phone#
; [5] street 1
; [6] street 2
; [7] city
; [8] state abbreviation
; [9] zip
; [10] list of IB error messages if any of this data is missing in IBXX1;IBXX2;IBXX3;IBXX4; format
; [11] Institution (File 4) ien
PRVDATX ;
PTG(PIEN,IBTCFLAG) ; gather pay-to provider info
PTGX ;
PRVPHONE(IBIFN) ; Return Pay-to provider phone# for a given claim
; IBIFN - internal claim# (optional parameter)
; If IBIFN is not passed in, then the phone# from the default pay-to provider entry will be returned.
; For example, AR option 'EDI Lockbox 3rd Party Exceptions' needs the phone# for the process of transfering an
; EEOB to another site, but the claim# is not available to this process.
  • ICR #5286
    • Status: Active
    • Usage: Private
    PRVPHNX ;
    DEF(INST,DA,IBTCFLAG) ; This procedure is called by new style x-ref in
    ; order to default name and address fields.
    ; INST - IEN to file #4, Institution. This is the value in the .01
    ; field of the Pay-to or TRICARE Pay-to Providers sub-fil.
    ; DA - DA array as passed in from FileMan. DA(1) should equal 1 since
    ; this is the IB site params and there is only 1 entry. DA should
    ; equal the IEN to the pay-to provider multiple entry
    ; This procedure is called only if a new institution is being added to
    ; the sub-file or an entry in the sub-file is being changed from one
    ; institution to another.
    DEFX ;
    DIFF(IBIFN,EDI) ; This function will determine if there are any differences between
    ; the Billing Provider name and address and the Pay-to Provider name and address.
    ; When these two are the same, then the Pay-to Provider information is
    ; suppressed and is not printed or transmitted.
    ; This function returns a 1 if differences are found, and 0 if they are the same.
    DIFFX ;
    MAINPRV(IBTCFLAG) ; Return Pay-To provider information for main VAMC
    MAINPRVX ;

    External References

    Name Field # of Occurrence
    ^DIC PRVADD+7
    $$FIND1^DIC DEF+19
    ^DIE PRVDEL+18, PRVEDIT1+5, PRVEDIT1+10
    FILE^DIE DEF+38
    ^DIK PRVDEL+19, PRVDEL1+5
    $$GET1^DIQ PTG+17
    ^DIR PRVDEL+17, PRVEDIT1+10, SEL+10
    $$NOPUNCT^IBCEF DIFF+22, DIFF+32, DIFF+40
    $$B^IBCEF79 DIFF+11
    GETBP^IBCEF79 DIFF+16
    $$GETFAC^IBCEP8 DIFF+27, DIFF+28, DIFF+29, DIFF+30, DIFF+31, DIFF+32
    $$GETPROV^IBJPS4 PRVDATA+44
    $$NODE^IBJPS4 INIT+2, PRVADD+2, PRVDEL+2, PRVEDIT+2, PTG+3, MAINPRV+2
    $$TRICARE^IBJPS4 PRVDATA+19
    GETDIVS^IBJPS4 PRVDEL+9
    EN^VALM EN+1
    $$SETSTR^VALM1 INIT+8, INIT+9, INIT+10, INIT+14, INIT+18, INIT+21, INIT+25, INIT+27, INIT+29, INIT+31
    , INIT+36
    CLEAR^VALM1 EXIT+1
    FULL^VALM1 PRVADD+3, PRVDEL+5, PRVEDIT+4
    CLEAN^VALM10 EXIT+1, PRVDEL1+6, PRVEDIT1+11
    SET^VALM10 SET+2
    $$PRIM^VASITE PRVDATA+25, PRVDATA+26
    $$SITE^VASITE PRVDATA+28, PRVDATA+29, PRVDATA+30, MAINPRV+3
    $$UP^XLFSTR DIFF+12, DIFF+17, DIFF+18, DIFF+19, DIFF+20, DIFF+21, DIFF+22, DIFF+27, DIFF+28, DIFF+29
    , DIFF+30, DIFF+31, DIFF+32
    DISP^XQORM1 HELP+1
    $$WHAT^XUAF4 DEF+18, DEF+29, DEF+33, DEF+34, DEF+35, DEF+37
    $$NPI^XUSNPI PTG+13

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: HELP+1
    Function Call: WRITE
    • Prompt: !!,"WARNING: This is the default "_IBDISP_"."
    • Line Location: PRVDEL+8
    Function Call: WRITE
    • Prompt: !,?5,DIVS(I)
    • Line Location: PRVDEL+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRVDEL+13
    Routine Call
    • DIC
    • Line Location:
      • PRVADD+7
    Routine Call
    • DIC
    • Line Location:
      • DEF+19
    Routine Call
    • DIE
    • Line Location:
      • PRVDEL+18
      • PRVEDIT1+5
      • PRVEDIT1+10
    Routine Call
    • DIE
    • Line Location:
      • DEF+38
    Routine Call
    • DIR
    • Line Location:
      • PRVDEL+17
      • PRVEDIT1+10
      • SEL+10
    Routine Call
    • VALM
    • Line Location:
      • EN+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBE(350.9 - [#350.9] Classic Fileman Calls
    ^DIC(5 - [#5] FIND1^DIC,  GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] PRVDATA+21
    ^IBE(350.9 - [#350.9] INIT+5, INIT+6, PRVADD+10, PRVDEL+16, GETDFLT+1, PRVDATA+34, PRVDATA+38, PTG+7, PTG+8, PTG+9
    , PRVPHONE+9, DEF+26, MAINPRV+4, MAINPRV+5

    Label References

    Name Line Occurrences
    $$GETDFLT PRVEDIT1+9, ISDFLT+2
    $$ISDFLT INIT+9, PRVDEL+7, PRVEDIT1+9
    $$PRVDATA PRVPHONE+7, DIFF+12
    $$PTG INIT+7, PRVDATA+39, PRVDATA+44, PRVPHONE+10, MAINPRV+6
    $$SEL PRVDEL+6, PRVEDIT+5
    $$SET INIT+12, INIT+16, INIT+20, INIT+22, INIT+26, INIT+28, INIT+30, INIT+32, INIT+36
    DEFX DEF+13
    DIFFX DIFF+35, DIFF+36, DIFF+37, DIFF+38, DIFF+39, DIFF+40
    INIT PRVDEL1+6, PRVEDIT1+11
    MAINPRVX MAINPRV+3, MAINPRV+4, MAINPRV+5
    PRVDATX PRVDATA+27, PRVDATA+31, PRVDATA+36
    PRVDEL1 PRVADD+10
    PRVEDIT1 PRVADD+9
    PRVPHNX PRVPHONE+7, PRVPHONE+9
    PTGX PTG+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BPAD1 DIFF+9~, DIFF+18*, DIFF+28*, DIFF+36
    BPAD2 DIFF+9~, DIFF+19*, DIFF+29*, DIFF+37
    BPCITY DIFF+9~, DIFF+20*, DIFF+30*, DIFF+38
    BPNAME DIFF+9~, DIFF+17*, DIFF+27*, DIFF+35
    BPST DIFF+9~, DIFF+21*, DIFF+31*, DIFF+39
    BPZ DIFF+9~, DIFF+11*, DIFF+16, DIFF+27, DIFF+28, DIFF+29, DIFF+30, DIFF+31, DIFF+32
    BPZIP DIFF+9~, DIFF+22*, DIFF+32*, DIFF+40
    DA PRVADD+1~, PRVDEL+1~, PRVDEL+18*, PRVDEL+19*, PRVDEL1+2!, PRVDEL1+4*, PRVEDIT1+1~, PRVEDIT1+3*, PRVEDIT1+10!*, DEF~
    , DEF+28
    DA(1 PRVADD+5*, PRVDEL+19*, PRVDEL1+4*, PRVEDIT1+3*
    DATA PRVDATA+16~, PRVDATA+17*, PRVDATA+39*, PRVDATA+44*, PRVDATX+1*, PRVDATX+2, MAINPRV+1~, MAINPRV+3*, MAINPRV+6*, MAINPRVX+1*
    MAINPRVX+2
    DFLT PRVDEL+1~, PRVDEL+7*, PRVDEL+8, PRVDEL+10, PRVDEL+18
    DIC PRVADD+1~, PRVADD+5*
    DIC("A" PRVADD+6*
    DIC(0 PRVADD+5*
    DIE PRVADD+1~, PRVDEL+1~, PRVDEL+18*, PRVEDIT1+1~, PRVEDIT1+2*, PRVEDIT1+10*
    DIFF DIFF+9~, DIFF+10*, DIFF+35*, DIFF+36*, DIFF+37*, DIFF+38*, DIFF+39*, DIFF+40*, DIFFX+1
    DIK PRVDEL+19!*, PRVDEL+20!, PRVDEL1+1~, PRVDEL1+3*
    DIR PRVADD+1~, PRVDEL+1~, PRVEDIT1+1~, SEL+2~
    DIR("?" PRVDEL+15*, PRVEDIT1+6*
    DIR("A" PRVDEL+16*, PRVEDIT1+7*, SEL+8*
    DIR("B" PRVDEL+17*, PRVEDIT1+9*
    DIR(0 PRVDEL+17*, PRVEDIT1+8*, SEL+9*
    DIRUT PRVADD+1~, PRVDEL+1~, PRVEDIT1+1~
    DIVS PRVDEL+1~, PRVDEL+9, PRVDEL+13, PRVDEL+19
    DIVS( PRVDEL+12, PRVDEL+19
    DLAYGO PRVADD+1~, PRVADD+5*
    DR PRVADD+1~, PRVDEL+1~, PRVDEL+18*, PRVEDIT1+1~, PRVEDIT1+4*, PRVEDIT1+10*
    DT PRVDATA+23, PRVDATA+29
    DTOUT PRVADD+1~, PRVDEL+1~, PRVEDIT1+1~
    DUOUT PRVADD+1~, PRVDEL+1~, PRVEDIT1+1~
    EDI DIFF~, DIFF+10*, DIFF+15, DIFF+26
    EVDT PRVDATA+16~, PRVDATA+22*, PRVDATA+23*, PRVDATA+25, PRVDATA+28
    I PRVDEL+1~, PRVDEL+12*, PRVDEL+19*
    IB0 PRVDATA+16~, PRVDATA+21*, PRVDATA+22, PRVDATA+24
    IBCNT INIT+1~, INIT+4*, INIT+7*, INIT+8, INIT+33
    IBDISP PRVDEL+1~, PRVDEL+3*, PRVDEL+8, PRVDEL+11, PRVDEL+15, PRVDEL+16
    IBDIV PRVDATA+16~, PRVDATA+24*, PRVDATA+25*, PRVDATA+26*, PRVDATA+27, PRVDATA+28, PRVDATA+29
    IBER PRVDATA+16~, PRVDATA+17*, PRVDATX+1*, PTG+1~, PTG+5*, PTG+7*, PTG+20*, PTG+21*, PTG+24*, PTG+26
    , MAINPRV+1~, MAINPRV+3*, MAINPRVX+1*
    IBFILE DEF+11~, DEF+15*, DEF+16*, DEF+29, DEF+30, DEF+31, DEF+32, DEF+33, DEF+34, DEF+35
    , DEF+36, DEF+37
    IBIFN PRVDATA~, PRVDATA+19, PRVDATA+21, PRVPHONE~, PRVPHONE+7, DIFF~, DIFF+11, DIFF+12, DIFF+16
    IBLN INIT+1~, INIT+4*, INIT+12*, INIT+16*, INIT+20*, INIT+22*, INIT+26*, INIT+28*, INIT+30*, INIT+32*
    , INIT+36*, INIT+38, SET~, SET+2*, SET+3
    IBNODE INIT+1~, INIT+2*, INIT+5, INIT+6, PRVADD+1~, PRVADD+2*, PRVADD+5, PRVADD+10, PRVDEL+1~, PRVDEL+2*
    , PRVDEL+16, PRVDEL+19, PRVDEL1+3, PRVEDIT+1~, PRVEDIT+2*, PRVEDIT1+2, PTG+1~, PTG+3*, PTG+7, PTG+8
    , PTG+9, MAINPRV+1~, MAINPRV+2*, MAINPRV+4, MAINPRV+5
    IBORG PTG+1~, PTG+12*, PTG+13, PTG+26
    IBSTR INIT+1~, INIT+8*, INIT+9*, INIT+10*, INIT+12, INIT+14*, INIT+16, INIT+18*, INIT+20, INIT+21*
    , INIT+22, INIT+25*, INIT+26, INIT+27*, INIT+28, INIT+29*, INIT+30, INIT+31*, INIT+32, SET~
    , SET+2
    IBTAXID DEF+11~, DEF+25*, DEF+26*, DEF+30
    IBTCFLAG EN~, EN+1, HDR~, HDR+3, INIT~, INIT+2, INIT+7, INIT+9, INIT+36, PRVADD~
    , PRVADD+2, PRVADD+6, PRVDEL~, PRVDEL+2, PRVDEL+3, PRVDEL+6, PRVDEL+7, PRVDEL+9, PRVDEL+18, PRVDEL1+6
    , PRVEDIT~, PRVEDIT+2, PRVEDIT+5, PRVEDIT1+6, PRVEDIT1+7, PRVEDIT1+9, PRVEDIT1+10, PRVEDIT1+11, ISDFLT~, ISDFLT+2
    , GETDFLT~, GETDFLT+1, SEL~, SEL+8, PRVDATA+16~, PRVDATA+19*, PRVDATA+34, PRVDATA+38, PRVDATA+39, PRVDATA+44
    , PTG~, PTG+3, DEF~, DEF+15, MAINPRV~, MAINPRV+2, MAINPRV+6
    IBZ DIFF+9~, DIFF+16
    IBZ("DIFF" DIFF+17, DIFF+18, DIFF+19, DIFF+20, DIFF+21, DIFF+22
    IEN PRVADD+1~, PRVADD+7*, PRVADD+8, PRVADD+10, PRVDEL+1~, PRVDEL+6*, PRVDEL+7, PRVDEL+9, PRVDEL+16, PRVDEL1+4
    , PRVEDIT+1~, PRVEDIT+5*, PRVEDIT1+3, PRVEDIT1+9, PRVEDIT1+10, SEL+2~, SEL+3*, SEL+12*, SEL+14
    IEN4 MAINPRV+1~, MAINPRV+3*, MAINPRV+4
    IENS DEF+11~, DEF+28*, DEF+29, DEF+30, DEF+31, DEF+32, DEF+33, DEF+34, DEF+35, DEF+36
    , DEF+37
    INST PRVDATA+16~, PRVDATA+28*, PRVDATA+29*, PRVDATA+30*, PRVDATA+31, PRVDATA+34, DEF~, DEF+13, DEF+18, DEF+26
    , DEF+29, DEF+33, DEF+34, DEF+35, DEF+37
    MAX SEL+2~, SEL+6*, SEL+7, SEL+8, SEL+9
    N0 PTG+1~, PTG+8*, PTG+12, PTG+20, PTG+26
    N1 PTG+1~, PTG+9*, PTG+16, PTG+24, PTG+26
    NAD DEF+11~
    NAD( DEF+29*, DEF+30*, DEF+31*, DEF+32*, DEF+33*, DEF+34*, DEF+35*, DEF+36*, DEF+37*
    NPI PTG+1~, PTG+12*, PTG+13*, PTG+21, PTG+26
    PDATA INIT+1~, INIT+7*, INIT+10, INIT+14, INIT+18, INIT+21, INIT+25, INIT+27, INIT+29, INIT+31
    PIEN INIT+1~, INIT+5*, INIT+6, INIT+7, INIT+9, INIT+33, ISDFLT~, ISDFLT+1, ISDFLT+2, PRVDATA+16~
    , PRVDATA+34*, PRVDATA+36, PRVDATA+38*, PRVDATA+39, PRVDATA+44*, PTG~, PTG+5*, PTG+7, PTG+8, PTG+9
    , PRVPHONE+5~, PRVPHONE+9*, PRVPHONE+10, MAINPRV+1~, MAINPRV+4*, MAINPRV+5, MAINPRV+6
    PTP DIFF+9~, DIFF+12*, DIFF+35, DIFF+36, DIFF+37, DIFF+38, DIFF+39, DIFF+40
    PTPP PRVPHONE+5~, PRVPHONE+6*, PRVPHONE+7*, PRVPHONE+10*, PRVPHNX+1
    ST DEF+11~, DEF+18*, DEF+19
    STATE PTG+1~, PTG+16*, PTG+17*, PTG+24, PTG+26
    STIEN PTG+1~, PTG+16*, PTG+17, DEF+11~, DEF+19*, DEF+36
    U INIT+6, INIT+10, INIT+14, INIT+18, INIT+21, INIT+25, INIT+27, INIT+29, INIT+31, PRVADD+10
    , PRVDEL+16, GETDFLT+1, PRVDATA+22, PRVDATA+24, PRVDATA+38, PRVDATX+1, PTG+7, PTG+12, PTG+13, PTG+16
    , PTG+20, PTG+24, PTG+26, PRVPHONE+7, PRVPHONE+9, PRVPHONE+10, DEF+26, DIFF+35, DIFF+36, DIFF+37
    , DIFF+38, DIFF+39, DIFF+40, MAINPRV+5, MAINPRVX+1
    >> VALMAR INIT+33, SEL+6, SEL+12
    >> VALMBCK PRVADD+4*, PRVDEL+4*, PRVEDIT+3*
    >> VALMBG INIT+38*
    >> VALMCNT INIT+4*, INIT+38*
    >> VALMLST SEL+4
    >> VALMSG HDR+3*
    X HELP+1*, PRVADD+1~, PRVDEL+1~, PRVEDIT1+1~, SEL+2~
    Y PRVADD+1~, PRVADD+7, PRVDEL+1~, PRVDEL+17, PRVEDIT1+1~, PRVEDIT1+10, SEL+2~, SEL+6*, SEL+12
    Z PTG+1~, PTG+5*, PTG+7*, PTG+26*, PTGX+1
    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