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

Package: Virtual Patient Record

Routine: VPRD


Information

VPRD ;SLC/MKB -- Serve VistA data as XML via RPC ;8/2/11 15:29

Source Information

Source file <VPRD.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 $$TZ^XLFDT  $$LOW^XLFSTR  $$NS^XUAF4  $$TAXIND^XUSTAX  
Master Patient Index VistA 1 $$GETDFN^MPIF001  
Registration 1 $$SITE^VASITE  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 49

Package Total Caller Graph
Virtual Patient Record 48 VPR DATA VERSION  VPR GET PATIENT DATA  VPRDGMPL  VPRDGMRA  VPRDGMRC  VPRDGMV  VPRDGPF  VPRDIB  
VPRDJ00  VPRDJ01  VPRDJ02  VPRDJ03  VPRDJ04  VPRDJ04A  VPRDJ05  VPRDJ05V  
VPRDJ06  VPRDJ07  VPRDJ08  VPRDJ09  VPRDLR  VPRDLRA  VPRDLRO  VPRDMC  
VPRDMDC  VPRDOR  VPRDPROC  VPRDPS  VPRDPSI  VPRDPSO  VPRDPSOR  VPRDPT  
VPRDPXAM  VPRDPXED  VPRDPXHF  VPRDPXIM  VPRDPXRM  VPRDPXSK  VPRDRA  VPRDRMIM  
VPRDSDAM  VPRDSR  VPRDTIU  VPRDTST  VPRDVSIT  VPRSDAL  VPRSDAP  VPRSDAT  
SAGG Project 1 KMPSYNTH  

Entry Points

Name Comments DBIA/ICR reference
GET(VPR,DFN,TYPE,START,STOP,MAX,ID,FILTER) ; -- Return search results as XML in @VPR@(n)
; RPC = VPR GET PATIENT DATA
  • ICR #7135
    • Status: Active
    • Usage: Private
    GTQ ; end
    RTN(X) ; -- Return name of VPRDxxxx routine for clinical domain X
    ; X is also enforced as expected group tag name, if passed by ref
    TAG(X) ; -- return plural name for group tags
    ALL() ; -- return string for all types of data
    ERR(X,VAL) ; -- return error message
    ESC(X) ; -- escape outgoing XML
    ; Q $ZCONVERT(X,"O","HTML") ; uncomment for fastest performance on Cache
    ADD(X) ; Add a line @VPR@(n)=X
    STRING(ARRAY) ; -- Return text in ARRAY(n) or ARRAY(n,0) as a string
    FAC(X) ; -- return Institution file station# for location X
    PROVTAGS() ; -- Return attribute tags for provider info as built below
    PROVSPC(NP) ; -- Return contact & specialty info for provider NP
    ; save strings in ^TMP("VPRD",$J,NP) for efficiency
    VUID(IEN,FILE) ; -- Return VUID for item
    VERSION(RET) ; -- Return current version of data extracts
    TEST(DFN,TYPE,ID,START,STOP,MAX,TEXT,IN) ; -- test GET, write results to screen

    External References

    Name Field # of Occurrence
    $$GET1^DIQ FAC+4, PROVSPC+9, VUID+1
    $$GETDFN^MPIF001 GET+8
    $$SITE^VASITE FAC+5
    $$TZ^XLFDT GET+18
    $$LOW^XLFSTR GET+10, TAG+1
    $$GET^XPAR GET+18, VERSION+1
    $$NS^XUAF4 FAC+5
    $$TAXIND^XUSTAX PROVSPC+6

    Interaction Calls

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

    Used in RPC

    RPC Name Call Tags
    VPR GET PATIENT DATA GET
    VPR DATA VERSION VERSION

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] GET1^DIQ
    ^SC - [#44] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] GET+9
    ^SC - [#44] FAC+2
    ^TMP("VPR" GET+3
    ^TMP("VPRD" GTQ+1!, PROVSPC+3, PROVSPC+10*
    ^USC(8932.1 - [#8932.1] PROVSPC+7
    ^VA(200 - [#200] PROVSPC+4

    Label References

    Name Line Occurrences
    $$ALL GET+10
    $$RTN GET+21
    @( GET+23
    ADD GET+18, GET+22, GET+24, GET+25, ERR+6, ERR+7, ERR+8
    ERR GET+9
    GET TEST+4
    GTQ GET+9

    Naked Globals

    Name Field # of Occurrence
    ^( PROVSPC+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARRAY STRING~
    ARRAY( STRING+3, STRING+4, STRING+5
    ARRAY("" STRING+2
    ARRAY(0 STRING+2
    CLS PROVSPC+2~, PROVSPC+7*, PROVSPC+8
    DFN GET~, GET+7*, GET+8*, GET+9, TEST~, TEST+2*, TEST+4
    FAC FAC+1~, FAC+2*, FAC+4*, FAC+5, FAC+7
    FILE VUID~, VUID+1
    FILTER GET~
    FILTER("id" GET+14
    FILTER("text" GET+4
    HLOC FAC+1~, FAC+2*, FAC+4
    I ESC+3~, ESC+4*, ESC+5*, ESC+6*, ESC+7*, ESC+8*, ESC+9*, STRING+1~, STRING+2*, STRING+3
    , STRING+4*, STRING+5, PROVSPC+2~
    ICN GET+2~, GET+7*, GET+8
    ID GET~, GET+7*, GET+14*, TEST~, TEST+4
    IDX TEST+1~, TEST+6*, TEST+7*
    IEN VUID~, VUID+1
    IN TEST~, TEST+4
    MAX GET~, GET+11*, TEST~, TEST+4
    MSG ERR+1~*, ERR+2*, ERR+3*, ERR+4*, ERR+7
    NP PROVSPC~, PROVSPC+2*, PROVSPC+3, PROVSPC+4, PROVSPC+6, PROVSPC+9, PROVSPC+10
    OUT TEST+1~, TEST+4, TEST+6
    QOT ESC+3~*, ESC+9
    RES PROVSPC+2~, PROVSPC+3*, PROVSPC+5*, PROVSPC+8*, PROVSPC+9*, PROVSPC+10, PROVSPC+11
    RET VERSION~, VERSION+1*
    START GET~, GET+11*, GET+12*, TEST~, TEST+4
    STOP GET~, GET+11*, GET+12*, GET+13*, TEST~, TEST+4
    TEXT TEST~
    TYPE GET~, GET+10*, GET+19, TEST~, TEST+3*, TEST+4
    U FAC+2, FAC+4, FAC+5, FAC+6, FAC+7, PROVSPC+5, PROVSPC+6, PROVSPC+7, PROVSPC+8, PROVSPC+9
    , TEST+1*
    VAL ERR~, ERR+2, ERR+3
    VPR GET~, GET+3*, GET+24, ADD+2
    VPRHDR GET+17~, GET+22*, GET+24
    VPRI GET+2~, GET+22, ADD+1*, ADD+2
    VPRP GET+17~, GET+20*
    VPRTAG GET+17~, GET+20*, GET+21, GET+22, GET+24
    VPRTEXT GET+2~, GET+4*
    VPRTN GET+17~, GET+21*, GET+23
    VPRTOTL GET+2~, GET+22*, GET+24
    VPRTYPE GET+17~, GET+19*, GET+20
    X GET+12~*, RTN~, RTN+2*, RTN+3*, RTN+4*, RTN+5*, RTN+6*, RTN+7*, RTN+8*, RTN+9*
    , RTN+10*, RTN+11*, RTN+12*, RTN+13*, RTN+14*, RTN+15*, RTN+16*, RTN+17*, RTN+18*, RTN+19*
    , RTN+20*, RTN+21*, RTN+22*, RTN+23*, RTN+24*, RTN+25*, RTN+26*, RTN+27*, RTN+28*, RTN+29*
    , RTN+30*, RTN+31*, RTN+32*, RTN+33*, RTN+34*, RTN+35*, TAG~, TAG+1*, TAG+2, TAG+3
    , TAG+4, ERR~, ERR+2, ERR+3, ERR+4, ESC~, ESC+4*, ESC+5, ESC+6*, ESC+7*
    , ESC+8*, ESC+9*, ADD~, ADD+2, STRING+1~, STRING+5*, STRING+6, STRING+7, FAC~, FAC+2
    , FAC+4, PROVSPC+2~, PROVSPC+6*, PROVSPC+7, PROVSPC+8
    X13 PROVSPC+2~, PROVSPC+4*, PROVSPC+5
    X15 PROVSPC+2~, PROVSPC+4*, PROVSPC+5
    Y RTN+2~*, RTN+3*, RTN+4*, RTN+5*, RTN+6*, RTN+7*, RTN+8*, RTN+9*, RTN+10*, RTN+11*
    , RTN+12*, RTN+13*, RTN+14*, RTN+15*, RTN+16*, RTN+17*, RTN+18*, RTN+19*, RTN+20*, RTN+21*
    , RTN+22*, RTN+23*, RTN+24*, RTN+25*, RTN+26*, RTN+27*, RTN+28*, RTN+29*, RTN+30*, RTN+31*
    , RTN+32*, RTN+33*, RTN+34*, RTN+35*, RTN+36, TAG+1~, TAG+2*, TAG+3*, TAG+4*, TAG+5
    , ESC+3~, ESC+5*, ESC+6*, ESC+7*, ESC+8*, ESC+9*, ESC+10, STRING+1~*, STRING+3*, STRING+6*
    , STRING+7*, STRING+8, FAC+1~*, FAC+6*, FAC+7*, FAC+8, PROVSPC+2~
    Y0 FAC+1~, FAC+5*, FAC+6

    Marked Items

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