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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 FILE^DICN  DT^DICRW  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 HOME^%ZIS  ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
Automated Information Collection System 1 (PURGEL,PURGFD,PURGFT)^IBDFPRG1  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Automated Information Collection System 3 IBDF AUTO PURGE FORM TRACKING  IBDF MANUAL PURGE FORM TRACK  IBDFPRG1  

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

External References

Name Field # of Occurrence
HOME^%ZIS MANUAL+9
^%ZTLOAD MANUAL+8
FILE^DICN ADD+3
DT^DICRW MANUAL+2, AUTO+2
^DIE EDIT+5
$$GET1^DIQ SEND+4
^DIR ASK+10, ASK+18, ASKN+9, ASKH+9
PURGEL^IBDFPRG1 DQ+2, AUTO+20
PURGFD^IBDFPRG1 DQ+3, AUTO+17
PURGFT^IBDFPRG1 DQ+2, AUTO+13
$$FMADD^XLFDT MANUAL+7, AUTO+9
$$FMTE^XLFDT OUTPUT+4
$$NOW^XLFDT ADD+3
^XMD SEND+8

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
Routine Call
  • %ZIS
  • Line Location:
    • MANUAL+9
Routine Call
  • DIE
  • Line Location:
    • EDIT+5
Routine Call
  • DIR
  • Line Location:
    • ASK+10
    • ASK+18
    • ASKN+9
    • ASKH+9

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBD(357.08 - [#357.08] ADD+3, EDIT+2
^IBD(357.09 - [#357.09] AUTO+5, AUTO+6, AUTO+9, AUTO+13, ASKN+7, ASKH+7, SEND+4
^XMB("NETNAME" SEND+7

Label References

Name Line Occurrences
$$ADD DQ+1, AUTO+10
ASK MANUAL+5
ASKH ASK+23
ASKN ASK+23
AUTOQ AUTO+5
EDIT OUTPUT+9
EXIT DQ+5, AUTO+23
OUTPUT DQ+4, AUTO+22
SEND OUTPUT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D MANUAL+1~, AUTO+1~
D0 MANUAL+1~, AUTO+1~
DA MANUAL+1~, AUTO+1~, EDIT+1~, EDIT+3*
DIC ADD+1~, ADD+3*, EDIT+1~
DIC(0 ADD+3*
DIE EDIT+1~, EDIT+3*
DIR MANUAL+1~, ASK+4~, ASK+14!, ASKN+3~, ASKH+3~
DIR("?" ASK+8*, ASK+16*, ASKN+8*, ASKH+8*
DIR("A" ASKN+6*, ASKH+6*
DIR("B" ASKN+7*, ASKH+7*
DIR(0 ASK+7*, ASK+15*, ASKN+5*, ASKH+5*
DIRUT MANUAL+1~, ASK+11, ASK+19, ASKN+10, ASKH+10
DLAYGO ADD+1~, ADD+3*
DR EDIT+1~, EDIT+4*
DT MANUAL+2, MANUAL+7, AUTO+2, AUTO+9
DUOUT MANUAL+1~
IBCNT2 MANUAL+1~, AUTO+1~, EDIT+4, OUTPUT+7
IBCNT5 MANUAL+1~, AUTO+1~, EDIT+4, OUTPUT+6
IBCNT6 MANUAL+1~, AUTO+1~, EDIT+4, OUTPUT+5
IBCNT7 MANUAL+1~, AUTO+1~, EDIT+4, OUTPUT+8
IBD MANUAL+1~, AUTO+1~
IBD( OUTPUT+11
IBD(1 OUTPUT+2*
IBD(2 OUTPUT+3*
IBD(3 OUTPUT+4*
IBD(4 OUTPUT+5*
IBD(5 OUTPUT+6*
IBD(6 OUTPUT+7*
IBD(7 OUTPUT+8*
IBDAYS MANUAL+1~, MANUAL+7, ASKN+4*, ASKN+11*
IBDGRP SEND+1~, SEND+4*, SEND+6, SEND+7
IBHOW MANUAL+1~, DQ+2, AUTO+1~, AUTO+6*, EDIT+4, OUTPUT+3, ASKH+4*, ASKH+11*
IBLDT MANUAL+1~, MANUAL+7*, DQ+2, DQ+3, AUTO+1~, AUTO+9*, AUTO+13, AUTO+17, AUTO+20, EDIT+4
, OUTPUT+4
IBLOG MANUAL+1~, DQ+1*, AUTO+1~, AUTO+10*, EDIT+2, EDIT+3
IBPURGE MANUAL+1~
IBPURGE("FD" DQ+3, ASK+5*, ASK+20*, ASK+23, ASK+24
IBPURGE("FT" DQ+2, ASK+5*, ASK+12*, ASK+23, ASK+24
IBQUIT MANUAL+1~, MANUAL+4*, MANUAL+6, MANUAL+9*, ASK+11*, ASK+19*, ASK+24*, ASKN+10*, ASKH+10*
X MANUAL+1~, AUTO+1~, ADD+3*, EDIT+1~, OUTPUT+11*
XMDUZ SEND+1~, SEND+2*
>> XMN SEND+3*
XMSUB SEND+1~, SEND+2*
XMTEXT SEND+1~, SEND+2*
XMY SEND+1~, SEND+3!
XMY("G." SEND+7*
XMZ SEND+1~
Y MANUAL+1~, AUTO+1~, ADD+2*, ADDQ, EDIT+1~, ASK+12, ASK+20, ASKN+11, ASKH+11
>> ZTDESC MANUAL+8*
>> ZTIO MANUAL+8*
>> ZTQUEUED EXIT+1, OUTPUT+11
>> ZTREQ EXIT+1*
>> ZTRTN MANUAL+8*
>> ZTSAVE("IB*" MANUAL+8*
ZTSK MANUAL+1~, MANUAL+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All