DGREGAED ;ALB/DW,PHH,BAJ,TDM,JAM,ARF,JAM - Address Edit API ;1/6/21 10:28
Source file <DGREGAED.m>
| 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 |
|---|---|---|
| Registration | 7 | DGADDUTL DGCOL DGREGARP DGREGAZL DGREGTZL DGRPCADD DPTLK7 |
| Fee Basis | 1 | FBAACO0 |
| Integrated Billing | 1 | IBCSCE |
| Scheduling | 1 | SDM |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,FLG,SRC,DGRET) | ;Entry point
|
|
| RETRY | ; DG*5.3*1014;jam ; Tag added for entry point to re-enter the address
; DG*5.3*1143 - Merge any current values being entered with the old values and overwrite the Country with what is in the local array for Country |
|
| CHK | ; DG*5.3*1014; Prompt user and allow them to correct the address or continue to Validation service
|
|
| CONF | ||
| CLEAN | ; DG*5.3*1143 - Clean out edit data when the user saves or discards the changes
|
|
| SAVERTA | ; DG*5.3*1143 - Save the address edits with RTA updates active
; Hold the data in local array DGADDGRP2 |
|
| ASK | ; Give the user the option to retry edits or quit
|
|
| SAVETOLOCAL | ; DG*5.3*1143 - Save user input to local array DGADDGRP2
; Hold the data in the DGADDGRP2 array and save to the DB later |
|
| SENDRTAU() | ; DG*5.3*1143 - send edited address data to ES via webservice directly
|
|
| SAVEFROMLOCAL | ; DG*5.3*1143 Save data to the DB from the local DGADDGRP2 array
|
|
| INPUT(DGINPUT,DFN,FSTR,CNTRY) | ;Let user input address changes
|
|
| GETOLD(DGCMP,DFN) | ;populate array with existing address info
|
|
| COMPARE(DGINPUT,DGCMP,FLG) | ;Display before & after address fields.
|
|
| DISPUS(DGCMP,DGM,FLG) | ;tag to display US data
|
|
| DISPFGN(DGCMP,DGM,FLG) | ;tag to display Foreign data
|
|
| CONFIRM() | ;Confirm if user wants to save the change
|
|
| SAVE(DGINPUT,DFN,FSTR,FORGN) | ;Save changes
|
|
| READ(DFN,DGN,Y) | ;Read input, return success
|
|
| INPT1(FORGN,PSTR) | ; first address input prompts
|
|
| ZIPINP(DGINPUT,DFN) | ; get ZIP+4 input
|
|
| SKIP(DGN,DGINPUT,FLG) | ; determine whether or not to skip this step
|
|
| EOP | ;End of page prompt
|
|
| UPCT | ;Indicate "^" or "^^" are unacceptable inputs.
|
| Name | Field # of Occurrence |
|---|---|
| $$CNTRYI^DGADDUTL | GETOLD+15, DISPUS+10, DISPFGN+8 |
| $$FILEYN^DGADDUTL | CONF+16 |
| $$FOREIGN^DGADDUTL | RETRY+5 |
| $$FORIEN^DGADDUTL | GETOLD+8, COMPARE+4 |
| GETPRIOR^DGADDUTL | CONF+14 |
| GETUPDTS^DGADDUTL | CONF+17 |
| UPDADDLG^DGADDUTL | CONF+18 |
| $$EN^DGADDVAL | CHK+16 |
| $$UPD^DGENDBS | SAVE+22 |
| $$CNTY^DGREGAZL | GETOLD+20 |
| EN^DGREGAZL | ZIPINP+3 |
| $$EN^DGRTAUPD | SENDRTAU+2 |
| $$ISRTAUON^DGRTAUPD | EN+14 |
| FILE^DIE | SAVEFROMLOCAL+9, SAVE+13 |
| $$GET1^DIQ | INPUT+11, GETOLD+6 |
| GETS^DIQ | GETOLD+13 |
| ^DIR | CHK+6, ASK+4, CONFIRM+5, READ+11, EOP+4 |
| ^DIWP | SENDRTAU+9, SENDRTAU+17 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | EN+18 |
| ^HL(779.004 - [#779.004] | INPUT+14 |
| ^UTILITY($J | SENDRTAU+8!, SENDRTAU+10, SENDRTAU+16!, SENDRTAU+18 |
| Name | Line Occurrences |
|---|---|
| $$CONFIRM | CONF+2 |
| $$INPT1 | RETRY+6, GETOLD+10 |
| $$READ | INPUT+8 |
| $$SENDRTAU | SAVERTA+8 |
| $$SKIP | INPUT+4 |
| ASK | ASK+11 |
| CHK | CHK+13 |
| CLEAN | CONF+7, SAVEFROMLOCAL+11 |
| COMPARE | CONF |
| DISPFGN | RETRY+19, COMPARE+4 |
| DISPUS | RETRY+20, COMPARE+9 |
| EOP | CHK+11, CHK+23, CONF+7, CONF+11, SAVERTA+11, SENDRTAU+20, SAVE+23 |
| GETOLD | EN+17 |
| INPUT | RETRY+7 |
| RETRY | RETRY+12, CHK+12, CHK+29, CONF+8 |
| SAVE | CONF+15 |
| SAVEFROMLOCAL | SAVERTA+9 |
| SAVERTA | CHK+29, CONF+8 |
| SAVETOLOCAL | SAVERTA+2 |
| UPCT | READ+13 |
| ZIPINP | INPUT+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BAD | EN+9~, RETRY+9* |
| CCIEN | GETOLD+1~, GETOLD+6*, GETOLD+8, GETOLD+15, GETOLD+16 |
| CFORGN | GETOLD+1~, GETOLD+2*, GETOLD+8*, GETOLD+10, GETOLD+12, GETOLD+17 |
| CFSTR | GETOLD+1~, GETOLD+10*, GETOLD+12*, GETOLD+13, GETOLD+14 |
| CNTRY | EN+9~, EN+18*, RETRY+5, RETRY+7, INPUT~, INPUT+14 |
| COUNTRY | GETOLD+1~, GETOLD+15*, GETOLD+16 |
| DA | INPUT+2~, READ+1~, READ+10* |
| DATA | SAVE+1~, SAVE+22 |
| DATA( | SAVE+21* |
| DFN | EN~, EN+11*, EN+17, EN+18, RETRY+5, RETRY+7, RETRY+8, CONF+14, CONF+15, CONF+17 , CONF+18, SENDRTAU+2, SAVEFROMLOCAL+5, SAVEFROMLOCAL+7, SAVEFROMLOCAL+8, INPUT~, INPUT+6, INPUT+8, INPUT+11, GETOLD~ , GETOLD+6, GETOLD+13, GETOLD+14, GETOLD+18, GETOLD+19, SAVE~, SAVE+12, SAVE+22, READ~, READ+10 , ZIPINP~, ZIPINP+3 |
| DGADDEDIT | EN+14~ |
| DGADDEDIT(2 | CLEAN+1!, SAVERTA+4* |
| DGADDGRP2 | EN+14~, RETRY+2, CLEAN+1!, SAVETOLOCAL+2!, SENDRTAU+2 |
| DGADDGRP2( | RETRY+2, SAVETOLOCAL+10*, SAVETOLOCAL+12*, SAVETOLOCAL+13*, SAVEFROMLOCAL+3, SAVEFROMLOCAL+4, SAVEFROMLOCAL+7, SAVEFROMLOCAL+8, READ+6, READ+7 , READ+9, ZIPINP+3 |
| DGADVRET | CHK+15~, CHK+16*, CHK+21, CHK+23 |
| DGBAI | READ+1~, READ+9* |
| DGCIEN | GETOLD+1~, GETOLD+18*, GETOLD+20 |
| DGCMP | EN+9~, EN+17, RETRY+2*, CONF, GETOLD~, COMPARE~, COMPARE+4, COMPARE+9, DISPUS~, DISPFGN~ |
| DGCMP( | COMPARE+4, DISPUS+3, DISPUS+4, DISPUS+5, DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+12 , DISPUS+14, DISPUS+15, DISPUS+16, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+7, DISPFGN+8, DISPFGN+12, DISPFGN+13 , DISPFGN+14 |
| DGCMP("NEW" | COMPARE+2*, COMPARE+6, COMPARE+7*, COMPARE+8* |
| DGCMP("OLD" | RETRY+5, GETOLD+14*, GETOLD+16*, GETOLD+22* |
| DGCNTRY | DISPUS+1~, DISPUS+10*, DISPUS+11, DISPFGN+1~, DISPFGN+8*, DISPFGN+9*, DISPFGN+10 |
| DGCNTY | GETOLD+1~, GETOLD+20*, GETOLD+21*, GETOLD+22, COMPARE+6*, COMPARE+7 |
| DGCODE | SAVETOLOCAL+6~, SAVETOLOCAL+8*, SAVETOLOCAL+10, SAVE+9~, SAVE+10*, SAVE+12, SAVE+13 |
| DGCONFIRM | CONF+2~*, CONF+4, CONF+7, CONF+11 |
| DGCURR | GETOLD+1~ |
| DGCURR(2 | GETOLD+14, GETOLD+18, GETOLD+19 |
| DGER | SAVE+1~, SAVE+2*, SAVE+15*, SAVE+19 |
| DGERRS | SENDRTAU+1~, SENDRTAU+2 |
| DGERRS( | SENDRTAU+13, SENDRTAU+15 |
| DGI | SENDRTAU+4~, SENDRTAU+13*, SENDRTAU+14, SENDRTAU+15 |
| DGINPUT | EN+9~, RETRY+7*, RETRY+8, RETRY+17, CHK+16, CONF, CONF+15, CONF+16, CONF+17, CONF+18 , INPUT~, INPUT+3, INPUT+4, INPUT+6, INPUT+8*, INPUT+14, COMPARE~, COMPARE+2, SAVE~, ZIPINP~ , ZIPINP+6*, ZIPINP+7*, SKIP~ |
| DGINPUT( | RETRY+12, SAVETOLOCAL+8, SAVETOLOCAL+9, INPUT+3*, INPUT+10, INPUT+11*, INPUT+12*, INPUT+13*, INPUT+14*, SAVE+6* , SAVE+10, SAVE+11, SKIP+3, SKIP+4 |
| DGINPUT("overrideKey" | CHK+19 |
| DGL | SENDRTAU+4~, SENDRTAU+11*, SENDRTAU+19* |
| DGLINE | SENDRTAU+4~, SENDRTAU+10*, SENDRTAU+11, SENDRTAU+18*, SENDRTAU+19 |
| DGLINE( | SENDRTAU+11, SENDRTAU+19 |
| DGM | COMPARE+1~, COMPARE+3*, COMPARE+4, COMPARE+5, COMPARE+9, DISPUS~, DISPUS+2, DISPUS+3, DISPUS+4, DISPUS+5 , DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+9, DISPUS+10, DISPUS+12, DISPUS+14, DISPUS+15, DISPUS+16, DISPFGN~ , DISPFGN+2, DISPFGN+3, DISPFGN+4, DISPFGN+5, DISPFGN+7, DISPFGN+8, DISPFGN+12, DISPFGN+13, DISPFGN+14, SAVE+1~ , SAVE+15*, SAVE+17*, SAVE+18 |
| DGN | SAVETOLOCAL+5*, SAVETOLOCAL+8, SAVETOLOCAL+9, SAVETOLOCAL+10, SAVEFROMLOCAL+1~, SAVEFROMLOCAL+2*, SAVEFROMLOCAL+3*, SAVEFROMLOCAL+4, SAVEFROMLOCAL+5, SAVEFROMLOCAL+7 , SAVEFROMLOCAL+8, INPUT+2~, INPUT+3*, INPUT+4, INPUT+6, INPUT+8, INPUT+9, INPUT+10, INPUT+11, INPUT+12 , INPUT+13, SAVE+1~, SAVE+7*, SAVE+8, SAVE+10, SAVE+11, SAVE+12, READ~, READ+4, READ+6 , READ+7, READ+9, READ+16, SKIP~, SKIP+3, SKIP+4, SKIP+5 |
| DGNAME | SAVETOLOCAL+6~, SAVETOLOCAL+9*, SAVETOLOCAL+10, SAVE+9~, SAVE+11*, SAVE+12 |
| >> DGNEW | CONF+15 |
| DGNEWADD | RETRY+16~, RETRY+19, RETRY+20, RETRY+21! |
| DGNEWADD("NEW" | RETRY+17* |
| DGOVERKEY | CHK+15~, CHK+19*, SAVETOLOCAL+12, SAVE+6 |
| DGPRIOR | CONF+13~, CONF+14, CONF+16, CONF+18 |
| DGR | INPUT+2~, ZIPINP+1~, ZIPINP+3, ZIPINP+6, ZIPINP+7 |
| DGRET | EN~, EN+8!, RETRY+8* |
| DGRETRY | EN+14~, CHK+29*, CONF+8*, ASK+10* |
| >> DGRTAHOLD | CHK+29, SAVERTA+6 |
| DGRTAON | EN+14~*, CHK+29, CONF+7, CONF+8 |
| DGRTARET | SENDRTAU+1~, SENDRTAU+2*, SENDRTAU+3, SENDRTAU+7, SENDRTAU+21 |
| DGST | GETOLD+1~, GETOLD+19*, GETOLD+20 |
| >> DGTMOT | RETRY+5*, CHK+8*, CHK+21*, CHK+23, SAVERTA+14, ASK+6*, INPUT+6*, INPUT+8*, CONFIRM+7*, EOP+6* |
| DGVAL | READ+1~, READ+15*, READ+16, READ+17*! |
| DGVALUE | SAVEFROMLOCAL+1~, SAVEFROMLOCAL+4*, SAVEFROMLOCAL+5 |
| DIR | CHK+1~, CHK+6!, SAVERTA+17~, ASK+4!, INPUT+2~, CONFIRM+1~, READ+1~, EOP+1~ |
| DIR("?" | CHK+5*, ASK+3*, CONFIRM+4* |
| DIR("A" | CHK+2*, CHK+3*, ASK+1*, CONFIRM+3*, EOP+3* |
| DIR("B" | READ+7*, READ+9* |
| DIR(0 | CHK+4*, ASK+2*, CONFIRM+2*, READ+4*, EOP+2* |
| DIROUT | INPUT+2~, CONFIRM+1~, CONFIRM+10, READ+1~, READ+13, EOP+1~ |
| DIWF | SENDRTAU+4~, SENDRTAU+5* |
| DIWL | SENDRTAU+4~, SENDRTAU+5* |
| DIWR | SENDRTAU+4~, SENDRTAU+5* |
| DTOUT | CHK+8, SAVERTA+14, ASK+6, INPUT+2~, CONFIRM+1~, CONFIRM+7, READ+1~, READ+12, EOP+1~, EOP+6 |
| DUOUT | CHK+11, SAVERTA+16, ASK+8, INPUT+2~, CONFIRM+1~, CONFIRM+10, READ+1~, READ+13, EOP+1~ |
| EASZIPLK | EN+8! |
| FDA | SAVEFROMLOCAL+1~, SAVE+9~ |
| FDA(2 | SAVEFROMLOCAL+5*, SAVEFROMLOCAL+7*, SAVEFROMLOCAL+8*, SAVE+12* |
| FLG | EN~, CONF, INPUT+4, COMPARE~, COMPARE+4, COMPARE+9, DISPUS~, DISPFGN~, SKIP~ |
| FLG(1 | EN+16*, DISPUS+13, DISPFGN+11, SAVE+8, INPT1+8, SKIP+5 |
| FLG(2 | EN+16*, CONF |
| FORGN | EN+9~, RETRY+5*, RETRY+6, RETRY+12, RETRY+13, RETRY+14, RETRY+19, RETRY+20, CONF+15, SAVETOLOCAL+4 , SAVE~, SAVE+5, INPT1~, INPT1+6 |
| FSTR | RETRY+6*, RETRY+7, CONF+15, SAVETOLOCAL+4*, SAVETOLOCAL+5, INPUT~, INPUT+3, SAVE~, SAVE+5*, SAVE+6* , SAVE+7, INPT1+1~, INPT1+5*, INPT1+6*, INPT1+10*, INPT1+11 |
| I | EN+10~ |
| ICNTRY | EN+9~, EN+18*, EN+19*, RETRY+2*, RETRY+5 |
| L | SAVETOLOCAL+5*, INPUT+2~, INPUT+3*, GETOLD+1~, GETOLD+14*, SAVE+1~, SAVE+7*, READ+1~, READ+3* |
| MSG | SAVE+9~, SAVE+14 |
| MSG("DIERR" | SAVE+17, SAVE+18 |
| OLDC | EN+9~, RETRY+5* |
| POP | READ+1~, READ+2*, READ+3, READ+12*, READ+18* |
| PSTR | EN+9~, RETRY+6, INPT1~, INPT1+4*, INPT1+9* |
| SKIP | SKIP+1~, SKIP+2*, SKIP+3*, SKIP+4*, SKIP+5*, SKIP+6 |
| SRC | EN~, CONF+15 |
| SUCCESS | READ+1~, READ+2*, READ+12*, READ+19 |
| T | GETOLD+1~, GETOLD+14* |
| U | SAVETOLOCAL+8, SAVETOLOCAL+9, INPUT+11, INPUT+12, GETOLD+22, COMPARE+4, COMPARE+6, DISPUS+3, DISPUS+4, DISPUS+5 , DISPUS+6, DISPUS+7, DISPUS+8, DISPUS+10, DISPUS+12, DISPUS+14, DISPUS+15, DISPUS+16, DISPFGN+3, DISPFGN+4 , DISPFGN+5, DISPFGN+7, DISPFGN+8, DISPFGN+12, DISPFGN+13, DISPFGN+14, SAVE+10, SAVE+11 |
| X | EN+10~, CHK+12, CHK+13, SAVERTA+17~, ASK+10, SENDRTAU+4~, SENDRTAU+7*, SENDRTAU+15*, INPUT+2~, CONFIRM+1~ , EOP+1~ |
| Y | EN+10~, SAVERTA+17~, INPUT+2~, INPUT+8, INPUT+9*, INPUT+10, INPUT+11, INPUT+12, INPUT+13, CONFIRM+1~ , CONFIRM+9, READ~, READ+15, EOP+1~ |
| Y(0 | INPUT+12 |
| Z | SENDRTAU+4~ |