Sub-Field: 44.0001

Parent File	Name	Number	Package
HOSPITAL LOCATION(#44)	SATURDAY TEMPLATE	44.0001	Scheduling

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	LIMIT DATE	0;1	NUMBER	INPUT TRANSFORM: `W:'$D(SDSCHED) 7,!,"No editting of this field allowed through fileman" K:'$D(SDSCHED) X I $D(X) S %DT="EX",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X` LAST EDITED: `AUG 01, 1986` HELP-PROMPT: `ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER` DESCRIPTION: `The pattern stored at this date is applicable for Saturdays from the previous entry's date up to but not including this date. If there is no previous entry date, this date is the first Saturday when appointments may be` `made to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Saturdays from the previous entry date.` DELETE TEST: `1,0)= I '$D(SDSCHED) W !,7,"You cannot delete this field using fileman!!!"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	MASTER PATTERN	1;E1,80	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3)!'(X?.E1"[".E!(X="")) X` LAST EDITED: `AUG 01, 1986` HELP-PROMPT: `ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH` DESCRIPTION: `Master pattern set up for clinic for saturdays.` DELETE TEST: `1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"`

LIMIT DATE

0;1

NUMBER

INPUT TRANSFORM: W:'$D(SDSCHED) *7,!,"No editting of this field allowed through fileman" K:'$D(SDSCHED) X I $D(X) S %DT="EX",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER
DESCRIPTION: The pattern stored at this date is applicable for Saturdays from the previous entry's date up to but not including this date. If there is no previous entry date, this date is the first Saturday when appointments may be
made to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Saturdays from the previous entry date.
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

MASTER PATTERN

1;E1,80

FREE TEXT

INPUT TRANSFORM: K:$L(X)>80!($L(X)<3)!'(X?.E1"[".E!(X="")) X
LAST EDITED: AUG 01, 1986
HELP-PROMPT: ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH
DESCRIPTION:
Master pattern set up for clinic for saturdays.
DELETE TEST: 1,0)= I '$D(SDSCHED) W !,*7,"You cannot delete this field using fileman!!!"