STANDARD DATA DICTIONARY #62.6 -- ACCESSION TEST GROUP FILE 9/29/25 PAGE 1
STORED IN ^LAB(62.6, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to setup Accession Test Groups (menus for accessioning tests).
IDENTIFIED BY: LAB SECTION (#.02)[R]
CROSS
REFERENCED BY: ACCESSION TEST GROUP(B)
62.6,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
The internal number.
62.6,.01 ACCESSION TEST GROUP 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
The name of the accession test group.
CROSS-REFERENCE: 62.6^B
1)= S ^LAB(62.6,"B",$E(X,1,30),DA)=""
2)= K ^LAB(62.6,"B",$E(X,1,30),DA)
62.6,.02 LAB SECTION 0;2 POINTER TO LAB SECTION FILE (#62.2) (Required)
LAST EDITED: OCT 01, 1984
DESCRIPTION:
The name of the lab section that this group belongs to. Points to the LAB SECTION file.
62.6,.03 LAB ONLY 0;3 SET
'1' FOR YES;
LAST EDITED: AUG 29, 1984
DESCRIPTION: If the wards are to be allowed to use this Accession test group, leave this blank. If YES, the
user must have the LRLAB key to see the entries.
62.6,.04 LAB COLLECT ONLY 0;4 SET
'1' FOR YES;
LAST EDITED: NOV 05, 1985
DESCRIPTION: If this accession test group is to be used for routine lab collects, enter YES in this field,
otherwise leave blank.
62.6,.05 DISPLAY ORDER 0;5 SET
'0' FOR CONTINUOUS;
'1' FOR INTERNAL NUMBER;
LAST EDITED: AUG 27, 1997
HELP-PROMPT: Enter how tests are displayed on list.
DESCRIPTION: This field determines if test numbers on list are numbered "CONTINUOUS", starting at 1,2,3,... or
by "INTERNAL NUMBER" when the test list is displayed.
"INTERNAL NUMBER" will assign the test number on list based on the internal entry number (field
#.001 NUMBER) of test in the "TEST" multiple. This will print the list with gaps if tests have
been removed. It allows removal of tests without subsequent tests being renumbered on the list and
tests being added at designated positions. This may assist site when modifying test lists and users
have memorized existing number of tests, by maintaining existing number.
62.6,1 TEST 1;0 POINTER Multiple #62.61
DESCRIPTION:
This is a multiple field. It specifies all of the tests in this accession group.
62.61,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 27, 1997
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
The internal number.
62.61,.01 TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
LAST EDITED: SEP 12, 1985
DESCRIPTION:
This field specifies all of the tests included in this accession group.
CROSS-REFERENCE: ^^TRIGGER^62.61^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.6,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2) S DIU=X K Y X ^DD(62.61,.01,1,1,1.1) X ^DD(62.61,.01,1,1,1.4)
1.1)= S X=$S('$D(^LAB(60,+DIV,0)):"",1:$P(^(0),U,1))
1.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,
1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=62.61,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.6,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2) S DIU=X K Y X ^DD(62.61,.01,1,1,2.1) X ^DD(62.61,.01,1,1,2.4)
2.1)= S X=$S('$D(^LAB(60,+DIV,0)):"",1:$P(^(0),U,1))
2.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,
1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=62.61,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= TEST
DELETE VALUE)= TEST
FIELD)= TEST NAME
CROSS-REFERENCE:62.61^B
1)= S ^LAB(62.6,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAB(62.6,DA(1),1,"B",$E(X,1,30),DA)
62.61,1 TEST NAME 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>50!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
DESCRIPTION:
Triggered by TEST field.
NOTES: TRIGGERED by the TEST field of the TEST sub-field of the ACCESSION TEST GROUP File
62.61,2 COLLECTION SAMPLE 0;3 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: FEB 07, 1984
DESCRIPTION:
This field contains the correct collection sample for this test. Points to COLLECTION SAMPLE file.
CROSS-REFERENCE:^^TRIGGER^62.61^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.61,2,1,1,1.1) X ^DD(62.61,2,1,1,1.4)
1.1)= S X=$S('$D(^LAB(62,+DIV,0)):"",1:$P(^(0),U,1)_$S($L($P(^(0),U,3)):" ("_$P(^(0),U,3)_")",1:"")
)
1.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S
DIH=DIH_U" S %=$P(DIH,U,5,999),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=62.61,DIG=3 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.6,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.61,2,1,1,2.1) X ^DD(62.61,2,1,1,2.4)
2.1)= S X=$S('$D(^LAB(62,+DIV,0)):"",1:$P(^(0),U,1)_$S($L($P(^(0),U,3)):" ("_$P(^(0),U,3)_")",1:"")
)
2.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S
DIH=DIH_U" S %=$P(DIH,U,5,999),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=62.61,DIG=3 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= CS
DELETE VALUE)= CS
FIELD)= SAMPLE NAME
CROSS-REFERENCE:^^TRIGGER^62.61^4
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(62.61,2,1,2,1.1) X ^DD(62.61,2,1,2,1.4)
1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62,D0,0)):^(
0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=Y(1)
1.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S
DIH=DIH_U" S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=62.61,DIG=4 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.6,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(62.61,2,1,2,2.1) X ^DD(62.61,2,1,2,2.4)
2.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62,D0,0)):^(
0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=Y(1)
2.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,4,99)) S
DIH=DIH_U" S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=62.61,DIG=4 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= CS:INTERNAL(DEFAULT SPECIMEN)
DELETE VALUE)= CS:INTERNAL(DEFAULT SPECIMEN)
FIELD)= SPECIMEN
62.61,3 SAMPLE NAME 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
Triggered by the COLLECTION SAMPLE field.
NOTES: TRIGGERED by the COLLECTION SAMPLE field of the TEST sub-field of the ACCESSION TEST GROUP File
62.61,4 SPECIMEN 0;5 POINTER TO TOPOGRAPHY FIELD FILE (#61)
DESCRIPTION:
Triggered by the COLLECTION SAMPLE field.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the COLLECTION SAMPLE field of the TEST sub-field of the ACCESSION TEST GROUP File
62.61,5 *LABEL 0;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>1!($L(X)<1) X
LAST EDITED: AUG 31, 1984
HELP-PROMPT: ANSWER MUST BE 1 CHARACTER IN LENGTH
DESCRIPTION: This field is used as a quick look-up reference in Albany routines. It has an "AC"
cross-reference.
CROSS-REFERENCE:62.61^AC
1)= S ^LAB(62.6,DA(1),1,"AC",$E(X,1,30),DA)=""
2)= K ^LAB(62.6,DA(1),1,"AC",$E(X,1,30),DA)
FILES POINTED TO FIELDS
COLLECTION SAMPLE (#62) TEST:COLLECTION SAMPLE (#2)
LAB SECTION (#62.2) LAB SECTION (#.02)
LABORATORY TEST (#60) TEST:TEST (#.01)
TOPOGRAPHY FIELD (#61) TEST:SPECIMEN (#4)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):