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 |
