| PRE ACTION |
S RTNVAL=$$BLKPRE^XUXTADSSEF(DA),DDC=$P(RTNVAL,"^",1),DDR=$P(RTNVAL,"^",2) D UNED^DDSUTL("DCYN",,,DDC) D UNED^DDSUTL("DRYN",,,DDR) D HLP^DDSUTL($P(RTNVAL,"^",3)) |
| FIELD |
-
- FIELD ORDER: 20
- CAPTION: NAME
- DATA VALIDATION: I X="@"!($L(X)'>1) W $C(7) S DDSERROR=1 D HLP^DDSUTL("DELETE OF THE RECORD IS NOT ALLOWED")
- FIELD TYPE: DATA DICTIONARY FIELD
- DATA COORDINATE: 2,7
- DATA LENGTH: 30
- CAPTION COORDINATE: 2,1
-
- FIELD ORDER: 8
- CAPTION: *** after hitting at the DESCRIPTION field below. ***
- FIELD TYPE: CAPTION ONLY
- CAPTION COORDINATE: 14,4
-
- FIELD ORDER: 11
- CAPTION: DESCRIPTION (WP)
- PRE ACTION: S RV=$$BLKPRE^XUXTADSSEF(DA),DDC=$P(RV,"^",1),DDR=$P(RV,"^",2) D UNED^DDSUTL("DCYN",,,DDC) D UNED^DDSUTL("DRYN",,,DDR)
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: DESC
- DATA COORDINATE: 16,25
- DATA LENGTH: 1
- CAPTION COORDINATE: 16,7
-
- FIELD ORDER: 9
- CAPTION: CLOSE SERVICE SECTION
- POST ACTION ON CHANGE: N RTNVAL S RTNVAL=$$CLOSESS^XUXTADSSEF(DA,X) S DDSBR="DESC" D HLP^DDSUTL($P(RTNVAL,"^",2))
- DATA VALIDATION: I X'?1(1"Y",1"N",1"y",1"n") S DDSERROR=1 D HLP^DDSUTL("Y or N only")
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- HELP:
Type 'Y' to close Service/Section, 'N' to cancel close Service/Section.
- UNIQUE NAME: DCYN
- DATA COORDINATE: 11,25
- DATA LENGTH: 1
- CAPTION COORDINATE: 11,2
-
- FIELD ORDER: 10
- CAPTION: RE-OPEN SERVICE SECTION
- POST ACTION ON CHANGE: N RTNVAL S RTNVAL=$$REOPENSS^XUXTADSSEF(DA,X) S DDSBR="DESC" D HLP^DDSUTL($P(RTNVAL,"^",2)) I 'RTNVAL S DDSERROR=1
- DATA VALIDATION: I X'?1(1"Y",1"N",1"y",1"n") S DDSERROR=1 D HLP^DDSUTL("Y or N only")
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- HELP:
Type 'Y' to Re-open Service/Section, 'N' to cancel Re-open
Service/Section.
- UNIQUE NAME: DRYN
- DATA COORDINATE: 11,55
- DATA LENGTH: 1
- CAPTION COORDINATE: 11,30
-
- FIELD ORDER: 1
- CAPTION: ABBREVIATION
- DATA VALIDATION: I X="AA" S DDSERROR=1 D HLP^DDSUTL("A IS NOT VALID")
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: ABB
- DATA COORDINATE: 3,25
- DATA LENGTH: 5
- CAPTION COORDINATE: 3,11
-
- FIELD ORDER: 2
- CAPTION: MAIL SYMBOL
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: MSYM
- DATA COORDINATE: 4,25
- DATA LENGTH: 10
- CAPTION COORDINATE: 4,12
-
- FIELD ORDER: 3
- CAPTION: TYPE OF SERVICE
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: TOS
- DATA COORDINATE: 6,25
- DATA LENGTH: 14
- CAPTION COORDINATE: 6,8
- DISABLE EDITING: NO
-
- FIELD ORDER: 5
- CAPTION: PARENT SERVICE
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: PS
- DATA COORDINATE: 9,25
- DATA LENGTH: 30
- CAPTION COORDINATE: 9,9
-
- FIELD ORDER: 4
- CAPTION: CHIEF (or SUPERVISOR)
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: CHIEF
- DATA COORDINATE: 7,25
- DATA LENGTH: 35
- CAPTION COORDINATE: 7,2
-
- FIELD ORDER: 6
- CAPTION: NATIONAL SERVICE
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: NS
- DATA COORDINATE: 10,25
- DATA LENGTH: 30
- CAPTION COORDINATE: 10,7
-
- FIELD ORDER: 7
- CAPTION: *** Please enter a date, your name, and document your changes clearly ***
- FIELD TYPE: CAPTION ONLY
- CAPTION COORDINATE: 13,4
|
