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 |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 1 | SDES |
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! |