Routine: VPRDPT

Package	Total	Call Graph
Registration	8	$$CVEDT^DGCV $$GETSTAT^DGMSTAPI $$GETCUR^DGNTAPI $$GETACT^DGPFAPI RDIS^DGRPDB (7,ADD,DEM,INP,OAD)^VADPT TFL^VAFCTFU1 $$SITE^VASITE
Scheduling	3	($$INSTPCTM,$$PRTM,$$TMPT)^SCAPMC GETALL^SCAPMCA $$OUTPTPR^SDUTL3
VA FileMan	3	$$FIND1^DIC $$EXTERNAL^DILFD $$GET1^DIQ
Kernel	1	($$IEN,$$PADD)^XUAF4
Master Patient Index VistA	1	$$GETICN^MPIF001
Virtual Patient Record	1	($$ESC,$$FAC,$$PROVSPC,$$PROVTAGS,$$STRING)^VPRD

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find current patient demographics ; [BEG,END,MAX,ID not currently used]
DEM	;-demographic data
SVC	;-service data
PRF	;-patient record flags
ATC	;-address & telecom
SUPP	;-support contacts
ALIAS	;-other names used
FORMAT(X)	; -- enforce (xxx)xxx-xxxx phone format
FAC	;-treating facilities [see FACLIST^ORWCIRN]
INPT	;-current inpt status
ZPC	;-primary care [not used: GETALL not returning team members]
PC	;-primary care
XML(ITEM)	; -- Return patient data as XML in @VPR@(n) ; as <element code='123' displayName='ABC' />
ADDR(X)	; -- XML address node from X=street1^st2^st3^city^state^zip
PHONE(X)	; -- XML telecom node from X=home^cell^work numbers
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; Add a line @VPR@(n)=X
LABELS(X)	; -- return string of attribute labels for element X

Name	Field # of Occurrence
$$CVEDT^DGCV	SVC+18
$$GETSTAT^DGMSTAPI	SVC+17
$$GETCUR^DGNTAPI	SVC+15
$$GETACT^DGPFAPI	PRF+2
RDIS^DGRPDB	SVC+23
$$FIND1^DIC	DEM+22
$$EXTERNAL^DILFD	INPT+7
$$GET1^DIQ	DEM+11, DEM+16, DEM+19, DEM+23, SVC+26, ATC+6, SUPP+9, FAC+8, FAC+15, ZPC+11 , PC+10, PC+17
$$GETICN^MPIF001	DEM+2
$$INSTPCTM^SCAPMC	ZPC+2, PC+2
$$PRTM^SCAPMC	PC+6
$$TMPT^SCAPMC	PC+4
GETALL^SCAPMCA	ZPC+4
$$OUTPTPR^SDUTL3	PC+13
7^VADPT	SVC+2
ADD^VADPT	ATC+2
DEM^VADPT	DEM+3
INP^VADPT	INPT+3
OAD^VADPT	SUPP+3
TFL^VAFCTFU1	FAC+3
$$SITE^VASITE	EN+3, FAC+7, ZPC+9, PC+15
$$ESC^VPRD	XML+34, ADDR+3, ADDR+4, LOOP+2
$$FAC^VPRD	INPT+10
$$PROVSPC^VPRD	ZPC+8, ZPC+17, PC+11, PC+14
$$PROVTAGS^VPRD	LABELS+2, LABELS+9
$$STRING^VPRD	PRF+6
$$IEN^XUAF4	FAC+11
$$PADD^XUAF4	ZPC+10, PC+16

FileNo	Call Tags
^DI(.85 - [#.85]	FIND1^DIC, GET1^DIQ
^DPT - [#2]	GET1^DIQ
2.02	GET1^DIQ
2.06	GET1^DIQ
^DIC(31 - [#31]	GET1^DIQ
^DGSL(38.1 - [#38.1]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^SCTM(404.57 - [#404.57]	GET1^DIQ
^DIC(42 - [#42]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT("AA"	FAC+6
^DIC(42 - [#42]	INPT+5
^DPT - [#2]	DEM+9, ALIAS+2, FAC+4, INPT+2
^VA(200 - [#200]	PC+9

Name	Line Occurrences
$$FORMAT	ATC+6, SUPP+9
$$LABELS	XML+5
$$LOOP	XML+7, XML+17, XML+22, XML+35
ADD	XML+3, XML+4, XML+7, XML+9, XML+13, XML+17, XML+20, XML+22, XML+23, XML+26 , XML+27, XML+28, XML+36, ADDR+7, PHONE+2, PHONE+3, PHONE+4, PHONE+5, PHONE+6
ADDR	XML+8, XML+18, XML+30
ALIAS	EN+4
ATC	EN+4
DEM	EN+4
FAC	EN+4
INPT	EN+4
PC	EN+4
PHONE	XML+19, XML+31
PRF	EN+4
SUPP	EN+4
SVC	EN+4
XML	EN+5

Name	Field # of Occurrence
^(	ALIAS+2, ZPC+5, ZPC+14, ZPC+15
^(0	INPT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	SUPP+1~, SUPP+2*, SUPP+3, SUPP+4, SUPP+9
ADM	INPT+1~, INPT+2*, INPT+3, INPT+11
AO	SVC+1~, SVC+13*, SVC+19
ATT	XML+2~, XML+4*, XML+5, XML+6, XML+7, XML+8, XML+9, XML+11, XML+12, XML+14 , XML+15, XML+16, XML+18, XML+19, XML+21, XML+25, XML+30, XML+31, XML+34, XML+35
BEG	EN~
CV	SVC+1~, SVC+18*, SVC+19
DFN	EN~, EN+2, DEM+2, DEM+5, DEM+9, DEM+11, DEM+16, DEM+19, SVC+15, SVC+17 , SVC+18, SVC+23, PRF+2, ATC+6, SUPP+9, ALIAS+2, FAC+1, FAC+3, FAC+4, FAC+6 , INPT+2, ZPC+2, ZPC+4, ZPC+5, ZPC+7, ZPC+14, ZPC+15, PC+2, PC+4, PC+13
DIS	SVC+22~, SVC+25*, SVC+26, SVC+27
DX	SVC+22~, SVC+26*, SVC+27
END	EN~
FAC	ZPC+1~, ZPC+9, ZPC+10, ZPC+11, PC+1~, PC+15, PC+16, PC+17
HLOC	INPT+1~, INPT+5*, INPT+6, INPT+10
HNC	SVC+1~, SVC+16*, SVC+19
HNC("STAT"	SVC+15
HOME	FAC+2~, FAC+4*, FAC+16
I	DEM+15~, DEM+16, DEM+18~, DEM+19, DEM+21~, DEM+22, DEM+23, SVC+1~, SVC+7, SVC+8 , SVC+24, SVC+25, PRF+1~, PRF+3, PRF+4, PRF+5, PRF+6, ATC+1~, ATC+3, SUPP+1~ , SUPP+6, SUPP+9, ALIAS+1~, ALIAS+2, ALIAS+3, FORMAT+2~, FORMAT+3, FAC+2~, FAC+9, FAC+10 , ZPC+15, ZPC+17, PC+1~, PC+4, PC+7, PC+11, XML+2~, XML+14, XML+15, XML+17 , XML+18, XML+19, XML+21, XML+26, XML+27, ADDR+1~, ADDR+3, PHONE+1~
ID	EN~, XML+2~, XML+12, XML+13, XML+23, XML+27
IEN	FAC+2~, FAC+11*, FAC+13, FAC+15, FAC+16
IFN	FAC+1~
IR	SVC+1~, SVC+13*, SVC+19
ITEM	XML~
ITEM(	XML+4, XML+5, XML+8, XML+11, XML+14, XML+15, XML+18, XML+19
LAST	FAC+2~, FAC+6*, FAC+8
MAX	EN~
MST	SVC+1~, SVC+17*, SVC+19
N	FORMAT+2~, FORMAT+3*
NAME	PRF+1~, PRF+4*, PRF+6
NAMES	XML+2~, XML+5*, LOOP+2
NM	SVC+22~, SVC+26*, SVC+27
P	FORMAT+2~, FORMAT+3, FORMAT+4, FORMAT+5, LOOP+1~, LOOP+2
PAT	EN+3~, EN+5
PAT("address"	ATC+5*
PAT("admitted"	INPT+3*
PAT("alias"	ALIAS+3*
PAT("attending"	INPT+9*
PAT("bid"	DEM+6*
PAT("died"	DEM+10*
PAT("disability"	SVC+27*
PAT("dob"	DEM+7*
PAT("eligibility"	SVC+7, SVC+8
PAT("eligibilityStatus"	SVC+9*
PAT("ethnicity"	DEM+16*
PAT("exposures"	SVC+19*
PAT("facility"	FAC+8, FAC+13, FAC+15, FAC+16
PAT("familyName"	DEM+4*
PAT("flag"	PRF+6*
PAT("fullName"	DEM+3*
PAT("gender"	DEM+8*
PAT("givenNames"	DEM+4*
PAT("icn"	DEM+2*
PAT("id"	DEM+5*
PAT("inpatient"	INPT+11*
PAT("language"	DEM+23*
PAT("locSvc"	INPT+7*
PAT("location"	INPT+6*
PAT("lrdfn"	DEM+9*
PAT("maritalStatus"	DEM+13*
PAT("meansTest"	SVC+10*
PAT("pcAssigned"	ZPC+6, PC+4
PAT("pcProvider"	ZPC+8, ZPC+12, PC+14, PC+18
PAT("pcTeam"	ZPC+3, PC+3
PAT("pcTeamMember"	ZPC+17, PC+11
PAT("race"	DEM+19*
PAT("religion"	DEM+12*
PAT("roomBed"	INPT+4*
PAT("sc"	SVC+4*
PAT("scPercent"	SVC+4*
PAT("sensitive"	DEM+11*
PAT("servicePeriod"	SVC+5*
PAT("site"	INPT+10*
PAT("specialty"	INPT+8*
PAT("ssn"	DEM+5*
PAT("support"	SUPP+5, SUPP+8, SUPP+10*
PAT("telecom"	ATC+7*
PAT("veteran"	SVC+3*
PAT("ward"	INPT+4*
PCPR	ZPC+1~, ZPC+7*, ZPC+8, ZPC+14
PGF	SVC+1~, SVC+14*, SVC+19
POS	ZPC+16, ZPC+17, PC+1~, PC+8, PC+10*, PC+11
PRV	PC+1~, PC+7*, PC+8, PC+9
ST	ZPC+1~, ZPC+11, ZPC+12, PC+1~, PC+17, PC+18
STR	LOOP+1~, LOOP+2, LOOP+3
SVC	INPT+1~, INPT+5*, INPT+7
SYS	EN+3~*
TAG	LOOP+1~, LOOP+2*
TEAM	ZPC+1~, ZPC+2, ZPC+3, ZPC+5, ZPC+9, PC+1~, PC+2, PC+3, PC+4, PC+6 , PC+15
TEXT	PRF+1~, PRF+5*, PRF+6
TYPE	SUPP+1~, SUPP+4*, SUPP+5, SUPP+8, SUPP+10
U	DEM+5, DEM+7, DEM+8, DEM+10, DEM+13, DEM+21, DEM+23, SVC+4, SVC+5, SVC+7 , SVC+8, SVC+9, SVC+10, SVC+17, SVC+18, SVC+19, SVC+27, PRF+4, PRF+6, ATC+3 , ATC+4, ATC+6, SUPP+5, SUPP+6, SUPP+7, SUPP+9, ALIAS+2, ALIAS+3, FAC+4, FAC+5 , FAC+8, FAC+10, FAC+11, FAC+12, FAC+13, FAC+15, FAC+16, INPT+3, INPT+5, INPT+6 , INPT+7, ZPC+3, ZPC+6, ZPC+8, ZPC+9, ZPC+11, ZPC+12, ZPC+14, ZPC+15, ZPC+16 , ZPC+17, PC+3, PC+4, PC+9, PC+11, PC+14, PC+15, PC+17, PC+18, XML+27 , ADDR+3, ADDR+4, ADDR+5, ADDR+6, PHONE+3, PHONE+4, PHONE+5, LOOP+2
VA	DEM+1~
VA("BID"	DEM+6
VADM	DEM+1~
VADM(1	DEM+3
VADM(10	DEM+13
VADM(11	DEM+14, DEM+16
VADM(12	DEM+17, DEM+19
VADM(13	DEM+20, DEM+21
VADM(2	DEM+5
VADM(3	DEM+7
VADM(5	DEM+8
VADM(6	DEM+10
VADM(9	DEM+12
VAEL	SVC+1~
VAEL(1	SVC+6, SVC+7, SVC+8
VAEL(2	SVC+5
VAEL(3	SVC+4
VAEL(4	SVC+3
VAEL(8	SVC+9
VAEL(9	SVC+10
VAERR	DEM+1~, SVC+1~, INPT+1~
VAIN	INPT+1~
VAIN(11	INPT+9
VAIN(3	INPT+8
VAIN(4	INPT+4, INPT+5, INPT+6
VAIN(5	INPT+4
VAIN(7	INPT+3
VAOA	SUPP+1~, SUPP+2!
VAOA(	SUPP+6
VAOA("A"	SUPP+3*
VAOA(10	SUPP+5
VAOA(11	SUPP+7
VAOA(5	SUPP+7
VAOA(8	SUPP+9
VAOA(9	SUPP+3, SUPP+5
VAPA	ATC+1~
VAPA(	ATC+3
VAPA("P"	ATC+2*
VAPA(11	ATC+4
VAPA(5	ATC+4
VAPA(8	ATC+6
VASV	SVC+1~
VASV(11	SVC+14
VASV(12	SVC+14
VASV(13	SVC+14
VASV(2	SVC+13
VASV(3	SVC+13
>> VPR	ADD+2
VPRDIS	SVC+22~, SVC+23
VPRDIS(	SVC+24, SVC+25
VPRI	ZPC+1~, ZPC+5, ZPC+14, ZPC+15, ADD+1*, ADD+2
VPRPC	ZPC+1~, ZPC+4, ZPC+5, ZPC+7, ZPC+14, ZPC+15, ZPC+18
VPRPF	PRF+1~
VPRPF(	PRF+3, PRF+4, PRF+5
VPRT	PC+1~, PC+4, PC+5!, PC+6, PC+7, PC+8, PC+12!
VPRTM	ZPC+1~, ZPC+5*, ZPC+6, ZPC+14, ZPC+15
>> VPRTOTL	XML+3*
VPRY	FAC+2~, FAC+3
VPRY(	FAC+9, FAC+10
VPRY(1	FAC+5
X	DEM+1~, DEM+2, DEM+3, DEM+4, DEM+6, DEM+10, DEM+11, DEM+12, DEM+13, DEM+16* , DEM+19, DEM+21, DEM+22, DEM+23, SVC+1~, SVC+15, SVC+16, SVC+17, SVC+18, ATC+1~ , ATC+3, ATC+4, ATC+5, ATC+6, ATC+7, SUPP+1~, SUPP+6, SUPP+7, SUPP+8, SUPP+9* , SUPP+10, ALIAS+1~, ALIAS+2, ALIAS+3, FORMAT~, FORMAT+1, FORMAT+3, FAC+2~, FAC+6, FAC+7 , FAC+8, FAC+10, FAC+11, FAC+12, FAC+13, INPT+1~, INPT+10, ZPC+1~, ZPC+10, ZPC+11 , ZPC+12, ZPC+15, ZPC+16, ZPC+17, PC+1~, PC+4, PC+5!, PC+6, PC+9, PC+11 , PC+12!, PC+13, PC+14, PC+16, PC+17, PC+18, XML+2~, XML+5, XML+8, XML+15* , XML+18, XML+19, XML+25, XML+27, XML+30, XML+31, XML+33, XML+34, XML+35, ADDR~ , ADDR+1, ADDR+3, ADDR+4, ADDR+5, ADDR+6, PHONE~, PHONE+1, PHONE+3, PHONE+4, PHONE+5 , LOOP+2, ADD~, ADD+2, LABELS~, LABELS+2, LABELS+3, LABELS+4, LABELS+5, LABELS+6, LABELS+7 , LABELS+8, LABELS+9, LABELS+10, LABELS+11
Y	SVC+1~, FORMAT+2~, FORMAT+5, FORMAT+6, XML+2~, XML+4, XML+5, XML+7, XML+9, XML+15* , XML+16, XML+17, XML+21, XML+22, XML+23, XML+25, XML+26, XML+27, XML+30, XML+31 , XML+34, XML+35, ADDR+1~, ADDR+2, ADDR+3, ADDR+4, ADDR+5, ADDR+6, ADDR+7, PHONE+1~ , PHONE+3, PHONE+4, PHONE+5, LABELS+1~, LABELS+2, LABELS+3, LABELS+4, LABELS+5, LABELS+6, LABELS+7 , LABELS+8, LABELS+9, LABELS+10, LABELS+11, LABELS+12

Customize PDF page

Package: Virtual Patient Record

Routine: VPRDPT

Information

Source Information

Call Graph

Call Graph Total: 17

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items