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 |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: VPRHS

Package: Virtual Patient Record

Routine: VPRHS


Information

VPRHS ;SLC/MKB -- HealthShare utilities ;10/25/18 15:29

Source Information

Source file <VPRHS.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  $$PROD^XUPROD  
Master Patient Index VistA 1 ($$GETDFN,$$GETICN)^MPIF001  
Registration 1 $$TESTPAT^VADPT  
Scheduling 1 $$SDAPI^SDAMA301  
VA FileMan 1 ($$GET1,GET)^DDE  
Virtual Patient Record 1 TASK^VPRENC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Virtual Patient Record 13 VPREHL7  VPRENC  VPREVNT  VPRHST  VPRHSX  VPRHSX1  VPRHSX2  VPRP16  
VPRP20  VPRPCMM  VPRSDAF  VPRSDAP  VPRSR  

Entry Points

Name Comments DBIA/ICR reference
ON() ; -- return 1 or 0, if monitoring is on
EN(DFN) ; -- subscribe a patient for data event monitoring
UN(DFN) ; -- unsubscribe
SUBS(DFN) ; -- return 1 or 0, if patient is subscribed or not
QUE(DFN) ; -- create task to POST a Patient update
PAT ; -- post Patient update [TASK]
PX ; -- post an encounter update
VALID(PAT) ; -- return 1 or 0, if valid patient for HealthShare
MERGED(DFN) ; -- return 1 or 0, if patient is being merged
POST(DFN,TYPE,ID,ACT,VST) ; -- post an update to
; ^VPR(1,2,DFN,"AVPR",TYPE,ID) = seq# ^ U/D ^ VISIT#
; ^VPR("AVPR",seq#,DFN) = ICN ^ TYPE ^ ID ^ U/D ^ VISIT#
P1 ;may enter here from VPRHSX1 manual update option
NUM() ; -- return existing SEQ of record, or increment
; SAC EXEMPTION 2019-04-29 : Use of $I
NEW(DFN,ICN) ; -- post a new $$VALID patient to
; ^VPR(1,2,DFN,"ANEW") = seq#
; ^VPR("ANEW",seq#,DFN) = ICN
DEL(LIST,SEQ) ; -- remove ^VPR(LIST,SEQ) nodes
XTMP(SEQ,DFN,X) ; -- save data for 3 days for debugging
GET(DFN,NAME,ID,VPRQ,MTYPE,VPRY,VPRR) ; -- return VistA data in @VPRY@(#)
GT1 ; update one record for ECR
GTQ ; return data and exit
ERROR(MSG) ; -- return error MSG
ACTIVE(VPRY) ; -- find currently non-deceased, active patients
ADD
APPTS(BEG,END,VPRY) ; -- return patients w/appointments
INPTS(VPRY) ; -- return current inpatients

External References

Name Field # of Occurrence
^%ZTLOAD QUE+8
$$GET1^DDE GT1+5
GET^DDE GT1+13
$$GETDFN^MPIF001 GET+9
$$GETICN^MPIF001 POST+6, NEW+4
$$SDAPI^SDAMA301 APPTS+8
$$TESTPAT^VADPT VALID+3
TASK^VPRENC PX+1
$$FMADD^XLFDT QUE+6, XTMP+4, APPTS+4
$$NOW^XLFDT QUE+6
$$PROD^XUPROD VALID+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT("AET" ACTIVE+7
^DDE("SDA" GT1+3, GT1+10, GT1+11
^DGS(41.1 - [#41.1] ACTIVE+6, APPTS+11, APPTS+12, APPTS+13
^DPT - [#2] VALID+2, VALID+5, MERGED+1, MERGED+2, GET+10, GET+11, GET+12, ACTIVE+3, ACTIVE+4, ACTIVE+5
^DPT("ACA" INPTS+3, INPTS+4
^TMP("VPR ERR" GET+5
^TMP("VPR GET" GET+4
^TMP("VPR PATS" ACTIVE+2, APPTS+2, INPTS+2
^TMP("VPRHS ERR" GT1+9
^TMP("VPRHS" GT1+9
^TMP($J APPTS+9, APPTS+20!
^VPR - [#560] DEL+3, DEL+5
^VPR("ANEW" NEW+6*, DEL+4!
^VPR("AVPR" P1+3*, NUM+3, DEL+5!
^VPR(1 ON+1, EN+1, EN+2*, UN+1, UN+2!, SUBS+1, QUE+1, QUE+3, QUE+9*, PAT+1
PAT+4*, POST+3, P1+5*, P1+6, NUM+3, NUM+4, NEW+3, NEW+5, NEW+6*, NEW+7
, DEL+4!, DEL+8!
^XTMP("VPRHS" XTMP+2, XTMP+3, XTMP+4*, XTMP+5, XTMP+6*

Label References

Name Line Occurrences
$$MERGED VALID+4, POST+9
$$NUM P1+1
$$SUBS QUE+2, PAT+2, POST+8
$$VALID POST+8, ACTIVE+3
ADD ACTIVE+4, ACTIVE+5, ACTIVE+6, ACTIVE+7
ERROR GET+10, GET+11, GET+12, GET+15, GT1+4, GT1+12
GTQ GET+10, GET+11, GET+12, GET+15, GT1+1
NEW POST+8
POST PAT+3
XTMP P1+6, NEW+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT POST~, POST+10*, P1+2, P1+5
BEG APPTS~, APPTS+3, APPTS+4*, APPTS+6
D XTMP+1~*, XTMP+2, XTMP+3, XTMP+4, XTMP+5, XTMP+6
DATA DEL+1~, DEL+5*, DEL+6, DEL+7
DFN EN~, EN+1, EN+2, UN~, UN+1, UN+2, SUBS~, SUBS+1, QUE~, QUE+2
, QUE+3, QUE+9, PAT+2*, PAT+3, PAT+4, MERGED~, MERGED+1, MERGED+2, POST~, POST+4*
, POST+5, POST+6, POST+8, POST+9, P1+3, P1+5, P1+6, NUM+3, NEW~, NEW+3
, NEW+4, NEW+6, NEW+7, DEL+1~, DEL+3*, DEL+4, DEL+5, DEL+8, XTMP~, XTMP+6
, GET~, GET+8*, GET+9*, GET+10, GET+11, GET+12, GET+13, GET+17, ACTIVE+1~, ACTIVE+3*
, ACTIVE+4, ACTIVE+5, ACTIVE+7, ADD, APPTS+1~, APPTS+9*, APPTS+15*, APPTS+17*, APPTS+18*, INPTS+1~
, INPTS+4*
DGPM INPTS+1~, INPTS+3*, INPTS+4
DT XTMP+4, ACTIVE+5, ACTIVE+6, ACTIVE+7, APPTS+4
END APPTS~, APPTS+4*, APPTS+6*, APPTS+11
ICN POST+6~*, POST+8, P1+2, NEW~, NEW+4*, NEW+6, NEW+7, GET+1~, GET+8*, GET+9
ID POST~, POST+4*, P1+2, P1+5, NUM+2, DEL+1~, DEL+7*, DEL+8, GET~, GET+16*
, GET+17*, GT1+1, GT1+2*, GT1+5
LIST DEL~, DEL+2*, DEL+3, DEL+4, DEL+5
MSG ERROR~, ERROR+2
MTYPE GET~, GET+16*, GT1+5, GT1+13
NAME GET~, GET+15
PAT VALID~, VALID+1*, VALID+2, VALID+3, VALID+4, VALID+5
SEQ P1+1~*, P1+3, P1+5, P1+6, NEW+5~*, NEW+6, NEW+7, DEL~, DEL+2*, DEL+3
, DEL+4, DEL+5, XTMP~, XTMP+6
STR P1+1~, P1+2*, P1+3, P1+6
TYPE POST~, POST+4*, POST+5, P1+2, P1+5, NUM+3, DEL+1~, DEL+6*, DEL+8
U ON+1, QUE+1, QUE+3, QUE+9, PAT+1, PAT+4, MERGED+1, POST+3, P1+2, P1+5
P1+6, NEW+7, DEL+6, DEL+7, XTMP+4, GET+11, APPTS+14
VPRA APPTS+1~, APPTS+13*, APPTS+14, APPTS+15
VPRDT APPTS+1~, APPTS+11*, APPTS+12
VPRE GET+1~, GT1+3*, GT1+4, GT1+5, GT1+11*, GT1+12, GT1+13
VPRFN GET+1~, GT1+2*, GT1+3, GT1+4, GT1+10*, GT1+11, GT1+12
VPRI GET+1~, GET+4*, GT1+5*, GT1+14*, GTQ+1, APPTS+1~, APPTS+8*, APPTS+12*, APPTS+13
VPRJ GET+1~, GET+5*, GT1+6*, GT1+15*, GTQ+1, ERROR+1*, ERROR+2
VPRMAX GET+1~, GET+19*, GT1+13
VPRN GET+1~, GT1+14*, GT1+15*, ACTIVE+1~, ACTIVE+2*, ADD*, APPTS+1~, APPTS+8*, APPTS+17*, APPTS+18*
, APPTS+19, INPTS+1~, INPTS+2*, INPTS+4*, INPTS+5
VPRNM GET+1~, GET+15*, GET+17, GT1+3, GT1+4, GT1+10, GT1+11, GT1+12
VPRQ GET~, GT1+5, GT1+13
VPRQ("max" GET+19
VPRQ("patient" GET+13*
VPRR GET~, GET+5*, GT1+5, GT1+6, GT1+15, GTQ+1, ERROR+2
VPRX GET+1~, GT1+9*, GT1+11, GT1+13, GT1+14, GT1+16, APPTS+1~, APPTS+8!
VPRX( APPTS+9*, APPTS+15*, APPTS+18
VPRX("FLDS" APPTS+7*
VPRX("SORT" APPTS+7*
VPRX(1 APPTS+6*
VPRX(3 APPTS+7*
VPRY GET~, GET+4*, GT1+5, GT1+14, GTQ+1, ACTIVE~, ACTIVE+1~, ACTIVE+2*, ADD, APPTS~
, APPTS+2*, APPTS+18, APPTS+19, INPTS~, INPTS+2*, INPTS+4, INPTS+5
VPRZ GET+1~, GT1+9*, GT1+11, GT1+13, GT1+15, GT1+16
VST POST~, P1+2, P1+5
X NUM+2~*, NUM+3, XTMP~, XTMP+6
Y NUM+2~, NUM+3*, NUM+4*, NUM+5
ZTCPU QUE+5~
ZTDESC QUE+5~, QUE+7*
ZTDTH QUE+5~, QUE+6*
ZTIO QUE+5~, QUE+8*
ZTKIL QUE+5~
ZTPRI QUE+5~
>> ZTREQ PAT+4*
ZTRTN QUE+5~, QUE+6*
ZTSAVE QUE+5~
ZTSAVE("DFN" QUE+8*
ZTSK QUE+5~, QUE+9
ZTSYNC QUE+5~
ZTUCI QUE+5~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All