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

Package Total Caller Graph
Virtual Patient Record 18 VPR1P36  VPR1P37  VPREHL7  VPRENC  VPREVNT  VPREVNT1  VPREVSND  VPRHST  
VPRHSX  VPRHSX1  VPRHSX2  VPRP16  VPRP20  VPRPCMM  VPRSDAF  VPRSDAOB  
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+8, 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, PAT+4, VALID+2, VALID+3, VALID+6, MERGED+1, MERGED+2, POST+7, 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+7*, 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+4, VALID+5, POST+7
$$NUM P1+1
$$SUBS QUE+2, PAT+5, POST+10
$$VALID POST+10
GTQ GET+10, GET+14, GET+15, GT1+1
NEW POST+10
POST PAT+6
UN PAT+4, POST+7
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+11*, 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+4*, PAT+5, PAT+6, PAT+7, VALID+2, MERGED~, MERGED+1
, MERGED+2, POST~, POST+4*, POST+5, POST+7*, POST+8, POST+10, 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+8~*, POST+10, 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+7, 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+7*
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