| NAME |
XUXTAD SERVICE/SECTION EDIT |
| READ ACCESS |
@ |
| COMPILED |
YES |
| PRE ACTION |
KILL ^TMP("SS",$J) S RTNVAL=$$GSSOCS^XUXTADSSEF(DA) I RTNVAL D PUT^DDSVALF("COS","SSEH",1,$P(RTNVAL,"^",2),"I") I 'RTNVAL D HLP^DDSUTL($P(RTNVAL,"^",2)) |
| POST SAVE |
S RV=$$FMPS^XUXTADSSEF(DA),DDC=$P(RV,U,1),DDR=$P(RV,U,2),HM(1)=$P(RV,U,3),HM(2)="$$EOP" D UNED^DDSUTL("DCYN","SSEP",1,DDC,DA) D UNED^DDSUTL("DRYN","SSEP",1,DDR,DA) D HLP^DDSUTL(.HM) D PUT^DDSVALF("COS","SSEH",1,$P(RV,U,4),"I",DA) |
| DESCRIPTION |
This form allows the user to edit fields of a Service/Section record.
|
| WRITE ACCESS |
@ |
| DATA VALIDATION |
D PUT^DDSVALF("DCYN","SSEP",1," ","I") D PUT^DDSVALF("DRYN","SSEP",1," ","I") |
| DATE CREATED |
2024-09-24 14:12:00 |
| PAGE |
-
- PAGE NUMBER: 1
- PAGE COORDINATE: 1,1
- BLOCK:
-
-
- BLOCK NAME: SSEH
- BLOCK ORDER: 1
- BLOCK COORDINATE: 1,1
- TYPE OF BLOCK: DISPLAY
-
- BLOCK NAME: SSEP
- BLOCK ORDER: 2
- BLOCK COORDINATE: 3,1
- TYPE OF BLOCK: EDIT
- PAGE NAME: Page 1
|
| PRIMARY FILE |
49 |
| DISPLAY ONLY |
NO |
| FORM ONLY |
NO |
