SDESAPPTEDIT ;ALB/RRM - EDIT SDEC APPOINTMENT FILE #409.84 ;March 21, 2022
Source file <SDESAPPTEDIT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDITAPPT(SDRETJSONFRMT,SDECAPTID,SDECNOTE,SDECLEN) | ;Edit Appointment in File #409.84 (only 'note text' and appointment length can be edited)
|
|
| VALAPTIEN(SDECAPTID) | ;validate Appointment IEN in File #409.84
|
|
| VALAPTLEN(SDECLEN) | ;validate Appointment Length
|
|
| UPDATEAPT(SDECAPTID,SDECNOTE,SDECLEN) | ;update Field .18 LENGTH OF APPT and Field 1 Note Multiple in File #409.84
|
|
| BUILDJSON(SDEDITAPPTRET,SDRETJSONFRMT) | ;Convert data to JSON
|
|
| CLEANUP | ;cleanup variables
|
| FileNo | Call Tags |
|---|---|
| ^SDEC(409.84 - [#409.84] | WP^DIE |
