DGADDLST ;ALB/JAM,ARF - List Manager Screen for Address Validation ;Jun 12, 2020@12:34
Source file <DGADDLST.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN(DFN,DGFLDS,DGADDR,DGSELADD,DGTMOT) | ;Main entry point to invoke the "DGEN ADDR VALID" list - called by DGADDVAL
 ; Input: DFN - Patient IEN ; DGFLDS - String of address field numbers ; DGADDR (Pass by reference) - Array containing the addresses to list ; Output: DGSELADD (Pass by reference) - Array containing selected address ; DGTMOT (Pass by reference) - DG*5.3*1040 - If "1", a timeout occurred  | 
|
| HDR | ;Header code
 | 
|
| INIT | ;Build address screen
 | 
|
| HELP | ;Help code
 | 
|
| EXIT | ;Exit code
 | 
|
| PEXIT | ;DGEN ADD VALID 1.2 MENU protocol exit code
 ; DG*5.3*1040; If timeout on the menu, set flag and quit  | 
|
| ACT(DGACT) | ; Entry point for menu action selection
 ; = "SEL" - Select an Address -  | 
|
| SEL() | ; function, prompt to select address
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | GET1^DIQ | 
| ^DG(391 - [#391] | GET1^DIQ |