STANDARD DATA DICTIONARY #67.9 -- LAB MONTHLY WORKLOADS FILE 3/24/25 PAGE 1
STORED IN ^LRO(67.9, *** 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 collect workload data in preparation for transmission to the National Data Base. Each months LMIP reportable
statistics is compiled into this file. The file is reviewed by the Laboratory Approving Official, the a mail message is prepared
and forwarded to the user. The user in turn forwards the mail message to the appropriate Domain.
This file should be archived before purging the data.
THIS FILE SHOULD NOT BE LOCALLY EDITED.
DD ACCESS: @
WR ACCESS: l
DEL ACCESS: l
LAYGO ACCESS: l
CROSS
REFERENCED BY: PRIMARY INSTITUTION(B)
67.9,.01 PRIMARY INSTITUTION 0;1 POINTER TO INSTITUTION FILE (#4) (Required)
INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: AUG 18, 1992
DESCRIPTION:
The reporting institution for this report
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 67.9^B
1)= S ^LRO(67.9,"B",$E(X,1,30),DA)=""
2)= K ^LRO(67.9,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^67.9^.1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(67.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S D
IU=X K Y X ^DD(67.9,.01,1,2,1.1) X ^DD(67.9,.01,1,2,1.4)
1.1)= S X=DIV S X=$P(^DIC(4,+^LRO(67.9,DA,0),0),"^",1)
1.4)= S DIH=$S($D(^LRO(67.9,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.9,DIG=.1 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(67.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S D
IU=X K Y S X=DIV S X="@" X ^DD(67.9,.01,1,2,2.4)
2.4)= S DIH=$S($D(^LRO(67.9,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.9,DIG=.1 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S X=$P(^DIC(4,+^LRO(67.9,DA,0),0),"^",1)
DELETE VALUE)= S X="@"
FIELD)= #.1
THIS FIELD IS TRIGGERED BY IN THE .01 FIELD
67.9,.1 PRINT NAME PRIMARY INSTITUTION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>35!($L(X)<3) X
LAST EDITED: JUL 08, 1992
HELP-PROMPT: Answer must be 3-35 characters in length.
DESCRIPTION:
The print name of the primary institution
EXECUTABLE HELP: W !,"This field should not be edited."
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: TRIGGERED by the PRIMARY INSTITUTION field of the LAB MONTHLY WORKLOADS File
67.9,1 DIVISION 1;0 POINTER Multiple #67.901 (Add New Entry without Asking)
DESCRIPTION: This field contains what division this site is identified by. In most cases the primary and the
division are one in the same. This field is used by sites which have multi-divisional operations.
67.901,.01 DIVISION 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
INPUT TRANSFORM: I $D(X) S DINUM=X
OUTPUT TRANSFORM: S Y=$P(^DIC(4,+Y,0),U,1)
LAST EDITED: AUG 18, 1992
DESCRIPTION:
This field contains what division this site is identified by.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^67.901^.5
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(67.901,.01,1,1,1.1) X ^DD(67.901,.01,1,1,1.4)
1.1)= S X=DIV S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),"^",1)
1.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=
.5 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(^LRO(67.9,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(67.901,.01,1,1,2.4)
2.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=
.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),"^",1)
DELETE VALUE)= S X=""
FIELD)= #.5
CROSS-REFERENCE:67.901^B
1)= S ^LRO(67.9,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LRO(67.9,DA(1),1,"B",$E(X,1,30),DA)
67.901,.5 PRINT NAME DIVISION 0;2 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>35!($L(X)<3) X
LAST EDITED: JUL 08, 1992
HELP-PROMPT: Answer must be 3-35 characters in length.
DESCRIPTION:
This is the print name of the division.
UNEDITABLE
NOTES: TRIGGERED by the DIVISION field of the DIVISION sub-field of the LAB MONTHLY WORKLOADS File
67.901,1 MONTH 1;0 DATE Multiple #67.911
DESCRIPTION:
Multiple field. Contains information about the monthly data.
67.911,.01 MONTH 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,5)_"00"
LAST EDITED: JUN 23, 1992
DESCRIPTION:
The month that is being used to compile the data.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:67.911^B
1)= S ^LRO(67.9,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LRO(67.9,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
67.911,1 CERTIFIED BY 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 20, 1993
DESCRIPTION:
Person certifying the data.
67.911,2 DATE COMPILED 0;3 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 27, 1992
DESCRIPTION:
The date that the data was compiled.
67.911,3 MESSAGE NUMBER 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>50!($L(X)<1) X
LAST EDITED: FEB 14, 1996
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION:
This is the number of the message.
67.911,4 WKLD CODE 1;0 Multiple #67.9114 (Add New Entry without Asking)
DESCRIPTION:
Multiple field. Contains information about the WKLD codes.
67.9114,.01 WKLD CODE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>10!($L(X)<9)!('$D(^LAM("E",X))) X
LAST EDITED: JUN 23, 1992
HELP-PROMPT: Answer must be 9-10 characters in length.
DESCRIPTION:
This is the workload code. (a number)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:67.9114^B
1)= S ^LRO(67.9,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LRO(67.9,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE:^^TRIGGER^67.9114^.03
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(67.9,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIG^LRX
REF X ^DD(67.9114,.01,1,2,1.4)
1.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=D
IV,DIH=67.9114,DIG=.03 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(67.9,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(67.91
14,.01,1,2,2.4)
2.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=D
IV,DIH=67.9114,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= D TRIG^LRXREF
DELETE VALUE)= @
FIELD)= WKLD CODE NAME
This trigger will stuf the WKLD code name into field .03.
67.9114,.03 WKLD CODE NAME 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<3) X
LAST EDITED: JAN 19, 1996
HELP-PROMPT:Answer must be 3-60 characters in length.
DESCRIPTION:
This is the actual name of the WKLD code.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the WKLD CODE field of the WKLD CODE sub-field of the MONTH sub-field of the DIVISION
sub-field of the LAB MONTHLY WORKLOADS File
67.9114,1 IN PATIENT CNT 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1992
HELP-PROMPT:Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION:
Number of inpatient counts.
67.9114,2 OUT PATIENT CNT 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1992
HELP-PROMPT:Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION:
Number of out-patient counts.
67.9114,3 OTHER PATIENT CNT 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1992
HELP-PROMPT:Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION:
Number of other patient counts.
67.9114,4 QC CNT 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1992
HELP-PROMPT:Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION:
Number of QC counts.
67.9114,5 IN PATIENT STATS 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1992
HELP-PROMPT:Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION:
Number of in-patient STATS.
67.9114,6 TOT STATS 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1992
HELP-PROMPT:Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION:
Number of all STATS.
67.9114,7 MANUAL INPUT DATA 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>1000000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1992
HELP-PROMPT:Type a Number between 0 and 1000000, 0 Decimal Digits
DESCRIPTION:
Number of data put in manually.
67.9114,7.5 SEND OUT TEST 0;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 21, 1993
HELP-PROMPT:Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION: This field contain the test which are performed by some other lab than the one filing LMIP
reports. All test sent of a reference/referral lab, research lab, medical school, commercial are
included in this total.
The suffix portion of the WKLD code determine if the procedure is send out (.8000-.8999)
TECHNICAL DESCR:
This field is the same for total for all send out/referred testing. Only wkld codes with a
suffix between 8000-8999 will have a value in this field.
67.9114,8 TREATING SPECIALITY 1;0 Multiple #67.91148 (Add New Entry without Asking)
LAST EDITED: MAY 28, 1992
DESCRIPTION:
Multiple field. Containing data about the treating specialty.
67.91148,.01 TREATING SPECIALITY CODE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:Q:X="XX "!(X="XY ") S X=$S(X&$L(X)=1:0_X,1:X) K:$L(X)>3!($L(X)<2)!('$D(^DIC(42.4,+X,0))#2) X
OUTPUT TRANSFORM:S Y=$S($D(^DIC(42.4,+Y,0)):$P(^(0),U),Y="XY ":"BLOOD BANK",1:"AMBULATORY CARE")
LAST EDITED: AUG 25, 1993
HELP-PROMPT:Answer must be 2 characters in length. Or 'XX' for AMBULATORY CARE Treating Speciality.
DESCRIPTION:
Code for treating specialty.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:67.91148^B
1)= S ^LRO(67.9,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LRO(67.9,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE:^^TRIGGER^67.91148^.03
1)= X ^DD(67.91148,.01,1,2,1.3) S Y(1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,1,D4,0)):^(0),1:"") S X=$P
(Y(1),U,3),X=X S DIU=X K Y S X=DIV D TRIGTS^LRXREF X ^DD(67.91148,.01,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA(4),DIV(0)=D0,D1=DA(3),DIV(1)=D1,D2=DA(2),DIV(2)=D2,D3=DA(1),DIV(3)=D3,D4=
DA,DIV(4)=D4
1.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),1,DIV(4),0)):^(0),1:""),DIV=X S $P(^(
0),U,3)=DIV,DIH=67.91148,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(4),DIV(0)=D0,D1=DA(3),DIV(1)=D1,D2=DA(2),DIV(2)=D2,D3=DA(1),DIV(3)=D3,D4=DA
,DIV(4)=D4 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,1,D4,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=
X K Y S X="" X ^DD(67.91148,.01,1,2,2.4)
2.4)= S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),1,DIV(4),0)):^(0),1:""),DIV=X S $P(^(
0),U,3)=DIV,DIH=67.91148,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= D TRIGTS^LRXREF
DELETE VALUE)= @
FIELD)= TREATING SPECIALITY NAME
This trigger stuffs the treating speciality name automatically.
67.91148,.03 TREATING SPECIALITY NAME 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAR 20, 1993
HELP-PROMPT:Answer must be 3-30 characters in length.
DESCRIPTION:
Name of the treating specialty.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the TREATING SPECIALITY CODE field of the TREATING SPECIALITY sub-field of the WKLD
CODE sub-field of the MONTH sub-field of the DIVISION sub-field of the LAB MONTHLY WORKLOADS File
67.91148,1 CNT 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1992
HELP-PROMPT:Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION:
Number of treating specialty counts.
67.9114,9 REPORTABLE TEST COUNT ; COMPUTED
MUMPS CODE: X ^DD(67.9114,9,9.2) S X=X+$P(Y(67.9114,9,1),U,8) S X=$J(X,0,0)
9.2 = S Y(67.9114,9,1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(67.9114,9,1),U,2)+
$P(Y(67.9114,9,1),U,3)+$P(Y(67.9114,9,1),U,4)
ALGORITHM: IN PATIENT CNT+OUT PATIENT CNT+OTHER PATIENT CNT+MANUAL INPUT DATA (ALWAYS 0 DECIMAL DIGITS)
DESCRIPTION:
Number of reportable test counts.
67.9114,10 LMIP BILLABLE TEST 2;1 SET
'1' FOR YES;
LAST EDITED: MAR 20, 1993
HELP-PROMPT:Answer yes if this procedure should be reported to LMIP
DESCRIPTION:
If this procedure should be reported to the National Data base as an LMIP defined procedure, this
field will be set to yes by the data extracting program. This field should not be manually edited.
To have this field set to yes, edit the BILLABLE PROCEDURE field in the WKLD CODE (#64) file.
TECHNICAL DESCR:
When the data is transferred to the MONTHLY WORKLOAD file at the end of each month this field is
marked accordingly.
67.9114,11 REP/STD 0;11 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999)!(X<-10000)!(X?.E1"."1N.N) X
LAST EDITED: AUG 08, 1993
HELP-PROMPT:Type a Number between -10000 and 99999, 0 Decimal Digits
DESCRIPTION:
This is the total for repeat, dilutions and standards for the WKLD code.
67.9114,12 OTHERS 0;12 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 31, 1993
HELP-PROMPT:Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
This field is used for all other types of specimens not coming from the Patient file, Lab Control
file or the Referral Patient.
FILES POINTED TO FIELDS
INSTITUTION (#4) PRIMARY INSTITUTION (#.01)
DIVISION:DIVISION (#.01)
NEW PERSON (#200) MONTH:CERTIFIED BY (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
LR CAP ELROY APR 06, 1998@11:58 USER #0 LAB MONTHLY WORKLOADS STATISTICS
LRAR ARCHIVE 67.9 FEB 02, 1995 USER #0
SORT TEMPLATE(S):
LR CAP ELROY MAR 26, 1998@11:44 USER #0
SORT BY: DIVISION//
DIVISION SUB-FIELD: DIVISION// (User is asked range)
WITHIN DIVISION, SORT BY: 'DIVISION//
DIVISION SUB-FIELD: MONTH//
MONTH SUB-FIELD: MONTH// (User is asked range)
WITHIN MONTH, SORT BY: +DIVISION;S1//
DIVISION SUB-FIELD: MONTH//
MONTH SUB-FIELD: WKLD CODE//
WKLD CODE SUB-FIELD: WKLD CODE// (User is asked range)
FORM(S)/BLOCK(S):