Routine: DPTLK1

Information

DPTLK1 ;ALB/RMO,EG - MAS Patient Look-up Check Cross-References ; 08/15/2006

Package	Total	Call Graph
VA FileMan	3	CLRMSG^DDS YN^DICN $$GET1^DIQ
Kernel	2	$$FMTE^XLFDT $$FORMAT^XLFNAME7
Registration	2	$$EMPL^DGSEC4 $$SEARCH^DPTLK7
Master Patient Index VistA	1	PATIENT^MPIFXMLP

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

Package	Total	Caller Graph
Registration	6	DGQPT DGQPTQ6 DGRRLU DPTLK DPTLK2 DPTLK6
Clinical Procedures	3	MDRPCOP1 MDRPCOR MDRPCU
Order Entry Results Reporting	3	ORQPT ORQPTQ6 ORWPT
Consult Request Tracking	2	GMRCCCRA GMRCHL7H
Emergency Department Integration Software	2	EDPFPTL EDPRPT13
Scheduling	2	SCUTBK11 SDECPTPL
Automated Medical Information Exchange	1	DVBAB84
Barcode Medication Administration	1	PSBMLLKU
General Medical Record - Vitals	1	GMVRPCP
Imaging	1	MAGGTPT1
Inpatient Medications	1	PSJDPT
Mental Health	1	YTQAPI11
Text Integration Utility	1	TIUCCRHL
VA Point of Service	1	VPSRPC5
Visual Impairment Service Team	1	ANRVOA

Entry Points

Name	Comments	DBIA/ICR reference
FIND	;Cross reference patient lookup
SET
YN
Q
LOOK(DPTVAL)	;Look for x-ref matches
CHKVAL
CV1(DPTVAL)	;Look for input value matches
CHKIFN
SETDPT
PRTDPT
LIST(DPTX,DPTLMAX,DPTLARR)	;Silent lookup list	ICR #4138 Status: Withdrawn Usage: Controlled Subscription
UCASE(DGX)	;Uppercase lookup value
SSN(DFN)	;do not show ssn identifier for patient ; input DFN = ien in file #2 [required] ; output SSN = nnnnnnnnn	ICR #3267 Status: Active Usage: Controlled Subscription ICR #5839 Status: Withdrawn Usage: Controlled Subscription
DOB(DFN,DGYR)	;do not show dob identifier for patient ; input DFN = ien in file #2 [required] ; DGYR = 0/1 [optional] ; where 0 returns 4-digit year (default) ; 1 returns 2-digit year ; 2 returns File manager date ; output DOB = mm/dd/yyyy (default) ; = mm/dd/yy, if DGYR=1 ; = yyymmdd, if DGYR=2	ICR #3266 Status: Active Usage: Controlled Subscription ICR #5839 Status: Withdrawn Usage: Controlled Subscription ICR #5839 Status: Withdrawn Usage: Controlled Subscription
SCREEN(DFN)	;Screening logic for SSN & DOB

External References

Name	Field # of Occurrence
CLRMSG^DDS	PRTDPT
$$EMPL^DGSEC4	SCREEN+12
YN^DICN	YN+3
$$GET1^DIQ	YN+2
$$SEARCH^DPTLK7	YN+4
PATIENT^MPIFXMLP	YN
$$FMTE^XLFDT	YN+2, DOB+16
$$FORMAT^XLFNAME7	FIND+15, FIND+17, SET+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Found: ",$P(^DPT(DPTDFN,0),"^")," ",$$FMTE^XLFDT($P(^DPT(DPTDFN,0),"^",3),"2D")," ",$P(^DPT(DPTDFN,0),"^",9)," ",$$GET1^DIQ(2,DPTDFN_",",.301)," ",$$GET1^DIQ(2,DPTDFN_",",391) Line Location: YN+2
Function Call: WRITE	Prompt: !," Ok" Line Location: YN+3
Function Call: WRITE	Prompt: DPTP1 Line Location: PRTDPT+10
Function Call: WRITE	Prompt: "ENTER '^' TO STOP, OR " Line Location: PRTDPT+12
Function Call: READ	Variable: X Timeout: DTIME Line Location: PRTDPT+13
Function Call: WRITE	Prompt: "CHOOSE ",DPTBEG,"-",DPTNUM,": " Line Location: PRTDPT+13
Routine Call	DDS Line Location: PRTDPT

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	PRTDPT
^DGSL(38.1 - [#38.1]	SCREEN+10
^DISV(	LIST+23
^DPT - [#2]	YN+2, YN+5, LOOK+2, LOOK+3, CHKVAL+11, CHKVAL+12, CV1+1, CHKIFN, SETDPT, SETDPT+2 , SETDPT+6, SETDPT+7, PRTDPT+11, LIST+24, LIST+25, SSN+8, DOB+13
^TMP("DPTLK"	Q+1!, SETDPT+5!, SETDPT+8, SETDPT+9*

Label References

Name	Line Occurrences
$$DOB	SETDPT+15
$$SCREEN	SSN+7, DOB+12
$$SSN	SETDPT+15
$$UCASE	FIND+6
CHKIFN	LOOK+2, CHKVAL+3, CHKVAL+7, CHKVAL+8, CV1+1
CHKVAL	LOOK+3
CV1	CHKVAL+7, CHKVAL+8, CHKVAL+10, CHKVAL+13
FIND	LIST+27
LOOK	FIND+16, FIND+17, SET+15
PRTDPT	SET, SETDPT+17
Q	YN+7
SET	YN+9
SETDPT	CHKIFN, LIST+25

Naked Globals

Name	Field # of Occurrence
^("^DPT("	LIST+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	YN+1~, YN+4, YN+6
%Y	YN+1~
B	DOB+9~, DOB+13*, DOB+16, DOB+17
DDCOMA	FIND+4~, FIND+7, SET+6, SETDPT+4
>> DDS	PRTDPT, PRTDPT+3, PRTDPT+11, PRTDPT+12, PRTDPT+13
>> DDSHBX	PRTDPT
>> DDXY	PRTDPT, PRTDPT+11
DFN	SSN~, SSN+5, SSN+6, SSN+7, SSN+8, DOB~, DOB+10, DOB+11, DOB+12, DOB+13 , SCREEN~, SCREEN+10, SCREEN+12
DG1	SCREEN+6~
DGA1	SCREEN+6~
DGI	UCASE+3~, UCASE+4*
DGLASTLK	FIND+4~, FIND+5, SET+4, SET+8, YN+9*, YN+10
DGT	SCREEN+6~
DGTIME	SCREEN+6~
DGX	UCASE~, UCASE+3, UCASE+6, UCASE+7
DGXFR0	SCREEN+6~
DGY	UCASE+3~, UCASE+4, UCASE+5, UCASE+6
DGYR	DOB~, DOB+10*, DOB+14, DOB+15
DGZ	UCASE+3~*, UCASE+4
DIC	LIST+19~
DIC("S"	SETDPT+4
DIC(0	FIND+8, SET, LOOK+3, SETDPT+17, LIST+20*
>> DO("SCR"	SETDPT+4
DOB	DOB+9~, DOB+10, DOB+12, DOB+16, DOB+17, DOB+18
>> DPT("NOPRT^"	SET*!, PRTDPT+12
DPTBEG	FIND+12, Q!, CHKIFN, PRTDPT+13
DPTCNT	SET, SET+4, YN, YN+4, YN+9, YN+10, SETDPT+5, SETDPT+9, SETDPT+11, SETDPT+12 , SETDPT+15, SETDPT+17, PRTDPT+2, LIST+19~, LIST+20, LIST+22, LIST+25, LIST+28
DPTDFN	FIND+12, FIND+13, SET, SET+1, SET+2, SET+13, YN, YN+2, YN+4, YN+5 , YN+7, LOOK+2, CV1+1, CHKIFN, PRTDPT+16, PRTDPT+17, LIST+19~
DPTIFN	Q!, CHKIFN, PRTDPT+2, PRTDPT+11
DPTIFNS	Q!, LIST+19~
DPTIFNS(	SET, CHKIFN!, SETDPT+9*, SETDPT+15, PRTDPT+2, PRTDPT+4, PRTDPT+5, PRTDPT+16
>> DPTIX	FIND+9
DPTLARR	SETDPT+10, SETDPT+12, SETDPT+15, LIST~
DPTLMAX	SETDPT+11, LIST~, LIST+20*, LIST+28
DPTLP	FIND+13, SET+13, Q!
DPTLP1	Q!, CV1+1*
>> DPTNOFZY	FIND+15, FIND+17, SET+4
DPTNUM	FIND+12, SET, Q!, CHKIFN, PRTDPT+2, PRTDPT+4, PRTDPT+5, PRTDPT+6, PRTDPT+13
DPTNVAL	SETDPT+3~, SETDPT+7*, SETDPT+8, SETDPT+9
DPTOUT	FIND+4~, FIND+12, FIND+13, SET+13, Q+1!, LOOK+2, CHKIFN, SETDPT+13, PRTDPT+2, PRTDPT+14* , PRTDPT+15*
DPTOVAL	FIND+4~, Q+1!, CHKVAL, SETDPT+3~, SETDPT+4, SETDPT+6, PRTDPT+14
DPTP1	PRTDPT+1~, PRTDPT+5*, PRTDPT+10
DPTP2	PRTDPT+1~, PRTDPT+4*, PRTDPT+8, PRTDPT+10
>> DPTPSREF	FIND+11, SET+12
DPTREF	FIND+13, FIND+15, FIND+17, SET+13, Q!, LOOK+2, LOOK+3, CHKVAL+2, CHKVAL+5, CHKVAL+11 , CHKVAL+12, CV1+1, CHKIFN, SETDPT, SETDPT+6, SETDPT+7
DPTREFS	FIND+8!, FIND+9, FIND+11, FIND+13, SET+9, SET+12*, SET+13, Q!
DPTS	LIST+19~
DPTS(	YN+5, CHKIFN!, SETDPT, SETDPT+6, PRTDPT+16
DPTSEED	CHKVAL+1~*, CV1+1
>> DPTSEL	SET, PRTDPT+13, PRTDPT+14, PRTDPT+16, PRTDPT+17
DPTSZ	CHKIFN, LIST+19~, LIST+20*
DPTVAL	FIND+14, FIND+15, FIND+16, FIND+17, SET+14, SET+15, Q!, LOOK~, LOOK+2, LOOK+3 , CHKVAL, CHKVAL+1, CHKVAL+2, CHKVAL+3, CHKVAL+5, CHKVAL+6, CHKVAL+7, CHKVAL+8, CHKVAL+10, CHKVAL+11 , CHKVAL+12, CHKVAL+13, CV1~, CV1+1*, CHKIFN, SETDPT+6, SETDPT+7, PRTDPT+14
DPTX	FIND+6, FIND+7, FIND+8, FIND+9, FIND+14, FIND+17, SET, SET+1, SET+2, SET+4 , SET+5, SET+6, SET+7, SET+14, YN, YN+4, YN+10, SETDPT+3, PRTDPT+14, PRTDPT+16 , LIST~, LIST+22, LIST+23, LIST+24
DPTXOLD	FIND+4~, FIND+6, FIND+7, SET+1, SET+2, YN+10, Q+1!, PRTDPT+14, PRTDPT+17*
>> DPTXX	YN+4
DTIME	PRTDPT+13
>> DTOUT	PRTDPT+13, PRTDPT+14*
>> DUOUT	PRTDPT+13, PRTDPT+15*
DUZ	LIST+23
>> DX	PRTDPT, PRTDPT+11
>> DY	PRTDPT, PRTDPT+11
>> I	CHKIFN*
>> J	CHKIFN*
SSN	SSN+4~, SSN+5, SSN+7, SSN+8, SSN+11, SSN+13
U	SETDPT+6, SETDPT+7, SETDPT+9, SETDPT+15, PRTDPT+4, PRTDPT+5, SSN+8, DOB+13
X	SETDPT+4, PRTDPT, PRTDPT+13*, PRTDPT+15, LIST+19~
>> XQY0	YN
Y	CHKIFN, SETDPT, SETDPT+2, SETDPT+6, SETDPT+7, SETDPT+8, SETDPT+9, SETDPT+15, PRTDPT+11, LIST+19~ , LIST+23, LIST+24, LIST+25
YEAR	DOB+9~, DOB+15*, DOB+16

Marked Items

Name	Field # of Occurrence
$T(PATIENT^MPIFXMLP	YN

Customize PDF page

Package: Registration