IBR ;ALB/AAS - INTEGRATED BILLING - A/R INTERFACE ;25-FEB-91
Source file <IBR.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 |
---|---|---|
V | ;;2.0;INTEGRATED BILLING;**52,70,93,113,132,51**;21-MAR-94
|
|
1 | ; -pass new entries to a/r
|
|
UP1 | ; -update IB data and reindex
|
|
2 | ||
UP2 | ; -update IB data and reindex
|
|
3 | ||
UP3 | ; -update status of all previous bills to updated
|
|
ERR | ||
END | ;
|
|
TRCHK | ; - if entry has an ar transaction number take out of list
|
|
AR | ; Pass charges which need separate bills to Accounts Receivable.
; Variable input: DFN -- Pointer to the patient in file #2 ; IBSITE -- Facility number ; IBATYP -- Pointer to the action type in file #350.1 ; IBFR -- 'Bill From' Date ; IBCHG -- Charge amount ; IBN -- Pointer to the charge in file #350 ; IBY -- Set to 1 to denote potential success ; IBSERV -- Pointer to the service in file #49 |
|
SET | ; Set up stub receivable in AR.
|
|
REL | ; Release the charge to AR.
|
|
RELQ |
FileNo | Call Tags |
---|---|
^IB - [#350] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IB - [#350] | 1+2, 2+1, 2+8, UP2+8, UP3+3 |
^IB("AD" | UP3+3 |
^IBE(350.1 - [#350.1] | 1+4, 2+4, REL+3 |
^IBE(350.3 - [#350.3] | 2+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | UP2+1*, UP2+2!, UP2+4*, UP2+6!, UP2+9*!, UP3+3* |
>> DFN | REL+4 |
DIE | UP2+1*, UP2+2!, UP2+9*!, UP3+3* |
DIERR | UP1+1~, UP1+6 |
DIK | UP2+4*, UP2+6! |
DR | UP2+1*, UP2+2!, UP2+9*!, UP3+3* |
DT | REL+2 |
DUZ | REL+1 |
>> FDA(350 | UP1+2*, UP1+3*, UP1+4* |
>> I | 1+2*, 1+10*, 2+1*, 2+11*, TRCHK+2, TRCHK+3, TRCHK+4* |
>> IBATYP | 1+4*, 2+4*, REL+3 |
>> IBCHG | REL+5 |
>> IBCRES | UP2+8*, UP2+9 |
>> IBDUZ | 2+8, TRCHK+1 |
IBERR | V+10*, V+11*, 1+2*, UP1+2, UP1+6*, 2+1*, UP2+1, UP2+3*, END+1, END+2! , REL+9*, RELQ! |
>> IBFR | REL+5 |
IBI | UP3+2~, UP3+3* |
IBIL | UP1+3, 2+2*, 2+8, REL+9*, RELQ! |
IBJ | UP3+2~, UP3+3* |
>> IBJOB | REL+15 |
>> IBN | 1+2*, 1+10*, UP1+2, UP1+3, UP1+4, 2+1*, 2+11*, UP2+1, UP2+4, UP2+8 , UP3+3, TRCHK+1 |
>> IBNOS | 1+2, 1+3, 1+10, 2+1, 2+8, 2+11, TRCHK+2*, TRCHK+3* |
IBNOW | 1+1~, 2~, 2+8 |
>> IBPARNT | UP2+8*, UP2+9 |
>> IBSEQNO | V+11, V+12, 1+10, TRCHK+1 |
>> IBSERV | 1+4*, 2+4*, SET+2 |
>> IBSITE | SET+1 |
>> IBTOTL | 1+1*, 1+2*, 1+3, 2*, 2+1*, 2+8 |
IBTRAN | UP1+4, REL+9*, RELQ! |
>> IBWHER | 1+6*, 1+8*, 2+6*, 2+10* |
>> IBY | AR+12, SET+4*, SET+5*, REL+16* |
PRCASV | RELQ! |
PRCASV("APR" | REL+1* |
PRCASV("ARBIL" | SET+5, REL+9 |
PRCASV("ARREC" | SET+4 |
PRCASV("BDT" | REL+2* |
PRCASV("CAT" | REL+3* |
PRCASV("DEBTOR" | REL+4* |
PRCASV("FY" | REL+5* |
PRCASV("OKAY" | REL+8, REL+14 |
PRCASV("SER" | SET+2* |
PRCASV("SITE" | SET+1* |
PRCASV("STATUS" | REL+19* |
>> X | 1+2*, 1+4, 2+1*, 2+2, 2+4, 2+8*, TRCHK+1, TRCHK+4* |
>> Y | 1+7, 2+8, UP2+3, END+1* |
>> ZTQUEUED | ERR |