IBAECM3 ;WOIFO/SS-LTC PHASE 2 MONTHLY JOB PART 3 ; 20-FEB-02
Source file <IBAECM3.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 | 1 | IBAECN1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
MJ1ST | ;entry for the first Monthly Calculation Process
|
|
PRMONTHS(IBALLM,IBPRMNTH) | ;prepare months
|
|
KILLXTMP | ;
|
|
CHKXTMP(IBDFN,IBYM) | ;check if ^XTMP for the patient and month is exist
|
|
UPDXTMP(IBDFN,IBYM) | ;update XTMP with new info
|
|
DELXTMP(IBDFN) | ;Kills ^XTMP node for the patient.
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBA(351.81 - [#351.81] | MJ1ST+20, MJ1ST+22, MJ1ST+23 |
^IBE(350.9 - [#350.9] | MJ1ST+49* |
^TMP($J | MJ1ST+12!, MJ1ST+13!, MJ1ST+14! |
^XTMP("IBAEC-P176" | KILLXTMP+1!, CHKXTMP+1, UPDXTMP+2*, UPDXTMP+3*, DELXTMP+1! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
IB176TMP | PRMONTHS+2~ |
IB176YM | PRMONTHS+2~, PRMONTHS+3*, PRMONTHS+4, PRMONTHS+5, PRMONTHS+6, PRMONTHS+7, PRMONTHS+8, PRMONTHS+9*, PRMONTHS+10* |
IBALLM | PRMONTHS~, PRMONTHS+1*, PRMONTHS+8* |
IBALLM( | PRMONTHS+6*, PRMONTHS+7*, PRMONTHS+8* |
IBCLKAD1 | MJ1ST+5~, MJ1ST+33* |
IBCLKDAT | MJ1ST+8~, MJ1ST+23*, MJ1ST+25, MJ1ST+28, MJ1ST+31 |
IBCLKIE1 | MJ1ST+7~, MJ1ST+21*, MJ1ST+22*, MJ1ST+23, MJ1ST+40, MJ1ST+41, MJ1ST+42 |
IBDFN | MJ1ST+6~, CHKXTMP~, CHKXTMP+1, UPDXTMP~, UPDXTMP+3, DELXTMP~, DELXTMP+1 |
>> IBDFN1 | MJ1ST+18*, MJ1ST+20*, MJ1ST+22, MJ1ST+37, MJ1ST+40, MJ1ST+41, MJ1ST+42, MJ1ST+43, MJ1ST+44 |
IBDT | UPDXTMP+1~*, UPDXTMP+2 |
>> IBERR | MJ1ST+21* |
IBMDS1 | MJ1ST+1~, MJ1ST+10*, MJ1ST+38*, MJ1ST+39*, MJ1ST+41 |
IBMDS1(0 | MJ1ST+40 |
IBMDS1(1 | MJ1ST+39 |
IBMJ1ST | MJ1ST+3~* |
IBMNS | MJ1ST+6~, MJ1ST+10*, MJ1ST+16 |
IBMNS( | MJ1ST+36, MJ1ST+38 |
IBPRMNTH | MJ1ST+4~*, MJ1ST+16, MJ1ST+31, PRMONTHS~, PRMONTHS+4 |
IBSTRTD | MJ1ST+9~, MJ1ST+11*, MJ1ST+41 |
IBVAR | MJ1ST+6~, MJ1ST+35*, MJ1ST+36*, MJ1ST+37, MJ1ST+38, MJ1ST+43 |
IBYM | CHKXTMP~, CHKXTMP+1, UPDXTMP~, UPDXTMP+3 |
X | PRMONTHS+2~, PRMONTHS+5*, PRMONTHS+6 |