Routine: DIARX

Information

DIARX ;SFISC/DCM-ARCHIVING FUNCTION, BUILD INDEX ;8/12/98 10:25

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	EN^DIQ1 ^DIR

Package	Total	Caller Graph
VA Fileman	1	DIAR

Name	Comments	DBIA/ICR reference
BODY
IX
DQ	;print archive activity report
HDR
QP
IDKEY	; Save KEY or Identifier data
HDRC
IX1
OUT

Name	Line Occurrences
Function Call: WRITE	Prompt: DIARLINE,! Line Location: IX+6
Function Call: WRITE	Prompt: DIARLINE,! Line Location: IX1+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+0
Function Call: WRITE	Prompt: !,"ARCHIVE ACTIVITY REPORT",?IOM-24,DIARXY,?IOM-10,"PAGE: ",DIARPG+1 Line Location: HDR+0
Function Call: WRITE	Prompt: !,DIARLINE Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"ARCHIVAL ACTIVITY: ",DIARC,!,"ARCHIVE DEVICE LABEL INFORMATION: ",$P(^DIAR(1.11,DIARC,0),U,19) Line Location: BODY+0
Function Call: WRITE	Prompt: !,"PRIMARY ARCHIVED FILE: ",$P($G(^DIC(DIARFI,0)),U)_" (#"_DIARFI_")" Line Location: BODY+1
Function Call: WRITE	Prompt: !,"ARCHIVER: ",$P($G(^VA(200,$P(DIARX,U,6),0)),U) Line Location: BODY+2
Function Call: WRITE	Prompt: !,"SEARCH CRITERIA: " Line Location: BODY+3
Function Call: WRITE	Prompt: !,?5,^(0) Line Location: BODY+4
Function Call: WRITE	Prompt: !!,"INDEX INFORMATION: ",! Line Location: BODY+5
Function Call: WRITE	Prompt: DIARFLD Line Location: BODY+5
Function Call: WRITE	Prompt: DIARFLD Line Location: BODY+5
Function Call: WRITE	Prompt: ^(DIARFLD,"E") Line Location: BODY+6
Function Call: WRITE	Prompt: ?DIARTAB Line Location: BODY+6
Function Call: WRITE	Prompt: !!,"* PLEASE KEEP THIS FOR FUTURE REFERENCE *" Line Location: BODY+7
Function Call: WRITE	Prompt: @IOF Line Location: BODY+8
Routine Call	%ZIS Line Location: QP+1
Routine Call	DIR Line Location: HDRC+1
Routine Call	%ZIS Line Location: OUT+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	IX+1, IX+3, IX+4, IDKEY+1
^DD("DD"	DQ+1
^DD("KEY" - [#.31]	IX+2, IX+3
^DIAR(1.11 - [#1.11]	IX+1, DQ+1, BODY
^DIBT(	IX+7, IX+8, BODY+4
^DIC - [#1]	IX+6, BODY+1
^UTILITY("DIQ1"	IX!, IX1, BODY+6
^VA(200 - [#200]	BODY+2

Name	Field # of Occurrence
^(	IX+3, IX1, BODY+4, BODY+6
^(0	BODY+4

Name	Field # of Occurrence
DA	IX+1, IX+7, IX+9!
>> DIARBLNE	IX+5*, BODY+5
>> DIARC	IX+1, DQ+1, BODY
DIARDA	IX+1, IX+8, IX+9!, IX1
DIARDR	IX+1, IX+3, IX+4*, IX+9!, IDKEY+1, IDKEY+2
>> DIARFI	DQ+1*, BODY+1, BODY+6
>> DIARFLD	BODY+5, BODY+6
DIARIX	IX+1, IX+9!, IX1
DIARIXF	IX+1*, IX+2, IX+3, IX+4, IX+6, IX+9!, IDKEY+1, IX1
DIARIXST	IX+1*, IX+7, IX+8, IX+9!
DIARLINE	IX+1, IX+4, IX+5, IX+6, IX+9!, IDKEY+1, IX1, IX1+1, DQ+1, HDR+1
>> DIARPDEV	OUT+1, QP
>> DIARPG	DQ+1, HDR, HDR+1
>> DIARQUED	OUT
DIARREC	IX+1*, IX+9!
>> DIARTAB	BODY+5, BODY+6
>> DIARU	BODY+3*, BODY+4
>> DIARX	DQ+1*, BODY+2, BODY+3
>> DIARXY	DQ+1*, HDR
>> DIARXZ	BODY+3, BODY+4, BODY+5, BODY+6
DIC	IX~, IX+1*
>> DIQ(0	IX+7*
DIR	HDRC+1!
DIR(0	HDRC+1*
>> DIRUT	BODY+6, HDRC+1
DIXIEN	IX+2~*, IX+3
DR	IX+1, IX+9!, IDKEY+2
DT	DQ+1
>> DTOUT	BODY+6, HDRC+1
IO	IX+6, DQ+1
IOF	HDR, BODY+8
IOM	HDR, HDR+1
>> IOP	OUT+1*
IOSL	HDRC
IOST	BODY+8, HDRC+1
>> POP	OUT+1
U	IX+1, IX+6, IDKEY+1, IX1, DQ+1, BODY, BODY+1, BODY+2, BODY+3, BODY+5
>> Y	DQ+1*
>> ZTDESC	QP*
>> ZTDTH	QP*
>> ZTIO	QP*
>> ZTRTN	QP*
>> ZTSAVE("DIARBLNE"	QP*
>> ZTSAVE("DIARC"	QP*
>> ZTSAVE("^UTILITY(""DIQ1"",$J,"	QP*