Sub-Field: 69.9004

Parent File	Name	Number	Package
LABORATORY SITE(#69.9)	EXCEPTED LOCATIONS	69.9004	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	EXCEPTED LOCATIONS	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) 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.

EXCEPTED LOCATIONS

0;1

POINTER TO HOSPITAL LOCATION FILE (#44)

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.

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.