Routine: ASU0PURG

Package	Total	Call Graph
Supply	3	(DATE,TIME)^ASUUDATE CLS^ASUUHDG ^ASUUPLOG
VA Fileman	3	(,DD)^%DT ^DIK ^DIR
Kernel	1	$$DTIME^XUP

Package

Total

Call Graph

(DATE,TIME)^ASUUDATE CLS^ASUUHDG ^ASUUPLOG

(,DD)^%DT ^DIK ^DIR

$$DTIME^XUP

Package	Total	Caller Graph
Supply	1	ASUMKBPS

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Warning -if you continue, You will be asked for a range of 'PROCESS DATES' and",!,"Transactions of all types which were PROCESSED BETWEEN THOSE DATES will be DELETED!!" Line Location: ASU0PURG+12
Function Call: WRITE	Prompt: !!,"Beginning date may not be before three years ago",! Line Location: ASU0PURG+17
Function Call: WRITE	Prompt: !!,"Ending date may not be after one year ago",! Line Location: ASU0PURG+20
Routine Call	DIR Line Location: ASU0PURG+15 DOIT+31

FileNo	Call Tags
^ASUH - [#9002036]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("ASUR"	DOIT+18!, DOIT+19, LOG+1

Name	Line Occurrences
DOIT	EN2+3
LOG	DOIT+20, DOIT+23, DOIT+24, DOIT+27, DOIT+28

Name	Field # of Occurrence
%DT	ASU0PURG+18*, ASU0PURG+22!
%DT("A"	ASU0PURG+18, ASU0PURG+21
%DT(0	ASU0PURG+18, ASU0PURG+21
>> ASUA("DELT"	DOIT+7, DOIT+16, DOIT+17, DOIT+22, DOIT+23
>> ASUA("KEPT"	DOIT+7, DOIT+12, DOIT+26, DOIT+27
>> ASUA("PROC"	DOIT+11*
ASUC	DOIT+29!
ASUC("DEL"	DOIT+1, DOIT+17, DOIT+24
ASUC("KEPT"	DOIT+1, DOIT+11, DOIT+28
ASUC("TR"	DOIT+9, DOIT+15, DOIT+16, DOIT+22, DOIT+26, DOIT+29!
>> ASUK("DT"	ASU0PURG+18, ASU0PURG+21, DOIT+19, EN2+1, EN2+2
ASULA	DOIT+29!
>> ASUP("TYP"	DOIT+30, LOG+2
>> ASURX	DOIT+8, DOIT+20, DOIT+23, DOIT+24, DOIT+27, DOIT+28, LOG+1, LOG+2
ASUU	DOIT+29!
ASUU("1ST"	ASU0PURG+19, DOIT+20, EN2+2
ASUU("AC"	DOIT+1*
ASUU("BEGIN"	ASU0PURG+19, DOIT+10, EN2+2
ASUU("DT"	DOIT+7, DOIT+9, DOIT+10, DOIT+11
ASUU("E#"	DOIT+7, DOIT+12, DOIT+16, DOIT+17
ASUU("END"	ASU0PURG+22, DOIT+10, EN2+2
ASUU("LAST"	ASU0PURG+22, DOIT+20, EN2+2
ASUU("NXDT"	DOIT+3, DOIT+4, DOIT+5, DOIT+9
ASUU("NXTRN"	DOIT+4*, DOIT+15
ASUU(1	DOIT+21, DOIT+22, DOIT+23, DOIT+25, DOIT+26, DOIT+27
ASUU(2	DOIT+18, LOG+1
>> DA	DOIT+14, DOIT+15
>> DIK	DOIT+2*, DOIT+3, DOIT+6
DIR	ASU0PURG+13!, ASU0PURG+15!
DIR("A"	ASU0PURG+14*
DIR("B"	ASU0PURG+14*
DIR(0	ASU0PURG+14, DOIT+31
DTIME	ASU0PURG+10*
DUZ	ASU0PURG+10
U	DOIT+19
Y	ASU0PURG+14, ASU0PURG+16, ASU0PURG+19!, ASU0PURG+22!, EN2+2*

Information