DGADDLST ;ALB/JAM - 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 |