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 |  Marked Items  | All
Print Page as PDF
Routine: VPRHSX1

Package: Virtual Patient Record

Routine: VPRHSX1


Information

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

Source Information

Source file <VPRHSX1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  $$PROD^XUPROD  
VA FileMan 2 ($$GET1,GETS)^DIQ  ^DIR  
Virtual Patient Record 2 ($$MERGED,$$SUBS,NEW,P1)^VPRHS  ($$CONTNR,$$FILE,$$PATIENT)^VPRHST  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Order Entry Results Reporting 1 TEXT^ORQ12  
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: 2

Package Total Caller Graph
Virtual Patient Record 2 VPR HS PUSH  VPRHSX  

Entry Points

Name Comments DBIA/ICR reference
GET ; -- Add patient/container/record to GET list [VPR HS PUSH]
G1 ;loop for prompting
ICN(DFN) ; -- return ICN or -1^Message
ICQ ;exit
OUT(N) ; -- write message
CONT() ; -- continue?
ENTITY(TYPE) ; -- return array of selected Entity info
ENTQ ;exit
ALL() ; -- return 1 or 0, for full container (all records) update
QUERY ; -- execute Query, return DLIST(#)=ID
; Expects DFN, ENT=ien^name^file#
SELECT(FNUM) ; -- select ID(s) for update list
LIST ; -- ??help for SELECT
DATE(FN,FD,DA) ; -- return external date
NAME(FN,FD,DA) ; -- return name or description
FIELDS(FN,IEN) ; -- DATE;NAME fields to display record

External References

Name Field # of Occurrence
$$GET1^DIQ DATE+1
GETS^DIQ NAME+9
^DIR CONT+5, ALL+5, SELECT+6
$$GETICN^MPIF001 GET+16, ICN+8
TEXT^ORQ12 NAME+5
$$TESTPAT^VADPT ICN+4
$$MERGED^VPRHS GET+13, ICN+5
$$SUBS^VPRHS GET+5
NEW^VPRHS GET+9
P1^VPRHS G1+6, G1+7, G1+16
$$CONTNR^VPRHST G1+1
$$FILE^VPRHST ENTITY+8
$$PATIENT^VPRHST GET+4
$$FMTE^XLFDT ICN+3
$$PROD^XUPROD ICN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"WARNING: Data Monitoring is currently disabled!",!
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !
  • Line Location: GET+4
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: This patient is not currently in the Edge Cache Repository (ECR)!",!
  • Line Location: GET+6
Function Call: WRITE
  • Prompt: !,$P(ICN,U,2),!,"Cannot add to ECR",!
  • Line Location: GET+7
Function Call: WRITE
  • Prompt: !,"This patient already has a request for subscription.",!
  • Line Location: GET+8
Function Call: WRITE
  • Prompt: !," ... request "_$S(X:"",1:"NOT ")_"added to update queue."
  • Line Location: GET+11
Function Call: WRITE
  • Prompt: !,"Patient is being merged"_$S(X:" into DFN "_X,1:""),!
  • Line Location: GET+15
Function Call: WRITE
  • Prompt: !,"ICN is required!",!
  • Line Location: GET+16
Function Call: WRITE
  • Prompt: !,"This patient already has a container update request in the queue!",!
  • Line Location: G1+2
Function Call: WRITE
  • Prompt: !,"Entire container must be updated."
  • Line Location: G1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: G1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: G1+7
Function Call: WRITE
  • Prompt: !,"No records available to update.",!
  • Line Location: G1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: G1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: G1+18
Function Call: WRITE
  • Prompt: !,TYPE," container "_$S(SEQ:"",1:" NOT")_" added to update queue."
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,TYPE_" "_$S($G(N):"#"_N,1:"")_$S(SEQ:"",1:" NOT")_" added to update queue."
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: !!,"This container has no source files."
  • Line Location: ENTITY+4
Function Call: WRITE
  • Prompt: !!,"This container has multiple sources; please select one."
  • Line Location: ENTITY+7
Function Call: WRITE
  • Prompt: !!,"Available "_TYPE_"s for "_$P($G(^DPT(DFN,0)),U)_": "
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !,LCNT,?5,$$DATE(FNUM,$P(FLDS,";"),ID)
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: @$S(TYPE="Problem":"?19",TYPE="MemberEnrollment":"?19",1:"?25")
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: $$NAME(FNUM,$P(FLDS,";",2,99),ID)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,"Press <return> to continue..."
  • Line Location: LIST+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LIST+9
Routine Call
  • DIR
  • Line Location:
    • CONT+5
    • ALL+5
    • SELECT+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DDE - [#1.5] ENTQ+1, QUERY+3
^DPT - [#2] GET+14, ICN+2, ICN+6, SELECT+2
^GMR(120.86 - [#120.86] NAME+2
^VPR(1 GET+2, GET+8, GET+10, G1+2, OUT+2
^VPRC(560.1 - [#560.1] ENTITY+2, ENTITY+3, ENTITY+5, ENTITY+9, ENTITY+10

Label References

Name Line Occurrences
$$ALL G1+7
$$CONT GET+9
$$DATE LIST+5
$$ENTITY G1+10
$$FIELDS LIST+2
$$ICN GET+7
$$NAME LIST+7
$$SELECT G1+13
@( QUERY+5
ENTQ ENTITY+4, ENTITY+5
G1 G1+2, G1+3, G1+7, G1+10, G1+12, G1+13, G1+18
ICQ ICN+1, ICN+2, ICN+4, ICN+5
LIST SELECT+2
OUT G1+6, G1+7, G1+16
QUERY G1+12

Naked Globals

Name Field # of Occurrence
^( ENTITY+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT GET+17~, G1+11*
C ENTITY+1~, ENTITY+2*, ENTITY+3, ENTITY+5, ENTITY+8, ENTITY+9, ENTITY+10
DA DATE~, DATE+1, NAME~, NAME+2, NAME+5, NAME+9
DFN GET+1~, GET+4*, GET+5, GET+7, GET+8, GET+9, GET+10, GET+13, GET+14, GET+16
G1+2, G1+5, ICN~, ICN+1, ICN+2, ICN+4, ICN+5, ICN+6, ICN+8, OUT+2
QUERY+3, SELECT+2
DIR CONT+1~, ALL+1~, SELECT+1~
DIR("?" CONT+4*, ALL+4*, SELECT+4*
DIR("??" SELECT+5*
DIR("A" CONT+3*, ALL+3*, SELECT+3*
DIR("B" CONT+2*, ALL+2*
DIR(0 CONT+2*, ALL+2*, SELECT+3*
DLIST GET+17~, G1+12, QUERY+4!
DLIST( G1+15, LIST+3, LIST+4
DLIST("A" SELECT+3
DMAX QUERY+2~, QUERY+4*
DONE LIST+1~, LIST+2*, LIST+3, LIST+9*
DSTOP QUERY+2~, QUERY+4*
DSTRT QUERY+2~, QUERY+4*
DTIME LIST+9
DTOUT CONT+1~, CONT+5, ALL+1~, ALL+5
DUOUT CONT+1~, CONT+5, ALL+1~, ALL+5
ENT GET+17~, G1+10*, G1+11, QUERY+3
FD DATE~, DATE+1, NAME~, NAME+9
FLDS LIST+1~, LIST+2*, LIST+5, LIST+7, FIELDS+1~
FN GET+17~, G1+11*, G1+13, G1+15, ENTITY+1~, ENTITY+8*, ENTITY+9, DATE~, DATE+1, NAME~
, NAME+2, NAME+3, NAME+9, FIELDS~, FIELDS+2, FIELDS+3, FIELDS+4, FIELDS+5, FIELDS+6, FIELDS+7
, FIELDS+9, FIELDS+10, FIELDS+11, FIELDS+12, FIELDS+13, FIELDS+14, FIELDS+15, FIELDS+16, FIELDS+17, FIELDS+18
, FIELDS+19, FIELDS+20, FIELDS+21, FIELDS+22, FIELDS+23
FNUM SELECT~, LIST+2, LIST+5, LIST+7
I ENTITY+1~, ENTITY+5*, ENTITY+9*, ENTITY+10
ICN GET+1~, GET+7*, GET+9, GET+16*, ICN+1~*, ICN+3*, ICN+4*, ICN+6*, ICN+7*, ICN+8*
ICQ+1
ID GET+17~, G1+1*, G1+5*, G1+15*, OUT+1*, OUT+2, OUT+3, LIST+1~, LIST+4*, LIST+5
LIST+7
IDX NAME+8~*, NAME+9, NAME+10*
IEN FIELDS~
LCNT LIST+1~, LIST+2*, LIST+3*, LIST+4, LIST+5, LIST+8
N OUT~, OUT+4
ORIGVIEW NAME+4~, NAME+5*
QRTN QUERY+2~, QUERY+3*, QUERY+5
RES DATE+1~*, DATE+2*, DATE+3*, DATE+4, NAME+1~*, NAME+2*, NAME+3, NAME+6*, NAME+7*, NAME+10*
, NAME+11
SEQ OUT+2~*, OUT+3, OUT+4
SP NAME+8~*, NAME+10*
TYPE GET+17~, G1+1*, G1+2, G1+3, G1+10, OUT+2, OUT+3, OUT+4, ENTITY~, ENTITY+1*
, ENTITY+2, SELECT+2, LIST+6, NAME+3
U GET+2, GET+7, G1+11, ENTITY+3, ENTITY+5, ENTITY+10, ENTQ+1, SELECT+2, LIST+4, NAME+2
VPRI GET+17~, G1+14*
VPRN GET+17~, G1+14*, G1+15, G1+16
VPRX GET+17~, G1+13*, G1+14, NAME+4~, NAME+5, NAME+8~
VPRX(1 NAME+6
VST GET+17~
X GET+1~, GET+10*, GET+11, GET+14*, GET+15, ICN+1~, ICN+2*, ICN+3, ICN+6*, ICN+7
, CONT+1~, ENTITY+1~, ENTITY+3*, ENTITY+4, ENTITY+5, ALL+1~, SELECT+1~, LIST+1~, LIST+9*
Y CONT+1~, CONT+5*, CONT+6, ENTITY+1~, ENTITY+3*, ENTITY+5*, ENTITY+10*, ENTQ+1*, ENTQ+2, 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+9*, FIELDS+10*, FIELDS+11*, FIELDS+12*, FIELDS+13*, FIELDS+14*, FIELDS+15*, FIELDS+16*, FIELDS+17*
, FIELDS+18*, FIELDS+19*, FIELDS+20*, FIELDS+21*, FIELDS+22*, FIELDS+23*, FIELDS+24

Marked Items

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