Routine: DGRNCVNC

Information

DGRNCVNC ;HDSO/RTW - Run Patient Name Standardization ; 25 OCT 2023 10:21

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	4	FIND^DIC FILE^DIE GETS^DIQ ^DIR
Kernel	2	($$FMADD,$$NOW)^XLFDT $$FORMAT^XLFNAME7
MailMan	2	SENDMSG^XMXPARM SENDMSG^XMXSEND

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: 1

Package	Total	Caller Graph
Registration	1	DG NAME COMPONENT UPDATE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
DIRHL7	;
RUN(DGFLAG)	;Convert PATIENT file names;
LOOP
DIR	;
LOOP2	;
UPDATE(DGFLAG,DGFIL,DGIENS,DGFLD,DGNAM,DGNMSP,DPTMAX,DPTA,DGMPI)	;Process name field
RECORD(DGFIL,DGFLD,DGREC,DGNAM,DGAUD,DGNMSP,DGDFN,DGOLD)	;file changes in ^XTMP
INV(DGIENS)	;Invert the IENS CALL FROM UPDATE
FIELD
XRARY	;Gather xref kills and sets
CONFIRM	; SEND A CONFIRMATION MAILMAN MESSAGE
RESULTS	;
SENDMSG(XMDUZ,XMSUBJ,XMBODY,XMTO,XMINSTR,XMZ,XMATTACH)	; Send a msg ; In: User, basket (if you are recipient), all msg parts, ; priority?, closed?, (info?,cc?), send now or later (when?), ; (KIDS,MIME,text,PackMan), delete date (if to shared,mail) ; XMINSTR("RCPT BSKT")

External References

Name	Field # of Occurrence
FIND^DIC	XRARY+6
FILE^DIE	UPDATE+25
GETS^DIQ	XRARY+8
^DIR	DIRHL7+12, DIR+18
$$FMADD^XLFDT	RUN+33, RUN+39, LOOP+5, CONFIRM+4
$$NOW^XLFDT	RUN+35, RUN+42
$$FORMAT^XLFNAME7	UPDATE+9
SENDMSG^XMXPARM	SENDMSG+10
SENDMSG^XMXSEND	SENDMSG+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Patient records found requiring the PATIENT NAME COMPONENT UPDATE",!! Line Location: EN+8
Function Call: WRITE	Prompt: !,"**Warning ensure you restart the filers. Use the Monitor, Start, Stop Filers [HL FILER MONITOR] option to properly restart to avoid errors while editing the patient file**",!! Line Location: EN+9
Function Call: WRITE	Prompt: !!,"**Warning ensure you restart the filers.",!!," Use the Monitor, Start, Stop Filers [HL FILER MONITOR] option to properly restart to avoid errors while editing the patient file**",!! Line Location: EN+11
Function Call: WRITE	Prompt: !!,"The ""Missing Name Components"" message can be found in your mailman messages" Line Location: DIR+20
Function Call: WRITE	Prompt: !!,"The Name Component restore results was sent to your mailman acct.",! Line Location: CONFIRM+3
Function Call: WRITE	Prompt: !," Please review the findings",! Line Location: RESULTS+2
Routine Call	DIC Line Location: XRARY+6
Routine Call	DIE Line Location: UPDATE+25
Routine Call	DIR Line Location: DIRHL7+12 DIR+18

FileNo	Call Tags
^DD("IX" - [#.11]	FIND^DIC, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	LOOP+10, LOOP+11, LOOP+12, LOOP+14, LOOP+16, LOOP+18, LOOP+19, LOOP2+7, LOOP2+11, LOOP2+13 , LOOP2+17, UPDATE+10, RECORD+42, CONFIRM+7
^XTMP(	RUN+4!, RUN+5, RUN+6, RUN+7, RUN+8, RUN+9, RUN+10, RUN+11, RUN+12, RUN+13 , RUN+14, RUN+15, RUN+16, RUN+23, RUN+25, RUN+26, RUN+32, RUN+33, RUN+35, RUN+36 , RUN+39, RUN+40, RUN+41, RUN+42, LOOP+3, LOOP2+20, UPDATE+4, UPDATE+6, RECORD+29, RECORD+31 , RECORD+34, RECORD+36, RECORD+38, RECORD+40, RECORD+43*
^XTMP("CONFIRM"	CONFIRM+2!, CONFIRM+4, CONFIRM+8
^XTMP("RESULTS"	LOOP+2!, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+20
^XTMP("UPDATE"	EN+7, LOOP+2!, LOOP+20*, LOOP2+3, CONFIRM+3, CONFIRM+5, CONFIRM+6, RESULTS+2

Label References

Name	Line Occurrences
$$INV	UPDATE+23
CONFIRM	DIR+21
DIR	EN+10
DIRHL7	EN+3
LOOP	EN+5
LOOP2	DIR+20
RECORD	UPDATE+11
RESULTS	EN+6
RUN	EN+4
SENDMSG	CONFIRM+15, RESULTS+9
UPDATE	LOOP2+15, LOOP2+19
XRARY	RUN+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	UPDATE+16~, UPDATE+18*
DA(1	UPDATE+18*
DG20NAME	UPDATE+16~
DGA	RUN+3~, RUN+19*, RUN+20
DGAUD	UPDATE+2~, UPDATE+9, UPDATE+11, UPDATE+13, UPDATE+15, UPDATE+27, RECORD~
DGAUD(	RECORD+26
DGCNT	LOOP+1~, LOOP+4, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+20*
DGDATA	XRARY+1~, XRARY+7!
DGDATA(	XRARY+9
DGDATA("DILIST"	XRARY+7
DGDFN	LOOP+3, LOOP+10, LOOP+11, LOOP+12, LOOP+14, LOOP+16, LOOP+18, LOOP+19, LOOP+20, LOOP2+2* , LOOP2+3, LOOP2+4, LOOP2+7, LOOP2+11, LOOP2+12, LOOP2+13, LOOP2+16, LOOP2+17, LOOP2+20, UPDATE+10 , UPDATE+11, UPDATE+18, RECORD~, RECORD+24, RECORD+34, RECORD+40, RECORD+42, RECORD+43, XRARY+1~, XRARY+7 , XRARY+8, XRARY+9, CONFIRM+1, CONFIRM+5, CONFIRM+6, CONFIRM+7, CONFIRM+8
DGENUPLD	RUN+3~, RUN+46*
DGET	RUN+3~, RUN+24, RUN+30
DGFDA	UPDATE+2~
DGFDA(	UPDATE+24*
DGFIELD	EN+12!
DGFIELD(	RUN+20*, LOOP2+5, LOOP2+6, LOOP2+8, UPDATE+19, XRARY+3, XRARY+4, XRARY+5
DGFIL	EN+2, DIR+20, UPDATE~, UPDATE+6, UPDATE+11, UPDATE+18, UPDATE+24, UPDATE+27, RECORD~, RECORD+29 , RECORD+38, RECORD+40
DGFILE	RUN+3~, RUN+22, RUN+23, RUN+25, RUN+26
DGFLAG	EN+1, EN+4, RUN~, RUN+34, RUN+38, DIR+20, LOOP2+15, LOOP2+19, UPDATE~, UPDATE+12
DGFLD	RUN+24, RUN+25, RUN+26, UPDATE~, UPDATE+6, UPDATE+9, UPDATE+11, UPDATE+24, UPDATE+28, UPDATE+29 , RECORD~, RECORD+29, RECORD+38, RECORD+40
DGI	RUN+3~, RUN+19, RUN+20, UPDATE+16~, UPDATE+17, UPDATE+19, RECORD+23~, RECORD+26, RECORD+27, RECORD+29 , RECORD+31, INV+1~, INV+4, XRARY+1~, XRARY+2, XRARY+4, XRARY+5
DGIEN2	RECORD+23~, RECORD+24*, RECORD+40
DGIENS	LOOP2+4, UPDATE~, UPDATE+11, UPDATE+18, UPDATE+23, RECORD+23~, INV~, INV+2, INV+3, INV+4
DGII	XRARY+1~, XRARY+9*
DGMPI	LOOP2+4, LOOP2+19, UPDATE~, UPDATE+28, UPDATE+29*
DGMSG	UPDATE+2~, UPDATE+25!
DGN	RECORD+23~, RECORD+42*, RECORD+43
DGNAM	UPDATE~, UPDATE+8, UPDATE+9*, UPDATE+11, UPDATE+19, UPDATE+24, UPDATE+29, RECORD~, RECORD+40
DGNAME	LOOP+1~, LOOP+12, LOOP+20, CONFIRM+6
DGNAMEC	LOOP+1~, CONFIRM+7*, CONFIRM+8
DGNMSP	EN+1, DIRHL7+2~, RUN+4, RUN+5, RUN+6, RUN+7, RUN+8, RUN+9, RUN+10, RUN+11 , RUN+12, RUN+13, RUN+14, RUN+15, RUN+16, RUN+23, RUN+25, RUN+26, RUN+32, RUN+33 , RUN+35, RUN+36, RUN+39, RUN+40, RUN+41, RUN+42, LOOP+3, DIR+1~, DIR+2, LOOP2+15 , LOOP2+19, LOOP2+20, UPDATE~, UPDATE+4, UPDATE+6, UPDATE+11, RECORD~, RECORD+29, RECORD+31, RECORD+34 , RECORD+36, RECORD+38, RECORD+40, RECORD+43
DGNOFDEL	RUN+3~, RUN+49*
DGOLD	UPDATE+2~, UPDATE+8*, UPDATE+11, UPDATE+29, RECORD~, RECORD+40
DGOUT	RUN+3~, RUN+18*, RUN+23, RUN+25
DGPRUN	RUN+3~, RUN+41*, RUN+42
DGQ	RUN+3~, RUN+18*
DGREC	RECORD~, RECORD+24
DGTINV	UPDATE+2~
DGTSTR	RECORD+23~, RECORD+27, RECORD+40
DGTYPE	LOOP2+1~, LOOP2+8*, LOOP2+9, LOOP2+12
DGVAL	XRARY+1~, XRARY+6
DGVAL(1	XRARY+2*
DGVAL(2	XRARY+5*, XRARY+9
DGX	RUN+26, RUN+27, RUN+28, RUN+29, RUN+30, INV+1~, INV+4, INV+5*, INV+6
DGXRARY	EN+12!
DGXRARY(	UPDATE+19, XRARY+9*
DGY	RUN+3~, RUN+26*, RUN+27, RUN+28, RUN+29, RUN+30
DGZ	LOOP2+5, LOOP2+6, LOOP2+8, UPDATE+19, XRARY+1~, XRARY+2, XRARY+3*, XRARY+4, XRARY+5
DIERR	UPDATE+2~, UPDATE+25!, SENDMSG+5~
DIR	DIRHL7+12!, DIR+18!
DIR("?"	DIR+4, DIR+5, DIR+6, DIR+7, DIR+8, DIR+9, DIR+10*
DIR("A"	DIRHL7+4, DIRHL7+5, DIRHL7+6, DIRHL7+7, DIRHL7+8, DIRHL7+9, DIRHL7+10, DIRHL7+11, DIR+11, DIR+12 , DIR+13, DIR+14, DIR+15, DIR+16, DIR+17*
DIR("B"	DIRHL7+12, DIR+18
DIR(0	DIRHL7+3, DIR+3
DIROUT	DIRHL7+2~, DIRHL7+12, DIR+1~, DIR+18
DIRUT	DIRHL7+2~, DIRHL7+12, DIR+1~, DIR+18
DPTA	LOOP2+6*, LOOP2+7, LOOP2+8, LOOP2+10, LOOP2+11, LOOP2+13, LOOP2+15, LOOP2+17, LOOP2+19, UPDATE~ , UPDATE+19
DPTFIL	LOOP2+1~, LOOP2+12, LOOP2+15, LOOP2+16, LOOP2+19
DPTFLD	LOOP2+1~, LOOP2+8*, LOOP2+15, LOOP2+19
DPTI	LOOP2+1~, LOOP2+11*, LOOP2+12, LOOP2+13
DPTIENS	LOOP2+1~, LOOP2+12, LOOP2+15, LOOP2+16, LOOP2+19
DPTINV	LOOP2+1~, UPDATE+23*, UPDATE+24
DPTMAX	LOOP2+9*, LOOP2+15, LOOP2+19, UPDATE~, UPDATE+9
DPTVALUE	LOOP2+1~, LOOP2+13, LOOP2+14, LOOP2+15, LOOP2+17, LOOP2+18, LOOP2+19
DT	RUN+33, RUN+39, LOOP+5, CONFIRM+4
DTOUT	DIRHL7+2~, DIRHL7+12, DIR+1~, DIR+18
DUOUT	DIRHL7+2~, DIRHL7+12, DIR+1~, DIR+18
DUZ	CONFIRM+9, CONFIRM+12, RESULTS+3, RESULTS+6
FPTFLD	LOOP2+1~
U	RUN+6, RUN+7, RUN+8, RUN+9, RUN+10, RUN+11, RUN+12, RUN+13, RUN+14, RUN+15 , RUN+16, RUN+20, RUN+27, RUN+28, RUN+29, RUN+30, RUN+35, RUN+36, RUN+39, RUN+40 , RUN+42, LOOP+3, LOOP+12, LOOP+14, LOOP+19, LOOP2+8, LOOP2+9, LOOP2+12, LOOP2+13, LOOP2+17 , LOOP2+20, UPDATE+4, UPDATE+6, UPDATE+10, UPDATE+19, RECORD+29, RECORD+31, RECORD+34, RECORD+36, RECORD+38 , RECORD+40, RECORD+42, XRARY+5, CONFIRM+6
VAFCA08	RUN+3~, RUN+48*
VAFCNO	RUN+3~, RUN+47*
VAFHCA08	RUN+3~, RUN+48*
X	EN+3, UPDATE+16~, UPDATE+19*
XMATTACH	CONFIRM+14, CONFIRM+15, RESULTS+8, RESULTS+9, SENDMSG~, SENDMSG+10, SENDMSG+11
XMBODY	CONFIRM+11, CONFIRM+15, RESULTS+5, RESULTS+9, SENDMSG~, SENDMSG+10, SENDMSG+11
XMDISPI	SENDMSG+6~
XMDUN	SENDMSG+6~
XMDUZ	CONFIRM+9, CONFIRM+15, RESULTS+3, RESULTS+9, SENDMSG~, SENDMSG+10, SENDMSG+11
XMERR	SENDMSG+5~, SENDMSG+10
XMINSTR	CONFIRM+15, RESULTS+9, SENDMSG~, SENDMSG+10, SENDMSG+11
XMINSTR("FLAGS"	CONFIRM+13, RESULTS+7
XMNOSEND	SENDMSG+6~
XMPRIV	SENDMSG+6~
XMSUBJ	CONFIRM+10, CONFIRM+15, RESULTS+4, RESULTS+9, SENDMSG~, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+11
XMTO	CONFIRM+15, RESULTS+9, SENDMSG~, SENDMSG+10, SENDMSG+11
XMTO(	CONFIRM+12, RESULTS+6
XMV	SENDMSG+6~
XMZ	CONFIRM+14, CONFIRM+15, RESULTS+8, RESULTS+9, SENDMSG~, SENDMSG+11
XUNOTRIG	UPDATE+16~
Y	DIRHL7+2~, DIRHL7+12, DIRHL7+13, DIR+1~, DIR+18, DIR+19, DIR+20

Marked Items

Name	Field # of Occurrence
$T(FIELD+DGI	RUN+19

Customize PDF page

Package: Registration