IBAECN1 ;WOIFO/SS-LTC PHASE 2 NIGHTLY JOB ; 20-FEB-02
Source file <IBAECN1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BILDATE() | ;billing start date for Long Term Care Billing
; Means Test for LTC care billing stopped on JUNE 17,2002 /see ; STDATE^IBAECU1()/ . LTC billing for LTC care must start on ; JULY 26,2002. There is no billing for LTC care in period ; between JUNE 17,2002 and JULY 26,2002. That means LTC clock ; will start on JULY 5,2002 (because of 21 "free" days) |
|
| NJ | ;LTC Nightly job
|
|
| ERR | ;Error trap for NJ
|
|
| ISLTCADM(IBDFN,IB405) | ;
|
|
| FIND350(IBDFN,IBDATE,IBADM,IBSTAT) | ;
|
|
| STAT350(IBIENCL,IBLSTDT,IBADM) | ;
|
|
| CREV350(DFN,IBADMIEN,IBEVDT,IBNH) | ;
|
|
| ORIGADM(IBA) | ;
|
|
| LASTTS(IBDFN,IB405ADM) | ;
|
|
| TODAY() | ;
|
|
| YESTRDAY() | ;
|
|
| ASIHORG(DFN,IBEVDA,IBDT) | ;
|
|
| ISLTC4DT(IBDFN,IB405ADM,IBDT) | ;
|
|
| RESET | ; this will reset the ^xtmp global
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
