Sub-Field: 69.9006

Parent File	Name	Number	Package
LABORATORY SITE(#69.9)	IMMED LAB COLLECT DIV.	69.9006	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	IMMED COLLECTION DIV.	0;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `I $D(X) S DINUM=X` LAST EDITED: `DEC 03, 1991` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	HOLIDAYS ?	0;2	SET	'1' FOR YES; LAST EDITED: `DEC 02, 1991`
.05	IMMED LAB COLLECT PRINTER	0;3	POINTER TO DEVICE FILE (#3.5)	DEVICE(#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`
.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`
.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`
1	SUNDAY	SUN;1	SET	'1' FOR YES; LAST EDITED: `DEC 02, 1991`
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
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`
2	MONDAY	MON;1	SET	'1' FOR YES; LAST EDITED: `DEC 02, 1991`
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
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`
3	TUESDAY	TUE;1	SET	'1' FOR Y; LAST EDITED: `DEC 02, 1991`
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
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`
4	WEDNESDAY	WED;1	SET	'1' FOR Y; LAST EDITED: `DEC 03, 1991`
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
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`
5	THURSDAY	THU;1	SET	'1' FOR YES; LAST EDITED: `DEC 03, 1991`
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
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`
6	FRIDAY	FRI;1	SET	'1' FOR YES; LAST EDITED: `DEC 03, 1991`
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
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`
7	SATURDAY	SAT;1	SET	'1' FOR Y; LAST EDITED: `DEC 03, 1991`
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
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`
8	IMMED COLLECT ON	0;6	SET	'1' FOR YES; LAST EDITED: `OCT 19, 1992`

Customize PDF page

Package: Lab Service

LABORATORY SITE(#69.9)-->69.9006

Sub-Field: 69.9006

Information

Details