Routine: DIAR

Package	Total	Call Graph
VA Fileman	14	(ENTC,ENTD,OUT,UNLK)^DIARA (ENTE,Q)^DIARB NEW^DIARCALC ^DIARR (FILE,MRK,UPDATE)^DIARU (,OUT)^DIARX ^DIC (DIAR,SUB)^DICRW ^DIE EN^DIFGO Q^DII (,IXALL)^DIK ^DIR EN^DIS
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
VA Fileman	2	DIAX DII1

Entry Points

Name	Comments	DBIA/ICR reference
62
63
64
65	;
1	;;SELECT ENTRIES TO ARCHIVE
3	;;PRINT SELECTED ENTRIES
2	;;ADD/DELETE SELECTED ENTRIES
5	;;WRITE ENTRIES TO TEMPORARY STORAGE
4	;;CREATE FILEGRAM ARCHIVING TEMPLATE
7	;;PURGE STORED ENTRIES
6	;;MOVE ARCHIVED DATA TO PERMANENT STORAGE
9	;;FIND ARCHIVED ENTRIES
8	;;CANCEL ARCHIVAL SELECTION
C
D
CHK	;IS THERE A VALID SEARCH ?
AL	; archive device label
O
T1
Q
GO
NOKL

External References

Name	Field # of Occurrence
^%ZIS	6+4, 6+8
HOME^%ZIS	6+15
^%ZTLOAD	6+15
ENTC^DIARA	8+1
ENTD^DIARA	D
OUT^DIARA	3+1, 5+1
UNLK^DIARA	65+1
ENTE^DIARB	2+1
Q^DIARB	Q
NEW^DIARCALC	O+1
^DIARR	9+3
FILE^DIARU	6+1
MRK^DIARU	O+3
UPDATE^DIARU	62+4
^DIARX	62
OUT^DIARX	62+4
^DIC	9+1, GO
DIAR^DICRW	1+1
SUB^DICRW	1+7
^DIE	AL+4
EN^DIFGO	4+1
Q^DII	GO+2
^DIK	T1+1
IXALL^DIK	NOKL+3
^DIR	63+1, AL+3
EN^DIS	T1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"IF YOU PLAN TO ARCHIVE DATA ONLY FROM ONE SUB-FILE" Line Location: 1+5
Function Call: WRITE	Prompt: !,"PLEASE IDENTIFY IT HERE. OTHERWISE, JUST PRESS RETURN.",! Line Location: 1+6
Function Call: WRITE	Prompt: !!,"There is already an outstanding "_$S(+$P(Y(0),U,17):"extract",1:"archiving")_" activity.",!,"Please finish it or CANCEL it.",$C(7),!! Line Location: O+2
Function Call: WRITE	Prompt: $C(7),!!,"NO RECORDS WERE SELECTED TO BE "_$S($D(DIAX):"EXTRACTED",1:"ARCHIVED")_"!!",!,"I AM DELETING THIS ARCHIVING ACTIVITY RECORD!!" Line Location: T1+1
Function Call: WRITE	Prompt: !!,"NOTE: This option will 1) print an archive activity report to specified",!,"PRINTER DEVICE and 2) will move archive data to permanent storage to specified",!,"ARCHIVE STORAGE DEVICE." Line Location: 6+2
Function Call: WRITE	Prompt: !!,"Select some type of SEQUENTIAL media, such as SDP, TAPE, or DISK FILE (HFS),",!,"for archival storage.",! Line Location: 6+3
Function Call: WRITE	Prompt: !,$C(7),"SINCE YOU SELECTED QUEUEING, YOU SHOULD SELECT A PRINTER DEVICE",!,"OTHER THAN YOUR TERMINAL!",! Line Location: 6+10
Function Call: WRITE	Prompt: !,$C(7),"SINCE YOU SELECTED QUEUEING, REPORT WILL BE QUEUED ALSO!",! Line Location: 6+13
Function Call: WRITE	Prompt: DIARLINE,! Line Location: 62+2
Function Call: WRITE	Prompt: "#$#",! Line Location: 62+3
Function Call: WRITE	Prompt: !,$C(7),"The ARCHIVE STORAGE device selected does not look like a SEQUENTIAL",!,"storage medium.",! Line Location: 63+0
Function Call: WRITE	Prompt: !,"OK.",! Line Location: 63+2
Function Call: WRITE	Prompt: !,$C(7),"YOU NEED KERNEL TO RUN THIS OPTION" Line Location: 9+1
Function Call: WRITE	Prompt: !,$C(7),"YOU NEED KERNEL V7.1 TO RUN THIS OPTION" Line Location: 9+2
Function Call: WRITE	Prompt: ! Line Location: GO+0
Function Call: WRITE	Prompt: ! Line Location: GO+2
Routine Call	%ZIS Line Location: 6+15
Routine Call	DIE Line Location: AL+4
Routine Call	DIC Line Location: 9+1 GO
Routine Call	DIR Line Location: 63+1 AL+3
Routine Call	%ZIS Line Location: 6+4 6+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	64
^DD(	1+4, 1+8
^DIAR(1.11 - [#1.11]	T1+1, C, C+1, 62+2
^DIC(9.4 - [#9.4]	9+2
^DOPT("DIAR"	NOKL, NOKL+2*

Label References

Name	Line Occurrences
63	6+9
64	6+9, 6+11, 62+4
65	6+4, 6+8, 6+9, 6+10, 6+11
@(	GO+1
AL	6+11
C	C+1
CHK	O
GO	NOKL
NOKL	DIAR+3, GO+1
O	1+3, 1+4, 1+7
Q	1+1, 1+7, O+1, O+2, T1+2, 6+1, 6+12, 62+5
T1	O+1

Naked Globals

Name	Field # of Occurrence
^(	62+2
^("B"	NOKL+1!
^("UP"	1+8
^(0	C+1, 62+2, NOKL+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	1+1*
>> %ZIS	6+4, 6+8
>> %ZIS("A"	6+4, 6+8
>> %ZIS("B"	6+4, 6+8
>> D	1+8*
DA	T1+1, AL+1!, AL+4
>> DI	4+1*
>> DIA	1+7, 1+8*
>> DIAR	1+1, 2+1, 3+1, 4+1, 5+1, 6+1, D, 8+1
DIARC	O+1, T1+1, CHK+1!, C+2*, 6+1, 62+2, AL+2, AL+4
>> DIARF	1+1, 1+4, 1+7, CHK+1
>> DIARF0	1+8*, T1
>> DIARF1	T1*
>> DIARL	62+1*, 62+2
>> DIARLINE	62+2*
>> DIARP	C+2*
>> DIARPDEV	6+4, 6+5, 6+6*
>> DIARQUED	6+7, 6+13
>> DIART	1+1*, T1
>> DIARTRM	6+4*, 6+10, 6+13
>> DIARU	C+2*
>> DIARX	6+6*
>> DIARXXX	AL+2, AL+3, AL+4
>> DIAX	T1+1
DIC	T1, C+2, 9+1!, GO!
DIC("S"	9+1*
DIC(0	9+1, GO
>> DIE	AL+4*
DIK	T1+1, NOKL, GO!
DIR	63+1!, AL+1!
DIR("A"	63+1*
DIR("B"	63+1, AL+3
DIR(0	63+1, AL+3
>> DIRUT	6+9, 6+11
>> DR	AL+4*
DT	AL+2
>> DTOUT	1+7, 6+11, AL+3
>> DUOUT	1+7, AL+3
>> I	O, CHK+1, C, C+1, C+2, 62+2, NOKL+2*
IO	6+4, 62+2, AL+2
IO("Q"	6+7, 6+10, 6+12
IO(0	6+4, 6+10, 6+13, 63, 63+2, AL+1
ION	6+4
IOST	6+5
>> IOT	6+9, AL+2
>> L	T1*
>> POP	6+4, 6+8
U	1+1, O+2, T1+1, C+1, C+2
X	9+1!, AL+4, GO+1
Y	1+1, CHK+1, C, 6+9, 63+2, 9+1, 9+2, GO+1!
Y(0	O+2, CHK+1!, C, C+1, C+2
>> ZTDESC	6+14*
>> ZTRTN	6+14*
>> ZTSAVE("DIAR"	6+14*
>> ZTSAVE("DIARC"	6+14*
>> ZTSAVE("DIARPDEV"	6+14*
>> ZTSAVE("DIARQUED"	6+14*

Marked Items

Name	Field # of Occurrence
$T(@I	NOKL+2

Customize PDF page

Package: VA Fileman

Routine: DIAR

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items