VPRD ;SLC/MKB -- Serve VistA data as XML via RPC ;8/2/11 15:29
Source file <VPRD.m>
| 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 |
|
| 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
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| RPC Name | Call Tags |
|---|---|
| VPR GET PATIENT DATA | GET |
| VPR DATA VERSION | VERSION |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
