IBAECU4 ;WOIFO/SS - LTC PHASE 2 UTILITIES ; 20-FEB-02
Source file <IBAECU4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MKDATE(IBYM,IBD) | ;
|
|
CHNGDATE(DATE,CHNG) | ;
|
|
CLCKADJ(IBCLKADJ,IBCLIEN,IBDFN,IBINPLD,IBEND) | ;
|
|
EXEMPT21(IBCLIEN) | ;
|
|
GETEXPDT(IBDATE) | ;
|
|
CLKSTAMP(IBIENCL,IBDFN1) | ;
|
|
RESET21(IBIENCL,IBDATE,IBDFN1) | ;
|
|
ADDEXDAY(IBIENCL,IBDATE,IBDFN1) | ;
|
|
CHKDSERR(IBIENCL,IBDFN1) | ;
|
|
CLOSECLK(IBIENCL,IBDFN1) | ;
|
|
CANCCLCK(IBIENCL,IBDFN1) | ;
|
|
CHNGEVEN(IBIENCL,IBDFN1,IBDATE) | ;
|
|
CHNGSTAT(IBIENCL,IBDFN1,IBNEWST) | ;
|
|
NEWCLK(IBDFN,IBDT) | ;
|
|
FIX21CLK(IBIEN) | ;
|
|
DELEXDAY(IBIEN,IBN) | ;
|
|
FNDOPEN(DFN) | ; find last open LTC clock for the patient IB*2.0*728
|