Sub-Field: 133.027

Parent File	Name	Number	Package
SURGERY SITE PARAMETERS(#133)	HOLIDAY SCHEDULING ALLOWED	133.027	Surgery

Parent File

Name

Number

Package

HOLIDAY SCHEDULING ALLOWED

133.027

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	HOLIDAY SCHEDULING ALLOWED	0;1	POINTER TO HOLIDAY FILE (#40.5)	HOLIDAY(#40.5) INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X` OUTPUT TRANSFORM: `D DD^%DT` LAST EDITED: `JAN 30, 1992` HELP-PROMPT: `Enter a holiday on which scheduling will be allowed.` DESCRIPTION: `This is a holiday on which the scheduling of surgical cases will be` `allowed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `133.027^B` `1)= S ^SRO(133,DA(1),3,"B",$E(X,1,30),DA)=""` `2)= K ^SRO(133,DA(1),3,"B",$E(X,1,30),DA)`

HOLIDAY SCHEDULING ALLOWED

0;1

POINTER TO HOLIDAY FILE (#40.5)

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
OUTPUT TRANSFORM: D DD^%DT
LAST EDITED: JAN 30, 1992
HELP-PROMPT: Enter a holiday on which scheduling will be allowed.
DESCRIPTION: This is a holiday on which the scheduling of surgical cases will be
allowed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 133.027^B
1)= S ^SRO(133,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^SRO(133,DA(1),3,"B",$E(X,1,30),DA)