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.
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.