DGREGTE2 ;ALB/BAJ,TDM,BDB - Temporary & Confidential Address Support Routine; 02/27/2006 ; 22 Mar 2017 1:10 PM
Source file <DGREGTE2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETOLD(DGCMP,DFN,TYPE) | ;populate array with existing address info
|
|
| INPT1(DFN,FORGN,PSTR) | ; address input prompts
|
|
| SURE() | ; Are you sure prompt
|
|
| SKIP(DGN,DGINPUT) | ; determine whether or not to skip the prompt
|
|
| INIT | ; initialize variables
; This tag reads the table at FLDDAT (below) to set relationship between ; variables and Field numbers. ; ; Set up array of fields needed |
|
| FLDDAT | ; Table of field values STRUCTURE --> Description;;Type;Variable Name;Field Number
|
|
| FLDPRMPT | ;Table of prompts and responses STRUCTURE --> Description;;Field;Old Value;New Value;Response Code
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
