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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  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: 10

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  $$PROD^XUPROD  
VA FileMan 3 ($$GET1,GET)^DDE  FILE^DICN  ^DIK  
Virtual Patient Record 2 TASK^VPRENC  XML^VPRHST1  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Registration 1 $$TESTPAT^VADPT  

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,RES) ; -- post an update to
; ^VPR(1,2,DFN,"AVPR",TYPE,ID) = seq#
; ^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
GTA ; retrieve whole container for patient re/load
GTQ ; return data and exit
ERROR(MSG) ; -- return error MSG
ENTITY(CONT,FN,ACT) ; -- find Entity
TEST(ENTITY,ID,DFN,SEQ) ; -- test and display a single record

External References

Name Field # of Occurrence
^%ZTLOAD QUE+8
$$GET1^DDE GT1+10, TEST+5
GET^DDE GTA+3, GTA+11
FILE^DICN EN+5
^DIK UN+5
$$GETICN^MPIF001 POST+6, NEW+4
$$TESTPAT^VADPT VALID+4
TASK^VPRENC PX+1
XML^VPRHST1 TEST+7
$$FMADD^XLFDT QUE+6, XTMP+4
$$NOW^XLFDT QUE+6
$$PROD^XUPROD VALID+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$G(ERR(1))
  • Line Location: TEST+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PAT+2, VALID+2, VALID+3, VALID+6, MERGED+1, MERGED+2, GET+10
^TMP("VPR ERR" GET+6
^TMP("VPR GET" GET+5
^TMP("VPRHS ERR" GTA+6
^TMP("VPRHS" GTA+6
^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, UN+1, SUBS+1, QUE+1, QUE+3, QUE+9*, PAT+1, PAT+5*, POST+3
P1+5*, P1+6, NUM+3, NUM+4, NEW+3, NEW+5, NEW+6*, NEW+7, DEL+4!, DEL+8!
^VPRC(560.1 - [#560.1] GET+15, GT1+4, GT1+5, GTA+1, GTA+2, GTA+7, ENTITY+3, ENTITY+4
^XTMP("VPR-" GT1+8
^XTMP("VPRHS-" XTMP+2, XTMP+3, XTMP+4*, XTMP+5, XTMP+6*

Label References

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

Naked Globals

Name Field # of Occurrence
^( GTA+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT POST~, POST+10*, P1+2, ENTITY~, ENTITY+2*, ENTITY+5
C ENTITY+1~, ENTITY+3*, ENTITY+4
C0 ENTITY+1~, ENTITY+4*, ENTITY+5
CONT ENTITY~, ENTITY+2*, ENTITY+3
D XTMP+1~*, XTMP+2, XTMP+3, XTMP+4, XTMP+5, XTMP+6
DA EN+3~, UN+3~, UN+4*
DA(1 EN+4*, UN+4*
DATA DEL+1~, DEL+5*, DEL+6, DEL+7
DFN EN~, EN+1, EN+4, UN~, UN+1, UN+4, SUBS~, SUBS+1, QUE~, QUE+2
, QUE+3, QUE+9, PAT+2*, PAT+3, PAT+4, PAT+5, VALID+2, 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+9*, GET+10, GET+16, TEST~, TEST+3
DIC EN+3~, EN+4*
DIC(0 EN+4*
DIK UN+3~, UN+4*
DINUM EN+3~, EN+4*
DONE TEST+1~
DT XTMP+4
ENTITY TEST~, TEST+2*, TEST+5
ERR TEST+1~, TEST+5
ERR(0 TEST+6
ERR(1 TEST+6
FN ENTITY~, ENTITY+2*, ENTITY+4
I ENTITY+1~, ENTITY+4*
ICN POST+6~*, POST+8, P1+2, NEW~, NEW+4*, NEW+6, NEW+7
ID POST~, POST+4*, P1+2, P1+5, NUM+2, DEL+1~, DEL+7*, DEL+8, GET~, GET+16*
GT1+1, GT1+2*, GT1+3, GT1+8, GT1+10, TEST~, TEST+2*, TEST+5
IN TEST+1~, TEST+5
IN("patient" TEST+3*
IN("sequence" TEST+4*
LIST DEL~, DEL+2*, DEL+3, DEL+4, DEL+5
MSG ERROR~, ERROR+2
MTYPE GET~
NAME GET~, GET+13
PAT VALID~, VALID+1*, VALID+3, VALID+4, VALID+5, VALID+6
RES POST~, P1+7*
SEQ P1+1~*, P1+3, P1+5, P1+6, P1+7, NEW+5~*, NEW+6, NEW+7, DEL~, DEL+2*
, DEL+3, DEL+4, DEL+5, XTMP~, XTMP+6, GT1+7~*, GT1+8, TEST~, TEST+4
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+5, MERGED+1, POST+3, P1+2, P1+6
, NEW+7, DEL+6, DEL+7, XTMP+4, GT1+5, GT1+8, GTA+1, GTA+2, GTA+9, ENTITY+5
VPRC0 GET+1~, GT1+5*, GT1+8, GTA+7*, GTA+8, GTA+9
VPRCTR GET+1~, GET+15*, GT1+4, GT1+5, GTA+1, GTA+2, GTA+7
VPRE GET+1~, GT1+5*, GT1+8*, GT1+9, GT1+10, GTA+2*, GTA+3, GTA+9*, GTA+11
VPRFN GET+1~, GT1+2*, GT1+3, GT1+4, GTA+8*
VPRI GET+2~, GET+5*, GT1+10*, GTA+12*, GTQ+1
VPRJ GET+2~, GET+6*, GT1+11*, GTA+4*, GTA+13*, GTQ+1, ERROR+1*, ERROR+2
VPRK GET+2~, GT1+4*, GT1+5, GTA+7*
VPRMAX GET+1~, GET+17*, GTA+3, GTA+11
VPRN GET+2~, GTA+12*, GTA+13*
VPRNM GET+1~, GET+13*, GET+14*, GET+15, GET+16
VPRQ GET~, GT1+10, GTA+3, GTA+11
VPRQ("max" GET+17
VPRQ("patient" GET+9*
VPRQ("sequence" GT1+7
VPRQ("source" GET+13
VPRR GET~, GET+6*, GT1+10, GT1+11, GTA+3, GTA+4, GTA+13, GTQ+1, ERROR+2
VPRSRC GET+1~, GET+13*, GET+14*, GTA+1, GTA+8
VPRX GET+1~, GTA+6*, GTA+9, GTA+11, GTA+12, GTA+14
VPRY GET~, GET+5*, GT1+10, GTA+3, GTA+12, GTQ+1
VPRZ GET+1~, GTA+6*, GTA+9, GTA+11, GTA+13, GTA+14
VST POST~, P1+2
X EN+3~, EN+4*, NUM+2~*, NUM+3, XTMP~, XTMP+6
Y EN+3~, NUM+2~, NUM+3*, NUM+4*, NUM+5, ENTITY+1~*, ENTITY+5*, ENTITY+6
Z TEST+1~, TEST+5*, TEST+7
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+5*
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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All