Routine: DIARR

Package	Total	Call Graph
VA Fileman	7	^DIARR1 ^DIARR2 ^DIARR3 ^DIARR5 ^DIARR6 DT^DICRW ^DIR
Kernel	2	(,$$REWIND,HOME)^%ZIS ^%ZISC

Package	Total	Caller Graph
VA Fileman	1	DIAR

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	SEQDEV
$$REWIND^%ZIS	RC3+1
HOME^%ZIS	INIT+1
^%ZISC	SEQDEV+1, SEQDEV+2, RC, EOJ
^DIARR1	FILE+4
^DIARR2	FILE+5
^DIARR3	FILE+6
^DIARR5	FILE+7
^DIARR6	RC+1
DT^DICRW	INIT+2
^DIR	FILE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will scan your archived file and will attempt to retrieve entries" Line Location: START+0
Function Call: WRITE	Prompt: !,"that match the name (.01) field and",!,"either Primary KEY or identifier field(s) of the archived file." Line Location: START+1
Function Call: WRITE	Prompt: !!,"Magnetic tapes should be opened with variable length records." Line Location: START+2
Function Call: READ	Timeout: DIARL]""""&($A(DIARL)'=13) Variable: DIARL Q Line Location: INIT+0
Function Call: WRITE	Prompt: !,$C(7),"This has to be a sequential device." Line Location: SEQDEV+1
Function Call: WRITE	Prompt: !,$C(7),"Open this device with variable length records." Line Location: SEQDEV+2
Function Call: WRITE	Prompt: !,$C(7),"Archive information is not in filegram format" Line Location: RC+0
Function Call: WRITE	Prompt: !!,"Sampling archived file...",! Line Location: RC+2
Function Call: WRITE	Prompt: !,"You are reading archived information from the "_DIARFILE_" file." Line Location: FILE+0
Routine Call	%ZIS Line Location: RC3+1
Routine Call	DIR Line Location: FILE+2
Routine Call	%ZIS Line Location: SEQDEV
Routine Call	%ZIS Line Location: INIT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DIAR"	INIT+3!, EOJ+3!
^TMP("DIARHLP"	RC2+3, RC2+4, ID+1*, EOJ+7!
^TMP("DIARO"	EOJ+5!

Label References

Name	Line Occurrences
EOJ	SEQDEV, FILE+2, FILE+4, FILE+8
ID	RC2+2
RC1	RC2+2
RC2	RC2+6
RC3	RC+1
SEQDEV	SEQDEV+1, SEQDEV+2, RC

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%MT	EOJ+1!
>> %ZIS("A"	SEQDEV*
>> %ZIS("HFSMODE"	SEQDEV*
DIAR01	RC2+3, RC2+4, RC3, EOJ+1!
DIARA	EOJ+2!
DIARCNT	EOJ+6!
DIARCTR	EOJ+6!
DIAREOF	INIT+4*, EOJ+2!
DIARF2	EOJ+2!
DIARFGEN	INIT+4*, EOJ+2!
DIARFGL	EOJ+2!
DIARFILE	RC2*, FILE, EOJ+1!
DIARFLD	EOJ+6!
DIARFLGT	EOJ+6!
DIARFN	RC2*, RC2+2, EOJ+1!
DIARFN1	RC1*, RC1+1, EOJ+3!
DIARFNA	EOJ+6!
DIARFND	INIT+4*, EOJ+7!
DIARFNO	EOJ+6!
DIARHLP	EOJ+4!
DIARID	EOJ+1!
DIARID(	ID*
DIARIDDN	EOJ+2!
DIARIDS	EOJ+3!
DIARIDX	RC+1*, EOJ+6!
DIARIO	SEQDEV+3*, EOJ+1!
DIARIXCT	EOJ+7!
DIARIXX	EOJ+7!
DIARL	RC, RC+1, RC2, RC2+1, RC2+2, RC2+3, RC2+6, ID, ID+1, RC1 , RC1+1, EOJ+2!
DIARLINE	INIT+4*, EOJ+3!
DIARMT01	EOJ+2!
DIARMTCH	INIT+4*, EOJ+2!
DIARMTID	EOJ+2!
DIARNAME	RC2+1*, RC2+4, EOJ+4!
DIARNM	INIT+4, RC2+4, RC3, EOJ+2!
DIAROAT	EOJ+4!
DIAROBCK	EOJ+6!
DIAROBF	EOJ+6!
DIAROBF1	EOJ+6!
DIAROBFN	EOJ+6!
DIAROBPT	EOJ+5!
DIAROFLD	EOJ+4!
DIAROIDF	EOJ+4!
DIAROLNE	EOJ+5!
DIAROLUP	EOJ+5!
DIAROLVL	EOJ+4!
DIAROM	EOJ+5!
DIAROREQ	EOJ+5!
DIAROSF	EOJ+6!
DIAROSFN	EOJ+6!
DIAROSTK	EOJ+4!
DIAROSUB	EOJ+5!
DIAROTAB	EOJ+5!
DIAROUT	INIT+4*, EOJ+1!
DIAROVAL	EOJ+4!
DIAROX	EOJ+5!
DIAROX1	EOJ+5!
DIAROX2	EOJ+7!
DIAROXPL	EOJ+4!
DIAROXX	EOJ+6!
DIAROZ	EOJ+5!
DIARPC	EOJ+7!
DIARPDEV	EOJ+1!
DIARPG	INIT+4*, EOJ+3!
DIARQUED	EOJ+3!
DIARR	FILE+4, EOJ+1!
DIARRCT	INIT+4, RC2+3, RC2+4, RC2+5, RC2+6, ID+1, EOJ+3!
DIARREC	EOJ+7!
DIARREQ	INIT+4*, FILE+4, EOJ+1!
DIARRF	EOJ+3!
DIARRHP	INIT+4*, EOJ+4!
DIARTAB	EOJ+5!
DIARVAL	EOJ+7!
DIARX	INIT*, RC, RC2+1, RC2+2, RC2+3, RC2+6, RC1+1, EOJ+1!
DIARX1	INIT+4*, EOJ+3!
DIARXX	EOJ+7!
DIARXXX	RC3+1*, EOJ+7!
DIARY	INIT+4*, EOJ+2!
DIARYY	EOJ+7!
DIARZ	INIT+4*, EOJ+1!
DIARZ1	INIT+4*, EOJ+3!
DIARZ2	INIT+4*, EOJ+3!
DIARZHP	EOJ+4!
DIARZID	INIT+4*, EOJ+2!
DIARZL	INIT+4*, EOJ+3!
DIARZZ	EOJ+5!
DIOF	INIT+1*, EOJ+7!
DIOSL	INIT+1*, EOJ+7!
DIR	FILE+1!, EOJ+1!
DIR("A"	FILE+1*
DIR("B"	FILE+1*
DIR(0	FILE+1*
DIRUT	FILE+2, FILE+4!, EOJ+1!
DTOUT	FILE+4, EOJ+1!
DUOUT	FILE+4!, EOJ+1!
IO	SEQDEV+3, RC3+1
IO(0	RC+2, FILE
IOF	INIT+1
>> IOPAR	SEQDEV+2, RC3+1
IOSL	INIT+1
>> IOT	SEQDEV+1, SEQDEV+2, RC3+1
POP	SEQDEV, FILE+4, EOJ+1!
U	RC2, RC2+2, RC2+3, RC2+6, ID, ID+1, RC1, RC1+1
>> Y	FILE+2

Customize PDF page

Package: VA Fileman

Routine: DIARR

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: