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 |