Routine: IBJPS3

Information

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

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:

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

Package	Total	Caller Graph
Integrated Billing	19	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 PAY-TO PROVIDERS TRICARE PAY-TO PROVIDERS ^IBA(364.7
Accounts Receivable	1	RCDPEX3
Kernel	1	^ORD(101

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

Customize PDF page

Package: Integrated Billing

Routine: IBJPS3

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 21

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: