| FIELD |
-
- FIELD ORDER: 12
- PRE ACTION: D PSTML^PRSPESR2(2)
- POST ACTION: I X="ML" D HLP^DDSUTL("Please verify that at least one hour of Military Leave has been requested.")
- POST ACTION ON CHANGE: S $P(Z,"^",8)=X,$P(Z,"^",9)="" D PUT^DDSVAL(DIE,.DA,118,"@","","E")
- DATA VALIDATION: D VALIDTT^PRSPESR2
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 4,24
- DATA LENGTH: 10
-
- FIELD ORDER: 13
- PRE ACTION: S TT=$$GET^DDSVAL(DIE,.DA,117) S:TT=""!(TT="RG") TT="*" S:TT="WP" TT="AL"
- POST ACTION ON CHANGE: S $P(Z,"^",9)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 4,37
- DATA LENGTH: 23
-
- FIELD ORDER: 16
- CAPTION: 3
- POST ACTION ON CHANGE: S $P(Z,"^",11)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: ST3
- DATA COORDINATE: 5,4
- DATA LENGTH: 7
- CAPTION COORDINATE: 5,2
- SUPPRESS COLON AFTER CAPTION?: YES
-
- FIELD ORDER: 17
- POST ACTION ON CHANGE: S $P(Z,"^",12)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: END3
- DATA COORDINATE: 5,14
- DATA LENGTH: 7
-
- FIELD ORDER: 18
- PRE ACTION: D PSTML^PRSPESR2(3)
- POST ACTION: I X="ML" D HLP^DDSUTL("Please verify that at least one hour of Military Leave has been requested.")
- POST ACTION ON CHANGE: S $P(Z,"^",13)=X,$P(Z,"^",14)="" D PUT^DDSVAL(DIE,.DA,123,"@","","E")
- DATA VALIDATION: D VALIDTT^PRSPESR2
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 5,24
- DATA LENGTH: 10
-
- FIELD ORDER: 19
- PRE ACTION: S TT=$$GET^DDSVAL(DIE,.DA,122) S:TT=""!(TT="RG") TT="*" S:TT="WP" TT="AL"
- POST ACTION ON CHANGE: S $P(Z,"^",14)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 5,37
- DATA LENGTH: 23
-
- FIELD ORDER: 22
- CAPTION: 4
- POST ACTION ON CHANGE: S $P(Z,"^",16)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: ST4
- DATA COORDINATE: 6,4
- DATA LENGTH: 7
- CAPTION COORDINATE: 6,2
- SUPPRESS COLON AFTER CAPTION?: YES
-
- FIELD ORDER: 23
- POST ACTION ON CHANGE: S $P(Z,"^",17)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: END4
- DATA COORDINATE: 6,14
- DATA LENGTH: 7
-
- FIELD ORDER: 24
- PRE ACTION: D PSTML^PRSPESR2(4)
- POST ACTION: I X="ML" D HLP^DDSUTL("Please verify that at least one hour of Military Leave has been requested.")
- POST ACTION ON CHANGE: S $P(Z,"^",18)=X,$P(Z,"^",19)="" D PUT^DDSVAL(DIE,.DA,128,"@","","E")
- DATA VALIDATION: D VALIDTT^PRSPESR2
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 6,24
- DATA LENGTH: 10
-
- FIELD ORDER: 25
- PRE ACTION: S TT=$$GET^DDSVAL(DIE,.DA,127) S:TT=""!(TT="RG") TT="*" S:TT="WP" TT="AL"
- POST ACTION ON CHANGE: S $P(Z,"^",19)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 6,37
- DATA LENGTH: 23
-
- FIELD ORDER: 28
- CAPTION: 5
- POST ACTION ON CHANGE: S $P(Z,"^",21)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: ST5
- DATA COORDINATE: 7,4
- DATA LENGTH: 7
- CAPTION COORDINATE: 7,2
- SUPPRESS COLON AFTER CAPTION?: YES
-
- FIELD ORDER: 29
- POST ACTION ON CHANGE: S $P(Z,"^",22)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: END5
- DATA COORDINATE: 7,14
- DATA LENGTH: 7
-
- FIELD ORDER: 30
- PRE ACTION: D PSTML^PRSPESR2(5)
- POST ACTION: I X="ML" D HLP^DDSUTL("Please verify that at least one hour of Military Leave has been requested.")
- POST ACTION ON CHANGE: S $P(Z,"^",23)=X,$P(Z,"^",24)="" D PUT^DDSVAL(DIE,.DA,133,"@","","E")
- DATA VALIDATION: D VALIDTT^PRSPESR2
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 7,24
- DATA LENGTH: 10
-
- FIELD ORDER: 31
- PRE ACTION: S TT=$$GET^DDSVAL(DIE,.DA,132) S:TT=""!(TT="RG") TT="*" S:TT="WP" TT="AL"
- POST ACTION ON CHANGE: S $P(Z,"^",24)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 7,37
- DATA LENGTH: 23
-
- FIELD ORDER: 34
- CAPTION: 6
- POST ACTION ON CHANGE: S $P(Z,"^",26)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: ST6
- DATA COORDINATE: 8,4
- DATA LENGTH: 7
- CAPTION COORDINATE: 8,2
- SUPPRESS COLON AFTER CAPTION?: YES
-
- FIELD ORDER: 35
- POST ACTION ON CHANGE: S $P(Z,"^",27)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: END6
- DATA COORDINATE: 8,14
- DATA LENGTH: 7
-
- FIELD ORDER: 36
- PRE ACTION: D PSTML^PRSPESR2(6)
- POST ACTION: I X="ML" D HLP^DDSUTL("Please verify that at least one hour of Military Leave has been requested.")
- POST ACTION ON CHANGE: S $P(Z,"^",28)=X,$P(Z,"^",29)="" D PUT^DDSVAL(DIE,.DA,138,"@","","E")
- DATA VALIDATION: D VALIDTT^PRSPESR2
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 8,24
- DATA LENGTH: 10
-
- FIELD ORDER: 37
- PRE ACTION: S TT=$$GET^DDSVAL(DIE,.DA,137) S:TT=""!(TT="RG") TT="*" S:TT="WP" TT="AL"
- POST ACTION ON CHANGE: S $P(Z,"^",29)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 8,37
- DATA LENGTH: 23
-
- FIELD ORDER: 40
- CAPTION: 7
- POST ACTION ON CHANGE: S $P(Z,"^",31)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: ST7
- DATA COORDINATE: 9,4
- DATA LENGTH: 7
- CAPTION COORDINATE: 9,2
- SUPPRESS COLON AFTER CAPTION?: YES
-
- FIELD ORDER: 41
- POST ACTION ON CHANGE: S $P(Z,"^",32)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: END7
- DATA COORDINATE: 9,14
- DATA LENGTH: 7
-
- FIELD ORDER: 3
- CAPTION: START STOP TYPE OF TIME REMARKS CODE MEAL HRS
- FIELD TYPE: CAPTION ONLY
- CAPTION COORDINATE: 1,5
-
- FIELD ORDER: 42
- PRE ACTION: D PSTML^PRSPESR2(7)
- POST ACTION: I X="ML" D HLP^DDSUTL("Please verify that at least one hour of Military Leave has been requested.")
- POST ACTION ON CHANGE: S $P(Z,"^",33)=X,$P(Z,"^",34)="" D PUT^DDSVAL(DIE,.DA,143,"@","","E")
- DATA VALIDATION: D VALIDTT^PRSPESR2
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 9,24
- DATA LENGTH: 10
-
- FIELD ORDER: 43
- PRE ACTION: S TT=$$GET^DDSVAL(DIE,.DA,142) S:TT=""!(TT="RG") TT="*" S:TT="WP" TT="AL"
- POST ACTION ON CHANGE: S $P(Z,"^",34)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 9,37
- DATA LENGTH: 23
-
- FIELD ORDER: 46
- CAPTION: REMARKS
- POST ACTION ON CHANGE: S $P(Z,"^",36)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 11,11
- DATA LENGTH: 60
- CAPTION COORDINATE: 11,1
-
- FIELD ORDER: 44
- POST ACTION ON CHANGE: S $P(Z,"^",35)=X
- DATA VALIDATION: D OVEREAT^PRSPESR2(7)
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 9,63
- DATA LENGTH: 2
-
- FIELD ORDER: 45
- FIELD TYPE: COMPUTED
- COMPUTED EXPRESSION: S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-7},{ESR START TIME-7},{ESR STOP TIME-7})
- DATA COORDINATE: 9,69
- DATA LENGTH: 5
- RIGHT JUSTIFY: YES
-
- FIELD ORDER: 38
- POST ACTION ON CHANGE: S $P(Z,"^",30)=X
- DATA VALIDATION: D OVEREAT^PRSPESR2(6)
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 8,63
- DATA LENGTH: 2
-
- FIELD ORDER: 39
- FIELD TYPE: COMPUTED
- UNIQUE NAME: HR6
- COMPUTED EXPRESSION: S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-6},{ESR START TIME-6},{ESR STOP TIME-6})
- DATA COORDINATE: 8,69
- DATA LENGTH: 5
- RIGHT JUSTIFY: YES
-
- FIELD ORDER: 33
- FIELD TYPE: COMPUTED
- UNIQUE NAME: HR5
- COMPUTED EXPRESSION: S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-5},{ESR START TIME-5},{ESR STOP TIME-5})
- DATA COORDINATE: 7,69
- DATA LENGTH: 5
- RIGHT JUSTIFY: YES
-
- FIELD ORDER: 32
- POST ACTION ON CHANGE: S $P(Z,"^",25)=X
- DATA VALIDATION: D OVEREAT^PRSPESR2(5)
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 7,63
- DATA LENGTH: 2
-
- FIELD ORDER: 27
- FIELD TYPE: COMPUTED
- COMPUTED EXPRESSION: S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-4},{ESR START TIME-4},{ESR STOP TIME-4})
- DATA COORDINATE: 6,69
- DATA LENGTH: 5
- RIGHT JUSTIFY: YES
-
- FIELD ORDER: 4
- CAPTION: 1
- POST ACTION ON CHANGE: S $P(Z,"^",1)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: ST1
- DATA COORDINATE: 3,4
- DATA LENGTH: 7
- CAPTION COORDINATE: 3,2
- SUPPRESS COLON AFTER CAPTION?: YES
-
- FIELD ORDER: 26
- POST ACTION ON CHANGE: S $P(Z,"^",20)=X
- DATA VALIDATION: D OVEREAT^PRSPESR2(4)
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 6,63
- DATA LENGTH: 2
-
- FIELD ORDER: 21
- FIELD TYPE: COMPUTED
- COMPUTED EXPRESSION: S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-3},{ESR START TIME-3},{ESR STOP TIME-3})
- DATA COORDINATE: 5,69
- DATA LENGTH: 5
- RIGHT JUSTIFY: YES
-
- FIELD ORDER: 20
- POST ACTION ON CHANGE: S $P(Z,"^",15)=X
- DATA VALIDATION: D OVEREAT^PRSPESR2(3)
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 5,63
- DATA LENGTH: 2
-
- FIELD ORDER: 15
- FIELD TYPE: COMPUTED
- COMPUTED EXPRESSION: S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-2},{ESR START TIME-2},{ESR STOP TIME-2})
- DATA COORDINATE: 4,69
- DATA LENGTH: 5
- RIGHT JUSTIFY: YES
-
- FIELD ORDER: 14
- POST ACTION ON CHANGE: S $P(Z,"^",10)=X
- DATA VALIDATION: D OVEREAT^PRSPESR2(2)
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 4,63
- DATA LENGTH: 2
-
- FIELD ORDER: 9
- FIELD TYPE: COMPUTED
- COMPUTED EXPRESSION: S Y=$$ELAPSE^PRSPESR2({ESR MEAL TIME-1},{ESR START TIME-1},{ESR STOP TIME-1})
- DATA COORDINATE: 3,69
- DATA LENGTH: 5
- RIGHT JUSTIFY: YES
-
- FIELD ORDER: 8
- POST ACTION ON CHANGE: S $P(Z,U,5)=X
- DATA VALIDATION: D OVEREAT^PRSPESR2(1)
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 3,63
- DATA LENGTH: 2
-
- FIELD ORDER: 5
- POST ACTION ON CHANGE: S $P(Z,"^",2)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: END1
- DATA COORDINATE: 3,14
- DATA LENGTH: 7
-
- FIELD ORDER: 6
- PRE ACTION: D PSTML^PRSPESR2(1)
- POST ACTION: I X="ML" D HLP^DDSUTL("Please verify that at least one hour of Military Leave has been requested.")
- POST ACTION ON CHANGE: S $P(Z,"^",3)=X,$P(Z,"^",4)="" D PUT^DDSVAL(DIE,.DA,113,"@","","E")
- DATA VALIDATION: D VALIDTT^PRSPESR2
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 3,24
- DATA LENGTH: 10
-
- FIELD ORDER: 7
- PRE ACTION: S TT=$$GET^DDSVAL(DIE,.DA,112) S:TT=""!(TT="RG") TT="*" S:TT="WP" TT="AL"
- POST ACTION ON CHANGE: S $P(Z,"^",4)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 3,37
- DATA LENGTH: 23
-
- FIELD ORDER: 10
- CAPTION: 2
- POST ACTION ON CHANGE: S $P(Z,"^",6)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: ST2
- DATA COORDINATE: 4,4
- DATA LENGTH: 7
- CAPTION COORDINATE: 4,2
- SUPPRESS COLON AFTER CAPTION?: YES
-
- FIELD ORDER: 11
- POST ACTION ON CHANGE: S $P(Z,"^",7)=X
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: END2
- DATA COORDINATE: 4,14
- DATA LENGTH: 7
|
