Routine: DIARU

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC ^DIE ^DIK Y^DIQ

Package	Total	Caller Graph
VA Fileman	6	DIAR DIARA DIARB DIAX DIAXU DIO4

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	UPDATE+1, MRK+1
^DIC	FILE+2
^DIE	UPDATE+9, MRK+1
^DIK	FILE+12
Y^DIQ	ER1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"No selection template used for this ARCHIVING ACTIVITY--CANCEL it!" Line Location: FILE+5
Function Call: WRITE	Prompt: !!,$C(7),"This data has already been moved to the destination file!",!,"PURGE data or CANCEL this extract activity." Line Location: FILE+8
Function Call: WRITE	Prompt: $C(7),!!!,"The following Archival Activity is in progress--no access allowed!",! Line Location: ER1+0
Function Call: WRITE	Prompt: Y_" STARTED: " Line Location: ER1+1
Function Call: WRITE	Prompt: Y_" BY: " Line Location: ER1+1
Function Call: WRITE	Prompt: $P(^(0),U,1) Condition for execution: $S($D(^VA(200,+$P(DIARX,U,16),0)):1,1:$D(^DIC(3,+$P(DIARX,U,16),0))) Line Location: ER1+1
Function Call: WRITE	Prompt: ! Line Location: ER1+1
Function Call: WRITE	Prompt: !!,$C(7),"Data has already been moved to the destination file.",!,"List cannot be edited." Line Location: ER2+0
Function Call: WRITE	Prompt: !!,$C(7),"This data has already been archived to "_$S(DIARST=4:"temporary",1:"permanent")_" storage" Line Location: ER2+1
Function Call: WRITE	Prompt: " and purged" Condition for execution: DIARST>5 Line Location: ER2+1
Function Call: WRITE	Prompt: ".",! Line Location: ER2+1
Function Call: WRITE	Prompt: "List cannot be edited after data has been archived!" Condition for execution: DIAR=2 Line Location: ER2+1
Function Call: WRITE	Prompt: !!,$C(7),"Cannot write to permanent storage until data has been written",!,"to temporary storage!!" Line Location: ER3+0
Function Call: WRITE	Prompt: !!,$C(7),$S(DIARST>6:"Data ALREADY purged",$D(DIAX):"Data has NOT YET been moved to the destination file",1:"Data has NOT YET been archived to PERMANENT storage"),"!",! Line Location: ER4+0
Function Call: WRITE	Prompt: !!,$C(7),"Cannot cancel archiving record after archiving has been complete--this now",!,"acts as your history!!" Line Location: ER5+0
Function Call: WRITE	Prompt: !!,$C(7),"Source File is missing!",!,"I AM DELETING THIS ",$S($D(DIAX):"EXTRACT",1:"ARCHIVING")," ACTIVITY!" Line Location: ER6+0
Function Call: WRITE	Prompt: !!,$C(7),"Just a reminder--you have already archived these records to permanent storage.",!,"You probably won't want to save the sequential storage media since you",!,"are cancelling this archiving activity!!",! Line Location: MSG+0
Routine Call	DIE Line Location: UPDATE+9 MRK+1
Routine Call	DIC Line Location: FILE+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ER1+1
^DD(1.11	ER1+1
^DIAR(1.11 - [#1.11]	FILE+11
^DIC - [#1]	FILE+12
^DIC(3 - [#3]	ER1+1
^VA(200 - [#200]	UPDATE+4, UPDATE+6, UPDATE+8, ER1+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	UPDATE+5, MRK+1
>> C	ER1+1*
>> DA	UPDATE+1, UPDATE+9, FILE+12, MRK+1
>> DIAR	UPDATE+1, UPDATE+2, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+8, FILE+5, FILE+6, FILE+7, FILE+8 , FILE+9, FILE+10, FILE+12, MRK+1, ER2+1
DIARC	UPDATE+1, UPDATE+9, FILE+4*, FILE+5!, FILE+6!, FILE+7!, FILE+8!, FILE+9!, FILE+10!, FILE+12! , MRK+1
>> DIARF	FILE+4*, FILE+11, FILE+12
>> DIARF2	FILE+11*
>> DIARP	FILE+4*
>> DIARST	FILE+4*, FILE+6, FILE+7, FILE+8, FILE+9, FILE+10, ER2+1, ER4
>> DIARU	FILE+4*, FILE+5
>> DIARX	FILE+12, ER1+1
>> DIAX	FILE+1, FILE+4, FILE+9, ER2, ER4, ER6
>> DIAXFNO	FILE+4*
DIC	FILE+1!, FILE+12
DIC("A"	FILE+1*
DIC("S"	FILE+1*
DIC(0	FILE+1*
DIE	UPDATE+1~, MRK+1
DIK	FILE+12*!
>> DJ	UPDATE+4
>> DR	UPDATE+9, MRK+1
DT	UPDATE+4, UPDATE+6, UPDATE+8
>> DTOUT	FILE+2
>> DUOUT	FILE+2
DUZ	UPDATE+4, UPDATE+6, UPDATE+8, MRK+1
>> DV	UPDATE+9*
U	FILE+3, FILE+4, ER1+1
>> X	UPDATE+1, UPDATE+2, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+8*, UPDATE+9
>> Y	FILE+2, FILE+4, FILE+11, ER1+1*
>> Y(0	FILE+3, FILE+4, FILE+12*, ER1+1

Customize PDF page

Package: VA Fileman

Routine: DIARU

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ER4
ER5
ER6
ER1
ER2
ER3
UPDATE	;UPDATE ARCHIVING FILE (DJ=#ITEMS SELECTED) called w/in DIO4
FILE	;LOOKUP ARCHIVING ACTIVITY
MRK	;SET FIELDS TO LOCK OUT OTHER USERS DURING ARCHIVING ACTIVITY
MSG

Name	Line Occurrences
ER1	FILE+3
ER2	FILE+6
ER3	FILE+7
ER4	FILE+9
ER5	FILE+10
ER6	FILE+12
MRK	FILE+12
MSG	FILE+10