FBUTL7 ;WIOFO/SAB - FEE BASIS UTILITY FOR CONTRACT ;9/24/2009
Source file <FBUTL7.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^FBAA(161.43 - [#161.43] | CNTRSCR+10, VCNTR+10, VCNTR+20 |
| ^FBAAA - [#161] | EDCNTRA+15, OUTPA+9, CNTRSCR+13 |
| ^FBAAA("ACN" | CNTRPTR+6 |
| ^FBAAC - [#162] | OUTPA+11, OUTPAV+3, OUTPAV+4, OUTPAV+5 |
| ^FBAAC("ACN" | CNTRPTR+8 |
| ^FBAAI("ACN" | CNTRPTR+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | UCFA+16~, UCFA+17*, UCFA+18, VCNTR+14~, VCNTR+15*, VCNTR+16 |
| >> DIUTIL | CNTRSCR+10 |
| FBA | UCFA+16~, VCNTR+14~ |
| FBAR | UCFA+7~, VCNTR+6~ |
| FBAR( | UCFA+18*, UCFA+21, VCNTR+16*, VCNTR+19 |
| FBAUT | CNTRSCR~, CNTRSCR+12, CNTRSCR+13 |
| FBAUTH | EDCNTRA~, EDCNTRA+14, EDCNTRA+15, EDCNTRA+26, OUTPA~, OUTPA+9, OUTPAV+4 |
| FBC | VCNTR~, VCNTR+8, VCNTR+10, VCNTR+20 |
| FBCNTRA | UCFA~, UCFA+10, CNTRSCR~, CNTRSCR+10, CNTRSCR+15 |
| FBDA | CNTRPTR~, CNTRPTR+6, CNTRPTR+8, CNTRPTR+10, UCFA+16~, VCNTR+14~ |
| FBDFN | EDCNTRA~, EDCNTRA+13, EDCNTRA+15, EDCNTRA+26, OUTPA~, OUTPA+9, OUTPA+11, OUTPAV+3, OUTPAV+4, OUTPAV+5 , CNTRSCR~, CNTRSCR+12, CNTRSCR+13 |
| FBDTI | OUTPAV+1~, OUTPAV+2*, OUTPAV+3*, OUTPAV+4, OUTPAV+5 |
| FBI | UCFA+7~, UCFA+21*, UCFA+22, VCNTR+6~, VCNTR+19*, VCNTR+20 |
| FBJ | UCFA+16~, VCNTR+14~ |
| FBPAY | EDCNTRA+9~, EDCNTRA+25*, EDCNTRA+26*, EDCNTRA+27*, EDCNTRA+28, OUTPA+6~, OUTPA+7*, OUTPA+11, OUTPA+12, OUTPAV+3 , OUTPAV+6* |
| FBRET | EDCNTRA+9~, EDCNTRA+10*, EDCNTRA+33*, EDCNTRA+36*, EDCNTRAX+1, CNTRPTR+3~, CNTRPTR+4*, CNTRPTR+6*, CNTRPTR+8*, CNTRPTR+10* , CNTRPTR+11, UCFA+7~, UCFA+8*, UCFA+12*, UCFA+13, UCFA+21, UCFA+22*, UCFA+23, CNTRSCR+7~, CNTRSCR+8* , CNTRSCR+10*, CNTRSCR+12, CNTRSCR+14*, CNTRSCR+15*, CNTRSCR+16, VCNTR+6~, VCNTR+7*, VCNTR+10*, VCNTR+11, VCNTR+19 , VCNTR+20*, VCNTR+21 |
| FBV | VCNTR~, VCNTR+8, VCNTR+10, VCNTR+15 |
| FBVEN | OUTPA+6~, OUTPA+9*, OUTPA+10, OUTPA+11*, OUTPAV+3, OUTPAV+4, OUTPAV+5, CNTRSCR+7~, CNTRSCR+13*, CNTRSCR+14 , CNTRSCR+15 |
| FBVENA | UCFA~, UCFA+12, UCFA+22 |
| FBVENI | UCFA~, UCFA+12, UCFA+15, UCFA+17 |
| FBX | EDCNTRA+29~, EDCNTRA+30*, EDCNTRA+31*, EDCNTRA+32*, EDCNTRA+33 |
| FBY | EDCNTRA+9~, EDCNTRA+15*, EDCNTRA+16, EDCNTRA+20, EDCNTRA+22, EDCNTRA+26, EDCNTRA+27, EDCNTRA+31 |
