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 DIAXP DIAXU DIFGB DINIT3 DIS2 YEAR ^DIAR(1.11

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: