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

PRSA TE EDIT (79) BLOCK (.404)