IBRFN2 ;ALB/AAS - PASS INSURANCE/BEDSECTION DATA TO A/R FOR MCCR/NDB ; 8-OCT-93
Source file <IBRFN2.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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 3 | IBAMTV4 IBCEMU2 IBCOIVM1 |
Accounts Receivable | 1 | RCRJRCOL |
Name | Comments | DBIA/ICR reference |
---|---|---|
CRIT(IBIFN) | ; Pass AR insurance data for MCCR/NDB
; Input: IBIFN -- Internal entry of Bill (ptr to #399) ; (should be same as ptr to 430) |
|
CRITQ | ||
TYPOL(IBIFN) | ; -- compute type of policy for a bill
|
|
TYPOLQ | ||
HOWID(IBIFN) | ; -- compute how policy was identified
|
|
HOWIDQ | ||
BEDSC(IBIFN) | ; -- compute primary bedsection for a bill
; -- based on greatest length of stay |
|
BEDSCQ | ||
POL(IBIFN) | ; -- compute internal policy id for a bill
|
|
POLQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | POL+6 |
^DGCR(399 - [#399] | CRIT+27, TYPOL+4, HOWID+4, BEDSC+5, BEDSC+8, BEDSC+9, BEDSC+10, POL+2, POL+4, POL+5 |
^DGCR(399.1 - [#399.1] | BEDSC+19 |
^DPT - [#2] | TYPOL+4, HOWID+4 |
^IBA(355.3 - [#355.3] | TYPOL+7 |
^IBE(355.1 - [#355.1] | TYPOL+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | POL+1~, POL+5*, POL+6 |
IBBS | BEDSC+2~, BEDSC+10*, BEDSC+11, BEDSC+12 |
IBBS( | BEDSC+12*, BEDSC+17 |
IBCDFN | TYPOL+1~, TYPOL+3*, TYPOL+4, HOWID+1~, HOWID+3*, HOWID+4, POL+1~, POL+2*, POL+3, POL+8* , POLQ |
>> IBCNS | POL+4*, POL+8 |
IBCPOL | TYPOL+1~, TYPOL+4*, TYPOL+5, TYPOL+6, TYPOL+7 |
IBDD | POL+1~, POL+7 |
IBDD( | POL+8 |
IBIFN | CRIT~, CRIT+27, CRIT+30, CRIT+31, CRIT+32, TYPOL~, TYPOL+3, TYPOL+4, HOWID~, HOWID+3 , HOWID+4, BEDSC~, BEDSC+4, BEDSC+5, BEDSC+8, BEDSC+9, BEDSC+10, POL~, POL+2, POL+4 , POL+5 |
IBMAX | BEDSC+2~, BEDSC+16*, BEDSC+17*, BEDSC+19 |
IBRC | BEDSC+2~, BEDSC+8*, BEDSC+9, BEDSC+10 |
IBUN | BEDSC+2~, BEDSC+9*, BEDSC+12 |
IBX | CRIT+22~, CRIT+23*, CRIT+28*, CRIT+30*, CRIT+31*, CRIT+32*, CRITQ, TYPOL+1~, TYPOL+2*, TYPOL+5* , TYPOL+8*, TYPOLQ*, TYPOLQ+1, HOWID+1~, HOWID+2*, HOWID+4*, HOWIDQ*, HOWIDQ+1, BEDSC+2~, BEDSC+3* , BEDSC+5*, BEDSC+19*, BEDSCQ*, BEDSCQ+1 |
TYPE | TYPOL+1~, TYPOL+7*, TYPOL+8 |
X | BEDSC+17*, POL+1~, POL+6*, POL+8* |
Y | POL+1~ |