Routine: DPTLK7

Information

DPTLK7 ;OAK/ELZ,ARF - MAS PATIENT LOOKUP ENTERPRISE SEARCH ;15 May 2020 2:31 PM

Package	Total	Call Graph
Registration	8	$$FOR^DGADDUTL ^DGBUL ($$FINDLAST,$$GET,$$QRY)^DGENQRY EN^DGREGAED CON^DGRPDD1 (ASKADD,CHKID1)^DPTLK2 (ADDTF,FORMATR)^DPTLK7A JUMP^DPTNAME1
Master Patient Index VistA	5	$$ICNLC^MPIF001 VIC40^MPIFAPI $$ENP^MPIFVER GETICN^MPIFXMLI PATIENT^MPIFXMLP
Kernel	3	($$FMADD,$$FMTE)^XLFDT ($$CLEANC,$$NAMEFMT,STDNAME)^XLFNAME $$FORMAT^XLFNAME7
VA FileMan	3	(FILE,YN)^DICN UPDATE^DIE ^DIR

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	5	DPTLK DPTLK1 DPTLK2 DPTLK4 DPTLK7A

Entry Points

Name	Comments	DBIA/ICR reference
SEARCH(DGX,DGXOLD)	; do a search, pass in what the user entered ; DGX is what the user originally entered, name is assumed unless it ; is exactly 9 digits, DON'T pass by reference it may change ; Return: DFN (new or found locally), 0 if nothing found/added
YN	;Enterprise Search?
PROMPT
QUIT
MPIADD(DGMPIR)	; - call to add patient to the MPI and store ICN locally ; - web service call for adding and getting new ICN
NAME(DGX,DG20NAME,DGOUT)	;- ask for name components
START
AGAIN
ASK
ADDRESS(DGFLDS,DGOUT)	;- prompt for address
FLDS(DGFLDS,DGNAME,DGOUT)	;- prompt for the various FM fields ; Data returned in array
ASKREQID(DGNAME,DPTIDS)	;Use code from CHKID1^DPTLK2 to prompt for additional required identifiers
PSREASON(DGFLDS,DGOUT)	; - prompts (and requires) pseudo reason
PSAGAIN
FORMAT(DGR,DGN,DGF)	; - format data for MPI call
ADD(DGF,DG20NAME)	; - stuff in patient ; Pass in the fields to set in the DGF array. ; Alaso Name components in DG20NAME array. Returns new DFN
ADDREQ(DGFLDS)	; - determine if enough address data entered ; returns OK to proceed (1) or not (0)
PSEUDO(NAM,DOB)	; - return pseudo ssn
BULL(SAVY)	; - send bulletin that new patient added

External References

Name	Field # of Occurrence
$$FOR^DGADDUTL	ADDREQ+6
^DGBUL	BULL+11
$$FINDLAST^DGENQRY	PROMPT+76
$$GET^DGENQRY	PROMPT+76
$$QRY^DGENQRY	PROMPT+73
EN^DGREGAED	ADDRESS+15
CON^DGRPDD1	PSEUDO+5, PSEUDO+6
FILE^DICN	ADD+27
YN^DICN	YN+2
UPDATE^DIE	ADD+40
^DIR	ASK, FLDS+22, FLDS+43, PSAGAIN
ASKADD^DPTLK2	PROMPT+27, PROMPT+90
CHKID1^DPTLK2	ASKREQID+9
ADDTF^DPTLK7A	MPIADD+26
FORMATR^DPTLK7A	PROMPT+50
JUMP^DPTNAME1	ASK+1
$$ICNLC^MPIF001	MPIADD+15
VIC40^MPIFAPI	MPIADD+20
$$ENP^MPIFVER	PROMPT+43
GETICN^MPIFXMLI	MPIADD+9
PATIENT^MPIFXMLP	SEARCH+9, PROMPT+16
$$FMADD^XLFDT	MPIADD+13, MPIADD+18
$$FMTE^XLFDT	BULL+6
$$CLEANC^XLFNAME	START+5, ASK+6
$$NAMEFMT^XLFNAME	ASK+12
STDNAME^XLFNAME	START+4
$$FORMAT^XLFNAME7	ASK+7, ASK+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Do you want to do an Enterprise Search" Line Location: YN+1
Function Call: WRITE	Prompt: !,"You must enter Yes or No." Line Location: YN+2
Function Call: WRITE	Prompt: !,"You must enter an actual SSN, a COMPLETE Address or Phone to search.",! Line Location: PROMPT+9
Function Call: WRITE	Prompt: !!,"Searching the MVI..." Line Location: PROMPT+14
Function Call: WRITE	Prompt: !,$S(DGMPIR("count")>10:DGMPIR("count"),1:"Too many")," records found, you need to provide more specific criteria.",! Line Location: PROMPT+21
Function Call: WRITE	Prompt: !,"No records found on the MVI.",! Line Location: PROMPT+26
Function Call: WRITE	Prompt: ! Line Location: PROMPT+61
Function Call: WRITE	Prompt: !,"Adding site correlation to MVI " Line Location: PROMPT+65
Function Call: WRITE	Prompt: "." Line Location: PROMPT+69
Function Call: WRITE	Prompt: "." Line Location: PROMPT+72
Function Call: WRITE	Prompt: !,"Enrollment/Eligibility Query processing " Line Location: PROMPT+73
Function Call: WRITE	Prompt: "." Line Location: PROMPT+77
Function Call: WRITE	Prompt: !,"Query to ES timed out, proceeding with registration." Line Location: PROMPT+79
Function Call: WRITE	Prompt: !,"The data will be uploaded when received." Line Location: PROMPT+80
Function Call: WRITE	Prompt: !! Line Location: PROMPT+81
Function Call: WRITE	Prompt: !,"The search returned one or more patients above the Auto-Link threshold," Line Location: PROMPT+85
Function Call: WRITE	Prompt: !,"none of them selected. Security key required to add without selection." Line Location: PROMPT+86
Function Call: WRITE	Prompt: !,"Adding patient to the MVI..." Line Location: MPIADD+6
Function Call: WRITE	Prompt: !,"Unable to add to MVI!",!,$G(DGMPIICN("ERRTXT")),! Line Location: MPIADD+12
Function Call: WRITE	Prompt: !,"Patient name components--" Line Location: START+8
Function Call: WRITE	Prompt: !,$C(7),"Family name cannot be deleted!" Line Location: ASK+2
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: ASK+8
Function Call: WRITE	Prompt: !,"Invalid values to use, full name must be at least 3 characters!",$C(7) Line Location: ASK+18
Function Call: WRITE	Prompt: !,"Patient address--" Line Location: ADDRESS+14
Function Call: WRITE	Prompt: !,"Patient identifiers--" Line Location: FLDS+15
Function Call: WRITE	Prompt: *7,"??",!!,"Choose from:" Line Location: PSAGAIN+2
Function Call: WRITE	Prompt: !,$P($P(DPTSET,";",P),":"),?10,$P($P(DPTSET,";",P),":",2) Line Location: PSAGAIN+3
Function Call: WRITE	Prompt: ! Line Location: PSAGAIN+4
Function Call: WRITE	Prompt: *7," SSN Already used by patient '",$P(^(0),"^"),"'." Line Location: ADD+6
Routine Call	DIE Line Location: ADD+40
Routine Call	DIR Line Location: ASK FLDS+22 FLDS+43 PSAGAIN

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	PSREASON+2
^DIC(5 - [#5]	FORMAT+13, FORMAT+26
^DPT - [#2]	ADD+6, BULL+3
^DPT("SSN"	ADD+6
^XTMP("DPTLK7 A24 IN-PROCESS"	PROMPT+69, MPIADD+18, MPIADD+19
^XTMP("MPIF EXPLICIT QUEUE"	MPIADD+13, MPIADD+14
^XUSEC("DG MVI ADD PT"	PROMPT+84

Label References

Name	Line Occurrences
$$ADD	PROMPT+28, PROMPT+50, PROMPT+91
$$ADDREQ	PROMPT+8
$$PSEUDO	ADD+4
ADDRESS	PROMPT+7
AGAIN	ASK+1
ASK	ASK+2, ASK+8
ASKREQID	FLDS+41
BULL	ADD+43
FLDS	PROMPT+5
FORMAT	PROMPT+15
MPIADD	PROMPT+37, PROMPT+60, PROMPT+97
NAME	PROMPT+4
PROMPT	PROMPT+8, PROMPT+20
PSAGAIN	PSAGAIN+4
PSREASON	FLDS+27
QUIT	PROMPT+50
START	ASK+17
YN	YN+2

Naked Globals

Name	Field # of Occurrence
^(0	ADD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SEARCH+5~, YN+2, YN+3, PROMPT+88~
%Y	SEARCH+5~, PROMPT+88~
DA	SEARCH+6~, ADD+3~
DATA	ADD+3~, ADD+11*, ADD+12
DFN	ASKREQID+5~
DG20NAME	SEARCH+5~, PROMPT+4, PROMPT+5, PROMPT+10!, PROMPT+15, PROMPT+22!, PROMPT+28, PROMPT+50!, PROMPT+91, NAME~ , START+6, ASK+5, ASK+6, ASK+7, ASK+8, ASK+9, ASK+12, ASK+14, ASK+15, ASK+17 , ASK+19!, FLDS+17~, ADD~, ADD+39~
DG20NAME(	AGAIN+4, ASK+3, ASK+9
DGADDREQ	SEARCH+6~, SEARCH+8, PROMPT+6, PROMPT+7, PROMPT+8
DGB	BULL+1~, BULL+2*
DGC	NAME+1~
DGC(	START+11*
DGCL	NAME+1~, START+3*, AGAIN+2
DGCOM	NAME+1~, START+1*, START+11, AGAIN
DGCOMP	NAME+1~, AGAIN*, AGAIN+1, AGAIN+4, ASK+3, ASK+6, ASK+9, ASK+19!
DGCX	NAME+1~, START+2*, AGAIN+1
DGDFN	SEARCH+5~, PROMPT+26, PROMPT+27, PROMPT+28, PROMPT+32, PROMPT+43, PROMPT+46, PROMPT+47, PROMPT+50, PROMPT+52 , PROMPT+69, PROMPT+73, PROMPT+76, PROMPT+90, PROMPT+91, PROMPT+92, QUIT, MPIADD+14, MPIADD+15, MPIADD+19 , MPIADD+20, MPIADD+26
DGDOB	BULL+1~, BULL+4, BULL+6, BULL+10
DGDONE	PROMPT+66~, PROMPT+67, PROMPT+72
DGF	FORMAT~, ADD~, ADD+9, ADD+11, ADD+12, ADD+34
DGF(	FORMAT+8, FORMAT+9, FORMAT+10, FORMAT+11, FORMAT+12, FORMAT+13, FORMAT+15, FORMAT+20, FORMAT+21, FORMAT+22 , FORMAT+23, FORMAT+24, FORMAT+25, FORMAT+26, FORMAT+27, FORMAT+28, FORMAT+29, ADD+4*, ADD+6, ADD+9 , ADD+11, ADD+26, PSEUDO+2
DGF("ALIAS"	ADD+33, ADD+34, ADD+35, ADD+36
DGF("EDIPI"	FORMAT+16
DGF(994	FORMAT+14
DGFLD	FLDS+17~, FLDS+38*, FLDS+41, FLDS+42, FLDS+45
DGFLDS	SEARCH+5~, PROMPT+5, PROMPT+7, PROMPT+8, PROMPT+10!, PROMPT+15, PROMPT+22!, PROMPT+28, PROMPT+50, PROMPT+91 , ADDRESS~, FLDS~, FLDS+27, FLDS+41*, PSREASON~, ADDREQ~
DGFLDS(	PROMPT, PROMPT+6, PROMPT+27, PROMPT+90, ADDRESS+18, ADDRESS+19, FLDS+20, FLDS+24, FLDS+27, FLDS+45* , FLDS+47, PSAGAIN+6, ADDREQ+6, ADDREQ+7, ADDREQ+8, ADDREQ+9
DGI	NAME+1~, START+11, START+14, AGAIN, AGAIN+1, AGAIN+2, ASK+1, ASK+2
DGKEYREQ	SEARCH+6~, SEARCH+8, PROMPT+40, PROMPT+84, PROMPT+93
DGMCID	SEARCH+6~, PROMPT+17*, PROMPT+34, PROMPT+54, PROMPT+94
DGMPI	SEARCH+5~, PROMPT+10!, PROMPT+15, PROMPT+16, PROMPT+22!, PROMPT+31, PROMPT+89
DGMPIICN	SEARCH+5~, MPIADD+7~, MPIADD+9
DGMPIICN("ERRTXT"	MPIADD+12, MPIADD+14
DGMPIICN("ICN"	MPIADD+10
DGMPIR	SEARCH+5~, PROMPT+10!, PROMPT+16, PROMPT+22!, PROMPT+37, PROMPT+43, PROMPT+50, PROMPT+60, PROMPT+88~, PROMPT+97 , MPIADD~, MPIADD+9
DGMPIR(	PROMPT+32, PROMPT+40, PROMPT+52, PROMPT+92, MPIADD+4, MPIADD+10, MPIADD+14, MPIADD+20, MPIADD+25
DGMPIR("AddType"	PROMPT+93, MPIADD+8, MPIADD+14
DGMPIR("Result"	PROMPT+20
DGMPIR("SelIdentifier"	PROMPT+36, PROMPT+56, PROMPT+59, PROMPT+96
DGMPIR("count"	PROMPT+20, PROMPT+21, PROMPT+26
DGMPIR("dupeThreshold"	PROMPT+43
DGMPIR("matchThreshold"	PROMPT+40, PROMPT+43
DGMPIR("mcid"	PROMPT+17, PROMPT+34, PROMPT+54, PROMPT+94*
DGMPIR(0	PROMPT+32, PROMPT+52, PROMPT+92, MPIADD+4, MPIADD+10, MPIADD+14, MPIADD+20, MPIADD+25
DGMPIR(1	PROMPT+31, PROMPT+56, PROMPT+59, PROMPT+64, PROMPT+89
DGN	FORMAT~
DGN("DEGREE"	FORMAT+7
DGN("FAMILY"	FORMAT+2
DGN("GIVEN"	FORMAT+3
DGN("MIDDLE"	FORMAT+4
DGN("PREFIX"	FORMAT+6
DGN("SUFFIX"	FORMAT+5
DGNAM	BULL+1~, BULL+4*, BULL+8
DGNAME	FLDS~, FLDS+41, FLDS+47, ASKREQID~, ASKREQID+6
DGNEWICN	MPIADD+3~, MPIADD+5*, MPIADD+23
>> DGNEWP	ADD+30*
DGOK	ADDREQ+2~, ADDREQ+3, ADDREQ+7, ADDREQ+8, ADDREQ+9, ADDREQ+10
DGOUT	SEARCH+5~, SEARCH+8, PROMPT+4, PROMPT+5, PROMPT+7, NAME~, START, START+14, ASK, ASK+10 , ADDRESS~, FLDS~, FLDS+23, FLDS+27, FLDS+46, PSREASON~, PSAGAIN+1, PSAGAIN+5*
DGQRY	PROMPT+66~, PROMPT+76*
DGQRY("STATUS"	PROMPT+76
DGQSTAT	PROMPT+66~, PROMPT+67, PROMPT+76, PROMPT+78
DGR	FORMAT~
DGR("CITY"	FORMAT+25*
DGR("DOB"	FORMAT+9*
DGR("Degree"	FORMAT+7*
DGR("EDIPI"	FORMAT+16*
DGR("FirstName"	FORMAT+3*
DGR("Gender"	FORMAT+8*
DGR("MBI"	FORMAT+14*
DGR("MMN"	FORMAT+11*
DGR("MiddleName"	FORMAT+4*
DGR("POBCity"	FORMAT+12*
DGR("POBState"	FORMAT+13*
DGR("Prefix"	FORMAT+6*
DGR("ResAddCountry"	FORMAT+29*
DGR("ResAddL1"	FORMAT+21*
DGR("ResAddL2"	FORMAT+23*
DGR("ResAddL3"	FORMAT+24*
DGR("ResAddPCode"	FORMAT+28*
DGR("ResAddProvince"	FORMAT+27*
DGR("ResAddState"	FORMAT+26*
DGR("ResAddZip4"	FORMAT+22*
DGR("ResPhone"	FORMAT+15*
DGR("SSN"	FORMAT+10*
DGR("Suffix"	FORMAT+5*
DGR("Surname"	FORMAT+2*
DGRET	ADDRESS+1~, ADDRESS+15
DGRET(	ADDRESS+18, ADDRESS+19
DGSAVE	SEARCH+5~, SEARCH+8*, PROMPT+11, PROMPT+23
>> DGSEARCH	SEARCH+7, SEARCH+8*
DGSSN	BULL+1~, BULL+4, BULL+5, BULL+9
DGTEXT	BULL+1~
DGTEXT(1	BULL+8*
DGTEXT(2	BULL+9*
DGTEXT(3	BULL+10*
DGTFARR	MPIADD+24~, MPIADD+25*, MPIADD+26
DGTIME	PROMPT+66~, PROMPT+68, PROMPT+76
DGVAL	ADDRESS+1~, ADDRESS+17*, ADDRESS+18
DGVV	ASKREQID+5~
DGX	SEARCH~, SEARCH+8, YN+5, PROMPT, PROMPT+2, PROMPT+3, PROMPT+4, PROMPT+10!, PROMPT+11, PROMPT+22! , PROMPT+23, NAME~, START+4*, START+6, ASK+19!
DGX(	AGAIN+4
DGX("SUFFIX"	START+5*
DGXOLD	SEARCH~, YN+5
DGY	NAME+1~, ASK+14, ASK+15, ADD+3~, ADD+6
DGZ	BULL+1~, BULL+3*, BULL+4
DIC	SEARCH+6~, ASKREQID+5~, ASKREQID+6, ADD+3~, ADD+26
DIC("DR"	ADD+8, ADD+12, ADD+22, ADD+24
DIC(0	ADD+26*
DIR	NAME+1~, FLDS+17~, FLDS+25!, PSREASON+1~
DIR("?"	FLDS+21*
DIR("A"	AGAIN+1, FLDS+19
DIR("B"	AGAIN+4, AGAIN+5!, FLDS+20
DIR("PRE"	START+7, AGAIN+3
DIR(0	AGAIN+2, FLDS+18, FLDS+42, PSAGAIN
DIROUT	PSREASON+1~, PSAGAIN+1
DIRUT	FLDS+44, PSREASON+1~
DLAYGO	ADD+3~, ADD+26*
DO	SEARCH+6~, ASKREQID+5~, ADD+3~
DOB	PSEUDO~, PSEUDO+2, PSEUDO+3, PSEUDO+7
DPT	ASKREQID+5~
DPTCT	ASKREQID+5~
DPTDFN	PROMPT+27, PROMPT+88~, PROMPT+90, ASKREQID+5~, ASKREQID+6*, ASKREQID+7, ASKREQID+10
DPTGID	ASKREQID+5~
DPTID	ASKREQID+5~, ASKREQID+7*, ASKREQID+8
DPTID0	ASKREQID+5~
DPTIDS	FLDS+41~*, ASKREQID~
DPTIDS(	ASKREQID+8*
DPTIDS(1901	ASKREQID+8
DPTSET	ASKREQID+5~, PSREASON+1~, PSREASON+2*, PSAGAIN+3
DPTX	PROMPT+27, PROMPT+47, PROMPT+88~, PROMPT+90, ASKREQID+5~, ASKREQID+6, ADD+3~
DT	MPIADD+13, MPIADD+14, MPIADD+18, MPIADD+19, ADD+22
DTOUT	ASK, FLDS+38, FLDS+46, PSREASON+1~, PSAGAIN+1
DUOUT	FLDS+23, FLDS+38, FLDS+41, FLDS+46, ASKREQID+10*, PSREASON+1~, PSAGAIN+1
DUZ	PROMPT+84, ADD+24
FDA	ADD+3~, ADD+38
FDA(	ADD+35, ADD+36
FIELD	ADDREQ+2~, ADDREQ+7, ADDREQ+8
I	PROMPT+59~*, ASKREQID+5~
IEN	ADD+3~
L1	PSEUDO+1~, PSEUDO+4, PSEUDO+5, PSEUDO+7
L2	PSEUDO+1~, PSEUDO+4, PSEUDO+5, PSEUDO+6, PSEUDO+7
L3	PSEUDO+1~, PSEUDO+4, PSEUDO+6, PSEUDO+7
NAM	PSEUDO~, PSEUDO+2, PSEUDO+4
P	PSREASON+1~, PSAGAIN+3*
REQ	ADD+3~, ADD+8*, ADD+12
SAVY	ADD+3~, ADD+28*, ADD+35, ADD+36, ADD+43, ADD+45, BULL~, BULL+3
U	START+11, AGAIN, AGAIN+1, AGAIN+2, ASK, ADD+30
VAFCNO	ADD+3~, ADD+26*
X	SEARCH+6~, PROMPT+40, MPIADD+15, NAME+1~, ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5 , ASK+9, FLDS+17~, FLDS+24, ASKREQID+5~, PSREASON+1~, FORMAT+1~, ADD+3~, ADD+26, ADD+33, ADD+34 , ADD+35, ADD+36
>> XMSUB	BULL+7*
Y	PROMPT+88~, FLDS+17~, FLDS+45, ASKREQID+5~, PSREASON+1~, PSAGAIN+2, PSAGAIN+5, PSAGAIN+6, ADD+3~, ADD+28 , ADD+30
Z	PSEUDO+1~, PSEUDO+5, PSEUDO+6

Marked Items

Name	Field # of Occurrence
$T(PATIENT^MPIFXMLP	SEARCH+9

Customize PDF page

Package: Registration