Global: ^LAB(95.11

FileMan FileNo	FileMan Filename	Package
95.11	LAB ARCHIVAL ACTIVITY	Lab Service

Package	Total	Routines
Lab Service	16	LRARCMA ^LAB(95.11 LRARCAM4 LRARCML LRARCPTS LRARLMW LRARLMW1 LRARPLM LRARPW LRARREP LRARU LRARU1 LRARVER LRARWKD LRARWKD1 RELATED NAME

Package	Total	Routines
Lab Service	5	LRARLMW LRARREP LRARU LRARU1 LRARWKD

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.`

Name	Field # of Occurrence
^%DT	4+1, 9+1, 10+1, 11+1, 13+1, 19+1, 20+1
IX^DIC	3+1
Y^DIQ	ID1+1, ID5+1, ID7.5+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(1	ID1+1
^DD(200	ID5+1, ID7.5+1
^DIC - [#1]	ID1+1
^LAB(95.11 - [#95.11]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3+1, 7(XREF 1S), 7(XREF 1K)
^VA(200 - [#200]	ID5+1, ID7.5+1

Name	Field # of Occurrence
^(0	ID1+1, ID4+1, ID5+1, ID7.5+1
^(2	ID7.5+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	4+1, 9+1, 10+1, 11+1, 13+1, 19+1, 20+1*
%I	ID1+1!, ID5+1!, ID7.5+1*!
>> C	ID1+1, ID5+1, ID7.5+1*
>> D	3+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3+1, 7(XREF 1S), 7(XREF 1K)
>> DIAX	3+1, 3SCR+1
DIC	ID1+1, ID5+1, ID7+1, ID7.5+1, 3+1!*
DIC("S"	3+1, 3SCR+1
DIC(0	3+1*
>> DIE	3+1
U	ID1+1, ID4+1, ID5+1, ID7.5+1, 3+1, 7(XREF 1S), 7(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3+1!, 4+1!, 6+1!, 7(XREF 1S), 7(XREF 1K) , 9+1!, 10+1!, 11+1!, 13+1!, 16+1!, 18+1!, 19+1!, 20+1!
>> Y	ID1+1, ID5+1, ID7.5+1*, 3+1, 4+1, 9+1, 10+1, 11+1, 13+1, 19+1 , 20+1

Customize PDF page

Package: Lab Service

Global: ^LAB(95.11

Information

Description

Directly Accessed By Routines, Total: 16

Accessed By FileMan Db Calls, Total: 5

Pointer To FileMan Files, Total: 4

Fields, Total: 21

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: