Routine: VPRD

Package	Total	Call Graph
Kernel	4	$$TZ^XLFDT $$LOW^XLFSTR $$NS^XUAF4 $$TAXIND^XUSTAX
Master Patient Index VistA	1	$$GETDFN^MPIF001
Registration	1	$$SITE^VASITE
Toolkit	1	$$GET^XPAR
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Virtual Patient Record	48	VPR DATA VERSION VPR GET PATIENT DATA VPRDGMPL VPRDGMRA VPRDGMRC VPRDGMV VPRDGPF VPRDIB VPRDJ00 VPRDJ01 VPRDJ02 VPRDJ03 VPRDJ04 VPRDJ04A VPRDJ05 VPRDJ05V VPRDJ06 VPRDJ07 VPRDJ08 VPRDJ09 VPRDLR VPRDLRA VPRDLRO VPRDMC VPRDMDC VPRDOR VPRDPROC VPRDPS VPRDPSI VPRDPSO VPRDPSOR VPRDPT VPRDPXAM VPRDPXED VPRDPXHF VPRDPXIM VPRDPXRM VPRDPXSK VPRDRA VPRDRMIM VPRDSDAM VPRDSR VPRDTIU VPRDTST VPRDVSIT VPRSDAL VPRSDAP VPRSDAT
VA FileMan	2	^DDE ITEM
Capacity Management	1	KMPSYNTH

Entry Points

Name	Comments	DBIA/ICR reference
GET(VPR,DFN,TYPE,START,STOP,MAX,ID,FILTER)	; -- Return search results as XML in @VPR@(n) ; RPC = VPR GET PATIENT DATA	ICR #7135 Status: Active Usage: Private
GTQ	; end
RTN(X)	; -- Return name of VPRDxxxx routine for clinical domain X ; X is also enforced as expected group tag name, if passed by ref
TAG(X)	; -- return plural name for group tags
ALL()	; -- return string for all types of data
ERR(X,VAL)	; -- return error message
ESC(X)	; -- escape outgoing XML ; Q $ZCONVERT(X,"O","HTML") ; uncomment for fastest performance on Cache
ADD(X)	; Add a line @VPR@(n)=X
STRING(ARRAY)	; -- Return text in ARRAY(n) or ARRAY(n,0) as a string
FAC(X)	; -- return Institution file station# for location X
PROVTAGS()	; -- Return attribute tags for provider info as built below
PROVSPC(NP)	; -- Return contact & specialty info for provider NP ; save strings in ^TMP("VPRD",$J,NP) for efficiency
VUID(IEN,FILE)	; -- Return VUID for item
VERSION(RET)	; -- Return current version of data extracts
TEST(DFN,TYPE,ID,START,STOP,MAX,TEXT,IN)	; -- test GET, write results to screen

External References

Name	Field # of Occurrence
$$GET1^DIQ	FAC+4, PROVSPC+9, VUID+1
$$GETDFN^MPIF001	GET+8
$$SITE^VASITE	FAC+5
$$TZ^XLFDT	GET+18
$$LOW^XLFSTR	GET+10, TAG+1
$$GET^XPAR	GET+18, VERSION+1
$$NS^XUAF4	FAC+5
$$TAXIND^XUSTAX	PROVSPC+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,@IDX Line Location: TEST+7

Used in RPC

RPC Name	Call Tags
VPR GET PATIENT DATA	GET
VPR DATA VERSION	VERSION

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GET+9
^SC - [#44]	FAC+2
^TMP("VPR"	GET+3
^TMP("VPRD"	GTQ+1!, PROVSPC+3, PROVSPC+10*
^USC(8932.1 - [#8932.1]	PROVSPC+7
^VA(200 - [#200]	PROVSPC+4

Label References

Name	Line Occurrences
$$ALL	GET+10
$$RTN	GET+21
@(	GET+23
ADD	GET+18, GET+22, GET+24, GET+25, ERR+6, ERR+7, ERR+8
ERR	GET+9
GET	TEST+4
GTQ	GET+9

Naked Globals

Name	Field # of Occurrence
^(	PROVSPC+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	STRING~
ARRAY(	STRING+4, STRING+5, STRING+6
ARRAY(""	STRING+3
ARRAY(0	STRING+3
CLS	PROVSPC+2~, PROVSPC+7*, PROVSPC+8
CRLF	STRING+2~*, STRING+8
DFN	GET~, GET+7, GET+8, GET+9, TEST~, TEST+2*, TEST+4
FAC	FAC+1~, FAC+2, FAC+4, FAC+5, FAC+7
FILE	VUID~, VUID+1
FILTER	GET~
FILTER("id"	GET+14
FILTER("nowrap"	STRING+2
FILTER("text"	GET+4
HLOC	FAC+1~, FAC+2*, FAC+4
I	ESC+3~, ESC+4, ESC+5, ESC+6, ESC+7, ESC+8, ESC+9, STRING+1~, STRING+3, STRING+4 , STRING+5, STRING+6, PROVSPC+2~
ICN	GET+2~, GET+7*, GET+8
ID	GET~, GET+7, GET+14, TEST~, TEST+4
IDX	TEST+1~, TEST+6, TEST+7
IEN	VUID~, VUID+1
IN	TEST~, TEST+4
MAX	GET~, GET+11*, TEST~, TEST+4
MSG	ERR+1~, ERR+2, ERR+3, ERR+4, ERR+7
NP	PROVSPC~, PROVSPC+2*, PROVSPC+3, PROVSPC+4, PROVSPC+6, PROVSPC+9, PROVSPC+10
OUT	TEST+1~, TEST+4, TEST+6
QOT	ESC+3~*, ESC+9
RES	PROVSPC+2~, PROVSPC+3, PROVSPC+5, PROVSPC+8, PROVSPC+9, PROVSPC+10, PROVSPC+11
RET	VERSION~, VERSION+1*
START	GET~, GET+11, GET+12, TEST~, TEST+4
STOP	GET~, GET+11, GET+12, GET+13*, TEST~, TEST+4
TEXT	TEST~
TYPE	GET~, GET+10, GET+19, TEST~, TEST+3, TEST+4
U	FAC+2, FAC+4, FAC+5, FAC+6, FAC+7, PROVSPC+5, PROVSPC+6, PROVSPC+7, PROVSPC+8, PROVSPC+9 , TEST+1*
VAL	ERR~, ERR+2, ERR+3
VPR	GET~, GET+3*, GET+24, ADD+2
VPRHDR	GET+17~, GET+22*, GET+24
VPRI	GET+2~, GET+22, ADD+1*, ADD+2
VPRP	GET+17~, GET+20*
VPRTAG	GET+17~, GET+20*, GET+21, GET+22, GET+24
VPRTEXT	GET+2~, GET+4*
VPRTN	GET+17~, GET+21*, GET+23
VPRTOTL	GET+2~, GET+22*, GET+24
VPRTYPE	GET+17~, GET+19*, GET+20
X	GET+12~, RTN~, RTN+2, RTN+3, RTN+4, RTN+5, RTN+6, RTN+7, RTN+8, RTN+9* , RTN+10, RTN+11, RTN+12, RTN+13, RTN+14, RTN+15, RTN+16, RTN+17, RTN+18, RTN+19 , RTN+20, RTN+21, RTN+22, RTN+23, RTN+24, RTN+25, RTN+26, RTN+27, RTN+28, RTN+29 , RTN+30, RTN+31, RTN+32, RTN+33, RTN+34, RTN+35, TAG~, TAG+1, TAG+2, TAG+3 , TAG+4, ERR~, ERR+2, ERR+3, ERR+4, ESC~, ESC+4, ESC+5, ESC+6, ESC+7 , ESC+8, ESC+9, ADD~, ADD+2, STRING+1~, STRING+6, STRING+7, STRING+8, STRING+9, FAC~ , FAC+2, FAC+4, PROVSPC+2~, PROVSPC+6, PROVSPC+7, PROVSPC+8
X13	PROVSPC+2~, PROVSPC+4*, PROVSPC+5
X15	PROVSPC+2~, PROVSPC+4*, PROVSPC+5
Y	RTN+2~, RTN+3, RTN+4, RTN+5, RTN+6, RTN+7, RTN+8, RTN+9, RTN+10, RTN+11 , RTN+12, RTN+13, RTN+14, RTN+15, RTN+16, RTN+17, RTN+18, RTN+19, RTN+20, RTN+21 , RTN+22, RTN+23, RTN+24, RTN+25, RTN+26, RTN+27, RTN+28, RTN+29, RTN+30, RTN+31 , RTN+32, RTN+33, RTN+34, RTN+35, RTN+36, TAG+1~, TAG+2, TAG+3, TAG+4, TAG+5 , ESC+3~, ESC+5, ESC+6, ESC+7, ESC+8, ESC+9, ESC+10, STRING+1~, STRING+4, STRING+7* , STRING+8, STRING+9, STRING+10, FAC+1~, FAC+6, FAC+7*, FAC+8, PROVSPC+2~
Y0	FAC+1~, FAC+5*, FAC+6

Marked Items

Name	Field # of Occurrence
$T(@VPRTN	GET+21

Customize PDF page

Package: Virtual Patient Record

Routine: VPRD

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 51

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items