DGREGAED ;ALB/DW/PHH,BAJ,TDM,JAM - Address Edit API ;1/6/21 10:28
Source file <DGREGAED.m>
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*1040 - Set variable DGTMOT to 1 to track timeout |
|
CHK | ; DG*5.3*1014; Prompt user and allow them to correct the address or continue to Validation service
|
|
CONF | ||
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 | 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 |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ, GETS^DIQ |