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 Mondays 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 Monday when appointments may be made
to this clinic. If the date equals 9999999, this pattern is effective indefinitely for Mondays 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