IBJPS3 ;BP/YMG - IB Site Parameters, Pay-To Provider ;20-Oct-2008
Source file <IBJPS3.m>
| 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. |
|
| 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 | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | Classic Fileman Calls |
| ^DIC(5 - [#5] | FIND1^DIC, GET1^DIQ |
