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 |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^LAB(95.11

Package: Lab Service

Global: ^LAB(95.11


Information

FileMan FileNo FileMan Filename Package
95.11 LAB ARCHIVAL ACTIVITY Lab Service

Description

Directly Accessed By Routines, Total: 14

Package Total Routines
Lab Service 14 LRARCAM4    LRARCMA    LRARCML    LRARCPTS    LRARLMW    LRARLMW1    LRARPLM    LRARPW
LRARREP    LRARU    LRARU1    LRARVER    LRARWKD    LRARWKD1    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Lab Service 5 LRARLMW    LRARREP    LRARU    LRARU1    LRARWKD    

Pointer To FileMan Files, Total: 4

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

Fields, Total: 21

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
  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a sequential number of an arhive activity.  Example: Archival activity number 1 would be the first archive performed.
  • CROSS-REFERENCE:  95.11^B
    1)= S ^LAB(95.11,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(95.11,"B",$E(X,1,30),DA)
1 FILE 0;2 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Enter the file that this archival activity will effect.
  • DESCRIPTION:  
    This is the source file.
  • CROSS-REFERENCE:  95.11^C
    1)= S ^LAB(95.11,"C",$E(X,1,30),DA)=""
    2)= K ^LAB(95.11,"C",$E(X,1,30),DA)
    This cross-reference allows lookup by file.
2 SEARCH TEMPLATE 0;3 POINTER TO SORT TEMPLATE FILE (#.401)
************************REQUIRED FIELD************************
SORT TEMPLATE(#.401)

  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Enter the name of the sort/search template that you wish to use.
  • DESCRIPTION:  
    This is the sort/search template for this archival activity.
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(^LAB(95.11,DA,0),U,2)",DIC(0)="QE",D="F"++$P(^LAB(95.11,DA,0),U,2) D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Enter the name of the FILEGRAM OR EXTRACT print template that you wish to use.
  • DESCRIPTION:  
    This is the extrtact print template used in this archival activity.
  • SCREEN:  S DIC("S")="I $P(^(0),U,8)="_$S($D(DIAX):2,1:1)_",$P(^(0),U,4)=$P(^LAB(95.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
  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Enter the select date of this archival activity.
  • DESCRIPTION:  
    This is the select date of the archival activity.
5 ARCHIVER 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Enter the name of the user that is doing the archiving.
  • DESCRIPTION:  
    This is the name of the user who is performing the archiving.
6 NUMBER OF ITEMS TO ARCHIVE 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of items to archive.
7 ARCHIVAL STATUS 0;8 SET
  • '1' FOR SELECTED;
  • '2' FOR ARCHIVED;
  • '3' FOR CLEARED;
  • '90' FOR PURGED;

  • LAST EDITED:  MAY 01, 1995
  • DESCRIPTION:  
    This is the status of the archival activity.
  • CROSS-REFERENCE:  95.11^O^MUMPS
    1)= S ^LAB(95.11,"O",X,+$P(^LAB(95.11,DA,0),U,2),DA)=""
    2)= K ^LAB(95.11,"O",X,+$P(^LAB(95.11,DA,0),U,2),DA)
    This cross-reference identifies the active archival activity for a file.
7.5 SELECTOR 2;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  This is the person who selected entries for archival.
  • DESCRIPTION:  
    This is the person who selected entries for archival.
8 PURGER 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 10, 1995
  • DESCRIPTION:  
    This is the person who performs the purge.
9 ARCHIVE DATE 0;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Enter the archive date of this archival activity.
  • DESCRIPTION:  
    This is the archive date of this archival activity.
10 PURGE DATE 0;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Enter the purge date of this archival activity.
  • DESCRIPTION:  
    This is the purge date of this archival activity.
11 DATE LAST PRINTED 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Enter the date that the listing of items to be archived was last printed.
  • DESCRIPTION:  
    This is the date that the listing of items to be archived was last printed.
12 ARCHIVING ACTION IN PROGRESS 0;13 SET
  • '1' FOR SELECTING;
  • '2' FOR ARCHIVING;
  • '3' FOR CLEARING;
  • '90' FOR PURGING;
  • '99' FOR CANCELLING;

  • LAST EDITED:  JUN 08, 1995
  • 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.
  • DESCRIPTION:  
    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.
13 DATE/TIME ACTIVITY BEGAN 0;14 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Date/time user began archiving action currently in progress.
  • DESCRIPTION:  
    This is the date/time the archiving action currently in progress began.
14 USER PERFORMING ACTION 0;15 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  User that initiated the archiving action.
  • DESCRIPTION:  
    This is the user that initiated the archiving action.
15 DESTINATION FILE 0;16 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Ente the number of the destination file for this archival activity.
  • DESCRIPTION:  
    This field holds the number of the destination file for this archival activity.
16 ARCHIVE DEVICE LABEL 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<2) X
  • LAST EDITED:  APR 10, 1995
  • HELP-PROMPT:  Answer must be 2-45 characters in length.
  • DESCRIPTION:  
    This field holds the label information that identifies your archival medium.
18 ARCHIVE TASK NUMBER 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUN 13, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the task number of the Archive data option for this Lab archival activity.
19 BEGINNING DATE 1;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 17, 1995
  • HELP-PROMPT:  This field is entered through the archive routines.
  • DESCRIPTION:  
    The selected date to begin archiving.
20 ENDING DATE 1;2 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 17, 1995
  • HELP-PROMPT:  This field is entered through the archive routines.
  • DESCRIPTION:  
    The selected date to end archiving.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All