IBAECC ;LL/ELZ - LONG TERM CARE CLOCK MAINTANCE ; 05-FEB-02
Source file <IBAECC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
OPT | ; menu option main entry point
|
|
OPTA | ||
OPTB(DFN,IBOPCL,IBOEDT,IBDEFDT) | ; close existing clock and open the new one, also called from IB CANCEL IB*2.0*728
|
|
EX | ;
|
|
ASKYN() | ; "do you still wish to continue" prompt IB*2.0*728
|
|
ASKCONT | ; "press any key to continue" prompt IB*2.0*728
|
|
ASKSTDT(DEF) | ; prompt for start date IB*2.0*728
|
|
ASKCRU(UFLG) | ; prompt for create new / update existing clock IB*2.0*728
|
|
DISPLAY | ; display clock information
; Temporary |
|
EDIT | ; edit either start date or free days
|
|
AGAINE | ||
START | ; edit the start date
|
|
FREE | ; change the free days
|
|
AGAINF | ;
|
|
AFREE | ; add free days
|
|
AFREEA | ||
EFREE | ; edit a free day IBFREEX
|
|
DFREE | ; delete a free day
|
|
SCREEN(DFN) | ; screen out non-LTC patients
|
|
ALREADY | ; checks to see if the free day is already there
|
|
DATE(IBB) | ; prompts for date selection (IBB is default)
|
|
BADDT | ; checks out IBDT to make sure it is a valid date based upon start date
|
|
LASTED | ; update last edited by and date fields
|
|
YR(IBCLDT,IBFR) | ; is the effective date of the clock too old?
; Input: IBCLDT -- New Clock Effective Date ; IBFR -- Event Date ; Output: 1 -- Effective Date is too old ; 0 -- Not |
|
REINDEX | ; this will take a clock and re-index the free days in order
; assumes IBLTCX |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^IBA(351.81 - [#351.81] | Classic Fileman Calls, GET1^DIQ |