BRANCHING LOGIC: S Y=$$MILSS^PRSNEE0(X,$$GET^DDSVAL(DIE,.DA,1),1) S:$P(Y,U,2)<2401&PRSNTM&($P(Y,U,2)'="") DDSSTACK=1.5
POST ACTION: S Z=$$GET^DDSVAL(DIE,.DA,8),Y=$$GET^DDSVAL(DIE,.DA,9) D HLP^DDSUTL("Military Time "_Z_" - "_Y)
POST ACTION ON CHANGE: S Z=$$GET^DDSVAL(DIE,.DA,1),Y=$$MILSS^PRSNEE0(X,Z,1) D PUT^DDSVAL(DIE,.DA,8,$P(Y,U)),PUT^DDSVAL(DIE,.DA,9,$P(Y,U,2)),HLP^DDSUTL("Military Time "_$P(Y,U)_" - "_$P(Y,U,2))
DATA VALIDATION: S Y=$$MILSS^PRSNEE0(X,$$GET^DDSVAL(DIE,.DA,1),1) I Y'<$P(Y,U,2) S DDSERROR=1 D HLP^DDSUTL("Stop time must be greater than start time")
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 1,2
DATA LENGTH: 6
REQUIRED: YES
DISABLE EDITING: NO
FIELD ORDER: 7.5
FIELD TYPE: COMPUTED
COMPUTED EXPRESSION: S Y={TYPE OF WORK:WORK DESCRIPTION} I Y]"" S Y="-"_Y
DATA COORDINATE: 1,65
DATA LENGTH: 11
FIELD ORDER: 2
BRANCHING LOGIC: S Y=$$MILSS^PRSNEE0($$GET^DDSVAL(DIE,.DA,.01),X,1) S:$P(Y,U,2)<2401&PRSNTM&($P(Y,U,2)'="") DDSSTACK=1.5
POST ACTION: S Z=$$GET^DDSVAL(DIE,.DA,8),Y=$$GET^DDSVAL(DIE,.DA,9) D HLP^DDSUTL("Military Time "_Z_" - "_Y)
POST ACTION ON CHANGE: S Z=$$GET^DDSVAL(DIE,.DA,.01),Y=$$MILSS^PRSNEE0(Z,X,1) D PUT^DDSVAL(DIE,.DA,8,$P(Y,U)),PUT^DDSVAL(DIE,.DA,9,$P(Y,U,2)),HLP^DDSUTL("Military Time "_$P(Y,U)_" - "_$P(Y,U,2))
DATA VALIDATION: S Y=$$MILSS^PRSNEE0($$GET^DDSVAL(DIE,.DA,.01),X,1) I Y'<$P(Y,U,2) S DDSERROR=1 D HLP^DDSUTL("Stop time must be greater than start time")
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 1,10
DATA LENGTH: 6
FIELD ORDER: 3
BRANCHING LOGIC: I X]"",",OT,CT,RG,"[X S DDSSTACK=1.1
PRE ACTION: I X]"" S A=$$GET^DDSVAL(DIE,.DA,2) I A S Y=$$GET^DDSVAL(DIE,.DA,8),Z=$$GET^DDSVAL(DIE,.DA,9) I Z\100*60+(Z#100)-(Y\100*60+(Y#100))2400)!(",OT,CT,RG,"[X) D HLP^DDSUTL("Meal Time is over Start/Stop Time.") S DDSBR=8
POST ACTION: I $$GET^DDSVAL(DIE,.DA,9)>2400,'PRSNTM,",OT,CT,RG,"'[X D HLP^DDSUTL("For 1-Day Tour, Stop Time in the Second Day Tour must have Type of Time OT/CT/RG.") S DDSBR=3
POST ACTION ON CHANGE: I ",OT,CT,RG,"'[X D PUT^DDSVAL(DIE,.DA,6,""),PUT^DDSVAL(DIE,.DA,7,"") D:",HW,TR,TV,WI,"'[X PUT^DDSVAL(DIE,.DA,5,"")
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 1,18
DATA LENGTH: 2
FIELD ORDER: 6
PRE ACTION: S A=$$GET^DDSVAL(DIE,.DA,2) I A S Y=$$GET^DDSVAL(DIE,.DA,8),Z=$$GET^DDSVAL(DIE,.DA,9) I Z\100*60+(Z#100)-(Y\100*60+(Y#100))DDSUTL("Meal Time is over Start/Stop Time.") S DDSBR=8
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 1,48
DATA LENGTH: 13
FIELD ORDER: 7
PRE ACTION: D WORKTYPH^PRSNEE S A=$$GET^DDSVAL(DIE,.DA,3) I ",WI,OT,CT,RG,HW,TR,TV,"'[A S DDSBR=8
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 1,63
DATA LENGTH: 2
FIELD ORDER: 8
PRE ACTION: I $$GET^DDSVAL(DIE,.DA,8)'<$$GET^DDSVAL(DIE,.DA,9) D HLP^DDSUTL("Start/Stop time in wrong order") S DDSBR=2
POST ACTION: S Y=$$GET^DDSVAL(DIE,.DA,9),Z=$$GET^DDSVAL(DIE,.DA,8) I Y\100*60+(Y#100)-(Z\100*60+(Z#100))DDSUTL("Meal Time is over Start/Stop Time.") S DDSBR=8
POST ACTION ON CHANGE: S Y=$$GET^DDSVAL(DIE,.DA,9),Z=$$GET^DDSVAL(DIE,.DA,8) D HLP^DDSUTL("This is the military time for Start/Stop Time "_Z_"-"_Y)
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 1,78
DATA LENGTH: 2
FIELD ORDER: 4
FIELD TYPE: COMPUTED
COMPUTED EXPRESSION: S Y={TYPE OF TIME:457.3:1}_"~"_{MANDATORY INDICATOR;I}_"~"_{REASON FOR OT/CT/RG:1} S:$P(Y,"~",2,3)="~" Y=$P(Y,"~") I Y'?.P S Y="-"_$TR(Y,"~","/")
