Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Automated Information Collection System 1 MANUAL^IBDFPRG  
VA Fileman 1 ^DIK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Information Collection System 1 IBDFPRG  

Entry Points

Name Comments DBIA/ICR reference
PURGEL(IBLDT) ; --
; -- Purge AICS Error Log older created prior to ibdldt
; Input : ibldt := only purge error created prior to this date
STATQ
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
PURGELQ
DELQ
PURGFTQ
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
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
PURGFDQ
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

External References

Name Field # of Occurrence
^DIK DEL+11
MANUAL^IBDFPRG %+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBD(357.95 - [#357.95] PURGFD+14, PURGFD+16, PURGFD+22
^IBD(357.96 - [#357.96] PURGFD+21, PURGFT+14, PURGFT+16, STATCHK+10, STATCHK+13, STATCHK+16
^IBD(359.2 - [#359.2] PURGFD+23
^IBD(359.3 - [#359.3] PURGEL+8, PURGEL+10, PURGEL+11

Label References

Name Line Occurrences
$$DEL PURGFD+22, PURGFD+23, PURGFT+17, PURGEL+11
$$STATCHK PURGFT+17
DELQ DEL+10
PURGFDQ PURGFD+12
PURGFTQ PURGFT+9, PURGFT+11
STATQ STATCHK+9, STATCHK+10, STATCHK+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DEL~, DEL+10, DEL+13
>> DIK DEL+11*, DEL+13
ENTRY STATCHK~, STATCHK+10, STATCHK+13, STATCHK+16
FILE DEL~, DEL+10, DEL+11
>> IBCNT2 PURGFD+11*, PURGFD+23*
>> IBCNT5 PURGFD+11*, PURGFD+22*
>> IBCNT6 PURGFT+8*, PURGFT+17*
>> IBCNT7 PURGEL+7*, PURGEL+11*
IBHOW PURGFT~, PURGFT+10*, PURGFT+11, PURGFT+17, STATCHK~, STATCHK+8*, STATCHK+9, STATCHK+13
IBI PURGFD+10~, PURGFD+13*, PURGFD+14*, PURGFD+16, PURGFT+7~, PURGFT+13*, PURGFT+14*, PURGFT+16, PURGEL+6~, PURGEL+7*
, PURGEL+8*, PURGEL+10
IBJ PURGFD+10~, PURGFD+15*, PURGFD+16*, PURGFD+21, PURGFD+22, PURGFD+23, PURGFT+7~, PURGFT+15*, PURGFT+16*, PURGFT+17
, PURGEL+6~, PURGEL+9*, PURGEL+10*, PURGEL+11
IBLDT PURGFD~, PURGFD+12, PURGFD+14, PURGFT~, PURGFT+9, PURGFT+14, PURGEL~, PURGEL+8
IBSTAT PURGFD+10~, PURGFT+7~
OKAY STATCHK+6~, STATCHK+7*, STATCHK+13*, STATCHK+17*, STATQ
STATUS STATCHK+6~, STATCHK+16*, STATCHK+17
SUCCESS DEL+8~, DEL+9*, DEL+12*, DELQ
X PURGFD+10~, PURGFD+22*, PURGFD+23*, PURGFT+7~, PURGFT+17*, PURGEL+11*
Y PURGFD+10~, PURGFT+7~
>> ZTQUEUED DEL+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All