Routine: DGADDLST

Information

DGADDLST ;ALB/JAM - List Manager Screen for Address Validation ;Jun 12, 2020@12:34

Package	Total	Call Graph
Kernel	3	$$FMTE^XLFDT $$UP^XLFSTR DISP^XQORM1
List Manager	3	EN^VALM CLEAR^VALM1 CLEAN^VALM10
VA FileMan	3	WAIT^DICD $$GET1^DIQ ^DIR
Registration	2	($$CNTRYI,$$FORIEN)^DGADDUTL $$SSNNM^DGRPU

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Registration	4	DGADDVAL DGEN ADD VALID 1.2 MENU DGEN ADDR SELECT DGEN ADDR VALID
Kernel	1	^ORD(101

Entry Points

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) - DG5.31040 - 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 ; DG5.31040; 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

External References

Name	Field # of Occurrence
$$CNTRYI^DGADDUTL	INIT+54
$$FORIEN^DGADDUTL	INIT+10
$$SSNNM^DGRPU	HDR+2
WAIT^DICD	EN+19
$$GET1^DIQ	HDR+4, HDR+6, HDR+14
^DIR	SEL+3
EN^VALM	EN+20
CLEAR^VALM1	EXIT+2
CLEAN^VALM10	INIT+1, EXIT+1
$$FMTE^XLFDT	HDR+5
$$UP^XLFSTR	HDR+5
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	DIR Line Location: SEL+3
Routine Call	VALM Line Location: EN+20

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DG(391 - [#391]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DGADDVAL"	INIT+2!, INIT+4, EXIT+3!

Label References

Name	Line Occurrences
$$SEL	ACT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	EN~, HDR+2, HDR+4, HDR+6, HDR+14
DGACT	ACT~, ACT+5
DGADDR	EN~, SEL+2, SEL+3
DGADDR(	INIT+6, INIT+8, INIT+14, INIT+18, INIT+20, INIT+23, INIT+25, INIT+30, INIT+31, INIT+34 , INIT+36, INIT+37, INIT+39, INIT+44, INIT+46, INIT+47, INIT+49, INIT+63, INIT+64, ACT+8
DGCNT	INIT+3~, INIT+5, INIT+6, INIT+8, INIT+14, INIT+15, INIT+18, INIT+20, INIT+23, INIT+25 , INIT+30, INIT+31, INIT+34, INIT+36, INIT+37, INIT+39, INIT+44, INIT+46, INIT+47, INIT+49 , INIT+59, INIT+60, INIT+63, INIT+64
DGCTRYCD	INIT+3~, INIT+8*, INIT+10, INIT+54
DGDOB	HDR+1~, HDR+4, HDR+5, HDR+14
DGFLDS	EN~, INIT+8, INIT+14, INIT+18, INIT+20, INIT+23, INIT+25, INIT+30, INIT+31, INIT+34 , INIT+36, INIT+37, INIT+39, INIT+44, INIT+46, INIT+47, INIT+49
DGFORGN	INIT+3~, INIT+9, INIT+10, INIT+33, INIT+43
DGGLBL	INIT+3~, INIT+4*, INIT+16, INIT+21, INIT+26, INIT+52, INIT+57, INIT+59, INIT+65
DGPTYPE	HDR+1~, HDR+6, HDR+7, HDR+15
>> DGRPS	HDR+13
DGSEL	ACT+3~, ACT+5*, ACT+7, ACT+8
DGSELADD	EN~, ACT+8*
DGSSN	HDR+1~, HDR+3*, HDR+15
DGSSNSTR	HDR+1~, HDR+2*, HDR+3, HDR+14, HDR+15
DGTMOT	EN~, PEXIT+2, ACT+7
DGZ	INIT+3~, INIT+14, INIT+15, INIT+16, INIT+20, INIT+21, INIT+25, INIT+26, INIT+28, INIT+31 , INIT+36, INIT+41, INIT+46, INIT+49, INIT+52, INIT+54, INIT+55, INIT+57, INIT+61, INIT+63 , INIT+64*, INIT+65
DGZIP	INIT+3~, INIT+39, INIT+40, INIT+41
DIR	SEL+1~, SEL+3!
DIR("A"	SEL+3*
DIR(0	SEL+2*
DIROUT	SEL+1~
DIRUT	SEL+1~
DTOUT	PEXIT+2, SEL+1~, SEL+5
DUOUT	SEL+1~
>> VALM("TITLE"	HDR+13*
VALMBCK	EN+21~, ACT+10*
VALMCNT	EN+21~, INIT+5, INIT+13, INIT+16, INIT+19, INIT+21, INIT+24, INIT+26, INIT+51, INIT+52 , INIT+56, INIT+57, INIT+59, INIT+62, INIT+65
VALMHDR	EN+21~
VALMHDR(1	HDR+14*
VALMHDR(2	HDR+15*
VALMSG	EN+21~, HELP+2, PEXIT+3
X	HDR+1~, HELP+1*, SEL+1~, SEL+6
XQORM	EN+21~
XQORM("B"	HDR+16, PEXIT+4, ACT+11*
Y	SEL+1~

Customize PDF page

Package: Registration