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

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Scheduling 1 $$SDAPI^SDAMA301  
VA FileMan 1 ($$GET1,GET)^DDE  
Virtual Patient Record 1 POST^VPRHS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Virtual Patient Record 6 VPREHL7  VPREVNT  VPRHS  VPRHST  VPRHSX  VPRSR  

Entry Points

Name Comments DBIA/ICR reference
UN(DFN) ; -- unsubscribe
P1 ;may enter here from VPRHSX manual update option
PAT ; -- post Patient update
NEW(DFN,ICN) ; -- post a new patient to
; ^VPR(1,2,DFN,"ANEW") = seq#
; ^VPR("ANEW",seq#,DFN) = ICN
QUE(DFN) ; -- create task to POST a Patient update
DEL(LIST,SEQ) ; -- remove ^VPR(LIST,SEQ) nodes
ON() ; -- return 1 or 0, if monitoring is on
EN(DFN) ; -- subscribe a patient for data event monitoring
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#
UPD(DFN,NAME,ID,VPRQ,MTYPE,VPRY,VPRR) ; -- return VistA data in @VPRY@(#)
; Used with patch update Entities to fix data cache
APPTS(BEG,END,VPRY) ; -- return patients w/appointments
GET(DFN,NAME,ID,VPRQ,MTYPE,VPRY,VPRR) ; -- return VistA data in @VPRY@(#)
ACTIVE ; -- find currently non-deceased, active patients
NUM() ; -- return existing SEQ of record, or increment
INPTS(VPRY) ; -- return current inpatients
SUBS(DFN) ; -- return 1 or 0, if patient is subscribed or not

External References

Name Field # of Occurrence
^%ZTLOAD QUE+8
$$GET1^DDE GET+19
GET^DDE GET+25, UPD+17, UPD+26
$$GETICN^MPIF001 POST+6, NEW+4
$$SDAPI^SDAMA301 APPTS+8
POST^VPRHS PAT+1
$$FMADD^XLFDT QUE+6, APPTS+4
$$NOW^XLFDT QUE+6
$$UP^XLFSTR UPD+22

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DDE("B" UPD+16, UPD+24, UPD+25
^DDE("SDA" GET+18, GET+23, GET+24
^DGS(41.1 - [#41.1] APPTS+11, APPTS+12, APPTS+13
^DPT - [#2] POST+8, GET+3, UPD+4, ACTIVE+2, ACTIVE+3, ACTIVE+4
^DPT("ACA" INPTS+3, INPTS+4
^TMP("VPR ERR" GET+12, UPD+13
^TMP("VPR GET" GET+11, UPD+12
^TMP("VPR PATS" APPTS+2, INPTS+2
^TMP("VPRHS" GET+22, UPD+20
^TMP($J APPTS+9, APPTS+20!
^VPR - [#560] DEL+3, DEL+5
^VPR("ANEW" NEW+6*, DEL+4!
^VPR("AVPR" P1+2*, NUM+2, DEL+5!
^VPR(1 ON+1, EN+1, EN+2*, UN+1, UN+2!, SUBS+1, QUE+1, QUE+3, QUE+9*, PAT+2*
, POST+3, P1+4*, NUM+2, NUM+3, NEW+3, NEW+5, NEW+6*, DEL+4!, DEL+8!

Label References

Name Line Occurrences
$$NUM P1+1
$$SUBS QUE+2, POST+8
NEW POST+8
POST ACTIVE+3, ACTIVE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT POST~, POST+9*, P1+2, P1+4
BEG APPTS~, APPTS+3, APPTS+4*, APPTS+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+1, PAT+2, POST~, POST+4*, POST+5, POST+6, POST+8, P1+2
, P1+4, NUM+2, NEW~, NEW+3, NEW+4, NEW+6, DEL+1~, DEL+3*, DEL+4, DEL+5
, DEL+8, GET~, GET+2*, GET+3, GET+13, UPD~, UPD+3*, UPD+4, UPD+17, ACTIVE+1~*
, ACTIVE+2*, ACTIVE+3, ACTIVE+4, APPTS+1~, APPTS+9*, APPTS+15*, APPTS+17*, APPTS+18*, INPTS+1~, INPTS+4*
DGPM INPTS+1~, INPTS+3*, INPTS+4
DT ACTIVE+4, APPTS+4
END APPTS~, APPTS+4*, APPTS+6*, APPTS+11
ICN POST+6~*, POST+8, P1+2, NEW~, NEW+4*, NEW+6, GET+1~, GET+2*, UPD+2~, UPD+3*
ID POST~, POST+4*, P1+2, P1+4, NUM+1, DEL+1~, DEL+7*, DEL+8, GET~, GET+7*
, GET+13*, GET+16, GET+17*, GET+19, UPD~, UPD+8*
LIST DEL~, DEL+2*, DEL+3, DEL+4, DEL+5
MTYPE GET~, GET+7*, GET+19, GET+25, UPD~, UPD+8*, UPD+17, UPD+26
NAME GET~, GET+6, UPD~, UPD+7
SEQ P1+1~*, P1+2, P1+4, NEW+5~*, NEW+6, DEL~, DEL+2*, DEL+3, DEL+4, DEL+5
TYPE POST~, POST+4*, POST+5, P1+2, P1+4, NUM+2, DEL+1~, DEL+6*, DEL+8
U ON+1, QUE+1, QUE+3, QUE+9, PAT+2, POST+3, P1+2, P1+4, DEL+7, APPTS+14
VPRA APPTS+1~, APPTS+13*, APPTS+14, APPTS+15
VPRCNTR UPD+2~, UPD+22*, UPD+23, UPD+24
VPRDT APPTS+1~, APPTS+11*, APPTS+12
VPRE GET+1~, GET+18*, GET+19, GET+24*, GET+25, UPD+2~, UPD+16*, UPD+17, UPD+25*, UPD+26
VPRFN GET+1~, GET+17*, GET+18, GET+23*, GET+24
VPRI GET+1~, GET+11*, GET+19*, GET+27*, UPD+2~, UPD+12*, UPD+28*, APPTS+1~, APPTS+8*, APPTS+12*
, APPTS+13
VPRMAX GET+1~, GET+8*, GET+25, UPD+2~, UPD+9*, UPD+17, UPD+26
VPRN GET+1~, GET+27*, UPD+2~, UPD+28*, APPTS+1~, APPTS+8*, APPTS+17*, APPTS+18*, APPTS+19, INPTS+1~
, INPTS+2*, INPTS+4*, INPTS+5
VPRNM GET+1~, GET+6*, GET+13, GET+18, GET+23, GET+24, UPD+2~, UPD+7*, UPD+15, UPD+22
, UPD+23*, UPD+24*, UPD+25
VPRPCH UPD+2~, UPD+21*, UPD+22
VPRQ GET~, GET+19, GET+25, UPD~, UPD+17, UPD+26
VPRQ("max" GET+8, UPD+9
VPRQ("patch" UPD+21
VPRQ("patient" GET+3*, UPD+4*
VPRR GET~, GET+12*, GET+19, GET+25, UPD~, UPD+13*, UPD+17, UPD+26
VPRX GET+1~, GET+22*, GET+24, GET+25, GET+26, GET+27, GET+28, UPD+2~, UPD+20*, UPD+25
, UPD+26, UPD+27, UPD+28, UPD+29, 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+11*, GET+19, GET+27, UPD~, UPD+12*, UPD+17, UPD+28, APPTS~, APPTS+2*
, APPTS+18, APPTS+19, INPTS~, INPTS+2*, INPTS+4, INPTS+5
VST POST~, P1+2, P1+4
X NUM+1~*, NUM+2
Y NUM+1~, NUM+2*, NUM+3*, NUM+4
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+2*
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