IBDFPRG1 ;ALB/AAS - AICS PURGE UTILITY ; 4-OCT-95
Source file <IBDFPRG1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PURGFD(IBLDT) | ; -- Procedure
; -- purge entires in Form Definition file marked for deletion ; that were marked before ibldt and no incomplete entries in ; form tracking exist |
|
PURGFDQ | ||
PURGFT(IBLDT,IBHOW) | ; -- Procedure
; -- purge entries from form tracking file (357.96) ; Input : ibldt := only purge records with an appointment ; date older than this date ; ibhow := 0=no records, 1=complete, 2=all ; Output: ibcnt6 := number of entries in 357.96 deleted |
|
PURGFTQ | ||
PURGEL(IBLDT) | ; --
; -- Purge AICS Error Log older created prior to ibdldt ; Input : ibldt := only purge error created prior to this date |
|
PURGELQ | ||
STATCHK(ENTRY,IBHOW) | ; -- Function
; -- determine if entry in 357.96 can be deleted ; Input : Entry := internal number of entry in 357.96 ; ibhow := 0,1,2, to delete none, complete, or all ; Output: Okay := 1=okay to delete, 0=not okay |
|
STATQ | ||
DEL(FILE,DA) | ; -- Function
; -- delete one entry ; Input : File := internal file number of file or global root ; da := internal number of entry, If more than DA ; needs to be defined then pass da array by ; reference ; Output: 1 := succeded, 0 := failed |
|
DELQ |