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 |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: VPRDJ

Package: Virtual Patient Record

Routine: VPRDJ


Information

VPRDJ ;SLC/MKB -- Serve VistA data as JSON via RPC ;10/18/12 6:26pm

Source Information

Source file <VPRDJ.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Virtual Patient Record 4 ONE^VPRDCRC  EN^VPRDJX  ENCODE^VPRJSON  SETERROR^VPRUTILS  
Kernel 3 ($$DT,$$FMTHL7,$$NOW)^XLFDT  $$UP^XLFSTR  $$KSP^XUPARAM  
Master Patient Index VistA 1 $$GETDFN^MPIF001  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Virtual Patient Record 15 VPR GET PATIENT DATA JSON  VPRDCRC  VPRDJ00  VPRDJ01  VPRDJ02  VPRDJ03  VPRDJ04  VPRDJ04A  
VPRDJ05  VPRDJ05V  VPRDJ06  VPRDJ07  VPRDJ08  VPRDJ09  VPRDJT  

Entry Points

Name Comments DBIA/ICR reference
ERR(X,VAL) ; -- return error message
GET(VPR,FILTER) ; -- Return search results as JSON in @VPR@(n)
; RPC = VPR GET PATIENT DATA JSON
; where FILTER("patientId") = DFN or DFN;ICN
; FILTER("domain") = name of desired data type (see VPRDJ0)
; FILTER("text") = boolean, to include document text [opt]
; FILTER("start") = start date.time of search [opt]
; FILTER("stop") = stop date.time of search [opt]
; FILTER("max") = maximum number of items to return [opt]
; FILTER("id") = single item id to return [opt]
; FILTER("uid") = single record uid to return [opt]
  • ICR #6393
    • Status: Withdrawn
    • Usage: Private
    ALL() ; -- return string for all types of data
    HL7NOW() ; -- Return current time in HL7 format
    GTQ ; add item count and terminating characters
    SEPUID(FILTER) ; -- separate uid into FILTER pieces
    TEST(DFN,TYPE,ID,TEXT,IN) ; -- test GET, write results to screen
    ADD(ITEM,COLL) ; -- add ITEM to results
    SYS() ; -- return system info for JSON header
    TAG(X) ; -- Return linetag in VPRDJ0 routine for clinical domain X

    External References

    Name Field # of Occurrence
    $$GETDFN^MPIF001 GET+20
    ONE^VPRDCRC ADD+1
    EN^VPRDJX GET+37
    ENCODE^VPRJSON ADD+4, ADD+10
    SETERROR^VPRUTILS ADD+9
    $$DT^XLFDT GET+14
    $$FMTHL7^XLFDT HL7NOW+1
    $$NOW^XLFDT HL7NOW+1
    $$UP^XLFSTR TAG+2
    $$GET^XPAR GET+13, TEST+3
    $$KSP^XUPARAM SYS+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,@IDX
    • Line Location: TEST+11

    Used in RPC

    RPC Name Call Tags
    VPR GET PATIENT DATA JSON GET

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] GET+24
    ^TMP("VPR" GET+12
    ^TMP("VPRTEXT" GTQ+7!
    ^XTMP( GET+23

    Label References

    Name Line Occurrences
    $$ALL GET+22
    $$ERR GET+24
    $$HL7NOW GTQ+5
    $$SYS GTQ+1
    $$TAG GET+39
    @( GET+40
    GET TEST+8
    GTQ GET+24
    SEPUID GET+16

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    COLL ADD~, ADD+1
    DFN GET+11~, GET+18*, GET+19*, GET+20*, GET+23, GET+24, TEST~, TEST+4
    DT GET+14*
    FILTER GET~, GET+16, SEPUID~
    FILTER("domain" GET+22, SEPUID+5*
    FILTER("id" GET+33, SEPUID+6*
    FILTER("max" GET+28
    FILTER("patientId" GET+18, SEPUID+4*
    FILTER("start" GET+26
    FILTER("stop" GET+27
    FILTER("text" GET+34
    FILTER("uid" GET+16, SEPUID+2!
    ICN GET+11~, GET+19*, GET+20
    ID TEST~, TEST+6
    IDX TEST+1~, TEST+10*, TEST+11*
    IN TEST~, TEST+8
    IN("domain" TEST+5*
    IN("id" TEST+6*
    IN("patientId" TEST+4*
    IN("systemID" TEST+3*
    IN("text" TEST+7*
    ITEM ADD~, ADD+1, ADD+4, ADD+7
    MSG ERR+1~*, ERR+2*, ERR+3*, ERR+4*, ERR+5*, ERR+6*, ERR+7
    OUT TEST+1~, TEST+8, TEST+10
    TEXT TEST~, TEST+7
    TYPE GET+38*, GET+39, TEST~, TEST+5
    U TEST+2*
    UID SEPUID+1~, SEPUID+2*, SEPUID+3, SEPUID+4, SEPUID+5, SEPUID+6
    VAL ERR~, ERR+2, ERR+3, ERR+4
    VPR GET~, GET+12*, GET+23*, GTQ+1, GTQ+2, GTQ+3, GTQ+5, GTQ+6, ADD+12, ADD+13
    >> VPRBATCH GET+23
    >> VPRCRC ADD+1
    VPRERR GET+11~, GET+24*, GTQ+2, ADD+3~, ADD+5, ADD+9, ADD+10!
    VPRI GET+11~, GET+12*, GTQ+3, GTQ+5, GTQ+6*, ADD+12*, ADD+13
    VPRID GET+11~, GET+33*, GET+37
    VPRITM ADD+6~, ADD+7*, ADD+9
    VPRMAX GET+11~, GET+28*, GET+37
    VPRP GET+11~, GET+38*
    VPRSTART GET+11~, GET+26*, GET+29, GET+30*
    VPRSTOP GET+11~, GET+27*, GET+29, GET+30*, GET+31*
    VPRSYS GET+11~, GET+13*, SEPUID+3, SYS+1
    VPRTEXT GET+11~, GET+34*
    VPRTMP ADD+6~, ADD+9
    VPRTN GET+11~, GET+39*, GET+40
    VPRTXT ADD+6~, ADD+9
    VPRTXT(1 ADD+8*
    VPRTYPE GET+11~, GET+22*, GET+23, GET+24, GET+37, GET+38
    VPRY ADD+3~, ADD+7!, ADD+11, ADD+13
    X GET+30~*, TAG~, TAG+1*, TAG+2, ERR~, ERR+2, ERR+3, ERR+4, ERR+5, ERR+6
    Y TAG+1~, TAG+2*, TAG+3*, TAG+4
    >> ZTQUEUED GET+23

    Marked Items

    Name Field # of Occurrence
    $T(@(3) TAG+3
    $T(@VPRTN GET+39
    $T(EN^VPRDJX GET+37
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All