PRSA TE EDIT (79)    BLOCK (.404)

Name Value
NAME PRSA TE EDIT
DATA DICTIONARY NUMBER 458.01
FIELD
  • FIELD ORDER:   1
    CAPTION:   VA TIME & ATTENDANCE SYSTEM
    FIELD TYPE:   CAPTION ONLY
    CAPTION COORDINATE:   1,27
  • FIELD ORDER:   15
    CAPTION:   Thu
    POST ACTION:   I $G(PRSTW(5))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=14.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   12,10
    DATA LENGTH:   30
    CAPTION COORDINATE:   12,1
    SUPPRESS COLON AFTER CAPTION?:   YES
  • FIELD ORDER:   16
    CAPTION:   Fri
    POST ACTION:   I $G(PRSTW(6))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=15.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   13,10
    DATA LENGTH:   30
    CAPTION COORDINATE:   13,1
    SUPPRESS COLON AFTER CAPTION?:   YES
  • FIELD ORDER:   17
    CAPTION:   Sat
    POST ACTION:   I $G(PRSTW(7))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=16.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   14,10
    DATA LENGTH:   30
    CAPTION COORDINATE:   14,1
    SUPPRESS COLON AFTER CAPTION?:   YES
  • FIELD ORDER:   18
    POST ACTION:   I $G(PRSTW(8))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=17.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   8,45
    DATA LENGTH:   30
  • FIELD ORDER:   19
    POST ACTION:   I $G(PRSTW(9))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=18.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   9,45
    DATA LENGTH:   30
  • FIELD ORDER:   20
    POST ACTION:   I $G(PRSTW(10))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=19.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   10,45
    DATA LENGTH:   30
  • FIELD ORDER:   21
    POST ACTION:   I $G(PRSTW(11))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=20.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   11,45
    DATA LENGTH:   30
  • FIELD ORDER:   22
    POST ACTION:   I $G(PRSTW(12))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=21.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   12,45
    DATA LENGTH:   30
  • FIELD ORDER:   23
    POST ACTION:   I $G(PRSTW(13))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=22.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   13,45
    DATA LENGTH:   30
  • FIELD ORDER:   24
    POST ACTION:   I $G(PRSTW(14))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=23.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   14,45
    DATA LENGTH:   30
  • FIELD ORDER:   2
    CAPTION:   EMPLOYEE TOUR OF DUTY
    FIELD TYPE:   CAPTION ONLY
    CAPTION COORDINATE:   2,30
  • FIELD ORDER:   25
    CAPTION:   !M
    EXECUTABLE CAPTION:   S Y="Telework Indicator: "_$S($P(PRSTWA,U,3)]"":$P(PRSTWA,U,3),1:"None")
    FIELD TYPE:   CAPTION ONLY
    CAPTION COORDINATE:   4,34
  • FIELD ORDER:   13.8
    PRE ACTION:   S:'PRSTWB DDSBR=14
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,204) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=13.8
    POST ACTION ON CHANGE:   S PRSTW(4)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   11,6
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(4))
  • FIELD ORDER:   17.8
    PRE ACTION:   S:'PRSTWB DDSBR=18
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,208) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=17.8
    POST ACTION ON CHANGE:   S PRSTW(8)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   8,41
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(8))
  • FIELD ORDER:   10.8
    PRE ACTION:   S:'PRSTWB DDSBR=11
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,201) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=10.8
    POST ACTION ON CHANGE:   S PRSTW(1)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   8,6
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(1))
  • FIELD ORDER:   11.8
    PRE ACTION:   S:'PRSTWB DDSBR=12
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,202) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=11.8
    POST ACTION ON CHANGE:   S PRSTW(2)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   9,6
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(2))
  • FIELD ORDER:   12.8
    PRE ACTION:   S:'PRSTWB DDSBR=13
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,203) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=12.8
    POST ACTION ON CHANGE:   S PRSTW(3)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   10,6
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(3))
  • FIELD ORDER:   14.8
    PRE ACTION:   S:'PRSTWB DDSBR=15
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,205) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=14.8
    POST ACTION ON CHANGE:   S PRSTW(5)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   12,6
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(5))
  • FIELD ORDER:   15.8
    PRE ACTION:   S:'PRSTWB DDSBR=16
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,206) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=15.8
    POST ACTION ON CHANGE:   S PRSTW(6)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   13,6
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(6))
  • FIELD ORDER:   16.8
    PRE ACTION:   S:'PRSTWB DDSBR=17
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,207) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=16.8
    POST ACTION ON CHANGE:   S PRSTW(7)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   14,6
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(7))
  • FIELD ORDER:   18.8
    PRE ACTION:   S:'PRSTWB DDSBR=19
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,209) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=18.8
    POST ACTION ON CHANGE:   S PRSTW(9)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   9,41
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(9))
  • FIELD ORDER:   3
    CAPTION:   !M
    EXECUTABLE CAPTION:   S Y=$P(^PRSPC(DFN,0),"^",1)
    FIELD TYPE:   CAPTION ONLY
    CAPTION COORDINATE:   4,1
  • FIELD ORDER:   19.8
    PRE ACTION:   S:'PRSTWB DDSBR=20
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,210) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=19.8
    POST ACTION ON CHANGE:   S PRSTW(10)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   10,41
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(10))
  • FIELD ORDER:   20.8
    PRE ACTION:   S:'PRSTWB DDSBR=21
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,211) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=20.8
    POST ACTION ON CHANGE:   S PRSTW(11)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   11,41
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(11))
  • FIELD ORDER:   21.8
    PRE ACTION:   S:'PRSTWB DDSBR=22
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,212) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=21.8
    POST ACTION ON CHANGE:   S PRSTW(12)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   12,41
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(12))
  • FIELD ORDER:   22.8
    PRE ACTION:   S:'PRSTWB DDSBR=23
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,213) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=22.8
    POST ACTION ON CHANGE:   S PRSTW(13)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   13,41
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(13))
  • FIELD ORDER:   23.8
    PRE ACTION:   S:'PRSTWB DDSBR=24
    POST ACTION:   S Y=$$GET^DDSVAL(DIE,.DA,214) I X]"",Y,Y<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=23.8
    POST ACTION ON CHANGE:   S PRSTW(14)=X
    FIELD TYPE:   FORM ONLY
    READ TYPE:   DATA DICTIONARY
    QUALIFIERS:   458.02,74
    DATA COORDINATE:   14,41
    DATA LENGTH:   3
    DEFAULT:   !M
    EXECUTABLE DEFAULT:   S Y=$G(PRSTW(14))
  • FIELD ORDER:   4
    CAPTION:   !M
    EXECUTABLE CAPTION:   S Y=$P($G(^PRSPC(DFN,0)),"^",9) S:Y'="" Y=$E(Y)_"XX-XX-"_$E(Y,6,9)
    FIELD TYPE:   CAPTION ONLY
    CAPTION COORDINATE:   4,66
  • FIELD ORDER:   5
    CAPTION:   !M
    EXECUTABLE CAPTION:   S Y="TW Week 1 - "_$E(Y1,5,13)_" TW Week 2 - "_$E(Y2,5,13)
    FIELD TYPE:   CAPTION ONLY
    CAPTION COORDINATE:   6,6
  • FIELD ORDER:   11
    CAPTION:   Sun
    POST ACTION:   I $G(PRSTW(1))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=10.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   8,10
    DATA LENGTH:   30
    CAPTION COORDINATE:   8,1
    SUPPRESS COLON AFTER CAPTION?:   YES
  • FIELD ORDER:   12
    CAPTION:   Mon
    POST ACTION:   I $G(PRSTW(2))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=11.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   9,10
    DATA LENGTH:   30
    CAPTION COORDINATE:   9,1
    SUPPRESS COLON AFTER CAPTION?:   YES
  • FIELD ORDER:   13
    CAPTION:   Tue
    POST ACTION:   I $G(PRSTW(3))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=12.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   10,10
    DATA LENGTH:   30
    CAPTION COORDINATE:   10,1
    SUPPRESS COLON AFTER CAPTION?:   YES
  • FIELD ORDER:   14
    CAPTION:   Wed
    POST ACTION:   I $G(PRSTW(4))]"",X,X<2 D HLP^DDSUTL("Can't schedule Telework on a Day Off.") S DDSBR=13.8
    FIELD TYPE:   DATA DICTIONARY FIELD
    DATA COORDINATE:   11,10
    DATA LENGTH:   30
    CAPTION COORDINATE:   11,1
    SUPPRESS COLON AFTER CAPTION?:   YES