FBUTL7 ;WIOFO/SAB - FEE BASIS UTILITY FOR CONTRACT ;9/24/2009
Source file <FBUTL7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDCNTRA(FBDFN,FBAUTH) | ; determine if CONTRACT can be edited
; Input ; FBDFN = IEN of patient in file 161 (and file 2) ; FBAUTH = IEN of authorization in sub-file 161.01 ; Returns a string value flag^message where ; flag = 1 if contract field in sub-file 161.01 can be edited ; = 0 if it cannot be edited ; message = optional text that if present should be displayed |
|
| EDCNTRAX | ; EDCNTRA exit
|
|
| OUTPA(FBDFN,FBAUTH) | ; Outpatient Authorization Has Payments?
; input ; patient IEN ; authorization IEN ; output ; FBPAY = 1 or 0, =1 if any payments on file for the authorization |
|
| OUTPAV | ;
|
|
| CNTRPTR(FBDA) | ; Contract pointed-to
; input FBDA = ien of contract in file 161.43 ; result 0 or 1, =1 if contract is pointed-to |
|
| UCFA(FBVENI,FBVENA,FBCNTRA) | ; Use Contract From Authorization
; input ; FBVENI = vendor IEN for invoice/payment ; FBVENA = vendor IEN for associated authorization ; FBCNTRA = contract IEN for associated authorization ; returns 0 or 1 ; = 1 if invoice must have same contract as associated authorization |
|
| CNTRSCR(FBDFN,FBAUT,FBCNTRA) | ; contract screen
; called by 161.01 CONTRACT field screen ; input ; FEE BASIS PATIENT ien ; AUTHORIZATION ien ; CONTRACT ien ; return 0 or 1, =1 if contract passes screen |
|
| VCNTR(FBV,FBC) | ; vendor applicable for the contract
; input ; FBV = IEN of vendor (FEE BASIS VENDOR file) ; FBC = IEN on contract (FEE BASIS CONTRACT file) ; returns 0 or 1 ; =1 if vendor is applicable for the contract |
|
| FileNo | Call Tags |
|---|---|
| ^FBAA(161.43 - [#161.43] | GET1^DIQ |
