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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: VPRHSX

Package: Virtual Patient Record

Routine: VPRHSX


Information

VPRHSX ;SLC/MKB -- HS Options ;09/18/18 4:36pm

Source Information

Source file <VPRHSX.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  GETS^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$PROD^XUPROD  
Virtual Patient Record 2 ($$SUBS,NEW,P1)^VPRHS  $$PATIENT^VPRHST  
Master Patient Index VistA 1 $$GETICN^MPIF001  

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

Package Total Caller Graph
Virtual Patient Record 3 VPR HS CLEAR LIST  VPR HS ENABLE  VPR HS PUSH  

Entry Points

Name Comments DBIA/ICR reference
ON ; -- Turn monitoring on/off
LAST ; -- Reset Last# for AVPR update list
; ^VPR("AVPR",seq#,DFN) = ICN ^ TYPE ^ ID ^ U/D ^ VISIT#
; ^VPR("ANEW",seq#,dfn) = ICN
SURE(Q) ; -- are you sure?
RESET() ; -- Reset sequence#?
GET ; -- Add patient/container/record to GET list
G1 ;
OUT ; -- write message
CONT() ; -- continue?
ENTITY(Y) ; -- return array of selected Entity info
ALL() ; -- return 1 or 0, for full container (all records) update
QUERY ; -- execute Query, return DLIST(#)=ID
; Expects DFN, ENT(5)=TAG^ROUTINE
SELECT(FNUM) ; -- select ID(s) for update list
LIST ; -- ??help for SELECT
FIELDS(FN,IEN) ; -- DATE;NAME fields to display record

External References

Name Field # of Occurrence
^DIC ENTITY+3
^DIE ON+6
GETS^DIQ LIST+6
^DIR SURE+5, RESET+4, CONT+5, ALL+5, SELECT+6
$$GETICN^MPIF001 GET+5
$$SUBS^VPRHS GET+7
NEW^VPRHS GET+13
P1^VPRHS G1+7, G1+8, G1+13
$$PATIENT^VPRHST GET+4
$$FMTE^XLFDT GET+10
$$PROD^XUPROD ON+2, LAST+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: ON+3
Function Call: WRITE
  • Prompt: !,"WARNING: Turning off data monitoring will cause the Regional Health Connect"
  • Line Location: ON+4
Function Call: WRITE
  • Prompt: !," server to become out of synch with VistA!!"
  • Line Location: ON+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ON+6
Function Call: WRITE
  • Prompt: !!,"There are no records or patients in the update list."
  • Line Location: LAST+9
Function Call: WRITE
  • Prompt: !!,TOTAL_" records or patients awaiting update, last sequence number is "_LAST
  • Line Location: LAST+12
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: LAST+14
Function Call: WRITE
  • Prompt: !,"WARNING: Resetting the update list will cause the Regional Health Connect"
  • Line Location: LAST+15
Function Call: WRITE
  • Prompt: !," server to become out of synch with VistA!!"
  • Line Location: LAST+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LAST+17
Function Call: WRITE
  • Prompt: !," ... queue cleared, list counter reset to 0."
  • Line Location: LAST+20
Function Call: WRITE
  • Prompt: !,"WARNING: Data Monitoring is currently disabled!",!
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !,"ICN is required!",!
  • Line Location: GET+5
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: This patient is not currently in the Edge Cache Repository (ECR)!",!
  • Line Location: GET+8
Function Call: WRITE
  • Prompt: !,"This patient has a Date of Death: "_$$FMTE^XLFDT(X)
  • Line Location: GET+10
Function Call: WRITE
  • Prompt: !,"Cannot add to ECR",!
  • Line Location: GET+11
Function Call: WRITE
  • Prompt: !,"This patient already has a request for subscription.",!
  • Line Location: GET+12
Function Call: WRITE
  • Prompt: !," ... request "_$S(X:"",1:"NOT ")_"added to update queue."
  • Line Location: GET+15
Function Call: WRITE
  • Prompt: !,"This patient already has a container update request in the queue!",!
  • Line Location: G1+4
Function Call: WRITE
  • Prompt: !,"Entire container must be updated"
  • Line Location: G1+6
Function Call: WRITE
  • Prompt: !,"No records available to update.",!
  • Line Location: G1+9
Function Call: WRITE
  • Prompt: !," ... request"_$S(SEQ:"",1:" NOT")_" added to update queue."
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,TYPE_" "_$P(ID,";")_$S(SEQ:"",1:" NOT")_" added to update queue."
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: !!,"Available "_TYPE_"s for "_$P($G(^DPT(DFN,0)),U)_": "
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !,LCNT,?5,@IDX
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: SP_@IDX
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !,"Press <return> to continue..."
  • Line Location: LIST+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LIST+10
Routine Call
  • DIC
  • Line Location:
    • ENTITY+3
Routine Call
  • DIE
  • Line Location:
    • ON+6
Routine Call
  • DIR
  • Line Location:
    • SURE+5
    • RESET+4
    • CONT+5
    • ALL+5
    • SELECT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VPR - [#560] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DDE - [#1.5] ENTITY+4
^DPT - [#2] GET+9, SELECT+2
^VPR("ANEW" LAST+5, LAST+8, LAST+18!
^VPR("AVPR" LAST+4, LAST+5, LAST+8, LAST+18!
^VPR(1 ON+2, LAST+6, LAST+10*, LAST+13, LAST+18*, LAST+19!, GET+2, GET+12, GET+14, G1+4
, OUT+2

Label References

Name Line Occurrences
$$ALL G1+8
$$CONT GET+13
$$FIELDS LIST+2
$$RESET LAST+10
$$SELECT G1+10
$$SURE ON+2, LAST+17
@( QUERY+5
ENTITY G1+2
LIST SELECT+2
OUT G1+7, G1+8, G1+13
QUERY G1+9

Naked Globals

Name Field # of Occurrence
^(5 ENTITY+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT G1+1~, G1+3*
AN LAST+3~
AV LAST+3~
DA ON+1~, ON+6*
DFN LAST+19~*, GET+1~, GET+4*, GET+5, GET+7, GET+9, GET+12, GET+13, GET+14, G1+4
, OUT+2, QUERY+3, SELECT+2
DIC ENTITY+1~, ENTITY+2*
DIC("S" ENTITY+2*
DIC(0 ENTITY+2*
DIE ON+1~, ON+6*
DIR SURE+1~, RESET+1~, CONT+1~, ALL+1~, SELECT+1~
DIR("?" SURE+3*, SURE+4*, RESET+3*, CONT+4*, ALL+4*, SELECT+4*
DIR("??" SELECT+5*
DIR("A" SURE+3*, SURE+4*, RESET+2*, CONT+3*, ALL+3*, SELECT+3*
DIR("B" SURE+2*, RESET+2*, CONT+2*, ALL+2*
DIR(0 SURE+2*, RESET+2*, CONT+2*, ALL+2*, SELECT+3*
DLIST G1+1~, G1+9, QUERY+4!
DLIST( G1+12, LIST+3, LIST+4
DLIST("A" SELECT+3
DMAX QUERY+2~, QUERY+4*
DONE LIST+1~, LIST+2*, LIST+3, LIST+10*
DR ON+1~, ON+6*
DSTOP QUERY+2~, QUERY+4*
DSTRT QUERY+2~, QUERY+4*
DTIME LIST+10
DTOUT SURE+1~, SURE+5, RESET+1~, RESET+4, CONT+1~, CONT+5, ALL+1~, ALL+5
DUOUT SURE+1~, SURE+5, RESET+1~, RESET+4, CONT+1~, CONT+5, ALL+1~, ALL+5
ENT G1+1~, G1+2
ENT( G1+3
ENT(0 G1+3
ENT(5 QUERY+3
FIRST LAST+3~, LAST+4*, LAST+5*, LAST+6
FLDS LIST+1~, LIST+2*, LIST+6, FIELDS+1~
FN G1+1~, G1+3*, G1+10, G1+12, FIELDS~, FIELDS+2, FIELDS+3, FIELDS+4, FIELDS+5, FIELDS+6
, FIELDS+7, FIELDS+8, FIELDS+9, FIELDS+10, FIELDS+11, FIELDS+12, FIELDS+13, FIELDS+14, FIELDS+15, FIELDS+16
, FIELDS+17, FIELDS+18
FNUM SELECT~, LIST+2, LIST+6
I LIST+1~, LIST+4*, LIST+5*, LIST+6
ICN GET+1~, GET+5*, GET+13
ID G1+1~, G1+3*, G1+12*, OUT+1*, OUT+2, OUT+3, OUT+4
IDX LIST+1~, LIST+4*, LIST+6, LIST+7*, LIST+8*
IEN FIELDS~
LAST LAST+3~, LAST+6*, LAST+10, LAST+12, RESET+3
LCNT LIST+1~, LIST+2*, LIST+3*, LIST+4, LIST+7, LIST+9
Q SURE~, SURE+2*, SURE+3, SURE+4
QRTN QUERY+2~, QUERY+3*, QUERY+5
SEQ OUT+2~*, OUT+3, OUT+4
SP LIST+1~, LIST+4*, LIST+8*
TOTAL LAST+3~, LAST+6*, LAST+12
TYPE G1+1~, G1+3*, G1+4, G1+5, OUT+2, OUT+4, SELECT+2
U ON+2, LAST+13, GET+2, G1+3, SELECT+2, LIST+5
VPRI G1+1~, G1+11*
VPRN G1+1~, G1+11*, G1+12
VPRX G1+1~, G1+10*, G1+11, LIST+1~
VST G1+1~
X ON+1~, SURE+1~, RESET+1~, GET+1~, GET+9*, GET+10, GET+14*, GET+15, CONT+1~, ENTITY+1~
, ALL+1~, SELECT+1~, LIST+1~, LIST+10*
X0 ON+1~, ON+2*, LAST+3~, LAST+13*
Y ON+1~, SURE+1~, SURE+5*, SURE+6, RESET+1~, RESET+4*, RESET+5, CONT+1~, CONT+5*, CONT+6
, ENTITY~, ENTITY+3*, ENTITY+4, ALL+1~, ALL+5*, ALL+6, SELECT+1~, SELECT+7, FIELDS+1~*, FIELDS+2*
, FIELDS+3*, FIELDS+4*, FIELDS+5*, FIELDS+6*, FIELDS+7*, FIELDS+8*, FIELDS+9*, FIELDS+10*, FIELDS+11*, FIELDS+12*
, FIELDS+13*, FIELDS+14*, FIELDS+15*, FIELDS+16*, FIELDS+17*, FIELDS+18*, FIELDS+19
Y( ENTITY+4*
Y(5 ENTITY+4*

Marked Items

Name Field # of Occurrence
$T(@QRTN QUERY+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All