IBJPS4 ;BP/YMG - IB Site Parameters, Pay-To Provider Associations ;06-Nov-2008
Source file <IBJPS4.m>
| 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) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ, GETS^DIQ |
| ^DG(40.8 - [#40.8] | FIND1^DIC, GET1^DIQ, LIST^DIC |
