SDESAPPTEDIT ;ALB/RRM - EDIT SDEC APPOINTMENT FILE #409.84 ;March 21, 2022
Source file <SDESAPPTEDIT.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | $$STRIP^SDEC07 (ENCODE,ERRLOG)^SDESJSON |
| VA FileMan | 1 | (FILE,WP)^DIE |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SDEC(409.84 - [#409.84] | VALAPTIEN+4 |
| Name | Line Occurrences |
|---|---|
| $$VALAPTIEN | EDITAPPT+8 |
| $$VALAPTLEN | EDITAPPT+9 |
| BUILDJSON | EDITAPPT+12, VALAPTIEN+5, VALAPTLEN+8 |
| CLEANUP | EDITAPPT+13, VALAPTIEN+5, VALAPTLEN+8 |
| UPDATEAPT | EDITAPPT+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| JSONERR | BUILDJSON+1~, BUILDJSON+2*, BUILDJSON+3 |
| SDECAPTERR | UPDATEAPT+1~, UPDATEAPT+5, UPDATEAPT+6, UPDATEAPT+14! |
| SDECAPTFDA | UPDATEAPT+1~, UPDATEAPT+14! |
| SDECAPTFDA( | UPDATEAPT+3* |
| SDECAPTID | EDITAPPT~, EDITAPPT+8, EDITAPPT+11, VALAPTIEN~, VALAPTIEN+3, VALAPTIEN+4, UPDATEAPT~, UPDATEAPT+3, UPDATEAPT+11 |
| SDECLEN | EDITAPPT~, EDITAPPT+9, EDITAPPT+11, VALAPTLEN~, VALAPTLEN+3, VALAPTLEN+5, VALAPTLEN+6, VALAPTLEN+7, UPDATEAPT~, UPDATEAPT+2 , UPDATEAPT+3 |
| SDECMSG | UPDATEAPT+1~, UPDATEAPT+14! |
| SDECMSG("DIERR" | UPDATEAPT+12 |
| SDECNOTE | EDITAPPT~, EDITAPPT+11, UPDATEAPT~, UPDATEAPT+9*, UPDATEAPT+10* |
| SDECNOTE( | UPDATEAPT+10* |
| SDEDITAPPTRET | EDITAPPT+6~, EDITAPPT+7!, EDITAPPT+12, VALAPTIEN+3, VALAPTIEN+4, VALAPTIEN+5, VALAPTLEN+3, VALAPTLEN+6, VALAPTLEN+7, VALAPTLEN+8 , UPDATEAPT+5, UPDATEAPT+12, BUILDJSON~, BUILDJSON+3, CLEANUP+1! |
| SDEDITAPPTRET("Success" | UPDATEAPT+13* |
| SDERRFLG | VALAPTIEN+1~, VALAPTIEN+2*, VALAPTIEN+3*, VALAPTIEN+4*, VALAPTIEN+5, VALAPTIEN+6, VALAPTLEN+1~, VALAPTLEN+2*, VALAPTLEN+3*, VALAPTLEN+6* , VALAPTLEN+7*, VALAPTLEN+8, VALAPTLEN+9 |
| SDERROR | EDITAPPT+6~, CLEANUP+1! |
| SDRETJSONFRMT | EDITAPPT~, EDITAPPT+7!, EDITAPPT+12, VALAPTIEN+5, VALAPTLEN+8, BUILDJSON~, BUILDJSON+3 |
| SDTMPARY | CLEANUP+1! |