INPUT TRANSFORM: K:$L(X)>9!($L(X)<9)!'(X?4N1"-"4N) X
LAST EDITED: DEC 03, 1990
HELP-PROMPT: Enter time period as NNNN-NNNN (e.g., 0800-1630)
DESCRIPTION:
This field is used to specify a time period for the days of the week specified in field .02 during which the option may be run, but output must be queued to a time outside the dates and times specified.
CROSS-REFERENCE: 19.392^B
1)= S ^DIC(19,DA(1),3.92,"B",$E(X,1,30),DA)=""
2)= K ^DIC(19,DA(1),3.92,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^19^3.93
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X="1" X ^DD(19.392,.01,1,2,1.4)
1.4)= S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,18)=DIV,DIH=19,DIG=3.93 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I $O(^DIC(19,DA(1),3.92,0))=DA,$O(^(DA))'>0 I X S X=DIV S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" X ^DD(19.392,.01,1,2,2.4)
2.4)= S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,18)=DIV,DIH=19,DIG=3.93 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
3)= Output restrictions won't work if deleted.
CREATE VALUE)= "1"
DELETE CONDITION)= I $O(^DIC(19,DA(1),3.92,0))=DA,$O(^(DA))'>0
DELETE VALUE)= ""
DIC)=
FIELD)= OUTPUT
This cross-reference sets a flag in the 0th node of the option when output restrictions are in effect. $P(XQY0,U,18) will be 1 if there are restrictions, and null if there are not. This flag is used by TaskMan to see
HELP-PROMPT: No Entry indicates all days, or enter 2 letter day, MO, or days separated by commas MO,WE,FR or range of days MO-FR for inclusive range (Monday through Friday)
DESCRIPTION:
This field is used to specify one or more specific days of the week when the option must be queued to a time outside those specified in the .01 field.