Sub-Field: 69.9007

Parent File	Name	Number	Package
LABORATORY SITE(#69.9)	PRINTER DIVISION	69.9007	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PRINTER DIVISION	0;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#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)
.02	LOG PRINTER FOR ROUTINE LC	0;2	POINTER TO DEVICE FILE (#3.5)	DEVICE(#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`
.03	ACCESSION PRINTER	0;3	POINTER TO DEVICE FILE (#3.5)	DEVICE(#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`

PRINTER DIVISION

0;1

POINTER TO INSTITUTION FILE (#4)

DESCRIPTION:

This field should be set equal to the DUZ(2) value.

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)

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

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