INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<9)!'(X?4N1"-"4N) X
LAST EDITED: MAR 14, 1989
HELP-PROMPT: Enter Time Range in format NNNN-NNNN, e.g., 0800-1630 for 8:00 am to 4:30 pm.
DESCRIPTION: This field may be used to set prohibited times for specific days of the week. The PROHIBITED TIME RANGE may be specified alone to apply to all days as 0800-1630 to prohibit use between 8:00 am and 4:30 pm.
The time range specified may be prohibited on one or more specific days of the week by entry of the desired prohibited days in the next field of this subfield.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1)= S ^DIC(19,DA(1),3.91,"B",$E(X,1,30),DA)=""
2)= K ^DIC(19,DA(1),3.91,"B",$E(X,1,30),DA)
1)= S %XQDA=DA,DA=DA(1) D REDO^XQ7 S DA=%XQDA K %XQDA
2)= S %XQDA=DA,DA=DA(1) D REDO^XQ7 S DA=%XQDA K %XQDA
This cross-reference causes the option to be flagged for updating in the menu trees so that the changes effecting display and/or access to the option are correctly updated.