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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBDFPRG

Package: Automated Information Collection System

Routine: IBDFPRG


Information

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

Source Information

Source file <IBDFPRG.m>

Entry Points

Name Comments DBIA/ICR reference
MANUAL ; -- Option to purge records, ask input
DQ ; -- entry point from manual task
EXIT ; -- exit for all modes
AUTO ; -- Background option to automatically purge records
AUTOQ
ADD() ; -- add new entry to purge log
ADDQ
EDIT ; -- update entry after running
OUTPUT ; -- output results of purge
ASK ; -- ask what to purge
; Output : ibpurge("ft") := 1=yes purge form tracking, 0=no
; ibpurge("fd") := 1=yes purge form definition, 0=no
ASKN ; -- ask number of days to retain
; Output : IBDAYS := number of days to retain
ASKH ; -- ask how to purge
; Output : IBHOW := 0=none, 1=complete, 2=all
SEND ; -- send mail message to group if defined

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled")
  • Line Location: MANUAL+9
Function Call: WRITE
  • Prompt: !,IBD(X)
  • Line Location: OUTPUT+11
Function Call: WRITE
  • Prompt: !!!,"Do you want to purge Form Tracking?"
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !!,"Do you want to purge Form Definitions and Form Specifications?"
  • Line Location: ASK+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(3.8 - [#3.8] GET1^DIQ
^IBD(357.08 - [#357.08] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call