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 |
| 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 |