XUXTADSSE ;ESL/JAC/CM - Service/Section Edit ; JUN 26, 2020@9:30
Source file <XUXTADSSE.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | $$ASKYESNO^XUXTADASK1 CONTINUE^XUXTADPRT1 (SHOWGOAL,SHOWOPT)^XUXTADPRT2 |
| VA FileMan | 2 | ^DDS ^DIC |
| 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 |
|---|---|---|
| SHOWOPT(AXUXTADOPTION) | ||
| SHOWGOAL(XUXTADRTN) | ||
| CONTINUE(AXUXTADLF,AXUXTADTYPE) | ||
| ASKYESNO(AYESNOPROMPT,AXUXTADDEF) | ||
| FMDIC | ||
| SMDDS | ||
| GOAL | ;; Display the goal of this routine.
|
|
| ENTER | ; Allow the ADPAC to update CHIEF of the SERVICE/SECTION file (#49)
|
|
| PROMPT | ; Begin & loopback entry point
|
|
| START | ; Call the FM ScreenMan SERVICE/SECTION EDIT form
|
|
| EXIT | ; Exit option
|
|
| ASKGOAL | ;Prompt to determine if user want to see purpose/goal of option
|
|
| DDSERR | ; Display FM ScreenMan error(s)
|
|
| EDIT(XUXTADXUFILE,XUXTADXUDA) | ; Edit SERVICE/SECTION ScreenMan form
|
|
| GETSVC(XUXTADXUFILE) | ; Ask/prompt for SERVICE/SECTION using DIC utility call
|
| Name | Field # of Occurrence |
|---|---|
| ^DDS | SMDDS |
| ^DIC | FMDIC |
| $$ASKYESNO^XUXTADASK1 | ASKYESNO |
| CONTINUE^XUXTADPRT1 | CONTINUE |
| SHOWGOAL^XUXTADPRT2 | SHOWGOAL |
| SHOWOPT^XUXTADPRT2 | SHOWOPT |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EDIT+7~, GETSVC+6~ |
| AXUXTADDEF | ASKYESNO~ |
| AXUXTADLF | CONTINUE~ |
| AXUXTADOPTION | SHOWOPT~ |
| AXUXTADTYPE | CONTINUE~ |
| AYESNOPROMPT | ASKYESNO~ |
| C | GETSVC+6~ |
| D | GETSVC+6~ |
| D0 | GETSVC+6~ |
| DA | EDIT+7~, EDIT+11*, GETSVC+6~ |
| DBT | GETSVC+6~ |
| DDH | GETSVC+6~ |
| DDSCHANG | EDIT+7~ |
| DDSFILE | EDIT+7~, EDIT+10* |
| DDSPAGE | EDIT+7~, EDIT+20* |
| DDSPARM | EDIT+7~, EDIT+19* |
| DDSSAVE | EDIT+7~ |
| DG | GETSVC+6~ |
| DIC | GETSVC+6~, GETSVC+10* |
| DIC("A" | GETSVC+12* |
| DIC(0 | GETSVC+11* |
| DIERR | EDIT+7~, EDIT+22 |
| DILN | GETSVC+6~ |
| DILOCKTM | EDIT+8~ |
| DIMSG | EDIT+7~ |
| DINUM | EDIT+8~, GETSVC+6~ |
| DIPGM | GETSVC+6~ |
| DISYS | GETSVC+7~ |
| DIY | GETSVC+7~ |
| DR | EDIT+8~, EDIT+12* |
| DST | GETSVC+7~ |
| DTOUT | EDIT+8~, GETSVC+7~ |
| DUOUT | GETSVC+7~ |
| DUTOUT | EDIT+8~ |
| DZ | GETSVC+7~ |
| I | EDIT+8~, GETSVC+7~ |
| IOF | DDSERR+4 |
| IOPAR | EDIT+8~ |
| IOUPAR | EDIT+8~ |
| U | GETSVC+17 |
| X | GETSVC+7~, GETSVC+15 |
| XUXTADDEF | ASKGOAL+8~, ASKGOAL+12*, ASKGOAL+14 |
| XUXTADGOAL | ENTER+4~, ENTER+12, ASKGOAL+11, ASKGOAL+14*, ASKGOAL+15 |
| XUXTADNUM | DDSERR+2~, DDSERR+6*, DDSERR+7*, DDSERR+8 |
| XUXTADOPTION | ENTER+4~, ENTER+6*, ENTER+10, PROMPT+2, EDIT+12 |
| XUXTADQUIT | ENTER+4~, ENTER+7*, ENTER+11, PROMPT+3, START+2, ASKGOAL+10*, ASKGOAL+15*, EDIT+22*, GETSVC+15*, GETSVC+16* |
| XUXTADRTN | SHOWGOAL~ |
| XUXTADSSFILE | ENTER+4~, ENTER+8*, PROMPT+3, START+2 |
| XUXTADXUDA | ENTER+4~, START+2, EDIT~, EDIT+11, GETSVC+9!, GETSVC+17* |
| XUXTADXUFILE | EDIT~, EDIT+10, GETSVC~, GETSVC+10 |
| Y | GETSVC+7~, GETSVC+16, GETSVC+17 |
| Name | Field # of Occurrence |
|---|---|
| $T( | ENTER+12 |