TIME SEGMENT (443)    BLOCK (.404)

Name Value
NAME TIME SEGMENT
DATA DICTIONARY NUMBER 451.9999
PRE ACTION S:$O(PRSNPC(""))]"" DDSCHG=1
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