STANDARD DATA DICTIONARY #1.11 -- ARCHIVAL ACTIVITY FILE 9/29/25 PAGE 1
STORED IN ^DIAR(1.11, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 22.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores information and status of data archiving activities.
DD ACCESS: ^
WR ACCESS: ^
DEL ACCESS: ^
LAYGO ACCESS: ^
IDENTIFIED BY: FILE (#1)[R], SELECT DATE (#4)[R], ARCHIVAL STATUS (#7), SELECTOR (#8), TYPE OF ARCHIVE (#16)
CROSS
REFERENCED BY: ARCHIVE NUMBER(B), FILE(C)
1.11,.01 ARCHIVE NUMBER 0;1 NUMBER (Required)
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.11,1 FILE 0;2 POINTER TO FILE FILE (#1) (Required)
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)
1.11,2 SEARCH TEMPLATE 0;3 POINTER TO SORT TEMPLATE FILE (#.401) (Required)
HELP-PROMPT: Enter the name of the sort/search template that you wish to use.
1.11,3 PRINT TEMPLATE 0;4 POINTER TO PRINT TEMPLATE FILE (#.4) (Required)
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
1.11,4 SELECT DATE 0;5 DATE (Required)
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the select date of this archival activity.
1.11,5 ARCHIVER 0;6 POINTER TO NEW PERSON FILE (#200)
HELP-PROMPT: Enter the name of the user that is doing the archiving.
1.11,6 NUMBER OF ITEMS TO ARCHIVE 0;7 NUMBER (Required)
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
1.11,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
1.11,8 SELECTOR 0;9 POINTER TO NEW PERSON FILE (#200)
1.11,9 PURGER 0;10 POINTER TO NEW PERSON FILE (#200)
1.11,10 ARCHIVE DATE 0;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
1.11,11 PURGE DATE 0;12 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
1.11,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.
1.11,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.
1.11,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.
1.11,15 USER PERFORMING ACTION 0;16 POINTER TO NEW PERSON FILE (#200)
HELP-PROMPT: User that initiated the archiving action.
1.11,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.
1.11,17 DESTINATION FILE 0;18 POINTER TO FILE FILE (#1)
DESCRIPTION:
This field holds the number of the destination file for this archival activity.
1.11,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.
1.11,30 SUBFILE NUMBER 1;1 FREE TEXT
INPUT TRANSFORM: K:+X'=X X
HELP-PROMPT: Type the number of a sub-file data dictionary.
1.11,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.
1.11,32 SUBFILE SCREEN S;0 Multiple #1.1132 (Add New Entry without Asking)
1.1132,.01 SUBSCRIPT 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
HELP-PROMPT: Answer must be 1-10 characters in length.
1.1132,1 CODE 1;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: This is Standard MUMPS code.
WRITE AUTHORITY: @
1.11,100 DATA D;0 WORD-PROCESSING #1.113 (NOWRAP)
1.11,200 DESTINATION FILE ENTRIES EX;0 Multiple #1.14
1.14,.01 DESTINATION FILE ENTRIES 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:
This field holds the internal entry number of the record created in the
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 1.14^B
1)= S ^DIAR(1.11,DA(1),"EX","B",$E(X,1,30),DA)=""
2)= K ^DIAR(1.11,DA(1),"EX","B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
FILE (#1) FILE (#1)
DESTINATION FILE (#17)
NEW PERSON (#200) ARCHIVER (#5)
SELECTOR (#8)
PURGER (#9)
USER PERFORMING ACTION (#15)
PRINT TEMPLATE (#.4) PRINT TEMPLATE (#3)
SORT TEMPLATE (#.401) SEARCH TEMPLATE (#2)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):