STANDARD DATA DICTIONARY #67.99999 -- ARCHIVED LAB MONTHLY WORKLOADS FILE 9/29/25 PAGE 1
STORED IN ^LAR(67.99999, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains archived LAB MONTHLY WORKLOADS file data. It is an exact copy of ^LRO(67.9 but is designed to be deleted from
the system to free disk space. I can also be restored with out overlaying current data.
Not all sites will make use of this file. If this file is used then historical reports are possible. This file should be
populated before the LAB MONTHLY WORKLOADS [^LRO(67.9)] global is purged from the system.
THIS IS AN ARCHIVE FILE.
EDITING OF FILE IS NOT ALLOWED.
CROSS
REFERENCED BY: PRIMARY INSTITUTION(B)
67.99999,.01 PRIMARY INSTITUTION 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: APR 05, 1994
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
The reporting institution for this report
CROSS-REFERENCE: 67.99999^B
1)= S ^LAR(67.99999,"B",$E(X,1,30),DA)=""
2)= K ^LAR(67.99999,"B",$E(X,1,30),DA)
67.99999,.02 PRINT NAME INSTITUTION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1) X
LAST EDITED: NOV 04, 1994
HELP-PROMPT: Answer must be 1-35 characters in length.
DESCRIPTION:
The reporting institution for this report
67.99999,1 DIVISION 1;0 Multiple #67.9999901 (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 is field becomes very important a sites which have
multi-divisional status.
67.9999901,.01 DIVISION 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 02, 1995
HELP-PROMPT: Type a Number between 1 and 999999, 0 Decimal Digits
DESCRIPTION:
This field contains what division this site is identified by.
CROSS-REFERENCE: 67.9999901^B
1)= S ^LAR(67.99999,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAR(67.99999,DA(1),1,"B",$E(X,1,30),DA)
67.9999901,.02 PRINT NAME DIVISION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1) X
LAST EDITED: NOV 04, 1994
HELP-PROMPT: Answer must be 1-35 characters in length.
67.9999901,1 MONTH 1;0 DATE Multiple #67.9999911
67.9999911,.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
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 67.9999911^B
1)= S ^LAR(67.99999,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAR(67.99999,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
67.9999911,1 CERTIFIED BY 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1) X
LAST EDITED: OCT 24, 1995
HELP-PROMPT: Answer must be 1-35 characters in length.
67.9999911,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
67.9999911,3 MESSAGE NUMBER 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: FEB 26, 1996
HELP-PROMPT: Answer must be 1-50 characters in length.
67.9999911,4 WKLD CODE 1;0 Multiple #67.99999114 (Add New Entry without Asking)
67.99999114,.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: APR 05, 1994
HELP-PROMPT: Answer must be 9-10 characters in length.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 67.99999114^B
1)= S ^LAR(67.99999,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAR(67.99999,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
67.99999114,.03 WKLD CODE NAME 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: Answer must be 3-60 characters in length.
WRITE AUTHORITY: ^
67.99999114,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
67.99999114,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
67.99999114,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
67.99999114,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
67.99999114,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
67.99999114,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
67.99999114,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
67.99999114,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 contains the tests 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
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.99999114,8 TREATING SPECIALTY 1;0 Multiple #67.999991148 (Add New Entry without Asking)
LAST EDITED: NOV 03, 1995
67.999991148,.01 TREATING SPECIALTY CODE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:Q:(X="XX "!(X="XY ")) S:$E(X)="X"&($L(X)=2) X=X_" " S X=$S($L(X)=1:0_0_X,$L(X)=2:0_X,1:X) K:
$L(X)>3!($L(X)<2)!('$D(^DIC(42.4,+X,0))#2) X
LAST EDITED: NOV 03, 1995
HELP-PROMPT:Answer must be 2 characters in length. Or 'XX' for AMBULATORY CARE Treating Specialty.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:67.999991148^B
1)= S ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
67.999991148,.03 TREATING SPECIALTY NAME 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 03, 1995
HELP-PROMPT:Answer must be 3-30 characters in length.
67.999991148,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
67.99999114,9 REPORTABLE TEST COUNT ; COMPUTED
MUMPS CODE: X ^DD(67.99999114,9,9.2) S X=X+$P(Y(67.99999114,9,1),U,8) S X=$J(X,0,0)
9.2 = S Y(67.99999114,9,1)=$S($D(^LAR(67.99999,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(67.9999911
4,9,1),U,2)+$P(Y(67.99999114,9,1),U,3)+$P(Y(67.99999114,9,1),U,4)
ALGORITHM: IN PATIENT CNT+OUT PATIENT CNT+OTHER PATIENT CNT+MANUAL INPUT DATA (ALWAYS 0 DECIMAL DIGITS)
67.99999114,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 REPORTABLE PROCEDURE field
TECHNICAL DESCR:
When the data is transfered for CAP WORKLOAD file at the end of each month this field is marked
accordingly.
67.99999114,11 REP/STD 0;11 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999)!(X<-10000)!(X?.E1"."1N.N) X
LAST EDITED: NOV 04, 1994
HELP-PROMPT:Type a Number between -10000 and 99999, 0 Decimal Digits
67.99999114,12 OTHERS 0;12 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 04, 1994
HELP-PROMPT:Type a Number between 0 and 999999, 0 Decimal Digits
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):