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  | All
Print Page as PDF
Routine: VPRHSX

Package: Virtual Patient Record

Routine: VPRHSX


Information

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

Source Information

Source file <VPRHSX.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 3 ($$FMTE,$$FMTH,$$HTE,$$HTFM,$$NOW)^XLFDT  ($$REPEAT,$$UP)^XLFSTR  $$PROD^XUPROD  
Virtual Patient Record 3 ($$MERGED,$$SUBS)^VPRHS  $$PATIENT^VPRHST  GET^VPRHSX1  
VA FileMan 2 ^DIE  ^DIR  
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: 3

Package Total Caller Graph
Virtual Patient Record 3 VPR HS ENABLE  VPR HS LOG  VPR HS PATIENTS  

Entry Points

Name Comments DBIA/ICR reference
ON ; -- Turn monitoring on/off [VPR HS ENABLE]
SURE() ; -- are you sure?
PATS ; -- Inquire if patient is subscribed [VPR HS PATIENTS]
P1
GET ; -- Add patient/container/record to GET list [VPR HS PUSH]
LAST ; -- Reset last seq# [VPR HS CLEAR LIST]
LOG ; -- Turn update logging on/off for debugging [VPR HS LOG]
ACTION() ; -- select log action
OFF ; -- turn off logging?
KILL ; remove log too?
VIEW ; -- display ^XTMP log
V1
HDR ; -- write captions
DATE() ; -- select a date from ^XTMP("VPRHS",date)
NUM(DAY) ; -- select a starting seq#
N1
READ ; -- continue?

External References

Name Field # of Occurrence
^DIE ON+3, ON+12
^DIR SURE+4, LOG+11, ACTION+7, OFF+4, KILL+7, DATE+10
$$GETICN^MPIF001 P1+1
$$TESTPAT^VADPT P1+7
$$MERGED^VPRHS P1+8
$$SUBS^VPRHS P1+1
$$PATIENT^VPRHST P1, V1+2
GET^VPRHSX1 GET+1
$$FMTE^XLFDT P1+6, KILL+6
$$FMTH^XLFDT DATE+11
$$HTE^XLFDT HDR+1, DATE+6, DATE+8
$$HTFM^XLFDT DATE+5
$$NOW^XLFDT ON+4, ON+13
$$REPEAT^XLFSTR HDR+2
$$UP^XLFSTR N1+2
$$PROD^XUPROD ON+6, P1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: ON+7
Function Call: WRITE
  • Prompt: !,"WARNING: Turning off data monitoring will cause the Regional Health Connect"
  • Line Location: ON+8
Function Call: WRITE
  • Prompt: !," server to become out of synch with VistA!!",!
  • Line Location: ON+9
Function Call: WRITE
  • Prompt: !," *** Do NOT proceed unless directed to do so by Health Product Support"
  • Line Location: ON+10
Function Call: WRITE
  • Prompt: !," or VPR development staff!",!
  • Line Location: ON+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ON+12
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !,"DFN: "_+PAT
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !,"ICN: "_$S(ICN>0:ICN,1:$P(ICN,U,2))
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: !,">> Patient DIED on "_$$FMTE^XLFDT(X)
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: !,">> TEST PATIENT"
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: !,">> Patient is being MERGED"_$S(X:" into DFN "_X,1:"")
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+11
Function Call: WRITE
  • Prompt: !!,"OUT OF ORDER",$C(7)
  • Line Location: LAST+1
Function Call: WRITE
  • Prompt: !,"NOTE: Data monitoring is not running!!"
  • Line Location: LOG+2
Function Call: WRITE
  • Prompt: !!,"Upload list logging is currently OFF",!
  • Line Location: LOG+6
Function Call: WRITE
  • Prompt: !!,"Upload list logging is currently ON",!
  • Line Location: LOG+15
Function Call: WRITE
  • Prompt: !
  • Line Location: LOG+16
Function Call: WRITE
  • Prompt: !
  • Line Location: V1+4
Function Call: WRITE
  • Prompt: !,SEQ,?10,DFN,?20,STR
  • Line Location: V1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: V1+9
Function Call: WRITE
  • Prompt: !!,"SEQ",?10,"DFN",?20,$$HTE^XLFDT(VPRH)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " for ",$P(PAT,U,2)
  • Condition for execution: PAT
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"There are no log entries to display."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !,"Starting sequence#: FIRST// "
  • Line Location: N1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: !!,"Sequence numbers for this date are "_A_"-"_Z,!
  • Line Location: N1+4
Function Call: WRITE
  • Prompt: !!,"Press <return> to continue ..."
  • Line Location: READ+2
Routine Call
  • DIE
  • Line Location:
    • ON+3
    • ON+12
Routine Call
  • DIR
  • Line Location:
    • SURE+4
    • LOG+11
    • ACTION+7
    • OFF+4
    • KILL+7
    • DATE+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] P1+6, P1+9
^VPR(1 ON+2, ON+4*, ON+13*, LOG+1, LOG+11*, OFF+4*
^XTMP( KILL+8!
^XTMP("VPRHS-" V1+4, V1+5, NUM+2
^XTMP("VPRHS-0" ACTION+3, KILL+2, DATE+2
^XTMP("VPRHS-AAAAA" DATE+4

Label References

Name Line Occurrences
$$ACTION LOG+16
$$DATE V1
$$NUM V1+1
$$SURE ON+6
@( LOG+16
HDR V1+3, V1+7
KILL LOG+12, OFF+5
N1 N1+5
P1 P1+11
READ V1+7, V1+9
V1 V1+10

Naked Globals

Name Field # of Occurrence
^( KILL+2, V1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A NUM+1~, NUM+2*, N1+3, N1+4
ACT LOG+1~, LOG+16*
DA ON+1~, ON+3*, ON+12*
DAY NUM~, NUM+2
DFN PATS+1~, VIEW+1~, V1+5*, V1+6, V1+8
DIE ON+1~, ON+3*, ON+12*
DIR SURE+1~, LOG+5~, ACTION+1~, OFF+1!, KILL+1~, DATE+1~
DIR("?" SURE+3*, LOG+9*, LOG+10*, ACTION+4*, OFF+3*, KILL+5*, KILL+6*, DATE+7*, DATE+8*, DATE+9*
DIR("A" SURE+3*, LOG+8*, ACTION+2*, OFF+2*, KILL+4*, DATE+4*
DIR("B" SURE+2*, LOG+7*, ACTION+3*, OFF+1*, KILL+3*, DATE+6*
DIR("L" ACTION+5*, ACTION+6*
DIR(0 SURE+2*, LOG+7*, ACTION+2*, OFF+1*, KILL+3*, DATE+5*
DONE VIEW+1~, V1+3!, V1+4, V1+7, V1+9, READ+1!, READ+3*
DR ON+1~, ON+3*, ON+12*
DTIME N1+1, READ+2
DTOUT SURE+1~, SURE+4, ACTION+1~, ACTION+7, V1+2, DATE+1~
DUOUT SURE+1~, SURE+4, ACTION+1~, ACTION+7, V1+2, DATE+1~, DATE+10
I KILL+1~, KILL+2*, KILL+8*
ICN PATS+1~, P1*, P1+1*, P1+4
IOSL V1+7
LCNT VIEW+1~, V1+3*, V1+7*
PAT PATS+1~, P1*, P1+1, P1+2, P1+3, P1+6, P1+7, P1+8, P1+9, VIEW+1~
, V1+2*, V1+6, HDR+1
SEQ VIEW+1~, V1+1*, V1+4*, V1+5, V1+8
STR VIEW+1~, V1+5*, V1+8
SUB PATS+1~, P1+1*, P1+2
U ON+2, ON+4, ON+13, P1+2, P1+4, LOG+2, LOG+4, LOG+11, OFF+4, HDR+1
VPRH VIEW+1~, V1*, V1+1, V1+4, V1+5, HDR+1
X ON+1~, SURE+1~, PATS+1~, P1+6*, P1+9~*, P1+10, LOG+5~, ACTION+1~, KILL+1~, KILL+2*
, KILL+6, DATE+1~, NUM+1~, N1+1*, N1+2, N1+3, READ+1~, READ+2*, READ+3
X0 ON+1~, ON+2*, LOG+1~*, LOG+2, LOG+4
X1 DATE+1~, DATE+2*, DATE+3, DATE+5, DATE+7, DATE+8
X2 DATE+1~, DATE+4*, DATE+5, DATE+6, DATE+7
Y ON+1~, SURE+1~, SURE+4*, SURE+5, LOG+5~, LOG+11, ACTION+1~, ACTION+7, OFF+4, KILL+1~
, KILL+7, DATE+1~, DATE+11, NUM+1~
Y(0 ACTION+7
Z ACTION+1~, ACTION+7*, ACTION+8, DATE+1~, DATE+6*, DATE+7, DATE+8, DATE+10*, DATE+11*, DATE+12
, NUM+1~, NUM+2*, N1+3, N1+4
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  | All