STANDARD DATA DICTIONARY #68 -- ACCESSION FILE 3/24/25 PAGE 1
STORED IN ^LRO(68, (22 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains entries which represent the functional subdivisions or departments of the laboratory, referred to by the
Laboratory package software as accession areas. The file is used to define the site-specific information needed by your laboratory
for each accession area. This includes the type of accession transform (or how often the accession numbers assigned to test
performed in that area will be reset to 1), the abbreviation of the area (which becomes part of the accession identifying the
specimen and test results), the order in which the data for tests performed in the area will be displayed and other specific
information.
Definitions of variables used:
LRDFN = Internal entry in LR( that is being worked on.
LRIDT = Inverse date/time that data is stored at. ^LR(LRDFN,"CH",
LRAA = internal value of accession area ^LRO(68,
LRAD = date working on in accession area ^LRO(68,LRAA,1,
LRAN = accession number working on ^LRO(68,LRAA,1,LRAD,1,
LRODT = order date ^LRO(69,
LRSN = order entry within date ^LRO(69,LRORD,1, CROSS REFERENCE DESCRIPTION:
^LRO(68,"B",'ACCESSION AREA',LRAA)
^LRO(68,"AC",LRDFN,'DATE RESULTS AVAILABLE','DATA NODE') =
used by the cumulative
^LRO(68,"AD",'LAB SECTION',LRAC)
^LRO(68,"AVS",LRAA,LRAD,LRAN)=LRDFN^LRIDT
used by micro verify by supervisor
^LRO(68,"MI",LRDFN,LRIDT)
used by micro for cumulative report
^LRO(68,LRAA,1,LRAD,1,LRAN,"AE")
used for WKLD count
^LRO(68,LRAA,1,LRAD,1,"B",'ENTRY FILE 69',LRAN)
^LRO(68,LRAA,1,LRAD,1,"C",'IDENTITY',LRAN)
^LRO(68,LRAA,1,LRAD,1,"E",'LAB ARRIVAL TIME',LRAN)
^LRO(68,LRAA,1,LRAD,1,"D",'ORDER #',LRAN)
^LRO(68,LRAA,1,LRAD,1,"AC",'DATE/TIME COMPLETE',LRAN)
^LRO(68,LRAA,1,LRAD,1,"AD",'DATE COMPLETE',LRAN)
^LRO(68,LRAA,1,LRAD,4,"B",'LAB TEST',LRAN)
IDENTIFIED BY: ACCESSION TRANSFORM (#.05)[R], VERIFICATION CODE (#.06), PRINT ORDER (#.08), ABBREVIATION (#.09)[R]
POINTED TO BY: ACCESSION AREA field (#1) of the ACCESSION AREA sub-field (#60.11) of the LABORATORY TEST File (#60)
ACCESSION AREA field (#.01) of the COLLECTION WKLD CODE sub-field (#62.02) of the COLLECTION SAMPLE File (#62)
DEFAULT ACCESSION AREA field (#11) of the AUTO INSTRUMENT File (#62.4)
ACCESSION AREA field (#7) of the LABORATORY TESTS sub-field (#62.41) of the AUTO INSTRUMENT File (#62.4)
ACCESSION AREA field (#.02) of the TEST/PROFILE sub-field (#62.9001) of the LAB SHIPPING CONFIGURATION File (#62.9)
LOCAL ACC AREA field (#21) of the WKLD CODE File (#64)
ACCESSION AREA field (#6) of the WKLD LOG FILE File (#64.03)
MAJ. SECT. field (#6) of the ACCESSION WKLD CODE TIME sub-field (#64.1111) of the WKLD CODE sub-field (#64.111) of
the DATE sub-field (#64.11) of the WKLD DATA File (#64.1)
SUBSECTION field (#7) of the ACCESSION WKLD CODE TIME sub-field (#64.1111) of the WKLD CODE sub-field (#64.111) of
the DATE sub-field (#64.11) of the WKLD DATA File (#64.1)
WORK AREA field (#7.5) of the ACCESSION WKLD CODE TIME sub-field (#64.1111) of the WKLD CODE sub-field (#64.111) of
the DATE sub-field (#64.11) of the WKLD DATA File (#64.1)
MAJOR SECTION field (#.04) of the COMPLETE DATE/TIME sub-field (#65.31) of the TEST/PROCEDURE sub-field (#65.3) of
the BLOOD INVENTORY File (#65)
SUBSECTION field (#.05) of the COMPLETE DATE/TIME sub-field (#65.31) of the TEST/PROCEDURE sub-field (#65.3) of the
BLOOD INVENTORY File (#65)
ACCESSION AREA field (#.09) of the LAB LETTER File (#65.9)
COMMON ACCESSION #'S WITH AREA field (#.04) of the ACCESSION File (#68)
MAJOR SECTION field (#4) of the WKLD CODE sub-field (#68.14) of the TESTS sub-field (#68.04) of the ACCESSION NUMBER
sub-field (#68.02) of the DATE sub-field (#68.01) of the ACCESSION File (#68)
LAB SUBSECTION field (#5) of the WKLD CODE sub-field (#68.14) of the TESTS sub-field (#68.04) of the ACCESSION
NUMBER sub-field (#68.02) of the DATE sub-field (#68.01) of the ACCESSION File (#68)
WORK AREA field (#6) of the WKLD CODE sub-field (#68.14) of the TESTS sub-field (#68.04) of the ACCESSION NUMBER
sub-field (#68.02) of the DATE sub-field (#68.01) of the ACCESSION File (#68)
MAJOR ACCESSION AREA field (#1) of the LOAD/WORK LIST File (#68.2)
LAB SUBSECTION field (#1.5) of the LOAD/WORK LIST File (#68.2)
WORK AREA field (#1.7) of the LOAD/WORK LIST File (#68.2)
ACCESSION AREA field (#4) of the RUN or TRAY NUMBER sub-field (#68.21) of the LOAD/WORK LIST File (#68.2)
ACCESSION AREA field (#.01) of the SEQUENCE or CUP NUMBER sub-field (#68.22) of the RUN or TRAY NUMBER sub-field
(#68.21) of the LOAD/WORK LIST File (#68.2)
ACCESSION AREA field (#2) of the PROFILE sub-field (#68.23) of the LOAD/WORK LIST File (#68.2)
NAME field (#.01) of the WORKLIST HEADINGS File (#68.4)
ACCESSION AREA field (#3) of the TEST sub-field (#69.03) of the SPECIMEN # sub-field (#69.01) of the LAB ORDER ENTRY
File (#69)
ACCESSION AREA field (#9) of the TEST sub-field (#69.11) of the COLLECTION LIST File (#69.1)
NAME field (#.01) of the LAB SECTION PRINT File (#69.2)
DEFAULT ACCESSION AREA field (#.06) of the LABEL DEVICE sub-field (#69.9008) of the LABORATORY SITE File (#69.9)
VENIPUNCTURE DEFAULT ACC AREA field (#618) of the DIVISION PARAMETERS sub-field (#69.9618) of the LABORATORY SITE
File (#69.9)
major section field (#.1) of the BLOOD BANK DEFAULTS sub-field (#69.98) of the LABORATORY SITE File (#69.9)
subsection field (#.11) of the BLOOD BANK DEFAULTS sub-field (#69.98) of the LABORATORY SITE File (#69.9)
INVENTORY MAJOR SECTION field (#.02) of the BLOOD BANK INSTITUTION sub-field (#69.981) of the LABORATORY SITE File
(#69.9)
INVENTORY SUBSECTION field (#.03) of the BLOOD BANK INSTITUTION sub-field (#69.981) of the LABORATORY SITE File
(#69.9)
DONOR MAJOR SECTION field (#.04) of the BLOOD BANK INSTITUTION sub-field (#69.981) of the LABORATORY SITE File
(#69.9)
DONOR SUBSECTION field (#.05) of the BLOOD BANK INSTITUTION sub-field (#69.981) of the LABORATORY SITE File (#69.9)
ACCESSION AREA field (#14) of the VBECS WORKLOAD CAPTURE File (#6002.01)
CROSS
REFERENCED BY: COMPLETE DATE(AA), DATE/TIME RESULTS AVAILABLE(AC), *LAB SECTION(AD), COMMON ACCESSION #'S WITH AREA(AE),
ORDERING SITE(AF), AREA(B), ABBREVIATION(B), UID(C), HOST UID(D)
68,.01 AREA 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<2) X
LAST EDITED: JAN 28, 1983
HELP-PROMPT: ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
DESCRIPTION:
The accession area of the Lab.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
CROSS-REFERENCE: 68^B
1)= S ^LRO(68,"B",$E(X,1,30),DA)=""
2)= K ^LRO(68,"B",$E(X,1,30),DA)
68,.02 LR SUBSCRIPT 0;2 SET (Required)
'CH' FOR CHEM, HEM, TOX, RIA, SER, etc.;
'MI' FOR MICROBIOLOGY;
'EM' FOR ELECTRON MICROSCOPY;
'SP' FOR SURGICAL PATHOLOGY;
'CY' FOR CYTOLOGY;
'AU' FOR AUTOPSY;
'BB' FOR BLOOD BANK;
LAST EDITED: OCT 25, 1984
DESCRIPTION:
This represents the functional area of the Lab. Must be chosen from a set of codes.
68,.03 CLEAN UP 0;3 SET (Required)
'D' FOR DAILY;
'W' FOR WEEKLY;
'M' FOR MONTHLY;
'Q' FOR QUARTERLY;
'Y' FOR YEARLY;
LAST EDITED: NOV 08, 1982
DESCRIPTION:
Triggered by the Accession Transform field. Determines frequency of clean up on accession lists.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the ACCESSION TRANSFORM field of the ACCESSION File
68,.04 COMMON ACCESSION #'S WITH AREA 0;4 POINTER TO ACCESSION FILE (#68)
INPUT TRANSFORM: S DIC("S")="I '$L($P(^(0),U,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 10, 1992
HELP-PROMPT: IF THIS WORKLIST IS TO BE NUMBERED IN PARALLEL WITH ANOTHER, WHICH ONE.
DESCRIPTION: If another accession area is designated here, that other accession area will be used to find the
next "available" accession number which will be updated on the other accession area.
SCREEN: S DIC("S")="I '$L($P(^(0),U,17))"
EXPLANATION: You can not select an accession area designated Work Area.
CROSS-REFERENCE: 68^AE
1)= S ^LRO(68,"AE",$E(X,1,30),DA)=""
2)= K ^LRO(68,"AE",$E(X,1,30),DA)
68,.05 ACCESSION TRANSFORM 0;5 POINTER TO EXECUTE CODE FILE (#62.07) (Required)
INPUT TRANSFORM: S DIC("S")="I $L($P(^(0),U,2))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 19, 1983
DESCRIPTION:
Determines when a new accession list begins. Points to the EXECUTE CODE file.
SCREEN: S DIC("S")="I $L($P(^(0),U,2))"
EXPLANATION: ACCESSION CONTROL MUST BE DEFINED
CROSS-REFERENCE: ^^TRIGGER^68^.051
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.1)):^(.1),1:"") S X=$E(Y(1),1,220) S DIU
=X K Y X ^DD(68,.05,1,2,1.1) X ^DD(68,.05,1,2,1.4)
1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62.07,D0,
.1)):^(.1),1:""),Y(101)=X S X=$E(Y(102),1,220) S D0=Y(1)
1.4)= S DIH=$S($D(^LRO(68,DIV(0),.1)):^(.1),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.1)=$J("
",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.051 D ^DICR:$O(^DD(DIH,DIG,
1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.1)):^(.1),1:"") S X=$E(Y(1),1,220) S DIU
=X K Y S X="" X ^DD(68,.05,1,2,2.4)
2.4)= S DIH=$S($D(^LRO(68,DIV(0),.1)):^(.1),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.1)=$J("
",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.051 D ^DICR:$O(^DD(DIH,DIG,
1,0))>0
CREATE VALUE)= ACCESSION TRANSFORM:(EXECUTE CODE)
DELETE VALUE)= @
FIELD)= ACC CODE
CROSS-REFERENCE: ^^TRIGGER^68^.03
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(2)=$C(59)_$S($D(^DD(68,.03,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(
^LRO(68,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_":",2),$C(59),1) S DIU=X K Y X ^DD(68,
.05,1,3,1.1) X ^DD(68,.05,1,3,1.4)
1.1)= X ^DD(68,.05,1,3,1,9.2) S Y(101)=X S X=$P($P(Y(103),$C(59)_$P(Y(102),U,2)_":",2),$C(59),1) S
D0=Y(1)
1.4)= S DIH=$S($D(^LRO(68,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U"
S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=68,DIG=.03 D ^DICR:$O(^DD(DIH,D
IG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(2)=$C(59)_$S($D(^DD(68,.03,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(
^LRO(68,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_":",2),$C(59),1) S DIU=X K Y X ^DD(68,
.05,1,3,2.1) X ^DD(68,.05,1,3,2.4)
2.1)= X ^DD(68,.05,1,3,2,9.2) S Y(101)=X S X=$P($P(Y(103),$C(59)_$P(Y(102),U,2)_":",2),$C(59),1) S
D0=Y(1)
2.4)= S DIH=$S($D(^LRO(68,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U"
S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=68,DIG=.03 D ^DICR:$O(^DD(DIH,D
IG,1,0))>0
CREATE VALUE)= ACCESSION TRANSFORM:(PURGE CONTROL)
DELETE VALUE)= ACCESSION TRANSFORM:(PURGE CONTROL)
FIELD)= CLEAN UP
68,.051 ACC CODE .1;E1,220 FREE TEXT
INPUT TRANSFORM: K:$L(X)>220!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-220 CHARACTERS IN LENGTH
DESCRIPTION:
Mumps code that is triggered by the Accession Transform field.
WRITE AUTHORITY: @
NOTES: TRIGGERED by the ACCESSION TRANSFORM field of the ACCESSION File
68,.06 VERIFICATION CODE 0;6 POINTER TO EXECUTE CODE FILE (#62.07)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""V""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 13, 1984
DESCRIPTION:
Points to EXECUTE CODE file.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""V"""
EXPLANATION: Only allow 'VERIFICATION' type of the EXECUTE CODE file
CROSS-REFERENCE: ^^TRIGGER^68^.061
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.2)):^(.2),1:"") S X=$E(Y(1),1,220) S DIU
=X K Y X ^DD(68,.06,1,1,1.1) X ^DD(68,.06,1,1,1.4)
1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62.07,D0,
.1)):^(.1),1:""),Y(101)=X S X=$E(Y(102),1,220) S D0=Y(1)
1.4)= S DIH=$S($D(^LRO(68,DIV(0),.2)):^(.2),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.2)=$J("
",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.061 D ^DICR:$O(^DD(DIH,DIG,
1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.2)):^(.2),1:"") S X=$E(Y(1),1,220) S DIU
=X K Y S X="" X ^DD(68,.06,1,1,2.4)
2.4)= S DIH=$S($D(^LRO(68,DIV(0),.2)):^(.2),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.2)=$J("
",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.061 D ^DICR:$O(^DD(DIH,DIG,
1,0))>0
CREATE VALUE)= VERIFICATION CODE:(EXECUTE CODE)
DELETE VALUE)= @
FIELD)= VER CODE
68,.061 VER CODE .2;E1,220 FREE TEXT
INPUT TRANSFORM: K:$L(X)>220!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-220 CHARACTERS IN LENGTH
DESCRIPTION:
Triggered by the Verification Code field.
WRITE AUTHORITY: @
NOTES: TRIGGERED by the VERIFICATION CODE field of the ACCESSION File
68,.07 *IDENTITY CONTROL 0;7 POINTER TO EXECUTE CODE FILE (#62.07)
DESCRIPTION:
No longer used. Will be deleted in later version.
CROSS-REFERENCE: ^^TRIGGER^68^.071
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.3)):^(.3),1:"") S X=$E(Y(1),1,220) S DIU
=X K Y X ^DD(68,.07,1,1,1.1) X ^DD(68,.07,1,1,1.4)
1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62.07,D0,
.1)):^(.1),1:""),Y(101)=X S X=$E(Y(102),1,220) S D0=Y(1)
1.4)= S DIH=$S($D(^LRO(68,DIV(0),.3)):^(.3),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.3)=$J("
",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.071 D ^DICR:$O(^DD(DIH,DIG,
1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.3)):^(.3),1:"") S X=$E(Y(1),1,220) S DIU
=X K Y S X="" X ^DD(68,.07,1,1,2.4)
2.4)= S DIH=$S($D(^LRO(68,DIV(0),.3)):^(.3),1:""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.3)=$J("
",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",220-$L(DIV))_Y),DIH=68,DIG=.071 D ^DICR:$O(^DD(DIH,DIG,
1,0))>0
CREATE VALUE)= IDENTITY CONTROL:(EXECUTE CODE)
DELETE VALUE)= @
FIELD)= IDENT CODE
68,.071 *IDENT CODE .3;E1,220 FREE TEXT
INPUT TRANSFORM: K:$L(X)>220!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-220 CHARACTERS IN LENGTH
DESCRIPTION:
No longer used. Will be deleted in later version.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the *IDENTITY CONTROL field of the ACCESSION File
68,.08 PRINT ORDER 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 01, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
The print order of the Accession Area. If the entry is less than 1 it will not be displayed.
68,.085 BYPASS ROLLOVER 0;10 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 14, 1987
DESCRIPTION: If you choose not to bypass rollover (i.e., have a null entry), then any unverified data will be
"rolled over" to the next day. You will not be allowed to have a duplicate accession number.
68,.09 ABBREVIATION 0;11 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X I $D(X) K:X[" "!$D(^LRO(68,"B",X)) X
LAST EDITED: JAN 30, 1985
HELP-PROMPT: ANSWER MUST BE A UNIQUE 2-5 CHARACTER CODE AND NOT CONTAIN A SPACE
DESCRIPTION:
Abbreviation for the accession area. Must have programmer privileges to alter this entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 68^B^MNEMONIC
1)= S ^LRO(68,"B",$E(X,1,30),DA)=1
2)= K ^LRO(68,"B",$E(X,1,30),DA)
68,.091 ASSOCIATED DIVISION 3;0 POINTER Multiple #68.03 (Add New Entry without Asking)
LAST EDITED: JUL 31, 1995
68.03,.01 ASSOCIATED DIVISION 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $E(+$G(^DIC(4,+Y,99)),1,3)=+$P($$SITE^VASITE,U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0
X S:$D(X) DINUM=X
LAST EDITED: MAR 05, 2014
SCREEN: S DIC("S")="I $E(+$G(^DIC(4,+Y,99)),1,3)=+$P($$SITE^VASITE,U,3)"
EXPLANATION: Allows only divisions related to site.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:68.03^B
1)= S ^LRO(68,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^LRO(68,DA(1),3,"B",$E(X,1,30),DA)
68,.092 TYPE OF ACCESSION NUMBER .4;2 SET
'S' FOR SHORT;
'L' FOR LONG;
LAST EDITED: NOV 15, 1994
HELP-PROMPT: Select the type of Accession Number that will be barcoded and passed in messages. If nothing is
entered, the default will be 'S'hort.
DESCRIPTION: This field determines whether a full unique accession number is used for barcoding and messages
between instruments. The unique accession number is built from three different numbers, the
accession area, the date, and the accession entry number. If 'S'hort is selected, the accession
number used in barcodes and for input at the instrument keypad is treated the same as it was
traditionally. The 'L'ong unique accession will always be generated, it just won't be used in
communicating with the instrument, or for barcoding. Examples of the four accession transform
types are:
Daily/Weekly: 3242889999
where 32 is the Accession area identifier (field .091)
4 is the last digit of the year (1994)
288 is the Julian date for Oct 15, 1994
9999 is the 9,999th accession for that date
If the 'L'ong version was 3242889999, 'S'hort would be 9999
If the 'L'ong version was 3242880001, 'S'hort would be 1
Yearly: 3294999999
where 32 is the Accession area identifier (field .091)
94 is the last two digits of the year (1994)
999999 is the 999,999th accession for that year
If the 'L'ong version was 3294999999, 'S'hort would be 999999
If the 'L'ong version was 3294000001, 'S'hort would be 1
Quarterly: 3240499999
where 32 is the Accession area identifier (field .091)
4 is the last digit of the year (1994)
04 is the fourth quarter of 1994
99999 is the 99,999th accession for that quarter
If the 'L'ong version was 3240499999, 'S'hort would be 99999
If the 'L'ong version was 3240400001, 'S'hort would be 1
Monthly: 3241299999
where 32 is the Accession area identifier (field .091)
4 is the last digit of the year (1994)
12 is the twelfth month of 1994
99999 is the 99,999th accession for that month
If the 'L'ong version was 3241299999, 'S'hort would be 99999
If the 'L'ong version was 3241200001, 'S'hort would be 1
68,.095 *LAB SECTION 0;13 POINTER TO LAB SECTION FILE (#62.2) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=$P(^LRO(68,DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 26, 1991
DESCRIPTION: THIS FIELD HAS BEEN MARKED FOR DELETION IN FUTURE VERSIONS THE FIELD LAB DIVISION (#.19) WILL BE
USED INSTEAD PER WORKLOAD REVISION.
TECHNICAL DESCR:
The data in this field will be ignored for the collection of work load data.
SCREEN: S DIC("S")="I $P(^(0),U,2)=$P(^LRO(68,DA,0),U,2)"
EXPLANATION: LR subscripts must match.
CROSS-REFERENCE: 68^AD
1)= S ^LRO(68,"AD",$E(X,1,30),DA)=""
2)= K ^LRO(68,"AD",$E(X,1,30),DA)
68,.097 NON LAB ACCESSION AREA 0;21 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 11, 1998
DESCRIPTION: This field indicates if this particular accession area is operated by another service other than
Pathology & Laboratory Medicine. If this accession area in staffed or funded from non Pathology
sources, mark this field yes.
An example would be Blood Gas laboratory staffed or funded by Medicine service.
HOWEVER If this accession area is used by Point of Care (ie. Nurses entering finger stick glucose)
do not set this field to yes. Because in this case the location is relevant to DSS database.
This field is used by the Laboratory DSS workload extraction routine to determine if the patient
location should be passed or not.
68,.1 RESPONSIBLE OFFICIAL 0;9 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 27, 2004
DESCRIPTION: The responsible official in the laboratory. Usually the Chief of Laboratory Service, or his
designee.
68,.11 INHIBIT AREA LABEL PRINTING 0;12 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: SEP 11, 1984
HELP-PROMPT: ENTER 'YES' TO STOP ALL LABELS FOR THIS ACCESSION AREA. 'NO' OTHER WISE.
DESCRIPTION:
A YES entry stops all label printing for this accession area.
68,.19 LAB DIVISION 0;19 SET (Required)
'AP' FOR ANATOMIC PATHOLOGY;
'CP' FOR CLINICAL PATHOLOGY;
LAST EDITED: MAR 26, 1991
DESCRIPTION: This field will be used to determine which lab division a particular accession area belongs. If
this field is not filled in, CP (Clinical Pathology ) will be assumed.
TECHNICAL DESCR: There can only be two possible laboratory divisions. Anatomical Pathology or Clinical Pathology.
This field is used to group workload reports and data.
68,.4 NUMERIC IDENTIFIER .4;1 FREE TEXT
INPUT TRANSFORM: K:X'?1.2NU!($E(X)=0) X X:$D(X) ^DD(68,.4,9.2)
9.2 = N LR4264 S LR4264=0 F S LR4264=$O(^LRO(68,LR4264)) Q:'LR4264 K:$P($G(^LRO(68,LR4264,.4)),U)
=X&(DA'=LR4264) X D:'$D(X) EN^DDIOL("Identifier has already been used in Accession Area: "_$P(^(0),
U),"","!!?5") Q:'$D(X)
LAST EDITED: APR 04, 1997
HELP-PROMPT: Type a 1-2 character code using the digits 1-9 and/or the letters A-Z (uppercase only).
DESCRIPTION: This field is used to build the unique accession identifier number. It is used as the first two
characters of the number. Use the numbers 1-9 and uppercase letters A-Z to designate the
identifier. For example, if you enter 99 all accession identifiers for this accession area will
start with 99, e.g. 9923400025.
If a single character is used the system will append a leading zero to the unique identifier
generated.
No two accession areas can use the same identifier.
Changing the identifier should only be performed when accessioning is not occurring and when a
situation requires it since personnel will memorize this identifier as representing the accesson
area.
Do NOT switch identifiers between active accession areas since this could compromise the uniqueness
of the resulting unique identifier (UID). The software when generating a UID checks for the
existence of the UID it will create for an accession. If it currently exists the UID being created
will have "00" as the numeric identifier.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68,.7 Lock for load/work list build .7;1 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 24, 1987
HELP-PROMPT: This locks the accession to allow only 1 load/work list to build at a time.
DESCRIPTION:
This locks the accession to allow only ONE load/work list to build at a time.
68,.8 LAB OOS LOCATION .8;1 POINTER TO HOSPITAL LOCATION FILE (#44)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U)[""LAB DIV""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 24, 1996
DESCRIPTION: Occassion Of Service (OOS)
This field is used for passing data to the PCE API. This API is used to capture CPT codes for
laboratory procedures.
Special OOS Hospital locations have been created that are solely used for recording workload (No
count locations). These OOS location all begin with 'LAB DIV' in their names.
Example of name: LAB DIV 600 OOS ID 108 Where 600 is the Station Number from the Institution file
(#4). Where 600 is the division Station Number where the work is done. Where 108 is the OOS ID
(stop code) for the service doing the work.
Note: The stop code could be one assigned to another service, ie Medicine. Stop Codes are not
limited to Laboratory 108.
The Laboratory Information Manager has special options used to create new OOS locations in HOSPITAL
LOCATION file. These options are used when and new division is established or a new stop code is
required.
The location names are constructed by the option and should not be altered using FileMan. The
naming convention is critical to the ability to assign OOS Hospital Locations to Laboratory
Accession (#68) file.
If a given Accession Area in the Accession file (#68) does not have a LAB OOS LOCATION S LOCATION
(#.8) Hospital Location assigned, the DEFAULT LAB OOS LOCATION (#.8) from the LABORATORY SITE
(#69.9) file will be used. If the DEFAULT LAB OOS LOCATION field is not defined, no workload will
be captured.
SCREEN: S DIC("S")="I $P(^(0),U)[""LAB DIV"""
EXPLANATION: Locations are Name Spaced
68,.9 USER ACCESS AUTHORIZATION 0;14 POINTER TO SECURITY KEY FILE (#19.1)
LAST EDITED: NOV 14, 1988
DESCRIPTION: If left blank, any lab person may access this accession area. If filled in, only lab persons
holding the key that is entered here may use this accession area.
68,1 INSTRUMENTATION CONTROLS .5;0 POINTER Multiple #68.09 (Add New Entry without Asking)
DESCRIPTION: Select the instrument (if appropriate, otherwise use the MANUAL selection) to be associated with
the controls you will be selecting.
68.09,.01 INSTRUMENTATION CONTROLS 0;1 POINTER TO AUTO INSTRUMENT FILE (#62.4)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: NOV 06, 1983
DESCRIPTION: You may only change the selection you have chosen by "selecting" another one. If you wish to
change THIS one, you must delete it first. (The internal FileMan number is significant, so we
can't change the text.)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68.09,1 CONTROL NAME 1;0 POINTER Multiple #68.1 (Add New Entry without Asking)
DESCRIPTION: The control that should always be placed with the accession number to be defined with the ACC #
field .001
68.1,.001 ACC # NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N)!$D(^LRO(68,DA(1),.5,DA,X)) X
LAST EDITED: JUL 20, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
DESCRIPTION: The numeric part of the accession to be assigned for the indicated control, if the number is
available and automatic accessioning of controls is tasked.
EXECUTABLE HELP: W " NUMBER MUST NOT BE A DUPLICATE"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68.1,.01 CONTROL NAME 0;1 POINTER TO LAB CONTROL NAME FILE (#62.3) (Multiply asked)
LAST EDITED: NOV 06, 1983
DESCRIPTION: The control that should always be placed with the accession number to be defined with the ACC #
field .001.
68,2 DATE 1;0 DATE Multiple #68.01 (Add New Entry without Asking)
LAST EDITED: MAR 13, 1991
DESCRIPTION:
The date of the accession.
68.01,.01 DATE 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y,DINUM=Y K:Y<1 X,DINUM
LAST EDITED: AUG 17, 1984
DESCRIPTION:
The date of the accession.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68.01,1 ACCESSION NUMBER 1;0 POINTER Multiple #68.02 (Add New Entry without Asking)
DESCRIPTION:
The numeric part of the accession.
68.02,.001 LOG NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: MAR 14, 2005
HELP-PROMPT: Type a number between 1 and 999999, 0 Decimal Digits
DESCRIPTION:
The numeric part of the accession.
68.02,.01 LRDFN 0;1 POINTER TO LAB DATA FILE (#63) (Required) (Multiply asked)
LAST EDITED: JUL 26, 1989
DESCRIPTION:
The internal pointer to file 63 is stored here.
CROSS-REFERENCE: 68.02^AE^MUMPS
1)= Q ;S:ACCESSION HAS BEEN COUNTED FOR WKLD ^LRO(68,LRAA,1,LRAD,1,LRAN,"AE")=""
2)= Q ;NOT KILLED
CROSS-REFERENCE: 68.02^AVS^MUMPS
1)= Q ;S ^LRO("AVS",LRAA,LRAD,LRAN)=LRDFN_U_LRIDT
2)= Q
68.02,.02 PARENT FILE ; COMPUTED
MUMPS CODE: X ^DD(68.02,.02,9.2) S Y(68.02,.02,101)=$S($D(^LR(D0,0)):^(0),1:"") S X=$S('$D(^DIC(+$P(Y(68.02,.02
,101),U,2),0)):"",1:$P(^(0),U,1)) S D0=Y(68.02,.02,2)
9.2 = S Y(68.02,.02,2)=$S($D(D0):D0,1:""),Y(68.02,.02,1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:""),
D0=$P(Y(68.02,.02,1),U,1) S:'$D(^LR(+D0,0)) D0=-1
ALGORITHM: LRDFN:PARENT FILE
DESCRIPTION:
The computed field for the File # (field 1).
68.02,.03 NAME ; COMPUTED
MUMPS CODE: X ^DD(68.02,.03,9.2) S Y(68.02,.03,101)=$S($D(^LR(D0,0)):^(0),1:""),Y(68.02,.03,102)=X,Y=$P(Y(68.02
,.03,101),U,3) X:$D(^DD(63,.03,2)) ^(2) S X=Y S D0=Y(68.02,.03,2)
9.2 = S Y(68.02,.03,2)=$S($D(D0):D0,1:""),Y(68.02,.03,1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:""),
D0=$P(Y(68.02,.03,1),U,1) S:'$D(^LR(+D0,0)) D0=-1
ALGORITHM: LRDFN:NAME
DESCRIPTION:
The computed field for the entity's name.
68.02,.09 HOSPITAL ID ; COMPUTED
MUMPS CODE: X ^DD(68.02,.09,9.2) X $P(^DD(63,.09,0),U,5,99) S Y(68.02,.09,101)=X S X=Y(68.02,.09,101) S D0=Y(68
.02,.09,2)
9.2 = S Y(68.02,.09,2)=$S($D(D0):D0,1:""),Y(68.02,.09,1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:""),
D0=$P(Y(68.02,.09,1),U,1) S:'$D(^LR(+D0,0)) D0=-1
ALGORITHM: LRDFN:HOSPITAL ID
LAST EDITED: JAN 23, 1984
DESCRIPTION:
The computed field for the entity's hospital ID.
68.02,1 FILE # 0;2 POINTER TO FILE FILE (#1)
LAST EDITED: DEC 11, 2001
DESCRIPTION:
The pointer to the File of Files for the entity in field .01 is stored here.
68.02,2 ORIGINAL ACCN DATE 0;3 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 10, 1984
DESCRIPTION:
The date part of the original accession is stored here.
68.02,3 DATE ORDERED 0;4 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
The date the order was placed is stored here.
68.02,4 SPECIMEN NUMBER 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 23, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
DESCRIPTION:
The internal specimen number is stored here.
68.02,5 IDENTITY 0;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>11!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-11 CHARACTERS IN LENGTH
DESCRIPTION:
The identity from e.g. reference labs etc. is stored here.
CROSS-REFERENCE:68.02^C
1)= S ^LRO(68,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)=""
2)= K ^LRO(68,DA(2),1,DA(1),1,"C",$E(X,1,30),DA)
68.02,6 REPORT ROUTING LOCATION 0;7 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X I $D(X) X:X="?" ^DD(68.02,6,4) Q:X="?" S LRLLOC=X,DIC(0)="EQMZ",DIC=44 D
^DIC S:$D(Y(0)) X=$P(Y(0),U,1) X:Y<1 ^DD(68.02,6,9.2) Q:'$D(X) S:X']"" X="UNK" S:$D(LRDFN) ^LR(+LR
DFN,.1)=X
9.2 = K X R !?3,"NON-STANDARD LOCATION!, OK? N//",YN:300 I $T S:YN["Y" X=LRLLOC
LAST EDITED: SEP 18, 1989
DESCRIPTION: The service/location from which the original order came. The report is routed back to this
location.
EXECUTABLE HELP:S X="?",DIC(0)="Q",DIC="^SC(",D="B" K DO D DQ^DICQ K DIC S DIC=DIE D DO^DIC1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68.02,6.5 PROVIDER 0;8 POINTER TO NEW PERSON FILE (#200) (Required)
INPUT TRANSFORM:S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
9.2 = K X R !?3,"PROVIDER NOT ON FILE!, OK? N//",YN:300 I $T S:YN["Y" X=PROV
LAST EDITED: NOV 30, 1993
DESCRIPTION:
The internal number of the provider requesting the test(s) is stored here.
SCREEN: S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
EXPLANATION: Selection must be made from active PROVIDERS who hold the PROVIDER security key.
68.02,6.6 TREATING SPECIALITY 0;9 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) (Required)
LAST EDITED: FEB 04, 1986
DESCRIPTION:
The treating specialty of the location requesting the test.
TECHNICAL DESCR:
This node may be set from the default treating specialty field (#607) of the LABORATORY SITE file
(#69.9). The 19th. peice of LRPARAM variable.
68.02,6.7 LOG-IN PERSON 0;10 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
The pointer to the person (NEW PERSON file) creating this accession is stored here.
68.02,8 HARDWARE SPECIAL NUMBERS 2;E1,200 FREE TEXT
INPUT TRANSFORM:K:$L(X)>200!($L(X)<1) X
LAST EDITED: MAY 31, 1985
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH
DESCRIPTION:
Data from automated instruments may be stored here for debugging purposes.
68.02,9 DRAW TIME 3;1 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 08, 1988
DESCRIPTION:
The date/time the specimen was taken.
68.02,10 DATE/TIME OBTAINED INEXACT 3;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 14, 1987
DESCRIPTION:
This field has a "NO" if the draw time is estimated or unknown.
68.02,11 TESTS 4;0 POINTER Multiple #68.04 (Add New Entry without Asking)
DESCRIPTION:
The pointers to the Laboratory Tests for this accession.
68.04,.01 TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
LAST EDITED: MAR 25, 1993
DESCRIPTION:
The pointers to the Laboratory Tests for this accession.
CROSS-REFERENCE:68.04^B
1)= S ^LRO(68,DA(3),1,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^LRO(68,DA(3),1,DA(2),1,DA(1),4,"B",$E(X,1,30),DA)
68.04,1 URGENCY OF TEST 0;2 POINTER TO URGENCY FILE (#62.05) (Required)
LAST EDITED: NOV 09, 1984
DESCRIPTION:
The urgency of the test being completed, e.g. stat, routine, etc.
68.04,2 LOAD LIST ENTRY 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: JAN 23, 1984
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
The load/work list location is stored here in ";" piece format. "load list pointer;tray;cup"
68.04,3 TECHNOLOGIST 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 02, 1992
DESCRIPTION: The DUZ of the person verifying the test. NOTE: This field previously contained technologist
initials. Converted with the release of version 5.2.
68.04,4 COMPLETE DATE 0;5 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 14, 1991
HELP-PROMPT: Null or 0 represents an incomplete test, date/time represents when completed.
DESCRIPTION:
If null, the test is incomplete. Otherwise, it is the date/time of completion.
CROSS-REFERENCE:68.04^AC^MUMPS
1)= S ^LRO(68,DA(3),1,DA(2),1,"AC",X,DA(1))=""
2)= K ^LRO(68,DA(3),1,DA(2),1,"AC",X,DA(1))
CROSS-REFERENCE:68.04^AD^MUMPS
1)= S ^LRO(68,DA(3),1,DA(2),1,"AD",+$P(X,".",1),DA(1))=""
2)= K ^LRO(68,DA(3),1,DA(2),1,"AD",+$P(X,".",1),DA(1))
CROSS-REFERENCE:68^AA^MUMPS
1)= S A=$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7) S:'A ^LRO(68,"AA",DA(3)_"|"_DA(2)_"|"_DA(1)_"
|"_DA)=""
2)= K ^LRO(68,"AA",DA(3)_"|"_DA(2)_"|"_DA(1)_"|"_DA)
Sets x-ref for WKLD workload
CROSS-REFERENCE:^^TRIGGER^68.04^5.1
1)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$
S($D(^LRO(68,D0,1,D1,1,D2,4,D3,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(68.04,4,1,4,1.
1) X ^DD(68.04,4,1,4,1.4)
1.1)= S X=DIV S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0
1.4)= S DIH=$S($D(^LRO(68,DIV(0),1,DIV(1),1,DIV(2),4,DIV(3),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV
,DIH=68.04,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$
S($D(^LRO(68,D0,1,D1,1,D2,4,D3,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(68.04,4,1,4,2.
1) X ^DD(68.04,4,1,4,2.4)
2.1)= S X=DIV S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0
2.4)= S DIH=$S($D(^LRO(68,DIV(0),1,DIV(1),1,DIV(2),4,DIV(3),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV
,DIH=68.04,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
3)= Use to indicate some change has be make to the complete date.
CREATE VALUE)= S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0
DELETE VALUE)= S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0
FIELD)= TALL
This trigger sets the Amis Tally field to 0
68.04,5 DISPOSITION 0;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>25!($L(X)<1) X
LAST EDITED: NOV 19, 1998
HELP-PROMPT:Answer must be 1-25 characters in length.
68.04,5.1 TALLY TO WKLD 0;7 SET
'1' FOR YES;
'0' FOR HAS NOT;
LAST EDITED: NOV 05, 1993
DESCRIPTION:If test was counted for WKLD workload, workload file entry
is entered here.
This flag prevents the test from being counted
more than once.
UNEDITABLE
NOTES: TRIGGERED by the COMPLETE DATE field of the TESTS sub-field of the ACCESSION NUMBER sub-field of
the DATE sub-field of the ACCESSION File
68.04,6 WKLD CODE 1;0 POINTER Multiple #68.14
DESCRIPTION: This sub file is devoted entirely to workload functions. The data is stuffed automatically by
routines at the time of verification of the test.
68.14,.01 WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked)
OUTPUT TRANSFORM:S Y(0)=Y I $G(Y) S Y=$P($G(^LAM(+Y(0),0)),U) S:$P($G(^LAM(+Y(0),0)),U,5) Y="+"_$P(^(0),U)
LAST EDITED: APR 29, 1994
HELP-PROMPT:Enter WKLD code for this test.
DESCRIPTION:
WKLD codes associated with test/procedure are entered here.
CROSS-REFERENCE:68.04^AB
1)= S ^LRO(68,DA(4),1,DA(3),1,DA(2),4,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^LRO(68,DA(4),1,DA(3),1,DA(2),4,"AB",$E(X,1,30),DA(1),DA)
68.14,.02 TEST MULTIPLY FACTOR 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 27, 1991
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
Enter the number of times the WKLD code is used for the test/procedure.
68.14,.03 WKLD CODE COUNTED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAY 07, 1990
DESCRIPTION: This field is used by the workload compiling routine to prevent the WKLD code from being counted
twice. The number 1 indicates the weight has been captured for this WKLD code.
NOTE: THIS FIELD SHOULD NOT BE MANUALLY EDITED.
68.14,.04 WKLD CODE TALLY 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 07, 1990
HELP-PROMPT:Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:A WKLD code may have several individual counts.
Each time a count is made it is added to the WKLD
code tally and the WKLD CODE COUNTED flag is set to zero.
68.14,.05 WKLD CODE REPEAT COUNT 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 16, 1990
HELP-PROMPT:Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION: This field is not being presently used. It may be used in the future to automatically capture
repeat workload. Another field in ^LRO(64.1, is being used to capture this data from manual
entry.
68.14,1 COMPLETION TIME 0;6 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 29, 1990
DESCRIPTION: This field conatins the completion time for this individual WKLD code procedure. It calulated at
the time of verification by the routines which stuff the data into this field.
68.14,2 USER 0;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 31, 1992
DESCRIPTION: This field contains the person (NEW PERSON file) which verified this particular portion of the
test. This field is automatically stuffed at the time of verification.
68.14,3 INSTITUTION 0;8 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: DEC 27, 1990
DESCRIPTION: This is the institution the verifying person used when logging on to the system. This field
allow the workload from Multi-Div sites to be stored and counted separately.
TECHNICAL DESCR:
The value of DUZ(2) is used for this field.
68.14,4 MAJOR SECTION 0;9 POINTER TO ACCESSION FILE (#68)
LAST EDITED: MAR 26, 1991
DESCRIPTION: This field contains the accession area which should recieve credit for this workload. ie
CHEMISTRY
TECHNICAL DESCR:
This data is obtained when the user selects a worklist. The worklist has this data predefined.
The default value is the accession area which contains the data.
68.14,5 LAB SUBSECTION 0;10 POINTER TO ACCESSION FILE (#68)
LAST EDITED: DEC 28, 1990
DESCRIPTION: This the second level used for identifying where workload credit should be credited.
ie. SPECIAL CHEMISTRY
TECHNICAL DESCR:
This data is obtained when the user selects a worklist. The worklist has this data predefined.
The default is the accession area which contains the data.
68.14,6 WORK AREA 0;11 POINTER TO ACCESSION FILE (#68)
INPUT TRANSFORM:S DIC("S")="I $L($P(^(0),U,17))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 13, 1991
DESCRIPTION: This is the lowest level used to credit workload. This field may be the same as the LAB
SUBSECTION entry.
i.e., ELECTROPHORESIS
TECHNICAL DESCR:
This data is obtained when the user selects a worklist. The worklist has this data predefined.
The default is the entry in either LAB SUBSECTION or the value found in MAJOR SECTION entries.
SCREEN: S DIC("S")="I $L($P(^(0),U,17))"
EXPLANATION:Select only accession areas identified as Work Areas.
68.14,12 MANUAL EDIT 0;12 SET
'1' FOR YES;
LAST EDITED: APR 10, 1991
DESCRIPTION: If this data is entered manually via a edit template. This field would indicate if the data was
not stuffed automatically.
68.04,7 *IDENTITY 7;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1) X
LAST EDITED: JAN 10, 1991
HELP-PROMPT:Answer must be 1-4 characters in length.
DESCRIPTION:
Will deleted in future versions.
68.04,8 WKLD SUFFIX 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1) X
LAST EDITED: FEB 08, 1991
HELP-PROMPT:Answer must be 1-4 characters in length.
DESCRIPTION: This field contains the WKLD code suffix used to identify the method used to verify this
particular test. The suffix is stuffed at the time of verification automatically. This field can
be used to sort methods used to assay various test.
The decimal point of the WKLD code suffix is stripped off.
68.04,8.1 PARENT TEST 0;9 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: DEC 11, 1996
DESCRIPTION: This field contains the parent ordered test. In the case of panel test, this field will contain
the original ordered test.
68.04,9 SHIPPING MANIFEST 0;10 POINTER TO LAB SHIPPING MANIFEST FILE (#62.8)
LAST EDITED: APR 22, 1997
HELP-PROMPT:Enter the shipping manifest that this test is on.
DESCRIPTION:This fields is used at the collection site to determine the exact placement of each test. This
field will contain the shipping manifest code for referral or send out lab tests. For all local
tests the field will be null.
68.02,12 LAB ARRIVAL TIME 3;3 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
The date/time the specimen arrived at the lab.
CROSS-REFERENCE:68.02^E
1)= S ^LRO(68,DA(2),1,DA(1),1,"E",$E(X,1,30),DA)=""
2)= K ^LRO(68,DA(2),1,DA(1),1,"E",$E(X,1,30),DA)
68.02,13 DATE/TIME RESULTS AVAILABLE 3;4 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 13, 1990
DESCRIPTION:
The date/time all results for the accession are available.
CROSS-REFERENCE:68^AC^MUMPS
1)= D AC^LRXREF1
2)= D AC1^LRXREF1
CROSS-REFERENCE:68.02^AVS^MUMPS
1)= D:$D(DIU(0)) AVS1^LRXREF D:'$D(DIU(0)) AVS3^LRXREF
2)= D:$D(DIU(0)) AVS2^LRXREF D:'$D(DIU(0)) AVS4^LRXREF
68.02,13.5 INVERSE DATE 3;5 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=9999999-Y K:Y<1 X
LAST EDITED: JUL 13, 1987
DESCRIPTION:
9999999 minus the internal entry in field 9
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68.02,13.6 COMMENT 3;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: APR 11, 1984
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
A one line comment for the accession.
68.02,14 ORDER # .1;1 FREE TEXT
INPUT TRANSFORM:K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>8!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
DESCRIPTION:
The original order number is stored here.
CROSS-REFERENCE:68.02^D
1)= S ^LRO(68,DA(2),1,DA(1),1,"D",$E(X,1,30),DA)=""
2)= K ^LRO(68,DA(2),1,DA(1),1,"D",$E(X,1,30),DA)
68.02,15 ACCESSION .2;1 FREE TEXT
PRINTABLE ACCESSION
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7) X
LAST EDITED: MAR 03, 2005
HELP-PROMPT:ANSWER MUST BE ACCESSION, e.g., CH 0428 125
DESCRIPTION:
The printable form of the Accession is stored here.
68.02,15.1 IN COMMON ACCESSION AD;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<7) X
LAST EDITED: MAR 03, 2005
HELP-PROMPT:Answer must be 7-15 characters in length
DESCRIPTION:When this accession area is 'in common' with another accession area the printable form of the 'in
common' accession is stored here.
68.02,16 UID .3;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<10) X
LAST EDITED: FEB 26, 1997
HELP-PROMPT:Answer must be 10-15 characters in length.
DESCRIPTION: This is the UID used by the HOST LEDI system for this order/accession.
This field is used by the LEDI software.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:68^C
1)= S:'$D(^LRO(68,"C",$E(X,1,30))) ^LRO(68,"C",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^LRO(68,"C",$E(X,1,30),DA(2),DA(1),DA)
3)= DO NOT DELETE THIS XREF
68.02,16.1 ORDERING SITE .3;2 POINTER TO INSTITUTION FILE (#4)
INPUT TRANSFORM:S DIC("S")="I $G(^DIC(4,Y,99))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 26, 1997
DESCRIPTION: This field contains the pointer to the INSTITUTION file for the MailMan domain location of the
computer system. All LEDI results are returned to the Ordering computer system.
Location to send LEDI HL7 result messages.
This field is used by LEDI software.
SCREEN: S DIC("S")="I $G(^DIC(4,Y,99))"
EXPLANATION:Select Sites with station numbers only
CROSS-REFERENCE:68^AF
1)= S ^LRO(68,"AF",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^LRO(68,"AF",$E(X,1,30),DA(2),DA(1),DA)
68.02,16.2 COLLECTING SITE .3;3 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: FEB 26, 1997
DESCRIPTION: This field contain the pointer to the INSTITUTION file for the actual collection site. The
ordering site is the MailMan location of the computer system. MailMan domain location and the
collecting site may be different.
This field is used by LEDI software.
68.02,16.3 HOST UID .3;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<10) X
LAST EDITED: FEB 26, 1997
HELP-PROMPT:Answer must be 10-15 characters in length.
DESCRIPTION: Each Order/Accession is given a HOST UID. The UID is stored in this location. If LEDI software
is used to accession specimens, usually the collecting sites UID is used to track specimens. If
the collecting UID conflict is the HOST system number sequence, the HOST UID will be used instead
of the collecting site's UID.
This field is used by LEDI software.
CROSS-REFERENCE:68^D
1)= S:'$D(^LRO(68,"D",$E(X,1,30))) ^LRO(68,"D",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^LRO(68,"D",$E(X,1,30),DA(2),DA(1),DA)
68.02,16.4 ORDERING SITE UID .3;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<10) X
LAST EDITED: FEB 26, 1997
HELP-PROMPT:Answer must be 10-15 characters in length.
DESCRIPTION: This field contains the collecting sites UID for this specimen.
This field is used by LEDI software.
68.02,26 DIV .4;1 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: AUG 10, 1995
DESCRIPTION: This field contains the division of the person ordering the test for this accession number. The
DUZ(2) is used to determine the division pointer. In some cases this field may be blank, example
auto accession controls.
CROSS-REFERENCE:68.01^AC
1)= S ^LRO(68,DA(2),1,"AC",$E(X,1,30),DA(1),DA)=""
2)= K ^LRO(68,DA(2),1,"AC",$E(X,1,30),DA(1),DA)
This cross reference is used to determine which accession belong to a particular division. Every
accession may not appear in this X-Ref. Care should be taken when using the X-Ref.
68.02,30 PCE ENC # PCE;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: NOV 05, 2002
HELP-PROMPT:Answer must be 1-80 characters in length.
DESCRIPTION:This field contains a list of PCE Encounters generated for this accession. If there are multiple
encounter numbers for this accession, they are separated by ';'.
This field is only populated if professional service PCE workload is generated. This is usually
the type of PCE workload generated by Pathologist reporting anatomical pathology services.
PCE workload is only generated for those hospital locations with the type of clinic, module or
other. No PCE workload is generated for in-patient locations.
68.02,50 SPECIMEN 5;0 POINTER Multiple #68.05 (Add New Entry without Asking)
DESCRIPTION:The site/specimen from the Topography Field file. There may be more than one specimen for
certain types of accessions.
68.05,.01 SPECIMEN 0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: MAR 02, 1983
DESCRIPTION:The site/specimen from the Topography field file. There may be more than one specimen for
certain types of accessions.
68.05,1 COLLECTION SAMPLE 0;2 POINTER TO COLLECTION SAMPLE FILE (#62)
LAST EDITED: MAR 22, 1984
DESCRIPTION:
The collection sample is from file 62.
68.05,2 TEST T;0 POINTER Multiple #68.13 (Add New Entry without Asking)
DESCRIPTION:
This field contains the test ordered for this patient/specimen
SCREEN: S DIC("S")="I $P(^(0),U,4)=""SP"""
EXPLANATION:SELECT ONLY SPECIAL STAINS
68.13,.01 TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: APR 11, 1984
DESCRIPTION:
The procedures to be done on a particular specimen.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68.13,1 TISSUE BLOCK(S) 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: APR 11, 1984
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Used for path examination.
68.13,2 TOTAL SLIDES 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 07, 1986
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This field contains the number of slides used to process this specimen.
68.02,60 NUMBER OF SLIDES 6;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 02, 1983
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 20
DESCRIPTION:
The number of slides prepared for path examination.
68.02,61 PARAFFIN BLOCK(S) 6;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 02, 1983
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 99
DESCRIPTION:
The number of paraffin blocks prepared for path examination.
68.02,80 PROGRESS NOTES 7;0 Multiple #68.06 (Add New Entry without Asking)
DESCRIPTION:
Progress notes on the accession.
68.06,.01 PROGRESS NOTES 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Progress notes on the accession.
68.02,91 CURRENT ACCESSION DATE 9;1 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 01, 1985
HELP-PROMPT:Don't change
DESCRIPTION:This field is set by the roll-over routine in the original accession to point to the
current accession date for accessions that have rolled over.
68.02,92 LOCATION TYPE 0;11 SET
'C' FOR CLINIC;
'M' FOR MODULE;
'W' FOR WARD;
'Z' FOR OTHER;
'N' FOR NON-CLINIC STOP;
'F' FOR FILE AREA;
'I' FOR IMAGING;
'OR' FOR OPERATION ROOM;
LAST EDITED: JAN 20, 1996
DESCRIPTION: This field holds the type of hospital location. $P(^SC(X,0),U,3) It is used primarily
for WKLD calculations. Since the patient may be discharged or admitted before the WKLD
calculation routines run. This field holds a permanent location type.
68.02,93 COUNT FOR WKLD 0;12 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: NOV 05, 1993
HELP-PROMPT:Enter 1 if this accession number has been counted for WKLD
DESCRIPTION: This field is set to 1 if this accession has been counted for workload. This is set
automatically by the tally routines.
NOTE: THIS FIELD SHOULD NOT BE SET MANUALLY.
CROSS-REFERENCE:68.02^AE^MUMPS
1)= I $D(^LRO(68,DA(2),1,DA(1),DA,0)),$P(^(0),U,12) S ^("AE")=""
2)= I $D(^LRO(68,DA(2),1,DA(1),DA,0)),'$P(^(0),U,12) K ^("AE")
68.02,94 ORDERING LOCATION 0;13 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: JAN 10, 1990
HELP-PROMPT:This is the location that is ordering the test.
DESCRIPTION:
This field contains the location placing the order for this patient.
68.01,2 *CURRENT INITIALS 2;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<2) X
LAST EDITED: JUL 19, 1993
HELP-PROMPT:ANSWER MUST BE 2-6 CHARACTERS IN LENGTH
DESCRIPTION:
Will be deleted in future versions.
68.01,3 CURRENT ACCESSION NUMBER 2;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
DESCRIPTION:
The last used accession number.
68.01,4 *CURRENT IDENTITY 2;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>19!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-19 CHARACTERS IN LENGTH
DESCRIPTION:
No longer used. Will be deleted in later versions. 1/89.
68.01,5 CURRENT VERIFY ACC # 2;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
DESCRIPTION:
The last verified accession number.
68.01,6 BULL ALGORITHM CONTROL DATA 3;0 POINTER Multiple #68.07 (Add New Entry without Asking)
DESCRIPTION:
Data is stored here for use in Bull's algorithm.
68.07,.01 METHOD CONTROL DATA 0;1 POINTER TO AUTO INSTRUMENT FILE (#62.4)
INPUT TRANSFORM:S DINUM=X
LAST EDITED: NOV 06, 1983
DESCRIPTION:
Data is stored here for use in Bull's algorithm.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68.07,1 CONTROL DATA 1;0 Multiple #68.08 (Add New Entry without Asking)
DESCRIPTION:
Data from the running average of Bull's algorithm is stored here.
68.08,.01 CONTROL DATA 0;E1,250 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>250!($L(X)<1) X
LAST EDITED: NOV 05, 1983
HELP-PROMPT:ANSWER MUST BE 1-250 CHARACTERS IN LENGTH
DESCRIPTION:
Data from the running average of Bull's algorithm is stored here.
68.07,2 MEAN DATA VALUE 1 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<-99)!(X?.E1"."4N.N) X
LAST EDITED: NOV 05, 1983
HELP-PROMPT:TYPE A NUMBER BETWEEN -99 AND 999
DESCRIPTION:
The Mean Data Value 1 from the Auto Instrument file is reproduced here.
68.07,3 MEAN DATA VALUE 2 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<-99)!(X?.E1"."4N.N) X
HELP-PROMPT:TYPE A NUMBER BETWEEN -99 AND 999
DESCRIPTION:
The Mean Data Value 2 from the Auto Instrument file is reproduced here.
68.07,4 MEAN DATA VALUE 3 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<-99)!(X?.E1"."4N.N) X
HELP-PROMPT:TYPE A NUMBER BETWEEN -99 AND 999
DESCRIPTION:
The Mean Data Value 3 from the Auto Instrument file is reproduced here.
68.01,7 MULTI-RULE VA QC 4;0 POINTER Multiple #68.11 (Add New Entry without Asking)
DESCRIPTION:Quality control comparisons based on Westergard's suggested use of the Multi-rule
Shewhart determinations are stored under this multiple.
68.11,.01 CONTROL NAME 0;1 POINTER TO LAB CONTROL NAME FILE (#62.3) (Multiply asked)
INPUT TRANSFORM:S DINUM=X
LAST EDITED: DEC 24, 1983
DESCRIPTION:The name of the Quality Control to be used in Westergard's suggested use of the
Multi-rule Shewhart determinations.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68.11,1 CONTROL DATA 1;0 POINTER Multiple #68.12 (Add New Entry without Asking)
DESCRIPTION:Data from the Multi-rule Shewhart determinations are stored here for intermediate
computations.
68.12,.01 CONTROL DATA 0;E1,250 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $L($P(^(0),U,5))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DIN
UM=X
LAST EDITED: DEC 25, 1983
DESCRIPTION:Data from the Multi-rule Shewhart determinations are stored here for intermediate
computations.
SCREEN: S DIC("S")="I $L($P(^(0),U,5))"
EXPLANATION:THE TEST MUST HAVE A STORAGE PLACE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
68.11,2 REJECT REASON 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: DEC 26, 1983
HELP-PROMPT:ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
A brief description of the reason to re-examine the controls.
68,5 BAR CODE PRINT 0;15 SET
'0' FOR NONE;
'1' FOR YES;
'2' FOR CODE39;
'3' FOR CODE39 WITH CHECK DIGIT;
'4' FOR CODE128;
LAST EDITED: MAR 31, 1997
DESCRIPTION: This field is used by the label print utilities to determine if bar code labels should be printed
for this accession area.
TECHNICAL DESCR: The routine LRLABLD creates an array LRBAR(ACCESSION AREA) from the LRLBL variable to determine if
bar code labels should be printed.
GROUP: BARCODE
68,5.1 BAR CODE PAD .4;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>15)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 11, 1997
HELP-PROMPT: Type a Number between 1 and 15, 0 Decimal Digits
DESCRIPTION: Enter the number of zeros ("0") to pad an accession number when printing a bar code using the
accession number. Used when site needs a minimum length bar code on labels.
Example if need a four digit bar code then enter four.
This would produce the following:
Accession number Bar Code
1 0001
12 0012
123 0123
1234 1234
12345 12345
GROUP: BARCODE
68,5.2 ALTERNATE LABEL ENTRY .4;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X
LAST EDITED: DEC 17, 1997
HELP-PROMPT: Answer must be 1-8 uppercase alpha and/or numeric characters in length.
DESCRIPTION: Site can enter an alternate label entry point to be used instead of the standard lab label routine
entry point defined in file LABORATORY SITE (#69.9).
This field overrides the label routine settings in file LABORATORY SITE (#69.9) for this accession
area. Field ALTERNATE LABEL ROUTINE (#5.3) must be completed for the software to use this field.
See description of field #5.3.
WRITE AUTHORITY: @
68,5.3 ALTERNATE LABEL ROUTINE .4;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X
LAST EDITED: DEC 17, 1997
HELP-PROMPT: Answer must be 1-8 uppercase alpha and/or numeric characters in length.
DESCRIPTION: Site can enter an alternate label routine to be used instead of the standard lab label routine
defined in file LABORATORY SITE (#69.9).
This field overrides the label routine settings in file LABORATORY SITE (#69.9) for this accession
area. It is used in conjunction with field ALTERNATE LABEL ENTRY (#5.2) for building the variable
LRLABEL.
WRITE AUTHORITY: @
68,8 Reserved 0;18 SET
'1' FOR 2X5 UNEVEN;
'2' FOR ORDER # FIRST;
'3' FOR MEDLAB;
'4' FOR SITE FILE;
'5' FOR SITE DEVELOPED VAF 10-1392;
LAST EDITED: OCT 18, 1992
DESCRIPTION:
Reserved for future use.
68,9 WORK AREA 0;17 SET
'WORK AREA' FOR WORK AREA;
LAST EDITED: NOV 18, 1991
DESCRIPTION: This field should only be edited if this accession area is used for the purpose of workload
definitions. This accession area is then used with load/worklist to define the area of the lab
which should receive WKLD credit.
SPECIMENS CAN NOT BE ACCESSIONED INTO THIS ACCESSION AREA. IT IS SOLELY FOR THE USE WKLD DEFAULT
ANSWERS FOR LMIP/WKLD DATA COLLECTION.
68,10 WORKLOAD ON 0;16 SET
'1' FOR YES;
LAST EDITED: OCT 31, 1992
DESCRIPTION: this field is used to activate wkld collection. Each accession area can be turned on
independently. In order for this field to trigger wkld collection, the field WKLD STATS ON (#17) in
the LABORATORY SITE (#69.9) file must also indicate ON.
68,11 COLLECT STD/QC/REPEATS 0;20 SET
'1' FOR YES;
LAST EDITED: NOV 26, 1993
DESCRIPTION: If you wish to have the verification process to prompt the user for Standards, QC and Repeats
after each session enter a Yes.
This will cause the counts entered to be added to all test the user verified during that
particular session.
The function of entering this data can be also done by the option STD/QC/REPS/MANUAL WKLD COUNT
[LR WKLD STD/QC/REPS] found on the Process Menu [LR DO!].
68,12 EXTERNAL SERVICE AREA 0;22 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 23, 2003
DESCRIPTION:
This field determines if the Accession Area is defined for send out tests.
FILES POINTED TO FIELDS
ACCESSION (#68) COMMON ACCESSION #'S WITH AREA (#.04)
WKLD CODE:MAJOR SECTION (#4)
LAB SUBSECTION (#5)
WORK AREA (#6)
AUTO INSTRUMENT (#62.4) BULL ALGORITHM CONTROL DATA:METHOD CONTROL DATA (#.01)
INSTRUMENTATION CONTROLS:INSTRUMENTATION CONTROLS (#.01)
COLLECTION SAMPLE (#62) SPECIMEN:COLLECTION SAMPLE (#1)
EXECUTE CODE (#62.07) ACCESSION TRANSFORM (#.05)
VERIFICATION CODE (#.06)
*IDENTITY CONTROL (#.07)
FACILITY TREATING SPECIALTY
(#45.7) ACCESSION NUMBER:TREATING SPECIALITY (#6.6)
FILE (#1) ACCESSION NUMBER:FILE # (#1)
HOSPITAL LOCATION (#44) LAB OOS LOCATION (#.8)
ACCESSION NUMBER:ORDERING LOCATION (#94)
INSTITUTION (#4) ACCESSION NUMBER:ORDERING SITE (#16.1)
COLLECTING SITE (#16.2)
DIV (#26)
ASSOCIATED DIVISION:ASSOCIATED DIVISION (#.01)
WKLD CODE:INSTITUTION (#3)
LAB CONTROL NAME (#62.3) CONTROL NAME:CONTROL NAME (#.01)
MULTI-RULE VA QC:CONTROL NAME (#.01)
LAB DATA (#63) ACCESSION NUMBER:LRDFN (#.01)
LAB SECTION (#62.2) *LAB SECTION (#.095)
LAB SHIPPING MANIFEST (#62.8) TESTS:SHIPPING MANIFEST (#9)
LABORATORY TEST (#60) TESTS: TEST (#.01)
PARENT TEST (#8.1)
CONTROL DATA:CONTROL DATA (#.01)
TEST:TEST (#.01)
NEW PERSON (#200) RESPONSIBLE OFFICIAL (#.1)
ACCESSION NUMBER:PROVIDER (#6.5)
LOG-IN PERSON (#6.7)
TESTS:TECHNOLOGIST (#3)
WKLD CODE:USER (#2)
SECURITY KEY (#19.1) USER ACCESS AUTHORIZATION (#.9)
TOPOGRAPHY FIELD (#61) SPECIMEN:SPECIMEN (#.01)
URGENCY (#62.05) TESTS:URGENCY OF TEST (#1)
WKLD CODE (#64) WKLD CODE:WKLD CODE (#.01)
INPUT TEMPLATE(S):
LR ACC CONTROLS AUG 20, 1984 USER #0
LR WKLD STATS ON ACC AREA MAR 23, 1992@15:13 USER #0
PRINT TEMPLATE(S):
LR ACC INFO JUL 09, 1986 USER #0 ACCESSION LIST
LR ACCESSION JUL 09, 1986 USER #0 @
LR ACCESSION INFO JUL 09, 1986 USER #0 ACCESSION LIST
LR FILE 68 JUL 09, 1986 USER #0 ACCESSION LIST
SORT TEMPLATE(S):
LRDFN-TESTS MAY 10, 1988 USER #0
SORT BY: DATE//
DATE SUB-FIELD: DATE// (User is asked range)
WITHIN DATE, SORT BY: DATE//
DATE SUB-FIELD: ACCESSION NUMBER//
ACCESSION NUMBER SUB-FIELD: LRDFN//
WITHIN LRDFN, SORT BY: DATE//
DATE SUB-FIELD: ACCESSION NUMBER//
ACCESSION NUMBER SUB-FIELD: TESTS//
TESTS SUB-FIELD: TESTS//
FORM(S)/BLOCK(S):