Routine: DGPTAPP

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

DGPTAPP ;MTC/ALB - PTF Purge Utilities; 10-14-92

Source Information

Source file <DGPTAPP.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Registration	2	PURGE^DGPTAPP1 TMPINT^DGPTLMU2
VA FileMan	2	^DIE ^DIR
List Manager	1	SEL^VALM2

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Kernel	1	^ORD(101
Registration	1	DGPT A/P PURGE

Entry Points

Name	Comments	DBIA/ICR reference
PUR	;-- entry point from protocol 'DGPT A/P PURGE'
PURQ
PUREX	;-- exit point from protocol 'DGPT A/P PURGE'
ADDPUR(TEMP)	;-- This function will add PURGE date, user and status
ADDPURQ
WARNING()	; This function will display a warning to the user before the ; purge of the data will occur. A '1' will be returned if the purge ; should continue. ; OUTPUT : 1 - DO NOT CONTINUE ; 0 - OK

External References

Name	Field # of Occurrence
PURGE^DGPTAPP1	PUR+13
TMPINT^DGPTLMU2	PUREX+1
^DIE	ADDPUR+8
^DIR	WARNING+6
SEL^VALM2	PUR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,">>> Data Must be Archived before Purge..." Line Location: PUR+7
Function Call: WRITE	Prompt: !,*7,">>> Data Already Purged..." Line Location: PUR+9
Function Call: WRITE	Prompt: !,">>> Adding Purge data to PTF Archive/Purge History entry." Line Location: ADDPUR+5
Function Call: WRITE	Prompt: !," Deleting Archive Data..." Line Location: ADDPUR+6
Function Call: WRITE	Prompt: !,*7,"This option will permanently purge data from the Data Base." Line Location: WARNING+5
Routine Call	DIE Line Location: ADDPUR+8
Routine Call	DIR Line Location: WARNING+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGP(45.62 - [#45.62]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGP(45.62 - [#45.62]	PUR+7, PUR+9, ADDPUR+4
^TMP("ARCPTF"	PUR+5

Label References

Name	Line Occurrences
$$WARNING	PUR+12
ADDPUR	PUR+15
ADDPURQ	ADDPUR+4
PURQ	PUR+4, PUR+7, PUR+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	ADDPUR+7*, ADDPUR+9!
DGTMP	PUR+1~, PUR+5*, PUR+7, PUR+9, PUR+13, PUR+15
DIE	ADDPUR+7*, ADDPUR+9!
DIR	WARNING+6!
DIR("A"	WARNING+6*
DIR("B"	WARNING+6*
DIR(0	WARNING+6*
DR	ADDPUR+7*, ADDPUR+9!
TEMP	ADDPUR~, ADDPUR+4, ADDPUR+7
U	PUR+7, PUR+9
>> VALMBCK	PUREX+2*
>> VALMY	PUR+4
>> VALMY(0	PUR+5
>> Y	WARNING+7