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

Package: Integrated Billing

Routine: IBJPS4


Information

IBJPS4 ;BP/YMG - IB Site Parameters, Pay-To Provider Associations ;06-Nov-2008

Source Information

Source file <IBJPS4.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 ($$FIND1,LIST)^DIC  FILE^DICN  ^DIE  CLEAN^DILF  ($$GET1,GETS)^DIQ  ^DIR  
List Manager 3 EN^VALM  ($$SETSTR,CLEAR,FULL)^VALM1  (CLEAN,SET)^VALM10  
Integrated Billing 1 ($$GETDFLT,$$ISDFLT,$$SET)^IBJPS3  
Kernel 1 DISP^XQORM1  

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

Package Total Caller Graph
Integrated Billing 7 IBJP IB PAY-TO ASSOCIATIONS  IBJP IB PAY-TO DIVISION ADD  IBJP IB PAY-TO PROVIDER DIVISIONS  IBJP IB TRICARE PAY-TO ASSOCS  IBJP IB TRICARE PAY-TO DIVISION ADD  IBJP IB TRICARE PAY-TO PROVIDER DIVISIONS  IBJPS3  

Entry Points

Name Comments DBIA/ICR reference
EN(IBTCFLAG) ; -- main entry point for IBJP IB PAY-TO ASSOCIATIONS
; select pay-to provider
HDR ; -- header code
INIT(IBTCFLAG) ; -- init variables and list array
HELP ; -- help code
EXIT ; -- exit code
BLD(DFLT,PROVS,IBTCFLAG) ; build array of pay-to providers and divisions
SEL() ; select division
; returns ien of selected division, or 0 if nothing is selected
DIVADD(IBTCFLAG) ; associate division with a pay-to provider
ERR ;
GETPROV(PIEN,IBTCFLAG) ; return pay-to provider ien for a given division, or 0 if provider can't be found
; PIEN has to be a valid ien in pay-to providers sub-file
GETDIVS(PIEN,DIVS,IBTCFLAG) ; return array of divisions associated with pay-to provider PIEN
NODE(IBTCFLAG) ; Determine appropriate pay-to provide node within ^IBE(350.9).
; '29' for TRICARE, otherwise '19'.
SCRN4(IEN) ; Screen for INSTITUTION(#4) file
TRICARE(IBIFN) ; Determine whether this bill/claim is TRICARE or not.
; Return '1' if TRICARE, '0' if not. There are two rate types that
; should return '1': TRICARE and TRICARE REIMB. INS.
;
; This has been modified to reflect Non-MCCF Claims and not just TRICARE. - IB*2.0*608 - vd (US2599)

External References

Name Field # of Occurrence
$$FIND1^DIC DIVADD+9
LIST^DIC BLD+12
FILE^DICN DIVADD+13
^DIE DIVADD+21
CLEAN^DILF BLD+24, DIVADD+23
$$GET1^DIQ BLD+21, DIVADD+10
GETS^DIQ SCRN4+3
^DIR SEL+5, DIVADD+20, ERR+5
$$GETDFLT^IBJPS3 INIT+2, DIVADD+10, TRICARE+20
$$ISDFLT^IBJPS3 INIT+7
$$SET^IBJPS3 INIT+21, INIT+22
EN^VALM EN+2
$$SETSTR^VALM1 INIT+7, INIT+11, INIT+12, INIT+13, INIT+17, INIT+21, INIT+22
CLEAR^VALM1 EXIT+1
FULL^VALM1 DIVADD+4
CLEAN^VALM10 EXIT+1, DIVADD+23
SET^VALM10 INIT+8, INIT+14, INIT+17, INIT+18
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • DIC
  • Line Location:
    • DIVADD+9
Routine Call
  • DIC
  • Line Location:
    • BLD+12
Routine Call
  • DIE
  • Line Location:
    • DIVADD+21
Routine Call
  • DIR
  • Line Location:
    • SEL+5
    • DIVADD+20
    • ERR+5
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ,  GETS^DIQ
^DG(40.8 - [#40.8] FIND1^DIC,  GET1^DIQ,  LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] TRICARE+8
^IBE(350.9 - [#350.9] BLD+6, BLD+7, BLD+16, DIVADD+7, DIVADD+11, DIVADD+17, GETPROV+6, GETDIVS+3, GETDIVS+4, GETDIVS+6
, TRICARE+13

Label References

Name Line Occurrences
$$GETPROV BLD+19, GETDIVS+5
$$NODE BLD+3, DIVADD+2, GETPROV+5, GETDIVS+2
$$SEL DIVADD+6
BLD INIT+2
ERR DIVADD+11, DIVADD+17
INIT DIVADD+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALLDIVS BLD+1~, BLD+13
ALLDIVS("DILIST" BLD+13, BLD+15
DA DIVADD+1~, DIVADD+21*
DA(1 DIVADD+12*, DIVADD+19*, DIVADD+21*
DD DIVADD+13!, DIVADD+14!
DFLT INIT+1~, INIT+2*, INIT+21, INIT+22, BLD~, BLD+2, BLD+19, DIVADD+1~, DIVADD+10*, DIVADD+11
, DIVADD+12
DIC DIVADD+1~, DIVADD+12*, DIVADD+14!
DIC("DR" DIVADD+12*
DIC(0 DIVADD+12*
DIE DIVADD+1~, DIVADD+21*
DIEN BLD+1~, BLD+16*, BLD+19, DIVADD+1~, DIVADD+9*, DIVADD+10
DIERR SCRN4+1~, SCRN4+4
DIR SEL+2~, DIVADD+1~, ERR+1~
DIR("A" SEL+5*, DIVADD+19*, ERR+2*, ERR+3*, ERR+4*
DIR("S" DIVADD+18*
DIR(0 SEL+5*, DIVADD+18*, ERR+5*
DIV GETDIVS+1~, GETDIVS+4*, GETDIVS+5, GETDIVS+6
DIVDATA BLD+1~, BLD+15*, BLD+21
DIVS GETDIVS~
DIVS( GETDIVS+6*
DLAYGO DIVADD+12*, DIVADD+14!
DNAME DIVADD+1~, DIVADD+10*, DIVADD+12
DO DIVADD+13!, DIVADD+14!
DR DIVADD+1~, DIVADD+21*
FIELDS SCRN4+1~, SCRN4+2*, SCRN4+3
HASDIVS INIT+1~, INIT+9*, INIT+10*, INIT+17
I BLD+1~, BLD+6*, BLD+7, BLD+8, BLD+13*, BLD+15, GETDIVS+1~, GETDIVS+3*, GETDIVS+4
IB0 BLD+1~, BLD+7*, BLD+8
IBCNT INIT+1~, INIT+5*, INIT+10*, INIT+11, INIT+15
IBIFN TRICARE~, TRICARE+6, TRICARE+8
IBLN INIT+1~, INIT+5*, INIT+6*, INIT+8, INIT+10*, INIT+14, INIT+17*, INIT+18*, INIT+21*, INIT+22*
, INIT+23
IBNODE BLD+1~, BLD+3*, BLD+6, BLD+7, BLD+16, DIVADD+1~, DIVADD+2*, DIVADD+7, DIVADD+11, DIVADD+12
, DIVADD+17, DIVADD+18, DIVADD+21, GETPROV+3~, GETPROV+5*, GETPROV+6, GETDIVS+1~, GETDIVS+2*, GETDIVS+3, GETDIVS+4
, GETDIVS+6
IBRATE TRICARE+7~, TRICARE+8*, TRICARE+9, TRICARE+13
IBSTR INIT+1~, INIT+7*, INIT+8, INIT+11*, INIT+12*, INIT+13*, INIT+14, INIT+17*
IBTCFLAG EN~, EN+2, INIT~, INIT+2, INIT+7, INIT+21, INIT+22, BLD~, BLD+3, BLD+19
, DIVADD~, DIVADD+2, DIVADD+10, DIVADD+19, DIVADD+23, GETPROV~, GETPROV+5, GETDIVS~, GETDIVS+2, GETDIVS+5
, NODE~, NODE+2
IEN SEL+2~, SEL+3*, SEL+6*, SEL+8, SCRN4~, SCRN4+2
IEN19 DIVADD+1~, DIVADD+7*, DIVADD+13*, DIVADD+16, DIVADD+17, DIVADD+21
IEN4 INIT+1~, INIT+9*, INIT+12, INIT+13, INIT+15, BLD+1~, BLD+15*, BLD+16, BLD+21, DIVADD+1~
, DIVADD+6*, DIVADD+7, DIVADD+9, DIVADD+11, DIVADD+12
IENS SCRN4+1~, SCRN4+2*, SCRN4+3, SCRN4+6, SCRN4+8, SCRN4+10
MAX SEL+2~, SEL+3*, SEL+4, SEL+5
NXTPIEN GETPROV+3~, GETPROV+6*, GETPROV+7, GETPROV+8, GETPROV+9
OUT GETPROV+3~, GETPROV+6*, GETPROV+7*, GETPROV+8*
PIEN INIT+1~, INIT+5*, INIT+7, INIT+9, INIT+12, INIT+13, BLD+1~, BLD+19*, BLD+21, GETPROV~
, GETPROV+4, GETPROV+6, GETPROV+8*, GETPROV+9*, GETPROV+11, GETDIVS~, GETDIVS+6
PPROV GETDIVS+1~, GETDIVS+5*, GETDIVS+6
PROVS INIT+1~, INIT+2, INIT+3, INIT+22, BLD~, BLD+10
PROVS( INIT+5, INIT+7, INIT+9, INIT+12, INIT+13, BLD+8*, BLD+21*
PRVZ GETPROV+3~
PRVZ( GETPROV+4*, GETPROV+8, GETPROV+9*
U INIT+12, INIT+13, BLD+8, BLD+15, BLD+21, DIVADD+17, GETPROV+6, GETDIVS+6, SCRN4+10, TRICARE+8
>> VALMAR INIT+15, SEL+3, SEL+6
>> VALMBCK EN+3*, DIVADD+5*
>> VALMBG INIT+23*
>> VALMCNT INIT+23*
>> VALMHDR(1 HDR+1*
X HELP+1*, SEL+2~, DIVADD+12*
Y SEL+2~, SEL+5*, SEL+6, DIVADD+1~, DIVADD+13, DIVADD+21
Z SCRN4+1~
Z(4 SCRN4+6, SCRN4+8, SCRN4+10
ZERR SCRN4+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