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,715,630**;21-MAR-94;Build 39
|
|
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
|
|
UP4(IBN,IBIL) | ; update field 350/.11 and "ABIL" xref IB*2.0*715
|
|
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, 1+15, 2+1, 2+8, UP2+9, UP3+3, UP4+7, UP4+9 |
^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+2*, UP2+3!, UP2+5*, UP2+7!, UP2+10*!, UP3+3* |
>> DFN | 1+19, REL+4 |
DIE | UP2+2*, UP2+3!, UP2+10*!, UP3+3* |
DIERR | UP1+1~, UP1+6 |
DIK | UP2+5*, UP2+7! |
DR | UP2+2*, UP2+3!, UP2+10*!, UP3+3* |
DT | REL+2 |
DUZ | REL+1 |
FDA | UP1+1~, UP4+5~ |
FDA(350 | UP1+2*, UP1+3*, UP1+4*, UP4+6* |
>> I | 1+2*, 1+13*, 1+22*, 2+1*, 2+11*, TRCHK+2, TRCHK+3, TRCHK+4* |
IBAT | 1+11~, 1+15*, 1+17 |
>> IBATYP | 1+4*, 2+4*, REL+3 |
>> IBCHG | REL+5 |
IBCRES | UP2+1~, UP2+9*, UP2+10 |
>> IBDUZ | 2+8, TRCHK+1 |
IBERR | V+10*, V+11*, 1+2*, UP1+2, UP1+6*, 2+1*, UP2+2, UP2+4*, END+1, END+2! , REL+8*, RELQ! |
IBEXCOPAY | 1+11~, 1+12*, 1+19* |
>> IBFR | REL+5 |
IBI | UP3+2~, UP3+3* |
IBIL | UP1+3, 2+2*, 2+8, UP4~, UP4+6, REL+8*, RELQ! |
IBJ | UP3+2~, UP3+3* |
>> IBJOB | REL+11 |
IBN | 1+1~, 1+2*, 1+13*, 1+15, 1+19, 1+22*, UP1+2, UP1+3, UP1+4, 2+1* , 2+11*, UP2+2, UP2+5, UP2+9, UP3+3, UP4~, UP4+6, UP4+7, UP4+9, TRCHK+1 , REL+8 |
>> IBNOS | 1+2, 1+3, 1+13, 1+22, 2+1, 2+8, 2+11, TRCHK+2*, TRCHK+3* |
IBNOW | 1+1~, 2~, 2+8 |
IBPARNT | UP2+1~, UP2+9*, UP2+10 |
>> IBSEQNO | V+11, V+12, 1+22, 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+8*, RELQ! |
>> IBWHER | 1+6*, 1+8*, 2+6*, 2+10* |
>> IBY | AR+12, SET+4*, SET+5*, REL+12* |
PRCASV | RELQ! |
PRCASV("APR" | REL+1* |
PRCASV("ARBIL" | SET+5, REL+8 |
PRCASV("ARREC" | SET+4 |
PRCASV("BDT" | REL+2* |
PRCASV("CAT" | REL+3* |
PRCASV("DEBTOR" | REL+4* |
PRCASV("FY" | REL+5* |
PRCASV("IBTRAN" | REL+8 |
PRCASV("OKAY" | REL+8, REL+10 |
PRCASV("SER" | SET+2* |
PRCASV("SITE" | SET+1* |
PRCASV("STATUS" | REL+15* |
U | 1+15 |
>> X | 1+2*, 1+4, 2+1*, 2+2, 2+4, 2+8*, TRCHK+1, TRCHK+4* |
>> Y | 1+7, 2+8, UP2+4, END+1* |
>> ZTQUEUED | ERR |