Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DIAR(1.11

Package: VA FileMan

Global: ^DIAR(1.11


Information

FileMan FileNo FileMan Filename Package
1.11 ARCHIVAL ACTIVITY VA FileMan

Description

Directly Accessed By Routines, Total: 15

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    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
VA FileMan 3 SORT TEMPLATE(#.401)[2]    FILE(#1)[117]    PRINT TEMPLATE(#.4)[3]    
Kernel 1 NEW PERSON(#200)[58915]    

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

External References

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

Global Variables Directly Accessed

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

Naked Globals

Name Field # of Occurrence
^(0 ID1+1, ID7+1, ID8+1

Local Variables

Legend:

>> 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
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All