IBAECM3 ;WOIFO/SS-LTC PHASE 2 MONTHLY JOB PART 3 ; 20-FEB-02
Source file <IBAECM3.m>
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.
|