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

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  $$PROD^XUPROD  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Registration 1 $$TESTPAT^VADPT  
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

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

Package Total Caller Graph
Virtual Patient Record 7 VPREHL7  VPREVNT  VPRHS  VPRHST  VPRHSX  VPRP16  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
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 VPRHSX manual update option
NUM() ; -- return existing SEQ of record, or increment
NEW(DFN,ICN) ; -- post a new patient to
; ^VPR(1,2,DFN,"ANEW") = seq#
; ^VPR("ANEW",seq#,DFN) = ICN
DEL(LIST,SEQ) ; -- remove ^VPR(LIST,SEQ) nodes
MERGED(DFN) ; -- return 1 or 0, if patient is being merged
GET(DFN,NAME,ID,VPRQ,MTYPE,VPRY,VPRR) ; -- return VistA data in @VPRY@(#)
GT1 ; update one record for ECR
GTQ ; return data and exit
UPD(DFN,NAME,ID,VPRQ,MTYPE,VPRY,VPRR) ; -- return VistA data in @VPRY@(#)
; Used with patch update Entities to fix data cache
UP1 ; always return full Patient container
UPQ ;return data and exit
ERROR(MSG) ; -- return error MSG
ACTIVE ; -- find currently non-deceased, active patients
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, UP1+4, UP1+16
$$GETICN^MPIF001 POST+8, NEW+4
$$SDAPI^SDAMA301 APPTS+8
$$TESTPAT^VADPT POST+6
POST^VPRHS PAT+1
$$FMADD^XLFDT QUE+6, APPTS+4
$$NOW^XLFDT QUE+6
$$UP^XLFSTR UP1+11
$$PROD^XUPROD POST+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DDE("B" UP1+2, UP1+13, UP1+14
^DDE("SDA" GT1+3, GT1+10, GT1+11
^DGS(41.1 - [#41.1] APPTS+11, APPTS+12, APPTS+13
^DPT - [#2] POST+10, MERGED+1, MERGED+2, GET+9, GET+10, GET+11, UPD+10, UPD+11, UPD+12, ACTIVE+2
, ACTIVE+3, ACTIVE+4
^DPT("ACA" INPTS+3, INPTS+4
^TMP("VPR ERR" GET+5, UPD+6
^TMP("VPR GET" GET+4, UPD+5
^TMP("VPR PATS" APPTS+2, INPTS+2
^TMP("VPRHS ERR" GT1+9, UP1+9
^TMP("VPRHS" GT1+9, UP1+9
^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
$$MERGED POST+7
$$NUM P1+1
$$SUBS QUE+2, POST+10
ERROR GET+9, GET+10, GET+11, GET+14, GT1+4, GT1+12, UPD+10, UPD+11, UPD+12, UPD+15
, UP1+3, UP1+10, UP1+15
GTQ GET+9, GET+10, GET+11, GET+14, GT1+1
NEW POST+10
POST ACTIVE+3, ACTIVE+4
UPQ UPD+10, UPD+11, UPD+12, UPD+15, UP1+1, UP1+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT POST~, POST+11*, 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+7, POST+8
, POST+10, P1+2, P1+4, NUM+2, NEW~, NEW+3, NEW+4, NEW+6, DEL+1~, DEL+3*
, DEL+4, DEL+5, DEL+8, MERGED~, MERGED+1, MERGED+2, GET~, GET+8*, GET+9, GET+10
, GET+11, GET+12, GET+16, UPD~, UPD+9*, UPD+10, UPD+11, UPD+12, UPD+13, UP1+4
, 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+8~*, POST+10, P1+2, NEW~, NEW+4*, NEW+6, GET+1~, GET+8*, UPD+2~, UPD+9*
ID POST~, POST+4*, P1+2, P1+4, NUM+1, DEL+1~, DEL+7*, DEL+8, GET~, GET+15*
, GET+16*, GT1+1, GT1+2*, GT1+5, UPD~, UPD+16*
LIST DEL~, DEL+2*, DEL+3, DEL+4, DEL+5
MSG ERROR~, ERROR+2
MTYPE GET~, GET+15*, GT1+5, GT1+13, UPD~, UPD+16*, UP1+4, UP1+16
NAME GET~, GET+14, UPD~, UPD+15
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+6, DEL+7
, MERGED+1, GET+10, UPD+11, APPTS+14
VPRA APPTS+1~, APPTS+13*, APPTS+14, APPTS+15
VPRCNTR UPD+2~, UP1+11*, UP1+12, UP1+13
VPRDT APPTS+1~, APPTS+11*, APPTS+12
VPRE GET+1~, GT1+3*, GT1+4, GT1+5, GT1+11*, GT1+12, GT1+13, UPD+2~, UP1+2*, UP1+3
, UP1+4, UP1+14*, UP1+15, UP1+16
VPRFN GET+1~, GT1+2*, GT1+3, GT1+4, GT1+10*, GT1+11, GT1+12, UP1+15
VPRI GET+1~, GET+4*, GT1+5*, GT1+14*, GTQ+1, UPD+2~, UPD+5*, UP1+5*, UP1+17*, UPQ+1
, APPTS+1~, APPTS+8*, APPTS+12*, APPTS+13
VPRJ GET+1~, GET+5*, GT1+6*, GT1+15*, GTQ+1, UPD+2~, UPD+6*, UP1+6*, UP1+18*, UPQ+1
, ERROR+1*, ERROR+2
VPRMAX GET+1~, GET+17*, GT1+13, UPD+2~, UPD+17*, UP1+4, UP1+16
VPRN GET+1~, GT1+14*, GT1+15*, UPD+2~, UP1+17*, UP1+18*, APPTS+1~, APPTS+8*, APPTS+17*, APPTS+18*
, APPTS+19, INPTS+1~, INPTS+2*, INPTS+4*, INPTS+5
VPRNM GET+1~, GET+14*, GET+16, GT1+3, GT1+4, GT1+10, GT1+11, GT1+12, UPD+2~, UPD+15*
, UP1+1, UP1+11, UP1+12*, UP1+13*, UP1+14, UP1+15
VPRPCH UPD+2~, UP1+10*, UP1+11
VPRQ GET~, GT1+5, GT1+13, UPD~, UP1+4, UP1+16
VPRQ("max" GET+17, UPD+17
VPRQ("patch" UP1+10
VPRQ("patient" GET+12*, UPD+13*
VPRR GET~, GET+5*, GT1+5, GT1+6, GT1+15, GTQ+1, UPD~, UPD+6*, UP1+4, UP1+6
, UP1+18, UPQ+1, ERROR+2
VPRX GET+1~, GT1+9*, GT1+11, GT1+13, GT1+14, GT1+16, UPD+2~, UP1+9*, UP1+14, UP1+16
, UP1+17, UP1+19, 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, UPD~, UPD+5*, UP1+4, UP1+5, UP1+17
, UPQ+1, 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, UPD+2~, UP1+9*, UP1+14, UP1+16
, UP1+18, UP1+19
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