STANDARD DATA DICTIONARY #69.9 -- LABORATORY SITE FILE 3/24/25 PAGE 1
STORED IN ^LAB(69.9, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds specific information which defines certain site parameters relating to the actual functioning of your laboratory.
The parameters include the official laboratory site name, whether the physician's name must be entered when ordering and/or
accessioning tests, what type of accession label format (if any) the lab will be using, and scheduled hours of routine phlebotomy
collection times, as well as others.
CROSS
REFERENCED BY: SITE NAME(AC), COLLECT FRIDAYS ORDERS IN(AXX), COLLECT MONDAYS ORDERS IN(AXX1),
COLLECT SATURDAYS ORDERS IN(AXX2), COLLECT SUNDAYS ORDERS IN(AXX3), COLLECT THURSDAY ORDERS IN (AXX5),
COLLECT TUESDAYS ORDERS IN(AXX6), COLLECT WEDNESDAYS ORDERS IN(AXX7), IGNORE HOLIDAYS(AXX8), SITE NAME(B),
SITE NAME(LRCNVRTED)
LAST MODIFIED: JAN 6,2017@11:54:44
69.9,.01 SITE NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: S:'$D(^LAB(69.9,1,0)) DINUM=1 K:$D(^LAB(69.9,1,0)) X
LAST EDITED: OCT 22, 1997
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
There can be only one entry in this file.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.9^B
1)= S ^LAB(69.9,"B",$E(X,1,30),DA)=""
2)= K ^LAB(69.9,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 69.9^AC^MUMPS
1)= S:'$D(^LAB(69.9,1,1)) ^(1)="" S:'$D(^(2)) ^(2)="" S:'$D(^(3)) ^(3)="" S:'$D(^(5)) ^(5)=""
2)= Q
CROSS-REFERENCE: 69.9^LRCNVRTED^MUMPS
1)= Q
2)= Q
Set when the CPRS conversion is finished. The node set is ^LRO(69,"LRCNVRTED") since the
conversion is on file 69.
69.9,.18 BLOOD DONOR UNIT ID PREFIX 0;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>3)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 17, 1989
HELP-PROMPT: Type a Number between 1 and 3
DESCRIPTION: The number of eye readable (non bar coded) characters
as a prefix in the blood donor unit ID.
A x-ref will be set ^DD(65.54,4,1,3,1) for the unit ID to exclude
this prefix.
EXECUTABLE HELP: W ?5,"Ex. Donor ID:ABC12345 Eye readable prefix:ABC # of characters=3"
69.9,.8 DEFAULT 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 contains the default laboratory OOS location use to capture NPCDB workload. This field
should contain the primary institution's laboratory OOS location. This location is used whenever a
given Accession Area does not have a specific LAB OOS LOCATION assigned to capture NPCDB workload.
SCREEN: S DIC("S")="I $P(^(0),U)[""LAB DIV"""
EXPLANATION: All valid locations are namespaced
DELETE TEST: 1,0)= I 1
69.9,3 DEFAULT INSTITUTION 10;1 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: APR 10, 1991
DESCRIPTION: Certain workload functions are performed in the background, that is a user is not identified. In
this circumstance, the system has no way of identifying the institution the workload should be
credited. This field is the default value to be used by the system.
Enter the institution which should be considered the primary reporting institution. If this site
is a multidivisional site, enter the parent institution in this field.
If this field is not filled in the Mailman domain value will be used.
69.9,5.1 IMMED LAB COLLECT DIV. 7;0 POINTER Multiple #69.9006
LAST EDITED: MAR 04, 1992
DESCRIPTION: If your laboratory provides specimen collection service outside of the normal routine collection,
use this subfile to enter data about your particular site. The parameters of Immediate Lab Collect
define one institution. Therefore, multidivisional sites can have different parameters for each
division.
69.9006,.01 IMMED COLLECTION DIV. 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: DEC 03, 1991
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9006,.03 HOLIDAYS ? 0;2 SET
'1' FOR YES;
LAST EDITED: DEC 02, 1991
69.9006,.05 IMMED LAB COLLECT PRINTER 0;3 POINTER TO DEVICE FILE (#3.5)
INPUT TRANSFORM: S:Y>0 X=$P(Y,U,2)
LAST EDITED: JUL 20, 1993
DESCRIPTION: This is the printer to which Immediate Lab Collect request will print. It is recommended that
this printer be different than the printer used for logging routine lab collect.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9006,.06 MINIMUM RESPONSE TIME 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>60)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 03, 1991
HELP-PROMPT: Number of minutes lead time for collection, number 1-60
69.9006,.07 MAXIUM HOURS AHEAD ALLOWED 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>96)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 03, 1991
HELP-PROMPT: Number 1-96 hrs to allow orders into the future
69.9006,1 SUNDAY SUN;1 SET
'1' FOR YES;
LAST EDITED: DEC 02, 1991
69.9006,1.1 SUN START TIME SUN;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.9006^AC^MUMPS
1)= Q
2)= Q
69.9006,1.2 SUN END TIME SUN;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"SUN"),U,2)) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Number between 1 and 2359, 0 Decimal Digits [AND Must be greater than Start Time]
TECHNICAL DESCR: I am using the DG variable in the input transform because FM doesn't set the zeroth node until
after I need to check to ensure that the end time is greater than the start time. I have
mentioned this fact to the FM developers. This is a work around until this can be addressed by
the developers.
NOTE: This problem only occurs when you are editing the field for the first time.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9006,2 MONDAY MON;1 SET
'1' FOR YES;
LAST EDITED: DEC 02, 1991
69.9006,2.1 MON START TIME MON;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
CROSS-REFERENCE: 69.9006^AD^MUMPS
1)= Q
2)= Q
69.9006,2.2 MON END TIME MON;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"MON"),U,2)) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Number between 1 and 2359, 0 Decimal Digits [AND greater than start time]
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9006,3 TUESDAY TUE;1 SET
'1' FOR Y;
LAST EDITED: DEC 02, 1991
69.9006,3.1 TUE START TIME TUE;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
CROSS-REFERENCE: 69.9006^AE^MUMPS
1)= Q
2)= Q
69.9006,3.2 TUE END TIME TUE;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"TUE"),U,2)) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Number between 1 and 2359, 0 Decimal Digits [AND greater than start time]
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9006,4 WEDNESDAY WED;1 SET
'1' FOR Y;
LAST EDITED: DEC 03, 1991
69.9006,4.1 WED START TIME WED;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
CROSS-REFERENCE: 69.9006^AF^MUMPS
1)= Q
2)= Q
69.9006,4.2 WED END TIME WED;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"WED"),U,2)) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9006,5 THURSDAY THU;1 SET
'1' FOR YES;
LAST EDITED: DEC 03, 1991
69.9006,5.1 THU START TIME THU;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
CROSS-REFERENCE: 69.9006^AG^MUMPS
1)= Q
2)= Q
69.9006,5.2 THU END TIME THU;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"THU"),U,2)) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9006,6 FRIDAY FRI;1 SET
'1' FOR YES;
LAST EDITED: DEC 03, 1991
69.9006,6.1 FRI START TIME FRI;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
CROSS-REFERENCE: 69.9006^AH^MUMPS
1)= Q
2)= Q
69.9006,6.2 FRI END TIME FRI;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"FRI"),U,2)) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9006,7 SATURDAY SAT;1 SET
'1' FOR Y;
LAST EDITED: DEC 03, 1991
69.9006,7.1 SAT START TIME SAT;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
CROSS-REFERENCE: 69.9006^AI^MUMPS
1)= Q
2)= Q
69.9006,7.2 SAT END TIME SAT;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2359)!(X<1)!(X?.E1"."1N.N)!(X<$P(^LAB(69.9,1,7,DA,"SAT"),U,2)) X
LAST EDITED: JAN 14, 1992
HELP-PROMPT: Type a Number between 1 and 2359, 0 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9006,8 IMMED COLLECT ON 0;6 SET
'1' FOR YES;
LAST EDITED: OCT 19, 1992
69.9,8 BLOOD BANK DEFAULTS 8;0 Multiple #69.98 (Add New Entry without Asking)
DESCRIPTION:
Defaults for Donor, Inventory, and Patient portions of the blood bank.
69.98,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>8)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 8
69.98,.01 BLOOD BANK OPTION 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: JAN 13, 1987
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
CROSS-REFERENCE: 69.98^B
1)= S ^LAB(69.9,DA(1),8,"B",$E(X,1,30),DA)=""
2)= K ^LAB(69.9,DA(1),8,"B",$E(X,1,30),DA)
69.98,.02 FIRST DEFAULT 0;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 07, 1987
DESCRIPTION: DONOR: Move ABO/Rh test results to inventory file
INVENTORY:
PATIENT: Direct Coombs testing default
69.98,.03 SECOND DEFAULT 0;3 SET
'1' FOR YES;
'0' FOR NO;
DESCRIPTION:
DONOR: ASK MILITARY RANK
69.98,.04 THIRD DEFAULT 0;4 SET
'1' FOR YES;
'0' FOR NO;
DESCRIPTION:
DONOR: ASK BAG LOT NUMBER
69.98,.05 FOURTH DEFAULT 0;5 SET
'1' FOR YES;
'0' FOR NO;
DESCRIPTION:
DONOR: ASK SOCIAL SECURITY NUMBER
69.98,.06 FIFTH DEFAULT 0;6 SET
'1' FOR YES;
'0' FOR NO;
HELP-PROMPT: DONOR: Turn on ALT testing
DESCRIPTION:
DONOR: Turn on ALT testing
69.98,.07 SIXTH DEFAULT 0;7 SET
'1' FOR YES;
'0' FOR NO;
HELP-PROMPT: DONOR: Turn on HIV ANTIGEN testing
DESCRIPTION:
DONOR: Turn on HIV ANTIGEN testing
69.98,.08 SEVENTH DEFAULT 0;8 SET
'1' FOR YES;
'0' FOR NO;
69.98,.1 major section 0;10 POINTER TO ACCESSION FILE (#68)
LAST EDITED: JUL 31, 1992
69.98,.11 subsection 0;11 POINTER TO ACCESSION FILE (#68)
LAST EDITED: JUL 31, 1992
69.9,8.1 BLOOD BANK DIVISION 8.1;0 POINTER Multiple #69.981 (Add New Entry without Asking)
LAST EDITED: JUL 25, 1996
DESCRIPTION:
Indicate here which institution will be considered primary for this site.
69.981,.01 BLOOD BANK DIVISION 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I +$G(^DIC(4,+Y,99))=+$$SITE^VASITE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=
X
LAST EDITED: JUL 25, 1996
SCREEN: S DIC("S")="I +$G(^DIC(4,+Y,99))=+$$SITE^VASITE"
EXPLANATION: Allows only divisions for site.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:69.981^B
1)= S ^LAB(69.9,DA(1),8.1,"B",$E(X,1,30),DA)=""
2)= K ^LAB(69.9,DA(1),8.1,"B",$E(X,1,30),DA)
69.981,.02 INVENTORY MAJOR SECTION 0;2 POINTER TO ACCESSION FILE (#68)
LAST EDITED: NOV 01, 1992
69.981,.03 INVENTORY SUBSECTION 0;3 POINTER TO ACCESSION FILE (#68)
LAST EDITED: NOV 01, 1992
69.981,.04 DONOR MAJOR SECTION 0;4 POINTER TO ACCESSION FILE (#68)
LAST EDITED: NOV 01, 1992
69.981,.05 DONOR SUBSECTION 0;5 POINTER TO ACCESSION FILE (#68)
LAST EDITED: NOV 01, 1992
69.981,.06 MULTIPLE ACCESSION AREA 0;6 SET
'1' FOR YES;
'1' FOR yes;
'0' FOR NO;
'0' FOR no;
LAST EDITED: JUL 05, 1995
69.9,9 HOSPITAL SITE 9;0 POINTER Multiple #69.99
LAST EDITED: APR 18, 1991
DESCRIPTION: This is where parameters are selected for sites throughout the hospital to control various aspects
of lab order entry through OE/RR.
69.99,.01 HOSPITAL SITE 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: NOV 06, 1997
DESCRIPTION:
This is the hospital site where parameters may aply.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.99^AXM^MUMPS
1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1(X,1,$P(^(0),"^",2))
2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1(X,1,"")
Trigger LR MAX DAYS CONTINUOUS parameter in CPRS.
CROSS-REFERENCE: 69.99^AXU^MUMPS
1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D URG^LR7OV1(X,1,$S($P(^(0),"^",5):"YES",1:"NO"))
2)= D URG^LR7OV1(X,1,"NO")
Trigger the LR ASK URGENCY parameter in CPRS.
CROSS-REFERENCE: 69.99^AXT^MUMPS
1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1(X,1,$P(^(0),"^",6))
2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1(X,1,"")
Triggers the LR DEFAULT TYPE QUICK parameter in CPRS.
69.99,1 MAX DAYS FOR CONTINUOUS ORDERS 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>370)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 04, 2001
HELP-PROMPT: Type a Number between 0 and 370, 0 Decimal Digits
DESCRIPTION: This is the maximum number of days that multiple-continuous orders can be placed for this
location.
CROSS-REFERENCE: 69.99^AXM1^MUMPS
1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1($P(^(0),"^"),1,X)
2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1($P(^(0),"^"),1,"")
Trigger LR MAX DAYS CONTINUOUS parameter in CPRS.
69.99,4 ASK URGENCY 0;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 06, 1997
DESCRIPTION: Answer YES to this field to prompt with urgency for every test when ordering through OE/RR.
Tests with a forced urgency as defined in the Laboratory test file overide this parameter.
CROSS-REFERENCE: 69.99^AXU1^MUMPS
1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D URG^LR7OV1($P(^(0),"^"),1,X)
2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D URG^LR7OV1($P(^(0),"^"),1,"")
Triggers LR ASK URGENCY parameter in CPRS.
69.99,5 DEFAULT TYPE FOR QUICK ORDERS 0;6 SET
'WC' FOR WARD COLLECT;
'SP' FOR SEND PATIENT;
'LC' FOR LAB COLLECT;
LAST EDITED: NOV 06, 1997
HELP-PROMPT: Enter the type of collection (Ward collect, Send patient or Lab collect) that Quick Orders should
use.
DESCRIPTION: The entry in this field will determine the type of collection that 'Quick Orders' will have
assigned to them. ex: Ward Collect, Send Patient or Lab Collect
CROSS-REFERENCE: 69.99^AXT1^MUMPS
1)= I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1($P(^(0),"^"),1,X)
2)= I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1($P(^(0),"^"),1,"")
Triggers the LR DEFAULT TYPE QUICK parameter in CPRS.
69.9,10 *ASK PROVIDER 0;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAY 28, 1994
DESCRIPTION: Because of OERR Alert generation, a provider must be entered for all ordered test. Therefore this
field is no longer active. It will be deleted in a later version.
UNEDITABLE
69.9,11 QUE CH,HE,etc VERIFIED TEST(S) 0;3 SET
'1' FOR YES;
'0' FOR NO;
DESCRIPTION:
If the verified test notice is to be automatically queued, this field must contain YES.
69.9,11.1 ASK FROZEN SECTION 11;1 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: DEC 02, 1992
DESCRIPTION: If frozen sections are to be put in a separate field (DD(63.08,1.3)
'YES' should be entered.
69.9,11.2 ASK SURG PATH DIAGNOSIS 11;2 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: JUL 15, 1993
DESCRIPTION:
If diagnoses are to be put in a separate field 'YES' should be entered.
69.9,11.3 ASK CYTOPATH DIAGNOSIS 11;3 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: JUL 15, 1993
DESCRIPTION:
If diagnoses are to be put in a separate field 'YES' should be entered.
69.9,11.4 ASK EM DIAGNOSIS 11;4 SET
'1' FOR YES;
'0' FOR NO;
'1' FOR yes;
'0' FOR no;
LAST EDITED: JUL 15, 1993
DESCRIPTION:
If diagnoses are to be put in a separate field 'YES' should be entered.
69.9,11.5 QUE MICRO VERIFIED TESTS(S) 0;5 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 30, 1985
DESCRIPTION:
If technologist approved work is to be automatically queued, this field must contain YES.
69.9,12 PRINT LABELS 0;4 SET
'1' FOR YES;
'0' FOR NO;
DESCRIPTION:
If you want labels automatically printed, this field must contain YES.
69.9,13 ALLOW LAB TO ADD PATIENTS 0;6 SET (Required)
'0' FOR NO;
LAST EDITED: SEP 02, 2003
DESCRIPTION: This field is not functional. It is no longer used to allow Lab to add patients to the Patient
file.
69.9,14 CHOICE OF ACCESSION NUMBERS 0;8 SET
'1' FOR ALLOWED;
'0' FOR NOT ALLOWED;
LAST EDITED: SEP 18, 1984
DESCRIPTION: If you are running this system in parallel with another, setting this field to YES enables you to
change or choose accession numbers. When actually running, this field should be set to NO.
69.9,15 GRACE PERIOD FOR ORDERS 0;9 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<7)!(X?.E1"."1N.N) X
LAST EDITED: SEP 21, 1984
HELP-PROMPT: Enter the number of days back to keep inactive orders (# 7 to 999)
DESCRIPTION:
This is the number of days that inactive orders will be kept. (Minimum is 7 days.)
69.9,16 GRACE PERIOD FOR CUMULATIVE 0;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 08, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION: The cumulative report (^LAC global) will be purged automatically when the cumulative report is run.
Inpatient data is not purged. Patients currently enrolled in clinics are not purged. All other
data (inactive for the number of days specified by this field) is purged. No entry means that no
data will be purged.
69.9,17 WKLD STATS ON 0;14 SET
'1' FOR YES;
LAST EDITED: FEB 11, 1992
HELP-PROMPT: Enter YES to have WKLD Workload statistics collected.
DESCRIPTION: To have WKLD statistics collected at the time of accessioning and verification, set this field to
YES.
This is the primary switch to turn on workload collection. This entry turns off the entire
function.
There is also a secondary switch (field) which allow each accession area to be turned on
independently. It must also be answered yes to allow workload data collection in that specific
accession area.
It is located in the ACCESSION AREA file (#68), WORKLOAD ON field (#10).
NOTE: BOTH FIELDS MUST BE ANSWERED YES TO ALLOW WORKLOAD DATA TO BE ACCUMULATED.
69.9,17.1 *AMIS/CAP DEFAULT 0;15 SET
'1' FOR YES;
LAST EDITED: MAR 02, 1992
DESCRIPTION:
This field is marked for deletion. It is no longer used after version 5.2 Workload release.
69.9,18 *GRACE PERIOD FOR STATISTICS 1;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1992
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION: NOTE: THIS FIELD NO LONGER SERVES THIS FUNCTION. IT WILL BE DELETED IN 18 MONTHS AFTER THE RELEASE
OF V 5.2.
69.9,19 GRACE PERIOD FOR INACTIVITY 0;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 03, 1988
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION: Enter the number of days that a patient has to be inactive (no lab orders), for the "Force
cumulative data to permanent page" option to identify the patient data as qualified to be forced to
permanent.
69.9,20 DAYS BACK FOR DELTA CHECKS 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 11, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
The number of days going backwards to use for delta checking.
69.9,64.913 LAST IEN PROCESSED 64.9103;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100000)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 22, 2013
HELP-PROMPT: Enter the last IEN processed, from 1-999999.
DESCRIPTION: This is the last IEN processed by the TaskMan job that monitors the LABORATORY TEST (#60) file for
changes that might require quick order updates. This field is updated by a TaskMan job so it is
recommended you DO NOT edit this field manually.
69.9,64.914 LAST DATE PROCESSED 64.9103;2 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 01, 2013
HELP-PROMPT: Enter the last date/time processed by the background monitor of the LABORATORY TEST file (#60).
DESCRIPTION: This is the last date/time processed by the TaskMan job that monitors the LABORATORY TEST (#60)
file for changes that might require quick order updates. This field is updated by a TaskMan job so
it is recommended you DO NOT edit this field manually.
69.9,95.3 LOINC HISTORICAL MAPPING DATE 95;1 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 2002
DESCRIPTION: This is the date that the LOINC Historical mapping was completed. The LAB DATA LOINC Mapping [LR
LOINC HISTORICAL MAPPER 63] option populates this field after it has successfully completed all
mapping.
TECHNICAL DESCR: The Hepatitis C registry uses this field to determine if historical LOINC mapping has been
completed.
69.9,95.31 LOINC HISTORICAL LAST LRDFN 95;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 12, 2002
HELP-PROMPT: Type a Number between 1 and 9999999, 0 Decimal Digits
DESCRIPTION: This field contains the last LRDFN that was mapped by the LAB DATA LOINC Mapping [LR LOINC
HISTORICAL MAPPER 63] option.
69.9,100 DEFAULT BLOOD SPECIMEN 1;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
DESCRIPTION:
The blood specimen that will be used as a default choice.
69.9,101 DEFAULT URINE SPECIMEN 1;2 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
DESCRIPTION:
The urine specimen that will be used as a default choice.
69.9,102 DEFAULT SERUM SPECIMEN 1;3 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
DESCRIPTION:
The serum specimen that will be used as a default choice.
69.9,103 DEFAULT PLASMA SPECIMEN 1;4 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
DESCRIPTION:
The plasma specimen that will be used as a default choice.
69.9,104 DEFAULT UNKNOWN SPECIMEN 1;5 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
DESCRIPTION:
When the specimen is unknown, this is the specimen that will be chosen.
69.9,150.1 DEFAULT NATURE OF ORDER OR;1 POINTER TO NATURE OF ORDER FILE (#100.02)
INPUT TRANSFORM: S DIC("S")="I '$$SCREEN^XTID(100.02,,Y_"","")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 10, 2006
HELP-PROMPT: Enter the default nature of order for the package.
DESCRIPTION: This is the default Nature of order for orders placed with Lab options. This field points to
OE/RR's Nature of order file.
SCREEN: S DIC("S")="I '$$SCREEN^XTID(100.02,,Y_"","")"
EXPLANATION: Data Standardization of NATURE OF ORDER file #100.02
69.9,150.2 DEFAULT DC REASON OR;2 POINTER TO ORDER REASON FILE (#100.03)
INPUT TRANSFORM: S DIC("S")="I '$$SCREEN^XTID(100.03,,Y_"","")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 07, 2006
HELP-PROMPT: Enter the Default DC Reason for the package.
DESCRIPTION: This is the default DC Reason used when orders are canceled or deleted with Lab options. This
field points to OE/RR's Order Reason file.
SCREEN: S DIC("S")="I '$$SCREEN^XTID(100.03,,Y_"","")"
EXPLANATION: Data Standardization of ORDER REASON #100.03
69.9,200 MICRO SURVEY REPORT DEFAULTS MIS;0 SET Multiple #69.9002
DESCRIPTION:
This field contains the default parameters used to print Micro survey report.
69.9002,.01 MICRO SURVEY REPORT DEFAULTS 0;1 SET (Multiply asked)
'P' FOR PATIENT;
'D' FOR PHYSICIAN;
'L' FOR LOCATION;
'C' FOR COLLECTION SAMPLE;
'O' FOR ORGANISM;
LAST EDITED: JAN 15, 1986
DESCRIPTION: If present, the individual entries are used as the default of (A)LL for the questions on the
Infection Control Survey Report. If Collection Sample is present then all surveys will display
the collection sample (Samp); otherwise, the survey will display the site/specimen (Spec).
CROSS-REFERENCE: 69.9002^B
1)= S ^LAB(69.9,DA(1),"MIS","B",$E(X,1,30),DA)=""
2)= K ^LAB(69.9,DA(1),"MIS","B",$E(X,1,30),DA)
69.9,201 MICRO TREND REPORT DEFAULTS MIT;0 SET Multiple #69.9005
DESCRIPTION:
This field contains the default parameters for the Micro Trend Report.
69.9005,.01 MICRO TREND REPORT DEFAULTS 0;1 SET (Multiply asked)
'P' FOR PATIENT;
'D' FOR PHYSICIAN;
'L' FOR LOCATION;
'S' FOR SITE/SPECIMEN;
'C' FOR COLLECTION SAMPLE;
'O' FOR ORGANISM;
LAST EDITED: JAN 14, 1986
DESCRIPTION: If present, the individual entries are used as the default of (A)LL for the questions on the
Antibiotic Trend Report.
CROSS-REFERENCE: 69.9005^B
1)= S ^LAB(69.9,DA(1),"MIT","B",$E(X,1,30),DA)=""
2)= K ^LAB(69.9,DA(1),"MIT","B",$E(X,1,30),DA)
69.9,202 MICRO REPORT FORMAT 0;11 SET
'I' FOR INTERPRETATION ONLY;
'R' FOR RESULT ONLY;
'B' FOR BOTH INTERPRETATION AND RESULT;
LAST EDITED: JUN 06, 1986
DESCRIPTION: The output of the microbiology patient's report can display antibiotic susceptiblities as: I -
interpretation only, R - results only, or B - both interpretation and results. No entry will
default to interpretation only.
69.9,203 MICRO DEFAULT TEMPLATE 1;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X I $D(X) X:X="?" ^DD(69.9,203,4) Q:X="?" S DIC(0)="EQM",DIC="^DIE(",DIC("S")
="I $P(^(0),U,4)=63" D ^DIC S X=$P(Y,U,2) K:Y<1 X
LAST EDITED: JUL 14, 1987
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION: Contains the edit template name that will be used for entering antimicrobial results for those
organisms that do not have a SUSCEPTIBILITY EDIT TEMPLATE defined in the ETIOLOGY file.
EXECUTABLE HELP: S X="?",DIC(0)="Q",DIC="^DIE(",DIC("S")="I $P(^(0),U,4)=63",D="B" K DO D DQ^DICQ K DIC S DIC=DIE D
DO^DIC1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9,204 MICRO OTHER TEMPLATE 1;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X I $D(X) X:X="?" ^DD(69.9,204,4) Q:X="?" S DIC(0)="EQM",DIC="^DIE(",DIC("S")
="I $P(^(0),U,4)=63" D ^DIC S X=$P(Y,U,2) K:Y<1 X
LAST EDITED: JUL 14, 1987
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION: Contains the edit template name that will be used for entering antimicobial results that are not on
the template specific for the organism. Generally, this template will include all antibiotic
fields being reported.
EXECUTABLE HELP: S X="?",DIC(0)="Q",DIC="^DIE(",DIC("S")="I $P(^(0),U,4)=63",D="B" K DO D DQ^DICQ K DIC S DIC=DIE D
DO^DIC1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9,210 DOWNLOAD FULL DATA 1;7 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 07, 1988
HELP-PROMPT: Answer y to pass all available data to instrument. No to pass only required data.
DESCRIPTION: This field is used to determine how much data is to be downloaded to an instrument. If this field
is set to download full data it will send data for all those instrument fields we have data for. A
caution when setting this field is that the more data sent to the instrument the larger the records
get and the longer it takes to complete a download. Also if there is limited disk space on the
instrument you may overrun the space available causing the download to abort before you have all
the data downloaded. This may cause the instrument to stop its processing until you correct the
problem.
69.9,300 HOLD-OVER SORT URGENCY 3;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>10)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: JUL 05, 1984
HELP-PROMPT: ENTER A NUMBER BETWEEN 0 AND 10 THAT IS THE URGENCY OF HOLD-OVERS IN BUILDING A LOAD LIST. 0 IS
BEFORE STAT, 10 AFTER ROUTINE, SEE THE URGENCY FILE FOR NUMBERS.
DESCRIPTION: This is the urgency of hold-overs in building a load list. '0' is before STAT, and '10' is after
ROUTINE. Choose from the numbers listed in the URGENCY file.
69.9,301 DEFAULT URGENCY 3;2 POINTER TO URGENCY FILE (#62.05) (Required)
LAST EDITED: JUL 05, 1984
DESCRIPTION:
The urgency that will be used as the default choice, usually Routine.
69.9,302 LABEL TYPE 3;3 SET
'1' FOR 2X5 UNEVEN;
'2' FOR ORDER # FIRST;
'3' FOR MEDLAB;
'4' FOR SITE FILE;
'5' FOR SITE DEVELOPED (VAF 10-1392);
'6' FOR INTERMEC 1X3;
LAST EDITED: SEP 01, 1992
HELP-PROMPT: LEAVE NULL TO GET THE DEFAULT LABEL
DESCRIPTION: Determines the format of the label that is printed. Choice of predefined
default label (Null), 2x5 uneven (SLC special #1), or Order # first (#2),
Medlab 7 part (#3), Site file label (routine LRLABEL4, #4), Site
developed (VAF 10-1392) label (routine LRLABEL5, #5).
69.9,303 LOG PRINTER FOR ROUTINE LC 3;4 POINTER TO DEVICE FILE (#3.5)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)="EMQ" D ^DIC S X=$P(Y,U,2),DIC=DIE K:Y<1 X
LAST EDITED: MAR 04, 1992
HELP-PROMPT: ENTER THE NAME OF THE DEVICE TO PRINT THE LAB COLECT LOG ON.
DESCRIPTION: This is the device you want the Routine Lab Collect Request to print on.
It is recommended that this printer be different one than the one use for immediate lab collect
listing.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9,304 RESERVED FIELD #1 3;5 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JAN 10, 1992
HELP-PROMPT: THIS IS SET TO 1 IF YOU HAVE A FOREIGN CPU WHICH MAY NEED A COPY OF THE PATIENT AND OR LAB DATA.
DESCRIPTION: This field is reserved for future development. Will be used to indicate if data can be transferred
to a foreign computer.
NOT PRESENTLY USED
69.9,350 PRINTER DIVISION 3.5;0 POINTER Multiple #69.9007
DESCRIPTION: This sub-file is for multidivisional sites that wish to print lab collect orders at separate
divisions. If this field is left blank, then the #303 Log Printer for Routine LC is used. Also,
this sub-file is for multi- divisional sites that wish to have default label printers from LABLABEL
to a division specific printer.
69.9007,.01 PRINTER DIVISION 0;1 POINTER TO INSTITUTION FILE (#4)
INPUT TRANSFORM: I $D(X) S DINUM=X
LAST EDITED: SEP 17, 1996
DESCRIPTION:
This field should be set equal to the DUZ(2) value.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.9007^B
1)= S ^LAB(69.9,DA(1),3.5,"B",$E(X,1,30),DA)=""
2)= K ^LAB(69.9,DA(1),3.5,"B",$E(X,1,30),DA)
69.9007,.02 LOG PRINTER FOR ROUTINE LC 0;2 POINTER TO DEVICE FILE (#3.5)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)="EMQ" S X=$P(Y,U,2),DIC=DIE K:Y<1 X
LAST EDITED: SEP 17, 1996
HELP-PROMPT: Enter the name of the device to print the lab collect log on.
DESCRIPTION: This is the device you want the Routine Lab Collect Request to print on. It is recommended that
this printer be different one than the one used for immediate collect listing. If this field is
vacant, the program defaults to field #303 Log Printer for Routine LC.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9007,.03 ACCESSION PRINTER 0;3 POINTER TO DEVICE FILE (#3.5)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)="EMQ" S X=$P(Y,U,2),DIC=DIE K:Y<1 X
LAST EDITED: SEP 17, 1996
HELP-PROMPT: Enter the name of the default label device.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9,360 LABEL DEVICE 3.6;0 POINTER Multiple #69.9008
DESCRIPTION: Used by Laboratory software to identify which devices are label printers. This allows the software
to handle various types of label printers and label stock.
69.9008,.01 LABEL DEVICE 0;1 POINTER TO DEVICE FILE (#3.5) (Multiply asked)
LAST EDITED: JAN 13, 1997
HELP-PROMPT: Enter the name of a device used for Lab label printing.
DESCRIPTION: Used by Laboratory software to identify which devices are label printers. This allows the
software to handle various types of label printers and label stock concurrently. It should be
useful at multi-divisional and integrated sites that use a variety of dissimilar equipment/label
stock.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.9008^B
1)= S ^LAB(69.9,DA(1),3.6,"B",$E(X,1,30),DA)=""
2)= K ^LAB(69.9,DA(1),3.6,"B",$E(X,1,30),DA)
69.9008,.02 PRINTER TYPE 0;2 SET
'0' FOR OTHER;
'1' FOR INTERMEC 3000/4000 SERIES;
'2' FOR ZEBRA ZPL II COMPATIBLE;
LAST EDITED: OCT 06, 1999
HELP-PROMPT: Enter the type of label printer attached to this device.
DESCRIPTION: Used to designate if device is a specialized label printer that is supported by Lab software and
to determine the specialized Lab label routine to use.
Use "OTHER" when the printer is not compatible with the supported printers.
When Lab supports other manufacturers of label printers, they will be added as supported printers
to this field.
69.9008,.03 LABEL STOCK 0;3 SET
'0' FOR OTHER;
'1' FOR 1X3;
'2' FOR 1X2;
'3' FOR 2.5X4 10 PART;
LAST EDITED: DEC 09, 1999
HELP-PROMPT: Select the type of label stock loaded in this device.
DESCRIPTION:
This field is used to designate the type of label stock that is installed in this printer.
69.9008,.04 ALTERNATE LABEL ENTRY 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X
LAST EDITED: DEC 05, 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
routines used by the lab package when printing labels using this device. Field ALTERNATE LABEL
ROUTINE (#.05) must be completed for software to use this field.
WRITE AUTHORITY: @
69.9008,.05 ALTERNATE LABEL ROUTINE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X
LAST EDITED: DEC 05, 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 routines
used by the lab package when printing labels using this device.
WRITE AUTHORITY: @
69.9008,.06 DEFAULT ACCESSION AREA 0;6 POINTER TO ACCESSION FILE (#68)
LAST EDITED: AUG 28, 1997
HELP-PROMPT: Select accession area to use for default characteristics.
DESCRIPTION: This field is used by the label software when printing test or future order labels. When printing
these types of labels, there is no accession area identified to obtain additional label
characteristics such as type of barcode or accession area alternate label routine.
The accession area designated for this device will be used by the software to obtain accession
area specific characteristics when printing labels which are not associated with any particular
accession area. Examples of these characteristics are barcode type, number of pad digits for
barcode number, and alternate label routine.
69.9,400 PHLEBOTOMY ORDER CUT-OFF TIME 4;0 Multiple #69.9001
DESCRIPTION: The order cut-off time for associated collection time. Time is in 24 hour format. Orders placed
after the cut-off time will be put on the next routine lab collection.
69.9001,.01 PHLEBOTOMY ORDER CUT-OFF TIME 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:X'?4N X I $D(X) S DINUM=$E(X,1,2)*3600+($E(X,3,4)*60)
LAST EDITED: AUG 28, 1998
HELP-PROMPT: ENTER TIME IN MILITARY TIME FORMAT, e.g. 0630
DESCRIPTION: The order cutoff time for associated collection time. Time is in 24 hour format. Orders placed
after the cut-off time will be put on the next routine lab collection.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.9001^AXC2^MUMPS
1)= Q
2)= Q:'$$XPARCK^LR7OV2 I $L($P($G(^LAB(69.9,DA(1),4,DA,0)),"^",4)) N X D DEL^XPAR($$DIV^LR7OV1($P(
^(0),"^",4)),"LR PHLEBOTOMY COLLECTION",DA)
Update CPRS Collection parameter
69.9001,1 PHLEBOTOMY COLLECTION TIME 0;2 NUMBER (Required)
INPUT TRANSFORM:K:X'?4N!($E(X,3,4)>59)!(+X>2400)!(X<$P(^LAB(69.9,DA(1),4,DA,0),"^")) X
LAST EDITED: AUG 28, 1998
HELP-PROMPT: ENTER TIME IN MILITARY TIME FORMAT, e.g. 0630 (must be after CUT-OFF TIME)
DESCRIPTION:
This is the default time for the routine phlebotomy collection.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:^^TRIGGER^69.9001^2
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.9,D0,4,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(69.9001,1,1,1,1.1) X ^DD(69.9001,1,1,1,1.4)
1.1)= S X=DIV S Y=$S($D(^LAB(69.9,DA(1),4,DA,0)):$P(^(0),"^",2),1:"") I $L(Y) S X=$E(Y,1,2)*3600+($
E(X,3,4)*60)
1.4)= S DIH=$S($D(^LAB(69.9,DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.9001,DIG
=2 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(69.9,D0,4,D1,0)):^(0),1:"")
S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(69.9001,1,1,1,2.4)
2.4)= S DIH=$S($D(^LAB(69.9,DIV(0),4,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.9001,DIG
=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= S Y=$S($D(^LAB(69.9,DA(1),4,DA,0)):$P(^(0),"^",2),1:"") I $L(Y) S X=$E(Y,1,2)*3600+(
$E(X,3,4)*60)
DELETE VALUE)= @
FIELD)= $H FORMAT
CROSS-REFERENCE:69.9001^AXC^MUMPS
1)= I $P($G(^LAB(69.9,DA(1),4,DA,0)),"^",4) D COLTIM^LR7OV1($P(^(0),"^",4),DA,X)
2)= Q:'$$XPARCK^LR7OV2 I $L($P($G(^LAB(69.9,DA(1),4,DA,0)),"^",4)) N X D DEL^XPAR($$DIV^LR7OV1($P(
^(0),"^",4)),"LR PHLEBOTOMY COLLECTION",DA)
Triggers LR PHLEBOTOMY COLLECTION parameter in CPRS.
69.9001,2 $H FORMAT FOR COLLECTION TIME 0;3 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 15, 1988
DESCRIPTION:
This field is computed from what is entered in the PHLEBOTOMY COLLECTION field.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the PHLEBOTOMY COLLECTION TIME field of the PHLEBOTOMY ORDER CUT-OFF TIME sub-field of
the LABORATORY SITE File
CROSS-REFERENCE:69.9001^AC
1)= S ^LAB(69.9,DA(1),4,"AC",$E(X,1,30),DA)=""
2)= K ^LAB(69.9,DA(1),4,"AC",$E(X,1,30),DA)
69.9001,3 DIVISION 0;4 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: AUG 28, 1998
HELP-PROMPT: Enter the Division this collection time applies to.
DESCRIPTION: Allows a multi-division site to define which collection times are applicable to which division.
OE/RR-LAB interface uses this to screen out times for Lab Collection.
CROSS-REFERENCE:69.9001^AXC1^MUMPS
1)= I $L($P($G(^LAB(69.9,DA(1),4,DA,0)),"^",2)) D COLTIM^LR7OV1(X,DA,$P(^(0),"^",2))
2)= Q:'$$XPARCK^LR7OV2 D DEL^XPAR($$DIV^LR7OV1(X),"LR PHLEBOTOMY COLLECTION",DA)
Triggers LR PHLEBOTOMY COLLECTION parameter in CPRS.
69.9,500 COLLECT THURSDAY ORDERS IN 5;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1997
HELP-PROMPT: ENTER THE NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECT
DESCRIPTION:
The number of days until the next phlebotomy collection.
CROSS-REFERENCE: 69.9^AXX5^MUMPS
1)= D FRI^LR7OV1(X=1)
2)= D FRI^LR7OV1(X=1)
Triggers LR COLLECT FRIDAY parameter in CPRS.
69.9,501 COLLECT FRIDAYS ORDERS IN 5;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1997
HELP-PROMPT: ENTER THE NUMBER OF DAYS TILL THE NEXT PHLEBOTOMY COLLECTION
DESCRIPTION:
The number of days until the next phlebotomy collection.
CROSS-REFERENCE: 69.9^AXX^MUMPS
1)= D SAT^LR7OV1(X=1)
2)= D SAT^LR7OV1(X=1)
Triggers LR COLLECT SATURDAY parameter in CPRS.
69.9,502 COLLECT SATURDAYS ORDERS IN 5;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1997
HELP-PROMPT: ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION.
DESCRIPTION:
The number of days until the next phlebotomy collection.
CROSS-REFERENCE: 69.9^AXX2^MUMPS
1)= D SUN^LR7OV1(X=1)
2)= D SUN^LR7OV1(X=1)
Triggers LR COLLECT SUNDAY parameter in CPRS.
69.9,503 COLLECT SUNDAYS ORDERS IN 5;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1997
HELP-PROMPT: ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION.
DESCRIPTION:
The number of days until the next phlebotomy collection.
CROSS-REFERENCE: 69.9^AXX3^MUMPS
1)= D MON^LR7OV1(X=1)
2)= D MON^LR7OV1(X=1)
Triggers LR COLLECT MONDAY parameter in CPRS.
69.9,504 COLLECT MONDAYS ORDERS IN 5;5 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1997
HELP-PROMPT: ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION.
DESCRIPTION:
The number of days until the next phlebotomy collection.
CROSS-REFERENCE: 69.9^AXX1^MUMPS
1)= D TUES^LR7OV1(X=1)
2)= D TUES^LR7OV1(X=1)
Triggers LR COLLECT TUESDAY parameter in CPRS.
69.9,505 COLLECT TUESDAYS ORDERS IN 5;6 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1997
HELP-PROMPT: ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION.
DESCRIPTION:
The number of days until the next phlebotomy collection.
CROSS-REFERENCE: 69.9^AXX6^MUMPS
1)= D WED^LR7OV1(X=1)
2)= D WED^LR7OV1(X=1)
Triggers LR COLLECT WEDNESDAY parameter in CPRS.
69.9,506 COLLECT WEDNESDAYS ORDERS IN 5;7 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 06, 1997
HELP-PROMPT: ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION.
DESCRIPTION:
The number of days until the next phlebotomy collection.
CROSS-REFERENCE: 69.9^AXX7^MUMPS
1)= D THURS^LR7OV1(X=1)
2)= D THURS^LR7OV1(X=1)
Triggers LR COLLECT THURSDAY parameter in CPRS.
69.9,507 IGNORE HOLIDAYS 0;10 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 06, 1997
HELP-PROMPT: If set to yes, Then the lab collects on holidays.
DESCRIPTION:
This field indicates if this institution operates at full service during federal holidays.
CROSS-REFERENCE: 69.9^AXX8^MUMPS
1)= D HOL^LR7OV1(X)
2)= D HOL^LR7OV1("")
Triggers LR IGNORE HOLIDAYS parameter in CPRS.
69.9,509 EXCEPTED LOCATIONS 2;0 POINTER Multiple #69.9004
DESCRIPTION: This field contains those locations which have special printing or specimen collection status
apart from other hospital locations.
SCREEN: S DIC("S")="I $P(^(0),U,2)]"""""
EXPLANATION: Only allow locations with abbreviations.
69.9004,.01 EXCEPTED LOCATIONS 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)]""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 06, 1997
DESCRIPTION: Collections for Saturday's, Sunday's, Holidays, etc. are never skipped for locations in this
field.
SCREEN: S DIC("S")="I $P(^(0),U,2)]"""""
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.9004^AC^MUMPS
1)= S %=$P(^SC(X,0),U,2) Q:'$L(%) S ^LAB(69.9,DA(1),2,"AC",%)=""
2)= S %=$P(^SC(X,0),U,2) Q:'$L(%) K ^LAB(69.9,DA(1),2,"AC",%)
CROSS-REFERENCE: 69.9004^AXE^MUMPS
1)= D EXCEPTED^LR7OV1(X,1,1)
2)= D EXCEPTED^LR7OV1(X,1,0)
Triggers the LR EXCEPTED LOCATIONS parameter in CPRS.
69.9,510 BUILDING COLLECTION LIST 5;10 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: FEB 04, 1985
HELP-PROMPT: Do NOT set this to YES. If this is set to YES the collection list will not build.
DESCRIPTION: This field is here only to allow a site to reset it if the system stopped during the building of
the phlebotomy collection list. IF THE USER SETS THIS TO YES THE COLLECTION LIST WILL NOT WORK!!!
69.9,511 COLLECTION LIST BUILD $H 5;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
OUTPUT TRANSFORM: S Y=$$DDDATE^LRAFUNC1($$CDHTFM^LRAFUNC1(Y),1)
LAST EDITED: OCT 31, 1992
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION: This field is used and filled in by the collection list when it is built. It contains the date
that the list was built. For troubleshooting purposes only.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9,512 COLLECTION LIST BUILDER (DUZ) 5;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 07, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
DESCRIPTION: This field is used and filled in by the collection list when it is built. It contains the DUZ of
the user that built the list. For troubleshooting purposes only.
69.9,513 COLLECTION LIST TIME 5;14 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 07, 1987
DESCRIPTION: This field is used and filled in by the collection list when it is built. It contains the time
that the list is built. For troubleshooting purposes only.
69.9,514 COLLECTION LIST PRINT COUNT 5;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 07, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
DESCRIPTION: This field is used and filled in by the collection list when it is built and printed. It contains
a count of the number of times a collection list is printed. For troubleshooting purposes only.
69.9,520 DATE ROLLOVER LAST RUN RO;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<3) X
OUTPUT TRANSFORM: S Y=$$DDDATE^LRAFUNC1($$CDHTFM^LRAFUNC1(Y),1)
LAST EDITED: NOV 06, 1992
HELP-PROMPT: ANSWER MUST BE 3-10 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the date that Rollover last run.
69.9,521 ROLLOVER RUNNING RO;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 13, 1985
DESCRIPTION:
This field will be automatically set to YES when rollover is running.
69.9,530 STANDARD LOCATIONS ONLY 1;8 SET
'1' FOR YES;
LAST EDITED: JAN 09, 1987
DESCRIPTION: If you want to restrict accessioning to only allow the entry of standard locations (locations
defined in the Hospital location file), set this field to YES.
69.9,600 ARCHIVE DATA 6;0 Multiple #69.9003 (Add New Entry without Asking)
DESCRIPTION: This field contains a history of archive activity done in the past. It also may contain
information concerning archive process in progress.
69.9003,.01 LOGICAL NAME 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: AUG 19, 1985
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
The logical name for the archive media.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69.9003,1 PHYSICAL NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: AUG 30, 1985
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION:
The physical name for the archive media.
69.9003,2 RUN DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 19, 1985
DESCRIPTION:
The date on which the particular archive run is made.
69.9003,3 STATUS 0;4 SET
'1' FOR Searching;
'2' FOR Search done;
'3' FOR Clear;
'4' FOR Purging;
'5' FOR Purge done;
LAST EDITED: AUG 21, 1985
DESCRIPTION:
This field indicates the current status of the archive process.
69.9003,4 FOR DATA BEFORE DATE 0;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 19, 1985
DESCRIPTION:
The date prior to which data may be archived.
69.9,601 DEFAULT PROVIDER 0;16 SET
'1' FOR YES;
LAST EDITED: NOV 30, 1993
HELP-PROMPT: Enter name a 1 if you want to be defaulted with a provider if patient is an outpatient.
DESCRIPTION:
Enter a 1 if you want to be defaulted with a provider if the patient is an outpatient.
69.9,602 COMBINE TEST DURING ORDER 0;17 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: DEC 14, 1988
HELP-PROMPT: Answer YES if you wish to have the combine test feature activatied
DESCRIPTION: This field allows a site to turn on or off the feature of combining test with in a panel which
have the same sample and urgency during the ordering process. The software will check here first
before attempting to combine single test with profiles. If there are certain test which never
should be combined, edit ^LAB(60, field SHOULD NOT BE COMBINE. Then this test will not be combine
with any other panel during ordering process.
69.9,603 LAST LRDFN ARCHIVE SEARCH LRDFN;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 26, 1989
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION: This field contains the last LRDFN that was found that required archiving during the search process
of lab archive.
69.9,604 LAST PURGED LRDFN FROM ARCHIVE PURGE LRDFN;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 26, 1989
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION:
This is the last LRDFN that the archive process had purged from the LAR global.
69.9,605 TAPE NUMBER TAPE;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 26, 1989
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: This field contains the tape number that the archive process is using during the output of archive
data to a tape media.
69.9,606 # OF DAYS FOR ERRORS ER;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>30)!(X<3)!(X?.E1"."1N.N) X
LAST EDITED: MAY 01, 1990
HELP-PROMPT: Type a Number between 3 and 30, 0 Decimal Digits
DESCRIPTION: This field is used by the ^LABERR routine to determine the how many days before auto-instrument
errors will be purged out of ^LA("ERR"). If this entry is blank, a default value of 3 days will be
used.
69.9,607 DEFAULT OPT TREATING SP. 0;19 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
LAST EDITED: MAR 06, 1991
HELP-PROMPT: Select the treating speciality for ALL out patient care.
DESCRIPTION: This field will be used as the default treating speciality for all out patient workload data
collection for WKLD. It is recommended that an entry in the FACILITY TREATING SPECIALITY (#45.7) be
made for AMBULATORY CARE.
Then use that entry in this field. IF THIS FIELD IS BLANK, THEN THERE WILL BE NO TREATING
SPECIALITY FOR OUTPATIENT WORKLOAD.
69.9,608 LRNIGHT NITE;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: MAR 07, 1991
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: This node is used for preventing two copies of the WORKLOAD data collection routine from being
executed at the same time. This node contains the date/time that the WORKLOAD collection routine
began processing the data. The node is set to null when the process completes. This node should
NOT be set through FILEMAN. TO RECOVER AFTER A SYSTEM FAILURE: DELETE THIS ENTRY TO ALLOW THE
WORKLOAD COLLECTION ROUTINE TO PROCEED.
TECHNICAL DESCR: The routine, LRCAPV2, checks this node for NULL before executing. It is set with date/time/seconds
during the routine's execution. The routine sets it to NULL just before it terminates.
The option, LRTASK NIGHTY, will kill this node on system startup.
69.9,609 PHLEB/STOP CODE RUNNING NITE;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 25, 1992
HELP-PROMPT: Answer must be 7-25 characters in length. See documentation
DESCRIPTION: Do not enter a date in this field. Doing so may stop the data collection process. The routines
will fill in the field during the data collection process and delete the date when the process has
gone to a normal completion.
TECHNICAL DESCR: This field has the word ERROR in it, this means that data for the date logged has some form of
corruption. will not process the data.
69.9,611 CLINIC STOP CODE NITE;3 POINTER TO CLINIC STOP FILE (#40.7)
LAST EDITED: JUL 05, 1991
DESCRIPTION: Enter the clinic stop code to used by the laboratory for the MAS package stop code credit.
Generally the code number is 108. Select the stop code with the STOP CODE of 108.
NOTE: THE DEFAULT VALUE IS 108.
69.9,612 COUNTING BB WORKLOAD NITE;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<7) X
LAST EDITED: JUL 05, 1991
HELP-PROMPT: Answer must be 7-25 characters in length. See Documentation
DESCRIPTION:
This field is filled in by the routine while it processes the Blood Bank workload.
69.9,613 URGENCY ALERT 0;20 POINTER TO URGENCY FILE (#62.05)
LAST EDITED: SEP 13, 1994
DESCRIPTION: This field is used as a cutoff level (urgency) to control the flashing the urgency alert display
during verification.
Any urgency equal or less than this urgency will cause the display to flash.
For example, if you enter the urgency of OUTPATIENT, it has a value of 3. Then the urgencies of
STAT, ASAP and OUTPATIENT for any accession will be flashed on the screen when data is entered.
NOTE - If your ternimal type file is setup incorrectly or the terminal you are using does not
support reverse video, the urgency will not flash, it will merely be displayed.
TECHNICAL DESCR:
Settings for video display are set in the routine LRPARAM.
SCREEN: S DIC("S")="I '$P(^(0),U,3)"
EXPLANATION: Urgency which will trigger alert to be flashed on the verification screen.
69.9,614 *TRAMSMIT CLINIC STOP CODES NITE;5 SET
'1' FOR YES;
LAST EDITED: AUG 16, 1996
DESCRIPTION: This field is no longer used to control reporting of clinic stop codes. The PCE package has
replaced the clinic stop codes with CPT codes for each test collected. You should now use PCE/VSIT
ON (#615) in LABORATORY SITE (#69.9) file to control both clinic stop code and CPT code
transmission. Patch LR*5.2*127 automatically sets the PCE/VSIT ON field to report both clinic stop
and CPT codes. It expected that beginning with Oct. 1, 1996 VA DHCP will begin reporting workload
using CPT codes. Logic has been built into the software to determine when to start reporting CPT
codes to the PCE package.
This field will be retired in future version.
69.9,615 PCE/VSIT ON VSIT;1 SET
'0' FOR OFF;
'1' FOR PCE/VSIT ONLY;
'2' FOR BOTH PCE/VSIT AND STOP CODES;
LAST EDITED: JUN 14, 1996
DESCRIPTION: This field controls how clinic stop codes are reported. Laboratory encounters are being converted
from Clinic Stop Codes to CPT codes. CPT codes are passed via a PCE interface.
Enter OFF to stop all reporting.
Enter PCE/VSIT to send only CPT codes and no Clinic Stop Code
Reporting.
Enter BOTH PCE/VSIT AND STOP CODES to continue sending Stop codes
in addition to CPT Codes.
69.9,616 COLLECT WKLD LOG FILE DATA NITE;6 SET
'1' FOR YES;
LAST EDITED: APR 14, 1993
DESCRIPTION: The use of this field must be coordinated with the local DSS program official. New functionality
now extracts this data in batch mode. All data in this file is purged before each batch data
extraction session.
HIGHLY RECOMMEND THIS FIELD BE SET TO NULL
This field controls if data should be accumulated in the WKLD LOG FILE (#64.03). This file can be
used for special onsite local interest in laboratory workload. This file contains information about
what test are performed by the laboratory. Any special cost analysis study can make use of this
file without having to actually navigate through various globals to obtain data. DSS/DMSS project
will find the file very useful.
Also there is an option provided to allow printing of this file with suitable cell separators for
downloading to spread sheets operating on PC based systems.
69.9,617 PCE DEFAULT PROVIDER 12;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,11),$$GET^XUA4A72(Y)>0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 18, 1997
DESCRIPTION: The provider entered will be used if the ordering provider has been terminated or does not have a
person class assigned on the date of the encounter (LAB ARRIVAL TIME). Great care should be taken
not to terminate or remove the default provider's person class. In addition the person class should
be appropriate for a primary care provider. Failure to enter or the removal of the default provider
will cause ALL WORKLOAD REPORTING TO STOP. No workload will be passed to PCE and no laboratory
phlebotomy workload will be collected.
If this field is vacant or the default provider becomes invalid NO WORKLOAD IS COLLECTED. None of
the workload data is lost. The workload processing software will resume processing stored data once
a valid default provider is entered.
SCREEN: S DIC("S")="I '$P(^(0),U,11),$$GET^XUA4A72(Y)>0"
EXPLANATION: No termination date and has a person class
69.9,618 DIVISION PARAMETERS 14;0 POINTER Multiple #69.9618
SCREEN: S DIC("S")="I $G(^(99),U)"
EXPLANATION: Must have a station number assigned
69.9618,.01 DIVISION PARAMETERS 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $G(^(99),U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: OCT 17, 1999
SCREEN: S DIC("S")="I $G(^(99),U)"
EXPLANATION: Select Institutions having station numbers only
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 69.9618^B
1)= S ^LAB(69.9,DA(1),14,"B",$E(X,1,30),DA)=""
2)= K ^LAB(69.9,DA(1),14,"B",$E(X,1,30),DA)
69.9618,618 VENIPUNCTURE DEFAULT ACC AREA 20;1 POINTER TO ACCESSION FILE (#68)
LAST EDITED: APR 27, 2000
DESCRIPTION: This field will allow the site to assign the venipuncture LMIP workload to a specific ACCESSION
AREA. If this field is blank, the venipuncture workload software will use the ACCESSION AREA name
that begins with 'HEM'. If there is no ACCESSION AREA with a name beginning with 'HEM',
ACCESSION AREA the internal file number of 10 will be used as the default Venipuncture Accession
Area.
69.9,619 AP ESIG ON 15;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 31, 2001
HELP-PROMPT: Enter 'Y' or 'N'
DESCRIPTION: This field is used to activate the electronic signature function for Anatomic Pathology reports.
If the flag is turned on, at the time a report is verified/released, the user will be prompted for
an electronic signature. The document will then be stored in TIU. If the flag is off, the report
will be verified/released without electronic signature and the document will not be stored in TIU.
DELETE TEST: 1,0)= I
69.9,620 PANEL PROCESS DATE VSIT;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 15, 2005
DESCRIPTION: The day of the month used for processing panel tests that contain pending atomic tests for the
prior calendar month. This should be one day prior to the monthly PCE roll-up date.
69.9,21661 CPRS AP DIALOG ON 21661;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: FEB 12, 2016
HELP-PROMPT: Select YES to turn on CPRS AP Dialog feature
DESCRIPTION: This field indicates that the CPRS AP Dialog function is active. This field determines if the CPRS
AP Order dialog is processed during AP Log-in.
FILES POINTED TO FIELDS
ACCESSION (#68) LABEL DEVICE:DEFAULT ACCESSION AREA (#.06)
DIVISION PARAMETERS:VENIPUNCTURE DEFAULT ACC AREA (#618)
BLOOD BANK DEFAULTS:major section (#.1)
subsection (#.11)
BLOOD BANK INSTITUTION:INVENTORY MAJOR SECTION (#.02)
INVENTORY SUBSECTION (#.03)
DONOR MAJOR SECTION (#.04)
DONOR SUBSECTION (#.05)
CLINIC STOP (#40.7) CLINIC STOP CODE (#611)
DEVICE (#3.5) LOG PRINTER FOR ROUTINE LC (#303)
IMMED LAB COLLECT DIV.:IMMED LAB COLLECT PRINTER (#.05)
PRINTER DIVISION:LOG PRINTER FOR ROUTINE LC (#.02)
ACCESSION PRINTER (#.03)
LABEL DEVICE:LABEL DEVICE (#.01)
FACILITY TREATING SPECIALTY
(#45.7) DEFAULT OPT TREATING SP. (#607)
HOSPITAL LOCATION (#44) DEFAULT LAB OOS LOCATION (#.8)
EXCEPTED LOCATIONS:EXCEPTED LOCATIONS (#.01)
HOSPITAL SITE:HOSPITAL SITE (#.01)
INSTITUTION (#4) DEFAULT INSTITUTION (#3)
PHLEBOTOMY ORDER CUT-OFF TIME:DIVISION (#3)
IMMED LAB COLLECT DIV.:IMMED COLLECTION DIV. (#.01)
PRINTER DIVISION:PRINTER DIVISION (#.01)
DIVISION PARAMETERS:DIVISION PARAMETERS (#.01)
BLOOD BANK INSTITUTION:BLOOD BANK DIVISION (#.01)
NATURE OF ORDER (#100.02) DEFAULT NATURE OF ORDER (#150.1)
NEW PERSON (#200) PCE DEFAULT PROVIDER (#617)
ORDER REASON (#100.03) DEFAULT DC REASON (#150.2)
TOPOGRAPHY FIELD (#61) DEFAULT BLOOD SPECIMEN (#100)
DEFAULT URINE SPECIMEN (#101)
DEFAULT SERUM SPECIMEN (#102)
DEFAULT PLASMA SPECIMEN (#103)
DEFAULT UNKNOWN SPECIMEN (#104)
URGENCY (#62.05) DEFAULT URGENCY (#301)
URGENCY ALERT (#613)
INPUT TEMPLATE(S):
LR WKLD STATS ON MAR 23, 1992@14:55 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):