STANDARD DATA DICTIONARY #62.07 -- EXECUTE CODE FILE 6/27/25 PAGE 1
STORED IN ^LAB(62.07, (45 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
The execute code file is used to store a variety of program instuctions that are used in various programs in the lab package. The
best way to see what they areand what they do is to sort them out by type. This may only be of academic interest, since these
codes are rarely changed.
The 'execute code' type entries have been moved from this file to the routine LRX. All of the 'execute code' type entries will be
deleted (with the exception of the ERROR TRAP entry) when version 5 of lab is released.
Cross-reference description:
^LAB("X",'SUBSCRIPT NAME')=EXECUTE CODE
Note: With the exception of the Error Trap execute code this x-ref has
been replaced with the program LRX.
Example: X ^LAB("X","PT") is now D PT^LRX
IDENTIFIED BY: TYPE (#3)[R]
POINTED TO BY: EDIT CODE field (#98) of the LABORATORY TEST File (#60)
*BATCH DATA CODE field (#99.1) of the LABORATORY TEST File (#60)
EXECUTE ON DATA REVIEW field (#99.2) of the LABORATORY TEST File (#60)
REQUIRED COMMENT field (#320) of the LABORATORY TEST File (#60)
REQUIRED COMMENT field (#7) of the COLLECTION SAMPLE sub-field (#60.03) of the LABORATORY TEST File (#60)
ACCESSION TRANSFORM field (#.05) of the ACCESSION File (#68)
VERIFICATION CODE field (#.06) of the ACCESSION File (#68)
*IDENTITY CONTROL field (#.07) of the ACCESSION File (#68)
LOAD TRANSFORM field (#.02) of the LOAD/WORK LIST File (#68.2)
INITIAL SETUP field (#.07) of the LOAD/WORK LIST File (#68.2)
AUTO MICRO EDIT TEMPLATE field (#.12) of the LOAD/WORK LIST File (#68.2)
FILE LINK field (#6) of the PROTOCOL File (#101)
CROSS
REFERENCED BY: SUBSCRIPT NAME(AC), NAME(B)
62.07,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: NOV 28, 1984
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
The user given name of the code.
CROSS-REFERENCE: 62.07^B
1)= S ^LAB(62.07,"B",$E(X,1,30),DA)=""
2)= K ^LAB(62.07,"B",$E(X,1,30),DA)
62.07,1 EXECUTE CODE .1;E1,220 FREE TEXT
INPUT TRANSFORM: D ^DIM
LAST EDITED: OCT 25, 1984
HELP-PROMPT: ANSWER MUST BE 1-220 CHARACTERS IN LENGTH. AND VALID MUMPS CODE
DESCRIPTION:
The MUMPS code. EXAMPLE: For the SMAC name the code is S CUP=CUP+1 I CUP>8 S CUP=1,TRAY=TRAY+1.
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
62.07,2 PURGE CONTROL 0;2 SET
'DAILY' FOR D;
'MONTHLY' FOR M;
'QUARTERLY' FOR Q;
'YEARLY' FOR Y;
DESCRIPTION: This field contains the time interval to purge. Set of codes for Daily, Monthly, Quarterly, or
Yearly.
62.07,3 TYPE 0;3 SET (Required)
'I' FOR IDENTITY;
'V' FOR VERIFICATION;
'A' FOR ACCESSION;
'L' FOR LOADLIST;
'E' FOR EDIT;
'C' FOR COMMENT;
'X' FOR XECUTE;
'D' FOR DATA;
'W' FOR WORKLOAD;
LAST EDITED: NOV 20, 1991
DESCRIPTION: The type of code as categorized by the set of codes. Identity, verfication, accession, loadlist,
edit, or comment.
62.07,4 HELP PROMPT .2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<2) X
LAST EDITED: AUG 28, 1984
HELP-PROMPT: THIS IS THE MESSAGE PRINTED FOR COMMENTS WHEN A '?' IS ENTERED
DESCRIPTION:
The user entered help prompt for the execute code name.
62.07,5 SUBSCRIPT NAME 0;4 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<2)!($P(^(0),U,3)'="X") X Q:$D(DIU(0)) I $D(X) K:$D(
^LAB("X",X)) X
LAST EDITED: NOV 28, 1984
HELP-PROMPT: 2-9 character function name (don't EVER change this!)
DESCRIPTION: If the entry is type "X", eXecute, this is used in the "X" cross-reference. Otherwise, nothing
should be placed in this field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 62.07^AC^MUMPS
1)= S ^LAB("X",X)=^LAB(62.07,DA,.1)
2)= K ^LAB("X",X)
62.07,6 DESCRIPTION 1;0 WORD-PROCESSING #62.071
DESCRIPTION:
This field contains information about how the execute code is used, or what it does.
LAST EDITED: FEB 14, 1985
DESCRIPTION:
This field contains information about how the execute code is used, or what it does.
62.07,500 EXECUTE WKLD CODE 9;0 POINTER Multiple #62.09 (Add New Entry without Asking)
LAST EDITED: MAR 15, 1991
DESCRIPTION: College of American Pathologists Workload codes associated
with the execute code are stored here.
IDENTIFIED BY: EXECUTE WKLD CODE #(#1)
62.09,.01 EXECUTE WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: MAR 15, 1991
DESCRIPTION:
Enter the WKLD codes associated with the execute code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^62.09^1
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.07,D0,9,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(62.09,.01,1,1,1.1) X ^DD(62.09,.01,1,1,1.4)
1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAM(+D0,0)) D0=-1
S Y(101)=$S($D(^LAM(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)
1.4)= S DIH=$S($D(^LAB(62.07,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=62.09,DIG=
1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.07,D0,9,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(62.09,.01,1,1,2.4)
2.4)= S DIH=$S($D(^LAB(62.07,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=62.09,DIG=
1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= WKLD CODE:WKLD CODE
DELETE VALUE)= @
FIELD)= WKLD CODE NUMBER
62.09,1 EXECUTE WKLD CODE # 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999)!(X<10000)!(X?.E1"."4N.N) X
LAST EDITED: MAR 15, 1991
HELP-PROMPT: Type a Number between 10000 and 99999, 3 Decimal Digits
WRITE AUTHORITY:^
UNEDITABLE
NOTES: TRIGGERED by the EXECUTE WKLD CODE field of the EXECUTE WKLD CODE sub-field of the EXECUTE CODE
File
62.09,2 MULTIPLY FACTOR 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 22, 1990
HELP-PROMPT: Type a Number between 1 and 100, 0 Decimal Digits
DESCRIPTION: If this particular WKLD code should be multiplied in order to receive proper count, enter that
number here. The default is 1. NOTE: This field is identical to the field found in the Verify
WKLD code field sub file.
62.07,501 SITE NOTES DATE 2;0 DATE Multiple #62.7501
DESCRIPTION:
The date of this particular note.
62.7501,.01 SITE NOTES DATE 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 12, 1993
CROSS-REFERENCE: 62.7501^B
1)= S ^LAB(62.07,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LAB(62.07,DA(1),2,"B",$E(X,1,30),DA)
62.7501,1 TEXT 1;0 WORD-PROCESSING #62.75011
LAST EDITED: SEP 12, 1993
DESCRIPTION:
Actual text of the note for this code.
LAST EDITED: SEP 12, 1993
FILES POINTED TO FIELDS
WKLD CODE (#64) EXECUTE WKLD CODE:EXECUTE WKLD CODE (#.01)
INPUT TEMPLATE(S):
LR EXECUTE WKLD CODES FEB 03, 1993@17:23 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):