Routine: DG53807P

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
MailMan	1	^XMD
VA FileMan	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point for DG5.3807 post-install
ENQ	;Entry point for tasked job
LOOP	; Loop through Patient file #2, starting with most recent DFNs.
USZIP(ZIP)	;Check if valid US zip code
SENDMSG	;Send MailMan message when process completes
LN()	;Increment line counter
FAIL	;Update ^XTMP with records that could not be locked
TEST	;Entry point for testing
TST()	;If testing, quit if number of records = TST

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ADDRESS UPDATE ROUTINE DG53807P" Line Location: TEST+2
Routine Call	DIR Line Location: TEST+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	USZIP+9
^DPT - [#2]	LOOP+6, LOOP+9, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+16, LOOP+19, LOOP+22*, LOOP+23
^HL(779.004 - [#779.004]	LOOP+4
^XIP(5.12 - [#5.12]	USZIP+5, USZIP+7
^XTMP(	ENQ+3, ENQ+4, ENQ+5!, ENQ+6, ENQ+8, LOOP+7, LOOP+24, SENDMSG+18, SENDMSG+19, SENDMSG+21 , SENDMSG+22, SENDMSG+23, SENDMSG+24, FAIL+1, FAIL+2*, TST+2

Name	Line Occurrences
$$LN	SENDMSG+4, SENDMSG+5, SENDMSG+6, SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+11, SENDMSG+12, SENDMSG+13 , SENDMSG+15, SENDMSG+16, SENDMSG+17, SENDMSG+18, SENDMSG+19, SENDMSG+20, SENDMSG+21, SENDMSG+22, SENDMSG+24
$$TST	LOOP+6
$$USZIP	LOOP+16, LOOP+19, LOOP+22
ENQ	TEST+6
FAIL	LOOP+9
LOOP	ENQ+7
SENDMSG	ENQ+9

Name	Field # of Occurrence
DFN	LOOP+1~, LOOP+2, LOOP+6, LOOP+9, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+16, LOOP+19 , LOOP+22, LOOP+23, FAIL+2
DIR	TEST+1~
DIR("A"	TEST+3*
DIR(0	TEST+3*
DIROUT	TEST+1~
DIRUT	TEST+1~
DUZ	SENDMSG+2
ERROR	ENQ+1~, LOOP+5*, SENDMSG+14
LN	SENDMSG+1~, LN+1*, LN+2
MSG	SENDMSG+1~
MSG(	SENDMSG+4, SENDMSG+5, SENDMSG+6, SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+11, SENDMSG+12, SENDMSG+13 , SENDMSG+15, SENDMSG+16, SENDMSG+17, SENDMSG+18, SENDMSG+19, SENDMSG+20, SENDMSG+21, SENDMSG+22, SENDMSG+24*
PAT	LOOP+1~
PAT(	LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+15, LOOP+16, LOOP+18, LOOP+19, LOOP+21, LOOP+22
PROG	ENQ+1~, ENQ+2*, ENQ+3, ENQ+4, ENQ+5, ENQ+6, ENQ+8, LOOP+7, LOOP+24, SENDMSG+18 , SENDMSG+19, SENDMSG+21, SENDMSG+22, SENDMSG+23, SENDMSG+24, FAIL+1, FAIL+2, TST+2
ST	USZIP+2~, USZIP+7*, USZIP+9
TST	TEST+1~, TEST+5*, TST+1, TST+2
UPD	LOOP+1~, LOOP+8, LOOP+16, LOOP+19, LOOP+22, LOOP+24
USA	LOOP+1~, LOOP+4*, LOOP+5, LOOP+16, LOOP+19, LOOP+22
X	TEST+1~
XMDUZ	SENDMSG+1~, SENDMSG+3*
XMSUB	SENDMSG+1~, SENDMSG+3*
XMTEXT	SENDMSG+1~, SENDMSG+2*
XMY	SENDMSG+1~
XMY(	SENDMSG+2*
Y	TEST+1~, TEST+4, TEST+5
Z	USZIP+2~, USZIP+5*, USZIP+7
ZIP	USZIP~, USZIP+3, USZIP+5
ZTDESC	EN+1~, EN+2*
ZTDTH	EN+1~, EN+3*
ZTIO	EN+1~, EN+3*
ZTRTN	EN+1~, EN+3*
ZTSK	EN+1~, EN+5, EN+6, ENQ+4