Global: ^DIAR(1.11

FileMan FileNo	FileMan Filename	Package
1.11	ARCHIVAL ACTIVITY	VA FileMan

Package	Total	Routines
VA FileMan	15	DESTINATION FILE ENTRIES DIAR DIARA DIARB DIARCALC DIARU DIARX DIAX DIAXU YEAR ^DIAR(1.11 DIAXP DIFGB DINIT3 DIS2

Package	Total	FileMan Files
VA FileMan	3	SORT TEMPLATE(#.401)[2] FILE(#1)[1, 17] PRINT TEMPLATE(#.4)[3]
Kernel	1	NEW PERSON(#200)[5, 8, 9, 15]

Fields, Total: 24

Field #	Name	Loc	Type	Details
.01	ARCHIVE NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` CROSS-REFERENCE: `1.11^B` `1)= S ^DIAR(1.11,"B",$E(X,1,30),DA)=""` `2)= K ^DIAR(1.11,"B",$E(X,1,30),DA)`
1	FILE	0;2	POINTER TO FILE FILE (#1)	**********************REQUIRED FIELD********************** FILE(#1) HELP-PROMPT: `Enter the file that this archival activity will effect.` CROSS-REFERENCE: `1.11^C` `1)= S ^DIAR(1.11,"C",$E(X,1,30),DA)=""` `2)= K ^DIAR(1.11,"C",$E(X,1,30),DA)`
2	SEARCH TEMPLATE	0;3	POINTER TO SORT TEMPLATE FILE (#.401)	**********************REQUIRED FIELD********************** SORT TEMPLATE(#.401) HELP-PROMPT: `Enter the name of the sort/search template that you wish to use.`
3	PRINT TEMPLATE	0;4	POINTER TO PRINT TEMPLATE FILE (#.4)	**********************REQUIRED FIELD********************** PRINT TEMPLATE(#.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,8)="_$S($D(DIAX):2,1:1)_",$P(^(0),U,4)=$P(^DIAR(1.11,DA,0),U,2)",DIC(0)="QE",D="F"_+$P(^DIAR(1.11,DA,0),U,2) D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 14, 1992` HELP-PROMPT: `Enter the name of the FILEGRAM OR EXTRACT print template that you wish to use.` SCREEN: `S DIC("S")="I $P(^(0),U,8)="_$S($D(DIAX):2,1:1)_",$P(^(0),U,4)=$P(^DIAR(1.11,DA,0),U,2)"` EXPLANATION: `Select a print template in Filegram or Extract Format.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	SELECT DATE	0;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the select date of this archival activity.`
5	ARCHIVER	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) HELP-PROMPT: `Enter the name of the user that is doing the archiving.`
6	NUMBER OF ITEMS TO ARCHIVE	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits`
7	ARCHIVAL STATUS	0;8	SET	'1' FOR SELECTED; '2' FOR EDITED; '4' FOR ARCHIVED (TEMPORARY); '5' FOR ARCHIVED (PERMANENT); '6' FOR UPDATED DESTINATION FILE; '90' FOR PURGED; LAST EDITED: `MAY 11, 1992`
8	SELECTOR	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200)
9	PURGER	0;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200)
10	ARCHIVE DATE	0;11	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X`
11	PURGE DATE	0;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X`
12	DATE LAST PRINTED	0;13	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date that the listing of items to be archived was last printed.`
13	ARCHIVING ACTION IN PROGRESS	0;14	SET	'1' FOR SELECTION; '2' FOR EDITING; '4' FOR ARCHIVING (TEMPORARY); '5' FOR ARCHIVING (PERMANENT); '6' FOR UPDATING DESTINATION FILE; '90' FOR PURGING; '99' FOR CANCELLING; HELP-PROMPT: `Entry will be made here by system when user begins performing some action to this ARCHIVAL ACTIVITY and will be deleted when action is complete, to lock out other users.`
14	DATE/TIME ACTIVITY BEGAN	0;15	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Date/time user began archiving action currently in progress.`
15	USER PERFORMING ACTION	0;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) HELP-PROMPT: `User that initiated the archiving action.`
16	TYPE OF ARCHIVE	0;17	SET	'0' FOR ARCHIVING; '1' FOR EXTRACT; DESCRIPTION: `This field indicates the archiving type for this particular archival activity entry. This should be 0 if the archival process is being done under the Archiving options; or should be 1 if the archival process is being done` `under the Extract Tool options.`
17	DESTINATION FILE	0;18	POINTER TO FILE FILE (#1)	FILE(#1) DESCRIPTION: `This field holds the number of the destination file for this archival activity.`
18	ARCHIVE DEVICE LABEL	0;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<2) X` HELP-PROMPT: `Answer must be 2-45 characters in length.` DESCRIPTION: `This field holds the label information that identifies your archival medium.`
30	SUBFILE NUMBER	1;1	FREE TEXT	INPUT TRANSFORM: `K:+X'=X X` HELP-PROMPT: `Type the number of a sub-file data dictionary.`
31	SUBFILE SUBSCRIPTS	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3) X` HELP-PROMPT: `Answer must be 3-50 characters in length.`
32	SUBFILE SCREEN	S;0	Multiple #1.1132	1.1132
100	DATA	D;0	WORD-PROCESSING #1.113
200	DESTINATION FILE ENTRIES	EX;0	Multiple #1.14	1.14

Name	Field # of Occurrence
^%DT	4+1, 10+1, 11+1, 12+1, 14+1
IX^DIC	3+1
Y^DIQ	ID8+1
$$NAKED^DIUTL	ID4+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ID1+1
^DD(1.11	ID7+1
^DD(200	ID8+1
^DIAR(1.11 - [#1.11]	ID1+1, ID7+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3+1
^VA(200 - [#200]	ID8+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	4+1, 10+1, 11+1, 12+1, 14+1*
%I	ID8+1*!
>> C	ID8+1*
>> D	3+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3+1
>> DIAX	3+1, 3SCR+1
DIC	ID8+1, ID16+1, 3+1!*
DIC("S"	3+1, 3SCR+1
DIC(0	3+1*
>> DIE	3+1
U	ID1+1, ID7+1, ID8+1, 3+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3+1!, 4+1!, 6+1!, 10+1!, 11+1! , 12+1!, 14+1!, 18+1!, 30+1!, 31+1!
>> Y	ID1+1, ID7+1, ID8+1*, 3+1, 4+1, 10+1, 11+1, 12+1, 14+1

Customize PDF page

Package: VA FileMan

Global: ^DIAR(1.11

Information

Description

Directly Accessed By Routines, Total: 15

Pointer To FileMan Files, Total: 4

Fields, Total: 24

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: