Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: VPRDPT

Package: Virtual Patient Record

Routine: VPRDPT


Information

VPRDPT ;SLC/MKB -- Patient demographics extract ;8/11/11 15:29

Source Information

Source file <VPRDPT.m>

Call Graph

Call Graph

Call Graph Total: 17

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  

Entry Points

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

External References

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, SVC+28, 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DI(.85 - [#.85] FIND1^DIC,  GET1^DIQ
^DPT - [#2] GET1^DIQ
2.02 GET1^DIQ
2.04 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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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~
CDT SVC+22~, SVC+28*, SVC+29
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, SVC+27, 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+29
DX SVC+22~, SVC+26*, SVC+29
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, SVC+27, SVC+29, 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
IENS SVC+22~, SVC+27*, SVC+28
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+29
ODT SVC+22~, SVC+28*, SVC+29
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+29*
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+29, 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

Marked Items

Name Field # of Occurrence
$T(TFL^VAFCTFU1 FAC+3
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All