Routine: IBJPS4

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 8

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
Kernel	1	^ORD(101

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. - IB2.0608 - 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

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~

Customize PDF page

Package: Integrated Billing