Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: IBDFPRG1

Package: Automated Information Collection System

Routine: IBDFPRG1


Information

IBDFPRG1 ;ALB/AAS - AICS PURGE UTILITY ; 4-OCT-95

Source Information

Source file <IBDFPRG1.m>

Entry Points

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
Info |  Source |  Entry Points