Routine: IBDFPRG

Information

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

Source Information

Source file <IBDFPRG.m>

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

Caller Graph Total: 5

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

Entry Points

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

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

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFPRG

Call Graph Total: 10

Caller Graph Total: 5