| FIELD |
-
- FIELD ORDER: 1
- 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,"~","/")
- DATA COORDINATE: 1,20
- DATA LENGTH: 26
|
