391. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/17/2017 4:27:37 PM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

391.1 Files compared

# Location File Last Modified
1 VSA P2.5 v3.0.12.zip\src.zip\vsa_vistajs_source_v3.0\vsa-mcode\Routines XSAPXROUTINES.xml Mon Jan 16 21:20:00 2017 UTC
2 VSA P2.5 v3.0.12.zip\src.zip\vsa_vistajs_source_v3.0\vsa-mcode\Routines XSAPXROUTINES.xml Fri Feb 17 21:49:12 2017 UTC

391.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 20 56468
Changed 19 44
Inserted 0 0
Removed 0 0

391.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

391.4 Active regular expressions

No regular expressions were active.

391.5 Comparison detail

  1   <?xml 
  2     version="1 .0" 
  3     encoding=" UTF-8"
  4   ?>
  5   <Export 
  6     generator= "Cache" 
  7     version="2 5" 
  8     zv="Cache  for UNIX ( Apple Mac  OS X for x 86-64) 201 5.2.1 (Bui ld 705U)" 
  9     ts="2016-0 9-28 16:30 :04"
  10   >
  11     <Routine 
  12      name="XSAP XACC" 
  13      type="INT"  
  14      languagemo de="0" 
  15      timestamp= "64180,777 46"
  16     >
  17      <![CDATA[
  18      XSAPXACC ; DAL/BNT -  VistA Serv ices Assem bler Login  Functions ;1/27/2016
  19       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 3 5
  20       ;
  21       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  22       ;
  23       ; Externa l Referenc es           DBIA#
  24       ; ------- ---------- --           -----
  25       ; NOW^%DT C                       10000
  26       ; $$FMTHL 7^XLFDT                 10103
  27       ; $$NOW^X LFDT                    10103
  28       ; $$UP^XL FSTR                    10104
  29       ; $$GET^X UESSO1                  4342
  30       ; $$PUT^X UESSO1                  4342
  31       ; ESSO^XU ESSO4                   6295
  32       ; SETUP^X USRB                    4054
  33       ; VALIDAV ^XUSRB                  4054
  34       ; $$DECRY P^XUSRB1                2241
  35       ; $$ENCRY P^XUSRB1                2240
  36       ; USERINF O^XUSRB2                4055
  37       Q
  38       ;
  39       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  40       ;
  41      LOGIN(SOUR CE,TARGET)  ; Wrapper  for mulit ple authen tication m odes login
  42       N XSAAV,X SALERR,XSA USER,XSASY SL,XSAUSR, XSAACC,XSA VER,XSADIV ,XSAIP
  43       N XSABSEU ,XSADATA,X SAOS,PARAM S
  44       I '$$AUTH ^XSAPXUTL( ) D  Q $$R ESULT^XSAP XUTL()
  45       . D BLDER ROR^XSAPXU TL(1,"Not  an authori zed callin g Applicat ion","$$LO GIN^XSAPXA CC")
  46       F X="XSAA CC","XSAVE R","XSADIV ","XSAIP", "XSABSEU", "XSAESSO"  D INITPARM ^XSAPXUTL( .X)
  47       ; Encrypt  the A/V c ode ';'-de limited st ring befor e anything  else
  48       I XSAACC] "" D
  49       . ; CCOW  Login Supp ort
  50       . I $E(XS AACC,1,2)= "~2" S XSA AV=XSAACC  Q
  51       . S XSAAV =$$ENCRYP^ XUSRB1($S( XSAVER]"": $G(XSAACC) _";"_$G(XS AVER),1:$G (XSAACC))_ ";"_XSAIP)
  52       K XSAVER, XSAACC,XWB TIP
  53       S XSALERR =0
  54       ; -- Init ial System  Setup for  logon
  55       D INIT,SE TUP^XUSRB( .XSASYSL," ",1,"")
  56       ;
  57       ; -- BSE  Login
  58       I $G(XSAB SEU)]"" D   Q:XSALERR  $$RESULT^ XSAPXUTL()
  59       . I '$$PU T^XUESSO1( $$DECRYP^X USRB1(XSAB SEU)) D  Q
  60       . . S PAR AMS(1)="Un able to cr eate remot e Visitor  user"
  61       . . D ERR OR^XSAPXER R(182305," XSAPXACC -  BSE Logon ",.PARAMS, "")
  62       . . S XSA LERR=1
  63       . ; BSE L ITE Implem entation s pecific fo r VSA
  64       . S DUZ(" AUTHENTICA TION")="BS ELITE"
  65       . S DUZ(" LOA")=2
  66       ;
  67       ; -- Vali date Acces s/Verify c odes for l ogin
  68       I $G(XSAA V)]"" D  Q :XSALERR $ $RESULT^XS APXUTL()
  69       . D VALID AV^XUSRB(. XSAUSER,XS AAV)
  70       . I 'XSAU SER(0) D   Q
  71       . . S PAR AMS(1)=XSA USER(3)
  72       . . D ERR OR^XSAPXER R(182305," XSAPXACC -  A/V Logon ",.PARAMS, "")
  73       . . S XSA LERR=1
  74       . S @TARG ET@("resul ts","GREET ING")=$G(X SAUSER(7))
  75       ;
  76       ; -- Vali date ESSO  User from  SAML Token
  77       I $D(@SOU RCE@("XSAE SSO",1)) D   Q:XSALER R $$RESULT ^XSAPXUTL( )
  78       . D ESSO^ XUESSO4(.X SAUSER,$NA (@SOURCE@( "XSAESSO") ))
  79       . I 'XSAU SER(0) D   Q
  80       . . S PAR AMS(1)=XSA USER(3)
  81       . . D ERR OR^XSAPXER R(182305," XSAPXACC -  ESSO Logo n",.PARAMS ,"")
  82       . . S XSA LERR=1
  83       . S @TARG ET@("resul ts","GREET ING")=$G(X SAUSER(7))
  84       ;
  85       ; -- DUZ  not define d so unabl e to Logon  with inpu t credenti als
  86       I $G(DUZ) <1 D  Q $$ RESULT^XSA PXUTL()
  87       . S PARAM S(1)="No s upported l ogon crede ntials ide ntified. U nable to l ogon user. "
  88       . D ERROR ^XSAPXERR( 182305,"XS APXACC - L ogon",.PAR AMS,"")
  89       ;
  90       ; -- Get  user info
  91       D USERINF O^XUSRB2(. XSAUSR)
  92       ;
  93       ; Build t he Encrypt ed BSE Vis itor User  for remote  visitor a ccess
  94       I XSABSEU ']"" S XSA BSEU=$$ENC RYP^XUSRB1 ($$GET^XUE SSO1(.DUZ) )
  95       ;
  96       ; Build r eturn data
  97       S @TARGET @("results ","DT")=DT
  98       S @TARGET @("results ","SIGNON- DATETIME") =$$FMTHL7^ XLFDT($$NO W^XLFDT())
  99       S @TARGET @("results ","XSABSEU ")=$G(XSAB SEU)
  100       S @TARGET @("results ","DUZ")=D UZ
  101       S @TARGET @("results ","USER-NA ME")=$G(XS AUSR(1))
  102       S @TARGET @("results ","USER-DI SPLAY-NAME ")=$G(XSAU SR(2))
  103       S @TARGET @("results ","USER-LO GGED-ON-DI VISION")=$ G(XSAUSR(3 ))
  104       S @TARGET @("results ","USER-TI TLE")=$G(X SAUSR(4))
  105       S @TARGET @("results ","USER-SE RVICE-SECT ION")=$G(X SAUSR(5))
  106       S @TARGET @("results ","USER-LA NGUAGE")=$ G(XSAUSR(6 ))
  107       S @TARGET @("results ","USER-RE AD-TIMEOUT ")=$G(XSAU SR(7))
  108       S @TARGET @("results ","USER-VP ID")=$G(XS AUSR(8))
  109       S @TARGET @("results ","USER-IP ")=$G(XSAI P)
  110       M @TARGET @("results ","DUZARRA Y")=DUZ
  111       S @TARGET @("results ","VJS-SES SION-TOKEN ")=XSASYMI D
  112       Q $$RESUL T^XSAPXUTL ()
  113       ;
  114      INIT ; --  VSA-specif ic or gene ral partit ion setup  before rea uthenticat ion proces s starts
  115       K XSASYS
  116       ;
  117       L
  118       S:$D(IO)[ 0 IO=$I S  IO(0)=IO
  119       S:$G(XSAI P)]"" (IO( "ZIO"),IO( "IP"))=XSA IP
  120       K ^UTILIT Y($J),^TMP ($J)
  121       K ^XUTL(" XQ",$J)
  122       D NOW^%DT C S DT=X
  123       Q
  124      ]]>
  125     </Routine>
  126    
  127    
  128     <Routine 
  129      name="XSAP XCRS" 
  130      type="INT"  
  131      languagemo de="0" 
  132      timestamp= "64140,483 34.228029"
  133     >
  134      <![CDATA[
  135      XSAPXCRS ; DAL/BNT -  VistA Serv ices Assem bler Clini cal Reconc iliation S ervices;1/ 27/2016
  136       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 3 5
  137       ;
  138       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  139       ;
  140       ; Externa l Referenc es           DBIA#
  141       ; ------- ---------- --           -----
  142       ; $$GETIC N^MPIF001               2701
  143       ; TFL^VAF CTFU1                   2990
  144       ; $$FMTE^ XLFDT                   10103
  145       Q
  146       ;
  147       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  148       ;
  149       ;
  150      GETPTFL(SO URCE,TARGE T) ; - Ret urn patien t visit in formation
  151       N ICN,LIS T,XSAFAC,D FN
  152       N X F X=" DFN" D INI TPARM^XSAP XUTL(.X)
  153       D TFL^VAF CTFU1(.LIS T,DFN)     ; get list  of sites  and local  DFNs
  154       S ICN=$$G ETICN^MPIF 001(DFN)   ; get the  global ICN  for this  DFN
  155       S @TARGET @("results ","ICN")=$ G(ICN)
  156       I $D(LIST (1)) D
  157       . I +LIST (1)=-1 D
  158       . . D BLD ERROR^XSAP XUTL(1,$P( LIST(1),U, 2),"GETPTF L^XSAPXCRS ") Q
  159       . N X S X ="" F  S X =$O(LIST(X )) Q:X=""   D
  160       . . S @TA RGET@("res ults","STA TION",$P(L IST(X),U), "NAME")=$P (LIST(X),U ,2)
  161       . . S @TA RGET@("res ults","STA TION",$P(L IST(X),U), "DATE")=$$ FMTE^XLFDT ($P(LIST(X ),U,3))
  162       . . S @TA RGET@("res ults","STA TION",$P(L IST(X),U), "EVENT_REA SON_CODE") =$P(LIST(X ),U,4)
  163       . . S XSA FAC=$P(LIS T(X),U,5)  I XSAFAC]" " D
  164       . . . S X SAFAC=$O(^ DIC(4.1,"B ",XSAFAC,0 ))
  165       . . . I X SAFAC S XS AFAC=$P(^D IC(4.1,XSA FAC,0),U,2 )
  166       . . S @TA RGET@("res ults","STA TION",$P(L IST(X),U), "FACILITY_ TYPE")=XSA FAC
  167       Q $$RESUL T^XSAPXUTL ()
  168      ]]>
  169     </Routine>
  170    
  171    
  172     <Routine 
  173      name="XSAP XD1" 
  174      type="INT"  
  175      languagemo de="0" 
  176      timestamp= "64182,368 15"
  177     >
  178      <![CDATA[
  179      XSAPXD1 ;D AL/BNT - V istA Servi ces Assemb ler Publis hed Functi ons Docume ntation;1/ 27/2016
  180       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 3 5
  181       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  182       ;
  183       ;NOTE: Th is documen t is pre-f ormatted i n MARKDOWN . To view  it with MA RKDOWN for matting yo u can Find  " ;" and  Replace wi th "" to r emove the  comment ta gs.
  184       ;
  185       ;#VistA S ervices As sembler AP I Document ation
  186       ;
  187       ;##Extern al Referen ces
  188       ;
  189       ;|Routine              |is Invo ked by:       |ICR#    |Usage         |Stat us    |
  190       ;|------- ---------- --|------- ---------- ---|------ -|-------- -----|---- ------|
  191       ;
  192       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---
  193       ;
  194       ;All publ ished func tions in t he XSAPXPU B routine  require th e same two  input par ameters.
  195       ;All publ ished func tion retur n 1 if the  call  as  successful  and 0 if  the call f ailed. 
  196       ;
  197       ;##SOURCE
  198       ;A closed  global ro ot contain ing source  input par ameters re quired by  the callin g function .
  199       ;The SOUR CE input g lobal arra y is set b y the Vist A Service  Assembler  JavaScript  software  through th e cache.no de interfa ce. The in put variab le(s) for  each funct ion are se t in the l ast subscr ipt of the  SOURCE gl obal.
  200       ;SOURCE s hould be s et to a Te mporary gl obal name  such as ^T MP($J,"XSA ","RPC LIS T"), howev er, it can  be any te mporary gl obal.
  201       ;
  202       ;The exam ple below  shows the  SOURCE glo bal array  when calli ng the LIS T function  to get a  list of 40  RPCs that  start wit h "VPS".
  203       ;
  204       ;###Examp le of SOUR CE
  205       ;
  206       ;    ^TMP ($J,"XSA", "RPC LIST" )
  207       ;    ^TMP ($J,"XSA", "RPC LIST" ,"FILE")=8 994
  208       ;    ^TMP ($J,"XSA", "RPC LIST" ,"IENS")=" "
  209       ;    ^TMP ($J,"XSA", "RPC LIST" ,"FIELDS") =""
  210       ;    ^TMP ($J,"XSA", "RPC LIST" ,"FLAGS")= ""
  211       ;    ^TMP ($J,"XSA", "RPC LIST" ,"NUMBER") =40
  212       ;    ^TMP ($J,"XSA", "RPC LIST" ,"FROM")=" "
  213       ;    ^TMP ($J,"XSA", "RPC LIST" ,"PART")=" VPS"
  214       ;    ^TMP ($J,"XSA", "RPC LIST" ,"INDEX")= ""
  215       ;    ^TMP ($J,"XSA", "RPC LIST" ,"SCREEN") =""
  216       ;    ^TMP ($J,"XSA", "RPC LIST" ,"XSASYM") =1
  217       ;    ^TMP ($J,"XSA", "RPC LIST" ,"ID")=""
  218       ;
  219       ;###XSASY M Paramete r
  220       ;This par ameter sho uld be set  to 1 if t he Symbol  table shou ld be save d and retu rned in th e TARGET a rray.
  221       ;All loca l variable s will be  saved and  returned u nder the " symbolTabl e" node of  the TARGE T array.
  222       ;
  223       ;###XSASY MGR Parame ter
  224       ;Specifie s the base  global of  the sessi on cache b eing used  to save an d restore  symbol tab le informa tion to.
  225       ;Should b e of the f ormat GLOB AL|S1,S2 w here GLOBA L is the n ame of the  global an d S1 and S 2 are subs cripts
  226       ;
  227       ;###XSASY MID Parame ter
  228       ;Specifes  the sessi on Key in  the sessio n cache (m anaged by  XSAPXPSS)  to load th e symbol t able from  for the cu rrent call .
  229       ;
  230       ;##TARGET
  231       ;A closed  global ro ot where t he results  are to be  returned.  Errors ar e also ret urned in t he TARGET.
  232       ;All resu lts for a  successful , or faile d, functio n call are  returned  in the TAR GET global  node.
  233       ;
  234       ;The resu lt data is  returned  in the "re sults" nod e of the T ARGET arra y.
  235       ;
  236       ;    ^TMP (19976,"XS A","RPC"," results",0 )="RPCs St arting wit h 'VPR' .. . (4) entr ies found. "
  237       ;    ^TMP (19976,"XS A","RPC"," results",1 )="VPR DAT A VERSION"
  238       ;    ^TMP (19976,"XS A","RPC"," results",2 )="VPR GET  CHECKSUM"
  239       ;    ^TMP (19976,"XS A","RPC"," results",3 )="VPR GET  PATIENT D ATA"
  240       ;    ^TMP (19976,"XS A","RPC"," results",4 )="VPR GET  PATIENT D ATA JSON"
  241       ;
  242       ;Error da ta is retu rned in th e "error"  node of th e TARGET a rray.
  243       ;
  244       ;    ^TMP (19976,"XS A","RPC"," error","da ta","code" )=182005
  245       ;    ^TMP (19976,"XS A","RPC"," error","da ta","error  type")="X OBV TEST N OT IN CONT EXT"
  246       ;    ^TMP (19976,"XS A","RPC"," error","da ta","fault  actor")=" XOBV TEST  NOT IN CON TEXT"
  247       ;    ^TMP (19976,"XS A","RPC"," error","da ta","fault  string")= "Internal  Applicatio n Error"
  248       ;    ^TMP (19976,"XS A","RPC"," error","ms g")="RPC C ontext Err or :: User  CLERK,WAR D does not  have acce ss to opti on XOBV VI STALINK TE STER"
  249       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  250       ;
  251       ;##LIST(S OURCE,TARG ET)
  252       ;
  253       ;This Fun ction is a  wrapper f or the Fil eMan LIST^ DIC Lister  API
  254       ;Refer to  the VA Fi leMan Prog rammer Gui de for add itional in put parame ter explan ations
  255       ;
  256       ;###INPUT
  257       ;
  258       ;|Paramet er|Require d/Optional |Descripti on|
  259       ;|------- --|------- ---------- |--------- --|
  260       ;|FILE      |(R)                |File or S ub-file Nu mber.|
  261       ;|IENS      |(O)                |Standard  IENS indic ating inte rnal entry  numbers.  IENS is on ly require d for Sub- File lists .|
  262       ;|FIELDS    |(O)                |Fields re turned in  the ouput  data. Defa ult is '@; . ;01;FID' .|
  263       ;|FLAGS     |(O)                |Flags to  control pr ocessing.  Default is  "P".|
  264       ;|NUMBER    |(O)                |The numbe r of entri es to retu rn.|
  265       ;|FROM      |(O)                |The index  from whic h to begin  the list. |
  266       ;|PART      |(O)                |The parti al match r estriction  used to s earch for  records to  return.|
  267       ;|INDEX     |(O)                |The name  of the ind ex from wh ich to bui ld the lis t. Default  is 'B'.|
  268       ;|SCREEN    |(O)                |Standard  M code scr een to exc lude recor ds from th e list.|
  269       ;|ID        |(O)                |Text to a ccompany e ach potent ial entry  in the lis t to help  identify i t to the e nd user.|
  270       ;|TARGET    |(R)                |The name  of a close d root ref erence whe re the dat a is retur ned.|
  271       ;
  272       ;###OUTPU T
  273       ;
  274       ;|Paramet er|Require d/Optional |Descripti on|
  275       ;|------- --|------- ---------- |--------- --|
  276       ;|TARGET    |(R)                |The outpu t array is  in a modi fied FDA f ormat with  camelCase  names|
  277       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  278       ;
  279       ;##GETS(S OURCE,TARG ET)
  280       ;
  281       ;This Fun ction is a  wrapper f or the Fil eMan GETS^ DIQ Data R etriever.
  282       ;Refer to  the VA Fi leMan Prog rammer Gui de for add itional in put parame ter explan ations
  283       ;
  284       ;###INPUT
  285       ;
  286       ;|Paramet er|Require d/Optional |Descripti on|
  287       ;|------- --|------- ---------- |--------- --|
  288       ;|FILE      |(R)                |File or S ubfile Num ber.|
  289       ;|IENS      |(R)                |Standard  IENS indic ating inte rnal entry  numbers.|
  290       ;|FIELDS    |(O)                |Fields re turned in  the ouput  data. Defa ult is '** '.|
  291       ;|FLAGS     |(O)                |Flags to  control pr ocessing.  Default is  "EINR".|
  292       ;|TARGET    |(R)                |The name  of a close d root ref erence whe re the dat a is retur ned.|
  293       ;
  294       ;###OUTPU T
  295       ;
  296       ;|Paramet er|Require d/Optional |Descripti on|
  297       ;|------- --|------- ---------- |--------- --|
  298       ;|TARGET    |(R)                |The outpu t array is  in a modi fied FDA f ormat with  camelCase  names|
  299       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  300       ;
  301       ;##UPD170 1(SOURCE,T ARGET)
  302       ;
  303       ;This is  a VistA Se rvices Ass embler spe cific func tion used  to add, up date or de lete recor ds in the  XSA DEFINI TIONS file  (#17.01).
  304       ;
  305       ;###INPUT
  306       ;
  307       ;|Paramet er|Require d/Optional |Descripti on|
  308       ;|------- --|------- ---------- |--------- --|
  309       ;|IEN       |(O)                |The Inter nal Entry  Number for  the recor d|
  310       ;|NAME      |(R)                |The uniqu e name for  the recor d|
  311       ;|DEF       |(O)                |The servi ce definit ion should  be conver ted using  Pretty Pri nt and spl it on each  line.)
  312       ;
  313       ;####ADD
  314       ;
  315       ;To Add n ew records  to the fi le the NAM E and the  DEF inputs  must exis t.
  316       ;Example:   ^TMP($J, "XSA","UPD 1701","NAM E")="MY AW ESOME SERV ICE"
  317       ;           ^TMP($J, "XSA","UPD 1701","DEF ",1)="{"
  318       ;           ^TMP($J, "XSA","UPD 1701","DEF ",2)= "swa gger": "2. 0",
  319       ;           ^TMP($J, "XSA","UPD 1701","DEF ",3)= "inf o": {
  320       ;           ^TMP($J, "XSA","UPD 1701","DEF ",4)=   "t itle": "Vi stA.js RPC  REST Serv ice",
  321       ;           ^TMP($J, "XSA","UPD 1701","DEF ",5)=   "d escription ": "A frie ndly servi ce that pr ovides eas y REST-ifi cation of  VistA RPCs .",
  322       ;           ^TMP($J, "XSA","UPD 1701","DEF ",6)=   "v ersion": " 0.0.1"
  323       ;           ^TMP($J, "XSA","UPD 1701","DEF ",...)=
  324       ;
  325       ;####UPDA TE
  326       ;
  327       ;To Updat e existing  records t o either c hange the  NAME or th e DEFINITI ON fields  the IEN mu st exist.
  328       ;This exa mple chang es the DEF INITION to  a WADL Se rvice Desc ription.
  329       ;Example:   ^TMP($J, "XSA","UPD 1701","IEN ")=123
  330       ;           ^TMP($J, "XSA","UPD 1701","NAM E")="MY AW ESOME SERV ICE"
  331       ;           ^TMP($J, "XSA","UPD 1701","DEF ",1)="<met hod name=" GET" id="" ItemSearch "">"
  332       ;           ^TMP($J, "XSA","UPD 1701","DEF ",2)=" <re quest>"
  333       ;           ^TMP($J, "XSA","UPD 1701","DEF ",3)="  <p aram name= "Service"  style=""qu ery"""
  334       ;           ^TMP($J, "XSA","UPD 1701","DEF ",4)="   f ixed=""AWS ECommerceS ervice""/> "
  335       ;           ^TMP($J, "XSA","UPD 1701","DEF ",5)="  <p aram name= ""Version" " style="" query"" fi xed=""2005 -07-26""/> "
  336       ;
  337       ;####DELE TE
  338       ;
  339       ;To Delet e existing  records t he IEN and  NAME must  exist and  the NAME  value must  be '@'.
  340       ;CAUTION:  Deletions  are done  immediatel y without  confirmati on.
  341       ;Example:   ^TMP($J, "XSA","UPD 1701","IEN ")=123
  342       ;           ^TMP($J, "XSA","UPD 1701","NAM E")="@"
  343       ;
  344       ;###OUTPU T
  345       ;
  346       ;|Paramet er|Require d/Optional |Descripti on|
  347       ;|------- --|------- ---------- |--------- --|
  348       ;|TARGET    |(R)                |The outpu t is the I EN of the  new or upd ated recor d if the c all is suc cessful. A  deletion  will retur n 0 in the  TARGET ar ray if suc cessful.|
  349       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  350       ;
  351       ;##GETPTF L(SOURCE,T ARGET)
  352       ;
  353       ;This met hod return s a list o f treating  facilitie s this ins tance of V istA knows  about for  a given p atient DFN , as well  as the glo bal ICN nu mber for t he patient
  354       ;Note: Th is is used  in the fi rst phase  of the BSE  implement ation to i nform the  federator  which othe r sites ne ed to be v isited.
  355       ;
  356       ;###INPUT
  357       ;
  358       ;|Paramet er|Require d/Optional |Descripti on|
  359       ;|------- --|------- ---------- |--------- --|
  360       ;|DFN       |(R)                |The DFN o f the pati ent.|
  361       ;
  362       ;Example:   ^TMP($J, "XSA","FUN CTION","DF N")=237
  363       ;
  364       ;The EVEN T_REASON_C ODE value  is the HL7  EVENT TYP E CODE for  the patie nt visit.
  365       ;Results:   ^TMP($J, "XSA","res ults","ICN ")="12345V 0987654"
  366       ;           ^TMP($J, "XSA","res ults","STA TION",548, "NAME")="W EST PALM B EACH VAMC"
  367       ;           ^TMP($J, "XSA","res ults","STA TION",548, "DATE")="M ar 03, 201 6@09:45"
  368       ;           ^TMP($J, "XSA","res ults","STA TION",548, "EVENT_REA SON_CODE") =3
  369       ;           ^TMP($J, "XSA","res ults","STA TION",548, "FACILITY_ TYPE")="OU TPATIENT C LINIC (IND EPENDENT)"
  370       ;           ^TMP($J, "XSA","res ults","STA TION",673, "NAME")="T AMPA (JAH  VAH)"
  371       ;           ^TMP($J, "XSA","res ults","STA TION",673, "DATE")="J an 02, 201 0@08:30"
  372       ;           ^TMP($J, "XSA","res ults","STA TION",673, "EVENT_REA SON")=""
  373       ;           ^TMP($J, "XSA","res ults","STA TION",673, "FACILITY_ TYPE")="OU TPATIENT C LINIC (IND EPENDENT)"
  374       ;
  375       ;###OUTPU T
  376       ;
  377       ;|Paramet er|Require d/Optional |Descripti on|
  378       ;|------- --|------- ---------- |--------- --|
  379       ;|TARGET    |(R)                |The outpu t is the I CN and a l ist of loc ations the  patient h as been se en at.|
  380       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---- ;
  381       ;
  382       ;##FUNCTI ON(SOURCE, TARGET)
  383       ;
  384       ;This met hod calls  any Extrin sic Functi on and wil l return t he output  in the sta ndard VSA  format.
  385       ;
  386       ;###INPUT
  387       ;
  388       ;|Paramet er|Require d/Optional |Descripti on|
  389       ;|------- --|------- ---------- |--------- --|
  390       ;|ROUTINE   |(R)                |The name  of the rou tine.|
  391       ;|ENTRY     |(R)                |The name  of the ent ry point i n the rout ine|
  392       ;|PARAMS, n,TYPE |(O )          |This is t he list of  input par ameters re quired by  the functi on being c alled. The  value for  'n' is th e ordinal  position o f the inpu t paramete r. The two  types of  input para meters are  LITERAL a nd LIST.|
  393       ;
  394       ;The foll owing exam ple assume s the SOUR CE input a rray is ^T MP($J,"XSA ","FUNCTIO N").
  395       ;The $$GE TDFN^MPIF0 01(ICN) fu nction is  used to ge t the DFN  for a pati ent based  on the ICN .
  396       ;The outp ut of the  function i s returned  in the "r esults" no de of the  TARGET arr ay.
  397       ;
  398       ;Example:   ^TMP($J, "XSA","FUN CTION","EN TRY")="GET DFN"
  399       ;           ^TMP($J, "XSA","FUN CTION","RO UTINE")="M PIF001"
  400       ;           ^TMP($J, "XSA","FUN CTION","PA RAM",1,"LI TERAL")="1 2345V09876 54"
  401       ;
  402       ;Results:   ^TMP($J, "XSA","res ults","1") =237
  403       ;
  404       ; 
  405       ;###OUTPU T
  406       ;
  407       ;|Paramet er|Require d/Optional |Descripti on|
  408       ;|------- --|------- ---------- |--------- --|
  409       ;|TARGET    |(R)                |The outpu t of whate ver the fu nction ret urns.|
  410       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  411      ]]>
  412     </Routine>
  413    
  414    
  415     <Routine 
  416      name="XSAP XD2" 
  417      type="INT"  
  418      languagemo de="0" 
  419      timestamp= "64075,381 22.148146"
  420     >
  421      <![CDATA[
  422      XSAPXD2 ;D AL/BNT - V istA Servi ces Assemb ler Publis hed Functi ons Docume ntation;1/ 27/2016
  423       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 4 8
  424       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  425       ;
  426       ;NOTE: Th is documen t is pre-f ormatted i n MARKDOWN . To view  it with MA RKDOWN for matting yo u can Find  " ;" and  Replace wi th "" to r emove the  comment ta gs.
  427       ;
  428       ;#VistA S ervices As sembler AP I Document ation
  429       ;
  430       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  431       ;##LOGIN( SOURCE,TAR GET)
  432       ;
  433       ;This met hod is use d to authe nticate an d create a  user sess ion in Vis tA. 
  434       ;
  435       ;###INPUT
  436       ;
  437       ;|Paramet er|Require d/Optional |Descripti on|
  438       ;|------- --|------- ---------- |--------- --|
  439       ;|XSAACC    |(O)                |The users  Access Co de to veri fy|
  440       ;|XSAVER    |(O)                |The users  Verify Co de to veri fy|
  441       ;|XSADIV    |(O)                |The users  logged on  Division|
  442       ;|XSAIP     |(R)                |TCP/IP Ad dress of t he client  logging in |
  443       ;|XSABSEU   |(O)                |The BSE U ser Demogr aphics for  Remote Lo gin|
  444       ;|XSAESSO   |(O)                |The ESSO  User SAML  Token. The  XML must  be convert ed to Pret ty Print a nd each li ne on a se parate nod e. i.e. (^ TMP($J,"XS AESSO",1)= "<?xml ver sion=""1.0 ""?>")|
  445       ;
  446       ;###OUTPU T
  447       ;
  448       ;|Paramet er|Require d/Optional |Descripti on|
  449       ;|------- --|------- ---------- |--------- --|
  450       ;|TARGET    |(R)                |The outpu t is an ar ray of Use r Informat ion associ ated with  the logged  on sessio n.|
  451       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  452       ;
  453       ;##RPCMET A(SOURCE,T ARGET)
  454       ;
  455       ;This met hod will r eturn the  metadata f or a speci fic RPC.
  456       ;
  457       ;###INPUT
  458       ;
  459       ;|Paramet er|Require d/Optional |Descripti on|
  460       ;|------- --|------- ---------- |--------- --|
  461       ;|RPC       |(R)                |The RPC N ame or IEN  from the  Remote Pro cedure fil e|
  462       ;
  463       ;###OUTPU T
  464       ;
  465       ;|Paramet er|Require d/Optional |Descripti on|
  466       ;|------- --|------- ---------- |--------- --|
  467       ;|TARGET    |(R)                |The outpu t is the m etadata fo r an RPC t o be used  to build t he Swagger  Definitio n that wil l allow RE STificatio n of the R PC.|
  468       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  469       ;
  470       ;##RPC(SO URCE,TARGE T)
  471       ;
  472       ;This met hod suppor ts calling  Remote Pr ocedures ( RPCs) from  a VSA ser vice.
  473       ;
  474       ;###INPUT
  475       ;
  476       ;|Paramet er|Require d/Optional |Descripti on|
  477       ;|------- --|------- ---------- |--------- --|
  478       ;|RPC NAM E |(R)                |The RPC N ame from t he Remote  Procedure  file|
  479       ;|DUZ       |(R)                |The logge d on users  Internal  ID|
  480       ;|RPC CON TEXT |(O)             |This is a n RPC Cont ext Option  that can  be used to  check if  the user h as access  to this RP C. This is  optional. |
  481       ;|PARAMS, n,TYPE |(O )          |This is t he list of  input par ameters re quired by  the RPC be ing called . The valu e for 'n'  is the ord inal posit ion of the  input par ameter. Th e two type s of input  parameter s are LITE RAL and LI ST.|
  482       ;
  483       ;####RPC  Input Para meter Type s
  484       ;
  485       ;|Paramet er Type |D escription    |
  486       ;|------- --------|- ---------- ---|
  487       ;|LITERAL         |A  literal s tring valu e|
  488       ;|LIST            |A n array of  string va lues.|
  489       ;
  490       ;####Exam ple of a L IST local  array para meters:
  491       ;
  492       ;    ^TMP ($J,"XSA", "RPC","DUZ ")=DUZ
  493       ;    ^TMP ($J,"XSA", "RPC","RPC  NAME")="X OBV TEST L OCAL ARRAY "
  494       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",1,"LI ST","XOBAR R(1)")="TH IS IS THE  FIRST LINE  OF TEXT"
  495       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",1,"LI ST","XOBAR R(2)")="TH IS IS THE  SECOND LIN E OF TEXT"
  496       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",1,"LI ST","XOBAR R(3)")="TH IS IS THE  THIRD LINE  OF TEXT"
  497       ;
  498       ;####Exam ple of Mul tiple LIST  array par ameters in  the same  RPC call:
  499       ;
  500       ;    ^TMP ($J,"XSA", "RPC","DUZ ")=DUZ
  501       ;    ^TMP ($J,"XSA", "RPC","RPC  NAME")="X OBV TEST M ULT ARRAY  PARAMS"
  502       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",1,"LI ST","XOBAR R1(1)")="T HIS IS THE  FIRST LIN E OF TEXT"
  503       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",1,"LI ST","XOBAR R1(2)")="T HIS IS THE  SECOND LI NE OF TEXT "
  504       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",1,"LI ST","XOBAR R1(3)")="T HIS IS THE  THIRD LIN E OF TEXT"
  505       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",2,"LI ST","XOBAR R2(1)")="T HIS IS THE  FIRST LIN E OF TEXT"
  506       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",2,"LI ST","XOBAR R2(2)")="T HIS IS THE  SECOND LI NE OF TEXT "
  507       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",2,"LI ST","XOBAR R2(3)")="T HIS IS THE  THIRD LIN E OF TEXT"
  508       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",3,"LI ST","XOBAR R3(1)")="T HIS IS THE  FIRST LIN E OF TEXT"
  509       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",3,"LI ST","XOBAR R3(2)")="T HIS IS THE  SECOND LI NE OF TEXT "
  510       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",3,"LI ST","XOBAR R3(3)")="T HIS IS THE  THIRD LIN E OF TEXT"
  511       ;
  512       ;####Exam ple of a L ITERAL str ing parame ter:
  513       ;
  514       ;    ^TMP ($J,"XSA", "RPC","DUZ ")=DUZ
  515       ;    ^TMP ($J,"XSA", "RPC","RPC  NAME")="X OBV TEST S TRING"
  516       ;    ^TMP ($J,"XSA", "RPC","PAR AMS",1,"LI TERAL",)=" THIS IS A  STRING"
  517       ;
  518       ;
  519       ;###OUTPU T
  520       ;
  521       ;|Paramet er|Require d/Optional |Descripti on|
  522       ;|------- --|------- ---------- |--------- --|
  523       ;|TARGET    |(R)                |The outpu t is relev ant to the  RPC outpu t and can  be in the  form of ar ray or lit eral strin g.|
  524       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  525       ;
  526       ;##IAMAU( SOURCE,TAR GET)
  527       ;
  528       ;This res tricted fu nction is  used exclu sively by  the Identi ty and Acc ess Manage ment (IAM)  Provision ing applic ation to a dd a user  to the Vis tA NEW PER SON file ( #200).
  529       ;
  530       ;The XUSP F200 Secur ity Key is  required  to add a u ser withou t an SSN ( file #200  special pr ivileges).
  531       ;
  532       ;###INPUT
  533       ;
  534       ;|Paramet er|Require d/Optional |Descripti on|
  535       ;|------- --|------- ---------- |--------- --|
  536       ;|NAME      |(R)                |SubjectID  to be use d in SAML  Token|
  537       ;|SECID     |(R)                |UniqueUse rID to be  used in SS Oi or SSOe  SAML Toke n|
  538       ;|EMAIL     |(O)                |User's e- mail addre ss|
  539       ;|ADUPN     |(O)                |Active Di rectory Us er Princip le Name|
  540       ;|SSN       |(O)                |User's So cial Secur ity Number  or Taxpay er Identif ication Nu mber|
  541       ;|DOB       |(O)                |User's Da te of Birt h|
  542       ;|STATION   |(O)                |NEW PERSO N file (#2 00) DIVISI ON|
  543       ;|AUTHCOD E |(R)                |Security  Phrase for  IAM Provi sioning Ap plication|
  544       ;
  545       ;###OUTPU T
  546       ;
  547       ;|Paramet er|Require d/Optional |Descripti on|
  548       ;|------- --|------- ---------- |--------- --|
  549       ;|TARGET    |(R)                |The outpu t in the T ARGET arra y will be  "DUZ^STATI ON" if suc cessful|
  550       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  551       ;
  552       ;##IAMEU( SOURCE,TAR GET)
  553       ;
  554       ;This res tricted RP C is used  exclusivel y by the I dentity an d Access M anagement  (IAM) Prov isioning a pplication  to edit a n existing  user in t he VistA N EW PERSON  file (#200 ).
  555       ;The XUSH OWSSN Secu rity Key i s required  to edit P ersonally  Identifiab le Informa tion (PII)  such as S ocial Secu rity Numbe r (SSN) or  Date of B irth (DOB) .
  556       ;
  557       ;The XUSP F200 Secur ity Key is  required  to edit a  user witho ut an SSN  (file #200  special p rivileges) .
  558       ;
  559       ;###INPUT
  560       ;
  561       ;|Paramet er|Require d/Optional |Descripti on|
  562       ;|------- --|------- ---------- |--------- --|
  563       ;|INARRY    |(R)                |Input arr ay of fiel ds to be e dited|
  564       ;|AUTHCOD E |(R)                |Security  Phrase for  IAM Provi sioning Ap plication|
  565       ;
  566       ;####Inpu t Array va lues
  567       ;|INARRY  ID         |Descripti on      |
  568       ;|------- ---------- |--------- --------|
  569       ;|SECID              |SecID (no t edited,  but used t o identify  entry to  be edited) |
  570       ;|LASTNAM E          |User last  name|
  571       ;|FIRSTNA ME         |User firs t name|
  572       ;|MIDDLEN AME        |User midd le name|
  573       ;|SUFFIX             |User suff ix|
  574       ;|ORGANIZ ATIONNAME  |SUBJECT O RGANIZATIO N (Organiz ation Name )|
  575       ;|ORGANIZ ATIONID    |SUBJECT O RGANIZATIO N ID (Orga nization I D)|
  576       ;|EMAIL              |EMAIL ADD RESS (E-ma il Address )|
  577       ;|ADUPN              |ADUPN (Ac tive Direc tory UPN)|
  578       ;|SSN                |SSN (Soci al Securit y Number)|
  579       ;|DOB                |DOB (Date  of Birth) |
  580       ;
  581       ;###OUTPU T
  582       ;
  583       ;|Paramet er|Require d/Optional |Descripti on|
  584       ;|------- --|------- ---------- |--------- --|
  585       ;|TARGET    |(R)                |The outpu t in the T ARGET arra y will be  the DUZ of  NEW PERSO N file ent ry that wa s edited|
  586       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  587       ;
  588       ;##IAMDU( SOURCE,TAR GET)
  589       ;
  590       ;This res tricted PR C is used  exclusivel y by the I dentity an d Access M anagement  (IAM) Prov isioning a pplication  to displa y a VistA  user.
  591       ;The XUSH OWSSN Secu rity Key i s required  to displa y Personal ly Identif iable Info rmation (P II) such a s Social S ecurity Nu mber (SSN)  or Date o f Birth
  592       ;
  593       ;###INPUT
  594       ;
  595       ;|Paramet er|Require d/Optional |Descripti on|
  596       ;|------- --|------- ---------- |--------- --|
  597       ;|DISPDUZ   |(R)                |DUZ (IEN)  of user t o be displ ayed.|
  598       ;|AUTHCOD E |(R)                |Security  Phrase for  IAM Provi sioning Ap plication. |
  599       ;
  600       ;###OUTPU T
  601       ;
  602       ;|Paramet er|Require d/Optional |Descripti on|
  603       ;|------- --|------- ---------- |--------- --|
  604       ;|TARGET    |(R)                |Array of  User Attri butes|
  605       ;
  606       ;####Exam ple of TAR GET array:
  607       ;
  608       ;    ^TMP ($J,"XSA", "IAM","res ults",0) =  1
  609       ;    ^TMP ($J,"XSA", "IAM","res ults","NAM E") = NAME
  610       ;    ^TMP ($J,"XSA", "IAM","res ults","LAS TNAME") =  Family Nam e
  611       ;    ^TMP ($J,"XSA", "IAM","res ults","FIR STNAME") =  Given Nam e
  612       ;    ^TMP ($J,"XSA", "IAM","res ults","MID DLENAME")  = Middle N ame
  613       ;    ^TMP ($J,"XSA", "IAM","res ults","SUF FIX") = Su ffix(es)
  614       ;    ^TMP ($J,"XSA", "IAM","res ults","INI TIAL") = I NITIAL
  615       ;    ^TMP ($J,"XSA", "IAM","res ults","TIT LE") = TIT LE
  616       ;    ^TMP ($J,"XSA", "IAM","res ults","NIC K_NAME") =  NICK NAME
  617       ;    ^TMP ($J,"XSA", "IAM","res ults","SSN ") = SSN ( <Hidden> i f caller d oes not ho ld XUSHOWS SN key)
  618       ;    ^TMP ($J,"XSA", "IAM","res ults","DOB ") = DOB ( <Hidden> i f caller d oes not ho ld XUSHOWS SN key)
  619       ;    ^TMP ($J,"XSA", "IAM","res ults","DEG REE") = DE GREE
  620       ;    ^TMP ($J,"XSA", "IAM","res ults","MAI L_CODE") =  MAIL CODE
  621       ;    ^TMP ($J,"XSA", "IAM","res ults","STA TUS") = $$ ACTIVE^XUS ER(DISPDUZ )
  622       ;    ^TMP ($J,"XSA", "IAM","res ults","DIS USER") = D ISUSER
  623       ;    ^TMP ($J,"XSA", "IAM","res ults","TER MINATION_D ATE") = TE RMINATION  DATE
  624       ;    ^TMP ($J,"XSA", "IAM","res ults","TER MINATION_R EASON") =  TERMINATIO N REASON
  625       ;    ^TMP ($J,"XSA", "IAM","res ults","PRI MARY_MENU_ OPTION") =  PRIMARY M ENU OPTION
  626       ;    ^TMP ($J,"XSA", "IAM","res ults","SEC ONDARY_MEN U_OPTION", 0) = SECON DARY MENU  OPTION (#  of entries )
  627       ;    ^TMP ($J,"XSA", "IAM","res ults","SEC ONDARY_MEN U_OPTION", 1) to R("S ECONDARY_M ENU_OPTION ",n) = ent ries
  628       ;    ^TMP ($J,"XSA", "IAM","res ults","FIL E_MANAGER_ ACCESS_COD E") = FILE  MANAGER A CCESS CODE
  629       ;    ^TMP ($J,"XSA", "IAM","res ults","DIV ISION",0)  = DIVISION  (number o f entries)
  630       ;    ^TMP ($J,"XSA", "IAM","res ults","DIV ISION",1)  to R("DIVI SION",n) =  DIVISION  entries
  631       ;    ^TMP ($J,"XSA", "IAM","res ults","SER VICE_SECTI ON") = SER VICE/SECTI ON
  632       ;    ^TMP ($J,"XSA", "IAM","res ults","SUB JECT_ALTER NATIVE_NAM E") = SUBJ ECT ALTERN ATIVE NAME
  633       ;    ^TMP ($J,"XSA", "IAM","res ults","SEC ID") = SEC ID
  634       ;    ^TMP ($J,"XSA", "IAM","res ults","ORG ANIZATION_ NAME") = S UBJECT ORG ANIZATION
  635       ;    ^TMP ($J,"XSA", "IAM","res ults","ORG ANIZATION_ ID") = SUB JECT ORGAN IZATION ID
  636       ;    ^TMP ($J,"XSA", "IAM","res ults","UNI QUE_USER_I D") = UNIQ UE USER ID
  637       ;    ^TMP ($J,"XSA", "IAM","res ults","NET WORK_USER_ NAME") = N ETWORK USE RNAME
  638       ;    ^TMP ($J,"XSA", "IAM","res ults","ADU PN") = AD  UPN
  639       ;    ^TMP ($J,"XSA", "IAM","res ults","EMA IL") = EMA IL ADDRESS
  640       ;    ^TMP ($J,"XSA", "IAM","res ults","GEN DER") = SE X (M/F) 
  641       ;
  642       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  643       ;
  644       ;##IAMFU( SOURCE,TAR GET)
  645       ;
  646       ;This res tricted RP C is used  exclusivel y by the I dentity an d Access M anagement  (IAM) Prov isioning a pplication  to find a  list of u sers that  satisfy a  collection  of input  criteria.
  647       ;One or m ore of the  input arr ay values  must be se t by the c alling app lication. 
  648       ;The XUSH OWSSN Secu rity Key i s required  to do loo kups using  Personall y Identifi able Infor mation (PI I) such as  Social Se curity Num ber
  649       ;
  650       ;###INPUT
  651       ;
  652       ;|Paramet er|Require d/Optional |Descripti on|
  653       ;|------- --|------- ---------- |--------- --|
  654       ;|NAME      |(O)                |Search on  user name |
  655       ;|SSN       |(O)                |Search on  user Soci al Securit y Number ( SSN).|
  656       ;|DOB       |(O)                |Search on  user Date  of Birth  (DOB).|
  657       ;|ADUPN     |(O)                |Search on  user Acti ve Directo ry UPN.|
  658       ;|SECID     |(R)                |Search on  user Secu rity ID.|
  659       ;|AUTHCOD E |(R)                |Security  Phrase for  IAM Provi sioning Ap plication|
  660       ;
  661       ;###OUTPU T
  662       ;
  663       ;|Paramet er|Require d/Optional |Descripti on|
  664       ;|------- --|------- ---------- |--------- --|
  665       ;|TARGET    |(R)                |A list of  found use rs in the  TARGET res ults with  the values : "DUZ^Nam e^Name Com ponents^SS N^Dob^AD U PN^SecID"|
  666       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  667       ;
  668       ;##IAMRU( SOURCE,TAR GET)
  669       ;
  670       ;This res tricted fu nction is  used exclu sively by  the Identi ty and Acc ess Manage ment (IAM)  Provision ing applic ation reac tivate an  existing u ser in the  VistA NEW  PERSON fi le (#200).
  671       ;
  672       ;###INPUT
  673       ;
  674       ;|Paramet er|Require d/Optional |Descripti on|
  675       ;|------- --|------- ---------- |--------- --|
  676       ;|SECID     |(R)                |SECID fie ld (#205.1 ) in the N EW PERSON  file (#200 ) to match  the SecID  in the us er's SAML  Token.|
  677       ;|AUTHCOD E |(R)                |Security  Phrase for  IAM Provi sioning Ap plication|
  678       ;
  679       ;###OUTPU T
  680       ;
  681       ;|Paramet er|Require d/Optional |Descripti on|
  682       ;|------- --|------- ---------- |--------- --|
  683       ;|TARGET    |(R)                |A value o f '1' is r eturned if  the call  was succes sful|
  684       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  685       ;
  686       ;##IAMTU( SOURCE,TAR GET)
  687       ;This res tricted fu nction is  used exclu sively by  the Identi ty and Acc ess Manage ment (IAM)  Provision ing applic ation to t erminate a n existing  user in t he VistA N EW PERSON  file (#200 ).
  688       ;
  689       ;###INPUT
  690       ;
  691       ;|Paramet er|Require d/Optional |Descripti on|
  692       ;|------- --|------- ---------- |--------- --|
  693       ;|SECID     |(R)                |SECID fie ld (#205.1 ) in the N EW PERSON  file (#200 ) to match  the SecID  in the us er's SAML  Token.|
  694       ;|TERMDAT E |(R)                |TERMINATI ON DATE fi eld (#9.2)  in the NE W PERSON f ile (#200) .|
  695       ;|TERMRES N |(R)                |Terminati on Reason  field (#9. 4) in the  NEW PERSON  file (#20 0).|
  696       ;|AUTHCOD E |(R)                |Security  Phrase for  IAM Provi sioning Ap plication|
  697       ;
  698       ;###OUTPU T
  699       ;
  700       ;|Paramet er|Require d/Optional |Descripti on|
  701       ;|------- --|------- ---------- |--------- --|
  702       ;|TARGET    |(R)                |A value o f '1' is r eturned if  the call  was succes sful|
  703       ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ----
  704      ]]>
  705     </Routine>
  706    
  707    
  708     <Routine 
  709      name="XSAP XDV1" 
  710      type="INT"  
  711      languagemo de="0" 
  712      timestamp= "64097,419 39.445272"
  713     >
  714      <![CDATA[
  715      XSAPXDV1 ; DAL/BNT -  VistA Serv ices Assem bler DEV F unctions;1 /27/2016
  716       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15
  717       ;
  718       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  719       ;
  720       Q
  721       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  722       ;
  723       ;   The f unctions i n this rou tine are i nternal fo r the VSA  Developmen t Team
  724       ;   there  is curren tly no pla n or contr act to rel ease these  functions .
  725       ;   No In tegration  Agreements  are in pl ace for th e external  calls.
  726       ;
  727      DISTKIDS(S OURCE,TARG ET) ; Dist ribute a K IDS build  as a Host  File
  728       N XSAERR, RESULTS,XS ASYM,RES
  729       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  730       N X F X=" NAME","COM MENT","PAT H" D INITP ARM^XSAPXU TL(.X)
  731       I NAME']" " D  Q $$R ESULT^XSAP XUTL()
  732       . D BLDER ROR^XSAPXU TL(1,"KIDS  Build Nam e is requi red","DIST KIDS^XSAPX DV1")
  733       I PATH']" " D  Q $$R ESULT^XSAP XUTL()
  734       . D BLDER ROR^XSAPXU TL(1,"PATH  is requir ed","DISTK IDS^XSAPXD V1")
  735       S RES=$$T RNSPORT(NA ME,COMMENT ,PATH)
  736       I +RES D   Q $$RESUL T^XSAPXUTL ()
  737       . D BLDER ROR^XSAPXU TL(+RES,$P (RES,U,2), "DISTKIDS^ XSAPXDV1")
  738       S @TARGET @("results ","result" )=$P(RES,U ,2)
  739       Q $$RESUL T^XSAPXUTL ()
  740       ;
  741       ; Example  Call:
  742       ; CPM>W $ $TRNSPORT^ XSAPXDV1(" VSA*1.0*1" ,"Initial  Build","C: \Test\VSA_ 1.0_1.KID" )
  743       ;     0^P ackage Tra nsported S uccessfull y
  744       ;
  745      TRNSPORT(X PDNM,XPDH, FIL) ; Tra nsport a D istributio n as a Hos t File
  746       ; Input:  XPDNM  = ( R) KIDS Bu ild Name
  747       ;         XPDH   = ( O) Comment  Header fo r Host Fil e Defaults  to: KIDS  Build Name _" Build F ile"
  748       ;         FIL    = ( R) Fully Q ualified H ost File N ame "C:\Te mp\VSA*1.0 *1.KID"
  749       ;
  750       N DIR,DIR UT,I,POP,X PD,XPDERR, XPDGP,XPDG REF,XPDH1, XPDHD,XPDI ,XPDSEQ,XP DSIZ,XPDSI ZA,XPDT,XP DTP,XPDVER
  751       N DUOUT,D TOUT,XPDFM SG,X,Y,Z,Z 1,DIR,IOP, %ZIS,XPDRE Q
  752       K ^TMP($J ,"XPD") S  (XPDERR,XP DT)=0
  753       S XPDA=$O (^XPD(9.6, "B",XPDNM, 0))
  754       Q:'XPDA " 200^KIDS B uild does  not exist"
  755       ; Check i f Transpor t Global a lready exi sts
  756       I $D(^XTM P("XPDT",X PDA)) Q "1 00^Transpo rt Global  Already Ex ists"
  757       I XPDH=""  S XPDH=XP DNM_" Buil d File"
  758       L +^XPD(9 .6,XPDA):0  E  Q "100 ^Being acc essed by a nother use r"
  759       ;
  760       S XPDGREF ="^XTMP("" XPDT"","_+ XPDA_",""T EMP"")"
  761       ;if packa ge file li nk then se t XPDVER=v ersion num ber^packag e name
  762       S XPDA=+X PDA,XPDVER =$S($P(^XP D(9.6,XPDA ,0),U,2):$ $VER^XPDUT L(XPDNM)_U _$$PKG^XPD UTL(XPDNM) ,1:"")
  763       S $P(^XPD (9.6,XPDA, 6.3),U)=$G (^XPD(9.6, XPDA,6.3)) +1
  764       K ^XTMP(" XPDT",XPDA )
  765       ; Get Pac kage Build
  766       D PCK(XPD A,XPDNM)
  767       ; Get Pac kage Requi red Builds
  768       N X,Z,Z1  S X="" F   S X=$O(^XP D(9.6,XPDA ,10,X)) Q: 'X  S Z=$P ($G(^(X,0) ),U),Z1=$P ($G(^(0)), U,2) D:Z]" "
  769       . N XPDA1 ,X
  770       . S XPDA1 =$O(^XPD(9 .6,"B",Z,0 ))
  771       . I 'XPDA 1 Q
  772       . I $D(XP DT("DA",XP DA1)) Q
  773       . D PCK(X PDA1,Z,Z1)
  774       ; Write t he KIDS Fi le Header
  775       D HDR(FIL ,XPDH) I P OP Q "300^ Incorrect  Host File  Name"
  776       S XPDERR= $$BLD(XPDA ) Q:+XPDER R XPDERR
  777       N XPDERR
  778       ;
  779       F X="DD^X PDTC","KRN ^XPDTC","Q UES^XPDTC" ,"INT^XPDT C" D @X G: $D(XPDERR)  ABORT
  780       I $D(XPDE RR) Q XPDE RR
  781       ; If ther e is a Pre -Transport  routine,  run it.
  782       N Y,Z S Y =$G(^XPD(9 .6,XPDA,"P RET"))
  783       I +Y I $$ RTN^XPDV(Y ,.Z) D
  784       . S Y=$S( Y["^":Y,1: "^"_Y)
  785       . D @Y Q
  786       D GO
  787       D QUIT
  788       Q "0^Pack age Transp orted Succ essfully"
  789       ;
  790      HDR(FIL,XP DH) ;
  791       N DIR,IOP ,X,Y,%ZIS
  792       D HOME^%Z IS
  793       S POP=0
  794       ;if no fi le, then q uit
  795       S %ZIS="" ,%ZIS("HFS NAME")=FIL ,%ZIS("HFS MODE")="W" ,IOP="HFS" ,(XPDSIZ,X PDSIZA)=0, XPDSEQ=1
  796       D ^%ZIS I  POP Q
  797       ;write da te and com ment heade r
  798       S XPDHD=" KIDS Distr ibution sa ved on "_$ $HTE^XLFDT ($H)
  799       U IO W $$ SUM(XPDHD) ,!,$$SUM(X PDH),!
  800       ;U IO(0)  is to insu re I am wr iting to t he termina l
  801       U IO(0) Q
  802       ;
  803      SUM(X,Z) ; X=string t o write, Z  0=don't c heck size
  804       S XPDSIZA =XPDSIZA+$ L(X)+2
  805       Q X
  806       ;
  807      PCK(XPDA,X PDNM,XPDRE Q) ;XPDA=B uild ien,  XPDNM=Buil d name, XP DREQ=Requi red
  808       N Y
  809       S XPDT=XP DT+1,XPDT( XPDT)=XPDA _U_XPDNM,X PDT("DA",X PDA)=XPDT
  810       S:'$G(XPD REQ) XPDRE Q=0
  811       S $P(XPDT (XPDT),U,4 )=XPDREQ
  812       Q
  813       ;
  814      BLD(XPDA)  ;build Bui ld file, P ackage fil e and Orde r Paramete r file
  815       N %,DIC,X ,XPD,XPDI, XPDV,Y,XPD ERR
  816       S XPDERR= 0
  817       ;Update t he 'Date D istributed ' field
  818       S XPD(9.6 ,XPDA_",", .02)=$$DT^ XLFDT()
  819       D FILE^DI E("","XPD" ) K XPD
  820       ;save ver sion of ke rnel and f m
  821       S ^XTMP(" XPDT",XPDA ,"VER")=$$ VERSION^XP DUTL("XU") _U_$$VERSI ON^XPDUTL( "VA FILEMA N")
  822       S ^XTMP(" XPDT",XPDA ,"MBREQ")= $P($G(XPDT (XPDT)),U, 4)
  823       M ^XTMP(" XPDT",XPDA ,"BLD",XPD A)=^XPD(9. 6,XPDA)
  824       ;check na tional pac kage file  pointer
  825       S XPDI=$P (^XPD(9.6, XPDA,0),U, 2)
  826       I XPDI=""  Q 0_"^No  Package Fi le Link"
  827       S $P(^XTM P("XPDT",X PDA,"BLD", XPDA,0),U, 2)=$$PT^XP DTA("^DIC( 9.4)",XPDI )
  828       ;quit if  no pointer  to packag e file
  829       ;I '$D(^D IC(9.4,XPD I)) Q 1_"^ Package Fi le Link is  corrupted "
  830       ;update v ersion mul tiple in p ackage fil e,XPD=vers ion^date d istributed
  831       S XPD=$$V ER^XPDUTL( XPDNM)_U_$ P(^XTMP("X PDT",XPDA, "BLD",XPDA ,0),U,4)
  832       ;XPD(1)=r oot of des cription f ield
  833       S:$D(^XTM P("XPDT",X PDA,"BLD", XPDA,1)) X PD(1)=$NA( ^(1))
  834       S ^XTMP(" XPDT",XPDA ,"PKG",XPD I,0)=^DIC( 9.4,XPDI,0 ),^XTMP("X PDT",XPDA, "PKG",XPDI ,22,0)="^" _$P(^DD(9. 4,22,0),U, 2)_"^1^1"
  835       ;add node  20 to XTM P for Pati ent Merge
  836       M ^XTMP(" XPDT",XPDA ,"PKG",XPD I,20)=^DIC (9.4,XPDI, 20)
  837       ;XPDNM'[" *" is a ve rsion rele ase
  838       I XPDNM'[ "*" D  Q:+ XPDERR XPD ERR
  839       .S XPDV=$ $PKGVER^XP DIP(XPDI,. XPD)
  840       .;Merge i s used to  set single  nodes and  merge mul tiples
  841       .F %=1,5, 7,20,"DEV" ,"VERSION"  M ^XTMP(" XPDT",XPDA ,"PKG",XPD I,%)=^DIC( 9.4,XPDI,% )
  842       .;XPDV=ie n of Versi on Multipl e
  843       .I $D(^DI C(9.4,XPDI ,22,XPDV)) '>9 S XPDE RR=1_"^**V ersion mul tiple in P ackage fil e wasn't u pdated**"
  844       .;get jus t the curr ent versio n multiple  and make  it the fir st entry i n version  multiple
  845       .M ^XTMP( "XPDT",XPD A,"PKG",XP DI,22,1)=^ DIC(9.4,XP DI,22,XPDV )
  846       .;check i f SEND PAT CH HISTORY  is NO, ki ll PAH
  847       .I $P(XPD T(XPDT),U, 5) K ^XTMP ("XPDT",XP DA,"PKG",X PDI,22,1," PAH")
  848       ;this is  a patch, % =version n umber, $P( XPD,U)=pat ch number
  849       E  D  Q:+ XPDERR XPD ERR
  850       .S %=$P(X PD,U),$P(X PD,U)=$P(X PDNM,"*",3 ),XPDV=$$P KGPAT^XPDI P(XPDI,%,. XPD)
  851       .S ^XTMP( "XPDT",XPD A,"PKG",XP DI,22,1,0) =^DIC(9.4, XPDI,22,+X PDV,0)
  852       .I $D(^DI C(9.4,XPDI ,22,+XPDV, "PAH",+$P( XPDV,U,2)) )'>9 S XPD ERR=1_"^** Patch mult iple in Pa ckage file  wasn't up dated**"
  853       .M ^XTMP( "XPDT",XPD A,"PKG",XP DI,22,1,"P AH",1)=^DI C(9.4,XPDI ,22,+XPDV, "PAH",+$P( XPDV,U,2))
  854       .;if CURR ENT VERSIO N was upda ted in $$P KGPAT, sav e to TG
  855       .I $P(XPD V,U,3) S ^ XTMP("XPDT ",XPDA,"PK G",XPDI,"V ERSION")=$ P(XPDV,U,3 )
  856       ;save the  version i en^patch i en on -1 n ode
  857       S ^XTMP(" XPDT",XPDA ,"PKG",XPD I,-1)="1^1 "
  858       ;resolve  Primary He lp Frame ( 0;4)
  859       S %=+$P(^ DIC(9.4,XP DI,0),U,4)  S:% $P(^X TMP("XPDT" ,XPDA,"PKG ",XPDI,0), U,4)=$$PT^ XPDTA("^DI C(9.2)",%)
  860       Q 0
  861       ;
  862      GO S I=1,Y ="",XPDH1= "**KIDS**: " U IO
  863       ;Global P ackage, he ader is di fferent an d there is  only 1 pa ckage
  864       I $D(XPDG P) W $$SUM ("**KIDS** GLOBALS:"_ $P(XPDT(1) ,U,2)_U_XP DGP),! G G O1
  865       ;write he ader that  maintains  package li st, keep l ess than 2 55 char
  866       F  D  W $ $SUM(XPDH1 _Y),! Q:I= XPDT  S Y= "",I=I+1,X PDH1="**KI DS**"
  867       .F I=I:1  S Y=Y_$P(X PDT(I),U,2 )_"^" Q:$L (Y)>200!(I =XPDT)
  868       ;after th e package  list write  an extra  line feed
  869      GO1 W ! S  XPDSIZA=XP DSIZA+2
  870       N XMSUB,X MY,XMTEXT
  871       ;loop thr u & write  global, do n't kill i f set to p ermanent,  set in XPD IU
  872       F XPDT=1: 1:XPDT S X PDA=+XPDT( XPDT),XPDN M=$P(XPDT( XPDT),U,2)  D GW,XM K :'$G(^XTMP ("XPDT",XP DA)) ^(XPD A)
  873       W "**END* *",!
  874       ;GLOBAL P ACKAGE the re could o nly be one  package,  write glob als
  875       I $D(XPDG P) D GPW W  "**END**" ,!
  876       ;we're do ne with de vice, clos e it
  877       W "**END* *",! D ^%Z ISC
  878       Q
  879      GW ;global  write
  880       N GR,GCK, GL
  881       S GCK="^X TMP(""XPDT "","_XPDA, GR=GCK_")" ,GCK=GCK_" ,",GL=$L(G CK)
  882       ;INSTALL  NAME line  will mark  the beginn ing of glo bal for al l lines un til
  883       ;the next  INSTALL N AME
  884       W $$SUM(" **INSTALL  NAME**",1) ,!,$$SUM(X PDNM),!
  885       F  Q:$D(D IRUT)  S G R=$Q(@GR)  Q:GR=""!($ E(GR,1,GL) '=GCK)  W  $$SUM($P(G R,GCK,2),1 ),!,$$SUM( @GR),!
  886       Q
  887      XM ;Send H FS checksu m message
  888       Q:'$G(XPD FMSG)
  889       N XMTEXT, C,RN,RN2,X ,X2
  890       K ^TMP($J )
  891       S XMSUB=" **KIDS** C hecksum fo r "_XPDNM, XMTEXT="^T MP($J)"
  892       I $G(^XMB ("NETNAME" ))["VA.GOV " S XMY("S .A1AE HFS  CHKSUM SVR @FORUM.VA. GOV")=""
  893       E  S X=$$ GET^XPAR(" PKG","XPD  PATCH HFS  SERVER",1, "Q") S:$L( X) XMY(X)= ""
  894       I '$D(XMY ) Q  ;No o ne to send  it to.
  895       S C=1,@XM TEXT@(1,0) ="~~1:"_XP DNM
  896       I XPDT=1, $O(XPDT(1) ) D
  897       . S RN=1  F  S RN=$O (XPDT(RN))  Q:'RN  S  C=C+1,@XMT EXT@(C,0)= "~~2:"_$P( XPDT(RN)," ^",2)
  898       S (RN,RN2 )="" ;Send  full RTN  node
  899       F  S RN=$ O(^XTMP("X PDT",XPDA, "RTN",RN))  Q:'$L(RN)   S X=^(RN ),X2=$G(^( RN,2,0)) D
  900       . S C=C+1 ,@XMTEXT@( C,0)="~~3: "_RN_"^"_X _"^"_$P(X2 ,";",5)
  901       . I RN2=" ",$E(X2,1, 3)=" ;;" S  RN2=$P(X2 ,"**",1)_" **[Patch L ist]**"_$P (X2,"**",3 )
  902       S C=C+1,@ XMTEXT@(C, 0)="~~4:"_ RN2
  903       S C=C+1,@ XMTEXT@(C, 0)="~~8:"_ $G(^XMB("N ETNAME"))
  904       S C=C+1,@ XMTEXT@(C, 0)="~~9:Sa ve"
  905       S XMTEXT= "^TMP($J,"
  906       D ^XMD
  907       Q
  908      GPW ;globa l package  write
  909       N I,G,GR, GCK,GL
  910       W !
  911       F I=1:1 S  G=$P(XPDG P,U,I) Q:G =""  D
  912       .S GR="^" _$P(G,";", 2),GCK=$S( GR[")":$E( GR,1,$L(GR )-1)_",",1 :GR_"("),G L=$L(GCK)
  913       .;GLOBAL  line will  mark the b eginning o f global f or all lin es until
  914       .;the nex t GLOBAL
  915       .W $$SUM( "**GLOBAL* *",1),!,$$ SUM(GR),!
  916       .F  Q:$D( DIRUT)  S  GR=$Q(@GR)  Q:GR=""!( $E(GR,1,GL )'=GCK)  W  $$SUM($P( GR,GCK,2), 1),!,$$SUM (@GR),!
  917       Q
  918      QUIT F XPD T=1:1:XPDT  L -^XPD(9 .6,+XPDT(X PDT))
  919       Q
  920      ABORT ;
  921       D QUIT
  922       F XPDT=1: 1:XPDT K ^ XTMP("XPDT ",+XPDT(XP DT))
  923       ;if HF, s ave file n ame IO int o XPDH
  924       S:$L(XPDH ) XPDH=IO
  925       D ^%ZISC
  926       ;if HF, t hen delete  file
  927       I $L(XPDH ),$$DEL1^% ZISH(XPDH)
  928       Q XPDERR
  929       ;
  930      EXPORT(PAT H) ; Expor t the XSAP XROUTINES. ro and XSA _1_0.KID f iles to th e specifie d path
  931       N XSAXPRT
  932       I $G(PATH )="" S PAT H=$$DEFDIR ^%ZISH() ; Get defaul t host dir ectory if  PATH is nu ll
  933       I $E(PATH ,$L(PATH)) ="/" S PAT H=$E(PATH, 1,$L(PATH) -1)
  934       D $system .OBJ.Expor t("XSA*.*" ,PATH_"/XS APXROUTINE S.xml")
  935       D $system .OBJ.Expor t("VPSX*.* ,VPS19PST. *,VPSDV1.* ,VPSMUT*.* ,VPSPDO4.* ",PATH_"/V PSROUTINES .xml")
  936       S XSAXPRT =$$TRNSPOR T("XSA 1.0 ","VISTA S ERVICES AS SEMBLER",P ATH_"/XSA_ 1_0.KID")
  937       S XSAXPRT =$$TRNSPOR T("VPS*1.0 *19","VPS  MRAR",PATH _"/VPS_1_1 9.KID")
  938       Q
  939       ;
  940      IMPORT(PAT H) ; Impor t .xml fil es from th e specifie d path
  941       N POP,XPD A,XPDST,XP DIT,XPDT,X PDGP,XPDQU IT,XPDREQA B,XPDSKPE, XPDINME,XP DMSG
  942       I $G(PATH )="" S PAT H=$$DEFDIR ^%ZISH() ; Get defaul t host dir ectory if  PATH is nu ll
  943       I $E(PATH ,$L(PATH)) ="/" S PAT H=$E(PATH, 1,$L(PATH) -1)
  944       D $system .OBJ.Impor tDir(PATH, "*.xml","c ku")
  945       ;S XPDA=$ $LOADKIDS( PATH_"/XSA _1_0.KID")
  946       ;I +XPDA= -1 Q
  947       ;D BACKUP
  948       ;D INSTAL L(XPDA)
  949       Q
  950       ;
  951      REGEN ; Im port the X SAPXROUTIN ES.ro file  when rege n.sh is ex ecuted fro m a Docker  vm
  952       D $system .OBJ.Impor tDir("/vis tajs/mcode /","*.xml" ,"cku")
  953       Q
  954       ;
  955      LOADKIDS(Y ) ; Load a  KIDS buil d. Y=KIDS  file full  path
  956       S:'$D(DT)  DT=$$DT^X LFDT S:'$D (U) U="^"
  957       S XPDST=0  S %ZIS="" ,%ZIS("HFS NAME")=Y,% ZIS("HFSMO DE")="R",I OP="HFS"
  958       D ^%ZIS I  POP S XPD QUIT=1 S X PDMSG="-1^ Unable to  open file"  Q XPDMSG
  959       ;don't cl ose device  if we hav e a global  package,  we need to  bring in  the global s now
  960       D GI,^%ZI SC:'$D(XPD GP)!$G(XPD QUIT)
  961       I $G(XPDQ UIT) D ABR TALL^XPDI( 1) Q XPDMS G
  962       ;XPDST= s tarting Bu ild
  963       ;XPDT("DA ",ien)=seq  # to inst all
  964       ;XPDT("NM ",build na me)=seq #
  965       ;XPDT(seq  #)=ien^Bu ild name
  966       ;XPDT("GP ",global)=  1-replace , 0-overwr ite^ien
  967       ;XPDGP=gl obals from  a Global  Package
  968       ;XPDSKPE= 1 don't ru n Environm ent Check^ has questi on been as ked
  969       S XPDIT=0 ,XPDSKPE=" 0^0"
  970       F  S XPDI T=$O(XPDT( XPDIT)) Q: 'XPDIT  S  XPDA=+XPDT (XPDIT) D   I '$D(XPD T) Q
  971       .D PKG(XP DA)
  972       ;Global P ackage
  973       G:$D(XPDG P) ^XPDIGP
  974       Q XPDA
  975       ;
  976      GI N X,XPD SEQ,Y,Z
  977       U IO R X: 10,Y:10 ;r wf was :0
  978       ;U IO(0)  W !!,X,!," Comment: " ,Y
  979       S XPDST(" H")=Y,XPDS T("H1")=Y_ "  ;Create d on "_$P( X,"KIDS Di stribution  saved on  ",2)
  980       ;Z is the  string of  Builds in  this file
  981       U IO F X= 1:1 R Z:1  S Z=$P(Z," **KIDS**", 2,99) Q:Z= ""  S X(X) =Z
  982       ;U IO(0)  I $G(X(1)) ="" W !!," This is no t a Distri bution HFS  File!" S  XPDQUIT=1  Q
  983       I $G(X(1) )="" S XPD MSG="This  is not a D istributio n HFS File !" S XPDQU IT=1 Q
  984       ;global p ackage, se t XPDGP=fl ag;global^ flag;globa l^...  fla g=1 replac e
  985       I $P(X(1) ,":")="GLO BALS" S XP DGP=$P(X(1 ),U,2,99), X(1)=$P(X( 1),U)
  986       S XPDIT=0 ,X(1)=$P(X (1),":",2, 99)
  987       ;W !!,"Th is Distrib ution cont ains Trans port Globa ls for the  following  Package(s ):"
  988       F X=1:1:X -1 F Z=1:1  S Y=$P(X( X),U,Z) Q: Y=""  D  Q :$G(XPDQUI T)
  989       . ;can't  install if  global ex ist, that  means Buil d never fi nish insta ll
  990       . ;INST w ill show n ame
  991       . S XPDIT =XPDIT+1 I  '$$INST(Y ) S XPDQUI T=1 Q
  992       Q:$G(XPDQ UIT)
  993       ;W !,"Dis tribution  OK!",!
  994       ;D:$D(XPD GP) DISP^X PDIGP
  995       ;S DIR(0) ="Y",DIR(" A")="Want  to Continu e with Loa d",DIR("B" )="YES"
  996       ;D ^DIR I  $D(DIRUT) !'Y S XPDQ UIT=1 Q
  997       ;W !,"Loa ding Distr ibution... ",!
  998       ;reset ex piration d ate to T+7  on transp ort global
  999       S ^XTMP(" XPDI",0)=$ $FMADD^XLF DT(DT,7)_U _DT
  1000       ;start re ading the  HFS again
  1001       U IO R X: 10,Y:10 ;r wf was :0
  1002       ;the next  read must  be the IN STALL NAME
  1003       I X'="**I NSTALL NAM E**"!'$D(X PDT("NM",Y )) S XPDMS G="-1^ERRO R in HFS f ile format !" S XPDQU IT=1 Q
  1004       ;XPDSEQ i s the disk  sequence  number
  1005       S %=XPDT( "NM",Y),GR ="^XTMP("" XPDI"","_+ XPDT(%)_", ",XPDSEQ=1
  1006       ;X=global  ref, Y=gl obal value . DIRUT is  when user  aborts
  1007       ;rwf next  line was  :0
  1008       F  R X:10 ,Y:10 Q:X= "**END**"   D  I $D(D IRUT) S XP DQUIT=1 Q
  1009       .I X="**I NSTALL NAM E**" D  Q
  1010       ..S %=+$G (XPDT("NM" ,Y)) I '%  S DIRUT=1  Q
  1011       ..S GR="^ XTMP(""XPD I"","_+XPD T(%)_","
  1012       .S @(GR_X )=Y
  1013       U IO(0)
  1014       Q
  1015       ;
  1016      PKG(XPDA)  ;check Pac kage file
  1017       N XPD,XPD CP,XPDNM,X PDNOQUE,XP DPKG,X,Y,%
  1018       S XPDNM=$ P(XPDT(XPD IT),U,2) ; W !?3,XPDN M
  1019       ;check KI DS version  against s ites versi on, skip i f package  is Kernel
  1020       I $$PKG^X PDUTL(XPDN M)'["KERNE L" D  I $D (XPDQUIT)  D ABORT^XP DI(XPDA,1)  Q
  1021       .;this is  part of a  Kernel mu lti packag e
  1022       .Q:$O(XPD T("NM","KE RNEL"))["K ERNEL"
  1023       .S Y=$G(^ XTMP("XPDI ",XPDA,"VE R"))
  1024       .I $$VERS ION^XPDUTL ("XU")<Y S  XPDMSG="B ut I need  Version "_ +Y_" of KE RNEL!"  S  XPDQUIT=1
  1025       .I $$VERS ION^XPDUTL ("VA FILEM AN")<$P(Y, U,2) S XPD MSG="But I  Need Vers ion "_+$P( Y,U,2)_" o f VA FILEM AN!" S XPD QUIT=1
  1026       ;get nati onal packa ge name
  1027       S %=$O(^X TMP("XPDI" ,XPDA,"PKG ",0)),XPDP KG(0)=$G(^ (+%,0)),XP DPKG=%
  1028       ;XPDPKG=n ew ien^old  ien
  1029       I XPDPKG  D  S XPDPK G=+Y_U_XPD PKG
  1030       .N D,DIC
  1031       .S DIC="^ DIC(9.4,", DIC(0)="X" ,X=$P(XPDP KG(0),U)
  1032       .D ^DIC Q :Y>0
  1033       .;if look up fails t ry C & C2  x-ref
  1034       .S X=$P(X PDPKG(0),U ,2),DIC(0) ="MX",D="C ^C2" D MIX ^DIC1
  1035       ;add pack age to Ins tall file
  1036       I XPDPKG> 0 S XPD(9. 7,XPDA_"," ,1)=+XPDPK G D FILE^D IE("","XPD ")
  1037       ;XPDSKPE=  does site  want to r un Environ . Check
  1038       I '$G(XPD SKPE) Q:$$ ENV(0)=1
  1039       ;global p ackage can 't have pr e or post  inits
  1040       Q:$D(XPDG P)
  1041       ;create p re-init ch eckpoint
  1042       S XPDCP=" INI" I '$$ NEWCP^XPDU TL("XPD PR EINSTALL C OMPLETED")  D ABORT^X PDI(XPDA,1 ) Q
  1043       S %=$$INR TN("INI")
  1044       ;check fo r routine,  use as ca ll back
  1045       I $L(%),' $$NEWCP^XP DUTL("XPD  PREINSTALL  STARTED", %) D ABORT ^XPDI(XPDA ,1) Q
  1046       ;create p ost-init c heckpoint
  1047       S XPDCP=" INIT" I '$ $NEWCP^XPD UTL("XPD P OSTINSTALL  COMPLETED ") D ABORT ^XPDI(XPDA ,1) Q
  1048       S %=$$INR TN("INIT")
  1049       I $L(%),' $$NEWCP^XP DUTL("XPD  POSTINSTAL L STARTED" ,%) D ABOR T^XPDI(XPD A,1) Q
  1050       ;create f ileman and  component s check po ints and f ile rest o f data
  1051       D XPCK^XP DIK("FIA") ,XPCK^XPDI K("KRN")
  1052       Q
  1053       ;
  1054      INST(XPDNM ) ;add to  Install fi le
  1055       N %X,DIC, DIR,DIRUT, DLAYGO,X,X PD,XPDA,XP DIE,XPDDIQ ,Y,SH
  1056       ;check if  Build was  already i nstalled
  1057       ;XPD=0 ab ort instal l, else XP D=ien in I nstall fil e
  1058       I $D(^XPD (9.7,"B",X PDNM)) S ( SH,Y)=0 D   Q:$D(XPD)  XPD
  1059       . ;W !,"B uild ",XPD NM," has b een loaded  before, h ere is whe n: "
  1060       . F  S Y= $O(^XPD(9. 7,"B",XPDN M,Y)) Q:'Y   D
  1061       .. Q:'$D( ^XPD(9.7,Y ,0))  S %= ^(0)
  1062       .. ;W !?6 ,$P(%,U),"    "
  1063       .. I $P(% ,U,9)<3,$D (^XTMP("XP DI",Y)) S  XPDMSG="** Transport  Global alr eady exist s**" S XPD =0 Q
  1064       .. ;S %X= $X W $$EXT ERNAL^DILF D(9.7,.02, "",$P(%,U, 9)),!?%X," was loaded  on ",$$FM TE^XLFDT($ P($G(^XPD( 9.7,Y,1)), U))
  1065       . ;quit i f transpor t global e xist
  1066       . Q:$D(XP D)
  1067       . ;S DIR( 0)="Y",DIR ("A")="OK  to continu e with Loa d",DIR("B" )="NO"
  1068       . ;D ^DIR  W ! I $D( DIRUT)!'Y  S XPD=0 Q
  1069       S DIC="^X PD(9.7,",D IC(0)="XL" ,DLAYGO=9. 7,X=""""_X PDNM_""""
  1070       ;add to I nstall fil e, must be  new
  1071       D ^DIC
  1072       I Y<0 S S H=0 S XPDM SG="Can't  add Build  "_XPDNM_"  to Install  File" Q 0
  1073       ;set star ting packa ge to Y, i f it is no t already  defined
  1074       S:'XPDST  XPDST=+Y
  1075       ;XPDT arr ay keeps t rack of al l packages  in this d istributio n
  1076       S XPDA=+Y ,XPDT(XPDI T)=XPDA_U_ XPDNM,(XPD T("DA",XPD A),XPDT("N M",XPDNM)) =XPDIT
  1077       S %="XPDI E(9.7,"""_ XPDA_","") ",@%@(.02) =0,@%@(2)= $$NOW^XLFD T,@%@(3)=X PDST,@%@(4 )=XPDIT,@% @(5)="",@% @(6)=XPDST ("H1")
  1078       D FILE^DI E("","XPDI E")
  1079       ;I '$D(SH ) W !?3,XP DNM ;SH is  set when  some other  part of I NST shows  the name
  1080       Q XPDA
  1081       ;
  1082       ;XPDQUIT  quit curre nt package  install,  1=kill glo bal, 2=lea ve global
  1083       ;XPDQUIT( package) q uit packag e install,  1=kill, 2 =leave
  1084       ;XPDABORT  quit the  entire dis tribution,  1=kill, 2 =leave
  1085       ;XPDENV 0 =loading d istributio n, 1=insta lling
  1086      ENV(XPDENV ) ;environ ment check  & version  check
  1087       ;returns  0=ok, 1=re jected kil l global,  2=rejected  leave glo bal
  1088       N %,DIR,X PDI,XPDQUI T,XPDABORT ,XPDDONE,X PDGREF,XPD MBREQ
  1089       M X=DUZ N  DUZ M DUZ =X S DUZ(0 )="@" ;See  that ENV  check has  full FM pr iv.
  1090       S XPDGREF ="^XTMP("" XPDI"","_X PDA_",""TE MP"")"
  1091       S XPDMBRE Q=$G(^XTMP ("XPDI",XP DA,"MBREQ" ))
  1092       S $P(^XPD (9.7,XPDA, 0),U,7)=XP DMBREQ
  1093       ;check ve rsion numb er
  1094       I XPDPKG> 0 D  I $G( XPDQUIT) D  ABORT^XPD I(XPDA,1)  Q 1
  1095       .N DIR,DI RUT,X,Y
  1096       .S %=+$$V ER^XPDUTL( XPDNM),Y=+ $G(^DIC(9. 4,+XPDPKG, "VERSION") ),X=XPDNM[ "*"
  1097       .;if patc h, version  must be t he same
  1098       .I X,%'=Y  W !,"This  Patch is  for Versio n ",%,", y ou are run ning Versi on ",Y,! S  XPDQUIT=1
  1099       .;if pack age, versi on must be  greater o r equal
  1100       .I 'X,%<Y  W !,"You  have a Ver sion great er than mi ne!",! S X PDQUIT=1
  1101       .Q:'$G(XP DQUIT)
  1102       .I $G(XPD MBREQ) D   S XPDQUIT= 0,XPDDONE= 1 Q
  1103       . . D MES ^XPDUTL("* *ABORT** R equired Bu ild "_XPDN M_", did n ot pass in ternal KID S checks!" ),ABRTALL^ XPDI(1),NO NE^XPDI
  1104       . . Q
  1105       .S DIR(0) ="Y",DIR(" A")="Want  to continu e installi ng this bu ild",DIR(" B")="NO"
  1106       .D ^DIR I  Y K XPDQU IT
  1107       .Q
  1108       Q:$G(XPDD ONE) 1
  1109       S %=$$REQ B I % S (X PDABORT,XP DREQAB)=%  G ABORT2
  1110       S %=$G(^X TMP("XPDI" ,XPDA,"PRE ")) D:%]""
  1111       .W !,"Wil l first ru n the Envi ronment Ch eck Routin e, ",%,!
  1112       .D SAVE^X PDIJ(%),@( "^"_%)
  1113      ABORT2 I $ G(XPDABORT ) D  Q XPD ABORT
  1114       .;if duri ng load &  leave glob al quit
  1115       .I 'XPDEN V,XPDABORT =2 Q
  1116       .D ABRTAL L^XPDI(XPD ABORT)
  1117       Q:'$D(XPD QUIT) 0
  1118       I $G(XPDQ UIT) D ABO RT^XPDI(XP DA,XPDQUIT )
  1119       S XPDI=""
  1120       ;don't do  if loadin g & leave  global, ne ed to keep  XPDT(arra y)
  1121       F  S XPDI =$O(XPDQUI T(XPDI)) Q :XPDI=""   D:'(XPDQUI T(XPDI)=2& 'XPDENV)
  1122       .S %=$G(X PDT("NM",X PDI)) D:%  ABORT^XPDI (+XPDT(%), XPDQUIT(XP DI))
  1123       S XPDQUIT =$S($G(XPD QUIT):XPDQ UIT,'$O(XP DT(0))!'$D (^XTMP("XP DI",XPDA)) :1,1:0)
  1124       Q XPDQUIT
  1125       ;
  1126      REQB() ;ch eck for Re quired Bui lds
  1127       ;returns  0=ok, 1=fa iled kill  global, 2= failed lea ve global
  1128       N XPDACT, XPDBLD,XPD I,XPDQ,XPD QUIT,XPDX, XPDX0,X,Y
  1129       S XPDBLD= $O(^XTMP(" XPDI",XPDA ,"BLD",0)) ,XPDQUIT=0 ,XPDI=0
  1130       Q:'$D(^XT MP("XPDI", XPDA,"BLD" ,XPDBLD,"R EQB")) 0
  1131       F  S XPDI =$O(^XTMP( "XPDI",XPD A,"BLD",XP DBLD,"REQB ",XPDI)) Q :'XPDI  S  XPDX0=^(XP DI,0) D
  1132       .S XPDQ=0 ,XPDX=$P(X PDX0,U),XP DACT=$P(XP DX0,U,2),X =$$PKG^XPD UTL(XPDX), Y=$$VER^XP DUTL(XPDX) ,Z=$$VERSI ON^XPDUTL( X)
  1133       .;quit if  current v ersion is  greater th an what we  are check ing for
  1134       .Q:Z>Y
  1135       .I XPDX'[ "*" S:Z<Y  XPDQ=2
  1136       .E  S:'$$ PATCH^XPDU TL(XPDX) X PDQ=1
  1137       .;quit if  patch is  already on  system
  1138       .Q:'XPDQ
  1139       .;quit if  patch is  sequenced  prior with in this bu ild 
  1140       .I $D(XPD T("NM",XPD X)),(XPDT( "NM",XPDX) <XPDT("NM" ,XPDNM)) S  XPDQ=0 Q
  1141       .S XPDQUI T=$S(XPDAC T>XPDQUIT: XPDACT,1:X PDQUIT)
  1142       .;XPDACT= 0 warning,  =1 abort  & kill glo bal, =2 ab ort
  1143       .S XPDMSG =$S(XPDACT :"**INSTAL L ABORTED* *",1:"**WA RNING**")_ $S(XPDQ=1: " Patch ", 1:" Packag e ")_XPDX_ " is Requi red "_$S(X PDACT:"to  install",1 :"for")_"  this packa ge!!"
  1144       Q:'XPDQUI T 0
  1145       ;don't do  if leave  global and  loading
  1146       D:'(XPDQU IT=2&'XPDE NV) ABORT^ XPDI(XPDA, XPDQUIT)
  1147       Q XPDQUIT
  1148       ;
  1149       ;return a  routine t hat can be  run
  1150      INRTN(X) N  Y
  1151       S Y=$G(^X TMP("XPDI" ,XPDA,X))  Q:Y="" ""
  1152       S Y=$S(Y[ "^":Y,1:"^ "_Y)
  1153       Q Y
  1154       ;
  1155      BACKUP(XPD A) ; Backu p an Packa ge before  Intalling
  1156       Q
  1157       ;
  1158      INSTALL(XP DA) ; Inst all a Pack age
  1159       Q:'$D(^XP D(9.7,XPDA ,0))  S XP DNM=$P(^(0 ),U)
  1160       S ZTDTH=$ $NOW^XLFDT ,ZTRTN="EN ^XPDIJ",ZT DESC=XPDNM _" KIDS in stall",ZTS AVE("XPDA" )="",ZTIO= ""
  1161       D ^%ZTLOA D
  1162       Q
  1163      ]]>
  1164     </Routine>
  1165    
  1166    
  1167     <Routine 
  1168      name="XSAP XDV2" 
  1169      type="INT"  
  1170      languagemo de="0" 
  1171      timestamp= "64131,414 46.895116"
  1172     >
  1173      <![CDATA[
  1174      XSAPXDV2 ; DAL/BNT -  VistA Serv ices Assem bler DEV F unctions;1 /27/2016
  1175       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15
  1176       ;
  1177       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  1178       ;
  1179       Q
  1180       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  1181       ;
  1182       ;   The f unctions i n this rou tine are i nternal fo r the VSA  Developmen t Team
  1183       ;   there  is curren tly no pla n or contr act to rel ease these  functions .
  1184       ;   No In tegration  Agreements  are in pl ace for th e external  calls.
  1185       ;
  1186      BASESYM ;  Baseline t he Symbol  Table util ities
  1187       ; Build l ocal symbo l table wi th variabl es and arr ays
  1188       N SOURCE, TARGET,SUC CESS,XSADO LS,XSADOLE ,XSAZUS,XS AZUE,XSAZD IF,XSADDIF
  1189       D GETSWGR ^XSAPXMU4( .XSASWGR)
  1190       D GETSAML ^XSAPXMU3( .XSASAML)
  1191       S (SOURCE ,TARGET)=$ NA(^%Cache Temp(63542 ,"XSA","RP C","VPR GE T PATIENT  DATA"))
  1192       K @SOURCE ,@TARGET
  1193       S @SOURCE @("DUZ")=D UZ
  1194       S @SOURCE @("PARAMS" ,1,"LITERA L")=237
  1195       S @SOURCE @("PARAMS" ,2,"LITERA L")="meds; documents"
  1196       S @SOURCE @("PARAMS" ,3,"LITERA L")=""
  1197       S @SOURCE @("PARAMS" ,4,"LITERA L")=""
  1198       S @SOURCE @("PARAMS" ,5,"LITERA L")=40
  1199       S @SOURCE @("PARAMS" ,6,"LITERA L")=""
  1200       S @SOURCE @("PARAMS" ,7,"LIST", "FILTER("" text"")")= 1
  1201       S @SOURCE @("RPC CON TEXT")=""
  1202       S @SOURCE @("RPC NAM E")="VPR G ET PATIENT  DATA"
  1203       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  1204       M XSAVPR= @TARGET
  1205       S X="^%Ca cheTemp($J ,""DOLRO"" ," K ^%Cac heTemp($J, "DOLRO")
  1206       S Y="^%Ca cheTemp($J ,""ZU160"" )" K ^%Cac heTemp($J, "ZU160")
  1207       S XSADOLS =$NOW() D  DOLRO^%ZOS V S XSADOL E=$NOW()
  1208       S XSADDIF =$$HDIFF^X LFDT(XSADO LE,XSADOLS ,2)
  1209       S XSAZUS= $NOW() S X SAZ=$ZU(16 0,1,Y) S X SAZUE=$NOW ()
  1210       S XSAZDIF =$$HDIFF^X LFDT(XSAZU E,XSAZUS,2 )
  1211       N CNT,GLO  S CNT=0,G LO=$Q(^%Ca cheTemp($J ,"DOLRO"))  F  S GLO= $Q(@GLO) Q :GLO=""  S  CNT=CNT+1
  1212       W !!,"The re were "_ CNT_" loca l variable s in the S ymbol Tabl e."
  1213       W !!,"DOL RO^%ZOSV E xecution t ime: ("_XS ADDIF_")"
  1214       W !,"$ZU( 160) Execu tion time:  ("_XSAZDI F_")",!!
  1215       Q
  1216       ;
  1217      PRVU(FNAME ,LNAME,ACO DE,VCODE)  ; Provisio n a user w ith First  and Last n ame
  1218       ;Input FN AME=First  Name
  1219       ;      LN AME=Last N ame
  1220       ;      AC ODE=Access  Code
  1221       ;      VC ODE=Verify  Code
  1222       N SOURCE, TARGET,X,R ETRY,RES
  1223       S RETRY=3 ,RES=0
  1224       I FNAME=" " W !,"Fir st Name is  required"  Q
  1225       I LNAME=" " W !,"Las t Name is  required"  Q
  1226       I ACODE=" " W !,"Acc ess Code i s required " Q
  1227       I VCODE=" " W !,"Ver ify Code i s required " Q
  1228       S X=$$EN^ XUSHSH(ACO DE)
  1229       I $D(^VA( 200,"A",X) )!$D(^VA(2 00,"AOLD", X)) W !,"T his Access  Code has  already be en used. T ry again."  Q
  1230       S SOURCE= $NA(^TMP($ J,"XSA","U SRIN")),TA RGET=$NA(^ TMP($J,"XS A","OUT"))
  1231       S @SOURCE @("FNAME") =FNAME,@SO URCE@("LNA ME")=LNAME
  1232       S @SOURCE @("ACODE") =ACODE,@SO URCE@("VCO DE")=VCODE
  1233       F I=1:1:R ETRY Q:RES =1  S RES= $$PRVUSER( .SOURCE,.T ARGET) D
  1234       . I 'RES  D  Q
  1235       . . W !," There was  a problem  creating u ser",!!
  1236       . . W @TA RGET@("err or","error ")
  1237       . . W !," Trying aga in."
  1238       . W !,"Us er ",LNAME ,",",FNAME ," created  successfu lly"
  1239       . W !,"DU Z: ",@TARG ET@("resul ts","DUZ")
  1240       Q
  1241       ;
  1242      PRVUSER(SO URCE,TARGE T) ; Provi sion a new  user. NAM E = LAST,F IRST
  1243       ; Make su re this us er has the  XUSHOWSSN  Security  Key
  1244       N SUCCESS ,SOURCE2,T ARGET2,IEN ,IENS,FDA, XSASSN,IAM APP,XSAZZ, X,DUZ,XUSH OW,XSAUSR, XSASTOP,XS ADUZ,XSAER R
  1245       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  1246       ; Set DUZ  to someon e who has  access
  1247       S XUSHOW= $$LKUP^XPD KEY("XUSHO WSSN"),DUZ =1,DUZ("LO A")=2
  1248       S XSAUSR= "",XSASTOP =0 F  S XS AUSR=$O(^V A(200,"B", XSAUSR)) Q :XSAUSR="" !(XSASTOP)   D
  1249       . S XSADU Z=$O(^VA(2 00,"B",XSA USR,0))
  1250       . Q:'$$AC TIVE^XUSER (XSADUZ)
  1251       . I $D(^V A(200,XSAD UZ,51,XUSH OW)) S XSA STOP=1,DUZ =XSADUZ
  1252       K @TARGET
  1253       S XSAERR= 1
  1254       N X F X=" FNAME","LN AME","ACOD E","VCODE"  D INITPAR M^XSAPXUTL (.X)
  1255       I FNAME'] "" D  Q $$ RESULT^XSA PXUTL()
  1256       . D BLDER ROR^XSAPXU TL(1,"Firs t name is  required", "PRVUSER^X SAPXDEV")
  1257       I LNAME'] "" D  Q $$ RESULT^XSA PXUTL()
  1258       . D BLDER ROR^XSAPXU TL(1,"Last  name is r equired"," PRVUSER^XS APXDEV")
  1259       I ACODE'] "" D  Q $$ RESULT^XSA PXUTL()
  1260       . D BLDER ROR^XSAPXU TL(1,"Acce ss Code is  required" ,"PRVUSER^ XSAPXDEV")
  1261       I VCODE'] "" D  Q $$ RESULT^XSA PXUTL()
  1262       . D BLDER ROR^XSAPXU TL(1,"Veri fy Code is  required" ,"PRVUSER^ XSAPXDEV")
  1263       S X=$$EN^ XUSHSH(ACO DE) 
  1264       I $D(^VA( 200,"A",X) )!$D(^VA(2 00,"AOLD", X)) D  Q $ $RESULT^XS APXUTL()
  1265       . D BLDER ROR^XSAPXU TL(1,"This  Access Co de has alr eady been  used. Try  again.","P RVUSER^XSA PXDEV")
  1266       D OWNSKEY ^XUSRB(.XS AZZ,"XUSHO WSSN",DUZ)
  1267       I 'XSAZZ( 0) S DIC(0 )="NMQ",DI C("P")="20 0.051PA",D IC="^VA(20 0,DUZ,51," ,DA(1)=DUZ ,X=$$LKUP^ XPDKEY("XU SHOWSSN"), DINUM=X D  FILE^DICN
  1268       ;
  1269       S IAMAPP= $O(^XWB(89 94.5,"B"," IAM PROVIS IONING",0) )
  1270       I 'IAMAPP  Q "0^IAM  Provisioni ng is not  installed. "
  1271       ;
  1272       ; Make su re Provisi oning Appl ication ha s the righ t Authcode
  1273       I $P(^XWB (8994.5,IA MAPP,0),U, 3)'="F8GVb bchl3gV829 GL3OzBBZ3N CgvDCw7Zhs lNdz7ozY="  D
  1274       . K ^TMP( "DIERR",$J )
  1275       . S DIC(0 )="",ERRMS G=""
  1276       . N FDR S  FDR(8994. 5,IAMAPP_" ,",.03)="F 8GVbbchl3g V829GL3OzB BZ3NCgvDCw 7ZhslNdz7o zY="
  1277       . D UPDAT E^DIE("E", "FDR","IEN ")
  1278       S (SOURCE 2,TARGET2) =$NA(^TMP( $J,"XSA"," UNIT TESTS "))
  1279       K @SOURCE 2,@TARGET2
  1280       S NAME=LN AME_","_FN AME,NAME=$ $UP^XLFSTR (NAME)
  1281       S XSAUSER =$O(^VA(20 0,"B",NAME ,0))
  1282       I +XSAUSE R D
  1283       . S FDA(2 00,XSAUSER _",",".01" )="@" D FI LE^DIE("", "FDA","MSG ")
  1284       S XSASSN= "1234"_$R( 10)_$R(10) _$R(10)_$R (10)_$R(10 )
  1285       S @SOURCE 2@("DUZ")= $G(DUZ)
  1286       S @SOURCE 2@("NAME") =$$TITLE^X LFSTR(FNAM E_" "_LNAM E)
  1287       S @SOURCE 2@("SECID" )=XSASSN
  1288       S @SOURCE 2@("EMAIL" )=$$LOW^XL FSTR(FNAME _"."_LNAME _"@ DNS     ")
  1289       S @SOURCE 2@("ADUPN" )=$$LOW^XL FSTR($E(FN AME,1)_LNA ME)_"@iam. va.local"
  1290       S @SOURCE 2@("SSN")= XSASSN
  1291       S @SOURCE 2@("DOB")= ($R(12)+1) _"/"_($R(2 8)+1)_"/19 "_($R(99))
  1292       S @SOURCE 2@("STATIO N")=$P($$S ITE^VASITE (),"^",3)
  1293       S @SOURCE 2@("AUTHCO DE")="This  is my Pro visioning  Code!"
  1294       S @SOURCE 2@("XSASYM ")=1
  1295       S SUCCESS =$$IAMAU^X SAPXPUB(.S OURCE2,.TA RGET2)
  1296       I $G(@TAR GET2@("err or","error "))]"" D   Q $$RESULT ^XSAPXUTL( )
  1297       . D BLDER ROR^XSAPXU TL(1,@TARG ET2@("erro r","error" ),"PRVUSER ^XSAPXDEV" )
  1298       S IEN=$O( ^VA(200,"B ",NAME,0))  I +IEN D
  1299       . S IENS= IEN_","
  1300       . S FDA(2 00,IENS,2) =$$EN^XUSH SH(ACODE)
  1301       . S FDA(2 00,IENS,11 )=$$EN^XUS HSH(VCODE)
  1302       . D FILE^ DIE("","FD A","MSG")  I $D(MSG)  ZW MSG
  1303       . S DIC(0 )="NMQ",DI C("P")="20 0.051PA",D IC="^VA(20 0,IEN,51," ,DA(1)=IEN ,X=$$LKUP^ XPDKEY("XU PROG"),DIN UM=X D FIL E^DICN
  1304       . S DIC(0 )="NMQ",DI C("P")="20 0.051PA",D IC="^VA(20 0,IEN,51," ,DA(1)=IEN ,X=$$LKUP^ XPDKEY("XU SHOWSSN"), DINUM=X D  FILE^DICN
  1305       S @TARGET @("results ","DUZ")=I EN
  1306       Q XSAERR
  1307       ;
  1308      AGEN() ;Au to Generat e a ACCESS  code
  1309       N XUU,X
  1310       S XUU=$$A C^XUS4 S X =$$EN^XUSH SH(XUU) I  $D(^VA(200 ,"A",X))!$ D(^VA(200, "AOLD",X))  G AGEN
  1311       Q XUU
  1312       ;
  1313      SAMLGEN(SO URCE,TARGE T) ; Mock  SAML Token  Generator
  1314       N ERR,IEN ,IENS,MSIG ,PNUM,RES, MSG,RPC,NA ME,FNAME,L NAME,SSN,S ECID
  1315       N XSAERR, RESULTS,XS ASYM,AUTHC ODE,IAMAPP
  1316       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  1317       ; Kill th e results  node
  1318       K @TARGET @("results ")
  1319       S XSAERR= 1
  1320       N X F X=" ESSODUZ" D  INITPARM^ XSAPXUTL(. X)
  1321       N I,X,XSA DT
  1322       I 'ESSODU Z D  Q $$R ESULT^XSAP XUTL()
  1323       . D BLDER ROR^XSAPXU TL(1,"DUZ  is not def ined","SAM LGEN^XSAPX DEV")
  1324       ;
  1325       ; Make su re this us er has the  XUSHOWSSN  Security  Key
  1326       S:'$G(DUZ ) DUZ=ESSO DUZ
  1327       N XSAZZ D  OWNSKEY^X USRB(.XSAZ Z,"XUSHOWS SN",DUZ)
  1328       I 'XSAZZ( 0) S DIC(0 )="NMQ",DI C("P")="20 0.051PA",D IC="^VA(20 0,DUZ,51," ,DA(1)=DUZ ,X=$$LKUP^ XPDKEY("XU SHOWSSN"), DINUM=X D  FILE^DICN
  1329       ;
  1330       S IAMAPP= $O(^XWB(89 94.5,"B"," IAM PROVIS IONING",0) )
  1331       I 'IAMAPP  D  Q $$RE SULT^XSAPX UTL()
  1332       . D BLDER ROR^XSAPXU TL(1,"IAM  Provisioni ng is not  installed. ","MOCSAML ^XSAPXDEV" )
  1333       ;
  1334       ; Make su re Provisi oning Appl ication ha s the righ t Authcode
  1335       I $P(^XWB (8994.5,IA MAPP,0),U, 3)'="F8GVb bchl3gV829 GL3OzBBZ3N CgvDCw7Zhs lNdz7ozY="  D
  1336       . K ^TMP( "DIERR",$J )
  1337       . S DIC(0 )="",ERRMS G=""
  1338       . N FDR S  FDR(8994. 5,IAMAPP_" ,",.03)="F 8GVbbchl3g V829GL3OzB BZ3NCgvDCw 7ZhslNdz7o zY="
  1339       . D UPDAT E^DIE("E", "FDR","IEN ")
  1340       ;
  1341       ; Find th e ESSO val ues for th is user
  1342       S NAME=$P (^VA(200,E SSODUZ,0), U)
  1343       N R D IAM FU^XUESSO3 (.R,NAME," ","","","" ,"This is  my Provisi oning Code !")
  1344       ; Update  values if  needed
  1345       ; R(1)="D UZ^Name^Na meComponen ts^SSN^Dob ^AD UPN^Se cID"
  1346       N XSAVAL, INARRY 
  1347       S XSAEDIT =0 F I=1:1 :7 S XSAVA L=$P(R(1), "^",I) I X SAVAL="" S  XSAEDIT=1  Q
  1348       S XSASSN= $P(R(1),U, 4),XSANM=$ P(R(1),U,3 )
  1349       I '$$SSNC HECK^XUESS O1(XSASSN)  D
  1350       . S XSASS N="1234"_$ R(10)_$R(1 0)_$R(10)_ $R(10)_$R( 10)
  1351       . S FDR(2 00,ESSODUZ ,9)=XSASSN
  1352       I XSAEDIT  D
  1353       . S INARR Y("SECID") =XSASSN
  1354       . S INARR Y("ORGANIZ ATION_NAME ")="Depart ment of Ve terans Aff airs"
  1355       . S INARR Y("ORGANIZ ATION_ID") ="urn:oid: 2.16.840.1 .113883.4. 349"
  1356       . S INARR Y("EMAIL") =$P(XSANM, "`",2)_"." _$P(XSANM, "`
,1)_" PII           "
  1357       . S INARR Y("AD_UPN" )=$P(XSANM ,"`",2)_". "_$P(XSANM ,"`",1)_"@ iam.va.loc al"
  1358       . S INARR Y("SSN")=X SASSN
  1359       . S INARR Y("DOB")=$ S($P(R(1), U,5)]"":$P (R(1),U,5) ,1:3020201 )
  1360       . N RES D  IAMEU^XUE SSO3(.RES, .INARRY,"T his is my  Provisioni ng Code!")
  1361       . K R D I AMFU^XUESS O3(.R,NAME ,"","","", "","This i s my Provi sioning Co de!")
  1362       . S XSASS N=$P(R(1), U,4),XSANM =$P(R(1),U ,3)
  1363       ;
  1364       ; Set the  token exp iration da te/times t o appropri ate values
  1365       S XSADT=$ $FMTHL7^XL FDT($$FMAD D^XLFDT($$ NOW^XLFDT( ),0,0,-5,0 ))
  1366       S XSANOTB 4=$E(XSADT ,1,4)_"-"_ $E(XSADT,5 ,6)_"-"_$E (XSADT,7,8 )_"T"_$E(X SADT,9,10) _":"_$E(XS ADT,11,12) _":"_$E(XS ADT,13,14)
  1367       S XSADT=$ $FMTHL7^XL FDT($$FMAD D^XLFDT($$ NOW^XLFDT( ),0,0,15,0 ))
  1368       S XSANOTO N=$E(XSADT ,1,4)_"-"_ $E(XSADT,5 ,6)_"-"_$E (XSADT,7,8 )_"T"_$E(X SADT,9,10) _":"_$E(XS ADT,11,12) _":"_$E(XS ADT,13,14)
  1369       S XSADT=$ $FMTHL7^XL FDT($$NOW^ XLFDT())
  1370       S XSAAUTH =$E(XSADT, 1,4)_"-"_$ E(XSADT,5, 6)_"-"_$E( XSADT,7,8) _"T"_$E(XS ADT,9,10)_ ":"_$E(XSA DT,11,12)_ ":"_$E(XSA DT,13,14)
  1371       ;
  1372       ; Now gen erate the  token base d on a wor king sampl e and chan ge the val ues for th is user
  1373       N X,I F I =1:1 S X=$ P($T(SAML+ I),";;",2)  Q:X["$$EN D$$"  D
  1374       . I X["No tBefore" S  @TARGET@( "results", "XSAESSO", I)="  <sam l:Conditio ns NotBefo re="""_XSA NOTB4_"""  NotOnOrAft er="""_XSA NOTON_"""> " Q
  1375       . I X["<s aml:AuthnS tatement A uthnInstan t=" S @TAR GET@("resu lts","XSAE SSO",I)="   <saml:Aut hnStatemen t AuthnIns tant="""_X SAAUTH_""" >" Q
  1376       . I X["<s aml:Attrib uteValue>2 015-06-25T 12:00:27Z< /saml:Attr ibuteValue >" S @TARG ET@("resul ts","XSAES SO",I)="      <saml:A ttributeVa lue>"""_XS AAUTH_"""< /saml:Attr ibuteValue >" Q
  1377       . I X["<s aml:Attrib uteValue>C arl</saml: AttributeV alue>" S @ TARGET@("r esults","X SAESSO",I) ="      <s aml:Attrib uteValue>" _$P(XSANM, "`",2)_"</ saml:Attri buteValue> " Q
  1378       . I X["<s aml:Attrib uteValue>B oden</saml :Attribute Value>" S  @TARGET@(" results"," XSAESSO",I )="      < saml:Attri buteValue> "_$P(XSANM ,"`",1)_"< /saml:Attr ibuteValue >" Q
  1379       . I X["<s aml:Attrib uteValue>C arl Boden< /saml:Attr ibuteValue >" S @TARG ET@("resul ts","XSAES SO",I)="       <saml: AttributeV alue>"_$P( XSANM,"`", 2)_" "_$P( XSANM,"`", 1)_"</saml :Attribute Value>" Q
  1380       . I X["<s aml:Attrib uteValue>1 23459876</ saml:Attri buteValue> " S @TARGE T@("result s","XSAESS O",I)="       <saml:A ttributeVa lue>"_XSAS SN_"</saml :Attribute Value>" Q
  1381       . I X["<s aml:Attrib uteValue> PII </saml:Att ributeValu e>" S @TAR GET@("resu lts","XSAE SSO",I)="        <saml:Attr ibuteValue >"_$P(XSAN M,"`",2)_" ."_$P(XSAN M,"`",1)_" @iam.va.lo cal"_"</sa ml:Attribu teValue>"  Q
  1382       . I X["<s aml:Attrib uteValue> PII                 </saml:Att ributeValu e>" S @TAR GET@("resu lts","XSAE SSO",I)="        <saml:Attr ibuteValue >"_$P(XSAN M,"`",2)_" ."_$P(XSAN M,"`
,1)_" PII           "_"</saml: AttributeV alue>" Q
  1383       . S @TARG ET@("resul ts","XSAES SO",I)=X
  1384       Q $$RESUL T^XSAPXUTL ()
  1385       ;
  1386      TFLPTLS ;  Print a li st of Pati ents with  their asso ciated Tre ating Faci lities
  1387       ;
  1388       S %ZIS="Q M" D ^%ZIS  G TFLQ:PO P
  1389       I $D(IO(" Q")) D  Q
  1390       . S ZTRTN ="TFLDQ^XS APXDV2",ZT DESC="XSA  Treating F acility Up date"
  1391       . D ^%ZTL OAD D HOME ^XIS K IO( "Q") Q
  1392      TFLDQ ;
  1393       S XSAOUT= 0 U IO
  1394       S PAT=0 F   S PAT=$O (^DGCN(391 .91,"B",PA T)) Q:'PAT   D
  1395       . D:$Y+5> IOSL RET Q :XSAOUT
  1396       . W !!,"P atient Nam e: "_$P(^D PT(PAT,0), "^")
  1397       . W !,?5, "DFN: "_PA T,"   ","I CN: ",$$GE TICN^MPIF0 01(PAT)
  1398       . S TFIEN =0 F  S TF IEN=$O(^DG CN(391.91, "B",PAT,TF IEN)) Q:'T FIEN  D
  1399       . . S TF0 =$G(^DGCN( 391.91,TFI EN,0))
  1400       . . W !,? 10,"Facili ty: ",$P(^ DIC(4,$P(T F0,U,2),0) ,U),?45,"D ate Treate d: ",$$FMT E^XLFDT($P (TF0,U,3))
  1401       D ^%ZISC
  1402       Q
  1403       ;
  1404      TFLQ S:$D( ZTQUEUED)  ZTREQ="@"  Q
  1405       ;
  1406      RET W !! K  DIR S DIR (0)="E" D  ^DIR K DIR  W @IOF I  $D(DTOUT)! $D(DUOUT)  S XSAOUT=1
  1407       Q
  1408      TFLUPD ; U pdate the  Treating F acility Li st
  1409       N TFIEN,P AT,DA,DIE, DIC,X,Y,FD A
  1410       S DIC="^D GCN(391.91 ,",DIC(0)= "AEMQ",DIC ("A")="Sel ect TREATI NG FACILIT Y LIST Rec ord: " D ^ DIC I $D(D TOUT)!($D( DUOUT)) Q
  1411       S TFIEN=+ Y,PAT=$P(Y ,U,2)
  1412       K Y S DIC ="^DPT(",D IC(0)="AEM Q",DIC("A" )="PATIENT : ",DIC("B ")=$P(^DPT (PAT,0),U)  D ^DIC I  $D(DTOUT)! ($D(DUOUT) ) Q
  1413       I +Y S FD A(391.91,T FIEN_",",. 01)=+Y
  1414       K Y S DIC ="^DIC(4," ,DIC(0)="A EMQ",DIC(" A")="INSTI TUTION: ", DIC("B")=$ P(^DIC(4,$ P(^DGCN(39 1.91,TFIEN ,0),U,2),0 ),U) D ^DI C I $D(DTO UT)!($D(DU OUT)) Q
  1415       I +Y S FD A(391.91,T FIEN_",",. 02)=+Y
  1416       K Y S %DT ="AEST",%D T("B")=$$F MTE^XLFDT( $P(^DGCN(3 91.91,TFIE N,0),U,3))  D ^%DT
  1417       I +Y S FD A(391.91,T FIEN_",",. 03)=Y
  1418       D UPDATE^ DIE("","FD A","IEN")
  1419       Q
  1420       ;
  1421      SAML ;
  1422       ;;<?xml v ersion="1. 0"?>
  1423       ;;<saml:A ssertion x mlns:saml= "urn:oasis :names:tc: SAML:2.0:a ssertion"  ID="Assert ion-uuid60 15911c-009 5-4f17-a8f 7-aca0f9dd 8049" Vers ion="2.0"  IssueInsta nt="2015-0 6-25T12:00 :27Z">
  1424       ;;    <saml:Issu er Format= "urn:oasis :names:tc: SAML:2.0:n ameid-form at:entity" >https:// DNS               /Issuer/SA ML2</saml: Issuer>
  1425       ;;  <Sign ature xmln s="http:// www.w3.org /2000/09/x mldsig#">
  1426       ;;    <Si gnedInfo>
  1427       ;;      < Canonicali zationMeth od Algorit hm="http:/ /www.w3.or g/TR/2001/ REC-xml-c1 4n-2001031 5"/>
  1428       ;;      < SignatureM ethod Algo rithm="htt p://www.w3 .org/2001/ 04/xmldsig -more#rsa- sha256"/>
  1429       ;;      < Reference  URI="#Asse rtion-uuid 6015911c-0 095-4f17-a 8f7-aca0f9 dd8049">
  1430       ;;         <Transfor ms>
  1431       ;;           <Transf orm Algori thm="http: //www.w3.o rg/2000/09 /xmldsig#e nveloped-s ignature"/ >
  1432       ;;           <Transf orm Algori thm="http: //www.w3.o rg/TR/2001 /REC-xml-c 14n-200103 15"/>
  1433       ;;         </Transfo rms>
  1434       ;;         <DigestMe thod Algor ithm="http ://www.w3. org/2000/0 9/xmldsig# sha1"/>
  1435       ;;         <DigestVa lue>iFmvVx E9LIPWEN4U 96Z0Ya7TD2 A=</Digest Value>
  1436       ;;      < /Reference >
  1437       ;;    </S ignedInfo>
  1438       ;;    <Si gnatureVal ue>uoUOIi/ xDRBSvHZGs 1/4umKxJLq I+nB33QB6g hiGtWok8rQ CZ1GAUjnij +sLp1bqa3D GFSWLW/xMF Ft1myIPQzG ELvqauMu1U Aoq5T1aZOc +MSFUxcnAN 0NN5Q2UbAO kyLvy6pN0v TNR8TQ71lS ZYaLSVfFeF AfdZ9a25+Z 8DVkFMvr4+ HOm+NRZulh xUC+kqhBFR MZOfQtvFYq LE487c+ehi QvkDjLCcWi Hk2xfIR7RT IZV+67n5lT hh8xY+r3kO Iqqg0fkNBm QPy1yorLgl NYlguzsW2f 5Ne5YlqMBe mZi2YzAtzi 6Dml1ZDyh9 fQB7jpd0q4 hU/KxJ55GM WcK3w==</S ignatureVa lue>
  1439       ;;    <Ke yInfo>
  1440       ;;      < X509Data>
  1441       ;;         <X509Cert ificate>MI IHqjCCBpKg AwIBAgIHPQ ACACZyazAN BgkqhkiG9w 0BAQUFADBQ MRMwEQYKCZ ImiZPyLGQB GRYDZ292MR IwEAYKCZIm iZPyLGQBGR YCdmExJTAj BgNVBAMTHF ZBIEludGVy bmFsIFN1Ym 9yZGluYXRl IENBIDEwHh cNMTQxMjA5 MTUwMjM4Wh cNMTUxMjA5 MTUwMjM4Wj CBpzELMAkG A1UEBhMCVV MxCzAJBgNV BAgTAlRYMQ 8wDQYDVQQH EwZBdXN0aW 4xLDAqBgNV BAoTI1UuUy 4gRGVwYXJ0 bWVudCBvZi BWZXRlcmFu cyBBZmZhaX JzMQ4wDAYD VQQLEwVWQU FGSTEZMBcG A1UEAxMQZG V2LmVhdXRo LnZhLmdvdj EhMB8GCSqG SIb3DQEJAR YSZWF1dGhh ZG1pbnNAdm EuZ292MIIB IjANBgkqhk iG9w0BAQEF AAOCAQ8AMI IBCgKCAQEA 1qLPy2TCdC kaNSGs58Dg GpSB6EvM9m GFTbNxcdSn +4VlZ0y0xp QtcTWlyz6L YidWP9qFmf 6bRq8ah53F HAw2qkb6cw oVRDdOBBeS dsqG1OyZtU wju+XLzsJW G3t5h0J+kY Oipge7X7Yp 420Xs+oyYL 9jboeSoJTe hG0+g2CvTq roLiS6YG5u +NOTP+Ut2F CTY4cLvwR7 vIrYMb3pm3 BRqm4e8Wjz 8BVhm/GuMd P3O6ybkcg6 r9VmSXD7os q70e3iaza8 7vaFd9gMik RZu1JjlaUb ySmY2S2QQ3 IYQcwK/iPd rVIX7IjOZM sXxrK/q+ZB H7FFVdgcvg yXTXFtgmcE jwIDAQABo4 IELzCCBCsw HQYDVR0lBB YwFAYIKwYB BQUHAwEGCC sGAQUFBwMC MIICGwYDVR 0RBIICEjCC Ag6CEGRldi 5lYXV0aC52 YS5nb3aCEG ludC5lYXV0 aC52YS5nb3 aCFGludC5w a2kuZWF1dG gudmEuZ292 ghlpbnQucm VnaXN0ZXIu ZWF1dGgudm EuZ292ghlp bnQuc2Vydm ljZXMuZWF1 dGgudmEuZ2 92ghFpbnQu YWNjZXNzLn ZhLmdvdoIR cGludC5lYX V0aC52YS5n b3aCFXBpbn QucGtpLmVh dXRoLnZhLm dvdoIacGlu dC5yZWdpc3 Rlci5lYXV0 aC52YS5nb3 aCGnBpbnQu c2VydmljZX MuZWF1dGgu dmEuZ292gh JwaW50LmFj Y2Vzcy52YS 5nb3aCEHNx YS5lYXV0aC 52YS5nb3aC FHNxYS5wa2 kuZWF1dGgu dmEuZ292gh lzcWEucmVn aXN0ZXIuZW F1dGgudmEu Z292ghlzcW Euc2Vydmlj ZXMuZWF1dG gudmEuZ292 ghFzcWEuYW NjZXNzLnZh LmdvdoIUcH JlcHJvZC5l YXV0aC52YS 5nb3aCGHBy ZXByb2QucG tpLmVhdXRo LnZhLmdvdo IdcHJlcHJv ZC5yZWdpc3 Rlci5lYXV0 aC52YS5nb3 aCHXByZXBy b2Quc2Vydm ljZXMuZWF1 dGgudmEuZ2 92gh1wcmVw cm9kLnNlcn ZpY2VzLmVh dXRoLnZhLm dvdoIVcHJl cHJvZC5hY2 Nlc3MudmEu Z292MB0GA1 UdDgQWBBRj U7FmF0WMY8 NprEeudQ5Z durmzjAfBg NVHSMEGDAW gBTeJbRYCv 2TJ9qNPR86 dkt3UtlbEz CBsQYDVR0f BIGpMIGmMI GjoIGgoIGd hjBodHRwOi 8vY3JsLnBr aS52YS5nb3 YvUEtJL0NS TC9JbnRlcm 5hbFN1YkNB MS5jcmyGaW xkYXA6Ly9s ZGFwLnBraS 52YS5nb3Yv Q049SW50ZX JuYWxTdWJD QTEsQ049Q0 RQLENOPVBL SSxDTj1TZX J2aWNlcyxE Qz1WQSxEQz 1HT1Y/Y2Vy dGlmaWNhdG VSZXZvY2F0 aW9uTGlzdD B0BggrBgEF BQcBAQRoMG YwPwYIKwYB BQUHMAKGM2 h0dHA6Ly9h aWEucGtpLn ZhLmdvdi9Q S0kvQUlBL1 ZBL0ludGVy bmFsU3ViQ0 ExLmNlcjAj BggrBgEFBQ cwAYYXaHR0 cDovL29jc3 AucGtpLnZh Lmdvdi8wDA YDVR0TAQH/ BAIwADALBg NVHQ8EBAMC BaAwPQYJKw YBBAGCNxUH BDAwLgYmKw YBBAGCNxUI gcjDM4H58A aBpZ8NhOCB CIXCqksGgd uQXIewgE0C AWQCAQgwJw YJKwYBBAGC NxUKBBowGD AKBggrBgEF BQcDATAKBg grBgEFBQcD AjANBgkqhk iG9w0BAQUF AAOCAQEADu gTtZgYKdYd mda/hMoFbo tGwPb4cfVP 8sWpR7LHd/ fqTJp/CxG1 WmZ3RqJNU2 e4DZOyfln/ xVz6nxvbrG 0EthfiSHuW rUY8nldtGc N4DvAi3ZrE kBBAFUi81+ Pgtz8yE5vj pH0E6TrbcZ M7O34ZcjhS V+XO+ZBtR+ NJfdeEg4Sp oot9toaOKW zEUTvZV7DK jG57KyMLWW bqygj29Omu HXNlyBnufK GRZf4gfne8 7oglqnKdwS f5G1OX/QfE T4MIE0o4PE HNucOOuFl9 D6xj/PeSfg Dqs65uRRmL lnN9Kt94xG CsbM9yyHPD BbWkxYmAKH 7WVTXdpIlQ 8hbM53gOsQ ==</X509Ce rtificate>
  1442       ;;         <X509Issu erSerial>
  1443       ;;           <X509Is suerName>C N=VA Inter nal Subord inate CA 1 , DC=va, D C=gov</X50 9IssuerNam e>
  1444       ;;           <X509Se rialNumber >171699821 71804267</ X509Serial Number>
  1445       ;;         </X509Iss uerSerial>
  1446       ;;      < /X509Data>
  1447       ;;    </K eyInfo>
  1448       ;;  </Sig nature>
  1449       ;;  <saml :Subject>
  1450       ;;    <sa ml:NameID  Format="ur n:oasis:na mes:tc:SAM L:2.0:name id-format: persistent ">CN=Carl  Boden,CN=U sers,DC=ia m,DC=va,DC =local</sa ml:NameID>
  1451       ;;    <sa ml:Subject Confirmati on Method= "urn:oasis :names:tc: SAML:2.0:c m:sender-v ouches">
  1452       ;;      < saml:Subje ctConfirma tionData R ecipient=" http://SSO i/AppliesT o/SAML2"/>
  1453       ;;    </s aml:Subjec tConfirmat ion>
  1454       ;;  </sam l:Subject>
  1455       ;;  <saml :Condition s NotBefor e="2015-06 -25T11:55: 27Z" NotOn OrAfter="2 015-06-25T 12:15:27Z" >
  1456       ;;    <sa ml:Audienc eRestricti on>
  1457       ;;        <saml:Audi ence>https ://*. DNS     /*</saml:A udience>
  1458       ;;    </s aml:Audien ceRestrict ion>
  1459       ;;  </sam l:Conditio ns>
  1460       ;;  <saml :AuthnStat ement Auth nInstant=" 2015-06-25 T12:00:27Z ">
  1461       ;;    <sa ml:AuthnCo ntext>
  1462       ;;      < saml:Authn ContextCla ssRef>2</s aml:AuthnC ontextClas sRef>
  1463       ;;    </s aml:AuthnC ontext>
  1464       ;;  </sam l:AuthnSta tement>
  1465       ;;  <saml :Attribute Statement>
  1466       ;;    <sa ml:Attribu te Name="u rn:va:vrm: iam:transa ctionid" N ameFormat= "urn:oasis :names:tc: SAML:2.0:a ttrname-fo rmat:unspe cified">
  1467       ;;      < saml:Attri buteValue> 0000000000 0000000000 00008ed2e3 0a-0674-55 8c33ab-0f6 c-00b04505 </saml:Att ributeValu e>
  1468       ;;    </s aml:Attrib ute>
  1469       ;;    <sa ml:Attribu te Name="i ssueinstan t=" NameFo rmat="urn: oasis:name s:tc:SAML: 2.0:attrna me-format: unspecifie d">
  1470       ;;      < saml:Attri buteValue> 2015-06-25 T12:00:27Z </saml:Att ributeValu e>
  1471       ;;    </s aml:Attrib ute>
  1472       ;;    <sa ml:Attribu te Name="a uthnsystem " NameForm at="urn:oa sis:names: tc:SAML:2. 0:attrname -format:un specified" >
  1473       ;;      < saml:Attri buteValue> SSOi</saml :Attribute Value>
  1474       ;;    </s aml:Attrib ute>
  1475       ;;    <sa ml:Attribu te Name="a uthenticat iontype" N ameFormat= "urn:oasis :names:tc: SAML:2.0:a ttrname-fo rmat:unspe cified">
  1476       ;;      < saml:Attri buteValue> Indirect</ saml:Attri buteValue>
  1477       ;;    </s aml:Attrib ute>
  1478       ;;    <sa ml:Attribu te Name="p roofingaut hority" Na meFormat=" urn:oasis: names:tc:S AML:2.0:at trname-for mat:unspec ified">
  1479       ;;      < saml:Attri buteValue> VA</saml:A ttributeVa lue>
  1480       ;;    </s aml:Attrib ute>
  1481       ;;    <sa ml:Attribu te Name="a ssurancele vel" NameF ormat="urn :oasis:nam es:tc:SAML :2.0:attrn ame-format :unspecifi ed">
  1482       ;;      < saml:Attri buteValue> 2</saml:At tributeVal ue>
  1483       ;;    </s aml:Attrib ute>
  1484       ;;    <sa ml:Attribu te Name="u rn:va:vrm: iam:firstn ame" NameF ormat="urn :oasis:nam es:tc:SAML :2.0:attrn ame-format :unspecifi ed">
  1485       ;;      < saml:Attri buteValue> Carl</saml :Attribute Value>
  1486       ;;    </s aml:Attrib ute>
  1487       ;;    <sa ml:Attribu te Name="u rn:va:vrm: iam:lastna me" NameFo rmat="urn: oasis:name s:tc:SAML: 2.0:attrna me-format: unspecifie d">
  1488       ;;      < saml:Attri buteValue> Boden</sam l:Attribut eValue>
  1489       ;;    </s aml:Attrib ute>
  1490       ;;    <sa ml:Attribu te Name="u rn:va:vrm: iam:secid"  NameForma t="urn:oas is:names:t c:SAML:2.0 :attrname- format:uns pecified">
  1491       ;;      < saml:Attri buteValue> 123459876< /saml:Attr ibuteValue >
  1492       ;;    </s aml:Attrib ute>
  1493       ;;    <sa ml:Attribu te Name="u rn:va:ad:s amaccountn ame" NameF ormat="urn :oasis:nam es:tc:SAML :2.0:attrn ame-format :unspecifi ed">
  1494       ;;      < saml:Attri buteValue> cboden</sa ml:Attribu teValue>
  1495       ;;    </s aml:Attrib ute>
  1496       ;;    <sa ml:Attribu te Name="u pn" NameFo rmat="urn: oasis:name s:tc:SAML: 2.0:attrna me-format: unspecifie d">
  1497       ;;        <saml:Attr ibuteValue > PII </saml:Att ributeValu e>
  1498       ;;    </s aml:Attrib ute>
  1499       ;;    <sa ml:Attribu te Name="e mail" Name Format="ur n:oasis:na mes:tc:SAM L:2.0:attr name-forma t:unspecif ied">
  1500       ;;        <saml:Attr ibuteValue > PII                 </saml:Att ributeValu e>
  1501       ;;    </s aml:Attrib ute>
  1502       ;;    <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xs pa:1.0:sub ject:subje ct-id" Nam eFormat="u rn:oasis:n ames:tc:SA ML:2.0:att rname-form at:unspeci fied">
  1503       ;;      < saml:Attri buteValue> Carl Boden </saml:Att ributeValu e>
  1504       ;;    </s aml:Attrib ute>
  1505       ;;    <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xa cml:2.0:su bject:role " NameForm at="urn:oa sis:names: tc:SAML:2. 0:attrname -format:un specified" >
  1506       ;;      < saml:Attri buteValue> role1</sam l:Attribut eValue>
  1507       ;;    </s aml:Attrib ute>
  1508       ;;    <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xs pa:1.0:sub ject:organ ization" N ameFormat= "urn:oasis :names:tc: SAML:2.0:a ttrname-fo rmat:unspe cified">
  1509       ;;      < saml:Attri buteValue> Department  of Vetera ns Affairs </saml:Att ributeValu e>
  1510       ;;    </s aml:Attrib ute>
  1511       ;;    <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xs pa:1.0:sub ject:organ ization-id " NameForm at="urn:oa sis:names: tc:SAML:2. 0:attrname -format:un specified" >
  1512       ;;      < saml:Attri buteValue> urn:oid:2. 16.840.1.1 13883.4.34 9</saml:At tributeVal ue>
  1513       ;;    </s aml:Attrib ute>
  1514       ;;    <sa ml:Attribu te Name="u rn:nhin:na mes:saml:h omeCommuni tyId" Name Format="ur n:oasis:na mes:tc:SAM L:2.0:attr name-forma t:unspecif ied">
  1515       ;;      < saml:Attri buteValue> urn:oid:2. 16.840.1.1 13883.4.34 9</saml:At tributeVal ue>
  1516       ;;    </s aml:Attrib ute>
  1517       ;;    <sa ml:Attribu te Name="u niqueUserI d" NameFor mat="urn:o asis:names :tc:SAML:2 .0:attrnam e-format:u nspecified ">
  1518       ;;      < saml:Attri buteValue> 123459876< /saml:Attr ibuteValue >
  1519       ;;    </s aml:Attrib ute>
  1520       ;;  </sam l:Attribut eStatement >
  1521       ;;</saml: Assertion>
  1522       ;;$$END$$
  1523       Q
  1524      ]]>
  1525     </Routine>
  1526    
  1527    
  1528     <Routine 
  1529      name="XSAP XDV3" 
  1530      type="INT"  
  1531      languagemo de="0" 
  1532      timestamp= "64071,322 21.675579"
  1533     >
  1534      <![CDATA[
  1535      XSAPXDV3 ; DAL/BNT -  VistA Serv ices Assem bler DEV F unctions;1 /27/2016
  1536       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15
  1537       ;
  1538       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  1539       ;
  1540       Q
  1541       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  1542       ;
  1543       ;   The f unctions i n this rou tine are i nternal fo r the VSA  Developmen t Team
  1544       ;   there  is curren tly no pla n or contr act to rel ease these  functions .
  1545       ;   No In tegration  Agreements  are in pl ace for th e external  calls.
  1546       ;
  1547      TESTDAT ;  Set up Pat ient Testi ng Data pe r Site
  1548       N XSASITE ,DFN,SSN,N AME,X,CNT, BAYPINES,H ALEY,WESTP ALM,SANJUA N
  1549       N XSAUSIT E,TFIEN,TF PAT,IEN,XS ALINE,JJ,I I,PATNM,PA TIEN,VASIT E
  1550       S VASITE= $$SITE^VAS ITE
  1551       S BAYPINE S=$O(^DIC( 4,"B","BAY  PINES VAM C",0))
  1552       S HALEY=$ O(^DIC(4," B","TAMPA  (JAH VAH)" ,0))
  1553       S WESTPAL M=$O(^DIC( 4,"B","WES T PALM BEA CH VAMC",0 ))
  1554       S SANJUAN =$O(^DIC(4 ,"B","SAN  JUAN VAMC" ,0))
  1555       S CNT=0
  1556       S XSASITE =$P(VASITE ,U,3),XSAU SITE=XSASI TE_"USR"
  1557       W !!,"Set ting up Te st data fo r "_$P(VAS ITE,U,2)
  1558       W !!,"Del eting all  data from  the Treati ng Facilit y List fil e #391.91"
  1559       S TFPAT=- 1 F  S TFP AT=$O(^DGC N(391.91," B",TFPAT))  Q:TFPAT=" "  D
  1560       . S TFIEN =0 F  S TF IEN=$O(^DG CN(391.91, "B",TFPAT, TFIEN)) Q: TFIEN=""   D
  1561       . . S FDA (391.91,TF IEN_",",.0 1)="@"
  1562       . . D UPD ATE^DIE("E ","FDA","I EN")
  1563       ;
  1564       I '$T(@XS ASITE) W ! ,"Site dat a not defi ned for St ation "_XS ASITE Q
  1565       W !!,"Cha nging SSN  for ORIGIN AL Patient s TO psued o SSNs",!
  1566       I XSASITE '=BAYPINES  N XSALINE  F I=2:1 S  XSALINE=$ P($T(@XSAS ITE+I),";; ",2) Q:XSA LINE["$$EN D$$"  D
  1567       . S DFN=$ P(XSALINE, U),SSN="P"
  1568       . I '$D(^ DPT(DFN,0) ) W !,"Pat ient IEN " _DFN_" doe s not exis t" Q
  1569       . N FDA S  FDA(2,DFN _",",.09)= "P" D UPDA TE^DIE("E" ,"FDA","IE N")
  1570       . W !
  1571       . Q
  1572       N XSALINE ,II F II=2 :1 S XSALI NE=$P($T(@ XSASITE+II ),";;",2)  Q:XSALINE[ "$$END$$"   D
  1573       . S DFN=$ P(XSALINE, U),NAME=$P (XSALINE,U ,4),ICN=$P (XSALINE,U ,5)
  1574       . I '$D(^ DPT(DFN,0) ) W !,"Pat ient IEN " _DFN_" doe s not exis t" Q
  1575       . W !,"Up dating Pat ient: "_NA ME
  1576       . N FDA
  1577       . S FDA(2 ,DFN_",",. 01)=NAME
  1578       . S FDA(2 ,DFN_",",. 09)=$P(XSA LINE,U,2)  D UPDATE^D IE("","FDA ","IEN")
  1579       . N FDA S  FDA(2,DFN _",",.03)= $P(XSALINE ,U,3) D UP DATE^DIE(" E","FDA"," IEN")
  1580       . ; Set t he ICN
  1581       . N ICNX  S ICNX=$$S ETICN^MPIF 001(DFN,$P (XSALINE,U ,5),23)
  1582       . I +ICNX =-1 W !,"  **Error se tting ICN:  "_$P(ICNX ,U,2)
  1583       . ; Updat e Treating  Facility  List file  #391.91
  1584       . ; 1st p atient has  entry in  Bay Pines
  1585       . ; 2nd p atient has  entry in  Bay Pines  and Haley
  1586       . ; 3rd p atient has  entry in  Bay Pines,  Haley and  West Palm
  1587       . ; 4th p atient has  entry in  Bay Pines,  Haley, We st Palm an d San Juan
  1588       . I CNT=5  S CNT=0
  1589       . S CNT=C NT+1
  1590       . ; Set t he date vi sited diff erent for  each insti tution ent ry
  1591       . N JJ,FO UND S FOUN D=0 F JJ=1 :1:CNT D
  1592       . . S INS T=$S(JJ=1: BAYPINES,J J=2:HALEY, JJ=3:WESTP ALM,JJ=4:S ANJUAN,1:" ")
  1593       . . Q:INS T=""
  1594       . . I INS T=$P(VASIT E,U) S FOU ND=1
  1595       . . D TFL UPD(DFN,IN ST,"30"_JJ _"0101")
  1596       . I 'FOUN D D TFLUPD (DFN,$P(VA SITE,U),+$ P($$NOW^XL FDT,"."))
  1597       . Q
  1598       W !!,"Upd ating Trea ting Facil ity List f or all exi sting pati ents"
  1599       S PATNM=- 1 F  S PAT NM=$O(^DPT ("B",PATNM )) Q:PATNM =""  D
  1600       . S PATIE N=$O(^DPT( "B",PATNM, 0)) Q:'PAT IEN
  1601       . Q:$D(^D GCN(391.91 ,"B",PATIE N))
  1602       . D TFLUP D(PATIEN,$ P(VASITE,U ),+$P($$NO W^XLFDT,". "))
  1603       ;
  1604       W !!,"Add ing MRAR T est Provid ers..."
  1605       N XSALINE ,II F II=2 :1 S XSALI NE=$P($T(@ XSAUSITE+I I),";;",2)  Q:XSALINE ["$$END$$"   D
  1606       . N XSANA ME,XSAZZ,D A,X S XSAN AME=$P(XSA LINE,U)_", "_$P(XSALI NE,U,2)
  1607       . W !,"Ad ding User:  ",XSANAME
  1608       . D PRVU^ XSAPXDV2($ P(XSALINE, U,2),$P(XS ALINE,U),$ P(XSALINE, U,3),$P(XS ALINE,U,4) )
  1609       . S DA=$O (^VA(200," B",XSANAME ,0))
  1610       . I DA=""  W !,"***E rror Creat ing User:  ",XSANAME, " ***" Q
  1611       . W !,"   Access;Ver ify codes  are: ",$P( XSALINE,U, 3)_";"_$P( XSALINE,U, 4)
  1612       . ; Add U SR CLASS
  1613       . W !,"Ad ding User  Class Memb ership."
  1614       . S RESCL S=$O(^USR( 8930,"B"," POST GRADU ATE YEAR 1  RESIDENT" ,0))
  1615       . S PRVCL S=$O(^USR( 8930,"B"," CLINICAL C OORDINATOR ",0))
  1616       . N FDA,F DAIEN,MSG
  1617       . S FDA(8 930.3,"+1, ",.01)=DA
  1618       . S FDA(8 930.3,"+1, ",.02)=$S( XSANAME["P ROVIDER":P RVCLS,1:RE SCLS)
  1619       . S FDA(8 930.3,"+1, ",.03)=DT
  1620       . D UPDAT E^DIE(""," FDA","FDAI EN","MSG")
  1621       . ; Add P rovider Se curity Key  and eSig  Code
  1622       . N XSAZZ  D OWNSKEY ^XUSRB(.XS AZZ,"PROVI DER",DA)
  1623       . I 'XSAZ Z(0) S DIC (0)="NMQ", DIC("P")=" 200.051PA" ,DIC="^VA( 200,DA,51, ",DA(1)=DA ,X=$$LKUP^ XPDKEY("PR OVIDER"),D INUM=X D F ILE^DICN
  1624       . N XSAZZ  D OWNSKEY ^XUSRB(.XS AZZ,"ORES" ,DA)
  1625       . I 'XSAZ Z(0) S DIC (0)="NMQ", DIC("P")=" 200.051PA" ,DIC="^VA( 200,DA,51, ",DA(1)=DA ,X=$$LKUP^ XPDKEY("OR ES"),DINUM =X D FILE^ DICN
  1626       . ; Add E lectronic  Security C ode
  1627       . S X=$P( XSALINE,U, 5)
  1628       . D HASH^ XUSHSHP
  1629       . I X=$P( ^VA(200,DA ,20),U,4)  Q
  1630       . S $P(^V A(200,DA,2 0),"^",4)= X
  1631       . N XUS F  XUS=0:0 S  XUS=$O(^D D(200,20.4 ,1,XUS)) Q :XUS'>0  X  ^(XUS,1)
  1632       . W !,"   Electronic  Signature  Code is:  ",$P(XSALI NE,U,5)
  1633       . N FDA,F DAIEN,MSG
  1634       . S FDA(2 00,"?1,",. 01)=XSANAM E
  1635       . S FDA(2 00,"?1,",5 3.1)=1
  1636       . S FDA(2 00,"?1,",1 01.01)=0
  1637       . S FDA(2 00.05,"+2, ?1,",.01)= 1
  1638       . S FDA(2 00.05,"+2, ?1,",2)=DT
  1639       . S FDA(2 00.010113, "+3,?1,",. 01)=$O(^OR D(101.13," B","COR",0 ))
  1640       . S FDA(2 00.010113, "+3,?1,",. 02)=DT
  1641       . D UPDAT E^DIE(""," FDA","FDAI EN","MSG")
  1642       W !!,"Add ing Federa tor Proxy  User: XSAP ROXY,FEDER ATOR"
  1643       D PRVU^XS APXDV2("FE DERATOR"," XSAPROXY", "123PROXF" ,"321*FPRO X")
  1644       S DA=$O(^ VA(200,"B" ,"XSAPROXY ,FEDERATOR ",0))
  1645       I DA="" W  !,"***Err or Creatin g Federato r Proxy Us er: XSAPRO XY,FEDERAT OR ***" Q
  1646       N XSASSN  S XSASSN=" 123445678"
  1647       N FDA,FDA IEN,MSG
  1648       S FDA(200 ,"?1,",.01 )="XSAPROX Y,FEDERATO R"
  1649       S FDA(200 ,"?1,",9)= XSASSN
  1650       S FDA(200 ,"?1,",205 .1)=XSASSN
  1651       D UPDATE^ DIE("","FD A","FDAIEN ","MSG")
  1652       Q
  1653       ;
  1654      TFLUPD(DFN ,INST,DATE ) ; Update  the Treat ing Facili ty List
  1655       N FDA,IEN
  1656       ;W !," -  Adding Tre ating Faci lity recor d for "_$P (^DIC(4,IN ST,0),U)
  1657       S FDA(391 .91,"+1,", .01)=DFN
  1658       S FDA(391 .91,"+1,", .02)=INST
  1659       S FDA(391 .91,"+1,", .03)=DATE
  1660       D UPDATE^ DIE("","FD A","IEN")
  1661       Q
  1662       ;
  1663      500 ; Upda te the TES T data for  CAMP MAST ER (CPM)
  1664       ;;DFN^SSN ^DOB^NAME^ ICN
  1665       ;;60^6665 16666^4/7/ 1935^HANSO N,JOSHUA Z ^195601
  1666       ;;66^6662 29999^4/7/ 1936^OTT,A NGELA M^19 5602
  1667       ;;80^6661 18699^4/7/ 1937^ROENT GEN,BARB O ^195603
  1668       ;;129^666 892222^4/7 /1938^UMAN SKY,BART D ^195604
  1669       ;;198^666 885885^4/7 /1939^MURP HY,DIANE Q ^195605
  1670       ;;224^666 000011^4/7 /1940^GRAB SCHEID,JOC ELYN G^195 606
  1671       ;;230^666 876345^4/7 /1941^BROW NE,MARVIN  C^195607
  1672       ;;236^666 000019^4/7 /1942^COOP ER,TERRY O ^195608
  1673       ;;366^666 000028^4/7 /1943^JUNG ,STUART T^ 195609
  1674       ;;705^666 752222^4/7 /1944^GARC IA,KIRSTEN  H^195610
  1675       ;;$$END$$
  1676       Q
  1677       ;
  1678      516 ; Upda te the TES T data for  Bay Pines  
  1679       ;;DFN^SSN ^DOB^NAME^ ICN
  1680       ;;60^6665 16666^4/7/ 1935^HANSO N,JOSHUA Z ^195601
  1681       ;;66^6662 29999^4/7/ 1936^OTT,A NGELA M^19 5602
  1682       ;;80^6661 18699^4/7/ 1937^ROENT GEN,BARB O ^195603
  1683       ;;129^666 892222^4/7 /1938^UMAN SKY,BART D ^195604
  1684       ;;198^666 885885^4/7 /1939^MURP HY,DIANE Q ^195605
  1685       ;;224^666 000011^4/7 /1940^GRAB SCHEID,JOC ELYN G^195 606
  1686       ;;230^666 876345^4/7 /1941^BROW NE,MARVIN  C^195607
  1687       ;;236^666 000019^4/7 /1942^COOP ER,TERRY O ^195608
  1688       ;;366^666 000028^4/7 /1943^JUNG ,STUART T^ 195609
  1689       ;;705^666 752222^4/7 /1944^GARC IA,KIRSTEN  H^195610
  1690       ;;$$END$$
  1691       Q
  1692       ;
  1693      516USR ; A dd MRAR Te ster User  Accounts
  1694       ;;LAST NA ME^FIRST N AME^ACCESS  CODE^VERI FY CODE^ES IG CODE
  1695       ;;MRARPRO VIDER^ONE^ MRAR1001^M RAR/1001^P ROVIDER1
  1696       ;;MRARPRO VIDER^TWO^ MRAR1002^M RAR/1002^P ROVIDER2
  1697       ;;MRARPRO VIDER^THRE E^MRAR1003 ^MRAR/1003 ^PROVIDER3
  1698       ;;MRARPRO VIDER^FOUR ^MRAR1004^ MRAR/1004^ PROVIDER4
  1699       ;;MRARPRO VIDER^FIVE ^MRAR1005^ MRAR/1005^ PROVIDER5
  1700       ;;MRARPRO VIDER^SIX^ MRAR1006^M RAR/1006^P ROVIDER6
  1701       ;;MRARPRO VIDER^SEVE N^MRAR1007 ^MRAR/1007 ^PROVIDER7
  1702       ;;MRARPRO VIDER^EIGH T^MRAR1008 ^MRAR/1008 ^PROVIDER8
  1703       ;;MRARPRO VIDER^NINE ^MRAR1009^ MRAR/1009^ PROVIDER9
  1704       ;;MRARPRO VIDER^TEN^ MRAR1010^M RAR/1010^P ROVIDER10
  1705       ;;MRARPRO VIDER^ELEV EN^MRAR101 1^MRAR/101 1^PROVIDER 11
  1706       ;;MRARPRO VIDER^TWEL VE^MRAR101 2^MRAR/101 2^PROVIDER 12
  1707       ;;MRARRES IDENT^ONE^ RES1001^RE S/1001^RES IDENT1
  1708       ;;$$END$$
  1709       Q
  1710       ;
  1711      548 ; Upda te the TES T data for  West Palm
  1712       ;;DFN^SSN ^DOB^NAME^ ICN
  1713       ;;6^66651 6666^4/7/1 935^HANSON ,JOSHUA Z^ 195601
  1714       ;;25^6662 29999^4/7/ 1936^OTT,A NGELA M^19 5602
  1715       ;;131^666 118699^4/7 /1937^ROEN TGEN,BARB  O^195603
  1716       ;;210^666 892222^4/7 /1938^UMAN SKY,BART D ^195604
  1717       ;;366^666 885885^4/7 /1939^MURP HY,DIANE Q ^195605
  1718       ;;600^666 000011^4/7 /1940^GRAB SCHEID,JOC ELYN G^195 606
  1719       ;;705^666 876345^4/7 /1941^BROW NE,MARVIN  C^195607
  1720       ;;754^666 000019^4/7 /1942^COOP ER,TERRY O ^195608
  1721       ;;760^666 000028^4/7 /1943^JUNG ,STUART T^ 195609
  1722       ;;772^666 752222^4/7 /1944^GARC IA,KIRSTEN  H^195610
  1723       ;;$$END$$
  1724       Q
  1725       ;
  1726      548USR ; A dd MRAR Te ster User  Accounts
  1727       ;;LAST NA ME^FIRST N AME^ACCESS  CODE^VERI FY CODE^ES IG CODE
  1728       ;;MRARPRO VIDER^NINE TEEN^MRAR1 019^MRAR/1 019^PROVID ER19
  1729       ;;MRARPRO VIDER^TWEN TY^MRAR102 0^MRAR/102 0^PROVIDER 20
  1730       ;;MRARPRO VIDER^TWEN TYONE^MRAR 1021^MRAR/ 1021^PROVI DER21
  1731       ;;MRARPRO VIDER^TWEN TYTWO^MRAR 1022^MRAR/ 1022^PROVI DER22
  1732       ;;MRARPRO VIDER^TWEN TYTHREE^MR AR1023^MRA R/1023^PRO VIDER23
  1733       ;;MRARPRO VIDER^TWEN TYFOUR^MRA R1024^MRAR /1024^PROV IDER24
  1734       ;;MRARRES IDENT^ONE^ RES1001^RE S/1001^RES IDENT1
  1735       ;;$$END$$
  1736       Q
  1737       ;
  1738      672 ; Upda te the TES T data for  San Juan
  1739       ;;DFN^SSN ^DOB^NAME^ ICN
  1740       ;;8^66651 6666^4/7/1 935^HANSON ,JOSHUA Z^ 195601
  1741       ;;197^666 229999^4/7 /1936^OTT, ANGELA M^1 95602
  1742       ;;620^666 118699^4/7 /1937^ROEN TGEN,BARB  O^195603
  1743       ;;12^6668 92222^4/7/ 1938^UMANS KY,BART D^ 195604
  1744       ;;761^666 885885^4/7 /1939^MURP HY,DIANE Q ^195605
  1745       ;;262^666 000011^4/7 /1940^GRAB SCHEID,JOC ELYN G^195 606
  1746       ;;296^666 876345^4/7 /1941^BROW NE,MARVIN  C^195607
  1747       ;;218^666 000019^4/7 /1942^COOP ER,TERRY O ^195608
  1748       ;;750^666 000028^4/7 /1943^JUNG ,STUART T^ 195609
  1749       ;;391^666 752222^4/7 /1944^GARC IA,KIRSTEN  H^195610
  1750       ;;$$END$$
  1751       Q
  1752       ;
  1753      673 ; Upda te the TES T data for  Tampa (Ha ley)
  1754       ;;DFN^SSN ^DOB^NAME^ ICN
  1755       ;;69^6665 16666^4/7/ 1935^HANSO N,JOSHUA Z ^195601
  1756       ;;140^666 229999^4/7 /1936^OTT, ANGELA M^1 95602
  1757       ;;141^666 118699^4/7 /1937^ROEN TGEN,BARB  O^195603
  1758       ;;253^666 892222^4/7 /1938^UMAN SKY,BART D ^195604
  1759       ;;256^666 885885^4/7 /1939^MURP HY,DIANE Q ^195605
  1760       ;;407^666 000011^4/7 /1940^GRAB SCHEID,JOC ELYN G^195 606
  1761       ;;706^666 876345^4/7 /1941^BROW NE,MARVIN  C^195607
  1762       ;;722^666 000019^4/7 /1942^COOP ER,TERRY O ^195608
  1763       ;;747^666 000028^4/7 /1943^JUNG ,STUART T^ 195609
  1764       ;;770^666 752222^4/7 /1944^GARC IA,KIRSTEN  H^195610
  1765       ;;$$END$$
  1766       Q
  1767       ;
  1768      673USR ; A dd MRAR Te ster User  Accounts
  1769       ;;LAST NA ME^FIRST N AME^ACCESS  CODE^VERI FY CODE^ES IG CODE
  1770       ;;MRARPRO VIDER^THIR TEEN^MRAR1 013^MRAR/1 013^PROVID ER13
  1771       ;;MRARPRO VIDER^FOUR TEEN^MRAR1 014^MRAR/1 014^PROVID ER14
  1772       ;;MRARPRO VIDER^FIFT EEN^MRAR10 15^MRAR/10 15^PROVIDE R15
  1773       ;;MRARPRO VIDER^SIXT EEN^MRAR10 16^MRAR/10 16^PROVIDE R16
  1774       ;;MRARPRO VIDER^SEVE NTEEN^MRAR 1017^MRAR/ 1017^PROVI DER17
  1775       ;;MRARPRO VIDER^EIGH TEEN^MRAR1 018^MRAR/1 018^PROVID ER18
  1776       ;;MRARRES IDENT^ONE^ RES1001^RE S/1001^RES IDENT1
  1777       ;;$$END$$
  1778       Q
  1779       
  1780      ]]>
  1781     </Routine>
  1782    
  1783    
  1784     <Routine 
  1785      name="XSAP XDV4" 
  1786      type="INT"  
  1787      languagemo de="0" 
  1788      timestamp= "64065,596 00.774131"
  1789     >
  1790      <![CDATA[
  1791      XSAPXDV4 ; DAL/BNT -  VistA Serv ices Assem bler DEV F unctions;1 /27/2016
  1792       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15
  1793       ;
  1794       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  1795       ;
  1796       Q
  1797       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  1798       ;
  1799       ;   The f unctions i n this rou tine are i nternal fo r the VSA  Developmen t Team
  1800       ;   there  is curren tly no pla n or contr act to rel ease these  functions .
  1801       ;   No In tegration  Agreements  are in pl ace for th e external  calls.
  1802       ;
  1803      INITSYS(ST ATION) ; I nitialize  a new CACH E.DAT data base for a  specific  Institutio n
  1804       ; Input:  STATION =  Station Nu mber of In stitution  to set thi s VistA sy stem to.
  1805       N XSAUCI, XSAVOL,XSA BV,Y,XSAOS ,XSAINST,X SASYSL,DUZ ,MSG
  1806       W !!,"Ini tializing  Station: " ,STATION
  1807       ; -- Init ial System  Setup for  logon
  1808       D INIT^XS APXACC,SET UP^XUSRB(. XSASYSL,"" ,1,"") S D UZ=$O(^VA( 200,"B","T OMLIN,BRIA N",0))
  1809       I '+DUZ S  DUZ=1
  1810       S XSAINST =+$$SITE^V ASITE
  1811       W !!,"Upd ating M so ftware..."
  1812       D REGEN^X SAPXDV1
  1813       ; -- Make  sure Task man is sto pped
  1814       W !!,"Sto pping Task Manager... "
  1815       D GROUP^Z TMKU("SMAN (NODE)"),G ROUP^ZTMKU ("SSUB(NOD E)"),STPAC T^ZTMKU W  !,"Done."
  1816       ;
  1817       I +STATIO N S XSAINS T=$O(^DIC( 4,"D",STAT ION,0))
  1818       S XSAOS=$ $OS^%ZOSV
  1819       D GETENV^ %ZOSV S XS AUCI=$P(Y, U),XSAVOL= $P(Y,U,2), XSABV=$P(Y ,U,4)
  1820       S ^%ZOSF( "MGR")=XSA UCI,^%ZOSF ("PROD")=X SAUCI,^%ZO SF("VOL")= XSAVOL
  1821       ;
  1822       D VOLUME( XSAUCI,XSA VOL)
  1823       D DEVICE
  1824       D KERNEL( XSAINST)
  1825       D MEDCTR( XSAINST)
  1826       D STATION (STATION)
  1827       D TASKMAN (XSABV)
  1828       D PHARM ;  Update Ph armacy Sys tem parame ters
  1829       D TESTDAT ^XSAPXDV3
  1830       ;W !!,"St arting Tas kman..."
  1831       ; Start T askman
  1832       ;D ^ZTMB
  1833       W !!,"Ini tializatio n Complete  for STATI ON: ",STAT ION,!!
  1834       Q
  1835       ;
  1836      DEVICE ; S ets up the  Device fi le with th e null dev ice for th is OS.
  1837       N XSANULL ,IEN,MSG
  1838       ; Set up  devices
  1839       W !!,"Upd ating the  DEVICE fil e"
  1840       I $O(^%ZI S(1,"B","N ULL",0)) D  FILEDEV(1 ,$O(^%ZIS( 1,"B","NUL L",0)),$S( XSAOS["NT" :"//./nul" ,1:"/dev/n ull"))
  1841       I $O(^%ZI S(1,"B","H FS",0)) D  FILEDEV(1, $O(^%ZIS(1 ,"B","HFS" ,0)),$S(XS AOS["NT":" C:\TEMP\TM P.txt",1:" /tmp/tmp.t xt"))
  1842       I $O(^%ZI S(1,"B","C ONSOLE",0) ) D FILEDE V(1,$O(^%Z IS(1,"B"," CONSOLE",0 )),$S(XSAO S["NT":"|T NT|",1:"/d ev/pts"))
  1843       ;I $O(^%Z IS(1,"B"," TELNET",0) ) D FILEDE V(1,$O(^%Z IS(1,"B"," TELNET",0) ),$S(XSAOS ["NT":"|TN T|",1:"/de v/pts"))
  1844       Q
  1845       ;
  1846      FILEDEV(FI ELD,IEN,VA LUE) ; Upd ate Device  file
  1847       N FDA,MSG
  1848       I $P(^%ZI S(1,IEN,0) ,U,2)=VALU E Q
  1849       S FDA(3.5 ,IEN_",",F IELD)=VALU E
  1850       D FILE^DI E("E","FDA ","MSG")
  1851       I $D(MSG)  W !,"  ** Error Upda ting DEVIC E file for  "_$P(^%ZI S(1,IEN,0) ,U)_" devi ce.**",! Z W MSG Q
  1852       W !,"  Su ccessfully  Updated " _$P(^%ZIS( 1,IEN,0),U )_" device ."
  1853       Q
  1854       ;
  1855      MEDCTR(INS T) ; Sets  up the Med ical Cente r Division  file with  the corre ct Institu tion
  1856       ; Input:  INST = Ins titution F ile IEN
  1857       W !!,"Upd ating MEDI CAL CENTER  DIVISION  file"
  1858       N FDA,MSG
  1859       S FDA(40. 8,"1,",.07 )=$P(^DIC( 4,INST,0), U)
  1860       S FDA(40. 8,"1,",1)= $P(^DIC(4, INST,99),U )
  1861       D FILE^DI E("E","FDA ","MSG")
  1862       I $D(MSG)  W !,"  ** Error Upda ting MEDIC AL CENTER  DIVISION f ile.**",!  ZW MSG Q
  1863       W !,"  Su ccessfully  Updated " _$P(^DG(40 .8,1,0),U) _" MEDICAL  CENTER DI VISION."
  1864       Q
  1865       ;
  1866      KERNEL(INS T) ; Updat es the Ker nel System  Parameter s file wit h the corr ect Instit ution
  1867       ; Input:  INST = Ins titution F ile IEN
  1868       W !!,"Upd ating KERN EL SYSTEM  PARAMETERS  file."
  1869       N FDA,MSG
  1870       S FDA(898 9.3,1_",", 217)=$P(^D IC(4,INST, 0),U)
  1871       S FDA(898 9.3,1_",", 320)=$S(XS AOS["NT":" C:\TEMP",1 :"/opt/cac he/mgr/vis tajs")
  1872       D FILE^DI E("E","FDA ","MSG")
  1873       I $D(MSG)  W !,"  ** Error Upda ting KERNE L SYSTEM P ARAMETERS  file.**",!  ZW MSG Q
  1874       W !,"  Su ccessfully  Updated " _$P(^DIC(4 .2,$P(^XTV (8989.3,1, 0),U),0),U )_" KERNEL  SYSTEM PA RAMETERS."
  1875       Q
  1876       ;
  1877      VOLUME(UCI ,VOL) ; Up dates the  TaskMan UC I in the V olume Set  file
  1878       W !!,"Upd ating VOLU ME SET fil e."
  1879       N FDA,IEN ,MSG
  1880       S IEN=$O( ^%ZIS(14.5 ,"B",VOL,0 ))
  1881       S FDA(14. 5,IEN_",", 5)="VISTAJ S"
  1882       S FDA(14. 5,IEN_",", 6)=VOL
  1883       D FILE^DI E("E","FDA ","MSG")
  1884       I $D(MSG)  W !,"  ** Error Upda ting VOLUM E SET file .**",! ZW  MSG Q
  1885       W !,"  Su ccessfully  Updated " _$P(^%ZIS( 14.5,IEN,0 ),U)_" VOL UME SET."
  1886       Q
  1887       ;
  1888      STATION(ST ATION) ; U pdates the  Primary S tation
  1889       ; Input:  STATION =  The Statio n Number f or the pri mary divis ion
  1890       W !!,"Upd ating the  STATION NU MBER file. "
  1891       N FDA,MSG
  1892       S FDA(389 .9,"1,",.0 3)=$P(^DG( 40.8,1,0), U)
  1893       S FDA(389 .9,"1,",.0 4)=STATION
  1894       D FILE^DI E("E","FDA ","MSG")
  1895       I $D(MSG)  W !,"  ** Error Upda ting STATI ON NUMBER  file.**",!  ZW MSG Q
  1896       W !,"  Su ccessfully  Updated " _$P(^VA(38 9.9,1,0),U )_" STATIO N NUMBER f ile record ."
  1897       Q
  1898       ;
  1899      TASKMAN(XS ABV) ; Rem ove all en tries from  the TASKS  Files and  update Si te Paramet ers
  1900       ; Input:  XSABV = Bo x:Volume p air for th is cpu
  1901       W !!,"Rem oving old  TASKS file  records."
  1902       N ZTSK,BO X,DA,DIK,Z TIEN,DOMAI N,XSASTN,M SG S (ZTIE N,ZTSK)=0
  1903       S XSASTN= $P($$SITE^ VASITE,U,3 )
  1904       F  S ZTSK =$O(^%ZTSK (ZTSK)) Q: 'ZTSK  W " ." D KILL^ %ZTLOAD
  1905       W !!,"Upd ating the  TASKMAN SI TE PARAMET ERS."
  1906       S DA=0,BO X="" F  S  BOX=$O(^%Z IS(14.7,"B ",BOX)) Q: BOX=""  D
  1907       . S DA=$O (^%ZIS(14. 7,"B",BOX, 0)) Q:'DA
  1908       . I BOX'= XSABV N DI K S DIK="^ %ZIS(14.7, " D ^DIK K  DIK,DA
  1909       I $O(^%ZI S(14.7,"B" ,XSABV,0)) ']"" D
  1910       . ; Build  the TaskM an Site Pa rameters i f it doesn 't exist
  1911       . N FDA,M SG
  1912       . S FDA(1 4.7,"+1,", .01)=XSABV
  1913       . S FDA(1 4.7,"+1,", 3)="NO"
  1914       . S FDA(1 4.7,"+1,", 5)=120
  1915       . S FDA(1 4.7,"+1,", 6)=240
  1916       . S FDA(1 4.7,"+1,", 7)=0
  1917       . S FDA(1 4.7,"+1,", 11)=40
  1918       . S FDA(1 4.7,"+1,", 8)="GENERA L PROCESSO R"
  1919       . D UPDAT E^DIE("E", "FDA","FDA IEN","MSG" )
  1920       . I $D(MS G) W !,"   **Error Up dating TAS KMAN SITE  PARAMETERS  file.**", ! ZW MSG Q
  1921       . W !,"   Successful ly Updated  TASKMAN S ITE PARAME TERS."
  1922       S ZTIEN=$ O(^%ZIS(14 .7,"B",XSA BV,0))
  1923       ; Update  the pointe rs to the  BOX:VOLUME  pair
  1924      XOB ; FOUN DATIONS SI TE PARAMET ERS
  1925       N XOBD,FD A,MSG S XO BD=0
  1926       W !!,"Upd ating the  FOUNDATION S SITE PAR AMETERS fi le."
  1927       F  S XOBD =$O(^XOB(1 8.01,"B",X OBD)) Q:'X OBD  D
  1928       . I XOBD' =$P(^XTV(8 989.3,1,0) ,U) S FDA( 18.01,"1," ,.01)=$P(^ XTV(8989.3 ,1,0),U)
  1929       . S FDA(1 8.012,"1,1 ,",.01)=ZT IEN
  1930       . D FILE^ DIE("","FD A","MSG")
  1931       . I $D(MS G) W !,"   **Error Up dating FOU NDATIONS S ITE PARAME TERS file. **",! ZW M SG Q
  1932       . W !,"   Successful ly Updated  FOUNDATIO NS SITE PA RAMETERS f ile."
  1933       ; RPC BRO KER SITE P ARAMETERS
  1934      XWB N XWBD ,FDA,MSG S  XWBD=0
  1935       N DIK,DA  S DIK="^XW B(8994.1," ,DA=0
  1936       W !!,"Rem oving RPC  Broker Lis teners."
  1937       F  S XWBD =$O(^XWB(8 994.1,"B", XWBD)) Q:' XWBD  S DA =$O(^XWB(8 994.1,"B", XWBD,0)) D  ^DIK
  1938       W !!,"Add ing RPC Br oker Liste ner."
  1939       S FDA(899 4.1,"+1,", .01)=$P(^D IC(4.2,$P( ^XTV(8989. 3,1,0),U), 0),U)
  1940       S FDA(899 4.17,"+2,+ 1,",.01)=X SABV
  1941       S FDA(899 4.171,"+3, +2,+1,",.0 1)="9200"
  1942       S FDA(899 4.171,"+3, +2,+1,",.5 )="New Sty le"
  1943       S FDA(899 4.171,"+3, +2,+1,",2) ="YES"
  1944       D UPDATE^ DIE("E","F DA","FDAIE N","MSG")
  1945       I $D(MSG)  W !,"  ** Error Upda ting RPC B roker List ener.**",!  ZW MSG Q
  1946       W !,"  Su ccessfully  Updated R PC Broker  Listener."
  1947       W !,"  RP C Broker w ill start  on port "_ $S(XSASTN= 516:"9201" ,XSASTN=67 3:"9202",X SASTN=548: "9203",1:" 9200")
  1948       ; Update  the OPTION  SCHEDULIN G file to  remove any  existing  options th at were pr eviously t asked
  1949       N XSAOPT, XSAOSC S ( XSAOPT,XSA OSC)=0
  1950       W !!,"Upd ating the  Scheduled  Taskman Op tions."
  1951       F  S XSAO PT=$O(^DIC (19.2,"B", XSAOPT)) Q :'XSAOPT   D
  1952       . S XSAOS C=$O(^DIC( 19.2,"B",X SAOPT,XSAO SC)) Q:'XS AOSC
  1953       . I $G(^D IC(19.2,XS AOSC,1))]" " S ^DIC(1 9.2,XSAOSC ,1)=""
  1954       . I $P(^D IC(19.2,XS AOSC,0),U, 5)]"",$P(^ DIC(19.2,X SAOSC,0),U ,5)'=$P(XS ABV,":") S  $P(^DIC(1 9.2,XSAOSC ,0),U,5)=$ P(XSABV,": ")
  1955       . W !,"   Successful ly updated  Scheduled  Taskman O ption: "_$ P(^DIC(19, XSAOPT,0), U)
  1956       W !!,"Rei ndexing th e OPTION S CHEDULING  file."
  1957       S DIK="^D IC(19.2,"  D IXALL^DI K
  1958       W !!,"Com pleting Ta skMan Setu p."
  1959       D SETUP^X UTMK
  1960       Q
  1961       ;
  1962      PHARM ; Up date the P HARMACY pa rameters
  1963       N FDA,MSG ,IEN
  1964       W !!,"Upd ating PHAR MACY SYSTE M file."
  1965       ;
  1966       ;S FDA(59 .7,"1,",13 )="@"
  1967       S FDA(59. 7,"1,",16) ="NEW"
  1968       D FILE^DI E("E","FDA ","MSG")
  1969       I $D(MSG)  W !,"  ** Error Upda ting PHARM ACY SYSTEM  file.**", ! ZW MSG
  1970       S $P(^PS( 59.7,1,40. 1),U,4)=""
  1971       ;
  1972       W !!,"Upd ating OUTP ATIENT PHA RMACY SITE  Parameter s."
  1973       N FDA,MSG ,IEN,IENS, OPSITE S I EN=0
  1974       S OPSITE= "" F I=1:1 :$P(^PS(59 ,0),U,4) S  OPSITE=$O (^PS(59,"B ",OPSITE))  Q:OPSITE= ""  D
  1975       . Q:OPSIT E["INACTIV E"
  1976       . S IEN=$ O(^PS(59," B",OPSITE, 0))
  1977       S IENS=$S ('IEN:"+1, ",1:IEN_", ")
  1978       S FDA(59, IENS,.02)= "123 ANYST REET"
  1979       S FDA(59, IENS,.03)= "555"
  1980       S FDA(59, IENS,.04)= "999-9999"
  1981       S FDA(59, IENS,.05)= "99990"
  1982       S FDA(59, IENS,.06)= $P($$SITE^ VASITE,U,3 )
  1983       S FDA(59, IENS,.07)= "ANYTOWN"
  1984       S FDA(59, IENS,.08)= "WEST VIRG INIA"
  1985       S FDA(59, IENS,.09)= "YES"
  1986       S FDA(59, IENS,.091) ="YES"
  1987       S FDA(59, IENS,.1)=" YES"
  1988       S FDA(59, IENS,.09)= "YES"
  1989       S FDA(59, IENS,.111) ="YES"
  1990       S FDA(59, IENS,.112) ="NO"
  1991       S FDA(59, IENS,.113) ="YES"
  1992       S FDA(59, IENS,.114) ="DATE"
  1993       S FDA(59, IENS,.115) ="YES"
  1994       S FDA(59, IENS,.116) ="YES"
  1995       S FDA(59, IENS,.117) ="YES"
  1996       S FDA(59, IENS,.118) ="NO"
  1997       S FDA(59, IENS,.119) ="BOTH"
  1998       S FDA(59, IENS,.1191 )="YES"
  1999       S FDA(59, IENS,.12)= "NO"
  2000       S FDA(59, IENS,.121) ="@"
  2001       S FDA(59, IENS,.122) ="YES"
  2002       S FDA(59, IENS,.123) ="YES"
  2003       S FDA(59, IENS,.13)= "YES"
  2004       S FDA(59, IENS,.14)= "YES"
  2005       S FDA(59, IENS,.15)= "NO"
  2006       S FDA(59, IENS,.16)= "NO"
  2007       S FDA(59, IENS,7)="Y ES"
  2008       S FDA(59, IENS,105.1 )="YES"
  2009       ;S FDA(59 .08,"+2,"_ IENS,.01)= $P($$SITE^ VASITE,U,2 )
  2010       S FDA(59, IENS,100)= $P($$SITE^ VASITE,U,2 )
  2011       S FDA(59, IENS,109)= "1000"
  2012       S FDA(59, IENS,1000) ="YES"
  2013       S FDA(59, IENS,1001) ="10000"
  2014       S FDA(59, IENS,1002) ="99999"
  2015       S FDA(59, IENS,2001) ="500000"
  2016       S FDA(59, IENS,2002) ="50000000 0"
  2017       D FILE^DI E("E","FDA ","MSG")
  2018       I $D(MSG)  W !,"  ** Error Upda ting OUTPA TIENT SITE  file.**", ! ZW MSG
  2019       ;
  2020       W !!,"Rem oving Bing o Board Di splay Grou ps."
  2021       N DIK,DA
  2022       S DIK="^P S(59.3," S  DISP="" F   S DISP=$ O(^PS(59.3 ,"B",DISP) ) Q:DISP=" "  D
  2023       . S DA=$O (^PS(59.3, "B",DISP,0 )) Q:'DA   D ^DIK W " ."
  2024       Q
  2025      ]]>
  2026     </Routine>
  2027    
  2028    
  2029     <Routine 
  2030      name="XSAP XERR" 
  2031      type="INT"  
  2032      languagemo de="0" 
  2033      timestamp= "64140,484 44.017364"
  2034     >
  2035      <![CDATA[
  2036      XSAPXERR ; rbc/apex -  Standard  error trap ping routi ne;1/27/20 16
  2037       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 4 8
  2038       ;
  2039       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  2040       ;
  2041       ; Externa l Referenc es           DBIA#
  2042       ; ------- ---------- --           -----
  2043       ; $$EC^%Z OSV                     10097
  2044       ; ^%ZTER                          1621
  2045       ; $$EZBLD ^DIALOG                 2050
  2046       Q
  2047       ;
  2048       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  2049       ;
  2050      ERROR(CODE ,XSANAME,P ARAMS,MSG)  ; -- send  applicati on error
  2051       N XSAI,XS ADAT
  2052       S XSAERR= 0
  2053       ; -- if p arameters  are passed  as in COD E (where C ODE = code ^param1^pa ram2^...)
  2054       ; -- pars e CODE and  put param eters into  PARAMS ar ray.
  2055       I CODE[U, $D(PARAMS) =0 D
  2056       . K PARAM S
  2057       . F XSAI= 2:1:$L(COD E,U) S PAR AMS(XSAI-1 )=$P(CODE, U,XSAI)
  2058       ;
  2059       S @TARGET @("error", "data","fa ult string ")="Intern al Applica tion Error "
  2060       S @TARGET @("error", "data","fa ult actor" )=XSANAME
  2061       S @TARGET @("error", "data","co de")=CODE
  2062       S @TARGET @("error", "data","er ror type") =XSANAME
  2063       S @TARGET @("error", "error")=$ S(MSG]"":M SG,1:$$EZB LD^DIALOG( CODE,.PARA MS))
  2064       ;
  2065       Q XSAERR
  2066       ;
  2067      ERR(TARGET ) ; -- Cat ch an erro r and stor e it in th e Error Gl obal
  2068       S XSAERR= 0
  2069       ; Save er ror data t o the Symb ol Table v alues if r equested.
  2070       I +$G(XSA SYM) D SAV ESYM^XSAPX UTL($TR(TA RGET,")"," ,")_"""sym bolTable"" "_",")
  2071       ;K @TARGE T
  2072       S %ZT(TAR GET)=""
  2073       S $ZE="XS A ERROR: " _$$EC^%ZOS V
  2074       S $ZE="XS A ERROR: " _$$EC^%ZOS V
  2075       S @TARGET @("error", "data","fa ult string ")="Genera l System E rror"
  2076       S @TARGET @("error", "data","fa ult actor" )="System  Fault Erro r"
  2077       S @TARGET @("error", "data","co de")=00000
  2078       S @TARGET @("error", "data","er ror type") ="System F ault Error "
  2079       S @TARGET @("error", "error")=$ ZE
  2080       ;
  2081       ; -- Save  off the e rror
  2082       D ^%ZTER
  2083       ;
  2084       Q XSAERR
  2085      ]]>
  2086     </Routine>
  2087    
  2088    
  2089     <Routine 
  2090      name="XSAP XIAM" 
  2091      type="INT"  
  2092      languagemo de="0" 
  2093      timestamp= "64140,485 20.372312"
  2094     >
  2095      <![CDATA[
  2096      XSAPXIAM ; DAL/BNT -  VistA Serv ice Assemb ler XUS IA M Wrapper  Functions; 1/27/2016
  2097       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 3 5
  2098       ;
  2099       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  2100       ;
  2101       ; Externa l Referenc es           DBIA#
  2102       ; ------- ---------- --           -----
  2103       ; IAMAU^X UESSO3                  6290
  2104       ; IAMDU^X UESSO3                  6289
  2105       ; IAMEU^X UESSO3                  6291
  2106       ; IAMFU^X UESSO3                  6288
  2107       ; IAMRU^X UESSO3                  6293
  2108       ; IAMTU^X UESSO3                  6292
  2109       Q
  2110       ;
  2111       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  2112       ;
  2113       ;
  2114      IAMAU(SOUR CE,TARGET)  ; IAM Add  User
  2115       N X,R,NAM E,SECID,EM AIL,ADUPN, SSN,DOB,ST ATION,AUTH CODE
  2116       F X="NAME ","SECID", "EMAIL","A DUPN","SSN ","DOB","S TATION","A UTHCODE" D  INITPARM^ XSAPXUTL(. X)
  2117       D IAMAU^X UESSO3(.R, NAME,SECID ,EMAIL,ADU PN,SSN,DOB ,STATION,A UTHCODE)
  2118       I +R(0)<1  D  Q $$RE SULT^XSAPX UTL()
  2119       . D BLDER ROR^XSAPXU TL(1,$S(R( 1)]"":R(1) ,1:"Unable  to Add Us er"),"IAM  Add User")  Q
  2120       S @TARGET @("results ","DUZ")=$ P(R(0),U)
  2121       S @TARGET @("results ","STATION ")=$P(R(0) ,U,2)
  2122       Q $$RESUL T^XSAPXUTL ()
  2123       ;
  2124      IAMEU(SOUR CE,TARGET)  ; IAM Edi t User
  2125       N R,INARR Y,AUTHCODE
  2126       F X="AUTH CODE" D IN ITPARM^XSA PXUTL(.X)
  2127       M INARRY= @SOURCE@(" INARRY")
  2128       D IAMEU^X UESSO3(.R, .INARRY,AU THCODE)
  2129       I +R(0)<1  D  Q $$RE SULT^XSAPX UTL()
  2130       . D BLDER ROR^XSAPXU TL(1,$S(R( 1)]"":R(1) ,1:"Unable  to Edit U ser"),"IAM  Edit User ") Q
  2131       S @TARGET @("results ","DUZ")=R (0)
  2132       Q $$RESUL T^XSAPXUTL ()
  2133       ;
  2134      IAMDU(SOUR CE,TARGET)  ; IAM Dis play User
  2135       N X,R,DIS PDUZ,AUTHC ODE
  2136       F X="DISP DUZ","AUTH CODE" D IN ITPARM^XSA PXUTL(.X)
  2137       D IAMDU^X UESSO3(.R, DISPDUZ,AU THCODE)
  2138       I +R(0)<1  D  Q $$RE SULT^XSAPX UTL()
  2139       . D BLDER ROR^XSAPXU TL(1,$S(R( 1)]"":R(1) ,1:"Unable  to Displa y User")," IAM Displa y User") Q
  2140       M @TARGET @("results ")=R
  2141       Q $$RESUL T^XSAPXUTL ()
  2142       ;
  2143      IAMFU(SOUR CE,TARGET)  ; IAM Fin d User
  2144       N X,R,NAM E,SSN,DOB, ADUPN,SECI D,AUTHCODE
  2145       F X="NAME ","SSN","D OB","ADUPN ","SECID", "AUTHCODE"  D INITPAR M^XSAPXUTL (.X)
  2146       D IAMFU^X UESSO3(.R, NAME,SSN,D OB,ADUPN,S ECID,AUTHC ODE)
  2147       I +R(0)<1  D  Q $$RE SULT^XSAPX UTL()
  2148       . D BLDER ROR^XSAPXU TL(1,$S(R( 1)]"":R(1) ,1:"Unable  to Find U ser"),"IAM  Find User ") Q
  2149       M @TARGET @("results ")=R
  2150       Q $$RESUL T^XSAPXUTL ()
  2151       ;
  2152      IAMRU(SOUR CE,TARGET)  ; IAM Rea ctivate Us er
  2153       N X,R,SEC ID,AUTHCOD E
  2154       F X="SECI D","AUTHCO DE" D INIT PARM^XSAPX UTL(.X)
  2155       D IAMRU^X UESSO3(.R, SECID,AUTH CODE)
  2156       I +R(0)<1  D  Q $$RE SULT^XSAPX UTL()
  2157       . D BLDER ROR^XSAPXU TL(1,$S(R( 1)]"":R(1) ,1:"Unable  to Reacti vate User" ),"IAM Rea ctivate Us er") Q
  2158       S @TARGET @("results ","DUZ")=R (0)
  2159       Q $$RESUL T^XSAPXUTL ()
  2160       ;
  2161      IAMTU(SOUR CE,TARGET)  ; IAM Ter minate Use r
  2162       N X,R,SEC ID,TERMDAT E,TERMRESN ,AUTHCODE
  2163       F X="SECI D","TERMDA TE","TERMR ESN","AUTH CODE" D IN ITPARM^XSA PXUTL(.X)
  2164       D IAMTU^X UESSO3(.R, SECID,TERM DATE,TERMR ESN,AUTHCO DE)
  2165       I +R(0)<1  D  Q $$RE SULT^XSAPX UTL()
  2166       . D BLDER ROR^XSAPXU TL(1,$S(R( 1)]"":R(1) ,1:"Unable  to Termin ate User") ,"IAM Term inate User ") Q
  2167       S @TARGET @("results ","DUZ")=R (0)
  2168       Q $$RESUL T^XSAPXUTL ()
  2169      ]]>
  2170     </Routine>
  2171    
  2172    
  2173     <Routine 
  2174      name="XSAP XINS" 
  2175      type="INT"  
  2176      languagemo de="0" 
  2177      timestamp= "64189,481 56"
  2178     >
  2179      <![CDATA[
  2180      XSAPXINS ; SYD/JWM -  VSA Server  Instituti on Data Fu nctions ;9 /28/2016
  2181       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15
  2182       ;
  2183       Q
  2184      SITENAME(S OURCE,TARG ET) ; retu rn site na me of each  site prov ided in th e SITES ar gument fro m instutio n file (4)
  2185       N ERRRES, SITEID,INS ID
  2186       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  2187       I '$D(@SO URCE@("SIT ES")) D BL DERROR^XSA PXUTL(1,"N o sites sp ecified"," SITENAME^X SAPXINS")  Q $$RESULT ^XSAPXUTL( )
  2188       ; SITES s ubscript s hould also  contain s ubnodes fo r each ite m to be ke pt
  2189       S SITEID= ""
  2190       F  S SITE ID=$O(@SOU RCE@("SITE S",SITEID) ) Q:SITEID =""  D
  2191       . S INSID =$O(^DIC(4 ,"D",SITEI D,""))
  2192       . I $L(IN SID)>0 D
  2193       . . S @TA RGET@("res ults","sit eData",SIT EID,"siteN ame")=$P(^ DIC(4,INSI D,0),U,1)
  2194       . . S @TA RGET@("res ults","sit eData",SIT EID,"offic ialName")= $P(^DIC(4, INSID,99), U,3)
  2195       S @TARGET @("results ","ok")=1
  2196       Q $$RESUL T^XSAPXUTL ()
  2197      ]]>
  2198     </Routine>
  2199    
  2200    
  2201     <Routine 
  2202      name="XSAP XL1" 
  2203      type="INT"  
  2204      languagemo de="0" 
  2205      timestamp= "64140,486 25.613684"
  2206     >
  2207      <![CDATA[
  2208      XSAPXL1 ;D AL/BNT - V istA Servi ces Assemb ler FileMa n Wrapper  Utility Fu nctions;1/ 27/2016
  2209       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 3 5
  2210       ;
  2211       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  2212       ; Externa l Referenc es           DBIA#
  2213       ; ------- ---------- --           -----
  2214       ; LIST^DI C                       2051
  2215       ; UPDATE^ DIE                     2053
  2216       ; WP^DIE                          2053
  2217       ; GETS^DI Q                       2056
  2218       Q
  2219       ;
  2220       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  2221       ;
  2222      GETS(SOURC E,TARGET)  ; Wrapper  for FileMa n GETS^DIQ  Database  Server API
  2223       N ERRRES, SUCCESS,FI LE,IENS,FI ELDS,FLAGS
  2224       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  2225       N X F X=" FILE","IEN S","FIELDS ","FLAGS"  D INITPARM ^XSAPXUTL( .X)
  2226       ; Verify  that FILE  exists
  2227       S SUCCESS =$$VFILE^X SAPXUTL(FI LE,TARGET)  Q:'+SUCCE SS $$RESUL T^XSAPXUTL ()
  2228       ; Verify  that IENS  exists
  2229       I IENS=""  D BLDERRO R^XSAPXUTL (1,"Missin g IENS par ameter","G ETS^XSAPXL 1") Q XSAE RR
  2230       ; Verify  that FIELD  is valid
  2231       I FIELDS] "" S SUCCE SS=$$VFIEL D^XSAPXUTL (FILE,FIEL DS,"**",TA RGET) Q:'+ SUCCESS $$ RESULT^XSA PXUTL()
  2232       I FIELDS= "" S FIELD S="**"
  2233       ; Verify  that FLAGS  is valid
  2234       I FLAGS]" " S SUCCES S=$$VFLAGS ^XSAPXUTL( "EINRZ",FL AGS,TARGET ) Q:'+SUCC ESS $$RESU LT^XSAPXUT L()
  2235       ; If FLAG S are null , set to d efault
  2236       I FLAGS=" " S FLAGS= "ENR"
  2237       ; Make su re the IEN S is prope rly format ted
  2238       I $E(IENS ,$L(IENS)) '="," S IE NS=IENS_", "
  2239       ; Call th e FileMan  GETS^DIQ A PI and che ck for Err or Conditi on
  2240       D GETS^DI Q(FILE,IEN S,FIELDS,F LAGS,RESUL TS,ERRRES)
  2241       ; If an e rror occur ed, get th e error co de and tex t from the  results a nd build e rror node
  2242       I $D(@ERR RES) D ERR OR^XSAPXUT L(ERRRES," $$GETS^XSA PXL1") Q $ $RESULT^XS APXUTL()
  2243       ; Parse t he data in  the RESUL TS array a nd convert  it to a V istA.js su itable for mat
  2244       D GETS^XS APXUTL(RES ULTS,TARGE T)
  2245       Q $$RESUL T^XSAPXUTL ()
  2246       ;
  2247      LIST(SOURC E,TARGET)  ; Wrapper  for FileMa n LIST^DIC  Lister AP I
  2248       N ERRRES, SUCCESS,FI LE,IENS,FI ELDS,FLAGS ,NUMBER,FR OM,PART,IN DEX,SCREEN ,ID,X
  2249       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  2250       N X F X=" FILE","IEN S","FIELDS ","FLAGS", "NUMBER"," FROM","PAR T","INDEX" ,"SCREEN", "ID" D INI TPARM^XSAP XUTL(.X)
  2251       ; Make su re PART is  in upper  case
  2252       S PART=$$ UP^XLFSTR( PART)
  2253       ; Verify  that FILE  exists
  2254       S SUCCESS =$$VFILE^X SAPXUTL(FI LE,TARGET)  Q:'+SUCCE SS $$RESUL T^XSAPXUTL ()
  2255       ; Verify  that FIELD  is valid
  2256       I FIELDS= "" S SUCCE SS=$$VFIEL D^XSAPXUTL (FILE,FIEL DS,"@IXIFI DIIXEFIDEW ID-",TARGE T) Q:'+SUC CESS $$RES ULT^XSAPXU TL()
  2257       I FIELDS= "" S FIELD S="@;.01;F ID"
  2258       ; Verify  that FLAGS  is valid
  2259       I FLAGS]" " S SUCCES S=$$VFLAGS ^XSAPXUTL( "BIKPMQU", FLAGS,TARG ET) Q:'+SU CCESS $$RE SULT^XSAPX UTL()
  2260       ; If FLAG S are null , set to d efault
  2261       I FLAGS=" " S FLAGS= "P"
  2262       ; Call th e FileMan  LIST^DIC A PI and che ck for Err or Conditi on
  2263       D LIST^DI C(FILE,IEN S,FIELDS,F LAGS,NUMBE R,FROM,PAR T,INDEX,SC REEN,ID,RE SULTS,ERRR ES)
  2264       ; If an e rror occur ed, get th e error co de and tex t from the  results a nd build e rror node
  2265       I $D(@ERR RES) D ERR OR^XSAPXUT L(RESULTS, "$$LIST^XS APXL1") Q  $$RESULT^X SAPXUTL()
  2266       ; Parse t he data in  the RESUL TS array a nd convert  it to a V istA.js su itable for mat
  2267       D LIST^XS APXUTL(FIL E,RESULTS, TARGET)
  2268       Q $$RESUL T^XSAPXUTL ()
  2269       ;
  2270      UPD1701(SO URCE,TARGE T) ; Wrapp er for Fil eMan Updat er to add/ update/del ete record s in the X SA Definit ions file
  2271       N RES,FDA ,FDAIEN,SU CCESS,IEN, NAME,DEF,M SG,WPERR
  2272       N X F X=" IEN","NAME ","DEF" D  INITPARM^X SAPXUTL(.X )
  2273       I $D(@SOU RCE@("DEF" )) M DEF=@ SOURCE@("D EF") S DEF (0)=""
  2274       I 'IEN,NA ME']"" D B LDERROR^XS APXUTL(1," NAME or IE N is requi red","$$UP D1701^XSAP XL1") Q $$ RESULT^XSA PXUTL()
  2275       ; If no I EN but NAM E exists,  try to fin d a match  to update
  2276       I 'IEN,NA ME]"" S IE N=$O(^XSA( 17.01,"B", NAME,0))
  2277       ; Set up  IENS
  2278       S IENS=$S ($G(IEN)]" ":IEN,1:"+ 1,")
  2279       I $E(IENS ,$L(IENS)) '="," S IE NS=IENS_", "
  2280       I NAME]""  S FDA(17. 01,IENS,.0 1)=NAME D  UPDATE^DIE ("","FDA", "FDAIEN"," MSG(17.01) ") S IEN=$ S($G(FDAIE N(1))]"":F DAIEN(1),1 :IEN)
  2281       ; If an e rror occur ed, get th e error co de and tex t from the  results a nd build e rror node
  2282       I $D(MSG( 17.01,"DIE RR")) M @R ESULTS=MSG (17.01) D  ERROR^XSAP XUTL(RESUL TS,"$$UPD1 701^XSAPXL 1") Q $$RE SULT^XSAPX UTL()
  2283       ; Update  DEFINITION  if needed
  2284       I $D(DEF( 1)),IEN>0, $G(NAME)'= "@" D WP^D IE(17.01,I EN_",",10, "K","DEF", "WPERR(17. 02)") I $D (WPERR(17. 02)) M @RE SULTS=WPER R(17.02) D  ERROR^XSA PXUTL(RESU LTS,"$$UPD 1701^XSAPX L1") Q $$R ESULT^XSAP XUTL()
  2285       S @TARGET @("results ","IEN")=I EN
  2286       Q $$RESUL T^XSAPXUTL ()
  2287       ;
  2288      RPCMETA(SO URCE,TARGE T) ; Wrapp er for RPC  Metatdata
  2289       N ERR,IEN ,IENS,MSIG ,PNUM,RES, MSG,RPC,RE SIDX
  2290       N X F X=" RPC" D INI TPARM^XSAP XUTL(.X)
  2291       I RPC']""   D BLDERR OR^XSAPXUT L(1,"The R PC is requ ired in or der to loo k up an RP C.","RPCME TA^XSAPXL1 ") Q $$RES ULT^XSAPXU TL()
  2292       I $D(^XWB (8994,RPC) ) S IEN=RP C
  2293       E  S IEN= $O(^XWB(89 94,"B",RPC ,0))
  2294       I 'IEN D  BLDERROR^X SAPXUTL(1, "RPC "_RPC _" is not  a valid RP C.","RPCME TA^XSAPXL1 ") Q $$RES ULT^XSAPXU TL()
  2295       ; Build t he output  data
  2296       S IENS=IE N_"," D GE TS^DIQ(899 4,IENS,"** ","E","RES ","MSG")
  2297       S @TARGET @("results ","name")= RES(8994,I ENS,.01,"E ")
  2298       I RES(899 4,IENS,.03 ,"E")']""  D BLDERROR ^XSAPXUTL( 1,"RPC ROU TINE is un defined.", "RPCMETA^X SAPXL1") Q  $$RESULT^ XSAPXUTL()
  2299       I RES(899 4,IENS,.02 ,"E")']""  D BLDERROR ^XSAPXUTL( 1,"RPC TAG  is undefi ned.") Q $ $RESULT^XS APXUTL()
  2300       S @TARGET @("results ","tag")=R ES(8994,IE NS,.02,"E" )
  2301       S @TARGET @("results ","routine ")=RES(899 4,IENS,.03 ,"E")
  2302       S MSIG=$$ MTHDSIG^XS APXUTL(RES (8994,IENS ,.03,"E"), RES(8994,I ENS,.02,"E "))
  2303       I MSIG=""  D BLDERRO R^XSAPXUTL (1,"Method  Signature  for TAG " _RES(8994, IENS,.02," E")_" in R OUTINE "_R ES(8994,IE NS,.03,"E" )_" is not  valid."," RPCMETA^XS APXL1") Q  $$RESULT^X SAPXUTL()
  2304       S @TARGET @("results ","methodS ignature") =$P(MSIG," (")_"^"_RE S(8994,IEN S,.03,"E") _"("_$P(MS IG,"(",2)
  2305       S @TARGET @("results ","returnT ype")=RES( 8994,IENS, .04,"E")
  2306       S @TARGET @("results ","availab ility")=RE S(8994,IEN S,.05,"E")
  2307       S @TARGET @("results ","inactiv e")=RES(89 94,IENS,.0 6,"E")
  2308       S @TARGET @("results ","clientM anager")=R ES(8994,IE NS,.07,"E" )
  2309       S @TARGET @("results ","wordWra pOn")=RES( 8994,IENS, .08,"E")
  2310       S @TARGET @("results ","version ")=RES(899 4,IENS,.09 ,"E")
  2311       S @TARGET @("results ","appProx yAllowed") =RES(8994, IENS,.11," E")
  2312       S @TARGET @("results ","descrip tion")=""
  2313       I RES(899 4,IENS,1," E")]"" M @ TARGET@("r esults","d escription ")=@RES(89 94,IENS,1, "E") K @TA RGET@("res ults","des cription", "E")
  2314       S @TARGET @("results ","returnP arameterDe scription" )=""
  2315       I RES(899 4,IENS,3," E")]"" M @ TARGET@("r esults","r eturnParam eterDescri ption")=@R ES(8994,IE NS,3,"E")  K @TARGET@ ("results" ,"returnPa rameterDes cription", "E")
  2316       ; Initial ize input  parameters  to zero i f none exi st
  2317       S @TARGET @("results ","inputPa rameter")= 0
  2318       I $L(MSIG ,",")<2 D
  2319       . S @TARG ET@("resul ts","input Parameter" ,0,"name") =""
  2320       . S @TARG ET@("resul ts","input Parameter" ,0,"parame terType")= ""
  2321       . S @TARG ET@("resul ts","input Parameter" ,0,"maxDat aLength")= ""
  2322       . S @TARG ET@("resul ts","input Parameter" ,0,"requir ed")=""
  2323       . S @TARG ET@("resul ts","input Parameter" ,0,"descri ption")=""
  2324       ; Set the  Input Par ameters ba sed on the  Method Si gnature, n ot what's  defined in  the RPC f ile
  2325       N I,CNT,X ,PARAM,PAR AMIDX S CN T=0 F I=2: 1 S X=$P($ P($P(MSIG, " "),")"), ",",I) Q:X =""  S CNT =CNT+1,PAR AM(CNT)=X, PARAMIDX(X )=CNT
  2326       N X,NAME, SEQNUM S X ="" F  S X =$O(RES(89 94.02,X))  Q:X=""  D
  2327       . S NAME= $G(RES(899 4.02,X,.01 ,"E"))
  2328       . S SEQNU M=$G(RES(8 994.02,X,. 05,"E"))
  2329       . I $L(NA ME) D
  2330       . . S RES IDX(NAME,X )=SEQNUM
  2331       N NAME,SE QNUM,CNT S  NAME="" F   S NAME=$ O(PARAMIDX (NAME)) Q: NAME=""  D
  2332       . S CNT=$ INCREMENT( @TARGET@(" results"," inputParam eter"))
  2333       . S SEQNU M=PARAMIDX (NAME)
  2334       . I $D(RE SIDX(NAME) ) D
  2335       . . ; Par ameter of  same name  found
  2336       . . S X=$ O(RESIDX(N AME,""))
  2337       . . I SEQ NUM'=RESID X(NAME,X)  D
  2338       . . . ;Se quence num ber of par ameter dif fers betwe en RPC def inition an d method s ignature
  2339       . . . S @ TARGET@("r esults","i nputParame ter",SEQNU M,"flag")= "Suspiciou s: RPC Inp ut Paramet er Name -  Variable N ame mismat ch"
  2340       . . . S @ TARGET@("r esults","i nputParame ter",SEQNU M,"RPCInpu tParamName ")=PARAM(R ESIDX(NAME ,X))
  2341       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "name")=NA ME
  2342       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "parameter Type")=$G( RES(8994.0 2,X,.02,"E "))
  2343       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "maxDataLe ngth")=$G( RES(8994.0 2,X,.03,"E "))
  2344       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "required" )=$G(RES(8 994.02,X,. 04,"E"))
  2345       . . I $G( RES(8994.0 2,X,1,"E") )]"" D
  2346       . . . M @ TARGET@("r esults","i nputParame ter",SEQNU M,"descrip tion")=@RE S(8994.02, X,1,"E")
  2347       . . . K @ TARGET@("r esults",SE QNUM,"desc ription"," E")
  2348       . I '$D(R ESIDX(NAME )) D
  2349       . . ;Para meter is i n method s ignature b ut not RPC  definitio n
  2350       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "flag")="S uspicious:  Missing R PC Input P arameter d efinition  in REMOTE  PROCEDURE  file"
  2351       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "name")=NA ME
  2352       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "parameter Type")=""
  2353       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "maxDataLe ngth")=""
  2354       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "required" )=""
  2355       . . S @TA RGET@("res ults","inp utParamete r",SEQNUM, "descripti on")=""
  2356       ;Check fo r RPC name s defined  in the RPC  definitio n but not  found in t he method  signature
  2357       N NAME,J  S NAME=""  F  S NAME= $O(RESIDX( NAME)) Q:N AME=""  D
  2358       . I '$D(P ARAMIDX(NA ME)) D
  2359       . . S J=$ INCREMENT( @TARGET@(" results"," inputParam eter"))
  2360       . . S X=$ O(RESIDX(N AME,""))
  2361       . . S @TA RGET@("res ults","inp utParamete r",J,"flag ")="Suspic ious: RPC  Input Para meter Name  - Variabl e Name mis match"
  2362       . . S @TA RGET@("res ults","inp utParamete r",J,"name ")=NAME
  2363       . . S @TA RGET@("res ults","inp utParamete r",J,"RPCI nputParamN ame")=NAME
  2364       . . S @TA RGET@("res ults","inp utParamete r",J,"para meterType" )=$G(RES(8 994.02,X,. 02,"E"))
  2365       . . S @TA RGET@("res ults","inp utParamete r",J,"maxD ataLength" )=$G(RES(8 994.02,X,. 03,"E"))
  2366       . . S @TA RGET@("res ults","inp utParamete r",J,"requ ired")=$G( RES(8994.0 2,X,.04,"E "))
  2367       . . I $G( RES(8994.0 2,X,1,"E") )]"" D
  2368       . . . M @ TARGET@("r esults","i nputParame ter",J,"de scription" )=@RES(899 4.02,X,1," E")
  2369       . . . K @ TARGET@("r esults",J, "descripti on","E")
  2370       Q $$RESUL T^XSAPXUTL ()
  2371       ;
  2372      FUNCTION(S OURCE,TARG ET) ; Exec ute an ext ernal func tion and r eturn the  output
  2373       N ERR,FUN C,RES,METH SIG,MSIG,C ALL,XSADAT A,ROUTINE, ENTRY S ER R=""
  2374       N X F X=" ROUTINE"," ENTRY" D I NITPARM^XS APXUTL(.X)
  2375       N METHSIG ,MSIG
  2376       S MSIG=$$ MTHDSIG^XS APXUTL(ROU TINE,ENTRY )
  2377       I MSIG=""  D BLDERRO R^XSAPXUTL (1,"Method  Signature  "_ENTRY_" ^"_ROUTINE _" does no t exist.", "FUNCTION^ XSAPXL1")  Q $$RESULT ^XSAPXUTL( )
  2378       I MSIG'[" (" D BLDER ROR^XSAPXU TL(1,"Meth od Signatu re "_ENTRY _"^"_ROUTI NE_" is no t a Functi on.","FUNC TION^XSAPX L1") Q $$R ESULT^XSAP XUTL()
  2379       ; Need to  handle th e case for  no input  params
  2380       S METHSIG =ENTRY_"^" _ROUTINE_" ()"
  2381       ; Parse t he PARAMS  global and  build par ams for me thod signa ture
  2382       D GETPARM S^XSAPXUTL (.SOURCE,R OUTINE,.XS ADATA)
  2383       I $G(XSAD ATA(ROUTIN E,"PARAMS" ))]"" S ME THSIG=ENTR Y_"^"_ROUT INE_"("_$G (XSADATA(R OUTINE,"PA RAMS"))_") "
  2384       ; Create  the Functi on Call an d execute  it
  2385       S CALL="S  RES=$$"_M ETHSIG X C ALL
  2386       S @TARGET @("results ","result" )=RES
  2387       Q $$RESUL T^XSAPXUTL ()
  2388      ]]>
  2389     </Routine>
  2390    
  2391    
  2392     <Routine 
  2393      name="XSAP XMU1" 
  2394      type="INT"  
  2395      languagemo de="0" 
  2396      timestamp= "64140,686 54.066338"
  2397     >
  2398      <![CDATA[
  2399      XSAPXMU1 ; DAL/BNT -  VistA Serv ices Assem bler Unit  Tests;1/27 /2016
  2400       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15
  2401       ;
  2402       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  2403       ; 
  2404       ; All ent ry points  authored b y Brian To mlin 2015- 2016
  2405       ;
  2406       ; makes i t easy to  run tests  simply by  running th is routine  and
  2407       ; insures  that XTMU NIT will b e run only  where it  is present
  2408       I $T(EN^X TMUNIT)'=" " D EN^XTM UNIT("XSAP XMU1",1)
  2409       Q
  2410       ;
  2411      STARTUP ;  optional e ntry point
  2412       ; if pres ent execut ed before  any other  entry poin t any vari ables
  2413       ; or othe r work tha t needs to  be done f or any or  all tests  in the
  2414       ; routine .  This is  run only  once at th e beginnin g.
  2415       K ^TMP($J ,"XSA","UN IT TESTS")
  2416       Q
  2417       ;
  2418      SHUTDOWN ;  optional  entry poin t
  2419       ; if pres ent execut ed after a ll other p rocessing  is complet e to remov e
  2420       ; any var iables, or  undo work  done in S TARTUP.
  2421       Q
  2422       ;
  2423      SETUP ; op tional ent ry point
  2424       ; if pres ent it wil l be execu ted before  each test  entry to  set up
  2425       ; variabl es, etc.
  2426       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,OUT PUT
  2427       Q
  2428       ;
  2429      TEARDOWN ;  optional  entry poin t
  2430       ; if pres ent it wil l be exceu ted after  each test  entry to c lean up
  2431       ; variabl es, etc.
  2432       Q
  2433       ;
  2434      XTROU ;
  2435       ;;XSAPXMU 1;RPC Unit  Tests
  2436       ;;XSAPXMU 2;GETS and  LIST Unit  Tests
  2437       ;;XSAPXMU 3;Access C ontrol and  IAM Unit  Tests
  2438       ;;XSAPXMU 4;Misc Ser vices Unit  Tests
  2439       ; Entry p oints for  tests are  specified  as the thi rd semi-co lon piece,
  2440       ; a descr iption of  what it te sts is opt ional as t he fourth  semi-colon
  2441       ; piece o n a line.  The first  line witho ut a third  piece ter minates th e
  2442       ; search  for TAGs t o be used  as entry p oints
  2443      XTENT ;
  2444       ;;TRPC1;T est RPC re turn of a  single str ing value.
  2445       ;;TRPC2;T est RPC re turn of a  global nod e value.
  2446       ;;TRPC3;T est RPC re turn of a  list of RP Cs that be gin with " VPR".
  2447       ;;TRPC4;T est RPC re turn of a  local arra y.
  2448       ;;TRPC5;T est RPC re turn of a  global arr ay.
  2449       ;;TRPC6;T est RPC re turn of a  System Err or <NOLINE >.
  2450       ;;TRPC7;T est RPC re turn of a  word proce ssing arra y.
  2451       ;;TRPC8;T est RPC re turn of mu ltiple arr ay outputs .
  2452       ;;TRPC9;T est RPC re turn of mu ltiple sub scripts in  an array.
  2453       ;;TRPC10; Test RPC r eturn of A pplication  Error <RP C Context  Error>.
  2454       ;;TRPC11; Test RPC r eturn of X ML data wi th no inpu t params.
  2455       ;;TRPC12; Test RPC r eturn of t he system  introducti on message .
  2456       ;;TRPC13; Test RPC r eturn of V PR GET PAT IENT DATA.
  2457       ;;TRPC14; Test RPC r eturn of O RWDAL32 AL LERGY MATC H.
  2458       ;;TRPC15; Test RPC r eturn of P X SAVE DAT A.
  2459       ;;TRPC16; Test XSA T EST SET VA RIABL RPC
  2460       ;;TRPC17; Test XSA T EST GET VA RIABL RPC
  2461       Q
  2462       ;
  2463      TRPC1 ; Te st Simple  String
  2464       TSTART
  2465       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2466       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2467       K @SOURCE ,@TARGET
  2468       S @SOURCE @("DUZ")=D UZ
  2469       S @SOURCE @("RPC NAM E")="XOBV  TEST STRIN G"
  2470       S @SOURCE @("PARAMS" ,1,"LITERA L")="THIS  IS A TEST"
  2471       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2472       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2473       K @TARGET ,@SOURCE
  2474       TROLLBACK
  2475       Q
  2476       ;
  2477      TRPC2 ; Ru n Global n ode test
  2478       TSTART
  2479       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2480       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2481       K @SOURCE ,@TARGET
  2482       S @SOURCE @("DUZ")=D UZ
  2483       S @SOURCE @("RPC NAM E")="XOBV  TEST GLOBA L NODE"
  2484       S @SOURCE @("PARAMS" ,1,"LITERA L")="THIS  IS A GLOBA L NODE TES T"
  2485       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2486       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2487       K @SOURCE ,@TARGET
  2488       TROLLBACK
  2489       Q
  2490       ;
  2491      TRPC3 ; Ru n RPC List  test
  2492       TSTART
  2493       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2494       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2495       K @SOURCE ,@TARGET
  2496       S @SOURCE @("DUZ")=D UZ
  2497       S @SOURCE @("RPC NAM E")="XOBV  TEST RPC L IST"
  2498       S @SOURCE @("PARAMS" ,1,"LITERA L")="VPR"
  2499       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2500       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2501       K @SOURCE ,@TARGET
  2502       TROLLBACK
  2503       Q
  2504       ;
  2505      TRPC4 ; Te st Local A rray
  2506       TSTART
  2507       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2508       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2509       K @SOURCE ,@TARGET
  2510       S @SOURCE @("DUZ")=D UZ
  2511       S @SOURCE @("RPC NAM E")="XOBV  TEST LOCAL  ARRAY"
  2512       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(1) ")="THIS I S THE FIRS T LINE OF  TEXT"
  2513       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(2) ")="THIS I S THE SECO ND LINE OF  TEXT"
  2514       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(3) ")="THIS I S THE THIR D LINE OF  TEXT"
  2515       S XSAERR= $$RPC^XSAP XPUB(.SOUR CE,.TARGET )
  2516       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2517       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2518       K @SOURCE ,@TARGET
  2519       TROLLBACK
  2520       Q
  2521       ;
  2522      TRPC5 ; Te st Global  Array
  2523       TSTART
  2524       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2525       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2526       K @SOURCE ,@TARGET
  2527       S @SOURCE @("DUZ")=D UZ
  2528       S @SOURCE @("RPC NAM E")="XOBV  TEST GLOBA L ARRAY"
  2529       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(1, ""firstNam e"")")="Jo hn"
  2530       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(1, ""lastName "")")="Doe "
  2531       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(2, ""firstNam e"")")="An na"
  2532       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(2, ""lastName "")")="Smi th"
  2533       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(3, ""firstNam e"")")="Pe ter"
  2534       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(3, ""lastName "")")="Jon es"
  2535       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2536       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2537       K @SOURCE ,@TARGET
  2538       TROLLBACK
  2539       Q
  2540       ;
  2541      TRPC6 ; Te st Fail wi th missing  Entry poi nt in rout ine
  2542       TSTART
  2543       N SUCCESS
  2544       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2545       K @SOURCE ,@TARGET
  2546       S @SOURCE @("DUZ")=D UZ
  2547       S @SOURCE @("RPC NAM E")="XOBV  TEST VAR L ENGTH REC"
  2548       S @SOURCE @("PARAMS" ,1,"LITERA L")="THIS  IS A TEST"
  2549       S @SOURCE @("XSASYM" )=1
  2550       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2551       D CHKEQ^X TMUNIT("Me thod Signa ture VLRRP ^XOBVLT do es not exi st.",$G(@T ARGET@("er ror","erro r")))
  2552       K @SOURCE ,@TARGET
  2553       TROLLBACK
  2554       Q
  2555       ;
  2556      TRPC7 ; Ru n Word Pro cessing te st
  2557       TSTART
  2558       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2559       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2560       K @SOURCE ,@TARGET
  2561       S @SOURCE @("DUZ")=D UZ
  2562       S @SOURCE @("RPC NAM E")="XOBV  TEST WORD  PROCESSING "
  2563       S @SOURCE @("DUZ")=D UZ
  2564       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2565       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2566       K @SOURCE ,@TARGET
  2567       TROLLBACK
  2568       Q
  2569       ;
  2570      TRPC8 ; Ru n multiple  array tes t
  2571       TSTART
  2572       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2573       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2574       K @SOURCE ,@TARGET
  2575       S @SOURCE @("DUZ")=D UZ
  2576       S @SOURCE @("RPC NAM E")="XOBV  TEST MULT  ARRAY PARA MS"
  2577       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(1) ")="THIS I S THE FIRS T LINE OF  TEXT"
  2578       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(2) ")="THIS I S THE SECO ND LINE OF  TEXT"
  2579       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR(3) ")="THIS I S THE THIR D LINE OF  TEXT"
  2580       S @SOURCE @("PARAMS" ,2,"LIST", "XOBARR2(1 )")="THIS  IS THE FIR ST LINE OF  TEXT"
  2581       S @SOURCE @("PARAMS" ,2,"LIST", "XOBARR2(2 )")="THIS  IS THE SEC OND LINE O F TEXT"
  2582       S @SOURCE @("PARAMS" ,2,"LIST", "XOBARR2(3 )")="THIS  IS THE THI RD LINE OF  TEXT"
  2583       S @SOURCE @("PARAMS" ,3,"LIST", "XOBARR3(1 )")="THIS  IS THE FIR ST LINE OF  TEXT"
  2584       S @SOURCE @("PARAMS" ,3,"LIST", "XOBARR3(2 )")="THIS  IS THE SEC OND LINE O F TEXT"
  2585       S @SOURCE @("PARAMS" ,3,"LIST", "XOBARR3(3 )")="THIS  IS THE THI RD LINE OF  TEXT"
  2586       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2587       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2588       K @SOURCE ,@TARGET
  2589       TROLLBACK
  2590       Q
  2591       ;
  2592      TRPC9 ; Ru n multiple  Subscript s array te st
  2593       TSTART
  2594       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2595       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2596       K @SOURCE ,@TARGET
  2597       S @SOURCE @("DUZ")=D UZ
  2598       S @SOURCE @("RPC NAM E")="XOBV  TEST MULTI PLE SUBSCR IPTS"
  2599       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR("" FRUIT"",1) ")="THIS I S THE FIRS T LINE OF  TEXT"
  2600       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR("" FRUIT"",2) ")="THIS I S THE SECO ND LINE OF  TEXT"
  2601       S @SOURCE @("PARAMS" ,1,"LIST", "XOBARR("" FRUIT"",3) ")="THIS I S THE THIR D LINE OF  TEXT"
  2602       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2603       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2604       K @SOURCE ,@TARGET
  2605       TROLLBACK
  2606       Q
  2607       ;
  2608      TRPC10 ; T est RPC Co ntext
  2609       TSTART
  2610       ; The RPC  CONTEXT i s an optio n name tha t is encry pted
  2611       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2612       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2613       K @SOURCE ,@TARGET
  2614       S @SOURCE @("DUZ")=D UZ
  2615       S @SOURCE @("RPC CON TEXT")=$$E NCRYP^XUSR B1("XOBV V ISTALINK T ESTER")
  2616       S @SOURCE @("RPC NAM E")="XOBV  TEST NOT I N CONTEXT"
  2617       S @SOURCE @("PARAMS" ,1,"LITERA L")="THIS  IS A TEST"
  2618       ; Set DUZ  to a non- programmer
  2619       N DUZ S @ SOURCE@("D UZ")=$O(^V A(200,"B", "CLERK,WAR D",0))
  2620       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2621       D CHKEQ^X TMUNIT("RP C Context  Error :: U ser CLERK, WARD does  not have a ccess to o ption XOBV  VISTALINK  TESTER",$ G(@TARGET@ ("error"," error")))
  2622       K @SOURCE ,@TARGET
  2623       TROLLBACK
  2624       Q
  2625       ;
  2626      TRPC11 ; R un string  test
  2627       TSTART
  2628       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2629       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2630       K @SOURCE ,@TARGET
  2631       S @SOURCE @("DUZ")=D UZ
  2632       S @SOURCE @("RPC NAM E")="XOBV  TEST XML R ESULTS"
  2633       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2634       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2635       K @SOURCE ,@TARGET
  2636       TROLLBACK
  2637       Q
  2638       ;
  2639      TRPC12 ; R eturns the  Kernel In tro Messag e
  2640       TSTART
  2641       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2642       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2643       K @SOURCE ,@TARGET
  2644       S @SOURCE @("DUZ")=D UZ
  2645       S @SOURCE @("RPC NAM E")="XUS I NTRO MSG"
  2646       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2647       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2648       K @SOURCE ,@TARGET
  2649       TROLLBACK
  2650       Q
  2651       ;
  2652      TRPC13 ; T est the VP R GET PATI ENT DATA
  2653       TSTART
  2654       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2655       S (SOURCE ,TARGET)=$ NA(^TMP(63 542,"XSA", "RPC","VPR  GET PATIE NT DATA"))
  2656       K @SOURCE ,@TARGET
  2657       S @SOURCE @("DUZ")=D UZ
  2658       S @SOURCE @("PARAMS" ,1,"LITERA L")=237
  2659       S @SOURCE @("PARAMS" ,2,"LITERA L")="meds; documents"
  2660       S @SOURCE @("PARAMS" ,3,"LITERA L")=""
  2661       S @SOURCE @("PARAMS" ,4,"LITERA L")=""
  2662       S @SOURCE @("PARAMS" ,5,"LITERA L")=40
  2663       S @SOURCE @("PARAMS" ,6,"LITERA L")=""
  2664       S @SOURCE @("PARAMS" ,7,"LIST", "FILTER("" text"")")= 1
  2665       S @SOURCE @("RPC CON TEXT")=""
  2666       S @SOURCE @("RPC NAM E")="VPR G ET PATIENT  DATA"
  2667       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2668       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2669       K @SOURCE ,@TARGET
  2670       TROLLBACK
  2671       Q
  2672       ;
  2673      TRPC14 ; T est the OR WDAL32 ALL ERGY MATCH  RPC
  2674       TSTART
  2675       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2676       S (SOURCE ,TARGET)=$ NA(^TMP(63 542,"XSA", "RPC","ORW DAL32 ALLE RGY MATCH" ))
  2677       K @SOURCE ,@TARGET
  2678       S @SOURCE @("DUZ")=D UZ
  2679       S @SOURCE @("PARAMS" ,1,"LITERA L")="PEN"
  2680       S @SOURCE @("RPC CON TEXT")=""
  2681       S @SOURCE @("RPC NAM E")="ORWDA L32 ALLERG Y MATCH"
  2682       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2683       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2684       K @SOURCE ,@TARGET
  2685       TROLLBACK
  2686       Q
  2687       ;
  2688      TRPC15 ; T est the PX  SAVE DATA  RPC
  2689       TSTART
  2690       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS,DFN,P CELIST
  2691       S (SOURCE ,TARGET)=$ NA(^TMP(63 542,"XSA", "RPC","PX  SAVE DATA" ))
  2692       K @SOURCE ,@TARGET
  2693       S @SOURCE @("DUZ")=D UZ
  2694       S @SOURCE @("PARAMS" ,1,"LIST", "PCELIST(" "1"")")="H DR^0^^"_$$ NOW^XLFDT( )
  2695       S @SOURCE @("PARAMS" ,1,"LIST", "PCELIST(" "2"")")="V ST^DT^"_$$ NOW^XLFDT( )
  2696       S @SOURCE @("PARAMS" ,1,"LIST", "PCELIST(" "3"")")="V ST^PT^1008 79"
  2697       S @SOURCE @("PARAMS" ,1,"LIST", "PCELIST(" "4"")")="V ST^VC^E"
  2698       S @SOURCE @("PARAMS" ,1,"LIST", "PCELIST(" "5"")")="V ST^OL^^Pec an Street  Rite Aid"
  2699       S @SOURCE @("PARAMS" ,1,"LIST", "PCELIST(" "6"")")="I MM+^55^^IN FLUENZA, H IGH DOSE S EASONAL^C^ ^0^2^@^0^^ 1^.5^1^1^^ ^"
  2700       S @SOURCE @("PARAMS" ,1,"LIST", "PCELIST(" "7"")")="C OM^^^@"
  2701       S @SOURCE @("PARAMS" ,2,"LITERA L")=""
  2702       S @SOURCE @("PARAMS" ,3,"LITERA L")="PCE P ATIENT CAR E ENCOUNTE R"
  2703       S @SOURCE @("PARAMS" ,4,"LITERA L")="VLER  E-HEALTH E XCHANGE"
  2704       S @SOURCE @("RPC NAM E")="PX SA VE DATA"
  2705       S @SOURCE @("RPC CON TEXT")=""
  2706       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2707       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2708       ;W !,"[", $$CJ^XLFST R($S(SUCCE SS:"PASS", 1:"FAIL"), 76,"-"),"] "
  2709       ;U IO W !  ;ZW @TARG ET
  2710       K @SOURCE ,@TARGET
  2711       TROLLBACK
  2712       Q
  2713      TRPC16 ; T est the XS A TEST SET  VARIABLE  RPC
  2714       TSTART
  2715       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2716       S (SOURCE ,TARGET)=$ NA(^TMP(63 542,"XSA", "RPC","XSA  TEST SET  VARIABLE") )
  2717       K @SOURCE ,@TARGET
  2718       S @SOURCE @("DUZ")=D UZ
  2719       S @SOURCE @("PARAMS" ,1,"LITERA L")="HELLO  WORLD OF  VSA!"
  2720       S @SOURCE @("RPC NAM E")="XSA T EST SET VA RIABLE"
  2721       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2722       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2723       K @SOURCE ,@TARGET
  2724       TROLLBACK
  2725       Q
  2726       ;
  2727      TRPC17 ; T est the XS A TEST GET  VARIABLE  RPC
  2728       TSTART
  2729       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2730       S (SOURCE ,TARGET)=$ NA(^TMP(63 542,"XSA", "RPC","XSA  TEST GET  VARIABLE") )
  2731       K @SOURCE ,@TARGET
  2732       S @SOURCE @("DUZ")=D UZ
  2733       S @SOURCE @("RPC CON TEXT")=""
  2734       S @SOURCE @("RPC NAM E")="XSA T EST GET VA RIABLE"
  2735       S SUCCESS =$$RPC^XSA PXPUB(.SOU RCE,.TARGE T)
  2736       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2737       D CHKEQ^X TMUNIT(@TA RGET@("res ults"),"HE LLO WORLD  OF VSA!")
  2738       K @SOURCE ,@TARGET
  2739       TROLLBACK
  2740       Q
  2741       ;
  2742       
  2743      ]]>
  2744     </Routine>
  2745    
  2746    
  2747     <Routine 
  2748      name="XSAP XMU2" 
  2749      type="INT"  
  2750      languagemo de="0" 
  2751      timestamp= "64057,637 12"
  2752     >
  2753      <![CDATA[
  2754      XSAPXMU2 ; DAL/BNT -  VistA Serv ices Assem bler Unit  Tests;1/27 /2016
  2755       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15
  2756       ;
  2757       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  2758       ; 
  2759       ; All ent ry points  authored b y Brian To mlin 2015- 2016
  2760       ;
  2761       ; makes i t easy to  run tests  simply by  running th is routine  and
  2762       ; insures  that XTMU NIT will b e run only  where it  is present
  2763       I $T(EN^X TMUNIT)'=" " D EN^XTM UNIT("XSAP XMU2",1)
  2764       Q
  2765       ;
  2766      STARTUP ;  optional e ntry point
  2767       ; if pres ent execut ed before  any other  entry poin t any vari ables
  2768       ; or othe r work tha t needs to  be done f or any or  all tests  in the
  2769       ; routine .  This is  run only  once at th e beginnin g.
  2770       K ^TMP($J ,"XSA","UN IT TESTS")
  2771       Q
  2772       ;
  2773      SHUTDOWN ;  optional  entry poin t
  2774       ; if pres ent execut ed after a ll other p rocessing  is complet e to remov e
  2775       ; any var iables, or  undo work  done in S TARTUP.
  2776       Q
  2777       ;
  2778      SETUP ; op tional ent ry point
  2779       ; if pres ent it wil l be execu ted before  each test  entry to  set up
  2780       ; variabl es, etc.
  2781       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,OUT PUT
  2782       Q
  2783       ;
  2784      TEARDOWN ;  optional  entry poin t
  2785       ; if pres ent it wil l be exceu ted after  each test  entry to c lean up
  2786       ; variabl es, etc.
  2787       Q
  2788       ;
  2789      XTROU ;
  2790       ;;XSAPXMU 2;GETS and  LIST Unit  Tests
  2791       ; Entry p oints for  tests are  specified  as the thi rd semi-co lon piece,
  2792       ; a descr iption of  what it te sts is opt ional as t he fourth  semi-colon
  2793       ; piece o n a line.  The first  line witho ut a third  piece ter minates th e
  2794       ; search  for TAGs t o be used  as entry p oints
  2795      XTENT ;
  2796       ;;TGETS1; Test GETS  to fail wi th no FILE  parameter .
  2797       ;;TGETS2; Test GETS  to fail wi th no IENS  parameter .
  2798       ;;TGETS3; Test GETS  to pass wi th the fir st record  in file 17 .01.
  2799       ;;TLIST1; Test LIST  to fail wi th no FILE  parameter .
  2800       ;;TLIST2; Test LIST  to return  records fr om RPC fil e with "VP R" prefix.
  2801       ;;TLIST3; Test LIST  for case s ensitivity  lookups u sing 'e' o n PATIENT  file.
  2802       ;;TSYM1;T est Save,  Exists, Cl ear and Re store the  Symbol Tab le
  2803       ;;TSYM2;T est Delete  the Symbo l Table
  2804       Q
  2805       ;
  2806      TGETS1 ; F ail the GE TS functio n with no  FILE
  2807       TSTART
  2808       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2809       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2810       K @SOURCE ,@TARGET
  2811       S @SOURCE @("DUZ")=D UZ
  2812       S @SOURCE @("FILE")= ""
  2813       S @SOURCE @("IENS")= ""
  2814       S @SOURCE @("FIELD") =""
  2815       S @SOURCE @("FLAGS") =""
  2816       S SUCCESS =$$GETS^XS APXPUB(.SO URCE,.TARG ET)
  2817       D CHKEQ^X TMUNIT("Mi ssing FILE  parameter ",$G(@TARG ET@("error ","error") ))
  2818       K @SOURCE ,@TARGET
  2819       TROLLBACK
  2820       Q
  2821       ;
  2822      TGETS2 ; F ail the GE TS functio n with no  IENs
  2823       TSTART
  2824       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2825       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2826       K @SOURCE ,@TARGET
  2827       S @SOURCE @("DUZ")=D UZ
  2828       S @SOURCE @("FILE")= "17.01"
  2829       S @SOURCE @("IENS")= ""
  2830       S @SOURCE @("FIELDS" )=""
  2831       S @SOURCE @("FLAGS") =""
  2832       S SUCCESS =$$GETS^XS APXPUB(.SO URCE,.TARG ET)
  2833       D CHKEQ^X TMUNIT("Mi ssing IENS  parameter ",$G(@TARG ET@("error ","error") ))
  2834       K @SOURCE ,@TARGET
  2835       TROLLBACK
  2836       Q
  2837       ;
  2838      TGETS3 ; P ass the GE TS functio n with IEN s
  2839       TSTART
  2840       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2841       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2842       K @SOURCE ,@TARGET
  2843       S @SOURCE @("DUZ")=D UZ
  2844       S @SOURCE @("FILE")= "200"
  2845       S @SOURCE @("IENS")= DUZ
  2846       S @SOURCE @("FIELDS" )=""
  2847       S @SOURCE @("FLAGS") =""
  2848       S SUCCESS =$$GETS^XS APXPUB(.SO URCE,.TARG ET)
  2849       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2850       K @SOURCE ,@TARGET
  2851       TROLLBACK
  2852       Q
  2853       ;
  2854      TLIST1 ; F ail the LI ST functio n with no  file
  2855       TSTART
  2856       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2857       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2858       K @SOURCE ,@TARGET
  2859       S @SOURCE @("DUZ")=D UZ
  2860       S @SOURCE @("FILE")= ""
  2861       S @SOURCE @("IENS")= ""
  2862       S @SOURCE @("FIELDS" )=""
  2863       S @SOURCE @("FLAGS") =""
  2864       S @SOURCE @("NUMBER" )=""
  2865       S @SOURCE @("FROM")= ""
  2866       S @SOURCE @("PART")= "VPR"
  2867       S @SOURCE @("INDEX") =""
  2868       S @SOURCE @("SCREEN" )=""
  2869       S @SOURCE @("ID")=""
  2870       S SUCCESS =$$LIST^XS APXPUB(.SO URCE,.TARG ET)
  2871       D CHKEQ^X TMUNIT("Mi ssing FILE  parameter ",$G(@TARG ET@("error ","error") ))
  2872       K @SOURCE ,@TARGET
  2873       TROLLBACK
  2874       Q
  2875       ;
  2876      TLIST2 ; T est the LI ST functio n
  2877       TSTART
  2878       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,SUC CESS
  2879       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2880       K @SOURCE ,@TARGET
  2881       S @SOURCE @("DUZ")=D UZ
  2882       S @SOURCE @("FILE")= "8994"
  2883       S @SOURCE @("IENS")= ""
  2884       S @SOURCE @("FIELDS" )=""
  2885       S @SOURCE @("FLAGS") =""
  2886       S @SOURCE @("NUMBER" )=""
  2887       S @SOURCE @("FROM")= ""
  2888       S @SOURCE @("PART")= "VPR"
  2889       S @SOURCE @("INDEX") =""
  2890       S @SOURCE @("SCREEN" )=""
  2891       S @SOURCE @("ID")=""
  2892       S SUCCESS =$$LIST^XS APXPUB(.SO URCE,.TARG ET)
  2893       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2894       K @SOURCE ,@TARGET
  2895       TROLLBACK
  2896       Q
  2897       ;
  2898      TLIST3 ; T est the LI ST functio n for case  sensitivi ty
  2899       TSTART
  2900       N TARGET, SOURCE,SUC CESS
  2901       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  2902       K @SOURCE ,@TARGET
  2903       S @SOURCE @("DUZ")=D UZ
  2904       S @SOURCE @("FILE")= "2"
  2905       S @SOURCE @("IENS")= ""
  2906       S @SOURCE @("FIELDS" )=""
  2907       S @SOURCE @("FLAGS") =""
  2908       S @SOURCE @("NUMBER" )=10
  2909       S @SOURCE @("FROM")= ""
  2910       S @SOURCE @("PART")= "e"
  2911       S @SOURCE @("INDEX") =""
  2912       S @SOURCE @("SCREEN" )=""
  2913       S @SOURCE @("ID")=""
  2914       S SUCCESS =$$LIST^XS APXPUB(.SO URCE,.TARG ET)
  2915       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  2916       K @SOURCE ,@TARGET
  2917       TROLLBACK
  2918       Q
  2919       ;
  2920      TSYM1 ;Tes t Saving t he Symbol  Table
  2921       TSTART
  2922       ; First l ogin a use r
  2923       N SUCCESS ,SOURCE,TA RGET
  2924       S TARGET= $NA(^TMP($ J,"XSA","s ymbolTable "))
  2925       K @TARGET
  2926       S SUCCESS =$$SAVE^XS APXPUB(.TA RGET)
  2927       D CHKTF^X TMUNIT(SUC CESS,"Unab le to Save  Symbol Ta ble")
  2928       ; Check i f the Symb ol Table G lobal exis ts
  2929       S SUCCESS =$$EXISTS^ XSAPXPUB(. TARGET)
  2930       D CHKTF^X TMUNIT(SUC CESS,"Symb ol Table d oes not ex ist.")
  2931       D CHKTF^X TMUNIT($D( ^TMP($J,"X SA","symbo lTable",1) ),"Symbol  Table glob al does no t exist")
  2932       ; Now Cle ar the Sym bol Table
  2933       S SUCCESS =$$CLEAR^X SAPXPUB()
  2934       ; Can't d o normal M Unit funct ions becau se the Sym bol Table  is gone.
  2935       I +$G(DUZ ) W !,"$$C LEAR^XSAPX PUT Failed  to clear  DUZ" TROLL BACK  Q
  2936       S TARGET= $NA(^TMP($ J,"XSA","s ymbolTable "))
  2937       S SUCCESS =$$RESTORE ^XSAPXPUB( .TARGET)
  2938       D CHKTF^X TMUNIT(SUC CESS,"Unab le to Rest ore Symbol  Table")
  2939       Q
  2940       ;
  2941      TSYM2 ;Tes t if the S ymbol Tabl e exists,  then delet e it
  2942       N TARGET, SUCCESS
  2943       S TARGET= $NA(^TMP($ J,"XSA","s ymbolTable "))
  2944       ; Check i f the Symb ol Table G lobal exis ts
  2945       S SUCCESS =$$EXISTS^ XSAPXPUB(. TARGET)
  2946       D CHKTF^X TMUNIT(SUC CESS,"Symb ol Table d oes not ex ist")
  2947       S SUCCESS =$$DELETE^ XSAPXPUB(. TARGET)
  2948       D CHKTF^X TMUNIT(SUC CESS,"Unab le to Dele te Symbol  Table")
  2949       D CHKTF^X TMUNIT('$D (^TMP($J," XSA","symb olTable")) ,"Symbol T able globa l was not  Deleted")
  2950       TROLLBACK
  2951       Q
  2952       
  2953      ]]>
  2954     </Routine>
  2955    
  2956    
  2957     <Routine 
  2958      name="XSAP XMU3" 
  2959      type="INT"  
  2960      languagemo de="0" 
  2961      timestamp= "64057,637 12"
  2962     >
  2963      <![CDATA[
  2964      XSAPXMU3 ; DAL/BNT -  VistA Serv ices Assem bler Unit  Tests;1/27 /2016
  2965       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15
  2966       ;
  2967       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  2968       ; 
  2969       ; All ent ry points  authored b y Brian To mlin 2015- 2016
  2970       ;
  2971       ; makes i t easy to  run tests  simply by  running th is routine  and
  2972       ; insures  that XTMU NIT will b e run only  where it  is present
  2973       I $T(EN^X TMUNIT)'=" " D EN^XTM UNIT("XSAP XMU3",1)
  2974       Q
  2975       ;
  2976      STARTUP ;  optional e ntry point
  2977       ; if pres ent execut ed before  any other  entry poin t any vari ables
  2978       ; or othe r work tha t needs to  be done f or any or  all tests  in the
  2979       ; routine .  This is  run only  once at th e beginnin g.
  2980       K ^TMP($J ,"XSA","UN IT TESTS") ,^TMP($J," XSA","UNIT  TESTS")
  2981       Q
  2982       ;
  2983      SHUTDOWN ;  optional  entry poin t
  2984       ; if pres ent execut ed after a ll other p rocessing  is complet e to remov e
  2985       ; any var iables, or  undo work  done in S TARTUP.
  2986       Q
  2987       ;
  2988      SETUP ; op tional ent ry point
  2989       ; if pres ent it wil l be execu ted before  each test  entry to  set up
  2990       ; variabl es, etc.
  2991       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,OUTPUT
  2992       Q
  2993       ;
  2994      TEARDOWN ;  optional  entry poin t
  2995       ; if pres ent it wil l be exceu ted after  each test  entry to c lean up
  2996       ; variabl es, etc.
  2997       Q
  2998       ;
  2999      XTROU ;
  3000       ;;XSAPXMU 3;Access C ontrol and  IAM Unit  Tests
  3001       ; Entry p oints for  tests are  specified  as the thi rd semi-co lon piece,
  3002       ; a descr iption of  what it te sts is opt ional as t he fourth  semi-colon
  3003       ; piece o n a line.  The first  line witho ut a third  piece ter minates th e
  3004       ; search  for TAGs t o be used  as entry p oints
  3005      XTENT ;
  3006       ;;TSETUP; Set up the  Testing e nvironment
  3007       ;;TIAM1;T est IAM Ad d User
  3008       ;;TIAM2;T est IAM Ed it User
  3009       ;;TIAM3;T est IAM Di splay User
  3010       ;;TIAM4;T est IAM Fi nd User
  3011       ;;TIAM5;T est IAM Te rminate Us er
  3012       ;;TIAM6;T est IAM Re activate U ser
  3013       ;;TIAM7;T est Fail I AM Add Use r
  3014       ;;TIAM8;T est Fail I AM Edit Us er
  3015       ;;TIAM9;T est Fail I AM Display  User
  3016       ;;TIAM10; Test Fail  IAM Find U ser
  3017       ;;TIAM11; Test Fail  IAM Termin ate User
  3018       ;;TIAM12; Test Fail  IAM Reacti vate User
  3019       ;;TACC1;T est LOGIN  with Valid  Access/Ve rify codes .
  3020       ;;TACC2;T est LOGIN  with BSE V isitor ID.
  3021       ;;TACC3;T est Fail L OGIN with  Invalid a/ v codes
  3022       ;;TACC4;T est LOGIN  with SAML  Token
  3023       ;;TACC5;T est Fail L OGIN with  Invalid BS E Visitor  ID.
  3024       ;;TACC6;T est Fail L OGIN with  Expired SA ML Token
  3025       ;;TACC1;T est LOGIN  with Valid  Access/Ve rify codes .
  3026       Q
  3027       ;
  3028      TSETUP ; S etup IAM P rovisionin g Requirem ents
  3029       TSTART
  3030       ; Make su re this us er has the  XUSHOWSSN  Security  Key
  3031       N XSAZZ D  OWNSKEY^X USRB(.XSAZ Z,"XUSHOWS SN",DUZ)
  3032       I 'XSAZZ( 0) S DIC(0 )="NMQ",DI C("P")="20 0.051PA",D IC="^VA(20 0,DUZ,51," ,DA(1)=DUZ ,X=$$LKUP^ XPDKEY("XU SHOWSSN"), DINUM=X D  FILE^DICN
  3033       ;
  3034       S IAMAPP= $O(^XWB(89 94.5,"B"," IAM PROVIS IONING",0) )
  3035       I 'IAMAPP  D FAIL^XT MUNIT("IAM  Provision ing is not  installed .") TROLLB ACK Q
  3036       ;
  3037       ; Make su re Provisi oning Appl ication ha s the righ t Authcode
  3038       I $P(^XWB (8994.5,IA MAPP,0),U, 3)'="F8GVb bchl3gV829 GL3OzBBZ3N CgvDCw7Zhs lNdz7ozY="  D
  3039       . K ^TMP( "DIERR",$J )
  3040       . S DIC(0 )="",ERRMS G=""
  3041       . N FDR S  FDR(8994. 5,IAMAPP_" ,",.03)="F 8GVbbchl3g V829GL3OzB BZ3NCgvDCw 7ZhslNdz7o zY="
  3042       . D UPDAT E^DIE("E", "FDR","IEN ")
  3043       TROLLBACK
  3044       Q
  3045       ;
  3046      TIAM1 ; IA M ADD USER  unit test
  3047       TSTART
  3048       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA
  3049       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3050       K @SOURCE ,@TARGET
  3051       S XSAUSER =$O(^VA(20 0,"B","BOD EN,CARL",0 ))
  3052       I +XSAUSE R D
  3053       . S FDA(2 00,XSAUSER _",",".01" )="@" D FI LE^DIE("", "FDA","MSG ")
  3054       S @SOURCE @("DUZ")=D UZ
  3055       S @SOURCE @("NAME")= "Carl Bode n"
  3056       S @SOURCE @("SECID") ="12345987 6"
  3057       S @SOURCE @("EMAIL") =" PII                 "
  3058       S @SOURCE @("ADUPN") =" PII "
  3059       S @SOURCE @("SSN")=" 123459876"
  3060       S @SOURCE @("DOB")=" 12/27/1967 "
  3061       S @SOURCE @("STATION ")=$P($$SI TE^VASITE( ),"^",3)
  3062       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3063       S SUCCESS =$$IAMAU^X SAPXPUB(.S OURCE,.TAR GET)
  3064       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3065       S IEN=$O( ^VA(200,"B ","BODEN,C ARL",0)) I  +IEN D
  3066       . S IENS= IEN_","
  3067       . S FDA(2 00,IENS,2) =$$ENCRYP^ XUSRB1("12 3BODECA")
  3068       . S FDA(2 00,IENS,11 )=$$ENCRYP ^XUSRB1("3 21CABODE*" )
  3069       . D FILE^ DIE("","FD A","MSG")  I $D(MSG)  ZW MSG
  3070       K @SOURCE ,@TARGET
  3071       TROLLBACK
  3072       Q
  3073       ;
  3074      TIAM2 ;Tes t IAM Edit  User
  3075       TSTART
  3076       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,XD UZ
  3077       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3078       K @SOURCE ,@TARGET
  3079       S XDUZ=$O (^VA(200," B","BODEN, CARL",0))
  3080       I XDUZ'>0  D FAIL^XT MUNIT("CAR L BODEN do es not exi st")
  3081       I $P(^VA( 200,XDUZ,. 15),U)'=" PII                 " S $P(^VA (200,XDUZ, .15),U)=" PII                 "
  3082       S @SOURCE @("DUZ")=D UZ
  3083       S @SOURCE @("INARRY" ,"SECID")= "123459876 "
  3084       S @SOURCE @("INARRY" ,"EMAIL")= " PII                  "
  3085       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3086       S SUCCESS =$$IAMEU^X SAPXPUB(.S OURCE,.TAR GET)
  3087       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3088       I +$P(@TA RGET@(0),U )="-1" D F AIL^XTMUNI T(@TARGET@ (1))
  3089       D CHKEQ^X TMUNIT($P( ^VA(200,XD UZ,.15),U) ," PII                  ","Email A ddress not  updated c orrectly")
  3090       ; Now set  it back
  3091       S $P(^VA( 200,XDUZ,. 15),U)=" PII                 "
  3092       K @SOURCE ,@TARGET
  3093       TROLLBACK
  3094       Q
  3095       ;
  3096      TIAM3 ;Tes t IAM Disp lay User
  3097       TSTART
  3098       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ
  3099       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3100       K @SOURCE ,@TARGET
  3101       S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 ))
  3102       S @SOURCE @("DUZ")=D UZ
  3103       S @SOURCE @("DISPDUZ ")=DISPDUZ
  3104       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3105       S SUCCESS =$$IAMDU^X SAPXPUB(.S OURCE,.TAR GET)
  3106       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3107       D CHKEQ^X TMUNIT(@TA RGET@("SEC ID"),"1234 59876","Se curity ID  does not m atch")
  3108       K @SOURCE ,@TARGET
  3109       TROLLBACK
  3110       Q
  3111       ;
  3112      TIAM4 ;Tes t IAM Find  User
  3113       TSTART
  3114       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ
  3115       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3116       K @SOURCE ,@TARGET
  3117       S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 ))
  3118       S @SOURCE @("DUZ")=D UZ
  3119       S @SOURCE @("SECID") ="12345987 6"
  3120       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3121       S SUCCESS =$$IAMFU^X SAPXPUB(.S OURCE,.TAR GET)
  3122       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3123       D CHKEQ^X TMUNIT(+$P (@TARGET@( 1),U),DISP DUZ,"Find  User did n ot return  correct DU Z")
  3124       K @SOURCE ,@TARGET
  3125       TROLLBACK
  3126       Q
  3127       ;
  3128      TIAM5 ;Tes t IAM Term inate User
  3129       TSTART
  3130       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ
  3131       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3132       K @SOURCE ,@TARGET
  3133       S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 ))
  3134       S @SOURCE @("DUZ")=D UZ
  3135       S @SOURCE @("SECID") ="12345987 6"
  3136       S @SOURCE @("TERMDAT E")=DT
  3137       S @SOURCE @("TERMRES N")="VSA M Unit Testi ng"
  3138       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3139       S SUCCESS =$$IAMTU^X SAPXPUB(.S OURCE,.TAR GET)
  3140       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3141       D CHKEQ^X TMUNIT($P( ^VA(200,DI SPDUZ,0),U ,11),DT,"T ermination  Date not  filed corr ectly")
  3142       D CHKEQ^X TMUNIT($P( ^VA(200,DI SPDUZ,0),U ,13),"VSA  MUnit Test ing","Term ination Re ason not f iled corre ctly")
  3143       K @SOURCE ,@TARGET
  3144       TROLLBACK
  3145       Q
  3146       ;
  3147      TIAM6 ;Tes t IAM Reac tivate Use r
  3148       TSTART
  3149       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,NU LL
  3150       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3151       K @SOURCE ,@TARGET
  3152       S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 ))
  3153       S @SOURCE @("DUZ")=D UZ
  3154       S @SOURCE @("SECID") ="12345987 6"
  3155       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3156       S SUCCESS =$$IAMRU^X SAPXPUB(.S OURCE,.TAR GET)
  3157       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3158       D CHKEQ^X TMUNIT($P( ^VA(200,DI SPDUZ,0),U ,11),NULL, "User not  Reactivate d correctl y.")
  3159       K @SOURCE ,@TARGET
  3160       TROLLBACK
  3161       Q
  3162       ;
  3163      TIAM7 ; IA M Fail ADD  USER unit  test
  3164       TSTART
  3165       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA
  3166       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3167       K @SOURCE ,@TARGET
  3168       S @SOURCE @("DUZ")=D UZ
  3169       S @SOURCE @("NAME")= ""
  3170       S @SOURCE @("SECID") =""
  3171       S @SOURCE @("EMAIL") =" PII                 "
  3172       S @SOURCE @("ADUPN") =" PII "
  3173       S @SOURCE @("SSN")=" 123459876"
  3174       S @SOURCE @("DOB")=" 12/27/1967 "
  3175       S @SOURCE @("STATION ")=$P($$SI TE^VASITE( ),"^",3)
  3176       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3177       S SUCCESS =$$IAMAU^X SAPXPUB(.S OURCE,.TAR GET)
  3178       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults")))
  3179       K @SOURCE ,@TARGET
  3180       TROLLBACK
  3181       Q
  3182       ;
  3183      TIAM8 ;Tes t Fail IAM  Edit User
  3184       TSTART
  3185       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,XD UZ
  3186       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3187       K @SOURCE ,@TARGET
  3188       S XDUZ=$O (^VA(200," B","BODEN, CARL",0))
  3189       I XDUZ'>0  D FAIL^XT MUNIT("CAR L BODEN do es not exi st")
  3190       I $P(^VA( 200,XDUZ,. 15),U)'=" PII                 " S $P(^VA (200,XDUZ, .15),U)=" PII                 "
  3191       S @SOURCE @("DUZ")=D UZ
  3192       S @SOURCE @("INARRY" ,"SECID")= ""
  3193       S @SOURCE @("INARRY" ,"EMAIL")= " PII                  "
  3194       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3195       S SUCCESS =$$IAMEU^X SAPXPUB(.S OURCE,.TAR GET)
  3196       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults")))
  3197       K @SOURCE ,@TARGET
  3198       TROLLBACK
  3199       Q
  3200       ;
  3201      TIAM9 ;Tes t Fail IAM  Display U ser
  3202       TSTART
  3203       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ
  3204       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3205       K @SOURCE ,@TARGET
  3206       S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 ))
  3207       S @SOURCE @("DUZ")=D UZ
  3208       S @SOURCE @("DISPDUZ ")=""
  3209       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3210       S SUCCESS =$$IAMDU^X SAPXPUB(.S OURCE,.TAR GET)
  3211       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults")))
  3212       K @SOURCE ,@TARGET
  3213       TROLLBACK
  3214       Q
  3215       ;
  3216      TIAM10 ;Te st Fail IA M Find Use r
  3217       TSTART
  3218       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ
  3219       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3220       K @SOURCE ,@TARGET
  3221       S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 ))
  3222       S @SOURCE @("DUZ")=D UZ
  3223       S @SOURCE @("SECID") =""
  3224       S @SOURCE @("AUTHCOD E")=""
  3225       S SUCCESS =$$IAMFU^X SAPXPUB(.S OURCE,.TAR GET)
  3226       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults")))
  3227       K @SOURCE ,@TARGET
  3228       TROLLBACK
  3229       Q
  3230       ;
  3231      TIAM11 ;Te st Fail IA M Terminat e User
  3232       TSTART
  3233       N SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,DI SPDUZ
  3234       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3235       K @SOURCE ,@TARGET
  3236       S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 ))
  3237       S @SOURCE @("DUZ")=D UZ
  3238       S @SOURCE @("SECID") =""
  3239       S @SOURCE @("TERMDAT E")=DT
  3240       S @SOURCE @("TERMRES N")="VSA M Unit Testi ng"
  3241       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3242       S SUCCESS =$$IAMTU^X SAPXPUB(.S OURCE,.TAR GET)
  3243       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults")))
  3244       K @SOURCE ,@TARGET
  3245       TROLLBACK
  3246       Q
  3247       ;
  3248      TIAM12 ;Te st Fail IA M Reactiva te User
  3249       TSTART
  3250       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS ,SOURCE,TA RGET,IEN,I ENS,FDA,NU LL
  3251       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3252       K @SOURCE ,@TARGET
  3253       S DISPDUZ =$O(^VA(20 0,"B","BOD EN,CARL",0 ))
  3254       S @SOURCE @("DUZ")=D UZ
  3255       S @SOURCE @("SECID") =""
  3256       S @SOURCE @("AUTHCOD E")="This  is my Prov isioning C ode!"
  3257       S SUCCESS =$$IAMRU^X SAPXPUB(.S OURCE,.TAR GET)
  3258       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("r esults")))
  3259       K @SOURCE ,@TARGET
  3260       TROLLBACK
  3261       Q
  3262       ;
  3263      TACC1 ; Te st Multipl e call LOG IN functio n with a/v  codes
  3264       TSTART
  3265       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS
  3266       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3267       K @SOURCE ,@TARGET
  3268       S @SOURCE @("XSAACC" )="123TOML IB;321BTOM LI*"
  3269       S @SOURCE @("XSAVER" )=""
  3270       S @SOURCE @("XSADIV" )=""
  3271       S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256)
  3272       S @SOURCE @("XSABSEU ")=""
  3273       S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET)
  3274       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3275       S (SOURCE ,TARGET)=$ NA(^CacheT emp($J,"XS A","UNIT T ESTS"))
  3276       K @SOURCE ,@TARGET
  3277       S @SOURCE @("XSAACC" )="123TOML IB;321BTOM LI*"
  3278       S @SOURCE @("XSAVER" )=""
  3279       S @SOURCE @("XSADIV" )=""
  3280       S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256)
  3281       S @SOURCE @("XSABSEU ")=""
  3282       S SUCCESS 2=$$LOGIN^ XSAPXPUB(. SOURCE,.TA RGET)
  3283       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3284       K @SOURCE ,@TARGET
  3285       TROLLBACK
  3286       Q
  3287       ;
  3288      TACC2 ; Te st the LOG IN functio n with BSE  demograph ics
  3289       TSTART
  3290       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS
  3291       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3292       K @SOURCE ,@TARGET
  3293       S @SOURCE @("XSAACC" )=""
  3294       S @SOURCE @("XSAVER" )=""
  3295       S @SOURCE @("XSADIV" )=""
  3296       S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256)
  3297       S @SOURCE @("XSABSEU ")=$$ENCRY P^XUSRB1(" 123"_$R(10 )_$R(10)_$ R(10)_$R(1 0)_$R(10)_ $R(10)_"^V SAMUNIT,US ER"_$R(10) _$R(10)_$R (10)_$R(10 )_$R(10)_" ^CAMP MAST ER^500^"_$ P(^VA(200, 0),U,3)_"^ ^^")
  3298       S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET)
  3299       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3300       K @SOURCE ,@TARGET
  3301       TROLLBACK
  3302       Q
  3303       ;
  3304      TACC3 ; Te st the LOG IN functio n with INV ALID a/v c odes
  3305       TSTART
  3306       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS
  3307       ; Kill of f the sign on log fir st to prev ent too ma ny invalid  logons
  3308       N X S X=1  F  S X=$O (^XUSEC(0, X)) Q:X=""   K ^XUSEC (0,X)
  3309       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3310       K @SOURCE ,@TARGET
  3311       S @SOURCE @("XSAACC" )=$R(256)_ "."_$R(256 )_"."_$R(2 56)_"FJDKS ;"_$R(256) _"."_$R(25 6)_"."_$R( 256)_"FDSI O"
  3312       S @SOURCE @("XSAVER" )=""
  3313       S @SOURCE @("XSADIV" )=""
  3314       S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256)
  3315       S @SOURCE @("XSABSEU ")=""
  3316       S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET)
  3317       D CHKEQ^X TMUNIT("In valid Kern el logon c redentials . [Securit y Type: No t a valid  ACCESS COD E/VERIFY C ODE pair.]  ",$G(@TAR GET@("erro r","error" )))
  3318       K @SOURCE ,@TARGET
  3319       TROLLBACK
  3320       Q
  3321       ;
  3322      TACC4 ; Lo gin User b y SAML Tok en
  3323       TSTART
  3324       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS ,ARR
  3325       ; Clear o ut the sig non log fo r testing
  3326       N X S X=1  F  S X=$O (^XUSEC(0, X)) Q:X=""   K ^XUSEC (0,X)
  3327       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3328       K @SOURCE ,@TARGET
  3329       S @SOURCE @("XSAACC" )=""
  3330       S @SOURCE @("XSAVER" )=""
  3331       S @SOURCE @("XSADIV" )=""
  3332       S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256)
  3333       D GETSAML (.ARR) M @ SOURCE@("X SAESSO")=A RR
  3334       S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET)
  3335       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3336       K @SOURCE ,@TARGET
  3337       TROLLBACK
  3338       Q
  3339       ;
  3340      TACC5 ; Te st the LOG IN functio n with Inv alid BSE d emographic s
  3341       TSTART
  3342       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS
  3343       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3344       K @SOURCE ,@TARGET
  3345       S @SOURCE @("XSAACC" )=""
  3346       S @SOURCE @("XSAVER" )=""
  3347       S @SOURCE @("XSADIV" )=""
  3348       S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256)
  3349       S @SOURCE @("XSABSEU ")=$$ENCRY P^XUSRB1(" 000"_$R(10 )_$R(10)_$ R(10)_$R(1 0)_$R(10)_ $R(10)_"^I NVALID,USE R"_$R(10)_ $R(10)_$R( 10)_$R(10) _$R(10)_"^ ^^"_$P(^VA (200,0),U, 3)_"^^^")
  3350       S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET)
  3351       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("e rror","err or")))
  3352       D CHKEQ^X TMUNIT($G( @TARGET@(" error","er ror")),"In valid Kern el logon c redentials . [Securit y Type: Un able to cr eate remot e Visitor  user] ")
  3353       K @SOURCE ,@TARGET
  3354       TROLLBACK
  3355       Q
  3356       ;
  3357      TACC6 ; Fa il Login U ser with E xpired SAM L Token
  3358       TSTART
  3359       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,SUCCESS ,ARR
  3360       ; Clear o ut the sig non log fo r testing
  3361       N X S X=1  F  S X=$O (^XUSEC(0, X)) Q:X=""   K ^XUSEC (0,X)
  3362       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UN IT TESTS") )
  3363       K @SOURCE ,@TARGET
  3364       S @SOURCE @("XSAACC" )=""
  3365       S @SOURCE @("XSAVER" )=""
  3366       S @SOURCE @("XSADIV" )=""
  3367       S @SOURCE @("XSAIP") ="10."_$R( 256)_"."_$ R(256)_"." _$R(256)
  3368       F I=1:1 S  X=$P($T(S AML+I),";; ",2) Q:X=" $$END$$"   S @SOURCE@ ("XSAESSO" ,I)=X
  3369       S SUCCESS =$$LOGIN^X SAPXPUB(.S OURCE,.TAR GET)
  3370       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("e rror","err or")))
  3371       D CHKEQ^X TMUNIT("In valid Kern el logon c redentials . [Securit y Type: Un able to si gn on usin g Identity  and Acces s Manageme nt STS tok en. Try us ing Access /Verify co des.] ",$G (@TARGET@( "error","e rror")))
  3372       K @SOURCE ,@TARGET
  3373       TROLLBACK
  3374       Q
  3375       ;
  3376      GETSAML(XS AY) ; -- G et SAML To ken for un it testing
  3377       N I,X,XSA DT K XSAY
  3378       ; Hack to  set the t oken expir ation date /times to  appropriat e values
  3379       S XSADT=$ $FMTHL7^XL FDT($$FMAD D^XLFDT($$ NOW^XLFDT( ),0,0,-5,0 ))
  3380       S XSANOTB 4=$E(XSADT ,1,4)_"-"_ $E(XSADT,5 ,6)_"-"_$E (XSADT,7,8 )_"T"_$E(X SADT,9,10) _":"_$E(XS ADT,11,12) _":"_$E(XS ADT,13,14)
  3381       S XSADT=$ $FMTHL7^XL FDT($$FMAD D^XLFDT($$ NOW^XLFDT( ),0,0,15,0 ))
  3382       S XSANOTO N=$E(XSADT ,1,4)_"-"_ $E(XSADT,5 ,6)_"-"_$E (XSADT,7,8 )_"T"_$E(X SADT,9,10) _":"_$E(XS ADT,11,12) _":"_$E(XS ADT,13,14)
  3383       S XSADT=$ $FMTHL7^XL FDT($$NOW^ XLFDT())
  3384       S XSAAUTH =$E(XSADT, 1,4)_"-"_$ E(XSADT,5, 6)_"-"_$E( XSADT,7,8) _"T"_$E(XS ADT,9,10)_ ":"_$E(XSA DT,11,12)_ ":"_$E(XSA DT,13,14)
  3385       F I=1:1 S  X=$P($T(S AML+I),";; ",2) Q:X=" $$END$$"   D
  3386       . I X["No tBefore" S  XSAY(I)="   <saml:Co nditions N otBefore=" ""_XSANOTB 4_""" NotO nOrAfter=" ""_XSANOTO N_""">" Q
  3387       . I X["<s aml:AuthnS tatement A uthnInstan t=" S XSAY (I)="  <sa ml:AuthnSt atement Au thnInstant ="""_XSAAU TH_""">" Q
  3388       . I X["<s aml:Attrib uteValue>2 015-06-25T 12:00:27Z< /saml:Attr ibuteValue >" S XSAY( I)="     < saml:Attri buteValue> """_XSAAUT H_"""</sam l:Attribut eValue>" Q
  3389       . S XSAY( I)=X
  3390       Q
  3391       ;
  3392      SAML ;
  3393       ;;<?xml v ersion="1. 0"?>
  3394       ;;<saml:A ssertion x mlns:saml= "urn:oasis :names:tc: SAML:2.0:a ssertion"  ID="Assert ion-uuid60 15911c-009 5-4f17-a8f 7-aca0f9dd 8049" Vers ion="2.0"  IssueInsta nt="2015-0 6-25T12:00 :27Z">
  3395       ;;    <saml:Issu er Format= "urn:oasis :names:tc: SAML:2.0:n ameid-form at:entity" >https:// DNS               /Issuer/SA ML2</saml: Issuer>
  3396       ;;  <Sign ature xmln s="http:// www.w3.org /2000/09/x mldsig#">
  3397       ;;    <Si gnedInfo>
  3398       ;;      < Canonicali zationMeth od Algorit hm="http:/ /www.w3.or g/TR/2001/ REC-xml-c1 4n-2001031 5"/>
  3399       ;;      < SignatureM ethod Algo rithm="htt p://www.w3 .org/2001/ 04/xmldsig -more#rsa- sha256"/>
  3400       ;;      < Reference  URI="#Asse rtion-uuid 6015911c-0 095-4f17-a 8f7-aca0f9 dd8049">
  3401       ;;         <Transfor ms>
  3402       ;;           <Transf orm Algori thm="http: //www.w3.o rg/2000/09 /xmldsig#e nveloped-s ignature"/ >
  3403       ;;           <Transf orm Algori thm="http: //www.w3.o rg/TR/2001 /REC-xml-c 14n-200103 15"/>
  3404       ;;         </Transfo rms>
  3405       ;;         <DigestMe thod Algor ithm="http ://www.w3. org/2000/0 9/xmldsig# sha1"/>
  3406       ;;         <DigestVa lue>iFmvVx E9LIPWEN4U 96Z0Ya7TD2 A=</Digest Value>
  3407       ;;      < /Reference >
  3408       ;;    </S ignedInfo>
  3409       ;;    <Si gnatureVal ue>uoUOIi/ xDRBSvHZGs 1/4umKxJLq I+nB33QB6g hiGtWok8rQ CZ1GAUjnij +sLp1bqa3D GFSWLW/xMF Ft1myIPQzG ELvqauMu1U Aoq5T1aZOc +MSFUxcnAN 0NN5Q2UbAO kyLvy6pN0v TNR8TQ71lS ZYaLSVfFeF AfdZ9a25+Z 8DVkFMvr4+ HOm+NRZulh xUC+kqhBFR MZOfQtvFYq LE487c+ehi QvkDjLCcWi Hk2xfIR7RT IZV+67n5lT hh8xY+r3kO Iqqg0fkNBm QPy1yorLgl NYlguzsW2f 5Ne5YlqMBe mZi2YzAtzi 6Dml1ZDyh9 fQB7jpd0q4 hU/KxJ55GM WcK3w==</S ignatureVa lue>
  3410       ;;    <Ke yInfo>
  3411       ;;      < X509Data>
  3412       ;;         <X509Cert ificate>MI IHqjCCBpKg AwIBAgIHPQ ACACZyazAN BgkqhkiG9w 0BAQUFADBQ MRMwEQYKCZ ImiZPyLGQB GRYDZ292MR IwEAYKCZIm iZPyLGQBGR YCdmExJTAj BgNVBAMTHF ZBIEludGVy bmFsIFN1Ym 9yZGluYXRl IENBIDEwHh cNMTQxMjA5 MTUwMjM4Wh cNMTUxMjA5 MTUwMjM4Wj CBpzELMAkG A1UEBhMCVV MxCzAJBgNV BAgTAlRYMQ 8wDQYDVQQH EwZBdXN0aW 4xLDAqBgNV BAoTI1UuUy 4gRGVwYXJ0 bWVudCBvZi BWZXRlcmFu cyBBZmZhaX JzMQ4wDAYD VQQLEwVWQU FGSTEZMBcG A1UEAxMQZG V2LmVhdXRo LnZhLmdvdj EhMB8GCSqG SIb3DQEJAR YSZWF1dGhh ZG1pbnNAdm EuZ292MIIB IjANBgkqhk iG9w0BAQEF AAOCAQ8AMI IBCgKCAQEA 1qLPy2TCdC kaNSGs58Dg GpSB6EvM9m GFTbNxcdSn +4VlZ0y0xp QtcTWlyz6L YidWP9qFmf 6bRq8ah53F HAw2qkb6cw oVRDdOBBeS dsqG1OyZtU wju+XLzsJW G3t5h0J+kY Oipge7X7Yp 420Xs+oyYL 9jboeSoJTe hG0+g2CvTq roLiS6YG5u +NOTP+Ut2F CTY4cLvwR7 vIrYMb3pm3 BRqm4e8Wjz 8BVhm/GuMd P3O6ybkcg6 r9VmSXD7os q70e3iaza8 7vaFd9gMik RZu1JjlaUb ySmY2S2QQ3 IYQcwK/iPd rVIX7IjOZM sXxrK/q+ZB H7FFVdgcvg yXTXFtgmcE jwIDAQABo4 IELzCCBCsw HQYDVR0lBB YwFAYIKwYB BQUHAwEGCC sGAQUFBwMC MIICGwYDVR 0RBIICEjCC Ag6CEGRldi 5lYXV0aC52 YS5nb3aCEG ludC5lYXV0 aC52YS5nb3 aCFGludC5w a2kuZWF1dG gudmEuZ292 ghlpbnQucm VnaXN0ZXIu ZWF1dGgudm EuZ292ghlp bnQuc2Vydm ljZXMuZWF1 dGgudmEuZ2 92ghFpbnQu YWNjZXNzLn ZhLmdvdoIR cGludC5lYX V0aC52YS5n b3aCFXBpbn QucGtpLmVh dXRoLnZhLm dvdoIacGlu dC5yZWdpc3 Rlci5lYXV0 aC52YS5nb3 aCGnBpbnQu c2VydmljZX MuZWF1dGgu dmEuZ292gh JwaW50LmFj Y2Vzcy52YS 5nb3aCEHNx YS5lYXV0aC 52YS5nb3aC FHNxYS5wa2 kuZWF1dGgu dmEuZ292gh lzcWEucmVn aXN0ZXIuZW F1dGgudmEu Z292ghlzcW Euc2Vydmlj ZXMuZWF1dG gudmEuZ292 ghFzcWEuYW NjZXNzLnZh LmdvdoIUcH JlcHJvZC5l YXV0aC52YS 5nb3aCGHBy ZXByb2QucG tpLmVhdXRo LnZhLmdvdo IdcHJlcHJv ZC5yZWdpc3 Rlci5lYXV0 aC52YS5nb3 aCHXByZXBy b2Quc2Vydm ljZXMuZWF1 dGgudmEuZ2 92gh1wcmVw cm9kLnNlcn ZpY2VzLmVh dXRoLnZhLm dvdoIVcHJl cHJvZC5hY2 Nlc3MudmEu Z292MB0GA1 UdDgQWBBRj U7FmF0WMY8 NprEeudQ5Z durmzjAfBg NVHSMEGDAW gBTeJbRYCv 2TJ9qNPR86 dkt3UtlbEz CBsQYDVR0f BIGpMIGmMI GjoIGgoIGd hjBodHRwOi 8vY3JsLnBr aS52YS5nb3 YvUEtJL0NS TC9JbnRlcm 5hbFN1YkNB MS5jcmyGaW xkYXA6Ly9s ZGFwLnBraS 52YS5nb3Yv Q049SW50ZX JuYWxTdWJD QTEsQ049Q0 RQLENOPVBL SSxDTj1TZX J2aWNlcyxE Qz1WQSxEQz 1HT1Y/Y2Vy dGlmaWNhdG VSZXZvY2F0 aW9uTGlzdD B0BggrBgEF BQcBAQRoMG YwPwYIKwYB BQUHMAKGM2 h0dHA6Ly9h aWEucGtpLn ZhLmdvdi9Q S0kvQUlBL1 ZBL0ludGVy bmFsU3ViQ0 ExLmNlcjAj BggrBgEFBQ cwAYYXaHR0 cDovL29jc3 AucGtpLnZh Lmdvdi8wDA YDVR0TAQH/ BAIwADALBg NVHQ8EBAMC BaAwPQYJKw YBBAGCNxUH BDAwLgYmKw YBBAGCNxUI gcjDM4H58A aBpZ8NhOCB CIXCqksGgd uQXIewgE0C AWQCAQgwJw YJKwYBBAGC NxUKBBowGD AKBggrBgEF BQcDATAKBg grBgEFBQcD AjANBgkqhk iG9w0BAQUF AAOCAQEADu gTtZgYKdYd mda/hMoFbo tGwPb4cfVP 8sWpR7LHd/ fqTJp/CxG1 WmZ3RqJNU2 e4DZOyfln/ xVz6nxvbrG 0EthfiSHuW rUY8nldtGc N4DvAi3ZrE kBBAFUi81+ Pgtz8yE5vj pH0E6TrbcZ M7O34ZcjhS V+XO+ZBtR+ NJfdeEg4Sp oot9toaOKW zEUTvZV7DK jG57KyMLWW bqygj29Omu HXNlyBnufK GRZf4gfne8 7oglqnKdwS f5G1OX/QfE T4MIE0o4PE HNucOOuFl9 D6xj/PeSfg Dqs65uRRmL lnN9Kt94xG CsbM9yyHPD BbWkxYmAKH 7WVTXdpIlQ 8hbM53gOsQ ==</X509Ce rtificate>
  3413       ;;         <X509Issu erSerial>
  3414       ;;           <X509Is suerName>C N=VA Inter nal Subord inate CA 1 , DC=va, D C=gov</X50 9IssuerNam e>
  3415       ;;           <X509Se rialNumber >171699821 71804267</ X509Serial Number>
  3416       ;;         </X509Iss uerSerial>
  3417       ;;      < /X509Data>
  3418       ;;    </K eyInfo>
  3419       ;;  </Sig nature>
  3420       ;;  <saml :Subject>
  3421       ;;    <sa ml:NameID  Format="ur n:oasis:na mes:tc:SAM L:2.0:name id-format: persistent ">CN=Carl  Boden,CN=U sers,DC=ia m,DC=va,DC =local</sa ml:NameID>
  3422       ;;    <sa ml:Subject Confirmati on Method= "urn:oasis :names:tc: SAML:2.0:c m:sender-v ouches">
  3423       ;;      < saml:Subje ctConfirma tionData R ecipient=" http://SSO i/AppliesT o/SAML2"/>
  3424       ;;    </s aml:Subjec tConfirmat ion>
  3425       ;;  </sam l:Subject>
  3426       ;;  <saml :Condition s NotBefor e="2015-06 -25T11:55: 27Z" NotOn OrAfter="2 015-06-25T 12:15:27Z" >
  3427       ;;    <sa ml:Audienc eRestricti on>
  3428       ;;        <saml:Audi ence>https ://*. DNS     /*</saml:A udience>
  3429       ;;    </s aml:Audien ceRestrict ion>
  3430       ;;  </sam l:Conditio ns>
  3431       ;;  <saml :AuthnStat ement Auth nInstant=" 2015-06-25 T12:00:27Z ">
  3432       ;;    <sa ml:AuthnCo ntext>
  3433       ;;      < saml:Authn ContextCla ssRef>2</s aml:AuthnC ontextClas sRef>
  3434       ;;    </s aml:AuthnC ontext>
  3435       ;;  </sam l:AuthnSta tement>
  3436       ;;  <saml :Attribute Statement>
  3437       ;;    <sa ml:Attribu te Name="u rn:va:vrm: iam:transa ctionid" N ameFormat= "urn:oasis :names:tc: SAML:2.0:a ttrname-fo rmat:unspe cified">
  3438       ;;      < saml:Attri buteValue> 0000000000 0000000000 00008ed2e3 0a-0674-55 8c33ab-0f6 c-00b04505 </saml:Att ributeValu e>
  3439       ;;    </s aml:Attrib ute>
  3440       ;;    <sa ml:Attribu te Name="i ssueinstan t=" NameFo rmat="urn: oasis:name s:tc:SAML: 2.0:attrna me-format: unspecifie d">
  3441       ;;      < saml:Attri buteValue> 2015-06-25 T12:00:27Z </saml:Att ributeValu e>
  3442       ;;    </s aml:Attrib ute>
  3443       ;;    <sa ml:Attribu te Name="a uthnsystem " NameForm at="urn:oa sis:names: tc:SAML:2. 0:attrname -format:un specified" >
  3444       ;;      < saml:Attri buteValue> SSOi</saml :Attribute Value>
  3445       ;;    </s aml:Attrib ute>
  3446       ;;    <sa ml:Attribu te Name="a uthenticat iontype" N ameFormat= "urn:oasis :names:tc: SAML:2.0:a ttrname-fo rmat:unspe cified">
  3447       ;;      < saml:Attri buteValue> Indirect</ saml:Attri buteValue>
  3448       ;;    </s aml:Attrib ute>
  3449       ;;    <sa ml:Attribu te Name="p roofingaut hority" Na meFormat=" urn:oasis: names:tc:S AML:2.0:at trname-for mat:unspec ified">
  3450       ;;      < saml:Attri buteValue> VA</saml:A ttributeVa lue>
  3451       ;;    </s aml:Attrib ute>
  3452       ;;    <sa ml:Attribu te Name="a ssurancele vel" NameF ormat="urn :oasis:nam es:tc:SAML :2.0:attrn ame-format :unspecifi ed">
  3453       ;;      < saml:Attri buteValue> 2</saml:At tributeVal ue>
  3454       ;;    </s aml:Attrib ute>
  3455       ;;    <sa ml:Attribu te Name="u rn:va:vrm: iam:firstn ame" NameF ormat="urn :oasis:nam es:tc:SAML :2.0:attrn ame-format :unspecifi ed">
  3456       ;;      < saml:Attri buteValue> Carl</saml :Attribute Value>
  3457       ;;    </s aml:Attrib ute>
  3458       ;;    <sa ml:Attribu te Name="u rn:va:vrm: iam:lastna me" NameFo rmat="urn: oasis:name s:tc:SAML: 2.0:attrna me-format: unspecifie d">
  3459       ;;      < saml:Attri buteValue> Boden</sam l:Attribut eValue>
  3460       ;;    </s aml:Attrib ute>
  3461       ;;    <sa ml:Attribu te Name="u rn:va:vrm: iam:secid"  NameForma t="urn:oas is:names:t c:SAML:2.0 :attrname- format:uns pecified">
  3462       ;;      < saml:Attri buteValue> 123459876< /saml:Attr ibuteValue >
  3463       ;;    </s aml:Attrib ute>
  3464       ;;    <sa ml:Attribu te Name="u rn:va:ad:s amaccountn ame" NameF ormat="urn :oasis:nam es:tc:SAML :2.0:attrn ame-format :unspecifi ed">
  3465       ;;      < saml:Attri buteValue> cboden</sa ml:Attribu teValue>
  3466       ;;    </s aml:Attrib ute>
  3467       ;;    <sa ml:Attribu te Name="u pn" NameFo rmat="urn: oasis:name s:tc:SAML: 2.0:attrna me-format: unspecifie d">
  3468       ;;        <saml:Attr ibuteValue > PII </saml:Att ributeValu e>
  3469       ;;    </s aml:Attrib ute>
  3470       ;;    <sa ml:Attribu te Name="e mail" Name Format="ur n:oasis:na mes:tc:SAM L:2.0:attr name-forma t:unspecif ied">
  3471       ;;        <saml:Attr ibuteValue > PII                 </saml:Att ributeValu e>
  3472       ;;    </s aml:Attrib ute>
  3473       ;;    <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xs pa:1.0:sub ject:subje ct-id" Nam eFormat="u rn:oasis:n ames:tc:SA ML:2.0:att rname-form at:unspeci fied">
  3474       ;;      < saml:Attri buteValue> Carl Boden </saml:Att ributeValu e>
  3475       ;;    </s aml:Attrib ute>
  3476       ;;    <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xa cml:2.0:su bject:role " NameForm at="urn:oa sis:names: tc:SAML:2. 0:attrname -format:un specified" >
  3477       ;;      < saml:Attri buteValue> role1</sam l:Attribut eValue>
  3478       ;;    </s aml:Attrib ute>
  3479       ;;    <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xs pa:1.0:sub ject:organ ization" N ameFormat= "urn:oasis :names:tc: SAML:2.0:a ttrname-fo rmat:unspe cified">
  3480       ;;      < saml:Attri buteValue> Department  of Vetera ns Affairs </saml:Att ributeValu e>
  3481       ;;    </s aml:Attrib ute>
  3482       ;;    <sa ml:Attribu te Name="u rn:oasis:n ames:tc:xs pa:1.0:sub ject:organ ization-id " NameForm at="urn:oa sis:names: tc:SAML:2. 0:attrname -format:un specified" >
  3483       ;;      < saml:Attri buteValue> urn:oid:2. 16.840.1.1 13883.4.34 9</saml:At tributeVal ue>
  3484       ;;    </s aml:Attrib ute>
  3485       ;;    <sa ml:Attribu te Name="u rn:nhin:na mes:saml:h omeCommuni tyId" Name Format="ur n:oasis:na mes:tc:SAM L:2.0:attr name-forma t:unspecif ied">
  3486       ;;      < saml:Attri buteValue> urn:oid:2. 16.840.1.1 13883.4.34 9</saml:At tributeVal ue>
  3487       ;;    </s aml:Attrib ute>
  3488       ;;    <sa ml:Attribu te Name="u niqueUserI d" NameFor mat="urn:o asis:names :tc:SAML:2 .0:attrnam e-format:u nspecified ">
  3489       ;;      < saml:Attri buteValue> 123459876< /saml:Attr ibuteValue >
  3490       ;;    </s aml:Attrib ute>
  3491       ;;  </sam l:Attribut eStatement >
  3492       ;;</saml: Assertion>
  3493       ;;$$END$$
  3494      ]]>
  3495     </Routine>
  3496    
  3497    
  3498     <Routine 
  3499      name="XSAP XMU4" 
  3500      type="INT"  
  3501      languagemo de="0" 
  3502      timestamp= "64097,514 57.944075"
  3503     >
  3504      <![CDATA[
  3505      XSAPXMU4 ; DAL/BNT -  VistA Serv ices Assem bler Unit  Tests;1/27 /2016
  3506       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15
  3507       ;
  3508       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  3509       ; 
  3510       ; All ent ry points  authored b y Brian To mlin 2015- 2016
  3511       ;
  3512       ; makes i t easy to  run tests  simply by  running th is routine  and
  3513       ; insures  that XTMU NIT will b e run only  where it  is present
  3514       I $T(EN^X TMUNIT)'=" " D EN^XTM UNIT("XSAP XMU4",1)
  3515       Q
  3516       ;
  3517      STARTUP ;  optional e ntry point
  3518       ; if pres ent execut ed before  any other  entry poin t any vari ables
  3519       ; or othe r work tha t needs to  be done f or any or  all tests  in the
  3520       ; routine .  This is  run only  once at th e beginnin g.
  3521       K ^TMP($J ,"XSA","UN IT TESTS")
  3522       Q
  3523       ;
  3524      SHUTDOWN ;  optional  entry poin t
  3525       ; if pres ent execut ed after a ll other p rocessing  is complet e to remov e
  3526       ; any var iables, or  undo work  done in S TARTUP.
  3527       Q
  3528       ;
  3529      SETUP ; op tional ent ry point
  3530       ; if pres ent it wil l be execu ted before  each test  entry to  set up
  3531       ; variabl es, etc.
  3532       N XSAERR, XOBARR,XOB ARR2,XOBAR R3,TARGET, SOURCE,OUT PUT
  3533       Q
  3534       ;
  3535      TEARDOWN ;  optional  entry poin t
  3536       ; if pres ent it wil l be exceu ted after  each test  entry to c lean up
  3537       ; variabl es, etc.
  3538       Q
  3539       ;
  3540      XTROU ;
  3541       ;;XSAPXMU 4;Misc Ser vices Unit  Tests
  3542       ; Entry p oints for  tests are  specified  as the thi rd semi-co lon piece,
  3543       ; a descr iption of  what it te sts is opt ional as t he fourth  semi-colon
  3544       ; piece o n a line.  The first  line witho ut a third  piece ter minates th e
  3545       ; search  for TAGs t o be used  as entry p oints
  3546      XTENT ;
  3547       ;;TADD1;T est Add re cord to th e XSA DEFI NITIONS fi le #17.01.
  3548       ;;TUPD1;T est Update  NAME in t he XSA DEF INITIONS f ile #17.01 .
  3549       ;;TUPD2;T est Lookup  by IEN Up date DEFIN ITION in t he XSA DEF INITIONS f ile #17.01 .
  3550       ;;TUPD3;T est Lookup  by Name a nd Update  DEFINITION  in the XS A DEFINITI ONS file # 17.01.
  3551       ;;TDEL1;T est Delete  record to  the XSA D EFINITIONS  file #17. 01.
  3552       ;;TRPCM1; Test the R PC METADAT A Function
  3553       ;;TRPCM2; Test the R PC METADAT A Function  to Fail w ith invali d Method S ignature
  3554       ;;TRPCM3; Test the R PC METADAT A Function
  3555       ;;TRPCM4; Test the R PC METADAT A Function
  3556       ;;TMSIG5; Test the M THDSIG^XSA PXUTL Func tion for d uplicate E ntry point s.
  3557       ;;TTFL1;T est the GE TPTFL Func tion to ge t Treating  Facility  List.
  3558       ;;TFUN1;T est the FU NCTION fun ction to c all GETICN ^MPIF001.
  3559       ;;TFUN2;T est the FU NCTION fun ction to c all GETDFN ^MPIF001.
  3560       ;;TDIS1;T est the In ternal Dev Ops KIDS B uild Distr ibution fu nction.
  3561       ;;TDIS2;T est the KI DS Build D istributio n function  to error  on missing  patch.
  3562       Q
  3563       ;
  3564      TADD1 ; Te st the UPD 1701 Funct ion to add  a record  to file 17 .01
  3565       TSTART
  3566       N TARGET, SOURCE,SUC CESS,XSAY
  3567       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","LI B","ADD RE CORD TO 17 .01"))
  3568       K @SOURCE ,@TARGET
  3569       S @SOURCE @("IEN")=" "
  3570       S @SOURCE @("NAME")= "mUnit-tes t-record"
  3571       D GETSWGR (.XSAY) M  @SOURCE@(" DEF")=XSAY
  3572       S SUCCESS =$$UPD1701 ^XSAPXPUB( .SOURCE,.T ARGET)
  3573       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3574       D CHKEQ^X TMUNIT($P( @TARGET@(" results"), "^",1),$O( ^XSA(17.01 ,"B","mUni t-test-rec ord",0))," mUnit-test -record en try not cr eated")
  3575       Q
  3576       ;
  3577      TUPD1 ; Te st the UPD 1701 Funct ion to upd ate a reco rd NAME in  file 17.0 1
  3578       N TARGET, SOURCE,SUC CESS,IEN
  3579       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","LI B","UPDATE  RECORD IN  17.01"))
  3580       K @SOURCE ,@TARGET
  3581       S IEN=$O( ^XSA(17.01 ,"B","mUni t-test-rec ord",0))
  3582       I 'IEN D  FAIL^XTMUN IT("mUnit- test-recor d does not  exist")
  3583       S @SOURCE @("IEN")=I EN
  3584       S @SOURCE @("NAME")= "New Recor d Name"
  3585       S SUCCESS =$$UPD1701 ^XSAPXPUB( .SOURCE,.T ARGET)
  3586       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3587       D CHKEQ^X TMUNIT("Ne w Record N ame",$P(^X SA(17.01,I EN,0),U)," Record NAM E was not  updated!")  
  3588       K @SOURCE ,@TARGET
  3589       Q
  3590       ;
  3591      TUPD2 ; Te st the UPD 1701 Funct ion to upd ate a reco rd DEFINIT ION in fil e 17.01
  3592       N TARGET, SOURCE,SUC CESS,IEN
  3593       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","LI B","UPDATE  RECORD IN  17.01"))
  3594       K @SOURCE ,@TARGET
  3595       S IEN=$O( ^XSA(17.01 ,"B","New  Record Nam e",0))
  3596       I 'IEN D  FAIL^XTMUN IT("New Re cord Name  does not e xist")
  3597       S @SOURCE @("IEN")=I EN
  3598       S @SOURCE @("DEF",1) ="LINE 1"
  3599       S SUCCESS =$$UPD1701 ^XSAPXPUB( .SOURCE,.T ARGET)
  3600       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3601       D CHKEQ^X TMUNIT("LI NE 1",^XSA (17.01,IEN ,"DEF",1,0 ),"Record  DEFINITION  was not u pdated by  IEN Lookup !") 
  3602       K @SOURCE ,@TARGET
  3603       Q
  3604       ;
  3605      TUPD3 ; Te st the UPD 1701 Funct ion to upd ate a reco rd DEFINIT ION in fil e 17.01
  3606       N TARGET, SOURCE,SUC CESS,IEN
  3607       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","LI B","UPDATE  RECORD IN  17.01"))
  3608       K @SOURCE ,@TARGET
  3609       S IEN=$O( ^XSA(17.01 ,"B","New  Record Nam e",0))
  3610       I 'IEN D  FAIL^XTMUN IT("New Re cord Name  does not e xist")
  3611       S @SOURCE @("NAME")= "New Recor d Name"
  3612       S @SOURCE @("DEF",1) ="LINE 2"
  3613       S SUCCESS =$$UPD1701 ^XSAPXPUB( .SOURCE,.T ARGET)
  3614       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3615       D CHKEQ^X TMUNIT("LI NE 2",^XSA (17.01,IEN ,"DEF",1,0 ),"Record  DEFINITION  was not u pdated by  Name Looku p!") 
  3616       K @SOURCE ,@TARGET
  3617       Q
  3618       ;
  3619      TDEL1 ; Te st the UPD 1701 Funct ion to Del ete a reco rd in file  17.01
  3620       N TARGET, SOURCE,SUC CESS,IEN,X SAY
  3621       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","LI B","DELETE  RECORD IN  17.01"))
  3622       K @SOURCE ,@TARGET
  3623       S IEN=$O( ^XSA(17.01 ,"B","New  Record Nam e",0))
  3624       I 'IEN D  FAIL^XTMUN IT("New Re cord Name  does not e xist")
  3625       S XOBARR= $$NOW^XLFD T
  3626       S @SOURCE @("IEN")=I EN
  3627       S @SOURCE @("NAME")= "@"
  3628       D GETSWGR (.XSAY) M  @SOURCE@(" DEF")=XSAY
  3629       S SUCCESS =$$UPD1701 ^XSAPXPUB( .SOURCE,.T ARGET)
  3630       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3631       D CHKEQ^X TMUNIT("", $O(^XSA(17 .01,IEN,0) ),"Record  Not Delete d!")
  3632       K @SOURCE ,@TARGET
  3633       TROLLBACK
  3634       Q
  3635       ;
  3636      TRPCM1 ; T est the RP C Metadata  function
  3637       TSTART
  3638       N TARGET, SOURCE,SUC CESS
  3639       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UT L","RPC ME TADATA"))
  3640       K @SOURCE ,@TARGET
  3641       S @SOURCE @("RPC")=" DVBAB FETC H 1U4N"
  3642       S SUCCESS =$$RPCMETA ^XSAPXPUB( .SOURCE,.T ARGET)
  3643       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3644       K @SOURCE ,@TARGET
  3645       TROLLBACK
  3646       Q
  3647       ;
  3648      TRPCM2 ; T est the RP C Metadata  function  to Fail wi th invalid  Method Si gnature
  3649       TSTART
  3650       N TARGET, SOURCE,SUC CESS
  3651       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UT L","RPC ME TADATA"))
  3652       K @SOURCE ,@TARGET
  3653       S @SOURCE @("RPC")=" XOBV TEST  VAR LENGTH  REC"
  3654       S SUCCESS =$$RPCMETA ^XSAPXPUB( .SOURCE,.T ARGET)
  3655       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("e rror","err or")))
  3656       K @SOURCE ,@TARGET
  3657       TROLLBACK
  3658       Q
  3659       ;
  3660      TRPCM3 ; T est the RP C Metadata  function
  3661       TSTART
  3662       N TARGET, SOURCE,SUC CESS
  3663       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UT L","RPC ME TADATA"))
  3664       K @SOURCE ,@TARGET
  3665       S @SOURCE @("RPC")=" DDR FILER"
  3666       S SUCCESS =$$RPCMETA ^XSAPXPUB( .SOURCE,.T ARGET)
  3667       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3668       K @SOURCE ,@TARGET
  3669       TROLLBACK
  3670       Q
  3671       ;
  3672      TRPCM4 ; T est the RP C Metadata  function
  3673       TSTART
  3674       N TARGET, SOURCE,SUC CESS
  3675       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UT L","RPC ME TADATA"))
  3676       K @SOURCE ,@TARGET
  3677       S @SOURCE @("RPC")=" VAFC LOCAL  GETCORRES PONDINGIDS "
  3678       S SUCCESS =$$RPCMETA ^XSAPXPUB( .SOURCE,.T ARGET)
  3679       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3680       K @SOURCE ,@TARGET
  3681       TROLLBACK
  3682       Q
  3683       ;
  3684      TMSIG5 ; T est the $$ MTHSIG^XSA PXUTL func tion
  3685       TSTART
  3686       N MSIG
  3687       S MSIG=$$ MTHDSIG^XS APXUTL("OR AM","PATIE NT")
  3688       D CHKEQ^X TMUNIT(MSI G,"PATIENT (RESULT,OR AMDFN) ;Re turns curr ent Patien t info as: ","Method  Signature  does not m atch")
  3689       TROLLBACK
  3690       Q
  3691       ;
  3692      TTFL1 ; Te st the GET PTFL Funct ion
  3693       TSTART
  3694       N SUCCESS ,TARGET,SO URCE
  3695       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","CR S","GET PA TIENT DATA "))
  3696       K @SOURCE ,@TARGET
  3697       S @SOURCE @("DFN")=2 37
  3698       S SUCCESS =$$GETPTFL ^XSAPXPUB( .SOURCE,.T ARGET)
  3699       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3700       K @SOURCE ,@TARGET
  3701       TROLLBACK
  3702       Q
  3703       ;
  3704      TFUN1 ; Te st the FUN CTION func tion
  3705       TSTART
  3706       N SUCCESS ,TARGET,SO URCE
  3707       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UT L","FUNCTI ON"))
  3708       K @SOURCE ,@TARGET
  3709       S @SOURCE @("ENTRY") ="GETICN"
  3710       S @SOURCE @("ROUTINE ")="MPIF00 1"
  3711       S @SOURCE @("PARAMS" ,1,"LITERA L")=237
  3712       S SUCCESS =$$FUNCTIO N^XSAPXPUB (.SOURCE,. TARGET)
  3713       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3714       D CHKEQ^X TMUNIT("10 101V964144 ",$G(@TARG ET@("resul ts","resul t")),"ICN  does not m atch expec ted value" )
  3715       K @SOURCE ,@TARGET
  3716       TROLLBACK
  3717       Q
  3718       ;
  3719      TFUN2 ; Te st the FUN CTION func tion
  3720       TSTART
  3721       N SUCCESS ,TARGET,SO URCE
  3722       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","UT L","FUNCTI ON"))
  3723       K @SOURCE ,@TARGET
  3724       S @SOURCE @("ENTRY") ="GETDFN"
  3725       S @SOURCE @("ROUTINE ")="MPIF00 1"
  3726       S @SOURCE @("PARAMS" ,1,"LITERA L")="10101 V964144"
  3727       S SUCCESS =$$FUNCTIO N^XSAPXPUB (.SOURCE,. TARGET)
  3728       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3729       D CHKEQ^X TMUNIT(237 ,$G(@TARGE T@("result s","result ")),"DFN d oes not ma tch expect ed value")
  3730       K @SOURCE ,@TARGET
  3731       TROLLBACK
  3732       Q
  3733       ;
  3734      TDIS1 ; Te st the Int ernal DevO ps KIDS bu ild distri bution fun ction
  3735       TSTART
  3736       N SUCCESS ,TARGET,SO URCE
  3737       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","DI ST"))
  3738       K @SOURCE
  3739       S @SOURCE @("NAME")= "VPS*1.0*1 9"
  3740       S @SOURCE @("COMMENT ")="VPS MR AR"
  3741       S @SOURCE @("PATH")= "C:\TEMP\V PSMRAR\VPS _1_19.KID"
  3742       S SUCCESS =$$DISTKID S^XSAPXDV1 (.SOURCE,. TARGET)
  3743       D CHKTF^X TMUNIT(SUC CESS,$G(@T ARGET@("er ror","erro r")))
  3744       ;ZW @TARG ET
  3745       K @SOURCE ,@TARGET
  3746       TROLLBACK
  3747       Q
  3748       ;
  3749      TDIS2 ; Te st the Int ernal DevO ps KIDS bu ild distri bution fun ction
  3750       TSTART
  3751       N SUCCESS ,TARGET,SO URCE
  3752       S (SOURCE ,TARGET)=$ NA(^TMP($J ,"XSA","DI ST"))
  3753       K @SOURCE
  3754       S @SOURCE @("NAME")= "VPS*1.0*2 0"
  3755       S @SOURCE @("COMMENT ")="VPS MR AR"
  3756       S @SOURCE @("PATH")= "C:\TEMP\V PSMRAR\VPS _1_19.KID"
  3757       S SUCCESS =$$DISTKID S^XSAPXDV1 (.SOURCE,. TARGET)
  3758       D CHKTF^X TMUNIT('SU CCESS,$G(@ TARGET@("e rror","err or")))
  3759       ;ZW @TARG ET
  3760       K @SOURCE ,@TARGET
  3761       TROLLBACK
  3762       Q
  3763       ;
  3764      GETSWGR(XS AY) ; -- G et Swagger  2.0 Defin ition for  Unit Test
  3765       N I,X K X SAY F I=1: 1 S X=$P($ T(SWGRDEF+ I),";;",2)  Q:X="$$EN D$$"  S XS AY(I)=X
  3766       Q
  3767       ;
  3768      SWGRDEF ;  Sample Swa gger 2.0 D efinition  for RESTif ied RPC
  3769       ;;{
  3770       ;;  "swag ger": "2.0 ",
  3771       ;;  "info ": {
  3772       ;;    "ti tle": "Vis tA.js RPC  REST Servi ce",
  3773       ;;    "de scription" : "A frien dly servic e that pro vides easy  REST-ific ation of V istA RPCs. ",
  3774       ;;    "ve rsion": "0 .0.1"
  3775       ;;  },
  3776       ;;  "sche mes": [
  3777       ;;    "ht tps"
  3778       ;;  ],
  3779       ;;  "base Path": "/r pcs",
  3780       ;;  "prod uces": [
  3781       ;;    "ap plication/ json"
  3782       ;;  ],
  3783       ;;  "path s": {
  3784       ;;    "/b y-name/vps -get-aller gies/call" : {
  3785       ;;      " post": {
  3786       ;;         "summary" : "GET^VPS ALL01(.tRE SULT,VPSDF N)",
  3787       ;;         "descript ion": "Cal led by the  Vetlink K iosk syste m.   VPS G ET ALLERGI ES retriev es patient  allergy d ata stored  in an ent ry or entr ies in the  PATIENT A LLERGIES f ile (120.8 ).  The re trieved da ta is made  available  to the Ve tlink syst em. ",
  3788       ;;         "produces ": [
  3789       ;;           "applic ation/json "
  3790       ;;         ],
  3791       ;;         "paramete rs": [
  3792       ;;           {
  3793       ;;             "name ": "VPSDFN ",
  3794       ;;             "desc ription":  "Something  to do wit h the pati ent.",
  3795       ;;             "in":  "formData ",
  3796       ;;             "type ": "string ",
  3797       ;;             "requ ired": fal se
  3798       ;;           }
  3799       ;;         ],
  3800       ;;         "tags": [
  3801       ;;           "RPCS",
  3802       ;;           "Restif y"
  3803       ;;         ],
  3804       ;;         "response s": {
  3805       ;;           "200":  {
  3806       ;;             "desc ription":  "Data take n from an  entry or e ntries sto red in the  PATIENT A LLERGIES f ield is de fined 3.       iens a re the int ernal entr y numbers  at which t he allergy  record is  stored.   This eleme nt can hav e either t he entry l evel ien f or non-mul tiple or i t can have  both the  entry leve l ien and  the sub-en try ien.    It is con structed a s "sub-ent ry ien, en try ien"   for data c oming from  sub-files  (multiple s)4.       field numb er is the  numeric fi eld refere nce from w here the d ata has be en retriev ed5.        field lab el is the  name of th e field6.       data  value  is  the data t hat was re trieved fr om the fie ldfile (12 0.8) are p opulated i nto the lo cal array.  Each elem ent in the  subscript ed array i s construc ted as:sub scriptedAr ray(n)= "f ile number ^iens (sub -entry ien , ien)^fie ld number^ field labe l^data val ue"1.       where n i s an incre mental num ber that a cts as an  index in t he array2.       file  number is  the file  or sub-fil e referenc e from whe re the ",
  3807       ;;             "sche ma": {
  3808       ;;               "ty pe": "stri ng"
  3809       ;;             }
  3810       ;;           }
  3811       ;;         }
  3812       ;;      }
  3813       ;;    }
  3814       ;;  },
  3815       ;;  "defi nitions":  {
  3816       ;;    "Er ror": {
  3817       ;;      " properties ": {
  3818       ;;         "error":  {
  3819       ;;           "type":  "string",
  3820       ;;           "descri ption": "A  hopefully  helpful e xplanation  of what w ent wrong. "
  3821       ;;         },
  3822       ;;         "data": {
  3823       ;;           "type":  "object",
  3824       ;;           "descri ption": "A  hopefully  helpful e xplanation  of what w ent wrong. "
  3825       ;;         }
  3826       ;;      }
  3827       ;;    },
  3828       ;;    "Rp cId": {
  3829       ;;      " properties ": {
  3830       ;;         "id": {
  3831       ;;           "type":  "integer" ,
  3832       ;;           "format ": "int32" ,
  3833       ;;           "descri ption": "T he interna l id of th e RPC. Req uired for  some opera tions"
  3834       ;;         },
  3835       ;;         "name": {
  3836       ;;           "type":  "string",
  3837       ;;           "descri ption": "T he name of  the RPC."
  3838       ;;         }
  3839       ;;      }
  3840       ;;    },
  3841       ;;    "Sw aggerDefin ition": {} ,
  3842       ;;    "Pa th": {}
  3843       ;;  }
  3844       ;;}
  3845       ;;$$END$$
  3846       
  3847      ]]>
  3848     </Routine>
  3849    
  3850    
  3851     <Routine 
  3852      name="XSAP XPSS" 
  3853      type="INT"  
  3854      languagemo de="0" 
  3855      timestamp= "64181,550 08"
  3856     >
  3857      <![CDATA[
  3858      XSAPXPSS ; SYD/JWM -  VSA Server  Persisten t State St ore Access  Functions ;4/15/2016
  3859       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 5 8
  3860       ;
  3861       ; Externa l Referenc es           DBIA#
  3862       ; ------- ---------- --           -----
  3863       ; DT^DILF                         2054
  3864       Q
  3865       ;
  3866       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  3867       ;
  3868      INIT(SOURC E,TARGET)  ; Initiali se Persist ent Store
  3869       N GLOBAL, REAPFREQ,R NODE
  3870       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  3871       N X F X=" GLOBAL","R EAPFREQ" D  INITPARM^ XSAPXUTL(. X)
  3872       I $L(GLOB AL)=0 D BL DERROR^XSA PXUTL(1,"N o Cache gl obal speci fied","INI T^XSAPXPSS ") Q $$RES ULT^XSAPXU TL()
  3873       D FILEMAN (GLOBAL)
  3874       I $G(REAP FREQ) D
  3875       . S RNODE =$$REAPNOD E(GLOBAL)
  3876       . S @RNOD E@("FREQ") =REAPFREQ
  3877       S @TARGET @("results ","ok")=1
  3878       Q $$RESUL T^XSAPXUTL ()
  3879      SAVE(SOURC E,TARGET)  ; Save a v alue to ca che or upd ate an exi sting valu e
  3880       N GLOBAL, KEY,VALUE, LIFETIME,E RR,ERRRES
  3881       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  3882       N X F X=" GLOBAL","K EY","VALUE ","LIFETIM E" D INITP ARM^XSAPXU TL(.X)
  3883       I $L(GLOB AL)=0 D BL DERROR^XSA PXUTL(1,"N o Cache gl obal speci fied","SAV E^XSAPXPSS ") Q $$RES ULT^XSAPXU TL()
  3884       I $L(KEY) =0 D BLDER ROR^XSAPXU TL(1,"No C ache Key s pecified", "SAVE^XSAP XPSS") Q $ $RESULT^XS APXUTL()
  3885       D SAVEKEY (GLOBAL,KE Y,VALUE,LI FETIME)
  3886       D SAVESKD T(GLOBAL,K EY,SOURCE)
  3887       S @TARGET @("results ","ok")=1
  3888       Q $$RESUL T^XSAPXUTL ()
  3889      LOAD(SOURC E,TARGET)  ; Load a v alue from  cache. Ret urns an er ror for no n existent  key
  3890       N GLOBAL, KEY,SUBKEY ,VNODE,ENO DE,INODE,E XPIRY,ERRR ES,MISSERR ,VALID,PAS SED,DELONE XP,KEYTYPE
  3891       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  3892       N X F X=" GLOBAL","K EY","SUBKE Y","MISSER R","DELONE XP" D INIT PARM^XSAPX UTL(.X)
  3893       S @TARGET @("results ","ok")=0
  3894       S KEYTYPE ="VALUE"
  3895       I $G(SUBK EY) S KEYT YPE="SUBKE YS"
  3896       I '$G(MIS SERR) S MI SSERR=0
  3897       I $LENGTH ($G(DELONE XP))<1 S D ELONEXP=1
  3898       S VNODE=$ $DATANODE( GLOBAL,KEY ,KEYTYPE,$ G(SUBKEY))
  3899       S ENODE=$ $DATANODE( GLOBAL,KEY ,"EXPIRY")
  3900       S VALID=$ D(@VNODE)
  3901       I MISSERR &'VALID D  BLDERROR^X SAPXUTL(-1 ,"Key not  found","LO AD^XSAPXPS S") Q $$RE SULT^XSAPX UTL()
  3902       S PASSED= 0
  3903       I VALID D
  3904       . S PASSE D=$$EXPGON E(@ENODE)
  3905       . I PASSE D&DELONEXP  D REMOVE( GLOBAL,KEY )
  3906       . S VALID ='PASSED
  3907       I MISSERR &PASSED D  BLDERROR^X SAPXUTL(-1 ,"Key not  found","LO AD^XSAPXPS S") Q $$RE SULT^XSAPX UTL()
  3908       S @TARGET @("results ","ok")=VA LID
  3909       I VALID S  @TARGET@( "results", "value")=@ VNODE
  3910       Q $$RESUL T^XSAPXUTL ()
  3911      DELETE(SOU RCE,TARGET ) ; Delete s a value  from the c ache
  3912       N GLOBAL, KEY
  3913       N X F X=" GLOBAL","K EY" D INIT PARM^XSAPX UTL(.X)
  3914       D REMOVE( GLOBAL,KEY )
  3915       S @TARGET @("results ","ok")=1
  3916       Q $$RESUL T^XSAPXUTL ()
  3917      REAP(SOURC E,TARGET)  ; Force re moval of a ll expired  values fr om the cac he
  3918       N GLOBAL, BASENODE,T IME,NODE,T NODE,KEY,T DONE,NDONE ,RNODE,DOR EAP,RCOUNT ,SAVEKEY,S KCOUNT,SKD NODE
  3919       N X F X=" GLOBAL","S UBKEY" D I NITPARM^XS APXUTL(.X)
  3920       S SAVEKEY =$G(SUBKEY )'=""
  3921       S RNODE=$ $REAPNODE( GLOBAL)
  3922       S DOREAP= '$D(@RNODE @("NEXT"))
  3923       I 'DOREAP  S DOREAP= $$EXPGONE( @RNODE@("N EXT"))
  3924       S @TARGET @("results ","ok")=0
  3925       Q:'DOREAP  $$RESULT^ XSAPXUTL()
  3926       D FILEMAN (GLOBAL)
  3927       I $D(@RNO DE@("FREQ" )) S @RNOD E@("NEXT") =$$EXPTIME (@RNODE@(" FREQ"))
  3928       S BASENOD E=$$IDXBAS E(GLOBAL," EXPIRY")
  3929       S TDONE=0
  3930       S RCOUNT= 0
  3931       S TIME=""
  3932       F  S TIME =$O(@BASEN ODE@(TIME) ) Q:TDONE   D
  3933       . S TDONE =(TIME="")
  3934       . Q:TDONE
  3935       . S TDONE ='$$EXPGON E(TIME)
  3936       . Q:TDONE
  3937       . S TNODE =$$TIMENOD E(GLOBAL,T IME)
  3938       . S NODE= TNODE
  3939       . S NDONE =0
  3940       . F  S NO DE=$Q(@NOD E) Q:NDONE   D
  3941       . . S NDO NE=(NODE=" ")
  3942       . . Q:NDO NE
  3943       . . S KEY =$$LEAFSUB S(TNODE,NO DE)
  3944       . . S NDO NE=$L(KEY) =0
  3945       . . Q:NDO NE
  3946       . . S RCO UNT=RCOUNT +1
  3947       . . I SAV EKEY D
  3948       . . . S S KDNODE=$$D ATANODE(GL OBAL,KEY," SUBKEYS")
  3949       . . . S S KCOUNT=@SK DNODE
  3950       . . . I $ D(@SKDNODE @(+SKCOUNT ,SUBKEY))  S @TARGET@ ("results" ,"subkeys" ,@SKDNODE@ (SKCOUNT,S UBKEY))=""
  3951       . . D REM OVE(GLOBAL ,KEY)
  3952       S @TARGET @("results ","ok")=1
  3953       S @TARGET @("results ","totalTo kensDelete d")=RCOUNT
  3954       Q $$RESUL T^XSAPXUTL ()
  3955      TOUCH(SOUR CE,TARGET)  ; update  timestamp  on an exis ting value
  3956       N GLOBAL, KEY,LIFETI ME,ERR,VNO DE,ENODE,I NODE,OLDIN ODE,EXPIRY ,ERRRES
  3957       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  3958       N X F X=" GLOBAL","K EY","LIFET IME" D INI TPARM^XSAP XUTL(.X)
  3959       I $L(GLOB AL)=0 D BL DERROR^XSA PXUTL(1,"N o Cache gl obal speci fied","TOU CH^XSAPXPS S") Q $$RE SULT^XSAPX UTL()
  3960       I $L(KEY) =0 D BLDER ROR^XSAPXU TL(1,"No C ache Key s pecified", "TOUCH^XSA PXPSS") Q  $$RESULT^X SAPXUTL()
  3961       S ENODE=$ $DATANODE( GLOBAL,KEY ,"EXPIRY")
  3962       S VNODE=$ $DATANODE( GLOBAL,KEY ,"VALUE")
  3963       I '$D(@VN ODE) D BLD ERROR^XSAP XUTL(1,"Ke y does not  exist","T OUCH^XSAPX PSS") Q $$ RESULT^XSA PXUTL()
  3964       S OLDINOD E=$$IDXNOD E(GLOBAL," EXPIRY",KE Y,@ENODE)
  3965       K @OLDINO DE
  3966       S EXPIRY= $$EXPTIME( LIFETIME)
  3967       S INODE=$ $IDXNODE(G LOBAL,"EXP IRY",KEY,E XPIRY)
  3968       S @ENODE= EXPIRY
  3969       S @INODE= ""
  3970       S @TARGET @("results ","ok")=1
  3971       Q $$RESUL T^XSAPXUTL ()
  3972      ADDSKEY(SO URCE,TARGE T) ; Regis ter a new  subkey the  cache wil l attempt  to use on  saving new  entries
  3973       N GLOBAL, NAME,INDEX ED,ERR,SNO DE,ERRRES
  3974       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  3975       N X F X=" GLOBAL","N AME","INDE XED" D INI TPARM^XSAP XUTL(.X)
  3976       I $L(GLOB AL)=0 D BL DERROR^XSA PXUTL(1,"N o Cache gl obal speci fied","ADD SKEY^XSAPX PSS") Q $$ RESULT^XSA PXUTL()
  3977       I $L(NAME )=0 D BLDE RROR^XSAPX UTL(1,"No  Subkey nam e specifie d","ADDSKE Y^XSAPXPSS ") Q $$RES ULT^XSAPXU TL()
  3978       D FILEMAN (GLOBAL)
  3979       S SNODE=$ $SKNODE(GL OBAL)
  3980       S @SNODE@ (NAME)=IND EXED
  3981       S @TARGET @("results ","ok")=1
  3982       Q $$RESUL T^XSAPXUTL ()
  3983      READIDX(SO URCE,TARGE T) ; Read  the conten ts of a su bkey index  returning  value of  specified  subkey for  each valu e in the i ndex
  3984       N GLOBAL, INDEX,SUBK EY,ERR,SNO DE,INODE,I BNODE,SKDN ODE,SKINOD E,NODE,IDX VAL,ERRRES ,VCOUNT,ND ONE,SKCOUN T,KEY,TMP
  3985       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  3986       N X F X=" GLOBAL","I NDEX","SUB KEY" D INI TPARM^XSAP XUTL(.X)
  3987       S SNODE=$ $SKNODE(GL OBAL)
  3988       I $L(GLOB AL)=0 D BL DERROR^XSA PXUTL(1,"N o Cache gl obal speci fied","REA DIDX^XSAPX PSS") Q $$ RESULT^XSA PXUTL()
  3989       I $L(SUBK EY)=0 D BL DERROR^XSA PXUTL(1,"N o subkey n ame specif ied","READ IDX^XSAPXP SS") Q $$R ESULT^XSAP XUTL()
  3990       I $L(INDE X)=0 D BLD ERROR^XSAP XUTL(1,"No  index nam e specifie d","READID X^XSAPXPSS ") Q $$RES ULT^XSAPXU TL()
  3991       I '$D(@SN ODE@(INDEX )) D BLDER ROR^XSAPXU TL(1,"Inde x does not  exist","R EADIDX^XSA PXPSS") Q  $$RESULT^X SAPXUTL()
  3992       I @SNODE@ (INDEX)'=1  D BLDERRO R^XSAPXUTL (1,"Subkey  is not de fined as a n index"," READIDX^XS APXPSS") Q  $$RESULT^ XSAPXUTL()
  3993       S IBNODE= $$IDXBASE( GLOBAL,IND EX)
  3994       S IDXVAL= ""
  3995       S @TARGET @("results ","count") =0
  3996       F  S IDXV AL=$O(@IBN ODE@(IDXVA L)) Q:IDXV AL=""  D
  3997       . S INODE =$$IVALNOD E(GLOBAL,I NDEX,IDXVA L)
  3998       . S NODE= INODE
  3999       . S VCOUN T=0
  4000       . S NDONE =0
  4001       . F  S NO DE=$Q(@NOD E) Q:NDONE   D
  4002       . . S NDO NE=(NODE=" ")
  4003       . . Q:NDO NE
  4004       . . S KEY =$$LEAFSUB S(INODE,NO DE)
  4005       . . S NDO NE=(KEY="" )
  4006       . . Q:NDO NE
  4007       . . S KEY =$P(KEY,"^ ",1,$L(KEY ,"^")-1)
  4008       . . S SKD NODE=$$DAT ANODE(GLOB AL,KEY,"SU BKEYS")
  4009       . . S SKI NODE=$$IDX NODE(GLOBA L,INDEX,KE Y,IDXVAL)
  4010       . . S SKC OUNT=$O(@S KINODE@("" ),-1) ; Mo st recent  entry with  this valu e
  4011       . . S @TA RGET@("res ults","ind ex",IDXVAL ,VCOUNT)=@ SKDNODE@(S KCOUNT,SUB KEY)
  4012       . . S VCO UNT=VCOUNT +1
  4013       . . S TMP =$INCREMEN T(@TARGET@ ("results" ,"count"))
  4014       . . S NOD E=$$IDXNOD E(GLOBAL,I NDEX,KEY,I DXVAL,SKCO UNT) ; Mov e node cur sor to ind ex node fo r node rea d above (i f not alre ady there)
  4015       S @TARGET @("results ","ok")=1
  4016       Q $$RESUL T^XSAPXUTL ()
  4017      FILTER(SOU RCE,TARGET ) ; Filter  records t o remove a ll records  not match ing the fi lter (FINC LUDE=1) or  all match ing (FINCL UDE=0). Fo r multiple  subkeys
  4018       N GLOBAL, INDEX,FINC LUDE,ERR,S NODE,INODE ,IBNODE,SK DNODE,NODE ,IDXVAL,ER RRES,VCOUN T,NDONE,SK COUNT,KEY, KEEP
  4019       S ERRRES= $NA(^TMP($ J,"XSA","E RRRES")) K  @ERRRES
  4020       N X F X=" GLOBAL","I NDEX","FIN CLUDE" D I NITPARM^XS APXUTL(.X)
  4021       ; TARGETS  subscript  should al so contain  subnodes  for each i tem to be  kept
  4022       S SNODE=$ $SKNODE(GL OBAL)
  4023       I $L(GLOB AL)=0 D BL DERROR^XSA PXUTL(1,"N o Cache gl obal speci fied","FIL TER^XSAPXP SS") Q $$R ESULT^XSAP XUTL()
  4024       I $L(INDE X)=0 D BLD ERROR^XSAP XUTL(1,"No  index nam e specifie d","FILTER ^XSAPXPSS" ) Q $$RESU LT^XSAPXUT L()
  4025       I '$D(@SN ODE@(INDEX )) D BLDER ROR^XSAPXU TL(1,"Inde x does not  exist","F ILTER^XSAP XPSS") Q $ $RESULT^XS APXUTL()
  4026       I @SNODE@ (INDEX)'=1  D BLDERRO R^XSAPXUTL (1,"Subkey  is not de fined as a n index"," FILTER^XSA PXPSS") Q  $$RESULT^X SAPXUTL()
  4027       I '$G(FIN CLUDE) S F INCLUDE=1
  4028       S IBNODE= $$IDXBASE( GLOBAL,IND EX)
  4029       S IDXVAL= ""
  4030       S VCOUNT= 0
  4031       F  S IDXV AL=$O(@IBN ODE@(IDXVA L)) Q:IDXV AL=""  D
  4032       . S KEEP= ($D(@SOURC E@("TARGET S",IDXVAL) )&FINCLUDE )!('$D(@SO URCE@("TAR GETS",IDXV AL))&'FINC LUDE)
  4033       . Q:KEEP
  4034       . S INODE =$$IVALNOD E(GLOBAL,I NDEX,IDXVA L)
  4035       . S NODE= INODE
  4036       . S NDONE =0
  4037       . F  S NO DE=$Q(@NOD E) Q:NDONE   D
  4038       . . S NDO NE=(NODE=" ")
  4039       . . Q:NDO NE
  4040       . . S KEY =$$LEAFSUB S(INODE,NO DE)
  4041       . . S NDO NE=(KEY="" )
  4042       . . Q:NDO NE
  4043       . . S SKC OUNT=$P(KE Y,"^",$L(K EY,"^"))
  4044       . . S KEY =$P(KEY,"^ ",1,$L(KEY ,"^")-1)
  4045       . . S SKD NODE=$$DAT ANODE(GLOB AL,KEY,"SU BKEYS")
  4046       . . ; Onl y remove i tem if the  subkey ma tch is fro m the late st subkey
  4047       . . I @SK DNODE=SKCO UNT D
  4048       . . . S V COUNT=VCOU NT+1
  4049       . . . I $ D(@SKDNODE @(+SKCOUNT ,INDEX)) S  @TARGET@( "results", "deletedKe ys",@SKDNO DE@(SKCOUN T,INDEX))= ""
  4050       . . . D R EMOVE(GLOB AL,KEY)
  4051       S @TARGET @("results ","ok")=1
  4052       S @TARGET @("results ","deleted Count")=VC OUNT
  4053       Q $$RESUL T^XSAPXUTL ()
  4054      CRSKNODE(G LOBAL,KEY, SUBKEY) ;  Create Sub key node.  Not expose d to JS bu t is calle d from ses sion manag ement M co de Returns  name of n ode create d;
  4055       N SNODE,V NODE,ENODE ,INODE,SKD NODE,SKCOU NT
  4056       I $L(GLOB AL)=0 Q "- 1^No Cache  global sp ecified"
  4057       I $L(KEY) =0 Q "-1^N o Cache Ke y specifie d"
  4058       S VNODE=$ $DATANODE( GLOBAL,KEY ,"VALUE")
  4059       I '$D(@VN ODE) D SAV EKEY(GLOBA L,KEY,"",- 1)
  4060       S SNODE=$ $SKNODE(GL OBAL)
  4061       I '$D(@SN ODE@(SUBKE Y)) Q "-1^ Subkey doe s not exis t"
  4062       I @SNODE@ (SUBKEY) Q  "-1^Opera tion not s upported o n indexed  subkeys"
  4063       S SKDNODE =$$DATANOD E(GLOBAL,K EY,"SUBKEY S")
  4064       S SKCOUNT =$S($D(@SK DNODE):@SK DNODE,1:1)
  4065       S @SKDNOD E@(SKCOUNT ,SUBKEY)=" "
  4066       Q $ZREFER ENCE
  4067      SAVEKEY(GL OBAL,KEY,V ALUE,LIFET IME) ; Sav e Value of  Key
  4068       N VNODE,E NODE,INODE ,OLDINODE, EXPIRY
  4069       S VNODE=$ $DATANODE( GLOBAL,KEY ,"VALUE")
  4070       S ENODE=$ $DATANODE( GLOBAL,KEY ,"EXPIRY")
  4071       I $D(@VNO DE) D
  4072       . S OLDIN ODE=$$IDXN ODE(GLOBAL ,"EXPIRY", KEY,@ENODE )
  4073       . K @OLDI NODE
  4074       S EXPIRY= $$EXPTIME( LIFETIME)
  4075       S INODE=$ $IDXNODE(G LOBAL,"EXP IRY",KEY,E XPIRY)
  4076       S @VNODE= VALUE
  4077       S @ENODE= EXPIRY
  4078       S @INODE= ""
  4079       Q
  4080      SAVESKDT(G LOBAL,KEY, SOURCE) ;  Save Subke y Data
  4081       N SNODE,S UBKEY,SKDN ODE,INODE, SKVALUE,SK COUNT
  4082       S SNODE=$ $SKNODE(GL OBAL)
  4083       S SKDNODE =$$DATANOD E(GLOBAL,K EY,"SUBKEY S")
  4084       S SKCOUNT =$INCREMEN T(@SKDNODE )
  4085       S SUBKEY= ""
  4086       F  S SUBK EY=$O(@SNO DE@(SUBKEY )) Q:SUBKE Y=""  D
  4087       . I $L($G (@SOURCE@( SUBKEY)))> 0 D
  4088       . . S SKV ALUE=@SOUR CE@(SUBKEY )
  4089       . . S @SK DNODE@(SKC OUNT,SUBKE Y)=SKVALUE
  4090       . . I @SN ODE@(SUBKE Y) D  ;thi s subkey i s indexed
  4091       . . . S I NODE=$$IDX NODE(GLOBA L,SUBKEY,K EY,SKVALUE ,SKCOUNT)
  4092       . . . S @ INODE=""
  4093       Q
  4094      KILLSKDT(G LOBAL,KEY)  ; Kill Su bkey Data
  4095       N SNODE,S UBKEY,SKDN ODE,INODE, SKVALUE,SK COUNT
  4096       S SKDNODE =$$DATANOD E(GLOBAL,K EY,"SUBKEY S")
  4097       S SNODE=$ $SKNODE(GL OBAL)
  4098       S SKCOUNT =""
  4099       F  S SKCO UNT=$O(@SK DNODE@(SKC OUNT)) Q:S KCOUNT=""   D
  4100       . S SUBKE Y=""
  4101       . F  S SU BKEY=$O(@S KDNODE@(SK COUNT,SUBK EY)) Q:SUB KEY=""  D
  4102       . . S SKV ALUE=@SKDN ODE@(SKCOU NT,SUBKEY)
  4103       . . I @SN ODE@(SUBKE Y) D  ; th is subkey  is indexed
  4104       . . . S I NODE=$$IDX NODE(GLOBA L,SUBKEY,K EY,SKVALUE ,SKCOUNT)
  4105       . . . K @ INODE
  4106       K @SKDNOD E
  4107       Q
  4108      SUBNODE(RO OT,TARGET)  ; Determi ne if the  target is  a subnode  of root
  4109       N RES,IDX ,ROOTSUB,T ARGETSUB
  4110       I $$GETGN AME(ROOT)' =$$GETGNAM E(TARGET)  Q 0
  4111       S RES=1
  4112       S ROOTSUB =$$GETSUBS (ROOT)
  4113       S TARGETS UB=$$GETSU BS(TARGET)
  4114       Q (ROOTSU B=$P(TARGE TSUB,"^",1 ,$L(ROOTSU B,"^")))
  4115      LEAFSUBS(R OOT,TARGET ) ; Return  all nodes  of target  that are  children o f root
  4116       N SUBS,SU BI,SUBQ,RO OTLEN,ROOT SUB,TARGET SUB,TARGET LEN
  4117       S ROOTSUB =$$GETSUBS (ROOT)
  4118       S TARGETS UB=$$GETSU BS(TARGET)
  4119       S ROOTLEN =$L(ROOTSU B,"^")
  4120       S TARGETL EN=$L(TARG ETSUB,"^")
  4121       I '$$SUBN ODE(ROOT,T ARGET) Q " "
  4122       Q $P(TARG ETSUB,"^", ROOTLEN+1, TARGETLEN)
  4123      REMOVE(GLO BAL,KEY) ;  Remove a  cache entr y (should  not be cal led direct ly outside  this rout ine)
  4124       D KILLSKD T(GLOBAL,K EY)
  4125       S VNODE=$ $DATANODE( GLOBAL,KEY ,"VALUE")
  4126       S ENODE=$ $DATANODE( GLOBAL,KEY ,"EXPIRY")
  4127       S EXPIRY= @ENODE
  4128       S INODE=$ $IDXNODE(G LOBAL,"EXP IRY",KEY,E XPIRY)
  4129       K @INODE
  4130       K @ENODE
  4131       K @VNODE
  4132       Q
  4133      GETSUBS(ST R) ; Provi ded with a  global re ference in  string fo rm, return  the subsc ripts part  as caret  delimited  list of su bscripts
  4134       N TMP,RES ,I,TOKEN,I NQUOTE,CHA R,STRLEN
  4135       I $L(STR, "(")=0 Q S TR
  4136       S TMP=$P( STR,"(",2)
  4137       S TMP=$P( TMP,")",1, $L(TMP,")" )-1)
  4138       S RES=""
  4139       S TOKEN=" "
  4140       S INQUOTE =0
  4141       S LASTCHA R=""
  4142       S STRLEN= $L(TMP)
  4143       F I=1:1:S TRLEN D
  4144       . S CHAR= $E(TMP,I,I )
  4145       . I CHAR= """" S INQ UOTE='INQU OTE
  4146       . I ((CHA R=",")&('I NQUOTE))!( I=STRLEN)  D
  4147       . . I (I= STRLEN)&'( CHAR="""")  S TOKEN=T OKEN_CHAR
  4148       . . I $L( RES)>0 S R ES=RES_"^"
  4149       . . S RES =RES_TOKEN
  4150       . . S TOK EN=""
  4151       . I INQUO TE&'(CHAR= """") S TO KEN=TOKEN_ CHAR
  4152       . I ('INQ UOTE)&'("  ,"""[CHAR)  S TOKEN=T OKEN_CHAR
  4153       . I (INQU OTE)&((CHA R="""")&(L ASTCHAR="" "")) S TOK EN=TOKEN_C HAR
  4154       . S LASTC HAR=CHAR
  4155       Q RES
  4156      GETGNAME(S TR) ; Prov ided with  a global r eference a s a string  return th e global n ame
  4157       N TMP
  4158       I $L(STR, "(")=0 Q S TR
  4159       Q $P(STR, "(",1)
  4160      EXPTIME(LI FETIME) ;  For a give n lifetime  in millis econds cal culate an  appropiate  expiry ti me in $h f ormat, pas s -1 for n on expirin g
  4161       N NOW,DAY ,TIME,LIFE SEC,MAXTIM E
  4162       I LIFETIM E<0 Q "999 999,0"
  4163       S NOW=$H
  4164       S DAY=$P( NOW,",",1)
  4165       S TIME=$P (NOW,",",2 )
  4166       S LIFESEC =LIFETIME\ 1000
  4167       S MAXTIME =60*60*24
  4168       S DAY=DAY +(LIFESEC\ MAXTIME)
  4169       S TIME=TI ME+(LIFESE C#MAXTIME)
  4170       Q DAY_"," _TIME
  4171      EXPGONE(HV ALUE) ; Ch eck if an  expirty ti me (in $H  format) ha s already  passed
  4172       N NOW,DAY ,TIME,TEST DAY,TESTTI ME,RES
  4173       S NOW=$H
  4174       S DAY=$P( NOW,",",1)
  4175       S TIME=$P (NOW,",",2 )
  4176       S TESTDAY =$P(HVALUE ,",",1)
  4177       S TESTTIM E=$P(HVALU E,",",2)
  4178       S RES=0
  4179       IF TESTDA Y<DAY S RE S=1
  4180       IF (TESTD AY=DAY)&(T ESTTIME<TI ME) S RES= 1
  4181       Q RES
  4182      DATANODE(G LOBAL,KEY, KEYTYPE,SU BKEY) ; Fi nd data gl obal for g iven subsc ript and s ubkey
  4183       N REF,KSU B,SKDNODE, SKCOUNT,FO UND
  4184       S REF=$$D ATAGLOB(GL OBAL)
  4185       S KSUB=$$ KEYSUBS(KE Y)
  4186       S REF=REF _KSUB_","" "_KEYTYPE_ """"
  4187       I $L($G(S UBKEY))&(K EYTYPE="SU BKEYS") D
  4188       . S SKDNO DE=REF_")"
  4189       . S SKCOU NT=""
  4190       . S FOUND =0
  4191       . F  S SK COUNT=$O(@ SKDNODE@(S KCOUNT),-1 ) Q:((SKCO UNT="")!(F OUND=1))   D
  4192       . . I $D( @SKDNODE@( SKCOUNT,SU BKEY)) D
  4193       . . . S R EF=REF_"," _SKCOUNT_" ,"""_SUBKE Y_""""
  4194       . . . S F OUND=1
  4195       S REF=REF _")"
  4196       Q REF
  4197      IDXNODE(GL OBAL,IDXNA ME,KEY,IDX ENTRY,IDXC OUNT) ; Fi nd index n ode
  4198       N REF,KSU B,HAVEIDX
  4199       S REF=$$I DXGLOB(GLO BAL,IDXNAM E)
  4200       S KSUB=$$ KEYSUBS(KE Y)
  4201       S HAVEIDX =$L($G(IDX COUNT))>0
  4202       I HAVEIDX  S REF=REF _""""_IDXE NTRY_"""," _KSUB_","_ IDXCOUNT_" )"
  4203       I 'HAVEID X S REF=RE F_""""_IDX ENTRY_""", "_KSUB_")"
  4204       Q REF
  4205      KEYSUBS(KE Y) ; Parse  Key subsc ripts as p assed from  JS code i n ^ delimi ted list f ormat
  4206       N SUBI,SU BS
  4207       S SUBS=""
  4208       F SUBI=1: 1:$L(KEY," ^") D
  4209       . S SUBS= SUBS_""""_ $P(KEY,"^" ,SUBI)_""" ,"
  4210       Q $E(SUBS ,1,$L(SUBS )-1)
  4211      DATAGLOB(G LOBAL) ; C onstruct b ase of dat a global
  4212       N REF,PAR
  4213       S PAR=$$P ARGLOB(GLO BAL)
  4214       S REF=PAR _"""DATA"" ,"
  4215       Q REF
  4216      IDXGLOB(GL OBAL,IDXNA ME) ; Cons truct base  of index  global
  4217       N REF,PAR
  4218       S PAR=$$P ARGLOB(GLO BAL)
  4219       S REF=PAR _"""IDX"", """_IDXNAM E_""","
  4220       Q REF
  4221      IDXBASE(GL OBAL,IDXNA ME) ; Refe rence to p arent inde x node
  4222        N REF
  4223        S REF=$$ IDXGLOB(GL OBAL,IDXNA ME)
  4224        S REF=$E (REF,1,$L( REF)-1)_") "
  4225        Q REF
  4226      TIMENODE(G LOBAL,TIME ) ; Refere nce to a t ime node b elow the b ase expiry  index nod e
  4227        N REF
  4228        S REF=$$ IDXGLOB(GL OBAL,"EXPI RY")
  4229        S REF=RE F_""""_TIM E_""")"
  4230        Q REF
  4231      IVALNODE(G LOBAL,INDE X,IVAL) ;  Reference  to a time  node below  the base  expiry ind ex node
  4232        N REF
  4233        S REF=$$ IDXGLOB(GL OBAL,INDEX )
  4234        S REF=RE F_""""_IVA L_""")"
  4235        Q REF
  4236      METAGLOB(G LOBAL) ; C onstruct b ase of met a global
  4237        N REF,PA R
  4238        S PAR=$$ PARGLOB(GL OBAL)
  4239        S REF=PA R_"""META" ","
  4240        Q REF
  4241      SKNODE(GLO BAL) ; Ref erence to  subkey met a node
  4242        N REF
  4243        S REF=$$ METAGLOB(G LOBAL)
  4244        S REF=RE F_"""SUBKE Y"")"
  4245        Q REF
  4246      REAPNODE(G LOBAL) ; R eference t o next rea p node
  4247        N REF
  4248        S REF=$$ METAGLOB(G LOBAL)
  4249        S REF=RE F_"""REAP" ")"
  4250        Q REF
  4251       ;Produce  partial gl obal refer ence of th e form ^X( "S1","S2",
  4252      PARGLOB(GL OBAL) ; Co nstruct th e parent p art of glo bal (from  value in V SA server  config)
  4253        N POINTE R,GNAME,SU BS,SUBI
  4254        S GNAME= "^"_$P(GLO BAL,"|",1)
  4255        S SUBS=$ P(GLOBAL," |",2)
  4256        S POINTE R=GNAME_"( "
  4257        F SUBI=1 :1:$L(SUBS ,",") D
  4258        . S POIN TER=POINTE R_""""_$P( SUBS,",",S UBI)_""","
  4259        Q POINTE R
  4260      FILEMAN(GL OBAL) ; Up date filem an details  for cache  global no de
  4261       ; Bail if  this is n ot a VistA  system
  4262       Q:'$D(^RO UTINE("DIL F"))
  4263       N ROOTNOD E,CRDATE,K EEPDATE,IN ITDONE,GNA ME,GSUBS,S UB
  4264       S ROOTNOD E=$$PARGLO B(GLOBAL)_ ")"
  4265       S GNAME=$ $GETGNAME( ROOTNODE)
  4266       S GSUBS=$ $GETSUBS(R OOTNODE)
  4267       S SUB=$P( GSUBS,"^", 1)
  4268       S ROOTNOD E=GNAME_"( """_SUB_"" ",0)"
  4269       S INITDON E=$D(@ROOT NODE)
  4270       I 'INITDO NE D DT^DI LF("T","N" ,.CRDATE)
  4271       I INITDON E S CRDATE =$P(@ROOTN ODE,"^",2)
  4272       D DT^DILF ("T","N+36 5",.KEEPDA TE)
  4273       S @ROOTNO DE=KEEPDAT E_"^"_CRDA TE_"^VistA  Persisten t State St ore: DO NO T Delete w hile Vists .JS is run ning"
  4274       Q
  4275      ]]>
  4276     </Routine>
  4277    
  4278    
  4279     <Routine 
  4280      name="XSAP XPUB" 
  4281      type="INT"  
  4282      languagemo de="0" 
  4283      timestamp= "64189,487 55"
  4284     >
  4285      <![CDATA[
  4286      XSAPXPUB ; DAL/BNT -  VistA Serv ices Assem bler Publi c Function s;1/27/201 6
  4287       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 3 5
  4288       ;
  4289       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  4290       ;
  4291       ; Externa l Referenc es           DBIA#
  4292       ; ------- ---------- --           -----
  4293       Q
  4294       ;
  4295       ;-------- ---------- ---------- - Publishe d APIs --- ---------- ---------- --------
  4296       ;
  4297       ;          Refer to  ^XSAPXDn f or documen tation of  these Func tions
  4298       ;                    and the ex pected inp ut and out put
  4299       ;
  4300       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4301       ; VistA S ervices As sembler In ternal Fun ctions
  4302       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4303       ;
  4304      UPD1701(SO URCE,TARGE T) ; Add,  Update or  Delete rec ords from  the XSA DE FINITIONS  file #17.0 1
  4305       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4306       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4307       Q $$UPD17 01^XSAPXL1 (.SOURCE,. TARGET)
  4308       ;
  4309      EXISTS(TAR GET) ; Ret urns 1 if  TARGET exi sts, other wise 0
  4310       Q $S($D(@ TARGET):1, 1:0)
  4311       ;
  4312      SITENAME(S OURCE,TARG ET) ; Get  site names  for liste d site ids
  4313       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4314       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4315       Q $$SITEN AME^XSAPXI NS(.SOURCE ,.TARGET)
  4316       ;
  4317       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4318       ; FileMan  DBS Speci fic Functi ons
  4319       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4320       ;
  4321      GETS(SOURC E,TARGET)  ;
  4322       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4323       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4324       Q $$GETS^ XSAPXL1(.S OURCE,.TAR GET)
  4325       ;
  4326      LIST(SOURC E,TARGET)  ;
  4327       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4328       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4329       Q $$LIST^ XSAPXL1(.S OURCE,.TAR GET)
  4330       ;
  4331       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4332       ; Clinica l Reconcil iation Ser vices
  4333       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4334       ;
  4335      GETPTFL(SO URCE,TARGE T) ;
  4336       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4337       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4338       Q $$GETPT FL^XSAPXCR S(.SOURCE, .TARGET)
  4339       ;
  4340       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4341       ; Access  Control an d IAM Serv ices
  4342       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4343       ;
  4344      LOGIN(SOUR CE,TARGET)  ;
  4345       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4346       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4347       Q $$LOGIN ^XSAPXACC( .SOURCE,.T ARGET)
  4348       ;
  4349      IAMAU(SOUR CE,TARGET)  ; IAM Add  User
  4350       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4351       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4352       Q $$IAMAU ^XSAPXIAM( .SOURCE,.T ARGET)
  4353       ;
  4354      IAMEU(SOUR CE,TARGET)  ; IAM Edi t User
  4355       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4356       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4357       Q $$IAMEU ^XSAPXIAM( .SOURCE,.T ARGET)
  4358       ;
  4359      IAMDU(SOUR CE,TARGET)  ; IAM Dis play User
  4360       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4361       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4362       Q $$IAMDU ^XSAPXIAM( .SOURCE,.T ARGET)
  4363       ;
  4364      IAMFU(SOUR CE,TARGET)  ; IAM Fin d User
  4365       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4366       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4367       Q $$IAMFU ^XSAPXIAM( .SOURCE,.T ARGET)
  4368       ;
  4369      IAMRU(SOUR CE,TARGET)  ; IAM Rea ctivate Us er
  4370       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4371       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4372       Q $$IAMRU ^XSAPXIAM( .SOURCE,.T ARGET)
  4373       ;
  4374      IAMTU(SOUR CE,TARGET)  ; IAM Ter minate Use r
  4375       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4376       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4377       Q $$IAMTU ^XSAPXIAM( .SOURCE,.T ARGET)
  4378       ;
  4379       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4380       ; Remote  Procedure  Call (RPC)  Services
  4381       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4382       ;
  4383      RPCMETA(SO URCE,TARGE T) ;
  4384       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4385       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4386       Q $$RPCME TA^XSAPXL1 (.SOURCE,. TARGET)
  4387       ;
  4388      RPC(SOURCE ,TARGET) ;
  4389       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4390       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4391       Q $$RPC^X SAPXRPC(.S OURCE,.TAR GET)
  4392       ;
  4393       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4394       ; Externa l (Non-VSA ) Function  Call Serv ices
  4395       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4396       ;
  4397      FUNCTION(S OURCE,TARG ET) ;
  4398       N XSAERR, RESULTS,XS ASYM,XSASY MGR,XSASYM ID
  4399       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4400       Q $$FUNCT ION^XSAPXL 1(.SOURCE, TARGET)
  4401       ;
  4402       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4403       ; VISTA S erver Pers istent Sta te (PS) Ca che servic es
  4404       ; ------- ---------- ---------- ---------- ---------- ---------- ---------- -----
  4405       ;
  4406      PSINIT(SOU RCE,TARGET ) ;
  4407       N XSAERR, RESULTS,XS ASYM
  4408       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4409       Q $$INIT^ XSAPXPSS(. SOURCE,.TA RGET)
  4410       ;
  4411      PSSAVE(SOU RCE,TARGET ) ;
  4412       N XSAERR, RESULTS,XS ASYM
  4413       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4414       Q $$SAVE^ XSAPXPSS(. SOURCE,.TA RGET)
  4415       ;
  4416      PSLOAD(SOU RCE,TARGET ) ;
  4417       N XSAERR, RESULTS,XS ASYM
  4418       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4419       Q $$LOAD^ XSAPXPSS(. SOURCE,.TA RGET)
  4420       ;
  4421      PSDELETE(S OURCE,TARG ET) ;
  4422       N XSAERR, RESULTS,XS ASYM
  4423       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4424       Q $$DELET E^XSAPXPSS (.SOURCE,. TARGET)
  4425       ;
  4426      PSREAP(SOU RCE,TARGET ) ;
  4427       N XSAERR, RESULTS,XS ASYM
  4428       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4429       Q $$REAP^ XSAPXPSS(. SOURCE,.TA RGET)
  4430       ;
  4431      PSTOUCH(SO URCE,TARGE T) ;
  4432       N XSAERR, RESULTS,XS ASYM
  4433       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4434       Q $$TOUCH ^XSAPXPSS( .SOURCE,.T ARGET)
  4435       ;
  4436      PSADDSK(SO URCE,TARGE T) ;
  4437       N XSAERR, RESULTS,XS ASYM
  4438       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4439       Q $$ADDSK EY^XSAPXPS S(.SOURCE, .TARGET)
  4440       ;
  4441      PSRDIDX(SO URCE,TARGE T) ;
  4442       N XSAERR, RESULTS,XS ASYM
  4443       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4444       Q $$READI DX^XSAPXPS S(.SOURCE, .TARGET)
  4445       ;
  4446      PSFILTER(S OURCE,TARG ET) ;
  4447       N XSAERR, RESULTS,XS ASYM
  4448       D INIT^XS APXUTL(.SO URCE,.TARG ET)
  4449       Q $$FILTE R^XSAPXPSS (.SOURCE,. TARGET)
  4450       ;
  4451      ]]>
  4452     </Routine>
  4453    
  4454    
  4455     <Routine 
  4456      name="XSAP XRPC" 
  4457      type="INT"  
  4458      languagemo de="0" 
  4459      timestamp= "64140,489 52.327079"
  4460     >
  4461      <![CDATA[
  4462      XSAPXRPC ; DAL/BNT -  VistA Serv ices Assem bler RPC W rapping Fu nctions;1/ 27/2016
  4463       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 3 5
  4464       ;
  4465       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  4466       ;
  4467       ; Externa l Referenc es           DBIA#
  4468       ; ------- ---------- --           -----
  4469       ; CRCONTX T^XWBSEC                4053
  4470       Q
  4471       ;
  4472       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  4473       ;
  4474      RPC(SOURCE ,TARGET) ;
  4475       N DX,DY,R PC0,RPCIEN ,TAG,ROU
  4476       N XSAR,XS ASEC,XSAWR AP,XSAPTYP E,XRTN,XSA RA
  4477       N XSAVER, XSADATA,XS ASYSJ,XSAN AME,XQMES
  4478       ; input v alidation
  4479       S XSANAME =$G(@SOURC E@("RPC NA ME"))
  4480       I XSANAME ="" D  Q $ $RESULT^XS APXUTL()
  4481       . D ERROR ^XSAPXERR( 182001,"[N o RPC]","" ,"")
  4482       ;
  4483       ; This sh ouldn't ha ppen with  session st ate
  4484       I $G(DUZ) ="" S DUZ= $G(@SOURCE @("DUZ"))  I DUZ="" D   Q $$RESU LT^XSAPXUT L()
  4485       . D ERROR ^XSAPXERR( 182301,"[I nvalid Use r ID]","", "")
  4486       ;
  4487       ;
  4488       I $D(^XWB (8994,"B", $G(XSANAME )))=0 D  Q  $$RESULT^ XSAPXUTL()
  4489       . D ERROR ^XSAPXERR( 182002,XSA NAME,XSANA ME,"")
  4490       ;
  4491       I $D(^XWB (8994,"B", XSANAME))= 10 S RPCIE N=+$O(^XWB (8994,"B", XSANAME,"" ))
  4492       ;
  4493       ; -- get  zero node
  4494       S RPC0=$G (^XWB(8994 ,RPCIEN,0) )
  4495       ;
  4496       ; -- make  sure ther e is data  on node
  4497       I RPC0=""  D  Q $$RE SULT^XSAPX UTL()
  4498       . D ERROR ^XSAPXERR( 182003,XSA NAME,XSANA ME,"")
  4499       ;
  4500       ; -- make  sure x-re f is not c orrupt and  found the  wrong ent ry
  4501       I XSANAME '=$P(RPC0, U) D  Q $$ RESULT^XSA PXUTL()
  4502       . N PARAM S S PARAMS (1)=XSANAM E,PARAMS(2 )=$P(RPC0, U)
  4503       . D ERROR ^XSAPXERR( 182008,XSA NAME,.PARA MS,"")
  4504       ;
  4505       ; -- chec k inactive  flag
  4506       I $P(RPC0 ,U,6)=1!($ P(RPC0,U,6 )=2) D  Q  $$RESULT^X SAPXUTL()
  4507       . D ERROR ^XSAPXERR( 182004,XSA NAME,XSANA ME,"")
  4508       ;
  4509       ; -- if n ot already  performed , check ve rsion, env ironment a nd set re- auth check  flag
  4510       ;
  4511       ; -- reau thenticati on checks
  4512       ; -- reau thenticate  user base d on type  (i.e. DUZ, AV,VPID,CC OW,APPPROX Y)
  4513       ; -- if a pplication  proxy use r, check i f allowed  to run RPC
  4514       ;
  4515       ; -- set  context
  4516       D CRCONTX T^XWBSEC(. XSASEC,$G( @SOURCE@(" RPC CONTEX T")))
  4517       I '+XSASE C D  Q $$R ESULT^XSAP XUTL()
  4518       . N PARAM S S PARAMS (1)=$G(XQM ES)
  4519       . D ERROR ^XSAPXERR( 182005,XSA NAME,.PARA MS,"")
  4520       ;
  4521       ; -- chec k if appro priate con text creat ed
  4522       ;
  4523       ;
  4524       ; -- setu p info nee ded for RP C executio n
  4525       S TAG=$P( RPC0,U,2)
  4526       S ROU=$P( RPC0,U,3)
  4527       S XSAPTYP E=$P(RPC0, U,4)
  4528       S XSAWRAP =$P(RPC0,U ,8)
  4529       ;
  4530       ; -- setu p timeout  info
  4531       S XSADATA ("XSA","TI MED OUT")= 0
  4532       S XSADATA ("XSA","ST ART")=$H
  4533       ;
  4534       ; Parse t he PARAMS  global and  build par ams for me thod signa ture
  4535       D GETPARM S^XSAPXUTL (.SOURCE,R OU,.XSADAT A)
  4536       ;
  4537       ; -- Impl ement RPC  Versioning  later
  4538       ;
  4539       ; -- buil d method s ignature
  4540       D ROUTINE ^XSAPXUTL( TAG,ROU,$G (XSADATA(R OU,"PARAMS ")),.XSAR)
  4541       ;
  4542       ; -- chec k for RPC  processing  timeout
  4543       ;
  4544       ; -- Make  sure ther e are no e rrors befo re continu ing
  4545       Q:'$G(XSA ERR) $$RES ULT^XSAPXU TL()
  4546       ;
  4547       ; -- SET  results
  4548       D SETRESG L(.XSAR)
  4549       ;
  4550       Q $$RESUL T^XSAPXUTL ()
  4551       ;
  4552      SETRESGL(X SAR) ; --  Process RP C data and  set in re sults glob al
  4553       ;
  4554       N I,T,D
  4555       ; -- sing le value
  4556       I XSAPTYP E=1 S XSAR =$G(XSAR)  S @TARGET@ ("results" ,"result") =XSAR
  4557       ; -- tabl e delimite d by CR+LF
  4558       I XSAPTYP E=2 D  Q
  4559       . S I=""  F  S I=$O( XSAR(I)) Q :I=""  S @ TARGET@("r esults",I) =XSAR(I)
  4560       ; -- word  processin g
  4561       I XSAPTYP E=3 D  Q
  4562       . S I=""  F  S I=$O( XSAR(I)) Q :I=""  S @ TARGET@("r esults",I) =$G(XSAR(I ))
  4563       ; -- glob al array
  4564       I XSAPTYP E=4 D  Q
  4565       . I $E($G (XSAR))'=" ^" Q
  4566       . M @TARG ET@("resul ts")=@XSAR
  4567       . I $D(@X SAR) K @XS AR
  4568       ; -- glob al instanc e
  4569       I XSAPTYP E=5 D  Q
  4570       . I $E($G (XSAR))'=" ^" Q
  4571       . S @TARG ET@("resul ts","resul t")=@XSAR
  4572       ; -- vari able lengt h records  only good  up to 255  char)
  4573       I XSAPTYP E=6 D
  4574       . S I=""  F  S I=$O( XSAR(I)) Q :I=""  S @ TARGET@("r esults",I) =$C($L(XSA R(I))),@TA RGET@("res ults",I)=X SAR(I)
  4575       Q
  4576      ]]>
  4577     </Routine>
  4578    
  4579    
  4580     <Routine 
  4581      name="XSAP XT" 
  4582      type="INT"  
  4583      languagemo de="0" 
  4584      timestamp= "64057,637 12"
  4585     >
  4586      <![CDATA[
  4587      XSAPXT ;DA L/BNT - Vi stA Servic es Assembl er Tester  Functions; 1/27/2016
  4588       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 4 8
  4589       ;
  4590       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  4591       ;
  4592       Q
  4593       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  4594       ;
  4595       ;   The f unctions i n this rou tine are f or testing  purposes  only
  4596       ;
  4597      SET(RESULT ,XSAVAL) ;  Test RPC  to set the  XSAVAR va riable to  the value  in XSAVAL
  4598       S XSAVAR= $S(XSAVAL] "":XSAVAL, 1:"VistA S ervices As sembler te st RPC")
  4599       S RESULT= 1
  4600       Q
  4601       ;
  4602      GET(RESULT ) ; Test R PC to set  the RESULT  to XSAVAR  that was  set in pre vious RPC  call
  4603       S RESULT= $G(XSAVAR)
  4604       Q
  4605      ]]>
  4606     </Routine>
  4607    
  4608    
  4609     <Routine 
  4610      name="XSAP XUTL" 
  4611      type="INT"  
  4612      languagemo de="0" 
  4613      timestamp= "64182,368 15"
  4614     >
  4615      <![CDATA[
  4616      XSAPXUTL ; DAL/BNT -  FileMan Wr apper Util ity Functi ons;1/27/2 016
  4617       ;;1.0;VIS TA SERVICE S ASSEMBLE R;****;Oct ober 1, 20 15;Build 3 5
  4618       ;
  4619       ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  4620       ;This rou tine uses  a SACC Exe mption to  section 2. 4.5.2 (use  of exclus ive KILL)
  4621       ; The INI T routine  label cont ains the o nly use of  exclusive  kill.
  4622       ;
  4623       ;
  4624       ; Externa l Referenc es           DBIA#
  4625       ; ------- ---------- --           -----
  4626       ; DOLRO^% ZOSV                    3883
  4627       ; FIELD^D ID                      2052
  4628       ; FILE^DI D                       2052
  4629       ; $$VFIEL D^DILFD                 2055
  4630       ; $$VFILE ^DILFD                  2055
  4631       Q
  4632       ;
  4633       ;-------- - Supporte d Methods  for extern al applica tion use w ith VSA -- --------
  4634       ;
  4635      INIT(SOURC E,TARGET)  ; Initiali ze Common  VSA Variab les
  4636       ;Clear sy mbol table  of all bu t values f rom this c all
  4637       ; The fol lowing cal l is subje ct to a SA CC exempti on for sec tion 2.4.5 .2
  4638       ; This ca ll is nece ssary to e nsure that  later sym bol table  restores
  4639       ;  are no t inhibite d by exist ing local  variables
  4640       ;  This c all also e nsures tha t an exist ing sessio n is not i ncorrectly  used to m ake a call .
  4641       K (XSAERR ,RESULTS,X SASYM,XSAS YMGR,XSASY MID,SOURCE ,TARGET)
  4642       N E,STATE GBL
  4643       ;Load sym bol table  for this s ession
  4644       S XSASYMG R=$G(@SOUR CE@("XSASY MGR"))
  4645       S XSASYMI D=$G(@SOUR CE@("XSASY MID"))
  4646       I $L(XSAS YMGR)&$L(X SASYMID) D
  4647       . S STATE GBL=$$DATA NODE^XSAPX PSS(XSASYM GR,XSASYMI D,"SUBKEYS ","SYMBOL_ TABLE")
  4648       . I $D(@S TATEGBL) D  SYMLOAD(S TATEGBL)
  4649       S $ET="S  E=$$ERR^XS APXERR(.TA RGET)"
  4650       ; All Pub lic functi ons return  XSAERR.
  4651       ; A value  of 1 = Su ccessful c all with r esults in  the TARGET  array
  4652       ; A value  of 0 = Er ror occurr ed somewhe re with de tails in t he ERROR g lobal
  4653       S XSAERR= 1
  4654       ; This sh ould only  be necessa ry if sess ion state  is not mai ntained
  4655       I $G(U)=" " S U="^"
  4656       I TARGET' =SOURCE K  @TARGET
  4657       I $G(@SOU RCE@("XSAS YM"))=1 S  XSASYM=1 D
  4658       . N CNT,D ,I,T S I=$ G(SOURCE)  Q:I=""  S  T=$E(I,1,$ L(I)-1)
  4659       . F  S I= $Q(@I) Q:I =""!(I'[T)   D
  4660       . . S NOD E=$P(I,T,2 ),NODE=$P( NODE,",",2 ,999),NODE =$TR(NODE, ")",""),NO DE=$TR(NOD E,"""","")
  4661       . . Q:$P( NODE,",",1 )["input"
  4662       . . S @TA RGET@("inp ut",NODE)= @I
  4663       S RESULTS =$NA(^TMP( $J,"XSA"," TMP","RESU LTS")) K @ RESULTS
  4664       Q
  4665       ;
  4666      INITPARM(P ARAM) ; In itialize I nput Param eters to e mpty strin g if null
  4667       S @PARAM= $G(@SOURCE @(PARAM))
  4668       I ($G(@PA RAM)="null ")!($G(@PA RAM)="") S  @PARAM=""
  4669       Q
  4670       ;
  4671      RESULT() ;  This is t he primary  function  to call to  complete  a VSA serv ice call
  4672       N STATEGB L
  4673       D CLEANUP
  4674       I +$G(XSA SYM) D SAV ESYM^XSAPX UTL($TR(TA RGET,")"," ,")_"""sym bolTable"" "_",")
  4675       I $L($G(X SASYMGR))& $L($G(XSAS YMID)) D
  4676       . S STATE GBL=$$CRSK NODE^XSAPX PSS(XSASYM GR,XSASYMI D,"SYMBOL_ TABLE")
  4677       . K RESUL TS,XSASYM, XSASYMGR,X SASYMID,SO URCE,TARGE T
  4678       . D SYMSA VE(STATEGB L)
  4679       Q XSAERR
  4680       ;
  4681      CONVERT(IN ) ; Conver t to camel Case
  4682       N I,UP,LO W,OTHIN,OT HOUT,OUT,X
  4683       S UP="ABC DEFGHIJKLM NOPQRSTUVW XYZ"
  4684       S LOW="ab cdefghijkl mnopqrstuv wxyz"
  4685       S OTHIN=" /-&()*.?"
  4686       S OTHOUT= "________"
  4687       S OUT=""
  4688       F I=1:1:$ L(IN," ")  S X=$P(IN, " ",I) D
  4689       . I I=1 S  OUT=OUT_$ TR(X,UP,LO W) Q
  4690       . S OUT=O UT_$TR($E( X,1),"*"," _")_$TR($E (X,2,$L(X) ),UP_OTHIN ,LOW_OTHOU T)
  4691       Q OUT
  4692       ;
  4693      GETFILE(FI LE) ; Retu rn the Fil e Name fro m the file  number
  4694       N RSLT
  4695       S RSLT=""  D FILE^DI D(FILE,"", "NAME","RS LT")
  4696       Q RSLT("N AME")
  4697       ;
  4698      GETFLD(FIL E,FIELD) ;  Return th e Field Na me for a f ile
  4699       N RSLT
  4700       S RSLT=""  D FIELD^D ID(FILE,FI ELD,"","LA BEL","RSLT ")
  4701       Q $G(RSLT ("LABEL"))
  4702       ;
  4703      BLDERROR(C ODE,TEXT,A CTOR) ; Bu ild a gene ric Error  code and t ext into t he TARGET  array
  4704       S @RESULT S@("DIERR" ,1)=CODE
  4705       S @RESULT S@("DIERR" ,1,"TEXT", 1)=TEXT
  4706       D ERROR(R ESULTS,ACT OR)
  4707       Q
  4708       ;
  4709       ;-------- - Private  Methods us ed only by  VISTA SER VICE ASSEM BLER ----- -----
  4710       ;
  4711      GETS(RESUL TS,TARGET)  ;
  4712       ; Parse R ESULTS of  GETS^DIQ a nd convert  to camelC ase output  in the TA RGET array
  4713       N CNT,FIL E,PFILE,RE VIENS,FLDN AME,IENS,F IELD,WPFLD ,FNAME,RSL T
  4714       S CNT=0
  4715       S FILE=""  F  S FILE =$O(@RESUL TS@(FILE))  Q:FILE=""   D
  4716       . ; Incre ment File/ Sub-File c ounter
  4717       . S CNT=C NT+1
  4718       . ; Get t he Primary  File name
  4719       . I CNT=1  S FNAME=$ $CONVERT($ $GETFILE(F ILE)) D BL DFILE(FILE ,TARGET)
  4720       . ; Get t he Sub-Fil e name(s)  from the . 01 field o f the Sub- File and i ndicate th e Primary  file proce ssing is c omplete
  4721       . I CNT>1  S FNAME=$ $CONVERT($ $GETFLD(FI LE,.01))
  4722       . Q:FNAME =""
  4723       . S IENS= "" F  S IE NS=$O(@RES ULTS@(FILE ,IENS)) Q: IENS=""  D
  4724       . . ; Rev erse the o rder of th e IENS
  4725       . . S REV IENS=$$REV ERSE(IENS)
  4726       . . ; Get  the Field  Name
  4727       . . S FIE LD="" F  S  FIELD=$O( @RESULTS@( FILE,IENS, FIELD)) Q: FIELD=""   D
  4728       . . . ; C onvert fie ld name to  camelCase
  4729       . . . S F LDNAME=$$C ONVERT(FIE LD)
  4730       . . . S W PFLD="" F   S WPFLD=$ O(@RESULTS @(FILE,IEN S,FIELD,WP FLD)) Q:WP FLD=""  D
  4731       . . . . ;  Don't inc lude the W ord Proces sing Inter nal/Extern al values  from the R ESULTS arr ay
  4732       . . . . Q :@RESULTS@ (FILE,IENS ,FIELD,WPF LD)[$P(RES ULTS,",")
  4733       . . . . I  WPFLD'="E " S @TARGE T@("result s",REVIENS ,FNAME,FLD NAME,$S(WP FLD="I":"i nternalVal ue",1:WPFL D))=@RESUL TS@(FILE,I ENS,FIELD, WPFLD) Q
  4734       . . . . S  @TARGET@( "results", REVIENS,FN AME,FLDNAM E)=@RESULT S@(FILE,IE NS,FIELD,W PFLD)
  4735       Q
  4736       ;
  4737      LIST(FILE, RESULTS,TA RGET) ;
  4738       ; Parse R ESULTS of  LIST^DIC a nd convert  to camelC ase output  in the TA RGET array
  4739       N ID,IEN, NODE,VALUE ,MAP,RSLT, FNAME,HDR, I,ELEMENT
  4740       S FNAME=$ $CONVERT($ $GETFILE(F ILE))
  4741       ; Set the  File info  in Target  array
  4742       D BLDFILE (FILE,TARG ET)
  4743       ; Get the  Header No de data el ement
  4744       F I=1:1:$ L(@RESULTS @("DILIST" ,0),U) S H DR=$P(@RES ULTS@("DIL IST",0),U, I) Q:HDR=" "  D
  4745       . S @TARG ET@("resul ts","heade r",$S(I=1: "numberFou nd",I=2:"m axRequeste d",I=3:"mo reFound",1 :"resultsF lags"))=$S (I=3:$S(+H DR:"true", 1:"false") ,1:HDR)
  4746       ; Get the  MAP for t he data el ements
  4747       S MAP=@RE SULTS@("DI LIST",0,"M AP")
  4748       S ID=0 F   S ID=$O(@ RESULTS@(" DILIST",ID )) Q:'ID   D
  4749       . N I F I =1:1:$L(@R ESULTS@("D ILIST",ID, 0),U) S VA LUE=$P(@RE SULTS@("DI LIST",ID,0 ),U,I) Q:V ALUE=""  D
  4750       . . ; Set  the subsc ript node  to either  the ID or  the name o f the fiel d
  4751       . . S NOD E=$S(I=1:" id",1:$$CO NVERT($$GE TFLD(FILE, $P(MAP,U,I ))))
  4752       . . Q:NOD E=""
  4753       . . S @TA RGET@("res ults",FNAM E,ID,NODE) =VALUE
  4754       Q $$RESUL T()
  4755       ;
  4756      BLDFILE(FI LE,TARGET)  ; Build t he top lev el File da ta in the  TARGET arr ay
  4757       S @TARGET @("results ","fileNum ber")=FILE
  4758       S @TARGET @("results ","fileNam e")=$$GETF ILE(FILE)
  4759       Q
  4760       ;
  4761      REVERSE(IN ) ; Revers e the IENS  so that F ile IEN is  before an y Sub-File  IEN
  4762       N I,OUT,C
  4763       S C=","
  4764       S OUT=""  F I=($L(IN ,C)-1):-1: 1 S OUT=OU T_$P(IN,C, I)_C
  4765       Q OUT
  4766       ;
  4767      ERROR(ERRR ES,ACTOR)  ; Return a  list of E rror Codes  from GETS ^DIQ and r eturn the  Target arr ay
  4768       D ERROR^X SAPXERR(@E RRRES@("DI ERR",1),AC TOR,"",@ER RRES@("DIE RR",1,"TEX T",1))
  4769       Q
  4770       ;
  4771      ROUTINE(EN TRY,ROUTIN E,PARAMS,R ES) ; Buil d a Method  signature  with para meters and  execute i t
  4772       N METHSIG ,MSIG
  4773       S MSIG=$$ MTHDSIG(RO UTINE,ENTR Y)
  4774       I MSIG=""  D BLDERRO R(1,"Metho d Signatur e "_ENTRY_ "^"_ROUTIN E_" does n ot exist." ,"ROUTINE^ XSAPXUTL")  Q
  4775       I $G(PARA MS)]"" S M ETHSIG=ENT RY_"^"_ROU TINE_"(.RE S,"_$G(PAR AMS)_")" D  @METHSIG  Q
  4776       ; Need to  handle th e case for  no input  params
  4777       S METHSIG =ENTRY_"^" _ROUTINE_" (.RES)" D  @METHSIG
  4778       Q
  4779       ;
  4780      CLEANUP ;  Destroy Co mmon Varia bles on Ex it
  4781       I $G(RESU LTS)]"" K  @RESULTS
  4782       Q
  4783       ;
  4784      VFILE(FILE ,TARGET) ;  Verify a  file
  4785       ; Input:  FILE = Fil e number
  4786       ;         TARGET = T arget arra y to retur n error da ta
  4787       ; Output:  0 if vali d
  4788       ;
  4789       I FILE=""  D BLDERRO R(1,"Missi ng FILE pa rameter"," VFILE^XSAP XUTL") Q X SAERR
  4790       I '$$VFIL E^DILFD(FI LE) D BLDE RROR(1,"Fi le "_FILE_ " does not  exist","V FILE^XSAPX UTL")
  4791       Q XSAERR
  4792       ;
  4793      VFIELD(FIL E,FIELD,CO DES,TARGET ) ; Verify  that FIEL D is valid
  4794       ; Input:  FILE  = Fi le number
  4795       ;         FIELD = Fi eld List
  4796       ;         CODES = Li st of allo wable Fiel d Codes, i f any
  4797       ;         TARGET = T arget arra y to retur n error da ta
  4798       ; Output:  0 if vali d
  4799       N FLD,ERR ,I S FLD=" ",ERR=0
  4800       F I=1:1:$ L(FIELD,"; ") S FLD=$ P(FIELD,"; ",I) Q:FLD =""  D  Q: +ERR
  4801       . ; If th is field i s in the l ist of all owable cod es don't t hrow error
  4802       . I FLD[C ODES Q
  4803       . ; Verif y beginnin g and endi ng range o f fields
  4804       . I FLD[" :" N FLDRN G,X,J S FL DRNG=FLD,X ="" F J=1: 1:$L(FLDRN G,":") S X =$P(FLDRNG ,":",J) Q: (X="")!(+E RR)  D  Q
  4805       . . I '$$ VFIELD^DIL FD(FILE,X)  S ERR=1
  4806       . I '$$VF IELD^DILFD (FILE,FLD)  S ERR=1
  4807       I ERR D B LDERROR(2, "Field "_F LD_" is no t a valid  field in F ile "_FILE _".","VFIE LD^XSAPXUT L")
  4808       Q XSAERR
  4809       ;
  4810      VFLAGS(FLA GS,INPUT,T ARGET) ; V erify that  the Flags  are valid
  4811       ; Input:  FLAGS = Al lowable fl ags
  4812       ;         INPUT = Fl ags passed  into API
  4813       ;         TARGET = T arget arra y to retur n error da ta
  4814       ; Output:  0 if vali d
  4815       N I,X
  4816       F I=1:1:$ L(INPUT) S  X=$E(INPU T,I) I FLA GS'[X D  Q
  4817       . D BLDER ROR(3,"The  Flag "_X_ " does not  match all owable Fla gs "_FLAGS _".","VFLA GS^XSAPXUT L")
  4818       Q XSAERR
  4819       ;
  4820      GETPARMS(S OURCE,DOMA IN,XSADATA ) ; Get th e paramete rs
  4821       S:DOMAIN= "" DOMAIN= "XSA"
  4822       S XSADATA (DOMAIN,"P ARAMS")=""
  4823       N XAR,TMP XAR,X,TYPE  S (X,TYPE )=""
  4824       F  S X=$O (@SOURCE@( "PARAMS",X )) Q:X=""   D
  4825       . S TYPE= $O(@SOURCE @("PARAMS" ,X,0))
  4826       . I TYPE= "LITERAL"  S $P(XSADA TA(DOMAIN, "PARAMS"), "^",X)=""" "_@SOURCE@ ("PARAMS", X,TYPE)_"" "" Q
  4827       . ; Must  be a List  type
  4828       . I TYPE= "LIST" D
  4829       . . ; Cle ar out the  input var iable arra ys before  setting it  with glob al data
  4830       . . S XAR ="" F  S X AR=$O(@SOU RCE@("PARA MS",X,TYPE ,XAR)) Q:X AR=""  D
  4831       . . . S T MPXAR=$P(X AR,"(") K  @TMPXAR
  4832       . . ; Now  build the  input arr ay variabl es with da ta from th e SOURCE g lobal
  4833       . . S XAR ="" F  S X AR=$O(@SOU RCE@("PARA MS",X,TYPE ,XAR)) Q:X AR=""  D
  4834       . . . S @ XAR=@SOURC E@("PARAMS ",X,TYPE,X AR)
  4835       . . . ; G et Local A rray data
  4836       . . . S $ P(XSADATA( DOMAIN,"PA RAMS"),"^" ,X)="."_$P (XAR,"(")
  4837       ; Convert  the "^" t o a comma  to separat e the para meter list .
  4838       S XSADATA (DOMAIN,"P ARAMS")=$T R(XSADATA( DOMAIN,"PA RAMS"),"^" ,",")
  4839       Q
  4840       ;
  4841      MTHDSIG(RT N,TAG) ; L oad a rout ine and re turn the M ethod Sign ature
  4842       N X,MSIG, DIF,XCNP S  MSIG=""
  4843       S X=RTN,X CNP=0,DIF= "^UTILITY( "_$J_",RTN ," K ^UTIL ITY($J,RTN )
  4844       X ^%ZOSF( "TEST") Q: '$T MSIG
  4845       X ^%ZOSF( "LOAD") S  ^UTILITY($ J,RTN,0)=X CNP-1
  4846       I '$D(^UT ILITY($J,R TN,0)) Q M SIG
  4847       N X S X=1  F  S X=$O (^UTILITY( $J,RTN,X))  Q:X=""  D
  4848       . Q:$E(^U TILITY($J, RTN,X,0),1 )=""
  4849       . Q:$E(^U TILITY($J, RTN,X,0),1 ,$L(TAG))' =TAG
  4850       . ; If TA G matches,  make sure  the next  char is '( ' to allow  for match ing entry  with addit ional text
  4851       . Q:$E(^U TILITY($J, RTN,X,0),$ L(TAG)+1)' ="("
  4852       . S MSIG= ^UTILITY($ J,RTN,X,0)
  4853       Q MSIG
  4854       ;
  4855      SAVESYM(X)  ; Save th e Symbol T able to gl obal X
  4856       D DOLRO^% ZOSV
  4857       M @TARGET @("input") =SOURCE
  4858       Q
  4859       ;
  4860      AUTH() ;Fu nction. Ch eck if cal ling routi ne is auth orized
  4861       ; This fu nction doe s not addr ess the se curity iss ue of user  authentic ation, so  a restrict ion is pla ced on the  calling r outine.
  4862       ; ZEXCEPT : XTMUNIT, XTU ;set f or unit te sting
  4863       N X,Z
  4864       S X=$ST($ ST-2,"PLAC E"),Z=$P(X ,"^",2),X= "^"_$P(Z,"  ")
  4865       I $E(X,1, 4)="^XSA"  Q 1           ;Author ized Kerne l VSA acce ss
  4866       I $D(XTMU NIT)!$G(XT U) Q 1       ;Kernel  Unit Testi ng
  4867       Q 0
  4868      SYMSAVE(BA SE) ; Save  symbol ta ble to tar get global
  4869       N Y
  4870       K @BASE
  4871       S Y="%"
  4872       F  S Y=$O (@Y) Q:Y=" "  D
  4873       . I '(Y=" Y"!Y="BASE ") D
  4874       . . M @BA SE@(Y)=@Y
  4875       Q
  4876      SYMLOAD(BA SE) ; Load  Symbol ta ble from t arget glob al
  4877       N Y
  4878       S Y=""
  4879       F  S Y=$O (@BASE@(Y) ) Q:Y=""   D
  4880       . I '$D(@ Y) D
  4881       . . M @Y= @BASE@(Y)
  4882       Q
  4883      ]]>
  4884     </Routine>
  4885    
  4886         
  4887     <Global>
  4888              
  4889      <Node>
  4890       <Sub>
  4891        ^XSA
  4892       </Sub>
  4893                    
  4894       <Node>
  4895        <Sub>
  4896         17.01
  4897        </Sub>
  4898                         
  4899        <Node>
  4900         <Sub>
  4901          0
  4902         </Sub>
  4903                              
  4904         <Data>
  4905          XSA DEFINI TIONS^17.0 1^14^13
  4906         </Data>
  4907                          
  4908        </Node>
  4909                         
  4910        <Node>
  4911         <Sub>
  4912          1
  4913         </Sub>
  4914                              
  4915         <Node>
  4916          <Sub>
  4917           0
  4918          </Sub>
  4919                                    
  4920          <Data>
  4921           VPS GET AL LERGIES
  4922          </Data>
  4923                               
  4924         </Node>
  4925                              
  4926         <Node>
  4927          <Sub>
  4928           DEF
  4929          </Sub>
  4930                                    
  4931          <Node>
  4932           <Sub>
  4933            0
  4934           </Sub>
  4935                                         
  4936           <Data>
  4937            ^^90^90^31 60406
  4938           </Data>
  4939                                     
  4940          </Node>
  4941                                    
  4942          <Node>
  4943           <Sub>
  4944            1
  4945           </Sub>
  4946                                         
  4947           <Node>
  4948            <Sub>
  4949             0
  4950            </Sub>
  4951                                               
  4952            <Data>
  4953             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  4954            </Data>
  4955                                          
  4956           </Node>
  4957                                     
  4958          </Node>
  4959                                    
  4960          <Node>
  4961           <Sub>
  4962            2
  4963           </Sub>
  4964                                         
  4965           <Node>
  4966            <Sub>
  4967             0
  4968            </Sub>
  4969                                               
  4970            <Data>
  4971             &quot;info &quot;: {
  4972            </Data>
  4973                                          
  4974           </Node>
  4975                                     
  4976          </Node>
  4977                                    
  4978          <Node>
  4979           <Sub>
  4980            3
  4981           </Sub>
  4982                                         
  4983           <Node>
  4984            <Sub>
  4985             0
  4986            </Sub>
  4987                                               
  4988            <Data>
  4989             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  4990            </Data>
  4991                                          
  4992           </Node>
  4993                                     
  4994          </Node>
  4995                                    
  4996          <Node>
  4997           <Sub>
  4998            4
  4999           </Sub>
  5000                                         
  5001           <Node>
  5002            <Sub>
  5003             0
  5004            </Sub>
  5005                                               
  5006            <Data>
  5007             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  5008            </Data>
  5009                                          
  5010           </Node>
  5011                                     
  5012          </Node>
  5013                                    
  5014          <Node>
  5015           <Sub>
  5016            5
  5017           </Sub>
  5018                                         
  5019           <Node>
  5020            <Sub>
  5021             0
  5022            </Sub>
  5023                                               
  5024            <Data>
  5025             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  5026            </Data>
  5027                                          
  5028           </Node>
  5029                                     
  5030          </Node>
  5031                                    
  5032          <Node>
  5033           <Sub>
  5034            6
  5035           </Sub>
  5036                                         
  5037           <Node>
  5038            <Sub>
  5039             0
  5040            </Sub>
  5041                                               
  5042            <Data>
  5043             },
  5044            </Data>
  5045                                          
  5046           </Node>
  5047                                     
  5048          </Node>
  5049                                    
  5050          <Node>
  5051           <Sub>
  5052            7
  5053           </Sub>
  5054                                         
  5055           <Node>
  5056            <Sub>
  5057             0
  5058            </Sub>
  5059                                               
  5060            <Data>
  5061             &quot;sche mes&quot;:  [
  5062            </Data>
  5063                                          
  5064           </Node>
  5065                                     
  5066          </Node>
  5067                                    
  5068          <Node>
  5069           <Sub>
  5070            8
  5071           </Sub>
  5072                                         
  5073           <Node>
  5074            <Sub>
  5075             0
  5076            </Sub>
  5077                                               
  5078            <Data>
  5079             &quot;http s&quot;
  5080            </Data>
  5081                                          
  5082           </Node>
  5083                                     
  5084          </Node>
  5085                                    
  5086          <Node>
  5087           <Sub>
  5088            9
  5089           </Sub>
  5090                                         
  5091           <Node>
  5092            <Sub>
  5093             0
  5094            </Sub>
  5095                                               
  5096            <Data>
  5097             ],
  5098            </Data>
  5099                                          
  5100           </Node>
  5101                                     
  5102          </Node>
  5103                                    
  5104          <Node>
  5105           <Sub>
  5106            10
  5107           </Sub>
  5108                                         
  5109           <Node>
  5110            <Sub>
  5111             0
  5112            </Sub>
  5113                                               
  5114            <Data>
  5115             &quot;base Path&quot; : &quot;/r pcs&quot;,
  5116            </Data>
  5117                                          
  5118           </Node>
  5119                                     
  5120          </Node>
  5121                                    
  5122          <Node>
  5123           <Sub>
  5124            11
  5125           </Sub>
  5126                                         
  5127           <Node>
  5128            <Sub>
  5129             0
  5130            </Sub>
  5131                                               
  5132            <Data>
  5133             &quot;prod uces&quot; : [
  5134            </Data>
  5135                                          
  5136           </Node>
  5137                                     
  5138          </Node>
  5139                                    
  5140          <Node>
  5141           <Sub>
  5142            12
  5143           </Sub>
  5144                                         
  5145           <Node>
  5146            <Sub>
  5147             0
  5148            </Sub>
  5149                                               
  5150            <Data>
  5151             &quot;appl ication/js on&quot;
  5152            </Data>
  5153                                          
  5154           </Node>
  5155                                     
  5156          </Node>
  5157                                    
  5158          <Node>
  5159           <Sub>
  5160            13
  5161           </Sub>
  5162                                         
  5163           <Node>
  5164            <Sub>
  5165             0
  5166            </Sub>
  5167                                               
  5168            <Data>
  5169             ],
  5170            </Data>
  5171                                          
  5172           </Node>
  5173                                     
  5174          </Node>
  5175                                    
  5176          <Node>
  5177           <Sub>
  5178            14
  5179           </Sub>
  5180                                         
  5181           <Node>
  5182            <Sub>
  5183             0
  5184            </Sub>
  5185                                               
  5186            <Data>
  5187             &quot;path s&quot;: {
  5188            </Data>
  5189                                          
  5190           </Node>
  5191                                     
  5192          </Node>
  5193                                    
  5194          <Node>
  5195           <Sub>
  5196            15
  5197           </Sub>
  5198                                         
  5199           <Node>
  5200            <Sub>
  5201             0
  5202            </Sub>
  5203                                               
  5204            <Data>
  5205             &quot;/by- name/vps%2 0get%20all ergies/cal l&quot;: {
  5206            </Data>
  5207                                          
  5208           </Node>
  5209                                     
  5210          </Node>
  5211                                    
  5212          <Node>
  5213           <Sub>
  5214            16
  5215           </Sub>
  5216                                         
  5217           <Node>
  5218            <Sub>
  5219             0
  5220            </Sub>
  5221                                               
  5222            <Data>
  5223             &quot;post &quot;: {
  5224            </Data>
  5225                                          
  5226           </Node>
  5227                                     
  5228          </Node>
  5229                                    
  5230          <Node>
  5231           <Sub>
  5232            17
  5233           </Sub>
  5234                                         
  5235           <Node>
  5236            <Sub>
  5237             0
  5238            </Sub>
  5239                                               
  5240            <Data>
  5241             &quot;summ ary&quot;:  &quot;GET ^VPSALL01( .tRESULT,V PSDFN)&quo t;,
  5242            </Data>
  5243                                          
  5244           </Node>
  5245                                     
  5246          </Node>
  5247                                    
  5248          <Node>
  5249           <Sub>
  5250            18
  5251           </Sub>
  5252                                         
  5253           <Node>
  5254            <Sub>
  5255             0
  5256            </Sub>
  5257                                               
  5258            <Data>
  5259             <![CDATA[" descriptio n": "Calle d by the V etlink Kio sk system.    VPS GET  ALLEGIES  retrieves  patient al lergy data  stored in  an entry  or entries  in the PA TIENT ALLE RGIES file  (120.8).   The retri eved data  is made av ailable to  the Vetli nk system.  ",]]>
  5260            </Data>
  5261                                          
  5262           </Node>
  5263                                     
  5264          </Node>
  5265                                    
  5266          <Node>
  5267           <Sub>
  5268            19
  5269           </Sub>
  5270                                         
  5271           <Node>
  5272            <Sub>
  5273             0
  5274            </Sub>
  5275                                               
  5276            <Data>
  5277             &quot;prod uces&quot; : [
  5278            </Data>
  5279                                          
  5280           </Node>
  5281                                     
  5282          </Node>
  5283                                    
  5284          <Node>
  5285           <Sub>
  5286            20
  5287           </Sub>
  5288                                         
  5289           <Node>
  5290            <Sub>
  5291             0
  5292            </Sub>
  5293                                               
  5294            <Data>
  5295             &quot;appl ication/js on&quot;
  5296            </Data>
  5297                                          
  5298           </Node>
  5299                                     
  5300          </Node>
  5301                                    
  5302          <Node>
  5303           <Sub>
  5304            21
  5305           </Sub>
  5306                                         
  5307           <Node>
  5308            <Sub>
  5309             0
  5310            </Sub>
  5311                                               
  5312            <Data>
  5313             ],
  5314            </Data>
  5315                                          
  5316           </Node>
  5317                                     
  5318          </Node>
  5319                                    
  5320          <Node>
  5321           <Sub>
  5322            22
  5323           </Sub>
  5324                                         
  5325           <Node>
  5326            <Sub>
  5327             0
  5328            </Sub>
  5329                                               
  5330            <Data>
  5331             &quot;para meters&quo t;: [
  5332            </Data>
  5333                                          
  5334           </Node>
  5335                                     
  5336          </Node>
  5337                                    
  5338          <Node>
  5339           <Sub>
  5340            23
  5341           </Sub>
  5342                                         
  5343           <Node>
  5344            <Sub>
  5345             0
  5346            </Sub>
  5347                                               
  5348            <Data>
  5349             {
  5350            </Data>
  5351                                          
  5352           </Node>
  5353                                     
  5354          </Node>
  5355                                    
  5356          <Node>
  5357           <Sub>
  5358            24
  5359           </Sub>
  5360                                         
  5361           <Node>
  5362            <Sub>
  5363             0
  5364            </Sub>
  5365                                               
  5366            <Data>
  5367             &quot;name &quot;: &q uot;VPSDFN &quot;,
  5368            </Data>
  5369                                          
  5370           </Node>
  5371                                     
  5372          </Node>
  5373                                    
  5374          <Node>
  5375           <Sub>
  5376            25
  5377           </Sub>
  5378                                         
  5379           <Node>
  5380            <Sub>
  5381             0
  5382            </Sub>
  5383                                               
  5384            <Data>
  5385             <![CDATA[" descriptio n": "The p atient DFN  is used t o collect  the variou s allergy  related fi elds store d in the A dverse Rea ction Trac king packa ge. [Filem an Type: L ITERAL]",] ]>
  5386            </Data>
  5387                                          
  5388           </Node>
  5389                                     
  5390          </Node>
  5391                                    
  5392          <Node>
  5393           <Sub>
  5394            26
  5395           </Sub>
  5396                                         
  5397           <Node>
  5398            <Sub>
  5399             0
  5400            </Sub>
  5401                                               
  5402            <Data>
  5403             &quot;in&q uot;: &quo t;formData &quot;,
  5404            </Data>
  5405                                          
  5406           </Node>
  5407                                     
  5408          </Node>
  5409                                    
  5410          <Node>
  5411           <Sub>
  5412            27
  5413           </Sub>
  5414                                         
  5415           <Node>
  5416            <Sub>
  5417             0
  5418            </Sub>
  5419                                               
  5420            <Data>
  5421             &quot;type &quot;: &q uot;string &quot;,
  5422            </Data>
  5423                                          
  5424           </Node>
  5425                                     
  5426          </Node>
  5427                                    
  5428          <Node>
  5429           <Sub>
  5430            28
  5431           </Sub>
  5432                                         
  5433           <Node>
  5434            <Sub>
  5435             0
  5436            </Sub>
  5437                                               
  5438            <Data>
  5439             &quot;requ ired&quot; : true
  5440            </Data>
  5441                                          
  5442           </Node>
  5443                                     
  5444          </Node>
  5445                                    
  5446          <Node>
  5447           <Sub>
  5448            29
  5449           </Sub>
  5450                                         
  5451           <Node>
  5452            <Sub>
  5453             0
  5454            </Sub>
  5455                                               
  5456            <Data>
  5457             }
  5458            </Data>
  5459                                          
  5460           </Node>
  5461                                     
  5462          </Node>
  5463                                    
  5464          <Node>
  5465           <Sub>
  5466            30
  5467           </Sub>
  5468                                         
  5469           <Node>
  5470            <Sub>
  5471             0
  5472            </Sub>
  5473                                               
  5474            <Data>
  5475             ],
  5476            </Data>
  5477                                          
  5478           </Node>
  5479                                     
  5480          </Node>
  5481                                    
  5482          <Node>
  5483           <Sub>
  5484            31
  5485           </Sub>
  5486                                         
  5487           <Node>
  5488            <Sub>
  5489             0
  5490            </Sub>
  5491                                               
  5492            <Data>
  5493             &quot;tags &quot;: [
  5494            </Data>
  5495                                          
  5496           </Node>
  5497                                     
  5498          </Node>
  5499                                    
  5500          <Node>
  5501           <Sub>
  5502            32
  5503           </Sub>
  5504                                         
  5505           <Node>
  5506            <Sub>
  5507             0
  5508            </Sub>
  5509                                               
  5510            <Data>
  5511             &quot;RPCS &quot;,
  5512            </Data>
  5513                                          
  5514           </Node>
  5515                                     
  5516          </Node>
  5517                                    
  5518          <Node>
  5519           <Sub>
  5520            33
  5521           </Sub>
  5522                                         
  5523           <Node>
  5524            <Sub>
  5525             0
  5526            </Sub>
  5527                                               
  5528            <Data>
  5529             &quot;Rest ify&quot;
  5530            </Data>
  5531                                          
  5532           </Node>
  5533                                     
  5534          </Node>
  5535                                    
  5536          <Node>
  5537           <Sub>
  5538            34
  5539           </Sub>
  5540                                         
  5541           <Node>
  5542            <Sub>
  5543             0
  5544            </Sub>
  5545                                               
  5546            <Data>
  5547             ],
  5548            </Data>
  5549                                          
  5550           </Node>
  5551                                     
  5552          </Node>
  5553                                    
  5554          <Node>
  5555           <Sub>
  5556            35
  5557           </Sub>
  5558                                         
  5559           <Node>
  5560            <Sub>
  5561             0
  5562            </Sub>
  5563                                               
  5564            <Data>
  5565             &quot;resp onses&quot ;: {
  5566            </Data>
  5567                                          
  5568           </Node>
  5569                                     
  5570          </Node>
  5571                                    
  5572          <Node>
  5573           <Sub>
  5574            36
  5575           </Sub>
  5576                                         
  5577           <Node>
  5578            <Sub>
  5579             0
  5580            </Sub>
  5581                                               
  5582            <Data>
  5583             &quot;200& quot;: {
  5584            </Data>
  5585                                          
  5586           </Node>
  5587                                     
  5588          </Node>
  5589                                    
  5590          <Node>
  5591           <Sub>
  5592            37
  5593           </Sub>
  5594                                         
  5595           <Node>
  5596            <Sub>
  5597             0
  5598            </Sub>
  5599                                               
  5600            <Data>
  5601             <![CDATA[" descriptio n": "Data  taken from  an entry  or entries  stored in  the PATIE NT ALLERGI ES field i s defined  3.      ie ns are the  internal  entry numb ers at whi ch the all ergy recor d is store d.  This e lement can  have eith er the ent ry level i en for non -multiple  or it can  have both  the entry  level ien  and the su b-entry ie n.   It is  construct ed as \"su b-entry ie n, entry i en\"  for  data comin g from sub -files (mu ltiples)4.       fiel d number i s the nume ric field  reference  from where  the data  has been r etrieved5.        fie ld label i s the name  of the fi eld6.       data valu e  is the  data that  was retrie ved from t he fieldfi le (120.8)  are popul ated into  the local  array. Eac h element  in the sub scripted a rray is co nstructed  as:subscri ptedArray( n)= \"file  number^ie ns (sub-en try ien, i en)^field  number^fie ld label^d ata value\ "1.      w here n is  an increme ntal numbe r that act s as an in dex in the  array2.       file n umber is t he file or  sub-file  reference  from where  the ",]]>
  5602            </Data>
  5603                                          
  5604           </Node>
  5605                                     
  5606          </Node>
  5607                                    
  5608          <Node>
  5609           <Sub>
  5610            38
  5611           </Sub>
  5612                                         
  5613           <Node>
  5614            <Sub>
  5615             0
  5616            </Sub>
  5617                                               
  5618            <Data>
  5619             &quot;sche ma&quot;:  {
  5620            </Data>
  5621                                          
  5622           </Node>
  5623                                     
  5624          </Node>
  5625                                    
  5626          <Node>
  5627           <Sub>
  5628            39
  5629           </Sub>
  5630                                         
  5631           <Node>
  5632            <Sub>
  5633             0
  5634            </Sub>
  5635                                               
  5636            <Data>
  5637             &quot;$ref &quot;: &q uot;#/defi nitions/AR RAY&quot;
  5638            </Data>
  5639                                          
  5640           </Node>
  5641                                     
  5642          </Node>
  5643                                    
  5644          <Node>
  5645           <Sub>
  5646            40
  5647           </Sub>
  5648                                         
  5649           <Node>
  5650            <Sub>
  5651             0
  5652            </Sub>
  5653                                               
  5654            <Data>
  5655             }
  5656            </Data>
  5657                                          
  5658           </Node>
  5659                                     
  5660          </Node>
  5661                                    
  5662          <Node>
  5663           <Sub>
  5664            41
  5665           </Sub>
  5666                                         
  5667           <Node>
  5668            <Sub>
  5669             0
  5670            </Sub>
  5671                                               
  5672            <Data>
  5673             }
  5674            </Data>
  5675                                          
  5676           </Node>
  5677                                     
  5678          </Node>
  5679                                    
  5680          <Node>
  5681           <Sub>
  5682            42
  5683           </Sub>
  5684                                         
  5685           <Node>
  5686            <Sub>
  5687             0
  5688            </Sub>
  5689                                               
  5690            <Data>
  5691             }
  5692            </Data>
  5693                                          
  5694           </Node>
  5695                                     
  5696          </Node>
  5697                                    
  5698          <Node>
  5699           <Sub>
  5700            43
  5701           </Sub>
  5702                                         
  5703           <Node>
  5704            <Sub>
  5705             0
  5706            </Sub>
  5707                                               
  5708            <Data>
  5709             }
  5710            </Data>
  5711                                          
  5712           </Node>
  5713                                     
  5714          </Node>
  5715                                    
  5716          <Node>
  5717           <Sub>
  5718            44
  5719           </Sub>
  5720                                         
  5721           <Node>
  5722            <Sub>
  5723             0
  5724            </Sub>
  5725                                               
  5726            <Data>
  5727             }
  5728            </Data>
  5729                                          
  5730           </Node>
  5731                                     
  5732          </Node>
  5733                                    
  5734          <Node>
  5735           <Sub>
  5736            45
  5737           </Sub>
  5738                                         
  5739           <Node>
  5740            <Sub>
  5741             0
  5742            </Sub>
  5743                                               
  5744            <Data>
  5745             },
  5746            </Data>
  5747                                          
  5748           </Node>
  5749                                     
  5750          </Node>
  5751                                    
  5752          <Node>
  5753           <Sub>
  5754            46
  5755           </Sub>
  5756                                         
  5757           <Node>
  5758            <Sub>
  5759             0
  5760            </Sub>
  5761                                               
  5762            <Data>
  5763             &quot;defi nitions&qu ot;: {
  5764            </Data>
  5765                                          
  5766           </Node>
  5767                                     
  5768          </Node>
  5769                                    
  5770          <Node>
  5771           <Sub>
  5772            47
  5773           </Sub>
  5774                                         
  5775           <Node>
  5776            <Sub>
  5777             0
  5778            </Sub>
  5779                                               
  5780            <Data>
  5781             &quot;ARRA Y&quot;: {
  5782            </Data>
  5783                                          
  5784           </Node>
  5785                                     
  5786          </Node>
  5787                                    
  5788          <Node>
  5789           <Sub>
  5790            48
  5791           </Sub>
  5792                                         
  5793           <Node>
  5794            <Sub>
  5795             0
  5796            </Sub>
  5797                                               
  5798            <Data>
  5799             &quot;type &quot;: &q uot;object &quot;
  5800            </Data>
  5801                                          
  5802           </Node>
  5803                                     
  5804          </Node>
  5805                                    
  5806          <Node>
  5807           <Sub>
  5808            49
  5809           </Sub>
  5810                                         
  5811           <Node>
  5812            <Sub>
  5813             0
  5814            </Sub>
  5815                                               
  5816            <Data>
  5817             },
  5818            </Data>
  5819                                          
  5820           </Node>
  5821                                     
  5822          </Node>
  5823                                    
  5824          <Node>
  5825           <Sub>
  5826            50
  5827           </Sub>
  5828                                         
  5829           <Node>
  5830            <Sub>
  5831             0
  5832            </Sub>
  5833                                               
  5834            <Data>
  5835             &quot;GLOB AL_ARRAY&q uot;: {
  5836            </Data>
  5837                                          
  5838           </Node>
  5839                                     
  5840          </Node>
  5841                                    
  5842          <Node>
  5843           <Sub>
  5844            51
  5845           </Sub>
  5846                                         
  5847           <Node>
  5848            <Sub>
  5849             0
  5850            </Sub>
  5851                                               
  5852            <Data>
  5853             &quot;type &quot;: &q uot;object &quot;
  5854            </Data>
  5855                                          
  5856           </Node>
  5857                                     
  5858          </Node>
  5859                                    
  5860          <Node>
  5861           <Sub>
  5862            52
  5863           </Sub>
  5864                                         
  5865           <Node>
  5866            <Sub>
  5867             0
  5868            </Sub>
  5869                                               
  5870            <Data>
  5871             },
  5872            </Data>
  5873                                          
  5874           </Node>
  5875                                     
  5876          </Node>
  5877                                    
  5878          <Node>
  5879           <Sub>
  5880            53
  5881           </Sub>
  5882                                         
  5883           <Node>
  5884            <Sub>
  5885             0
  5886            </Sub>
  5887                                               
  5888            <Data>
  5889             &quot;SING LE_VALUE&q uot;: {
  5890            </Data>
  5891                                          
  5892           </Node>
  5893                                     
  5894          </Node>
  5895                                    
  5896          <Node>
  5897           <Sub>
  5898            54
  5899           </Sub>
  5900                                         
  5901           <Node>
  5902            <Sub>
  5903             0
  5904            </Sub>
  5905                                               
  5906            <Data>
  5907             &quot;type &quot;: &q uot;string &quot;
  5908            </Data>
  5909                                          
  5910           </Node>
  5911                                     
  5912          </Node>
  5913                                    
  5914          <Node>
  5915           <Sub>
  5916            55
  5917           </Sub>
  5918                                         
  5919           <Node>
  5920            <Sub>
  5921             0
  5922            </Sub>
  5923                                               
  5924            <Data>
  5925             },
  5926            </Data>
  5927                                          
  5928           </Node>
  5929                                     
  5930          </Node>
  5931                                    
  5932          <Node>
  5933           <Sub>
  5934            56
  5935           </Sub>
  5936                                         
  5937           <Node>
  5938            <Sub>
  5939             0
  5940            </Sub>
  5941                                               
  5942            <Data>
  5943             &quot;GLOB AL_INSTANC E&quot;: {
  5944            </Data>
  5945                                          
  5946           </Node>
  5947                                     
  5948          </Node>
  5949                                    
  5950          <Node>
  5951           <Sub>
  5952            57
  5953           </Sub>
  5954                                         
  5955           <Node>
  5956            <Sub>
  5957             0
  5958            </Sub>
  5959                                               
  5960            <Data>
  5961             &quot;type &quot;: &q uot;string &quot;
  5962            </Data>
  5963                                          
  5964           </Node>
  5965                                     
  5966          </Node>
  5967                                    
  5968          <Node>
  5969           <Sub>
  5970            58
  5971           </Sub>
  5972                                         
  5973           <Node>
  5974            <Sub>
  5975             0
  5976            </Sub>
  5977                                               
  5978            <Data>
  5979             },
  5980            </Data>
  5981                                          
  5982           </Node>
  5983                                     
  5984          </Node>
  5985                                    
  5986          <Node>
  5987           <Sub>
  5988            59
  5989           </Sub>
  5990                                         
  5991           <Node>
  5992            <Sub>
  5993             0
  5994            </Sub>
  5995                                               
  5996            <Data>
  5997             &quot;WORD _PROCESSIN G&quot;: {
  5998            </Data>
  5999                                          
  6000           </Node>
  6001                                     
  6002          </Node>
  6003                                    
  6004          <Node>
  6005           <Sub>
  6006            60
  6007           </Sub>
  6008                                         
  6009           <Node>
  6010            <Sub>
  6011             0
  6012            </Sub>
  6013                                               
  6014            <Data>
  6015             &quot;type &quot;: &q uot;object &quot;
  6016            </Data>
  6017                                          
  6018           </Node>
  6019                                     
  6020          </Node>
  6021                                    
  6022          <Node>
  6023           <Sub>
  6024            61
  6025           </Sub>
  6026                                         
  6027           <Node>
  6028            <Sub>
  6029             0
  6030            </Sub>
  6031                                               
  6032            <Data>
  6033             },
  6034            </Data>
  6035                                          
  6036           </Node>
  6037                                     
  6038          </Node>
  6039                                    
  6040          <Node>
  6041           <Sub>
  6042            62
  6043           </Sub>
  6044                                         
  6045           <Node>
  6046            <Sub>
  6047             0
  6048            </Sub>
  6049                                               
  6050            <Data>
  6051             &quot;Erro r&quot;: {
  6052            </Data>
  6053                                          
  6054           </Node>
  6055                                     
  6056          </Node>
  6057                                    
  6058          <Node>
  6059           <Sub>
  6060            63
  6061           </Sub>
  6062                                         
  6063           <Node>
  6064            <Sub>
  6065             0
  6066            </Sub>
  6067                                               
  6068            <Data>
  6069             &quot;prop erties&quo t;: {
  6070            </Data>
  6071                                          
  6072           </Node>
  6073                                     
  6074          </Node>
  6075                                    
  6076          <Node>
  6077           <Sub>
  6078            64
  6079           </Sub>
  6080                                         
  6081           <Node>
  6082            <Sub>
  6083             0
  6084            </Sub>
  6085                                               
  6086            <Data>
  6087             &quot;erro r&quot;: {
  6088            </Data>
  6089                                          
  6090           </Node>
  6091                                     
  6092          </Node>
  6093                                    
  6094          <Node>
  6095           <Sub>
  6096            65
  6097           </Sub>
  6098                                         
  6099           <Node>
  6100            <Sub>
  6101             0
  6102            </Sub>
  6103                                               
  6104            <Data>
  6105             &quot;type &quot;: &q uot;string &quot;,
  6106            </Data>
  6107                                          
  6108           </Node>
  6109                                     
  6110          </Node>
  6111                                    
  6112          <Node>
  6113           <Sub>
  6114            66
  6115           </Sub>
  6116                                         
  6117           <Node>
  6118            <Sub>
  6119             0
  6120            </Sub>
  6121                                               
  6122            <Data>
  6123             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  6124            </Data>
  6125                                          
  6126           </Node>
  6127                                     
  6128          </Node>
  6129                                    
  6130          <Node>
  6131           <Sub>
  6132            67
  6133           </Sub>
  6134                                         
  6135           <Node>
  6136            <Sub>
  6137             0
  6138            </Sub>
  6139                                               
  6140            <Data>
  6141             },
  6142            </Data>
  6143                                          
  6144           </Node>
  6145                                     
  6146          </Node>
  6147                                    
  6148          <Node>
  6149           <Sub>
  6150            68
  6151           </Sub>
  6152                                         
  6153           <Node>
  6154            <Sub>
  6155             0
  6156            </Sub>
  6157                                               
  6158            <Data>
  6159             &quot;data &quot;: {
  6160            </Data>
  6161                                          
  6162           </Node>
  6163                                     
  6164          </Node>
  6165                                    
  6166          <Node>
  6167           <Sub>
  6168            69
  6169           </Sub>
  6170                                         
  6171           <Node>
  6172            <Sub>
  6173             0
  6174            </Sub>
  6175                                               
  6176            <Data>
  6177             &quot;type &quot;: &q uot;object &quot;,
  6178            </Data>
  6179                                          
  6180           </Node>
  6181                                     
  6182          </Node>
  6183                                    
  6184          <Node>
  6185           <Sub>
  6186            70
  6187           </Sub>
  6188                                         
  6189           <Node>
  6190            <Sub>
  6191             0
  6192            </Sub>
  6193                                               
  6194            <Data>
  6195             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  6196            </Data>
  6197                                          
  6198           </Node>
  6199                                     
  6200          </Node>
  6201                                    
  6202          <Node>
  6203           <Sub>
  6204            71
  6205           </Sub>
  6206                                         
  6207           <Node>
  6208            <Sub>
  6209             0
  6210            </Sub>
  6211                                               
  6212            <Data>
  6213             }
  6214            </Data>
  6215                                          
  6216           </Node>
  6217                                     
  6218          </Node>
  6219                                    
  6220          <Node>
  6221           <Sub>
  6222            72
  6223           </Sub>
  6224                                         
  6225           <Node>
  6226            <Sub>
  6227             0
  6228            </Sub>
  6229                                               
  6230            <Data>
  6231             }
  6232            </Data>
  6233                                          
  6234           </Node>
  6235                                     
  6236          </Node>
  6237                                    
  6238          <Node>
  6239           <Sub>
  6240            73
  6241           </Sub>
  6242                                         
  6243           <Node>
  6244            <Sub>
  6245             0
  6246            </Sub>
  6247                                               
  6248            <Data>
  6249             },
  6250            </Data>
  6251                                          
  6252           </Node>
  6253                                     
  6254          </Node>
  6255                                    
  6256          <Node>
  6257           <Sub>
  6258            74
  6259           </Sub>
  6260                                         
  6261           <Node>
  6262            <Sub>
  6263             0
  6264            </Sub>
  6265                                               
  6266            <Data>
  6267             &quot;RpcI d&quot;: {
  6268            </Data>
  6269                                          
  6270           </Node>
  6271                                     
  6272          </Node>
  6273                                    
  6274          <Node>
  6275           <Sub>
  6276            75
  6277           </Sub>
  6278                                         
  6279           <Node>
  6280            <Sub>
  6281             0
  6282            </Sub>
  6283                                               
  6284            <Data>
  6285             &quot;prop erties&quo t;: {
  6286            </Data>
  6287                                          
  6288           </Node>
  6289                                     
  6290          </Node>
  6291                                    
  6292          <Node>
  6293           <Sub>
  6294            76
  6295           </Sub>
  6296                                         
  6297           <Node>
  6298            <Sub>
  6299             0
  6300            </Sub>
  6301                                               
  6302            <Data>
  6303             &quot;id&q uot;: {
  6304            </Data>
  6305                                          
  6306           </Node>
  6307                                     
  6308          </Node>
  6309                                    
  6310          <Node>
  6311           <Sub>
  6312            77
  6313           </Sub>
  6314                                         
  6315           <Node>
  6316            <Sub>
  6317             0
  6318            </Sub>
  6319                                               
  6320            <Data>
  6321             &quot;type &quot;: &q uot;intege r&quot;,
  6322            </Data>
  6323                                          
  6324           </Node>
  6325                                     
  6326          </Node>
  6327                                    
  6328          <Node>
  6329           <Sub>
  6330            78
  6331           </Sub>
  6332                                         
  6333           <Node>
  6334            <Sub>
  6335             0
  6336            </Sub>
  6337                                               
  6338            <Data>
  6339             &quot;form at&quot;:  &quot;int3 2&quot;,
  6340            </Data>
  6341                                          
  6342           </Node>
  6343                                     
  6344          </Node>
  6345                                    
  6346          <Node>
  6347           <Sub>
  6348            79
  6349           </Sub>
  6350                                         
  6351           <Node>
  6352            <Sub>
  6353             0
  6354            </Sub>
  6355                                               
  6356            <Data>
  6357             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  6358            </Data>
  6359                                          
  6360           </Node>
  6361                                     
  6362          </Node>
  6363                                    
  6364          <Node>
  6365           <Sub>
  6366            80
  6367           </Sub>
  6368                                         
  6369           <Node>
  6370            <Sub>
  6371             0
  6372            </Sub>
  6373                                               
  6374            <Data>
  6375             },
  6376            </Data>
  6377                                          
  6378           </Node>
  6379                                     
  6380          </Node>
  6381                                    
  6382          <Node>
  6383           <Sub>
  6384            81
  6385           </Sub>
  6386                                         
  6387           <Node>
  6388            <Sub>
  6389             0
  6390            </Sub>
  6391                                               
  6392            <Data>
  6393             &quot;name &quot;: {
  6394            </Data>
  6395                                          
  6396           </Node>
  6397                                     
  6398          </Node>
  6399                                    
  6400          <Node>
  6401           <Sub>
  6402            82
  6403           </Sub>
  6404                                         
  6405           <Node>
  6406            <Sub>
  6407             0
  6408            </Sub>
  6409                                               
  6410            <Data>
  6411             &quot;type &quot;: &q uot;string &quot;,
  6412            </Data>
  6413                                          
  6414           </Node>
  6415                                     
  6416          </Node>
  6417                                    
  6418          <Node>
  6419           <Sub>
  6420            83
  6421           </Sub>
  6422                                         
  6423           <Node>
  6424            <Sub>
  6425             0
  6426            </Sub>
  6427                                               
  6428            <Data>
  6429             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  6430            </Data>
  6431                                          
  6432           </Node>
  6433                                     
  6434          </Node>
  6435                                    
  6436          <Node>
  6437           <Sub>
  6438            84
  6439           </Sub>
  6440                                         
  6441           <Node>
  6442            <Sub>
  6443             0
  6444            </Sub>
  6445                                               
  6446            <Data>
  6447             }
  6448            </Data>
  6449                                          
  6450           </Node>
  6451                                     
  6452          </Node>
  6453                                    
  6454          <Node>
  6455           <Sub>
  6456            85
  6457           </Sub>
  6458                                         
  6459           <Node>
  6460            <Sub>
  6461             0
  6462            </Sub>
  6463                                               
  6464            <Data>
  6465             }
  6466            </Data>
  6467                                          
  6468           </Node>
  6469                                     
  6470          </Node>
  6471                                    
  6472          <Node>
  6473           <Sub>
  6474            86
  6475           </Sub>
  6476                                         
  6477           <Node>
  6478            <Sub>
  6479             0
  6480            </Sub>
  6481                                               
  6482            <Data>
  6483             },
  6484            </Data>
  6485                                          
  6486           </Node>
  6487                                     
  6488          </Node>
  6489                                    
  6490          <Node>
  6491           <Sub>
  6492            87
  6493           </Sub>
  6494                                         
  6495           <Node>
  6496            <Sub>
  6497             0
  6498            </Sub>
  6499                                               
  6500            <Data>
  6501             &quot;Swag gerDefinit ion&quot;:  {},
  6502            </Data>
  6503                                          
  6504           </Node>
  6505                                     
  6506          </Node>
  6507                                    
  6508          <Node>
  6509           <Sub>
  6510            88
  6511           </Sub>
  6512                                         
  6513           <Node>
  6514            <Sub>
  6515             0
  6516            </Sub>
  6517                                               
  6518            <Data>
  6519             &quot;Path &quot;: {}
  6520            </Data>
  6521                                          
  6522           </Node>
  6523                                     
  6524          </Node>
  6525                                    
  6526          <Node>
  6527           <Sub>
  6528            89
  6529           </Sub>
  6530                                         
  6531           <Node>
  6532            <Sub>
  6533             0
  6534            </Sub>
  6535                                               
  6536            <Data>
  6537             }
  6538            </Data>
  6539                                          
  6540           </Node>
  6541                                     
  6542          </Node>
  6543                                    
  6544          <Node>
  6545           <Sub>
  6546            90
  6547           </Sub>
  6548                                         
  6549           <Node>
  6550            <Sub>
  6551             0
  6552            </Sub>
  6553                                               
  6554            <Data>
  6555             }
  6556            </Data>
  6557                                          
  6558           </Node>
  6559                                     
  6560          </Node>
  6561                               
  6562         </Node>
  6563                          
  6564        </Node>
  6565                         
  6566        <Node>
  6567         <Sub>
  6568          2
  6569         </Sub>
  6570                              
  6571         <Node>
  6572          <Sub>
  6573           0
  6574          </Sub>
  6575                                    
  6576          <Data>
  6577           TIU CREATE  RECORD
  6578          </Data>
  6579                               
  6580         </Node>
  6581                              
  6582         <Node>
  6583          <Sub>
  6584           DEF
  6585          </Sub>
  6586                                    
  6587          <Node>
  6588           <Sub>
  6589            0
  6590           </Sub>
  6591                                         
  6592           <Data>
  6593            ^^146^146^ 3160408
  6594           </Data>
  6595                                     
  6596          </Node>
  6597                                    
  6598          <Node>
  6599           <Sub>
  6600            1
  6601           </Sub>
  6602                                         
  6603           <Node>
  6604            <Sub>
  6605             0
  6606            </Sub>
  6607                                               
  6608            <Data>
  6609             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  6610            </Data>
  6611                                          
  6612           </Node>
  6613                                     
  6614          </Node>
  6615                                    
  6616          <Node>
  6617           <Sub>
  6618            2
  6619           </Sub>
  6620                                         
  6621           <Node>
  6622            <Sub>
  6623             0
  6624            </Sub>
  6625                                               
  6626            <Data>
  6627             &quot;info &quot;: {
  6628            </Data>
  6629                                          
  6630           </Node>
  6631                                     
  6632          </Node>
  6633                                    
  6634          <Node>
  6635           <Sub>
  6636            3
  6637           </Sub>
  6638                                         
  6639           <Node>
  6640            <Sub>
  6641             0
  6642            </Sub>
  6643                                               
  6644            <Data>
  6645             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  6646            </Data>
  6647                                          
  6648           </Node>
  6649                                     
  6650          </Node>
  6651                                    
  6652          <Node>
  6653           <Sub>
  6654            4
  6655           </Sub>
  6656                                         
  6657           <Node>
  6658            <Sub>
  6659             0
  6660            </Sub>
  6661                                               
  6662            <Data>
  6663             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  6664            </Data>
  6665                                          
  6666           </Node>
  6667                                     
  6668          </Node>
  6669                                    
  6670          <Node>
  6671           <Sub>
  6672            5
  6673           </Sub>
  6674                                         
  6675           <Node>
  6676            <Sub>
  6677             0
  6678            </Sub>
  6679                                               
  6680            <Data>
  6681             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  6682            </Data>
  6683                                          
  6684           </Node>
  6685                                     
  6686          </Node>
  6687                                    
  6688          <Node>
  6689           <Sub>
  6690            6
  6691           </Sub>
  6692                                         
  6693           <Node>
  6694            <Sub>
  6695             0
  6696            </Sub>
  6697                                               
  6698            <Data>
  6699             },
  6700            </Data>
  6701                                          
  6702           </Node>
  6703                                     
  6704          </Node>
  6705                                    
  6706          <Node>
  6707           <Sub>
  6708            7
  6709           </Sub>
  6710                                         
  6711           <Node>
  6712            <Sub>
  6713             0
  6714            </Sub>
  6715                                               
  6716            <Data>
  6717             &quot;sche mes&quot;:  [
  6718            </Data>
  6719                                          
  6720           </Node>
  6721                                     
  6722          </Node>
  6723                                    
  6724          <Node>
  6725           <Sub>
  6726            8
  6727           </Sub>
  6728                                         
  6729           <Node>
  6730            <Sub>
  6731             0
  6732            </Sub>
  6733                                               
  6734            <Data>
  6735             &quot;http s&quot;
  6736            </Data>
  6737                                          
  6738           </Node>
  6739                                     
  6740          </Node>
  6741                                    
  6742          <Node>
  6743           <Sub>
  6744            9
  6745           </Sub>
  6746                                         
  6747           <Node>
  6748            <Sub>
  6749             0
  6750            </Sub>
  6751                                               
  6752            <Data>
  6753             ],
  6754            </Data>
  6755                                          
  6756           </Node>
  6757                                     
  6758          </Node>
  6759                                    
  6760          <Node>
  6761           <Sub>
  6762            10
  6763           </Sub>
  6764                                         
  6765           <Node>
  6766            <Sub>
  6767             0
  6768            </Sub>
  6769                                               
  6770            <Data>
  6771             &quot;base Path&quot; : &quot;/r pcs&quot;,
  6772            </Data>
  6773                                          
  6774           </Node>
  6775                                     
  6776          </Node>
  6777                                    
  6778          <Node>
  6779           <Sub>
  6780            11
  6781           </Sub>
  6782                                         
  6783           <Node>
  6784            <Sub>
  6785             0
  6786            </Sub>
  6787                                               
  6788            <Data>
  6789             &quot;prod uces&quot; : [
  6790            </Data>
  6791                                          
  6792           </Node>
  6793                                     
  6794          </Node>
  6795                                    
  6796          <Node>
  6797           <Sub>
  6798            12
  6799           </Sub>
  6800                                         
  6801           <Node>
  6802            <Sub>
  6803             0
  6804            </Sub>
  6805                                               
  6806            <Data>
  6807             &quot;appl ication/js on&quot;
  6808            </Data>
  6809                                          
  6810           </Node>
  6811                                     
  6812          </Node>
  6813                                    
  6814          <Node>
  6815           <Sub>
  6816            13
  6817           </Sub>
  6818                                         
  6819           <Node>
  6820            <Sub>
  6821             0
  6822            </Sub>
  6823                                               
  6824            <Data>
  6825             ],
  6826            </Data>
  6827                                          
  6828           </Node>
  6829                                     
  6830          </Node>
  6831                                    
  6832          <Node>
  6833           <Sub>
  6834            14
  6835           </Sub>
  6836                                         
  6837           <Node>
  6838            <Sub>
  6839             0
  6840            </Sub>
  6841                                               
  6842            <Data>
  6843             &quot;path s&quot;: {
  6844            </Data>
  6845                                          
  6846           </Node>
  6847                                     
  6848          </Node>
  6849                                    
  6850          <Node>
  6851           <Sub>
  6852            15
  6853           </Sub>
  6854                                         
  6855           <Node>
  6856            <Sub>
  6857             0
  6858            </Sub>
  6859                                               
  6860            <Data>
  6861             &quot;/by- name/tiu%2 0create%20 record/cal l&quot;: {
  6862            </Data>
  6863                                          
  6864           </Node>
  6865                                     
  6866          </Node>
  6867                                    
  6868          <Node>
  6869           <Sub>
  6870            16
  6871           </Sub>
  6872                                         
  6873           <Node>
  6874            <Sub>
  6875             0
  6876            </Sub>
  6877                                               
  6878            <Data>
  6879             &quot;post &quot;: {
  6880            </Data>
  6881                                          
  6882           </Node>
  6883                                     
  6884          </Node>
  6885                                    
  6886          <Node>
  6887           <Sub>
  6888            17
  6889           </Sub>
  6890                                         
  6891           <Node>
  6892            <Sub>
  6893             0
  6894            </Sub>
  6895                                               
  6896            <Data>
  6897             &quot;summ ary&quot;:  &quot;MAK E^TIUSRVP( .tRESULT,D FN,TITLE,V DT,VLOC,VS IT,TIUX,VS TR,SUPPRES S,NOASF)&q uot;,
  6898            </Data>
  6899                                          
  6900           </Node>
  6901                                     
  6902          </Node>
  6903                                    
  6904          <Node>
  6905           <Sub>
  6906            18
  6907           </Sub>
  6908                                         
  6909           <Node>
  6910            <Sub>
  6911             0
  6912            </Sub>
  6913                                               
  6914            <Data>
  6915             &quot;desc ription&qu ot;: &quot ;This remo te procedu re allows  the creati on of TIU  DOCUMENT r ecords.&qu ot;,
  6916            </Data>
  6917                                          
  6918           </Node>
  6919                                     
  6920          </Node>
  6921                                    
  6922          <Node>
  6923           <Sub>
  6924            19
  6925           </Sub>
  6926                                         
  6927           <Node>
  6928            <Sub>
  6929             0
  6930            </Sub>
  6931                                               
  6932            <Data>
  6933             &quot;prod uces&quot; : [
  6934            </Data>
  6935                                          
  6936           </Node>
  6937                                     
  6938          </Node>
  6939                                    
  6940          <Node>
  6941           <Sub>
  6942            20
  6943           </Sub>
  6944                                         
  6945           <Node>
  6946            <Sub>
  6947             0
  6948            </Sub>
  6949                                               
  6950            <Data>
  6951             &quot;appl ication/js on&quot;
  6952            </Data>
  6953                                          
  6954           </Node>
  6955                                     
  6956          </Node>
  6957                                    
  6958          <Node>
  6959           <Sub>
  6960            21
  6961           </Sub>
  6962                                         
  6963           <Node>
  6964            <Sub>
  6965             0
  6966            </Sub>
  6967                                               
  6968            <Data>
  6969             ],
  6970            </Data>
  6971                                          
  6972           </Node>
  6973                                     
  6974          </Node>
  6975                                    
  6976          <Node>
  6977           <Sub>
  6978            22
  6979           </Sub>
  6980                                         
  6981           <Node>
  6982            <Sub>
  6983             0
  6984            </Sub>
  6985                                               
  6986            <Data>
  6987             &quot;para meters&quo t;: [
  6988            </Data>
  6989                                          
  6990           </Node>
  6991                                     
  6992          </Node>
  6993                                    
  6994          <Node>
  6995           <Sub>
  6996            23
  6997           </Sub>
  6998                                         
  6999           <Node>
  7000            <Sub>
  7001             0
  7002            </Sub>
  7003                                               
  7004            <Data>
  7005             {
  7006            </Data>
  7007                                          
  7008           </Node>
  7009                                     
  7010          </Node>
  7011                                    
  7012          <Node>
  7013           <Sub>
  7014            24
  7015           </Sub>
  7016                                         
  7017           <Node>
  7018            <Sub>
  7019             0
  7020            </Sub>
  7021                                               
  7022            <Data>
  7023             &quot;name &quot;: &q uot;DFN&qu ot;,
  7024            </Data>
  7025                                          
  7026           </Node>
  7027                                     
  7028          </Node>
  7029                                    
  7030          <Node>
  7031           <Sub>
  7032            25
  7033           </Sub>
  7034                                         
  7035           <Node>
  7036            <Sub>
  7037             0
  7038            </Sub>
  7039                                               
  7040            <Data>
  7041             <![CDATA[" descriptio n": "This  REQUIRED P ARAMETER i s the poin ter to the  patient f ile. [File man Type:  LITERAL]", ]]>
  7042            </Data>
  7043                                          
  7044           </Node>
  7045                                     
  7046          </Node>
  7047                                    
  7048          <Node>
  7049           <Sub>
  7050            26
  7051           </Sub>
  7052                                         
  7053           <Node>
  7054            <Sub>
  7055             0
  7056            </Sub>
  7057                                               
  7058            <Data>
  7059             &quot;in&q uot;: &quo t;formData &quot;,
  7060            </Data>
  7061                                          
  7062           </Node>
  7063                                     
  7064          </Node>
  7065                                    
  7066          <Node>
  7067           <Sub>
  7068            27
  7069           </Sub>
  7070                                         
  7071           <Node>
  7072            <Sub>
  7073             0
  7074            </Sub>
  7075                                               
  7076            <Data>
  7077             &quot;type &quot;: &q uot;string &quot;,
  7078            </Data>
  7079                                          
  7080           </Node>
  7081                                     
  7082          </Node>
  7083                                    
  7084          <Node>
  7085           <Sub>
  7086            28
  7087           </Sub>
  7088                                         
  7089           <Node>
  7090            <Sub>
  7091             0
  7092            </Sub>
  7093                                               
  7094            <Data>
  7095             &quot;requ ired&quot; : true
  7096            </Data>
  7097                                          
  7098           </Node>
  7099                                     
  7100          </Node>
  7101                                    
  7102          <Node>
  7103           <Sub>
  7104            29
  7105           </Sub>
  7106                                         
  7107           <Node>
  7108            <Sub>
  7109             0
  7110            </Sub>
  7111                                               
  7112            <Data>
  7113             },
  7114            </Data>
  7115                                          
  7116           </Node>
  7117                                     
  7118          </Node>
  7119                                    
  7120          <Node>
  7121           <Sub>
  7122            30
  7123           </Sub>
  7124                                         
  7125           <Node>
  7126            <Sub>
  7127             0
  7128            </Sub>
  7129                                               
  7130            <Data>
  7131             {
  7132            </Data>
  7133                                          
  7134           </Node>
  7135                                     
  7136          </Node>
  7137                                    
  7138          <Node>
  7139           <Sub>
  7140            31
  7141           </Sub>
  7142                                         
  7143           <Node>
  7144            <Sub>
  7145             0
  7146            </Sub>
  7147                                               
  7148            <Data>
  7149             &quot;name &quot;: &q uot;TITLE& quot;,
  7150            </Data>
  7151                                          
  7152           </Node>
  7153                                     
  7154          </Node>
  7155                                    
  7156          <Node>
  7157           <Sub>
  7158            32
  7159           </Sub>
  7160                                         
  7161           <Node>
  7162            <Sub>
  7163             0
  7164            </Sub>
  7165                                               
  7166            <Data>
  7167             <![CDATA[" descriptio n": "This  is the poi nter to th e TIU DOCU MENT DEFIN ITION FILE  which ide ntifiesthe  TITLE of  the docume nt to be f iled. [Fil eman Type:  LITERAL]" ,]]>
  7168            </Data>
  7169                                          
  7170           </Node>
  7171                                     
  7172          </Node>
  7173                                    
  7174          <Node>
  7175           <Sub>
  7176            33
  7177           </Sub>
  7178                                         
  7179           <Node>
  7180            <Sub>
  7181             0
  7182            </Sub>
  7183                                               
  7184            <Data>
  7185             &quot;in&q uot;: &quo t;formData &quot;,
  7186            </Data>
  7187                                          
  7188           </Node>
  7189                                     
  7190          </Node>
  7191                                    
  7192          <Node>
  7193           <Sub>
  7194            34
  7195           </Sub>
  7196                                         
  7197           <Node>
  7198            <Sub>
  7199             0
  7200            </Sub>
  7201                                               
  7202            <Data>
  7203             &quot;type &quot;: &q uot;string &quot;,
  7204            </Data>
  7205                                          
  7206           </Node>
  7207                                     
  7208          </Node>
  7209                                    
  7210          <Node>
  7211           <Sub>
  7212            35
  7213           </Sub>
  7214                                         
  7215           <Node>
  7216            <Sub>
  7217             0
  7218            </Sub>
  7219                                               
  7220            <Data>
  7221             &quot;requ ired&quot; : true
  7222            </Data>
  7223                                          
  7224           </Node>
  7225                                     
  7226          </Node>
  7227                                    
  7228          <Node>
  7229           <Sub>
  7230            36
  7231           </Sub>
  7232                                         
  7233           <Node>
  7234            <Sub>
  7235             0
  7236            </Sub>
  7237                                               
  7238            <Data>
  7239             },
  7240            </Data>
  7241                                          
  7242           </Node>
  7243                                     
  7244          </Node>
  7245                                    
  7246          <Node>
  7247           <Sub>
  7248            37
  7249           </Sub>
  7250                                         
  7251           <Node>
  7252            <Sub>
  7253             0
  7254            </Sub>
  7255                                               
  7256            <Data>
  7257             {
  7258            </Data>
  7259                                          
  7260           </Node>
  7261                                     
  7262          </Node>
  7263                                    
  7264          <Node>
  7265           <Sub>
  7266            38
  7267           </Sub>
  7268                                         
  7269           <Node>
  7270            <Sub>
  7271             0
  7272            </Sub>
  7273                                               
  7274            <Data>
  7275             &quot;name &quot;: &q uot;VDT&qu ot;,
  7276            </Data>
  7277                                          
  7278           </Node>
  7279                                     
  7280          </Node>
  7281                                    
  7282          <Node>
  7283           <Sub>
  7284            39
  7285           </Sub>
  7286                                         
  7287           <Node>
  7288            <Sub>
  7289             0
  7290            </Sub>
  7291                                               
  7292            <Data>
  7293             <![CDATA[" descriptio n": "This  optional p arameter i s the Date /time of v isit.  If  the parame ter VSITis  present,  this will  be ignored .  Otherwi se, the RP C will att empt togen erate a ma tch with a  visit bas ed on DFN,  VDT, and  VLOC (visi tlocation) .  In the  event that  the RPC c annot gene rate such  a match, a  newEVENT- type Visit  will be c reated wit h the curr ent date/t ime. [File man Type:  LITERAL]", ]]>
  7294            </Data>
  7295                                          
  7296           </Node>
  7297                                     
  7298          </Node>
  7299                                    
  7300          <Node>
  7301           <Sub>
  7302            40
  7303           </Sub>
  7304                                         
  7305           <Node>
  7306            <Sub>
  7307             0
  7308            </Sub>
  7309                                               
  7310            <Data>
  7311             &quot;in&q uot;: &quo t;formData &quot;,
  7312            </Data>
  7313                                          
  7314           </Node>
  7315                                     
  7316          </Node>
  7317                                    
  7318          <Node>
  7319           <Sub>
  7320            41
  7321           </Sub>
  7322                                         
  7323           <Node>
  7324            <Sub>
  7325             0
  7326            </Sub>
  7327                                               
  7328            <Data>
  7329             &quot;type &quot;: &q uot;string &quot;,
  7330            </Data>
  7331                                          
  7332           </Node>
  7333                                     
  7334          </Node>
  7335                                    
  7336          <Node>
  7337           <Sub>
  7338            42
  7339           </Sub>
  7340                                         
  7341           <Node>
  7342            <Sub>
  7343             0
  7344            </Sub>
  7345                                               
  7346            <Data>
  7347             &quot;requ ired&quot; : false
  7348            </Data>
  7349                                          
  7350           </Node>
  7351                                     
  7352          </Node>
  7353                                    
  7354          <Node>
  7355           <Sub>
  7356            43
  7357           </Sub>
  7358                                         
  7359           <Node>
  7360            <Sub>
  7361             0
  7362            </Sub>
  7363                                               
  7364            <Data>
  7365             },
  7366            </Data>
  7367                                          
  7368           </Node>
  7369                                     
  7370          </Node>
  7371                                    
  7372          <Node>
  7373           <Sub>
  7374            44
  7375           </Sub>
  7376                                         
  7377           <Node>
  7378            <Sub>
  7379             0
  7380            </Sub>
  7381                                               
  7382            <Data>
  7383             {
  7384            </Data>
  7385                                          
  7386           </Node>
  7387                                     
  7388          </Node>
  7389                                    
  7390          <Node>
  7391           <Sub>
  7392            45
  7393           </Sub>
  7394                                         
  7395           <Node>
  7396            <Sub>
  7397             0
  7398            </Sub>
  7399                                               
  7400            <Data>
  7401             &quot;name &quot;: &q uot;VLOC&q uot;,
  7402            </Data>
  7403                                          
  7404           </Node>
  7405                                     
  7406          </Node>
  7407                                    
  7408          <Node>
  7409           <Sub>
  7410            46
  7411           </Sub>
  7412                                         
  7413           <Node>
  7414            <Sub>
  7415             0
  7416            </Sub>
  7417                                               
  7418            <Data>
  7419             <![CDATA[" descriptio n": "This  optional p arameter i s the Loca tion of Vi sit (e.g.,  Cardiolog yClinic).   It is a p ointer to  Hospital l ocation (F ile #44).  [Fileman T ype: LITER AL]",]]>
  7420            </Data>
  7421                                          
  7422           </Node>
  7423                                     
  7424          </Node>
  7425                                    
  7426          <Node>
  7427           <Sub>
  7428            47
  7429           </Sub>
  7430                                         
  7431           <Node>
  7432            <Sub>
  7433             0
  7434            </Sub>
  7435                                               
  7436            <Data>
  7437             &quot;in&q uot;: &quo t;formData &quot;,
  7438            </Data>
  7439                                          
  7440           </Node>
  7441                                     
  7442          </Node>
  7443                                    
  7444          <Node>
  7445           <Sub>
  7446            48
  7447           </Sub>
  7448                                         
  7449           <Node>
  7450            <Sub>
  7451             0
  7452            </Sub>
  7453                                               
  7454            <Data>
  7455             &quot;type &quot;: &q uot;string &quot;,
  7456            </Data>
  7457                                          
  7458           </Node>
  7459                                     
  7460          </Node>
  7461                                    
  7462          <Node>
  7463           <Sub>
  7464            49
  7465           </Sub>
  7466                                         
  7467           <Node>
  7468            <Sub>
  7469             0
  7470            </Sub>
  7471                                               
  7472            <Data>
  7473             &quot;requ ired&quot; : false
  7474            </Data>
  7475                                          
  7476           </Node>
  7477                                     
  7478          </Node>
  7479                                    
  7480          <Node>
  7481           <Sub>
  7482            50
  7483           </Sub>
  7484                                         
  7485           <Node>
  7486            <Sub>
  7487             0
  7488            </Sub>
  7489                                               
  7490            <Data>
  7491             },
  7492            </Data>
  7493                                          
  7494           </Node>
  7495                                     
  7496          </Node>
  7497                                    
  7498          <Node>
  7499           <Sub>
  7500            51
  7501           </Sub>
  7502                                         
  7503           <Node>
  7504            <Sub>
  7505             0
  7506            </Sub>
  7507                                               
  7508            <Data>
  7509             {
  7510            </Data>
  7511                                          
  7512           </Node>
  7513                                     
  7514          </Node>
  7515                                    
  7516          <Node>
  7517           <Sub>
  7518            52
  7519           </Sub>
  7520                                         
  7521           <Node>
  7522            <Sub>
  7523             0
  7524            </Sub>
  7525                                               
  7526            <Data>
  7527             &quot;name &quot;: &q uot;VSIT&q uot;,
  7528            </Data>
  7529                                          
  7530           </Node>
  7531                                     
  7532          </Node>
  7533                                    
  7534          <Node>
  7535           <Sub>
  7536            53
  7537           </Sub>
  7538                                         
  7539           <Node>
  7540            <Sub>
  7541             0
  7542            </Sub>
  7543                                               
  7544            <Data>
  7545             <![CDATA[" descriptio n": "This  is a point er to the  Visit File  (#9000010 ) entry fo r the visi t towhich  the docume nt is to b e linked.  [Fileman T ype: LITER AL]",]]>
  7546            </Data>
  7547                                          
  7548           </Node>
  7549                                     
  7550          </Node>
  7551                                    
  7552          <Node>
  7553           <Sub>
  7554            54
  7555           </Sub>
  7556                                         
  7557           <Node>
  7558            <Sub>
  7559             0
  7560            </Sub>
  7561                                               
  7562            <Data>
  7563             &quot;in&q uot;: &quo t;formData &quot;,
  7564            </Data>
  7565                                          
  7566           </Node>
  7567                                     
  7568          </Node>
  7569                                    
  7570          <Node>
  7571           <Sub>
  7572            55
  7573           </Sub>
  7574                                         
  7575           <Node>
  7576            <Sub>
  7577             0
  7578            </Sub>
  7579                                               
  7580            <Data>
  7581             &quot;type &quot;: &q uot;string &quot;,
  7582            </Data>
  7583                                          
  7584           </Node>
  7585                                     
  7586          </Node>
  7587                                    
  7588          <Node>
  7589           <Sub>
  7590            56
  7591           </Sub>
  7592                                         
  7593           <Node>
  7594            <Sub>
  7595             0
  7596            </Sub>
  7597                                               
  7598            <Data>
  7599             &quot;requ ired&quot; : false
  7600            </Data>
  7601                                          
  7602           </Node>
  7603                                     
  7604          </Node>
  7605                                    
  7606          <Node>
  7607           <Sub>
  7608            57
  7609           </Sub>
  7610                                         
  7611           <Node>
  7612            <Sub>
  7613             0
  7614            </Sub>
  7615                                               
  7616            <Data>
  7617             },
  7618            </Data>
  7619                                          
  7620           </Node>
  7621                                     
  7622          </Node>
  7623                                    
  7624          <Node>
  7625           <Sub>
  7626            58
  7627           </Sub>
  7628                                         
  7629           <Node>
  7630            <Sub>
  7631             0
  7632            </Sub>
  7633                                               
  7634            <Data>
  7635             {
  7636            </Data>
  7637                                          
  7638           </Node>
  7639                                     
  7640          </Node>
  7641                                    
  7642          <Node>
  7643           <Sub>
  7644            59
  7645           </Sub>
  7646                                         
  7647           <Node>
  7648            <Sub>
  7649             0
  7650            </Sub>
  7651                                               
  7652            <Data>
  7653             &quot;name &quot;: &q uot;TIUX&q uot;,
  7654            </Data>
  7655                                          
  7656           </Node>
  7657                                     
  7658          </Node>
  7659                                    
  7660          <Node>
  7661           <Sub>
  7662            60
  7663           </Sub>
  7664                                         
  7665           <Node>
  7666            <Sub>
  7667             0
  7668            </Sub>
  7669                                               
  7670            <Data>
  7671             <![CDATA[" descriptio n": "This  is the inp ut array i n which th e identifi ers of the  document,  as well a s its text , are to b e stored i n the form at describ ed for the  TIU UPDAT E RECORD R PC. [Filem an Type: L IST]",]]>
  7672            </Data>
  7673                                          
  7674           </Node>
  7675                                     
  7676          </Node>
  7677                                    
  7678          <Node>
  7679           <Sub>
  7680            61
  7681           </Sub>
  7682                                         
  7683           <Node>
  7684            <Sub>
  7685             0
  7686            </Sub>
  7687                                               
  7688            <Data>
  7689             &quot;in&q uot;: &quo t;formData &quot;,
  7690            </Data>
  7691                                          
  7692           </Node>
  7693                                     
  7694          </Node>
  7695                                    
  7696          <Node>
  7697           <Sub>
  7698            62
  7699           </Sub>
  7700                                         
  7701           <Node>
  7702            <Sub>
  7703             0
  7704            </Sub>
  7705                                               
  7706            <Data>
  7707             &quot;type &quot;: &q uot;object &quot;,
  7708            </Data>
  7709                                          
  7710           </Node>
  7711                                     
  7712          </Node>
  7713                                    
  7714          <Node>
  7715           <Sub>
  7716            63
  7717           </Sub>
  7718                                         
  7719           <Node>
  7720            <Sub>
  7721             0
  7722            </Sub>
  7723                                               
  7724            <Data>
  7725             &quot;requ ired&quot; : true
  7726            </Data>
  7727                                          
  7728           </Node>
  7729                                     
  7730          </Node>
  7731                                    
  7732          <Node>
  7733           <Sub>
  7734            64
  7735           </Sub>
  7736                                         
  7737           <Node>
  7738            <Sub>
  7739             0
  7740            </Sub>
  7741                                               
  7742            <Data>
  7743             },
  7744            </Data>
  7745                                          
  7746           </Node>
  7747                                     
  7748          </Node>
  7749                                    
  7750          <Node>
  7751           <Sub>
  7752            65
  7753           </Sub>
  7754                                         
  7755           <Node>
  7756            <Sub>
  7757             0
  7758            </Sub>
  7759                                               
  7760            <Data>
  7761             {
  7762            </Data>
  7763                                          
  7764           </Node>
  7765                                     
  7766          </Node>
  7767                                    
  7768          <Node>
  7769           <Sub>
  7770            66
  7771           </Sub>
  7772                                         
  7773           <Node>
  7774            <Sub>
  7775             0
  7776            </Sub>
  7777                                               
  7778            <Data>
  7779             &quot;name &quot;: &q uot;VSTR&q uot;,
  7780            </Data>
  7781                                          
  7782           </Node>
  7783                                     
  7784          </Node>
  7785                                    
  7786          <Node>
  7787           <Sub>
  7788            67
  7789           </Sub>
  7790                                         
  7791           <Node>
  7792            <Sub>
  7793             0
  7794            </Sub>
  7795                                               
  7796            <Data>
  7797             <![CDATA[" descriptio n": "This  parameter  identifies  the visit  location,  date/time , and Serv iceCategor y (Hospita lization,  Ambulatory , Telecomm unications , or Event (HISTORICA L)) in the  form of a  semi-colo n delimite d string ( e.g.,\"469 ;2970616.1 415;A\").  [Fileman T ype: LITER AL]",]]>
  7798            </Data>
  7799                                          
  7800           </Node>
  7801                                     
  7802          </Node>
  7803                                    
  7804          <Node>
  7805           <Sub>
  7806            68
  7807           </Sub>
  7808                                         
  7809           <Node>
  7810            <Sub>
  7811             0
  7812            </Sub>
  7813                                               
  7814            <Data>
  7815             &quot;in&q uot;: &quo t;formData &quot;,
  7816            </Data>
  7817                                          
  7818           </Node>
  7819                                     
  7820          </Node>
  7821                                    
  7822          <Node>
  7823           <Sub>
  7824            69
  7825           </Sub>
  7826                                         
  7827           <Node>
  7828            <Sub>
  7829             0
  7830            </Sub>
  7831                                               
  7832            <Data>
  7833             &quot;type &quot;: &q uot;string &quot;,
  7834            </Data>
  7835                                          
  7836           </Node>
  7837                                     
  7838          </Node>
  7839                                    
  7840          <Node>
  7841           <Sub>
  7842            70
  7843           </Sub>
  7844                                         
  7845           <Node>
  7846            <Sub>
  7847             0
  7848            </Sub>
  7849                                               
  7850            <Data>
  7851             &quot;requ ired&quot; : false
  7852            </Data>
  7853                                          
  7854           </Node>
  7855                                     
  7856          </Node>
  7857                                    
  7858          <Node>
  7859           <Sub>
  7860            71
  7861           </Sub>
  7862                                         
  7863           <Node>
  7864            <Sub>
  7865             0
  7866            </Sub>
  7867                                               
  7868            <Data>
  7869             },
  7870            </Data>
  7871                                          
  7872           </Node>
  7873                                     
  7874          </Node>
  7875                                    
  7876          <Node>
  7877           <Sub>
  7878            72
  7879           </Sub>
  7880                                         
  7881           <Node>
  7882            <Sub>
  7883             0
  7884            </Sub>
  7885                                               
  7886            <Data>
  7887             {
  7888            </Data>
  7889                                          
  7890           </Node>
  7891                                     
  7892          </Node>
  7893                                    
  7894          <Node>
  7895           <Sub>
  7896            73
  7897           </Sub>
  7898                                         
  7899           <Node>
  7900            <Sub>
  7901             0
  7902            </Sub>
  7903                                               
  7904            <Data>
  7905             &quot;name &quot;: &q uot;SUPPRE SS&quot;,
  7906            </Data>
  7907                                          
  7908           </Node>
  7909                                     
  7910          </Node>
  7911                                    
  7912          <Node>
  7913           <Sub>
  7914            74
  7915           </Sub>
  7916                                         
  7917           <Node>
  7918            <Sub>
  7919             0
  7920            </Sub>
  7921                                               
  7922            <Data>
  7923             <![CDATA[" descriptio n": "BOOLE AN flag in dicating w hether or  not to sup press exec ution of t he COMMITA CTION for  the docume nt in ques tion. This  gives the  calling a pplication control ov er the cir cumstances  in which  the COMMIT  CODE shou ld beexecu ted. [File man Type:  LITERAL]", ]]>
  7924            </Data>
  7925                                          
  7926           </Node>
  7927                                     
  7928          </Node>
  7929                                    
  7930          <Node>
  7931           <Sub>
  7932            75
  7933           </Sub>
  7934                                         
  7935           <Node>
  7936            <Sub>
  7937             0
  7938            </Sub>
  7939                                               
  7940            <Data>
  7941             &quot;in&q uot;: &quo t;formData &quot;,
  7942            </Data>
  7943                                          
  7944           </Node>
  7945                                     
  7946          </Node>
  7947                                    
  7948          <Node>
  7949           <Sub>
  7950            76
  7951           </Sub>
  7952                                         
  7953           <Node>
  7954            <Sub>
  7955             0
  7956            </Sub>
  7957                                               
  7958            <Data>
  7959             &quot;type &quot;: &q uot;string &quot;,
  7960            </Data>
  7961                                          
  7962           </Node>
  7963                                     
  7964          </Node>
  7965                                    
  7966          <Node>
  7967           <Sub>
  7968            77
  7969           </Sub>
  7970                                         
  7971           <Node>
  7972            <Sub>
  7973             0
  7974            </Sub>
  7975                                               
  7976            <Data>
  7977             &quot;requ ired&quot; : false
  7978            </Data>
  7979                                          
  7980           </Node>
  7981                                     
  7982          </Node>
  7983                                    
  7984          <Node>
  7985           <Sub>
  7986            78
  7987           </Sub>
  7988                                         
  7989           <Node>
  7990            <Sub>
  7991             0
  7992            </Sub>
  7993                                               
  7994            <Data>
  7995             },
  7996            </Data>
  7997                                          
  7998           </Node>
  7999                                     
  8000          </Node>
  8001                                    
  8002          <Node>
  8003           <Sub>
  8004            79
  8005           </Sub>
  8006                                         
  8007           <Node>
  8008            <Sub>
  8009             0
  8010            </Sub>
  8011                                               
  8012            <Data>
  8013             {
  8014            </Data>
  8015                                          
  8016           </Node>
  8017                                     
  8018          </Node>
  8019                                    
  8020          <Node>
  8021           <Sub>
  8022            80
  8023           </Sub>
  8024                                         
  8025           <Node>
  8026            <Sub>
  8027             0
  8028            </Sub>
  8029                                               
  8030            <Data>
  8031             &quot;name &quot;: &q uot;NOASF& quot;,
  8032            </Data>
  8033                                          
  8034           </Node>
  8035                                     
  8036          </Node>
  8037                                    
  8038          <Node>
  8039           <Sub>
  8040            81
  8041           </Sub>
  8042                                         
  8043           <Node>
  8044            <Sub>
  8045             0
  8046            </Sub>
  8047                                               
  8048            <Data>
  8049             <![CDATA[" descriptio n": "This  parameter  can option ally be se t to 1 to  indicate t he ASAVE c ross-refer ence in th e TIU Docu ment file  (#8925) sh ould not b e set when  calling t his RPC.   The intent  of this c ross-refer ence is fo r telnet t ype sessio ns where a  user coul d be dropp ed.  The c ross-refer ence is us ed to prov ide the us er with an  easy way  to resume  editing th e TIU Docu ment they  were worki ng on when  they were  dropped.   In the Cl inical Pro cedures re alm, for e xample, wh ere the st ub is crea ted in the  'backgrou nd' thiscr oss-refere nce should  not be se t since th e user is  not intera ctivelyinv olved in t he creatio n of the r ecord. [Fi leman Type : LITERAL] ",]]>
  8050            </Data>
  8051                                          
  8052           </Node>
  8053                                     
  8054          </Node>
  8055                                    
  8056          <Node>
  8057           <Sub>
  8058            82
  8059           </Sub>
  8060                                         
  8061           <Node>
  8062            <Sub>
  8063             0
  8064            </Sub>
  8065                                               
  8066            <Data>
  8067             &quot;in&q uot;: &quo t;formData &quot;,
  8068            </Data>
  8069                                          
  8070           </Node>
  8071                                     
  8072          </Node>
  8073                                    
  8074          <Node>
  8075           <Sub>
  8076            83
  8077           </Sub>
  8078                                         
  8079           <Node>
  8080            <Sub>
  8081             0
  8082            </Sub>
  8083                                               
  8084            <Data>
  8085             &quot;type &quot;: &q uot;string &quot;,
  8086            </Data>
  8087                                          
  8088           </Node>
  8089                                     
  8090          </Node>
  8091                                    
  8092          <Node>
  8093           <Sub>
  8094            84
  8095           </Sub>
  8096                                         
  8097           <Node>
  8098            <Sub>
  8099             0
  8100            </Sub>
  8101                                               
  8102            <Data>
  8103             &quot;requ ired&quot; : false
  8104            </Data>
  8105                                          
  8106           </Node>
  8107                                     
  8108          </Node>
  8109                                    
  8110          <Node>
  8111           <Sub>
  8112            85
  8113           </Sub>
  8114                                         
  8115           <Node>
  8116            <Sub>
  8117             0
  8118            </Sub>
  8119                                               
  8120            <Data>
  8121             }
  8122            </Data>
  8123                                          
  8124           </Node>
  8125                                     
  8126          </Node>
  8127                                    
  8128          <Node>
  8129           <Sub>
  8130            86
  8131           </Sub>
  8132                                         
  8133           <Node>
  8134            <Sub>
  8135             0
  8136            </Sub>
  8137                                               
  8138            <Data>
  8139             ],
  8140            </Data>
  8141                                          
  8142           </Node>
  8143                                     
  8144          </Node>
  8145                                    
  8146          <Node>
  8147           <Sub>
  8148            87
  8149           </Sub>
  8150                                         
  8151           <Node>
  8152            <Sub>
  8153             0
  8154            </Sub>
  8155                                               
  8156            <Data>
  8157             &quot;tags &quot;: [
  8158            </Data>
  8159                                          
  8160           </Node>
  8161                                     
  8162          </Node>
  8163                                    
  8164          <Node>
  8165           <Sub>
  8166            88
  8167           </Sub>
  8168                                         
  8169           <Node>
  8170            <Sub>
  8171             0
  8172            </Sub>
  8173                                               
  8174            <Data>
  8175             &quot;RPCS &quot;,
  8176            </Data>
  8177                                          
  8178           </Node>
  8179                                     
  8180          </Node>
  8181                                    
  8182          <Node>
  8183           <Sub>
  8184            89
  8185           </Sub>
  8186                                         
  8187           <Node>
  8188            <Sub>
  8189             0
  8190            </Sub>
  8191                                               
  8192            <Data>
  8193             &quot;Rest ify&quot;
  8194            </Data>
  8195                                          
  8196           </Node>
  8197                                     
  8198          </Node>
  8199                                    
  8200          <Node>
  8201           <Sub>
  8202            90
  8203           </Sub>
  8204                                         
  8205           <Node>
  8206            <Sub>
  8207             0
  8208            </Sub>
  8209                                               
  8210            <Data>
  8211             ],
  8212            </Data>
  8213                                          
  8214           </Node>
  8215                                     
  8216          </Node>
  8217                                    
  8218          <Node>
  8219           <Sub>
  8220            91
  8221           </Sub>
  8222                                         
  8223           <Node>
  8224            <Sub>
  8225             0
  8226            </Sub>
  8227                                               
  8228            <Data>
  8229             &quot;resp onses&quot ;: {
  8230            </Data>
  8231                                          
  8232           </Node>
  8233                                     
  8234          </Node>
  8235                                    
  8236          <Node>
  8237           <Sub>
  8238            92
  8239           </Sub>
  8240                                         
  8241           <Node>
  8242            <Sub>
  8243             0
  8244            </Sub>
  8245                                               
  8246            <Data>
  8247             &quot;200& quot;: {
  8248            </Data>
  8249                                          
  8250           </Node>
  8251                                     
  8252          </Node>
  8253                                    
  8254          <Node>
  8255           <Sub>
  8256            93
  8257           </Sub>
  8258                                         
  8259           <Node>
  8260            <Sub>
  8261             0
  8262            </Sub>
  8263                                               
  8264            <Data>
  8265             <![CDATA[" descriptio n": "If th e call is  successful , this wil l be the r ecord numb er (IEN) o f theresul ting entry  in the TI U DOCUMENT  FILE (#89 25).  In t he event o f afiling  error, the  first \"^ \"-piece w ill be zer o, and the  second \" ^\"-pieceo f this sca lar return  variable  will be a  textual me ssage desc ribing the nature of  the error  (e.g., 0^I nvalid TIT LE Selecte d.\").",]] >
  8266            </Data>
  8267                                          
  8268           </Node>
  8269                                     
  8270          </Node>
  8271                                    
  8272          <Node>
  8273           <Sub>
  8274            94
  8275           </Sub>
  8276                                         
  8277           <Node>
  8278            <Sub>
  8279             0
  8280            </Sub>
  8281                                               
  8282            <Data>
  8283             &quot;sche ma&quot;:  {
  8284            </Data>
  8285                                          
  8286           </Node>
  8287                                     
  8288          </Node>
  8289                                    
  8290          <Node>
  8291           <Sub>
  8292            95
  8293           </Sub>
  8294                                         
  8295           <Node>
  8296            <Sub>
  8297             0
  8298            </Sub>
  8299                                               
  8300            <Data>
  8301             &quot;$ref &quot;: &q uot;#/defi nitions/SI NGLE_VALUE &quot;
  8302            </Data>
  8303                                          
  8304           </Node>
  8305                                     
  8306          </Node>
  8307                                    
  8308          <Node>
  8309           <Sub>
  8310            96
  8311           </Sub>
  8312                                         
  8313           <Node>
  8314            <Sub>
  8315             0
  8316            </Sub>
  8317                                               
  8318            <Data>
  8319             }
  8320            </Data>
  8321                                          
  8322           </Node>
  8323                                     
  8324          </Node>
  8325                                    
  8326          <Node>
  8327           <Sub>
  8328            97
  8329           </Sub>
  8330                                         
  8331           <Node>
  8332            <Sub>
  8333             0
  8334            </Sub>
  8335                                               
  8336            <Data>
  8337             }
  8338            </Data>
  8339                                          
  8340           </Node>
  8341                                     
  8342          </Node>
  8343                                    
  8344          <Node>
  8345           <Sub>
  8346            98
  8347           </Sub>
  8348                                         
  8349           <Node>
  8350            <Sub>
  8351             0
  8352            </Sub>
  8353                                               
  8354            <Data>
  8355             }
  8356            </Data>
  8357                                          
  8358           </Node>
  8359                                     
  8360          </Node>
  8361                                    
  8362          <Node>
  8363           <Sub>
  8364            99
  8365           </Sub>
  8366                                         
  8367           <Node>
  8368            <Sub>
  8369             0
  8370            </Sub>
  8371                                               
  8372            <Data>
  8373             }
  8374            </Data>
  8375                                          
  8376           </Node>
  8377                                     
  8378          </Node>
  8379                                    
  8380          <Node>
  8381           <Sub>
  8382            100
  8383           </Sub>
  8384                                         
  8385           <Node>
  8386            <Sub>
  8387             0
  8388            </Sub>
  8389                                               
  8390            <Data>
  8391             }
  8392            </Data>
  8393                                          
  8394           </Node>
  8395                                     
  8396          </Node>
  8397                                    
  8398          <Node>
  8399           <Sub>
  8400            101
  8401           </Sub>
  8402                                         
  8403           <Node>
  8404            <Sub>
  8405             0
  8406            </Sub>
  8407                                               
  8408            <Data>
  8409             },
  8410            </Data>
  8411                                          
  8412           </Node>
  8413                                     
  8414          </Node>
  8415                                    
  8416          <Node>
  8417           <Sub>
  8418            102
  8419           </Sub>
  8420                                         
  8421           <Node>
  8422            <Sub>
  8423             0
  8424            </Sub>
  8425                                               
  8426            <Data>
  8427             &quot;defi nitions&qu ot;: {
  8428            </Data>
  8429                                          
  8430           </Node>
  8431                                     
  8432          </Node>
  8433                                    
  8434          <Node>
  8435           <Sub>
  8436            103
  8437           </Sub>
  8438                                         
  8439           <Node>
  8440            <Sub>
  8441             0
  8442            </Sub>
  8443                                               
  8444            <Data>
  8445             &quot;ARRA Y&quot;: {
  8446            </Data>
  8447                                          
  8448           </Node>
  8449                                     
  8450          </Node>
  8451                                    
  8452          <Node>
  8453           <Sub>
  8454            104
  8455           </Sub>
  8456                                         
  8457           <Node>
  8458            <Sub>
  8459             0
  8460            </Sub>
  8461                                               
  8462            <Data>
  8463             &quot;type &quot;: &q uot;object &quot;
  8464            </Data>
  8465                                          
  8466           </Node>
  8467                                     
  8468          </Node>
  8469                                    
  8470          <Node>
  8471           <Sub>
  8472            105
  8473           </Sub>
  8474                                         
  8475           <Node>
  8476            <Sub>
  8477             0
  8478            </Sub>
  8479                                               
  8480            <Data>
  8481             },
  8482            </Data>
  8483                                          
  8484           </Node>
  8485                                     
  8486          </Node>
  8487                                    
  8488          <Node>
  8489           <Sub>
  8490            106
  8491           </Sub>
  8492                                         
  8493           <Node>
  8494            <Sub>
  8495             0
  8496            </Sub>
  8497                                               
  8498            <Data>
  8499             &quot;GLOB AL_ARRAY&q uot;: {
  8500            </Data>
  8501                                          
  8502           </Node>
  8503                                     
  8504          </Node>
  8505                                    
  8506          <Node>
  8507           <Sub>
  8508            107
  8509           </Sub>
  8510                                         
  8511           <Node>
  8512            <Sub>
  8513             0
  8514            </Sub>
  8515                                               
  8516            <Data>
  8517             &quot;type &quot;: &q uot;object &quot;
  8518            </Data>
  8519                                          
  8520           </Node>
  8521                                     
  8522          </Node>
  8523                                    
  8524          <Node>
  8525           <Sub>
  8526            108
  8527           </Sub>
  8528                                         
  8529           <Node>
  8530            <Sub>
  8531             0
  8532            </Sub>
  8533                                               
  8534            <Data>
  8535             },
  8536            </Data>
  8537                                          
  8538           </Node>
  8539                                     
  8540          </Node>
  8541                                    
  8542          <Node>
  8543           <Sub>
  8544            109
  8545           </Sub>
  8546                                         
  8547           <Node>
  8548            <Sub>
  8549             0
  8550            </Sub>
  8551                                               
  8552            <Data>
  8553             &quot;SING LE_VALUE&q uot;: {
  8554            </Data>
  8555                                          
  8556           </Node>
  8557                                     
  8558          </Node>
  8559                                    
  8560          <Node>
  8561           <Sub>
  8562            110
  8563           </Sub>
  8564                                         
  8565           <Node>
  8566            <Sub>
  8567             0
  8568            </Sub>
  8569                                               
  8570            <Data>
  8571             &quot;type &quot;: &q uot;string &quot;
  8572            </Data>
  8573                                          
  8574           </Node>
  8575                                     
  8576          </Node>
  8577                                    
  8578          <Node>
  8579           <Sub>
  8580            111
  8581           </Sub>
  8582                                         
  8583           <Node>
  8584            <Sub>
  8585             0
  8586            </Sub>
  8587                                               
  8588            <Data>
  8589             },
  8590            </Data>
  8591                                          
  8592           </Node>
  8593                                     
  8594          </Node>
  8595                                    
  8596          <Node>
  8597           <Sub>
  8598            112
  8599           </Sub>
  8600                                         
  8601           <Node>
  8602            <Sub>
  8603             0
  8604            </Sub>
  8605                                               
  8606            <Data>
  8607             &quot;GLOB AL_INSTANC E&quot;: {
  8608            </Data>
  8609                                          
  8610           </Node>
  8611                                     
  8612          </Node>
  8613                                    
  8614          <Node>
  8615           <Sub>
  8616            113
  8617           </Sub>
  8618                                         
  8619           <Node>
  8620            <Sub>
  8621             0
  8622            </Sub>
  8623                                               
  8624            <Data>
  8625             &quot;type &quot;: &q uot;string &quot;
  8626            </Data>
  8627                                          
  8628           </Node>
  8629                                     
  8630          </Node>
  8631                                    
  8632          <Node>
  8633           <Sub>
  8634            114
  8635           </Sub>
  8636                                         
  8637           <Node>
  8638            <Sub>
  8639             0
  8640            </Sub>
  8641                                               
  8642            <Data>
  8643             },
  8644            </Data>
  8645                                          
  8646           </Node>
  8647                                     
  8648          </Node>
  8649                                    
  8650          <Node>
  8651           <Sub>
  8652            115
  8653           </Sub>
  8654                                         
  8655           <Node>
  8656            <Sub>
  8657             0
  8658            </Sub>
  8659                                               
  8660            <Data>
  8661             &quot;WORD _PROCESSIN G&quot;: {
  8662            </Data>
  8663                                          
  8664           </Node>
  8665                                     
  8666          </Node>
  8667                                    
  8668          <Node>
  8669           <Sub>
  8670            116
  8671           </Sub>
  8672                                         
  8673           <Node>
  8674            <Sub>
  8675             0
  8676            </Sub>
  8677                                               
  8678            <Data>
  8679             &quot;type &quot;: &q uot;object &quot;
  8680            </Data>
  8681                                          
  8682           </Node>
  8683                                     
  8684          </Node>
  8685                                    
  8686          <Node>
  8687           <Sub>
  8688            117
  8689           </Sub>
  8690                                         
  8691           <Node>
  8692            <Sub>
  8693             0
  8694            </Sub>
  8695                                               
  8696            <Data>
  8697             },
  8698            </Data>
  8699                                          
  8700           </Node>
  8701                                     
  8702          </Node>
  8703                                    
  8704          <Node>
  8705           <Sub>
  8706            118
  8707           </Sub>
  8708                                         
  8709           <Node>
  8710            <Sub>
  8711             0
  8712            </Sub>
  8713                                               
  8714            <Data>
  8715             &quot;Erro r&quot;: {
  8716            </Data>
  8717                                          
  8718           </Node>
  8719                                     
  8720          </Node>
  8721                                    
  8722          <Node>
  8723           <Sub>
  8724            119
  8725           </Sub>
  8726                                         
  8727           <Node>
  8728            <Sub>
  8729             0
  8730            </Sub>
  8731                                               
  8732            <Data>
  8733             &quot;prop erties&quo t;: {
  8734            </Data>
  8735                                          
  8736           </Node>
  8737                                     
  8738          </Node>
  8739                                    
  8740          <Node>
  8741           <Sub>
  8742            120
  8743           </Sub>
  8744                                         
  8745           <Node>
  8746            <Sub>
  8747             0
  8748            </Sub>
  8749                                               
  8750            <Data>
  8751             &quot;erro r&quot;: {
  8752            </Data>
  8753                                          
  8754           </Node>
  8755                                     
  8756          </Node>
  8757                                    
  8758          <Node>
  8759           <Sub>
  8760            121
  8761           </Sub>
  8762                                         
  8763           <Node>
  8764            <Sub>
  8765             0
  8766            </Sub>
  8767                                               
  8768            <Data>
  8769             &quot;type &quot;: &q uot;string &quot;,
  8770            </Data>
  8771                                          
  8772           </Node>
  8773                                     
  8774          </Node>
  8775                                    
  8776          <Node>
  8777           <Sub>
  8778            122
  8779           </Sub>
  8780                                         
  8781           <Node>
  8782            <Sub>
  8783             0
  8784            </Sub>
  8785                                               
  8786            <Data>
  8787             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  8788            </Data>
  8789                                          
  8790           </Node>
  8791                                     
  8792          </Node>
  8793                                    
  8794          <Node>
  8795           <Sub>
  8796            123
  8797           </Sub>
  8798                                         
  8799           <Node>
  8800            <Sub>
  8801             0
  8802            </Sub>
  8803                                               
  8804            <Data>
  8805             },
  8806            </Data>
  8807                                          
  8808           </Node>
  8809                                     
  8810          </Node>
  8811                                    
  8812          <Node>
  8813           <Sub>
  8814            124
  8815           </Sub>
  8816                                         
  8817           <Node>
  8818            <Sub>
  8819             0
  8820            </Sub>
  8821                                               
  8822            <Data>
  8823             &quot;data &quot;: {
  8824            </Data>
  8825                                          
  8826           </Node>
  8827                                     
  8828          </Node>
  8829                                    
  8830          <Node>
  8831           <Sub>
  8832            125
  8833           </Sub>
  8834                                         
  8835           <Node>
  8836            <Sub>
  8837             0
  8838            </Sub>
  8839                                               
  8840            <Data>
  8841             &quot;type &quot;: &q uot;object &quot;,
  8842            </Data>
  8843                                          
  8844           </Node>
  8845                                     
  8846          </Node>
  8847                                    
  8848          <Node>
  8849           <Sub>
  8850            126
  8851           </Sub>
  8852                                         
  8853           <Node>
  8854            <Sub>
  8855             0
  8856            </Sub>
  8857                                               
  8858            <Data>
  8859             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  8860            </Data>
  8861                                          
  8862           </Node>
  8863                                     
  8864          </Node>
  8865                                    
  8866          <Node>
  8867           <Sub>
  8868            127
  8869           </Sub>
  8870                                         
  8871           <Node>
  8872            <Sub>
  8873             0
  8874            </Sub>
  8875                                               
  8876            <Data>
  8877             }
  8878            </Data>
  8879                                          
  8880           </Node>
  8881                                     
  8882          </Node>
  8883                                    
  8884          <Node>
  8885           <Sub>
  8886            128
  8887           </Sub>
  8888                                         
  8889           <Node>
  8890            <Sub>
  8891             0
  8892            </Sub>
  8893                                               
  8894            <Data>
  8895             }
  8896            </Data>
  8897                                          
  8898           </Node>
  8899                                     
  8900          </Node>
  8901                                    
  8902          <Node>
  8903           <Sub>
  8904            129
  8905           </Sub>
  8906                                         
  8907           <Node>
  8908            <Sub>
  8909             0
  8910            </Sub>
  8911                                               
  8912            <Data>
  8913             },
  8914            </Data>
  8915                                          
  8916           </Node>
  8917                                     
  8918          </Node>
  8919                                    
  8920          <Node>
  8921           <Sub>
  8922            130
  8923           </Sub>
  8924                                         
  8925           <Node>
  8926            <Sub>
  8927             0
  8928            </Sub>
  8929                                               
  8930            <Data>
  8931             &quot;RpcI d&quot;: {
  8932            </Data>
  8933                                          
  8934           </Node>
  8935                                     
  8936          </Node>
  8937                                    
  8938          <Node>
  8939           <Sub>
  8940            131
  8941           </Sub>
  8942                                         
  8943           <Node>
  8944            <Sub>
  8945             0
  8946            </Sub>
  8947                                               
  8948            <Data>
  8949             &quot;prop erties&quo t;: {
  8950            </Data>
  8951                                          
  8952           </Node>
  8953                                     
  8954          </Node>
  8955                                    
  8956          <Node>
  8957           <Sub>
  8958            132
  8959           </Sub>
  8960                                         
  8961           <Node>
  8962            <Sub>
  8963             0
  8964            </Sub>
  8965                                               
  8966            <Data>
  8967             &quot;id&q uot;: {
  8968            </Data>
  8969                                          
  8970           </Node>
  8971                                     
  8972          </Node>
  8973                                    
  8974          <Node>
  8975           <Sub>
  8976            133
  8977           </Sub>
  8978                                         
  8979           <Node>
  8980            <Sub>
  8981             0
  8982            </Sub>
  8983                                               
  8984            <Data>
  8985             &quot;type &quot;: &q uot;intege r&quot;,
  8986            </Data>
  8987                                          
  8988           </Node>
  8989                                     
  8990          </Node>
  8991                                    
  8992          <Node>
  8993           <Sub>
  8994            134
  8995           </Sub>
  8996                                         
  8997           <Node>
  8998            <Sub>
  8999             0
  9000            </Sub>
  9001                                               
  9002            <Data>
  9003             &quot;form at&quot;:  &quot;int3 2&quot;,
  9004            </Data>
  9005                                          
  9006           </Node>
  9007                                     
  9008          </Node>
  9009                                    
  9010          <Node>
  9011           <Sub>
  9012            135
  9013           </Sub>
  9014                                         
  9015           <Node>
  9016            <Sub>
  9017             0
  9018            </Sub>
  9019                                               
  9020            <Data>
  9021             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  9022            </Data>
  9023                                          
  9024           </Node>
  9025                                     
  9026          </Node>
  9027                                    
  9028          <Node>
  9029           <Sub>
  9030            136
  9031           </Sub>
  9032                                         
  9033           <Node>
  9034            <Sub>
  9035             0
  9036            </Sub>
  9037                                               
  9038            <Data>
  9039             },
  9040            </Data>
  9041                                          
  9042           </Node>
  9043                                     
  9044          </Node>
  9045                                    
  9046          <Node>
  9047           <Sub>
  9048            137
  9049           </Sub>
  9050                                         
  9051           <Node>
  9052            <Sub>
  9053             0
  9054            </Sub>
  9055                                               
  9056            <Data>
  9057             &quot;name &quot;: {
  9058            </Data>
  9059                                          
  9060           </Node>
  9061                                     
  9062          </Node>
  9063                                    
  9064          <Node>
  9065           <Sub>
  9066            138
  9067           </Sub>
  9068                                         
  9069           <Node>
  9070            <Sub>
  9071             0
  9072            </Sub>
  9073                                               
  9074            <Data>
  9075             &quot;type &quot;: &q uot;string &quot;,
  9076            </Data>
  9077                                          
  9078           </Node>
  9079                                     
  9080          </Node>
  9081                                    
  9082          <Node>
  9083           <Sub>
  9084            139
  9085           </Sub>
  9086                                         
  9087           <Node>
  9088            <Sub>
  9089             0
  9090            </Sub>
  9091                                               
  9092            <Data>
  9093             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  9094            </Data>
  9095                                          
  9096           </Node>
  9097                                     
  9098          </Node>
  9099                                    
  9100          <Node>
  9101           <Sub>
  9102            140
  9103           </Sub>
  9104                                         
  9105           <Node>
  9106            <Sub>
  9107             0
  9108            </Sub>
  9109                                               
  9110            <Data>
  9111             }
  9112            </Data>
  9113                                          
  9114           </Node>
  9115                                     
  9116          </Node>
  9117                                    
  9118          <Node>
  9119           <Sub>
  9120            141
  9121           </Sub>
  9122                                         
  9123           <Node>
  9124            <Sub>
  9125             0
  9126            </Sub>
  9127                                               
  9128            <Data>
  9129             }
  9130            </Data>
  9131                                          
  9132           </Node>
  9133                                     
  9134          </Node>
  9135                                    
  9136          <Node>
  9137           <Sub>
  9138            142
  9139           </Sub>
  9140                                         
  9141           <Node>
  9142            <Sub>
  9143             0
  9144            </Sub>
  9145                                               
  9146            <Data>
  9147             },
  9148            </Data>
  9149                                          
  9150           </Node>
  9151                                     
  9152          </Node>
  9153                                    
  9154          <Node>
  9155           <Sub>
  9156            143
  9157           </Sub>
  9158                                         
  9159           <Node>
  9160            <Sub>
  9161             0
  9162            </Sub>
  9163                                               
  9164            <Data>
  9165             &quot;Swag gerDefinit ion&quot;:  {},
  9166            </Data>
  9167                                          
  9168           </Node>
  9169                                     
  9170          </Node>
  9171                                    
  9172          <Node>
  9173           <Sub>
  9174            144
  9175           </Sub>
  9176                                         
  9177           <Node>
  9178            <Sub>
  9179             0
  9180            </Sub>
  9181                                               
  9182            <Data>
  9183             &quot;Path &quot;: {}
  9184            </Data>
  9185                                          
  9186           </Node>
  9187                                     
  9188          </Node>
  9189                                    
  9190          <Node>
  9191           <Sub>
  9192            145
  9193           </Sub>
  9194                                         
  9195           <Node>
  9196            <Sub>
  9197             0
  9198            </Sub>
  9199                                               
  9200            <Data>
  9201             }
  9202            </Data>
  9203                                          
  9204           </Node>
  9205                                     
  9206          </Node>
  9207                                    
  9208          <Node>
  9209           <Sub>
  9210            146
  9211           </Sub>
  9212                                         
  9213           <Node>
  9214            <Sub>
  9215             0
  9216            </Sub>
  9217                                               
  9218            <Data>
  9219             }
  9220            </Data>
  9221                                          
  9222           </Node>
  9223                                     
  9224          </Node>
  9225                               
  9226         </Node>
  9227                          
  9228        </Node>
  9229                         
  9230        <Node>
  9231         <Sub>
  9232          3
  9233         </Sub>
  9234                              
  9235         <Node>
  9236          <Sub>
  9237           0
  9238          </Sub>
  9239                                    
  9240          <Data>
  9241           TIU GET PN  TITLES
  9242          </Data>
  9243                               
  9244         </Node>
  9245                              
  9246         <Node>
  9247          <Sub>
  9248           DEF
  9249          </Sub>
  9250                                    
  9251          <Node>
  9252           <Sub>
  9253            0
  9254           </Sub>
  9255                                         
  9256           <Data>
  9257            ^^82^82^31 60407
  9258           </Data>
  9259                                     
  9260          </Node>
  9261                                    
  9262          <Node>
  9263           <Sub>
  9264            1
  9265           </Sub>
  9266                                         
  9267           <Node>
  9268            <Sub>
  9269             0
  9270            </Sub>
  9271                                               
  9272            <Data>
  9273             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  9274            </Data>
  9275                                          
  9276           </Node>
  9277                                     
  9278          </Node>
  9279                                    
  9280          <Node>
  9281           <Sub>
  9282            2
  9283           </Sub>
  9284                                         
  9285           <Node>
  9286            <Sub>
  9287             0
  9288            </Sub>
  9289                                               
  9290            <Data>
  9291             &quot;info &quot;: {
  9292            </Data>
  9293                                          
  9294           </Node>
  9295                                     
  9296          </Node>
  9297                                    
  9298          <Node>
  9299           <Sub>
  9300            3
  9301           </Sub>
  9302                                         
  9303           <Node>
  9304            <Sub>
  9305             0
  9306            </Sub>
  9307                                               
  9308            <Data>
  9309             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  9310            </Data>
  9311                                          
  9312           </Node>
  9313                                     
  9314          </Node>
  9315                                    
  9316          <Node>
  9317           <Sub>
  9318            4
  9319           </Sub>
  9320                                         
  9321           <Node>
  9322            <Sub>
  9323             0
  9324            </Sub>
  9325                                               
  9326            <Data>
  9327             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  9328            </Data>
  9329                                          
  9330           </Node>
  9331                                     
  9332          </Node>
  9333                                    
  9334          <Node>
  9335           <Sub>
  9336            5
  9337           </Sub>
  9338                                         
  9339           <Node>
  9340            <Sub>
  9341             0
  9342            </Sub>
  9343                                               
  9344            <Data>
  9345             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  9346            </Data>
  9347                                          
  9348           </Node>
  9349                                     
  9350          </Node>
  9351                                    
  9352          <Node>
  9353           <Sub>
  9354            6
  9355           </Sub>
  9356                                         
  9357           <Node>
  9358            <Sub>
  9359             0
  9360            </Sub>
  9361                                               
  9362            <Data>
  9363             },
  9364            </Data>
  9365                                          
  9366           </Node>
  9367                                     
  9368          </Node>
  9369                                    
  9370          <Node>
  9371           <Sub>
  9372            7
  9373           </Sub>
  9374                                         
  9375           <Node>
  9376            <Sub>
  9377             0
  9378            </Sub>
  9379                                               
  9380            <Data>
  9381             &quot;sche mes&quot;:  [
  9382            </Data>
  9383                                          
  9384           </Node>
  9385                                     
  9386          </Node>
  9387                                    
  9388          <Node>
  9389           <Sub>
  9390            8
  9391           </Sub>
  9392                                         
  9393           <Node>
  9394            <Sub>
  9395             0
  9396            </Sub>
  9397                                               
  9398            <Data>
  9399             &quot;http s&quot;
  9400            </Data>
  9401                                          
  9402           </Node>
  9403                                     
  9404          </Node>
  9405                                    
  9406          <Node>
  9407           <Sub>
  9408            9
  9409           </Sub>
  9410                                         
  9411           <Node>
  9412            <Sub>
  9413             0
  9414            </Sub>
  9415                                               
  9416            <Data>
  9417             ],
  9418            </Data>
  9419                                          
  9420           </Node>
  9421                                     
  9422          </Node>
  9423                                    
  9424          <Node>
  9425           <Sub>
  9426            10
  9427           </Sub>
  9428                                         
  9429           <Node>
  9430            <Sub>
  9431             0
  9432            </Sub>
  9433                                               
  9434            <Data>
  9435             &quot;base Path&quot; : &quot;/r pcs&quot;,
  9436            </Data>
  9437                                          
  9438           </Node>
  9439                                     
  9440          </Node>
  9441                                    
  9442          <Node>
  9443           <Sub>
  9444            11
  9445           </Sub>
  9446                                         
  9447           <Node>
  9448            <Sub>
  9449             0
  9450            </Sub>
  9451                                               
  9452            <Data>
  9453             &quot;prod uces&quot; : [
  9454            </Data>
  9455                                          
  9456           </Node>
  9457                                     
  9458          </Node>
  9459                                    
  9460          <Node>
  9461           <Sub>
  9462            12
  9463           </Sub>
  9464                                         
  9465           <Node>
  9466            <Sub>
  9467             0
  9468            </Sub>
  9469                                               
  9470            <Data>
  9471             &quot;appl ication/js on&quot;
  9472            </Data>
  9473                                          
  9474           </Node>
  9475                                     
  9476          </Node>
  9477                                    
  9478          <Node>
  9479           <Sub>
  9480            13
  9481           </Sub>
  9482                                         
  9483           <Node>
  9484            <Sub>
  9485             0
  9486            </Sub>
  9487                                               
  9488            <Data>
  9489             ],
  9490            </Data>
  9491                                          
  9492           </Node>
  9493                                     
  9494          </Node>
  9495                                    
  9496          <Node>
  9497           <Sub>
  9498            14
  9499           </Sub>
  9500                                         
  9501           <Node>
  9502            <Sub>
  9503             0
  9504            </Sub>
  9505                                               
  9506            <Data>
  9507             &quot;path s&quot;: {
  9508            </Data>
  9509                                          
  9510           </Node>
  9511                                     
  9512          </Node>
  9513                                    
  9514          <Node>
  9515           <Sub>
  9516            15
  9517           </Sub>
  9518                                         
  9519           <Node>
  9520            <Sub>
  9521             0
  9522            </Sub>
  9523                                               
  9524            <Data>
  9525             &quot;/by- name/tiu%2 0get%20pn% 20titles/c all&quot;:  {
  9526            </Data>
  9527                                          
  9528           </Node>
  9529                                     
  9530          </Node>
  9531                                    
  9532          <Node>
  9533           <Sub>
  9534            16
  9535           </Sub>
  9536                                         
  9537           <Node>
  9538            <Sub>
  9539             0
  9540            </Sub>
  9541                                               
  9542            <Data>
  9543             &quot;post &quot;: {
  9544            </Data>
  9545                                          
  9546           </Node>
  9547                                     
  9548          </Node>
  9549                                    
  9550          <Node>
  9551           <Sub>
  9552            17
  9553           </Sub>
  9554                                         
  9555           <Node>
  9556            <Sub>
  9557             0
  9558            </Sub>
  9559                                               
  9560            <Data>
  9561             &quot;summ ary&quot;:  &quot;NOT ES^TIUSRVD (.tRESULT) &quot;,
  9562            </Data>
  9563                                          
  9564           </Node>
  9565                                     
  9566          </Node>
  9567                                    
  9568          <Node>
  9569           <Sub>
  9570            18
  9571           </Sub>
  9572                                         
  9573           <Node>
  9574            <Sub>
  9575             0
  9576            </Sub>
  9577                                               
  9578            <Data>
  9579             <![CDATA[" descriptio n": "This  API return s a list o f Progress  Notes Tit les, inclu ding a SHO RT LISTof  preferred  titles as  defined by  the user,  and a LON G LIST of  all titles defined at  the site. ",]]>
  9580            </Data>
  9581                                          
  9582           </Node>
  9583                                     
  9584          </Node>
  9585                                    
  9586          <Node>
  9587           <Sub>
  9588            19
  9589           </Sub>
  9590                                         
  9591           <Node>
  9592            <Sub>
  9593             0
  9594            </Sub>
  9595                                               
  9596            <Data>
  9597             &quot;prod uces&quot; : [
  9598            </Data>
  9599                                          
  9600           </Node>
  9601                                     
  9602          </Node>
  9603                                    
  9604          <Node>
  9605           <Sub>
  9606            20
  9607           </Sub>
  9608                                         
  9609           <Node>
  9610            <Sub>
  9611             0
  9612            </Sub>
  9613                                               
  9614            <Data>
  9615             &quot;appl ication/js on&quot;
  9616            </Data>
  9617                                          
  9618           </Node>
  9619                                     
  9620          </Node>
  9621                                    
  9622          <Node>
  9623           <Sub>
  9624            21
  9625           </Sub>
  9626                                         
  9627           <Node>
  9628            <Sub>
  9629             0
  9630            </Sub>
  9631                                               
  9632            <Data>
  9633             ],
  9634            </Data>
  9635                                          
  9636           </Node>
  9637                                     
  9638          </Node>
  9639                                    
  9640          <Node>
  9641           <Sub>
  9642            22
  9643           </Sub>
  9644                                         
  9645           <Node>
  9646            <Sub>
  9647             0
  9648            </Sub>
  9649                                               
  9650            <Data>
  9651             &quot;para meters&quo t;: [],
  9652            </Data>
  9653                                          
  9654           </Node>
  9655                                     
  9656          </Node>
  9657                                    
  9658          <Node>
  9659           <Sub>
  9660            23
  9661           </Sub>
  9662                                         
  9663           <Node>
  9664            <Sub>
  9665             0
  9666            </Sub>
  9667                                               
  9668            <Data>
  9669             &quot;tags &quot;: [
  9670            </Data>
  9671                                          
  9672           </Node>
  9673                                     
  9674          </Node>
  9675                                    
  9676          <Node>
  9677           <Sub>
  9678            24
  9679           </Sub>
  9680                                         
  9681           <Node>
  9682            <Sub>
  9683             0
  9684            </Sub>
  9685                                               
  9686            <Data>
  9687             &quot;RPCS &quot;,
  9688            </Data>
  9689                                          
  9690           </Node>
  9691                                     
  9692          </Node>
  9693                                    
  9694          <Node>
  9695           <Sub>
  9696            25
  9697           </Sub>
  9698                                         
  9699           <Node>
  9700            <Sub>
  9701             0
  9702            </Sub>
  9703                                               
  9704            <Data>
  9705             &quot;Rest ify&quot;
  9706            </Data>
  9707                                          
  9708           </Node>
  9709                                     
  9710          </Node>
  9711                                    
  9712          <Node>
  9713           <Sub>
  9714            26
  9715           </Sub>
  9716                                         
  9717           <Node>
  9718            <Sub>
  9719             0
  9720            </Sub>
  9721                                               
  9722            <Data>
  9723             ],
  9724            </Data>
  9725                                          
  9726           </Node>
  9727                                     
  9728          </Node>
  9729                                    
  9730          <Node>
  9731           <Sub>
  9732            27
  9733           </Sub>
  9734                                         
  9735           <Node>
  9736            <Sub>
  9737             0
  9738            </Sub>
  9739                                               
  9740            <Data>
  9741             &quot;resp onses&quot ;: {
  9742            </Data>
  9743                                          
  9744           </Node>
  9745                                     
  9746          </Node>
  9747                                    
  9748          <Node>
  9749           <Sub>
  9750            28
  9751           </Sub>
  9752                                         
  9753           <Node>
  9754            <Sub>
  9755             0
  9756            </Sub>
  9757                                               
  9758            <Data>
  9759             &quot;200& quot;: {
  9760            </Data>
  9761                                          
  9762           </Node>
  9763                                     
  9764          </Node>
  9765                                    
  9766          <Node>
  9767           <Sub>
  9768            29
  9769           </Sub>
  9770                                         
  9771           <Node>
  9772            <Sub>
  9773             0
  9774            </Sub>
  9775                                               
  9776            <Data>
  9777             &quot;desc ription&qu ot;: &quot ;titles&qu ot;,
  9778            </Data>
  9779                                          
  9780           </Node>
  9781                                     
  9782          </Node>
  9783                                    
  9784          <Node>
  9785           <Sub>
  9786            30
  9787           </Sub>
  9788                                         
  9789           <Node>
  9790            <Sub>
  9791             0
  9792            </Sub>
  9793                                               
  9794            <Data>
  9795             &quot;sche ma&quot;:  {
  9796            </Data>
  9797                                          
  9798           </Node>
  9799                                     
  9800          </Node>
  9801                                    
  9802          <Node>
  9803           <Sub>
  9804            31
  9805           </Sub>
  9806                                         
  9807           <Node>
  9808            <Sub>
  9809             0
  9810            </Sub>
  9811                                               
  9812            <Data>
  9813             &quot;$ref &quot;: &q uot;#/defi nitions/AR RAY&quot;
  9814            </Data>
  9815                                          
  9816           </Node>
  9817                                     
  9818          </Node>
  9819                                    
  9820          <Node>
  9821           <Sub>
  9822            32
  9823           </Sub>
  9824                                         
  9825           <Node>
  9826            <Sub>
  9827             0
  9828            </Sub>
  9829                                               
  9830            <Data>
  9831             }
  9832            </Data>
  9833                                          
  9834           </Node>
  9835                                     
  9836          </Node>
  9837                                    
  9838          <Node>
  9839           <Sub>
  9840            33
  9841           </Sub>
  9842                                         
  9843           <Node>
  9844            <Sub>
  9845             0
  9846            </Sub>
  9847                                               
  9848            <Data>
  9849             }
  9850            </Data>
  9851                                          
  9852           </Node>
  9853                                     
  9854          </Node>
  9855                                    
  9856          <Node>
  9857           <Sub>
  9858            34
  9859           </Sub>
  9860                                         
  9861           <Node>
  9862            <Sub>
  9863             0
  9864            </Sub>
  9865                                               
  9866            <Data>
  9867             }
  9868            </Data>
  9869                                          
  9870           </Node>
  9871                                     
  9872          </Node>
  9873                                    
  9874          <Node>
  9875           <Sub>
  9876            35
  9877           </Sub>
  9878                                         
  9879           <Node>
  9880            <Sub>
  9881             0
  9882            </Sub>
  9883                                               
  9884            <Data>
  9885             }
  9886            </Data>
  9887                                          
  9888           </Node>
  9889                                     
  9890          </Node>
  9891                                    
  9892          <Node>
  9893           <Sub>
  9894            36
  9895           </Sub>
  9896                                         
  9897           <Node>
  9898            <Sub>
  9899             0
  9900            </Sub>
  9901                                               
  9902            <Data>
  9903             }
  9904            </Data>
  9905                                          
  9906           </Node>
  9907                                     
  9908          </Node>
  9909                                    
  9910          <Node>
  9911           <Sub>
  9912            37
  9913           </Sub>
  9914                                         
  9915           <Node>
  9916            <Sub>
  9917             0
  9918            </Sub>
  9919                                               
  9920            <Data>
  9921             },
  9922            </Data>
  9923                                          
  9924           </Node>
  9925                                     
  9926          </Node>
  9927                                    
  9928          <Node>
  9929           <Sub>
  9930            38
  9931           </Sub>
  9932                                         
  9933           <Node>
  9934            <Sub>
  9935             0
  9936            </Sub>
  9937                                               
  9938            <Data>
  9939             &quot;defi nitions&qu ot;: {
  9940            </Data>
  9941                                          
  9942           </Node>
  9943                                     
  9944          </Node>
  9945                                    
  9946          <Node>
  9947           <Sub>
  9948            39
  9949           </Sub>
  9950                                         
  9951           <Node>
  9952            <Sub>
  9953             0
  9954            </Sub>
  9955                                               
  9956            <Data>
  9957             &quot;ARRA Y&quot;: {
  9958            </Data>
  9959                                          
  9960           </Node>
  9961                                     
  9962          </Node>
  9963                                    
  9964          <Node>
  9965           <Sub>
  9966            40
  9967           </Sub>
  9968                                         
  9969           <Node>
  9970            <Sub>
  9971             0
  9972            </Sub>
  9973                                               
  9974            <Data>
  9975             &quot;type &quot;: &q uot;object &quot;
  9976            </Data>
  9977                                          
  9978           </Node>
  9979                                     
  9980          </Node>
  9981                                    
  9982          <Node>
  9983           <Sub>
  9984            41
  9985           </Sub>
  9986                                         
  9987           <Node>
  9988            <Sub>
  9989             0
  9990            </Sub>
  9991                                               
  9992            <Data>
  9993             },
  9994            </Data>
  9995                                          
  9996           </Node>
  9997                                     
  9998          </Node>
  9999                                    
  10000          <Node>
  10001           <Sub>
  10002            42
  10003           </Sub>
  10004                                         
  10005           <Node>
  10006            <Sub>
  10007             0
  10008            </Sub>
  10009                                               
  10010            <Data>
  10011             &quot;GLOB AL_ARRAY&q uot;: {
  10012            </Data>
  10013                                          
  10014           </Node>
  10015                                     
  10016          </Node>
  10017                                    
  10018          <Node>
  10019           <Sub>
  10020            43
  10021           </Sub>
  10022                                         
  10023           <Node>
  10024            <Sub>
  10025             0
  10026            </Sub>
  10027                                               
  10028            <Data>
  10029             &quot;type &quot;: &q uot;object &quot;
  10030            </Data>
  10031                                          
  10032           </Node>
  10033                                     
  10034          </Node>
  10035                                    
  10036          <Node>
  10037           <Sub>
  10038            44
  10039           </Sub>
  10040                                         
  10041           <Node>
  10042            <Sub>
  10043             0
  10044            </Sub>
  10045                                               
  10046            <Data>
  10047             },
  10048            </Data>
  10049                                          
  10050           </Node>
  10051                                     
  10052          </Node>
  10053                                    
  10054          <Node>
  10055           <Sub>
  10056            45
  10057           </Sub>
  10058                                         
  10059           <Node>
  10060            <Sub>
  10061             0
  10062            </Sub>
  10063                                               
  10064            <Data>
  10065             &quot;SING LE_VALUE&q uot;: {
  10066            </Data>
  10067                                          
  10068           </Node>
  10069                                     
  10070          </Node>
  10071                                    
  10072          <Node>
  10073           <Sub>
  10074            46
  10075           </Sub>
  10076                                         
  10077           <Node>
  10078            <Sub>
  10079             0
  10080            </Sub>
  10081                                               
  10082            <Data>
  10083             &quot;type &quot;: &q uot;string &quot;
  10084            </Data>
  10085                                          
  10086           </Node>
  10087                                     
  10088          </Node>
  10089                                    
  10090          <Node>
  10091           <Sub>
  10092            47
  10093           </Sub>
  10094                                         
  10095           <Node>
  10096            <Sub>
  10097             0
  10098            </Sub>
  10099                                               
  10100            <Data>
  10101             },
  10102            </Data>
  10103                                          
  10104           </Node>
  10105                                     
  10106          </Node>
  10107                                    
  10108          <Node>
  10109           <Sub>
  10110            48
  10111           </Sub>
  10112                                         
  10113           <Node>
  10114            <Sub>
  10115             0
  10116            </Sub>
  10117                                               
  10118            <Data>
  10119             &quot;GLOB AL_INSTANC E&quot;: {
  10120            </Data>
  10121                                          
  10122           </Node>
  10123                                     
  10124          </Node>
  10125                                    
  10126          <Node>
  10127           <Sub>
  10128            49
  10129           </Sub>
  10130                                         
  10131           <Node>
  10132            <Sub>
  10133             0
  10134            </Sub>
  10135                                               
  10136            <Data>
  10137             &quot;type &quot;: &q uot;string &quot;
  10138            </Data>
  10139                                          
  10140           </Node>
  10141                                     
  10142          </Node>
  10143                                    
  10144          <Node>
  10145           <Sub>
  10146            50
  10147           </Sub>
  10148                                         
  10149           <Node>
  10150            <Sub>
  10151             0
  10152            </Sub>
  10153                                               
  10154            <Data>
  10155             },
  10156            </Data>
  10157                                          
  10158           </Node>
  10159                                     
  10160          </Node>
  10161                                    
  10162          <Node>
  10163           <Sub>
  10164            51
  10165           </Sub>
  10166                                         
  10167           <Node>
  10168            <Sub>
  10169             0
  10170            </Sub>
  10171                                               
  10172            <Data>
  10173             &quot;WORD _PROCESSIN G&quot;: {
  10174            </Data>
  10175                                          
  10176           </Node>
  10177                                     
  10178          </Node>
  10179                                    
  10180          <Node>
  10181           <Sub>
  10182            52
  10183           </Sub>
  10184                                         
  10185           <Node>
  10186            <Sub>
  10187             0
  10188            </Sub>
  10189                                               
  10190            <Data>
  10191             &quot;type &quot;: &q uot;object &quot;
  10192            </Data>
  10193                                          
  10194           </Node>
  10195                                     
  10196          </Node>
  10197                                    
  10198          <Node>
  10199           <Sub>
  10200            53
  10201           </Sub>
  10202                                         
  10203           <Node>
  10204            <Sub>
  10205             0
  10206            </Sub>
  10207                                               
  10208            <Data>
  10209             },
  10210            </Data>
  10211                                          
  10212           </Node>
  10213                                     
  10214          </Node>
  10215                                    
  10216          <Node>
  10217           <Sub>
  10218            54
  10219           </Sub>
  10220                                         
  10221           <Node>
  10222            <Sub>
  10223             0
  10224            </Sub>
  10225                                               
  10226            <Data>
  10227             &quot;Erro r&quot;: {
  10228            </Data>
  10229                                          
  10230           </Node>
  10231                                     
  10232          </Node>
  10233                                    
  10234          <Node>
  10235           <Sub>
  10236            55
  10237           </Sub>
  10238                                         
  10239           <Node>
  10240            <Sub>
  10241             0
  10242            </Sub>
  10243                                               
  10244            <Data>
  10245             &quot;prop erties&quo t;: {
  10246            </Data>
  10247                                          
  10248           </Node>
  10249                                     
  10250          </Node>
  10251                                    
  10252          <Node>
  10253           <Sub>
  10254            56
  10255           </Sub>
  10256                                         
  10257           <Node>
  10258            <Sub>
  10259             0
  10260            </Sub>
  10261                                               
  10262            <Data>
  10263             &quot;erro r&quot;: {
  10264            </Data>
  10265                                          
  10266           </Node>
  10267                                     
  10268          </Node>
  10269                                    
  10270          <Node>
  10271           <Sub>
  10272            57
  10273           </Sub>
  10274                                         
  10275           <Node>
  10276            <Sub>
  10277             0
  10278            </Sub>
  10279                                               
  10280            <Data>
  10281             &quot;type &quot;: &q uot;string &quot;,
  10282            </Data>
  10283                                          
  10284           </Node>
  10285                                     
  10286          </Node>
  10287                                    
  10288          <Node>
  10289           <Sub>
  10290            58
  10291           </Sub>
  10292                                         
  10293           <Node>
  10294            <Sub>
  10295             0
  10296            </Sub>
  10297                                               
  10298            <Data>
  10299             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  10300            </Data>
  10301                                          
  10302           </Node>
  10303                                     
  10304          </Node>
  10305                                    
  10306          <Node>
  10307           <Sub>
  10308            59
  10309           </Sub>
  10310                                         
  10311           <Node>
  10312            <Sub>
  10313             0
  10314            </Sub>
  10315                                               
  10316            <Data>
  10317             },
  10318            </Data>
  10319                                          
  10320           </Node>
  10321                                     
  10322          </Node>
  10323                                    
  10324          <Node>
  10325           <Sub>
  10326            60
  10327           </Sub>
  10328                                         
  10329           <Node>
  10330            <Sub>
  10331             0
  10332            </Sub>
  10333                                               
  10334            <Data>
  10335             &quot;data &quot;: {
  10336            </Data>
  10337                                          
  10338           </Node>
  10339                                     
  10340          </Node>
  10341                                    
  10342          <Node>
  10343           <Sub>
  10344            61
  10345           </Sub>
  10346                                         
  10347           <Node>
  10348            <Sub>
  10349             0
  10350            </Sub>
  10351                                               
  10352            <Data>
  10353             &quot;type &quot;: &q uot;object &quot;,
  10354            </Data>
  10355                                          
  10356           </Node>
  10357                                     
  10358          </Node>
  10359                                    
  10360          <Node>
  10361           <Sub>
  10362            62
  10363           </Sub>
  10364                                         
  10365           <Node>
  10366            <Sub>
  10367             0
  10368            </Sub>
  10369                                               
  10370            <Data>
  10371             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  10372            </Data>
  10373                                          
  10374           </Node>
  10375                                     
  10376          </Node>
  10377                                    
  10378          <Node>
  10379           <Sub>
  10380            63
  10381           </Sub>
  10382                                         
  10383           <Node>
  10384            <Sub>
  10385             0
  10386            </Sub>
  10387                                               
  10388            <Data>
  10389             }
  10390            </Data>
  10391                                          
  10392           </Node>
  10393                                     
  10394          </Node>
  10395                                    
  10396          <Node>
  10397           <Sub>
  10398            64
  10399           </Sub>
  10400                                         
  10401           <Node>
  10402            <Sub>
  10403             0
  10404            </Sub>
  10405                                               
  10406            <Data>
  10407             }
  10408            </Data>
  10409                                          
  10410           </Node>
  10411                                     
  10412          </Node>
  10413                                    
  10414          <Node>
  10415           <Sub>
  10416            65
  10417           </Sub>
  10418                                         
  10419           <Node>
  10420            <Sub>
  10421             0
  10422            </Sub>
  10423                                               
  10424            <Data>
  10425             },
  10426            </Data>
  10427                                          
  10428           </Node>
  10429                                     
  10430          </Node>
  10431                                    
  10432          <Node>
  10433           <Sub>
  10434            66
  10435           </Sub>
  10436                                         
  10437           <Node>
  10438            <Sub>
  10439             0
  10440            </Sub>
  10441                                               
  10442            <Data>
  10443             &quot;RpcI d&quot;: {
  10444            </Data>
  10445                                          
  10446           </Node>
  10447                                     
  10448          </Node>
  10449                                    
  10450          <Node>
  10451           <Sub>
  10452            67
  10453           </Sub>
  10454                                         
  10455           <Node>
  10456            <Sub>
  10457             0
  10458            </Sub>
  10459                                               
  10460            <Data>
  10461             &quot;prop erties&quo t;: {
  10462            </Data>
  10463                                          
  10464           </Node>
  10465                                     
  10466          </Node>
  10467                                    
  10468          <Node>
  10469           <Sub>
  10470            68
  10471           </Sub>
  10472                                         
  10473           <Node>
  10474            <Sub>
  10475             0
  10476            </Sub>
  10477                                               
  10478            <Data>
  10479             &quot;id&q uot;: {
  10480            </Data>
  10481                                          
  10482           </Node>
  10483                                     
  10484          </Node>
  10485                                    
  10486          <Node>
  10487           <Sub>
  10488            69
  10489           </Sub>
  10490                                         
  10491           <Node>
  10492            <Sub>
  10493             0
  10494            </Sub>
  10495                                               
  10496            <Data>
  10497             &quot;type &quot;: &q uot;intege r&quot;,
  10498            </Data>
  10499                                          
  10500           </Node>
  10501                                     
  10502          </Node>
  10503                                    
  10504          <Node>
  10505           <Sub>
  10506            70
  10507           </Sub>
  10508                                         
  10509           <Node>
  10510            <Sub>
  10511             0
  10512            </Sub>
  10513                                               
  10514            <Data>
  10515             &quot;form at&quot;:  &quot;int3 2&quot;,
  10516            </Data>
  10517                                          
  10518           </Node>
  10519                                     
  10520          </Node>
  10521                                    
  10522          <Node>
  10523           <Sub>
  10524            71
  10525           </Sub>
  10526                                         
  10527           <Node>
  10528            <Sub>
  10529             0
  10530            </Sub>
  10531                                               
  10532            <Data>
  10533             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  10534            </Data>
  10535                                          
  10536           </Node>
  10537                                     
  10538          </Node>
  10539                                    
  10540          <Node>
  10541           <Sub>
  10542            72
  10543           </Sub>
  10544                                         
  10545           <Node>
  10546            <Sub>
  10547             0
  10548            </Sub>
  10549                                               
  10550            <Data>
  10551             },
  10552            </Data>
  10553                                          
  10554           </Node>
  10555                                     
  10556          </Node>
  10557                                    
  10558          <Node>
  10559           <Sub>
  10560            73
  10561           </Sub>
  10562                                         
  10563           <Node>
  10564            <Sub>
  10565             0
  10566            </Sub>
  10567                                               
  10568            <Data>
  10569             &quot;name &quot;: {
  10570            </Data>
  10571                                          
  10572           </Node>
  10573                                     
  10574          </Node>
  10575                                    
  10576          <Node>
  10577           <Sub>
  10578            74
  10579           </Sub>
  10580                                         
  10581           <Node>
  10582            <Sub>
  10583             0
  10584            </Sub>
  10585                                               
  10586            <Data>
  10587             &quot;type &quot;: &q uot;string &quot;,
  10588            </Data>
  10589                                          
  10590           </Node>
  10591                                     
  10592          </Node>
  10593                                    
  10594          <Node>
  10595           <Sub>
  10596            75
  10597           </Sub>
  10598                                         
  10599           <Node>
  10600            <Sub>
  10601             0
  10602            </Sub>
  10603                                               
  10604            <Data>
  10605             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  10606            </Data>
  10607                                          
  10608           </Node>
  10609                                     
  10610          </Node>
  10611                                    
  10612          <Node>
  10613           <Sub>
  10614            76
  10615           </Sub>
  10616                                         
  10617           <Node>
  10618            <Sub>
  10619             0
  10620            </Sub>
  10621                                               
  10622            <Data>
  10623             }
  10624            </Data>
  10625                                          
  10626           </Node>
  10627                                     
  10628          </Node>
  10629                                    
  10630          <Node>
  10631           <Sub>
  10632            77
  10633           </Sub>
  10634                                         
  10635           <Node>
  10636            <Sub>
  10637             0
  10638            </Sub>
  10639                                               
  10640            <Data>
  10641             }
  10642            </Data>
  10643                                          
  10644           </Node>
  10645                                     
  10646          </Node>
  10647                                    
  10648          <Node>
  10649           <Sub>
  10650            78
  10651           </Sub>
  10652                                         
  10653           <Node>
  10654            <Sub>
  10655             0
  10656            </Sub>
  10657                                               
  10658            <Data>
  10659             },
  10660            </Data>
  10661                                          
  10662           </Node>
  10663                                     
  10664          </Node>
  10665                                    
  10666          <Node>
  10667           <Sub>
  10668            79
  10669           </Sub>
  10670                                         
  10671           <Node>
  10672            <Sub>
  10673             0
  10674            </Sub>
  10675                                               
  10676            <Data>
  10677             &quot;Swag gerDefinit ion&quot;:  {},
  10678            </Data>
  10679                                          
  10680           </Node>
  10681                                     
  10682          </Node>
  10683                                    
  10684          <Node>
  10685           <Sub>
  10686            80
  10687           </Sub>
  10688                                         
  10689           <Node>
  10690            <Sub>
  10691             0
  10692            </Sub>
  10693                                               
  10694            <Data>
  10695             &quot;Path &quot;: {}
  10696            </Data>
  10697                                          
  10698           </Node>
  10699                                     
  10700          </Node>
  10701                                    
  10702          <Node>
  10703           <Sub>
  10704            81
  10705           </Sub>
  10706                                         
  10707           <Node>
  10708            <Sub>
  10709             0
  10710            </Sub>
  10711                                               
  10712            <Data>
  10713             }
  10714            </Data>
  10715                                          
  10716           </Node>
  10717                                     
  10718          </Node>
  10719                                    
  10720          <Node>
  10721           <Sub>
  10722            82
  10723           </Sub>
  10724                                         
  10725           <Node>
  10726            <Sub>
  10727             0
  10728            </Sub>
  10729                                               
  10730            <Data>
  10731             }
  10732            </Data>
  10733                                          
  10734           </Node>
  10735                                     
  10736          </Node>
  10737                               
  10738         </Node>
  10739                          
  10740        </Node>
  10741                         
  10742        <Node>
  10743         <Sub>
  10744          4
  10745         </Sub>
  10746                              
  10747         <Node>
  10748          <Sub>
  10749           0
  10750          </Sub>
  10751                                    
  10752          <Data>
  10753           VPS LIST A LL
  10754          </Data>
  10755                               
  10756         </Node>
  10757                              
  10758         <Node>
  10759          <Sub>
  10760           DEF
  10761          </Sub>
  10762                                    
  10763          <Node>
  10764           <Sub>
  10765            0
  10766           </Sub>
  10767                                         
  10768           <Data>
  10769            ^^97^97^31 60408
  10770           </Data>
  10771                                     
  10772          </Node>
  10773                                    
  10774          <Node>
  10775           <Sub>
  10776            1
  10777           </Sub>
  10778                                         
  10779           <Node>
  10780            <Sub>
  10781             0
  10782            </Sub>
  10783                                               
  10784            <Data>
  10785             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  10786            </Data>
  10787                                          
  10788           </Node>
  10789                                     
  10790          </Node>
  10791                                    
  10792          <Node>
  10793           <Sub>
  10794            2
  10795           </Sub>
  10796                                         
  10797           <Node>
  10798            <Sub>
  10799             0
  10800            </Sub>
  10801                                               
  10802            <Data>
  10803             &quot;info &quot;: {
  10804            </Data>
  10805                                          
  10806           </Node>
  10807                                     
  10808          </Node>
  10809                                    
  10810          <Node>
  10811           <Sub>
  10812            3
  10813           </Sub>
  10814                                         
  10815           <Node>
  10816            <Sub>
  10817             0
  10818            </Sub>
  10819                                               
  10820            <Data>
  10821             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  10822            </Data>
  10823                                          
  10824           </Node>
  10825                                     
  10826          </Node>
  10827                                    
  10828          <Node>
  10829           <Sub>
  10830            4
  10831           </Sub>
  10832                                         
  10833           <Node>
  10834            <Sub>
  10835             0
  10836            </Sub>
  10837                                               
  10838            <Data>
  10839             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  10840            </Data>
  10841                                          
  10842           </Node>
  10843                                     
  10844          </Node>
  10845                                    
  10846          <Node>
  10847           <Sub>
  10848            5
  10849           </Sub>
  10850                                         
  10851           <Node>
  10852            <Sub>
  10853             0
  10854            </Sub>
  10855                                               
  10856            <Data>
  10857             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  10858            </Data>
  10859                                          
  10860           </Node>
  10861                                     
  10862          </Node>
  10863                                    
  10864          <Node>
  10865           <Sub>
  10866            6
  10867           </Sub>
  10868                                         
  10869           <Node>
  10870            <Sub>
  10871             0
  10872            </Sub>
  10873                                               
  10874            <Data>
  10875             },
  10876            </Data>
  10877                                          
  10878           </Node>
  10879                                     
  10880          </Node>
  10881                                    
  10882          <Node>
  10883           <Sub>
  10884            7
  10885           </Sub>
  10886                                         
  10887           <Node>
  10888            <Sub>
  10889             0
  10890            </Sub>
  10891                                               
  10892            <Data>
  10893             &quot;sche mes&quot;:  [
  10894            </Data>
  10895                                          
  10896           </Node>
  10897                                     
  10898          </Node>
  10899                                    
  10900          <Node>
  10901           <Sub>
  10902            8
  10903           </Sub>
  10904                                         
  10905           <Node>
  10906            <Sub>
  10907             0
  10908            </Sub>
  10909                                               
  10910            <Data>
  10911             &quot;http s&quot;
  10912            </Data>
  10913                                          
  10914           </Node>
  10915                                     
  10916          </Node>
  10917                                    
  10918          <Node>
  10919           <Sub>
  10920            9
  10921           </Sub>
  10922                                         
  10923           <Node>
  10924            <Sub>
  10925             0
  10926            </Sub>
  10927                                               
  10928            <Data>
  10929             ],
  10930            </Data>
  10931                                          
  10932           </Node>
  10933                                     
  10934          </Node>
  10935                                    
  10936          <Node>
  10937           <Sub>
  10938            10
  10939           </Sub>
  10940                                         
  10941           <Node>
  10942            <Sub>
  10943             0
  10944            </Sub>
  10945                                               
  10946            <Data>
  10947             &quot;base Path&quot; : &quot;/r pcs&quot;,
  10948            </Data>
  10949                                          
  10950           </Node>
  10951                                     
  10952          </Node>
  10953                                    
  10954          <Node>
  10955           <Sub>
  10956            11
  10957           </Sub>
  10958                                         
  10959           <Node>
  10960            <Sub>
  10961             0
  10962            </Sub>
  10963                                               
  10964            <Data>
  10965             &quot;prod uces&quot; : [
  10966            </Data>
  10967                                          
  10968           </Node>
  10969                                     
  10970          </Node>
  10971                                    
  10972          <Node>
  10973           <Sub>
  10974            12
  10975           </Sub>
  10976                                         
  10977           <Node>
  10978            <Sub>
  10979             0
  10980            </Sub>
  10981                                               
  10982            <Data>
  10983             &quot;appl ication/js on&quot;
  10984            </Data>
  10985                                          
  10986           </Node>
  10987                                     
  10988          </Node>
  10989                                    
  10990          <Node>
  10991           <Sub>
  10992            13
  10993           </Sub>
  10994                                         
  10995           <Node>
  10996            <Sub>
  10997             0
  10998            </Sub>
  10999                                               
  11000            <Data>
  11001             ],
  11002            </Data>
  11003                                          
  11004           </Node>
  11005                                     
  11006          </Node>
  11007                                    
  11008          <Node>
  11009           <Sub>
  11010            14
  11011           </Sub>
  11012                                         
  11013           <Node>
  11014            <Sub>
  11015             0
  11016            </Sub>
  11017                                               
  11018            <Data>
  11019             &quot;path s&quot;: {
  11020            </Data>
  11021                                          
  11022           </Node>
  11023                                     
  11024          </Node>
  11025                                    
  11026          <Node>
  11027           <Sub>
  11028            15
  11029           </Sub>
  11030                                         
  11031           <Node>
  11032            <Sub>
  11033             0
  11034            </Sub>
  11035                                               
  11036            <Data>
  11037             &quot;/by- name/vps%2 0list%20al l/call&quo t;: {
  11038            </Data>
  11039                                          
  11040           </Node>
  11041                                     
  11042          </Node>
  11043                                    
  11044          <Node>
  11045           <Sub>
  11046            16
  11047           </Sub>
  11048                                         
  11049           <Node>
  11050            <Sub>
  11051             0
  11052            </Sub>
  11053                                               
  11054            <Data>
  11055             &quot;post &quot;: {
  11056            </Data>
  11057                                          
  11058           </Node>
  11059                                     
  11060          </Node>
  11061                                    
  11062          <Node>
  11063           <Sub>
  11064            17
  11065           </Sub>
  11066                                         
  11067           <Node>
  11068            <Sub>
  11069             0
  11070            </Sub>
  11071                                               
  11072            <Data>
  11073             &quot;summ ary&quot;:  &quot;LIS TALL^VPSRP C5(.tRESUL T,FROM,DIR )&quot;,
  11074            </Data>
  11075                                          
  11076           </Node>
  11077                                     
  11078          </Node>
  11079                                    
  11080          <Node>
  11081           <Sub>
  11082            18
  11083           </Sub>
  11084                                         
  11085           <Node>
  11086            <Sub>
  11087             0
  11088            </Sub>
  11089                                               
  11090            <Data>
  11091             <![CDATA[" descriptio n": "Retur ns a list  of patient s with nam es start w ith (** NO T PREFIXED  BY **)  T o get the  next patie nts, calle r must req uest the n ext batch  of 44 reco rds. For t his reason , this RPC  accepts t wo differe nt format  of'LIST FR OM' text:  1. FROM =  PATIENT NA ME. This f ormat will  return re cords star t with (**  NOT PREFI XED BY **)  FROM (PAT IENT NAME)  2. FROM =  LAST IEN^ LAST PATIE NT NAME. T his format  with retu rn the nex t batch of  44 record s after th e LAST PAT IENT NAME. the input  value. Onl y 44 recor ds will be  returned  to the cal ler. e.q:  If Patient  File cont ains patie nt names ' AA', 'AB',  'BB', 'BC , 'CC', 'C D'in this  order and  caller pas ses in 'A' , all of t hose patie nts will b eincluded  in the lis t.If 'GG',  'KK', 'LL ' are the  44th, 45th , and 46th  patients  in the pat ient name  order, 'KK ' and 'LL'  will not  be include d.",]]>
  11092            </Data>
  11093                                          
  11094           </Node>
  11095                                     
  11096          </Node>
  11097                                    
  11098          <Node>
  11099           <Sub>
  11100            19
  11101           </Sub>
  11102                                         
  11103           <Node>
  11104            <Sub>
  11105             0
  11106            </Sub>
  11107                                               
  11108            <Data>
  11109             &quot;prod uces&quot; : [
  11110            </Data>
  11111                                          
  11112           </Node>
  11113                                     
  11114          </Node>
  11115                                    
  11116          <Node>
  11117           <Sub>
  11118            20
  11119           </Sub>
  11120                                         
  11121           <Node>
  11122            <Sub>
  11123             0
  11124            </Sub>
  11125                                               
  11126            <Data>
  11127             &quot;appl ication/js on&quot;
  11128            </Data>
  11129                                          
  11130           </Node>
  11131                                     
  11132          </Node>
  11133                                    
  11134          <Node>
  11135           <Sub>
  11136            21
  11137           </Sub>
  11138                                         
  11139           <Node>
  11140            <Sub>
  11141             0
  11142            </Sub>
  11143                                               
  11144            <Data>
  11145             ],
  11146            </Data>
  11147                                          
  11148           </Node>
  11149                                     
  11150          </Node>
  11151                                    
  11152          <Node>
  11153           <Sub>
  11154            22
  11155           </Sub>
  11156                                         
  11157           <Node>
  11158            <Sub>
  11159             0
  11160            </Sub>
  11161                                               
  11162            <Data>
  11163             &quot;para meters&quo t;: [
  11164            </Data>
  11165                                          
  11166           </Node>
  11167                                     
  11168          </Node>
  11169                                    
  11170          <Node>
  11171           <Sub>
  11172            23
  11173           </Sub>
  11174                                         
  11175           <Node>
  11176            <Sub>
  11177             0
  11178            </Sub>
  11179                                               
  11180            <Data>
  11181             {
  11182            </Data>
  11183                                          
  11184           </Node>
  11185                                     
  11186          </Node>
  11187                                    
  11188          <Node>
  11189           <Sub>
  11190            24
  11191           </Sub>
  11192                                         
  11193           <Node>
  11194            <Sub>
  11195             0
  11196            </Sub>
  11197                                               
  11198            <Data>
  11199             &quot;name &quot;: &q uot;FROM&q uot;,
  11200            </Data>
  11201                                          
  11202           </Node>
  11203                                     
  11204          </Node>
  11205                                    
  11206          <Node>
  11207           <Sub>
  11208            25
  11209           </Sub>
  11210                                         
  11211           <Node>
  11212            <Sub>
  11213             0
  11214            </Sub>
  11215                                               
  11216            <Data>
  11217             <![CDATA[" descriptio n": "Conta ins the pa tient's na me or cont ains the p atient's f ile #2 IEN  andname.  Name part  of the inp ut may be  a partial  or full na me.  Examp les:  \"DO E,J\"  OR  \"99999^DO E,J\". [Fi leman Type : LITERAL] ",]]>
  11218            </Data>
  11219                                          
  11220           </Node>
  11221                                     
  11222          </Node>
  11223                                    
  11224          <Node>
  11225           <Sub>
  11226            26
  11227           </Sub>
  11228                                         
  11229           <Node>
  11230            <Sub>
  11231             0
  11232            </Sub>
  11233                                               
  11234            <Data>
  11235             &quot;in&q uot;: &quo t;formData &quot;,
  11236            </Data>
  11237                                          
  11238           </Node>
  11239                                     
  11240          </Node>
  11241                                    
  11242          <Node>
  11243           <Sub>
  11244            27
  11245           </Sub>
  11246                                         
  11247           <Node>
  11248            <Sub>
  11249             0
  11250            </Sub>
  11251                                               
  11252            <Data>
  11253             &quot;type &quot;: &q uot;string &quot;,
  11254            </Data>
  11255                                          
  11256           </Node>
  11257                                     
  11258          </Node>
  11259                                    
  11260          <Node>
  11261           <Sub>
  11262            28
  11263           </Sub>
  11264                                         
  11265           <Node>
  11266            <Sub>
  11267             0
  11268            </Sub>
  11269                                               
  11270            <Data>
  11271             &quot;requ ired&quot; : true
  11272            </Data>
  11273                                          
  11274           </Node>
  11275                                     
  11276          </Node>
  11277                                    
  11278          <Node>
  11279           <Sub>
  11280            29
  11281           </Sub>
  11282                                         
  11283           <Node>
  11284            <Sub>
  11285             0
  11286            </Sub>
  11287                                               
  11288            <Data>
  11289             },
  11290            </Data>
  11291                                          
  11292           </Node>
  11293                                     
  11294          </Node>
  11295                                    
  11296          <Node>
  11297           <Sub>
  11298            30
  11299           </Sub>
  11300                                         
  11301           <Node>
  11302            <Sub>
  11303             0
  11304            </Sub>
  11305                                               
  11306            <Data>
  11307             {
  11308            </Data>
  11309                                          
  11310           </Node>
  11311                                     
  11312          </Node>
  11313                                    
  11314          <Node>
  11315           <Sub>
  11316            31
  11317           </Sub>
  11318                                         
  11319           <Node>
  11320            <Sub>
  11321             0
  11322            </Sub>
  11323                                               
  11324            <Data>
  11325             &quot;name &quot;: &q uot;DIR&qu ot;,
  11326            </Data>
  11327                                          
  11328           </Node>
  11329                                     
  11330          </Node>
  11331                                    
  11332          <Node>
  11333           <Sub>
  11334            32
  11335           </Sub>
  11336                                         
  11337           <Node>
  11338            <Sub>
  11339             0
  11340            </Sub>
  11341                                               
  11342            <Data>
  11343             <![CDATA[" descriptio n": "The v alue of DI R can be 1  or -1.  T his parame ter determ ines the $ ORDER sear ch directi on, 1 is a scending a nd -1 is d escending.  [Fileman  Type: LITE RAL]",]]>
  11344            </Data>
  11345                                          
  11346           </Node>
  11347                                     
  11348          </Node>
  11349                                    
  11350          <Node>
  11351           <Sub>
  11352            33
  11353           </Sub>
  11354                                         
  11355           <Node>
  11356            <Sub>
  11357             0
  11358            </Sub>
  11359                                               
  11360            <Data>
  11361             &quot;in&q uot;: &quo t;formData &quot;,
  11362            </Data>
  11363                                          
  11364           </Node>
  11365                                     
  11366          </Node>
  11367                                    
  11368          <Node>
  11369           <Sub>
  11370            34
  11371           </Sub>
  11372                                         
  11373           <Node>
  11374            <Sub>
  11375             0
  11376            </Sub>
  11377                                               
  11378            <Data>
  11379             &quot;type &quot;: &q uot;string &quot;,
  11380            </Data>
  11381                                          
  11382           </Node>
  11383                                     
  11384          </Node>
  11385                                    
  11386          <Node>
  11387           <Sub>
  11388            35
  11389           </Sub>
  11390                                         
  11391           <Node>
  11392            <Sub>
  11393             0
  11394            </Sub>
  11395                                               
  11396            <Data>
  11397             &quot;requ ired&quot; : true
  11398            </Data>
  11399                                          
  11400           </Node>
  11401                                     
  11402          </Node>
  11403                                    
  11404          <Node>
  11405           <Sub>
  11406            36
  11407           </Sub>
  11408                                         
  11409           <Node>
  11410            <Sub>
  11411             0
  11412            </Sub>
  11413                                               
  11414            <Data>
  11415             }
  11416            </Data>
  11417                                          
  11418           </Node>
  11419                                     
  11420          </Node>
  11421                                    
  11422          <Node>
  11423           <Sub>
  11424            37
  11425           </Sub>
  11426                                         
  11427           <Node>
  11428            <Sub>
  11429             0
  11430            </Sub>
  11431                                               
  11432            <Data>
  11433             ],
  11434            </Data>
  11435                                          
  11436           </Node>
  11437                                     
  11438          </Node>
  11439                                    
  11440          <Node>
  11441           <Sub>
  11442            38
  11443           </Sub>
  11444                                         
  11445           <Node>
  11446            <Sub>
  11447             0
  11448            </Sub>
  11449                                               
  11450            <Data>
  11451             &quot;tags &quot;: [
  11452            </Data>
  11453                                          
  11454           </Node>
  11455                                     
  11456          </Node>
  11457                                    
  11458          <Node>
  11459           <Sub>
  11460            39
  11461           </Sub>
  11462                                         
  11463           <Node>
  11464            <Sub>
  11465             0
  11466            </Sub>
  11467                                               
  11468            <Data>
  11469             &quot;RPCS &quot;,
  11470            </Data>
  11471                                          
  11472           </Node>
  11473                                     
  11474          </Node>
  11475                                    
  11476          <Node>
  11477           <Sub>
  11478            40
  11479           </Sub>
  11480                                         
  11481           <Node>
  11482            <Sub>
  11483             0
  11484            </Sub>
  11485                                               
  11486            <Data>
  11487             &quot;Rest ify&quot;
  11488            </Data>
  11489                                          
  11490           </Node>
  11491                                     
  11492          </Node>
  11493                                    
  11494          <Node>
  11495           <Sub>
  11496            41
  11497           </Sub>
  11498                                         
  11499           <Node>
  11500            <Sub>
  11501             0
  11502            </Sub>
  11503                                               
  11504            <Data>
  11505             ],
  11506            </Data>
  11507                                          
  11508           </Node>
  11509                                     
  11510          </Node>
  11511                                    
  11512          <Node>
  11513           <Sub>
  11514            42
  11515           </Sub>
  11516                                         
  11517           <Node>
  11518            <Sub>
  11519             0
  11520            </Sub>
  11521                                               
  11522            <Data>
  11523             &quot;resp onses&quot ;: {
  11524            </Data>
  11525                                          
  11526           </Node>
  11527                                     
  11528          </Node>
  11529                                    
  11530          <Node>
  11531           <Sub>
  11532            43
  11533           </Sub>
  11534                                         
  11535           <Node>
  11536            <Sub>
  11537             0
  11538            </Sub>
  11539                                               
  11540            <Data>
  11541             &quot;200& quot;: {
  11542            </Data>
  11543                                          
  11544           </Node>
  11545                                     
  11546          </Node>
  11547                                    
  11548          <Node>
  11549           <Sub>
  11550            44
  11551           </Sub>
  11552                                         
  11553           <Node>
  11554            <Sub>
  11555             0
  11556            </Sub>
  11557                                               
  11558            <Data>
  11559             <![CDATA[" descriptio n": "The p arameter Y  is an arr ay passed  by referen ce and wil l contain  a list ofp atients wh ose NAME o r IEN^NAME  match the  input val ue stored  in FROM.", ]]>
  11560            </Data>
  11561                                          
  11562           </Node>
  11563                                     
  11564          </Node>
  11565                                    
  11566          <Node>
  11567           <Sub>
  11568            45
  11569           </Sub>
  11570                                         
  11571           <Node>
  11572            <Sub>
  11573             0
  11574            </Sub>
  11575                                               
  11576            <Data>
  11577             &quot;sche ma&quot;:  {
  11578            </Data>
  11579                                          
  11580           </Node>
  11581                                     
  11582          </Node>
  11583                                    
  11584          <Node>
  11585           <Sub>
  11586            46
  11587           </Sub>
  11588                                         
  11589           <Node>
  11590            <Sub>
  11591             0
  11592            </Sub>
  11593                                               
  11594            <Data>
  11595             &quot;$ref &quot;: &q uot;#/defi nitions/AR RAY&quot;
  11596            </Data>
  11597                                          
  11598           </Node>
  11599                                     
  11600          </Node>
  11601                                    
  11602          <Node>
  11603           <Sub>
  11604            47
  11605           </Sub>
  11606                                         
  11607           <Node>
  11608            <Sub>
  11609             0
  11610            </Sub>
  11611                                               
  11612            <Data>
  11613             }
  11614            </Data>
  11615                                          
  11616           </Node>
  11617                                     
  11618          </Node>
  11619                                    
  11620          <Node>
  11621           <Sub>
  11622            48
  11623           </Sub>
  11624                                         
  11625           <Node>
  11626            <Sub>
  11627             0
  11628            </Sub>
  11629                                               
  11630            <Data>
  11631             }
  11632            </Data>
  11633                                          
  11634           </Node>
  11635                                     
  11636          </Node>
  11637                                    
  11638          <Node>
  11639           <Sub>
  11640            49
  11641           </Sub>
  11642                                         
  11643           <Node>
  11644            <Sub>
  11645             0
  11646            </Sub>
  11647                                               
  11648            <Data>
  11649             }
  11650            </Data>
  11651                                          
  11652           </Node>
  11653                                     
  11654          </Node>
  11655                                    
  11656          <Node>
  11657           <Sub>
  11658            50
  11659           </Sub>
  11660                                         
  11661           <Node>
  11662            <Sub>
  11663             0
  11664            </Sub>
  11665                                               
  11666            <Data>
  11667             }
  11668            </Data>
  11669                                          
  11670           </Node>
  11671                                     
  11672          </Node>
  11673                                    
  11674          <Node>
  11675           <Sub>
  11676            51
  11677           </Sub>
  11678                                         
  11679           <Node>
  11680            <Sub>
  11681             0
  11682            </Sub>
  11683                                               
  11684            <Data>
  11685             }
  11686            </Data>
  11687                                          
  11688           </Node>
  11689                                     
  11690          </Node>
  11691                                    
  11692          <Node>
  11693           <Sub>
  11694            52
  11695           </Sub>
  11696                                         
  11697           <Node>
  11698            <Sub>
  11699             0
  11700            </Sub>
  11701                                               
  11702            <Data>
  11703             },
  11704            </Data>
  11705                                          
  11706           </Node>
  11707                                     
  11708          </Node>
  11709                                    
  11710          <Node>
  11711           <Sub>
  11712            53
  11713           </Sub>
  11714                                         
  11715           <Node>
  11716            <Sub>
  11717             0
  11718            </Sub>
  11719                                               
  11720            <Data>
  11721             &quot;defi nitions&qu ot;: {
  11722            </Data>
  11723                                          
  11724           </Node>
  11725                                     
  11726          </Node>
  11727                                    
  11728          <Node>
  11729           <Sub>
  11730            54
  11731           </Sub>
  11732                                         
  11733           <Node>
  11734            <Sub>
  11735             0
  11736            </Sub>
  11737                                               
  11738            <Data>
  11739             &quot;ARRA Y&quot;: {
  11740            </Data>
  11741                                          
  11742           </Node>
  11743                                     
  11744          </Node>
  11745                                    
  11746          <Node>
  11747           <Sub>
  11748            55
  11749           </Sub>
  11750                                         
  11751           <Node>
  11752            <Sub>
  11753             0
  11754            </Sub>
  11755                                               
  11756            <Data>
  11757             &quot;type &quot;: &q uot;object &quot;
  11758            </Data>
  11759                                          
  11760           </Node>
  11761                                     
  11762          </Node>
  11763                                    
  11764          <Node>
  11765           <Sub>
  11766            56
  11767           </Sub>
  11768                                         
  11769           <Node>
  11770            <Sub>
  11771             0
  11772            </Sub>
  11773                                               
  11774            <Data>
  11775             },
  11776            </Data>
  11777                                          
  11778           </Node>
  11779                                     
  11780          </Node>
  11781                                    
  11782          <Node>
  11783           <Sub>
  11784            57
  11785           </Sub>
  11786                                         
  11787           <Node>
  11788            <Sub>
  11789             0
  11790            </Sub>
  11791                                               
  11792            <Data>
  11793             &quot;GLOB AL_ARRAY&q uot;: {
  11794            </Data>
  11795                                          
  11796           </Node>
  11797                                     
  11798          </Node>
  11799                                    
  11800          <Node>
  11801           <Sub>
  11802            58
  11803           </Sub>
  11804                                         
  11805           <Node>
  11806            <Sub>
  11807             0
  11808            </Sub>
  11809                                               
  11810            <Data>
  11811             &quot;type &quot;: &q uot;object &quot;
  11812            </Data>
  11813                                          
  11814           </Node>
  11815                                     
  11816          </Node>
  11817                                    
  11818          <Node>
  11819           <Sub>
  11820            59
  11821           </Sub>
  11822                                         
  11823           <Node>
  11824            <Sub>
  11825             0
  11826            </Sub>
  11827                                               
  11828            <Data>
  11829             },
  11830            </Data>
  11831                                          
  11832           </Node>
  11833                                     
  11834          </Node>
  11835                                    
  11836          <Node>
  11837           <Sub>
  11838            60
  11839           </Sub>
  11840                                         
  11841           <Node>
  11842            <Sub>
  11843             0
  11844            </Sub>
  11845                                               
  11846            <Data>
  11847             &quot;SING LE_VALUE&q uot;: {
  11848            </Data>
  11849                                          
  11850           </Node>
  11851                                     
  11852          </Node>
  11853                                    
  11854          <Node>
  11855           <Sub>
  11856            61
  11857           </Sub>
  11858                                         
  11859           <Node>
  11860            <Sub>
  11861             0
  11862            </Sub>
  11863                                               
  11864            <Data>
  11865             &quot;type &quot;: &q uot;string &quot;
  11866            </Data>
  11867                                          
  11868           </Node>
  11869                                     
  11870          </Node>
  11871                                    
  11872          <Node>
  11873           <Sub>
  11874            62
  11875           </Sub>
  11876                                         
  11877           <Node>
  11878            <Sub>
  11879             0
  11880            </Sub>
  11881                                               
  11882            <Data>
  11883             },
  11884            </Data>
  11885                                          
  11886           </Node>
  11887                                     
  11888          </Node>
  11889                                    
  11890          <Node>
  11891           <Sub>
  11892            63
  11893           </Sub>
  11894                                         
  11895           <Node>
  11896            <Sub>
  11897             0
  11898            </Sub>
  11899                                               
  11900            <Data>
  11901             &quot;GLOB AL_INSTANC E&quot;: {
  11902            </Data>
  11903                                          
  11904           </Node>
  11905                                     
  11906          </Node>
  11907                                    
  11908          <Node>
  11909           <Sub>
  11910            64
  11911           </Sub>
  11912                                         
  11913           <Node>
  11914            <Sub>
  11915             0
  11916            </Sub>
  11917                                               
  11918            <Data>
  11919             &quot;type &quot;: &q uot;string &quot;
  11920            </Data>
  11921                                          
  11922           </Node>
  11923                                     
  11924          </Node>
  11925                                    
  11926          <Node>
  11927           <Sub>
  11928            65
  11929           </Sub>
  11930                                         
  11931           <Node>
  11932            <Sub>
  11933             0
  11934            </Sub>
  11935                                               
  11936            <Data>
  11937             },
  11938            </Data>
  11939                                          
  11940           </Node>
  11941                                     
  11942          </Node>
  11943                                    
  11944          <Node>
  11945           <Sub>
  11946            66
  11947           </Sub>
  11948                                         
  11949           <Node>
  11950            <Sub>
  11951             0
  11952            </Sub>
  11953                                               
  11954            <Data>
  11955             &quot;WORD _PROCESSIN G&quot;: {
  11956            </Data>
  11957                                          
  11958           </Node>
  11959                                     
  11960          </Node>
  11961                                    
  11962          <Node>
  11963           <Sub>
  11964            67
  11965           </Sub>
  11966                                         
  11967           <Node>
  11968            <Sub>
  11969             0
  11970            </Sub>
  11971                                               
  11972            <Data>
  11973             &quot;type &quot;: &q uot;object &quot;
  11974            </Data>
  11975                                          
  11976           </Node>
  11977                                     
  11978          </Node>
  11979                                    
  11980          <Node>
  11981           <Sub>
  11982            68
  11983           </Sub>
  11984                                         
  11985           <Node>
  11986            <Sub>
  11987             0
  11988            </Sub>
  11989                                               
  11990            <Data>
  11991             },
  11992            </Data>
  11993                                          
  11994           </Node>
  11995                                     
  11996          </Node>
  11997                                    
  11998          <Node>
  11999           <Sub>
  12000            69
  12001           </Sub>
  12002                                         
  12003           <Node>
  12004            <Sub>
  12005             0
  12006            </Sub>
  12007                                               
  12008            <Data>
  12009             &quot;Erro r&quot;: {
  12010            </Data>
  12011                                          
  12012           </Node>
  12013                                     
  12014          </Node>
  12015                                    
  12016          <Node>
  12017           <Sub>
  12018            70
  12019           </Sub>
  12020                                         
  12021           <Node>
  12022            <Sub>
  12023             0
  12024            </Sub>
  12025                                               
  12026            <Data>
  12027             &quot;prop erties&quo t;: {
  12028            </Data>
  12029                                          
  12030           </Node>
  12031                                     
  12032          </Node>
  12033                                    
  12034          <Node>
  12035           <Sub>
  12036            71
  12037           </Sub>
  12038                                         
  12039           <Node>
  12040            <Sub>
  12041             0
  12042            </Sub>
  12043                                               
  12044            <Data>
  12045             &quot;erro r&quot;: {
  12046            </Data>
  12047                                          
  12048           </Node>
  12049                                     
  12050          </Node>
  12051                                    
  12052          <Node>
  12053           <Sub>
  12054            72
  12055           </Sub>
  12056                                         
  12057           <Node>
  12058            <Sub>
  12059             0
  12060            </Sub>
  12061                                               
  12062            <Data>
  12063             &quot;type &quot;: &q uot;string &quot;,
  12064            </Data>
  12065                                          
  12066           </Node>
  12067                                     
  12068          </Node>
  12069                                    
  12070          <Node>
  12071           <Sub>
  12072            73
  12073           </Sub>
  12074                                         
  12075           <Node>
  12076            <Sub>
  12077             0
  12078            </Sub>
  12079                                               
  12080            <Data>
  12081             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  12082            </Data>
  12083                                          
  12084           </Node>
  12085                                     
  12086          </Node>
  12087                                    
  12088          <Node>
  12089           <Sub>
  12090            74
  12091           </Sub>
  12092                                         
  12093           <Node>
  12094            <Sub>
  12095             0
  12096            </Sub>
  12097                                               
  12098            <Data>
  12099             },
  12100            </Data>
  12101                                          
  12102           </Node>
  12103                                     
  12104          </Node>
  12105                                    
  12106          <Node>
  12107           <Sub>
  12108            75
  12109           </Sub>
  12110                                         
  12111           <Node>
  12112            <Sub>
  12113             0
  12114            </Sub>
  12115                                               
  12116            <Data>
  12117             &quot;data &quot;: {
  12118            </Data>
  12119                                          
  12120           </Node>
  12121                                     
  12122          </Node>
  12123                                    
  12124          <Node>
  12125           <Sub>
  12126            76
  12127           </Sub>
  12128                                         
  12129           <Node>
  12130            <Sub>
  12131             0
  12132            </Sub>
  12133                                               
  12134            <Data>
  12135             &quot;type &quot;: &q uot;object &quot;,
  12136            </Data>
  12137                                          
  12138           </Node>
  12139                                     
  12140          </Node>
  12141                                    
  12142          <Node>
  12143           <Sub>
  12144            77
  12145           </Sub>
  12146                                         
  12147           <Node>
  12148            <Sub>
  12149             0
  12150            </Sub>
  12151                                               
  12152            <Data>
  12153             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  12154            </Data>
  12155                                          
  12156           </Node>
  12157                                     
  12158          </Node>
  12159                                    
  12160          <Node>
  12161           <Sub>
  12162            78
  12163           </Sub>
  12164                                         
  12165           <Node>
  12166            <Sub>
  12167             0
  12168            </Sub>
  12169                                               
  12170            <Data>
  12171             }
  12172            </Data>
  12173                                          
  12174           </Node>
  12175                                     
  12176          </Node>
  12177                                    
  12178          <Node>
  12179           <Sub>
  12180            79
  12181           </Sub>
  12182                                         
  12183           <Node>
  12184            <Sub>
  12185             0
  12186            </Sub>
  12187                                               
  12188            <Data>
  12189             }
  12190            </Data>
  12191                                          
  12192           </Node>
  12193                                     
  12194          </Node>
  12195                                    
  12196          <Node>
  12197           <Sub>
  12198            80
  12199           </Sub>
  12200                                         
  12201           <Node>
  12202            <Sub>
  12203             0
  12204            </Sub>
  12205                                               
  12206            <Data>
  12207             },
  12208            </Data>
  12209                                          
  12210           </Node>
  12211                                     
  12212          </Node>
  12213                                    
  12214          <Node>
  12215           <Sub>
  12216            81
  12217           </Sub>
  12218                                         
  12219           <Node>
  12220            <Sub>
  12221             0
  12222            </Sub>
  12223                                               
  12224            <Data>
  12225             &quot;RpcI d&quot;: {
  12226            </Data>
  12227                                          
  12228           </Node>
  12229                                     
  12230          </Node>
  12231                                    
  12232          <Node>
  12233           <Sub>
  12234            82
  12235           </Sub>
  12236                                         
  12237           <Node>
  12238            <Sub>
  12239             0
  12240            </Sub>
  12241                                               
  12242            <Data>
  12243             &quot;prop erties&quo t;: {
  12244            </Data>
  12245                                          
  12246           </Node>
  12247                                     
  12248          </Node>
  12249                                    
  12250          <Node>
  12251           <Sub>
  12252            83
  12253           </Sub>
  12254                                         
  12255           <Node>
  12256            <Sub>
  12257             0
  12258            </Sub>
  12259                                               
  12260            <Data>
  12261             &quot;id&q uot;: {
  12262            </Data>
  12263                                          
  12264           </Node>
  12265                                     
  12266          </Node>
  12267                                    
  12268          <Node>
  12269           <Sub>
  12270            84
  12271           </Sub>
  12272                                         
  12273           <Node>
  12274            <Sub>
  12275             0
  12276            </Sub>
  12277                                               
  12278            <Data>
  12279             &quot;type &quot;: &q uot;intege r&quot;,
  12280            </Data>
  12281                                          
  12282           </Node>
  12283                                     
  12284          </Node>
  12285                                    
  12286          <Node>
  12287           <Sub>
  12288            85
  12289           </Sub>
  12290                                         
  12291           <Node>
  12292            <Sub>
  12293             0
  12294            </Sub>
  12295                                               
  12296            <Data>
  12297             &quot;form at&quot;:  &quot;int3 2&quot;,
  12298            </Data>
  12299                                          
  12300           </Node>
  12301                                     
  12302          </Node>
  12303                                    
  12304          <Node>
  12305           <Sub>
  12306            86
  12307           </Sub>
  12308                                         
  12309           <Node>
  12310            <Sub>
  12311             0
  12312            </Sub>
  12313                                               
  12314            <Data>
  12315             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  12316            </Data>
  12317                                          
  12318           </Node>
  12319                                     
  12320          </Node>
  12321                                    
  12322          <Node>
  12323           <Sub>
  12324            87
  12325           </Sub>
  12326                                         
  12327           <Node>
  12328            <Sub>
  12329             0
  12330            </Sub>
  12331                                               
  12332            <Data>
  12333             },
  12334            </Data>
  12335                                          
  12336           </Node>
  12337                                     
  12338          </Node>
  12339                                    
  12340          <Node>
  12341           <Sub>
  12342            88
  12343           </Sub>
  12344                                         
  12345           <Node>
  12346            <Sub>
  12347             0
  12348            </Sub>
  12349                                               
  12350            <Data>
  12351             &quot;name &quot;: {
  12352            </Data>
  12353                                          
  12354           </Node>
  12355                                     
  12356          </Node>
  12357                                    
  12358          <Node>
  12359           <Sub>
  12360            89
  12361           </Sub>
  12362                                         
  12363           <Node>
  12364            <Sub>
  12365             0
  12366            </Sub>
  12367                                               
  12368            <Data>
  12369             &quot;type &quot;: &q uot;string &quot;,
  12370            </Data>
  12371                                          
  12372           </Node>
  12373                                     
  12374          </Node>
  12375                                    
  12376          <Node>
  12377           <Sub>
  12378            90
  12379           </Sub>
  12380                                         
  12381           <Node>
  12382            <Sub>
  12383             0
  12384            </Sub>
  12385                                               
  12386            <Data>
  12387             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  12388            </Data>
  12389                                          
  12390           </Node>
  12391                                     
  12392          </Node>
  12393                                    
  12394          <Node>
  12395           <Sub>
  12396            91
  12397           </Sub>
  12398                                         
  12399           <Node>
  12400            <Sub>
  12401             0
  12402            </Sub>
  12403                                               
  12404            <Data>
  12405             }
  12406            </Data>
  12407                                          
  12408           </Node>
  12409                                     
  12410          </Node>
  12411                                    
  12412          <Node>
  12413           <Sub>
  12414            92
  12415           </Sub>
  12416                                         
  12417           <Node>
  12418            <Sub>
  12419             0
  12420            </Sub>
  12421                                               
  12422            <Data>
  12423             }
  12424            </Data>
  12425                                          
  12426           </Node>
  12427                                     
  12428          </Node>
  12429                                    
  12430          <Node>
  12431           <Sub>
  12432            93
  12433           </Sub>
  12434                                         
  12435           <Node>
  12436            <Sub>
  12437             0
  12438            </Sub>
  12439                                               
  12440            <Data>
  12441             },
  12442            </Data>
  12443                                          
  12444           </Node>
  12445                                     
  12446          </Node>
  12447                                    
  12448          <Node>
  12449           <Sub>
  12450            94
  12451           </Sub>
  12452                                         
  12453           <Node>
  12454            <Sub>
  12455             0
  12456            </Sub>
  12457                                               
  12458            <Data>
  12459             &quot;Swag gerDefinit ion&quot;:  {},
  12460            </Data>
  12461                                          
  12462           </Node>
  12463                                     
  12464          </Node>
  12465                                    
  12466          <Node>
  12467           <Sub>
  12468            95
  12469           </Sub>
  12470                                         
  12471           <Node>
  12472            <Sub>
  12473             0
  12474            </Sub>
  12475                                               
  12476            <Data>
  12477             &quot;Path &quot;: {}
  12478            </Data>
  12479                                          
  12480           </Node>
  12481                                     
  12482          </Node>
  12483                                    
  12484          <Node>
  12485           <Sub>
  12486            96
  12487           </Sub>
  12488                                         
  12489           <Node>
  12490            <Sub>
  12491             0
  12492            </Sub>
  12493                                               
  12494            <Data>
  12495             }
  12496            </Data>
  12497                                          
  12498           </Node>
  12499                                     
  12500          </Node>
  12501                                    
  12502          <Node>
  12503           <Sub>
  12504            97
  12505           </Sub>
  12506                                         
  12507           <Node>
  12508            <Sub>
  12509             0
  12510            </Sub>
  12511                                               
  12512            <Data>
  12513             }
  12514            </Data>
  12515                                          
  12516           </Node>
  12517                                     
  12518          </Node>
  12519                               
  12520         </Node>
  12521                          
  12522        </Node>
  12523                         
  12524        <Node>
  12525         <Sub>
  12526          5
  12527         </Sub>
  12528                              
  12529         <Node>
  12530          <Sub>
  12531           0
  12532          </Sub>
  12533                                    
  12534          <Data>
  12535           VPS LAST5
  12536          </Data>
  12537                               
  12538         </Node>
  12539                              
  12540         <Node>
  12541          <Sub>
  12542           DEF
  12543          </Sub>
  12544                                    
  12545          <Node>
  12546           <Sub>
  12547            0
  12548           </Sub>
  12549                                         
  12550           <Data>
  12551            ^^90^90^31 60408
  12552           </Data>
  12553                                     
  12554          </Node>
  12555                                    
  12556          <Node>
  12557           <Sub>
  12558            1
  12559           </Sub>
  12560                                         
  12561           <Node>
  12562            <Sub>
  12563             0
  12564            </Sub>
  12565                                               
  12566            <Data>
  12567             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  12568            </Data>
  12569                                          
  12570           </Node>
  12571                                     
  12572          </Node>
  12573                                    
  12574          <Node>
  12575           <Sub>
  12576            2
  12577           </Sub>
  12578                                         
  12579           <Node>
  12580            <Sub>
  12581             0
  12582            </Sub>
  12583                                               
  12584            <Data>
  12585             &quot;info &quot;: {
  12586            </Data>
  12587                                          
  12588           </Node>
  12589                                     
  12590          </Node>
  12591                                    
  12592          <Node>
  12593           <Sub>
  12594            3
  12595           </Sub>
  12596                                         
  12597           <Node>
  12598            <Sub>
  12599             0
  12600            </Sub>
  12601                                               
  12602            <Data>
  12603             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  12604            </Data>
  12605                                          
  12606           </Node>
  12607                                     
  12608          </Node>
  12609                                    
  12610          <Node>
  12611           <Sub>
  12612            4
  12613           </Sub>
  12614                                         
  12615           <Node>
  12616            <Sub>
  12617             0
  12618            </Sub>
  12619                                               
  12620            <Data>
  12621             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  12622            </Data>
  12623                                          
  12624           </Node>
  12625                                     
  12626          </Node>
  12627                                    
  12628          <Node>
  12629           <Sub>
  12630            5
  12631           </Sub>
  12632                                         
  12633           <Node>
  12634            <Sub>
  12635             0
  12636            </Sub>
  12637                                               
  12638            <Data>
  12639             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  12640            </Data>
  12641                                          
  12642           </Node>
  12643                                     
  12644          </Node>
  12645                                    
  12646          <Node>
  12647           <Sub>
  12648            6
  12649           </Sub>
  12650                                         
  12651           <Node>
  12652            <Sub>
  12653             0
  12654            </Sub>
  12655                                               
  12656            <Data>
  12657             },
  12658            </Data>
  12659                                          
  12660           </Node>
  12661                                     
  12662          </Node>
  12663                                    
  12664          <Node>
  12665           <Sub>
  12666            7
  12667           </Sub>
  12668                                         
  12669           <Node>
  12670            <Sub>
  12671             0
  12672            </Sub>
  12673                                               
  12674            <Data>
  12675             &quot;sche mes&quot;:  [
  12676            </Data>
  12677                                          
  12678           </Node>
  12679                                     
  12680          </Node>
  12681                                    
  12682          <Node>
  12683           <Sub>
  12684            8
  12685           </Sub>
  12686                                         
  12687           <Node>
  12688            <Sub>
  12689             0
  12690            </Sub>
  12691                                               
  12692            <Data>
  12693             &quot;http s&quot;
  12694            </Data>
  12695                                          
  12696           </Node>
  12697                                     
  12698          </Node>
  12699                                    
  12700          <Node>
  12701           <Sub>
  12702            9
  12703           </Sub>
  12704                                         
  12705           <Node>
  12706            <Sub>
  12707             0
  12708            </Sub>
  12709                                               
  12710            <Data>
  12711             ],
  12712            </Data>
  12713                                          
  12714           </Node>
  12715                                     
  12716          </Node>
  12717                                    
  12718          <Node>
  12719           <Sub>
  12720            10
  12721           </Sub>
  12722                                         
  12723           <Node>
  12724            <Sub>
  12725             0
  12726            </Sub>
  12727                                               
  12728            <Data>
  12729             &quot;base Path&quot; : &quot;/r pcs&quot;,
  12730            </Data>
  12731                                          
  12732           </Node>
  12733                                     
  12734          </Node>
  12735                                    
  12736          <Node>
  12737           <Sub>
  12738            11
  12739           </Sub>
  12740                                         
  12741           <Node>
  12742            <Sub>
  12743             0
  12744            </Sub>
  12745                                               
  12746            <Data>
  12747             &quot;prod uces&quot; : [
  12748            </Data>
  12749                                          
  12750           </Node>
  12751                                     
  12752          </Node>
  12753                                    
  12754          <Node>
  12755           <Sub>
  12756            12
  12757           </Sub>
  12758                                         
  12759           <Node>
  12760            <Sub>
  12761             0
  12762            </Sub>
  12763                                               
  12764            <Data>
  12765             &quot;appl ication/js on&quot;
  12766            </Data>
  12767                                          
  12768           </Node>
  12769                                     
  12770          </Node>
  12771                                    
  12772          <Node>
  12773           <Sub>
  12774            13
  12775           </Sub>
  12776                                         
  12777           <Node>
  12778            <Sub>
  12779             0
  12780            </Sub>
  12781                                               
  12782            <Data>
  12783             ],
  12784            </Data>
  12785                                          
  12786           </Node>
  12787                                     
  12788          </Node>
  12789                                    
  12790          <Node>
  12791           <Sub>
  12792            14
  12793           </Sub>
  12794                                         
  12795           <Node>
  12796            <Sub>
  12797             0
  12798            </Sub>
  12799                                               
  12800            <Data>
  12801             &quot;path s&quot;: {
  12802            </Data>
  12803                                          
  12804           </Node>
  12805                                     
  12806          </Node>
  12807                                    
  12808          <Node>
  12809           <Sub>
  12810            15
  12811           </Sub>
  12812                                         
  12813           <Node>
  12814            <Sub>
  12815             0
  12816            </Sub>
  12817                                               
  12818            <Data>
  12819             &quot;/by- name/vps%2 0last5/cal l&quot;: {
  12820            </Data>
  12821                                          
  12822           </Node>
  12823                                     
  12824          </Node>
  12825                                    
  12826          <Node>
  12827           <Sub>
  12828            16
  12829           </Sub>
  12830                                         
  12831           <Node>
  12832            <Sub>
  12833             0
  12834            </Sub>
  12835                                               
  12836            <Data>
  12837             &quot;post &quot;: {
  12838            </Data>
  12839                                          
  12840           </Node>
  12841                                     
  12842          </Node>
  12843                                    
  12844          <Node>
  12845           <Sub>
  12846            17
  12847           </Sub>
  12848                                         
  12849           <Node>
  12850            <Sub>
  12851             0
  12852            </Sub>
  12853                                               
  12854            <Data>
  12855             &quot;summ ary&quot;:  &quot;LAS T5^VPSRPC5 (.tRESULT, VPSID)&quo t;,
  12856            </Data>
  12857                                          
  12858           </Node>
  12859                                     
  12860          </Node>
  12861                                    
  12862          <Node>
  12863           <Sub>
  12864            18
  12865           </Sub>
  12866                                         
  12867           <Node>
  12868            <Sub>
  12869             0
  12870            </Sub>
  12871                                               
  12872            <Data>
  12873             <![CDATA[" descriptio n": " Retu rns a list  of patien ts matchin g LastName Initial_La st4SSN bas ed onRestr icted Pati ent List." ,]]>
  12874            </Data>
  12875                                          
  12876           </Node>
  12877                                     
  12878          </Node>
  12879                                    
  12880          <Node>
  12881           <Sub>
  12882            19
  12883           </Sub>
  12884                                         
  12885           <Node>
  12886            <Sub>
  12887             0
  12888            </Sub>
  12889                                               
  12890            <Data>
  12891             &quot;prod uces&quot; : [
  12892            </Data>
  12893                                          
  12894           </Node>
  12895                                     
  12896          </Node>
  12897                                    
  12898          <Node>
  12899           <Sub>
  12900            20
  12901           </Sub>
  12902                                         
  12903           <Node>
  12904            <Sub>
  12905             0
  12906            </Sub>
  12907                                               
  12908            <Data>
  12909             &quot;appl ication/js on&quot;
  12910            </Data>
  12911                                          
  12912           </Node>
  12913                                     
  12914          </Node>
  12915                                    
  12916          <Node>
  12917           <Sub>
  12918            21
  12919           </Sub>
  12920                                         
  12921           <Node>
  12922            <Sub>
  12923             0
  12924            </Sub>
  12925                                               
  12926            <Data>
  12927             ],
  12928            </Data>
  12929                                          
  12930           </Node>
  12931                                     
  12932          </Node>
  12933                                    
  12934          <Node>
  12935           <Sub>
  12936            22
  12937           </Sub>
  12938                                         
  12939           <Node>
  12940            <Sub>
  12941             0
  12942            </Sub>
  12943                                               
  12944            <Data>
  12945             &quot;para meters&quo t;: [
  12946            </Data>
  12947                                          
  12948           </Node>
  12949                                     
  12950          </Node>
  12951                                    
  12952          <Node>
  12953           <Sub>
  12954            23
  12955           </Sub>
  12956                                         
  12957           <Node>
  12958            <Sub>
  12959             0
  12960            </Sub>
  12961                                               
  12962            <Data>
  12963             {
  12964            </Data>
  12965                                          
  12966           </Node>
  12967                                     
  12968          </Node>
  12969                                    
  12970          <Node>
  12971           <Sub>
  12972            24
  12973           </Sub>
  12974                                         
  12975           <Node>
  12976            <Sub>
  12977             0
  12978            </Sub>
  12979                                               
  12980            <Data>
  12981             &quot;name &quot;: &q uot;VPSID& quot;,
  12982            </Data>
  12983                                          
  12984           </Node>
  12985                                     
  12986          </Node>
  12987                                    
  12988          <Node>
  12989           <Sub>
  12990            25
  12991           </Sub>
  12992                                         
  12993           <Node>
  12994            <Sub>
  12995             0
  12996            </Sub>
  12997                                               
  12998            <Data>
  12999             <![CDATA[" descriptio n": "Strin g literal  containing  patient's  last name  initial a nd last 4- digits oft he SSN i.e ., \"T9999 \". [Filem an Type: L ITERAL]",] ]>
  13000            </Data>
  13001                                          
  13002           </Node>
  13003                                     
  13004          </Node>
  13005                                    
  13006          <Node>
  13007           <Sub>
  13008            26
  13009           </Sub>
  13010                                         
  13011           <Node>
  13012            <Sub>
  13013             0
  13014            </Sub>
  13015                                               
  13016            <Data>
  13017             &quot;in&q uot;: &quo t;formData &quot;,
  13018            </Data>
  13019                                          
  13020           </Node>
  13021                                     
  13022          </Node>
  13023                                    
  13024          <Node>
  13025           <Sub>
  13026            27
  13027           </Sub>
  13028                                         
  13029           <Node>
  13030            <Sub>
  13031             0
  13032            </Sub>
  13033                                               
  13034            <Data>
  13035             &quot;type &quot;: &q uot;string &quot;,
  13036            </Data>
  13037                                          
  13038           </Node>
  13039                                     
  13040          </Node>
  13041                                    
  13042          <Node>
  13043           <Sub>
  13044            28
  13045           </Sub>
  13046                                         
  13047           <Node>
  13048            <Sub>
  13049             0
  13050            </Sub>
  13051                                               
  13052            <Data>
  13053             &quot;requ ired&quot; : true
  13054            </Data>
  13055                                          
  13056           </Node>
  13057                                     
  13058          </Node>
  13059                                    
  13060          <Node>
  13061           <Sub>
  13062            29
  13063           </Sub>
  13064                                         
  13065           <Node>
  13066            <Sub>
  13067             0
  13068            </Sub>
  13069                                               
  13070            <Data>
  13071             }
  13072            </Data>
  13073                                          
  13074           </Node>
  13075                                     
  13076          </Node>
  13077                                    
  13078          <Node>
  13079           <Sub>
  13080            30
  13081           </Sub>
  13082                                         
  13083           <Node>
  13084            <Sub>
  13085             0
  13086            </Sub>
  13087                                               
  13088            <Data>
  13089             ],
  13090            </Data>
  13091                                          
  13092           </Node>
  13093                                     
  13094          </Node>
  13095                                    
  13096          <Node>
  13097           <Sub>
  13098            31
  13099           </Sub>
  13100                                         
  13101           <Node>
  13102            <Sub>
  13103             0
  13104            </Sub>
  13105                                               
  13106            <Data>
  13107             &quot;tags &quot;: [
  13108            </Data>
  13109                                          
  13110           </Node>
  13111                                     
  13112          </Node>
  13113                                    
  13114          <Node>
  13115           <Sub>
  13116            32
  13117           </Sub>
  13118                                         
  13119           <Node>
  13120            <Sub>
  13121             0
  13122            </Sub>
  13123                                               
  13124            <Data>
  13125             &quot;RPCS &quot;,
  13126            </Data>
  13127                                          
  13128           </Node>
  13129                                     
  13130          </Node>
  13131                                    
  13132          <Node>
  13133           <Sub>
  13134            33
  13135           </Sub>
  13136                                         
  13137           <Node>
  13138            <Sub>
  13139             0
  13140            </Sub>
  13141                                               
  13142            <Data>
  13143             &quot;Rest ify&quot;
  13144            </Data>
  13145                                          
  13146           </Node>
  13147                                     
  13148          </Node>
  13149                                    
  13150          <Node>
  13151           <Sub>
  13152            34
  13153           </Sub>
  13154                                         
  13155           <Node>
  13156            <Sub>
  13157             0
  13158            </Sub>
  13159                                               
  13160            <Data>
  13161             ],
  13162            </Data>
  13163                                          
  13164           </Node>
  13165                                     
  13166          </Node>
  13167                                    
  13168          <Node>
  13169           <Sub>
  13170            35
  13171           </Sub>
  13172                                         
  13173           <Node>
  13174            <Sub>
  13175             0
  13176            </Sub>
  13177                                               
  13178            <Data>
  13179             &quot;resp onses&quot ;: {
  13180            </Data>
  13181                                          
  13182           </Node>
  13183                                     
  13184          </Node>
  13185                                    
  13186          <Node>
  13187           <Sub>
  13188            36
  13189           </Sub>
  13190                                         
  13191           <Node>
  13192            <Sub>
  13193             0
  13194            </Sub>
  13195                                               
  13196            <Data>
  13197             &quot;200& quot;: {
  13198            </Data>
  13199                                          
  13200           </Node>
  13201                                     
  13202          </Node>
  13203                                    
  13204          <Node>
  13205           <Sub>
  13206            37
  13207           </Sub>
  13208                                         
  13209           <Node>
  13210            <Sub>
  13211             0
  13212            </Sub>
  13213                                               
  13214            <Data>
  13215             <![CDATA[" descriptio n": "LIST  is an arra y, passed  by referen ce, contai ning patie nts with l ast namein itial and  last 4-dig its that m atch the i nput param eter, ID,  value. Eac helement o f list wil l contain  the IEN^FU LLNAME^DOB ^SSN.",]]>
  13216            </Data>
  13217                                          
  13218           </Node>
  13219                                     
  13220          </Node>
  13221                                    
  13222          <Node>
  13223           <Sub>
  13224            38
  13225           </Sub>
  13226                                         
  13227           <Node>
  13228            <Sub>
  13229             0
  13230            </Sub>
  13231                                               
  13232            <Data>
  13233             &quot;sche ma&quot;:  {
  13234            </Data>
  13235                                          
  13236           </Node>
  13237                                     
  13238          </Node>
  13239                                    
  13240          <Node>
  13241           <Sub>
  13242            39
  13243           </Sub>
  13244                                         
  13245           <Node>
  13246            <Sub>
  13247             0
  13248            </Sub>
  13249                                               
  13250            <Data>
  13251             &quot;$ref &quot;: &q uot;#/defi nitions/AR RAY&quot;
  13252            </Data>
  13253                                          
  13254           </Node>
  13255                                     
  13256          </Node>
  13257                                    
  13258          <Node>
  13259           <Sub>
  13260            40
  13261           </Sub>
  13262                                         
  13263           <Node>
  13264            <Sub>
  13265             0
  13266            </Sub>
  13267                                               
  13268            <Data>
  13269             }
  13270            </Data>
  13271                                          
  13272           </Node>
  13273                                     
  13274          </Node>
  13275                                    
  13276          <Node>
  13277           <Sub>
  13278            41
  13279           </Sub>
  13280                                         
  13281           <Node>
  13282            <Sub>
  13283             0
  13284            </Sub>
  13285                                               
  13286            <Data>
  13287             }
  13288            </Data>
  13289                                          
  13290           </Node>
  13291                                     
  13292          </Node>
  13293                                    
  13294          <Node>
  13295           <Sub>
  13296            42
  13297           </Sub>
  13298                                         
  13299           <Node>
  13300            <Sub>
  13301             0
  13302            </Sub>
  13303                                               
  13304            <Data>
  13305             }
  13306            </Data>
  13307                                          
  13308           </Node>
  13309                                     
  13310          </Node>
  13311                                    
  13312          <Node>
  13313           <Sub>
  13314            43
  13315           </Sub>
  13316                                         
  13317           <Node>
  13318            <Sub>
  13319             0
  13320            </Sub>
  13321                                               
  13322            <Data>
  13323             }
  13324            </Data>
  13325                                          
  13326           </Node>
  13327                                     
  13328          </Node>
  13329                                    
  13330          <Node>
  13331           <Sub>
  13332            44
  13333           </Sub>
  13334                                         
  13335           <Node>
  13336            <Sub>
  13337             0
  13338            </Sub>
  13339                                               
  13340            <Data>
  13341             }
  13342            </Data>
  13343                                          
  13344           </Node>
  13345                                     
  13346          </Node>
  13347                                    
  13348          <Node>
  13349           <Sub>
  13350            45
  13351           </Sub>
  13352                                         
  13353           <Node>
  13354            <Sub>
  13355             0
  13356            </Sub>
  13357                                               
  13358            <Data>
  13359             },
  13360            </Data>
  13361                                          
  13362           </Node>
  13363                                     
  13364          </Node>
  13365                                    
  13366          <Node>
  13367           <Sub>
  13368            46
  13369           </Sub>
  13370                                         
  13371           <Node>
  13372            <Sub>
  13373             0
  13374            </Sub>
  13375                                               
  13376            <Data>
  13377             &quot;defi nitions&qu ot;: {
  13378            </Data>
  13379                                          
  13380           </Node>
  13381                                     
  13382          </Node>
  13383                                    
  13384          <Node>
  13385           <Sub>
  13386            47
  13387           </Sub>
  13388                                         
  13389           <Node>
  13390            <Sub>
  13391             0
  13392            </Sub>
  13393                                               
  13394            <Data>
  13395             &quot;ARRA Y&quot;: {
  13396            </Data>
  13397                                          
  13398           </Node>
  13399                                     
  13400          </Node>
  13401                                    
  13402          <Node>
  13403           <Sub>
  13404            48
  13405           </Sub>
  13406                                         
  13407           <Node>
  13408            <Sub>
  13409             0
  13410            </Sub>
  13411                                               
  13412            <Data>
  13413             &quot;type &quot;: &q uot;object &quot;
  13414            </Data>
  13415                                          
  13416           </Node>
  13417                                     
  13418          </Node>
  13419                                    
  13420          <Node>
  13421           <Sub>
  13422            49
  13423           </Sub>
  13424                                         
  13425           <Node>
  13426            <Sub>
  13427             0
  13428            </Sub>
  13429                                               
  13430            <Data>
  13431             },
  13432            </Data>
  13433                                          
  13434           </Node>
  13435                                     
  13436          </Node>
  13437                                    
  13438          <Node>
  13439           <Sub>
  13440            50
  13441           </Sub>
  13442                                         
  13443           <Node>
  13444            <Sub>
  13445             0
  13446            </Sub>
  13447                                               
  13448            <Data>
  13449             &quot;GLOB AL_ARRAY&q uot;: {
  13450            </Data>
  13451                                          
  13452           </Node>
  13453                                     
  13454          </Node>
  13455                                    
  13456          <Node>
  13457           <Sub>
  13458            51
  13459           </Sub>
  13460                                         
  13461           <Node>
  13462            <Sub>
  13463             0
  13464            </Sub>
  13465                                               
  13466            <Data>
  13467             &quot;type &quot;: &q uot;object &quot;
  13468            </Data>
  13469                                          
  13470           </Node>
  13471                                     
  13472          </Node>
  13473                                    
  13474          <Node>
  13475           <Sub>
  13476            52
  13477           </Sub>
  13478                                         
  13479           <Node>
  13480            <Sub>
  13481             0
  13482            </Sub>
  13483                                               
  13484            <Data>
  13485             },
  13486            </Data>
  13487                                          
  13488           </Node>
  13489                                     
  13490          </Node>
  13491                                    
  13492          <Node>
  13493           <Sub>
  13494            53
  13495           </Sub>
  13496                                         
  13497           <Node>
  13498            <Sub>
  13499             0
  13500            </Sub>
  13501                                               
  13502            <Data>
  13503             &quot;SING LE_VALUE&q uot;: {
  13504            </Data>
  13505                                          
  13506           </Node>
  13507                                     
  13508          </Node>
  13509                                    
  13510          <Node>
  13511           <Sub>
  13512            54
  13513           </Sub>
  13514                                         
  13515           <Node>
  13516            <Sub>
  13517             0
  13518            </Sub>
  13519                                               
  13520            <Data>
  13521             &quot;type &quot;: &q uot;string &quot;
  13522            </Data>
  13523                                          
  13524           </Node>
  13525                                     
  13526          </Node>
  13527                                    
  13528          <Node>
  13529           <Sub>
  13530            55
  13531           </Sub>
  13532                                         
  13533           <Node>
  13534            <Sub>
  13535             0
  13536            </Sub>
  13537                                               
  13538            <Data>
  13539             },
  13540            </Data>
  13541                                          
  13542           </Node>
  13543                                     
  13544          </Node>
  13545                                    
  13546          <Node>
  13547           <Sub>
  13548            56
  13549           </Sub>
  13550                                         
  13551           <Node>
  13552            <Sub>
  13553             0
  13554            </Sub>
  13555                                               
  13556            <Data>
  13557             &quot;GLOB AL_INSTANC E&quot;: {
  13558            </Data>
  13559                                          
  13560           </Node>
  13561                                     
  13562          </Node>
  13563                                    
  13564          <Node>
  13565           <Sub>
  13566            57
  13567           </Sub>
  13568                                         
  13569           <Node>
  13570            <Sub>
  13571             0
  13572            </Sub>
  13573                                               
  13574            <Data>
  13575             &quot;type &quot;: &q uot;string &quot;
  13576            </Data>
  13577                                          
  13578           </Node>
  13579                                     
  13580          </Node>
  13581                                    
  13582          <Node>
  13583           <Sub>
  13584            58
  13585           </Sub>
  13586                                         
  13587           <Node>
  13588            <Sub>
  13589             0
  13590            </Sub>
  13591                                               
  13592            <Data>
  13593             },
  13594            </Data>
  13595                                          
  13596           </Node>
  13597                                     
  13598          </Node>
  13599                                    
  13600          <Node>
  13601           <Sub>
  13602            59
  13603           </Sub>
  13604                                         
  13605           <Node>
  13606            <Sub>
  13607             0
  13608            </Sub>
  13609                                               
  13610            <Data>
  13611             &quot;WORD _PROCESSIN G&quot;: {
  13612            </Data>
  13613                                          
  13614           </Node>
  13615                                     
  13616          </Node>
  13617                                    
  13618          <Node>
  13619           <Sub>
  13620            60
  13621           </Sub>
  13622                                         
  13623           <Node>
  13624            <Sub>
  13625             0
  13626            </Sub>
  13627                                               
  13628            <Data>
  13629             &quot;type &quot;: &q uot;object &quot;
  13630            </Data>
  13631                                          
  13632           </Node>
  13633                                     
  13634          </Node>
  13635                                    
  13636          <Node>
  13637           <Sub>
  13638            61
  13639           </Sub>
  13640                                         
  13641           <Node>
  13642            <Sub>
  13643             0
  13644            </Sub>
  13645                                               
  13646            <Data>
  13647             },
  13648            </Data>
  13649                                          
  13650           </Node>
  13651                                     
  13652          </Node>
  13653                                    
  13654          <Node>
  13655           <Sub>
  13656            62
  13657           </Sub>
  13658                                         
  13659           <Node>
  13660            <Sub>
  13661             0
  13662            </Sub>
  13663                                               
  13664            <Data>
  13665             &quot;Erro r&quot;: {
  13666            </Data>
  13667                                          
  13668           </Node>
  13669                                     
  13670          </Node>
  13671                                    
  13672          <Node>
  13673           <Sub>
  13674            63
  13675           </Sub>
  13676                                         
  13677           <Node>
  13678            <Sub>
  13679             0
  13680            </Sub>
  13681                                               
  13682            <Data>
  13683             &quot;prop erties&quo t;: {
  13684            </Data>
  13685                                          
  13686           </Node>
  13687                                     
  13688          </Node>
  13689                                    
  13690          <Node>
  13691           <Sub>
  13692            64
  13693           </Sub>
  13694                                         
  13695           <Node>
  13696            <Sub>
  13697             0
  13698            </Sub>
  13699                                               
  13700            <Data>
  13701             &quot;erro r&quot;: {
  13702            </Data>
  13703                                          
  13704           </Node>
  13705                                     
  13706          </Node>
  13707                                    
  13708          <Node>
  13709           <Sub>
  13710            65
  13711           </Sub>
  13712                                         
  13713           <Node>
  13714            <Sub>
  13715             0
  13716            </Sub>
  13717                                               
  13718            <Data>
  13719             &quot;type &quot;: &q uot;string &quot;,
  13720            </Data>
  13721                                          
  13722           </Node>
  13723                                     
  13724          </Node>
  13725                                    
  13726          <Node>
  13727           <Sub>
  13728            66
  13729           </Sub>
  13730                                         
  13731           <Node>
  13732            <Sub>
  13733             0
  13734            </Sub>
  13735                                               
  13736            <Data>
  13737             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  13738            </Data>
  13739                                          
  13740           </Node>
  13741                                     
  13742          </Node>
  13743                                    
  13744          <Node>
  13745           <Sub>
  13746            67
  13747           </Sub>
  13748                                         
  13749           <Node>
  13750            <Sub>
  13751             0
  13752            </Sub>
  13753                                               
  13754            <Data>
  13755             },
  13756            </Data>
  13757                                          
  13758           </Node>
  13759                                     
  13760          </Node>
  13761                                    
  13762          <Node>
  13763           <Sub>
  13764            68
  13765           </Sub>
  13766                                         
  13767           <Node>
  13768            <Sub>
  13769             0
  13770            </Sub>
  13771                                               
  13772            <Data>
  13773             &quot;data &quot;: {
  13774            </Data>
  13775                                          
  13776           </Node>
  13777                                     
  13778          </Node>
  13779                                    
  13780          <Node>
  13781           <Sub>
  13782            69
  13783           </Sub>
  13784                                         
  13785           <Node>
  13786            <Sub>
  13787             0
  13788            </Sub>
  13789                                               
  13790            <Data>
  13791             &quot;type &quot;: &q uot;object &quot;,
  13792            </Data>
  13793                                          
  13794           </Node>
  13795                                     
  13796          </Node>
  13797                                    
  13798          <Node>
  13799           <Sub>
  13800            70
  13801           </Sub>
  13802                                         
  13803           <Node>
  13804            <Sub>
  13805             0
  13806            </Sub>
  13807                                               
  13808            <Data>
  13809             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  13810            </Data>
  13811                                          
  13812           </Node>
  13813                                     
  13814          </Node>
  13815                                    
  13816          <Node>
  13817           <Sub>
  13818            71
  13819           </Sub>
  13820                                         
  13821           <Node>
  13822            <Sub>
  13823             0
  13824            </Sub>
  13825                                               
  13826            <Data>
  13827             }
  13828            </Data>
  13829                                          
  13830           </Node>
  13831                                     
  13832          </Node>
  13833                                    
  13834          <Node>
  13835           <Sub>
  13836            72
  13837           </Sub>
  13838                                         
  13839           <Node>
  13840            <Sub>
  13841             0
  13842            </Sub>
  13843                                               
  13844            <Data>
  13845             }
  13846            </Data>
  13847                                          
  13848           </Node>
  13849                                     
  13850          </Node>
  13851                                    
  13852          <Node>
  13853           <Sub>
  13854            73
  13855           </Sub>
  13856                                         
  13857           <Node>
  13858            <Sub>
  13859             0
  13860            </Sub>
  13861                                               
  13862            <Data>
  13863             },
  13864            </Data>
  13865                                          
  13866           </Node>
  13867                                     
  13868          </Node>
  13869                                    
  13870          <Node>
  13871           <Sub>
  13872            74
  13873           </Sub>
  13874                                         
  13875           <Node>
  13876            <Sub>
  13877             0
  13878            </Sub>
  13879                                               
  13880            <Data>
  13881             &quot;RpcI d&quot;: {
  13882            </Data>
  13883                                          
  13884           </Node>
  13885                                     
  13886          </Node>
  13887                                    
  13888          <Node>
  13889           <Sub>
  13890            75
  13891           </Sub>
  13892                                         
  13893           <Node>
  13894            <Sub>
  13895             0
  13896            </Sub>
  13897                                               
  13898            <Data>
  13899             &quot;prop erties&quo t;: {
  13900            </Data>
  13901                                          
  13902           </Node>
  13903                                     
  13904          </Node>
  13905                                    
  13906          <Node>
  13907           <Sub>
  13908            76
  13909           </Sub>
  13910                                         
  13911           <Node>
  13912            <Sub>
  13913             0
  13914            </Sub>
  13915                                               
  13916            <Data>
  13917             &quot;id&q uot;: {
  13918            </Data>
  13919                                          
  13920           </Node>
  13921                                     
  13922          </Node>
  13923                                    
  13924          <Node>
  13925           <Sub>
  13926            77
  13927           </Sub>
  13928                                         
  13929           <Node>
  13930            <Sub>
  13931             0
  13932            </Sub>
  13933                                               
  13934            <Data>
  13935             &quot;type &quot;: &q uot;intege r&quot;,
  13936            </Data>
  13937                                          
  13938           </Node>
  13939                                     
  13940          </Node>
  13941                                    
  13942          <Node>
  13943           <Sub>
  13944            78
  13945           </Sub>
  13946                                         
  13947           <Node>
  13948            <Sub>
  13949             0
  13950            </Sub>
  13951                                               
  13952            <Data>
  13953             &quot;form at&quot;:  &quot;int3 2&quot;,
  13954            </Data>
  13955                                          
  13956           </Node>
  13957                                     
  13958          </Node>
  13959                                    
  13960          <Node>
  13961           <Sub>
  13962            79
  13963           </Sub>
  13964                                         
  13965           <Node>
  13966            <Sub>
  13967             0
  13968            </Sub>
  13969                                               
  13970            <Data>
  13971             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  13972            </Data>
  13973                                          
  13974           </Node>
  13975                                     
  13976          </Node>
  13977                                    
  13978          <Node>
  13979           <Sub>
  13980            80
  13981           </Sub>
  13982                                         
  13983           <Node>
  13984            <Sub>
  13985             0
  13986            </Sub>
  13987                                               
  13988            <Data>
  13989             },
  13990            </Data>
  13991                                          
  13992           </Node>
  13993                                     
  13994          </Node>
  13995                                    
  13996          <Node>
  13997           <Sub>
  13998            81
  13999           </Sub>
  14000                                         
  14001           <Node>
  14002            <Sub>
  14003             0
  14004            </Sub>
  14005                                               
  14006            <Data>
  14007             &quot;name &quot;: {
  14008            </Data>
  14009                                          
  14010           </Node>
  14011                                     
  14012          </Node>
  14013                                    
  14014          <Node>
  14015           <Sub>
  14016            82
  14017           </Sub>
  14018                                         
  14019           <Node>
  14020            <Sub>
  14021             0
  14022            </Sub>
  14023                                               
  14024            <Data>
  14025             &quot;type &quot;: &q uot;string &quot;,
  14026            </Data>
  14027                                          
  14028           </Node>
  14029                                     
  14030          </Node>
  14031                                    
  14032          <Node>
  14033           <Sub>
  14034            83
  14035           </Sub>
  14036                                         
  14037           <Node>
  14038            <Sub>
  14039             0
  14040            </Sub>
  14041                                               
  14042            <Data>
  14043             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  14044            </Data>
  14045                                          
  14046           </Node>
  14047                                     
  14048          </Node>
  14049                                    
  14050          <Node>
  14051           <Sub>
  14052            84
  14053           </Sub>
  14054                                         
  14055           <Node>
  14056            <Sub>
  14057             0
  14058            </Sub>
  14059                                               
  14060            <Data>
  14061             }
  14062            </Data>
  14063                                          
  14064           </Node>
  14065                                     
  14066          </Node>
  14067                                    
  14068          <Node>
  14069           <Sub>
  14070            85
  14071           </Sub>
  14072                                         
  14073           <Node>
  14074            <Sub>
  14075             0
  14076            </Sub>
  14077                                               
  14078            <Data>
  14079             }
  14080            </Data>
  14081                                          
  14082           </Node>
  14083                                     
  14084          </Node>
  14085                                    
  14086          <Node>
  14087           <Sub>
  14088            86
  14089           </Sub>
  14090                                         
  14091           <Node>
  14092            <Sub>
  14093             0
  14094            </Sub>
  14095                                               
  14096            <Data>
  14097             },
  14098            </Data>
  14099                                          
  14100           </Node>
  14101                                     
  14102          </Node>
  14103                                    
  14104          <Node>
  14105           <Sub>
  14106            87
  14107           </Sub>
  14108                                         
  14109           <Node>
  14110            <Sub>
  14111             0
  14112            </Sub>
  14113                                               
  14114            <Data>
  14115             &quot;Swag gerDefinit ion&quot;:  {},
  14116            </Data>
  14117                                          
  14118           </Node>
  14119                                     
  14120          </Node>
  14121                                    
  14122          <Node>
  14123           <Sub>
  14124            88
  14125           </Sub>
  14126                                         
  14127           <Node>
  14128            <Sub>
  14129             0
  14130            </Sub>
  14131                                               
  14132            <Data>
  14133             &quot;Path &quot;: {}
  14134            </Data>
  14135                                          
  14136           </Node>
  14137                                     
  14138          </Node>
  14139                                    
  14140          <Node>
  14141           <Sub>
  14142            89
  14143           </Sub>
  14144                                         
  14145           <Node>
  14146            <Sub>
  14147             0
  14148            </Sub>
  14149                                               
  14150            <Data>
  14151             }
  14152            </Data>
  14153                                          
  14154           </Node>
  14155                                     
  14156          </Node>
  14157                                    
  14158          <Node>
  14159           <Sub>
  14160            90
  14161           </Sub>
  14162                                         
  14163           <Node>
  14164            <Sub>
  14165             0
  14166            </Sub>
  14167                                               
  14168            <Data>
  14169             }
  14170            </Data>
  14171                                          
  14172           </Node>
  14173                                     
  14174          </Node>
  14175                               
  14176         </Node>
  14177                          
  14178        </Node>
  14179                         
  14180        <Node>
  14181         <Sub>
  14182          6
  14183         </Sub>
  14184                              
  14185         <Node>
  14186          <Sub>
  14187           0
  14188          </Sub>
  14189                                    
  14190          <Data>
  14191           VPS GET PA TIENT DEMO GRAPHIC
  14192          </Data>
  14193                               
  14194         </Node>
  14195                              
  14196         <Node>
  14197          <Sub>
  14198           DEF
  14199          </Sub>
  14200                                    
  14201          <Node>
  14202           <Sub>
  14203            0
  14204           </Sub>
  14205                                         
  14206           <Data>
  14207            ^^90^90^31 60408
  14208           </Data>
  14209                                     
  14210          </Node>
  14211                                    
  14212          <Node>
  14213           <Sub>
  14214            1
  14215           </Sub>
  14216                                         
  14217           <Node>
  14218            <Sub>
  14219             0
  14220            </Sub>
  14221                                               
  14222            <Data>
  14223             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  14224            </Data>
  14225                                          
  14226           </Node>
  14227                                     
  14228          </Node>
  14229                                    
  14230          <Node>
  14231           <Sub>
  14232            2
  14233           </Sub>
  14234                                         
  14235           <Node>
  14236            <Sub>
  14237             0
  14238            </Sub>
  14239                                               
  14240            <Data>
  14241             &quot;info &quot;: {
  14242            </Data>
  14243                                          
  14244           </Node>
  14245                                     
  14246          </Node>
  14247                                    
  14248          <Node>
  14249           <Sub>
  14250            3
  14251           </Sub>
  14252                                         
  14253           <Node>
  14254            <Sub>
  14255             0
  14256            </Sub>
  14257                                               
  14258            <Data>
  14259             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  14260            </Data>
  14261                                          
  14262           </Node>
  14263                                     
  14264          </Node>
  14265                                    
  14266          <Node>
  14267           <Sub>
  14268            4
  14269           </Sub>
  14270                                         
  14271           <Node>
  14272            <Sub>
  14273             0
  14274            </Sub>
  14275                                               
  14276            <Data>
  14277             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  14278            </Data>
  14279                                          
  14280           </Node>
  14281                                     
  14282          </Node>
  14283                                    
  14284          <Node>
  14285           <Sub>
  14286            5
  14287           </Sub>
  14288                                         
  14289           <Node>
  14290            <Sub>
  14291             0
  14292            </Sub>
  14293                                               
  14294            <Data>
  14295             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  14296            </Data>
  14297                                          
  14298           </Node>
  14299                                     
  14300          </Node>
  14301                                    
  14302          <Node>
  14303           <Sub>
  14304            6
  14305           </Sub>
  14306                                         
  14307           <Node>
  14308            <Sub>
  14309             0
  14310            </Sub>
  14311                                               
  14312            <Data>
  14313             },
  14314            </Data>
  14315                                          
  14316           </Node>
  14317                                     
  14318          </Node>
  14319                                    
  14320          <Node>
  14321           <Sub>
  14322            7
  14323           </Sub>
  14324                                         
  14325           <Node>
  14326            <Sub>
  14327             0
  14328            </Sub>
  14329                                               
  14330            <Data>
  14331             &quot;sche mes&quot;:  [
  14332            </Data>
  14333                                          
  14334           </Node>
  14335                                     
  14336          </Node>
  14337                                    
  14338          <Node>
  14339           <Sub>
  14340            8
  14341           </Sub>
  14342                                         
  14343           <Node>
  14344            <Sub>
  14345             0
  14346            </Sub>
  14347                                               
  14348            <Data>
  14349             &quot;http s&quot;
  14350            </Data>
  14351                                          
  14352           </Node>
  14353                                     
  14354          </Node>
  14355                                    
  14356          <Node>
  14357           <Sub>
  14358            9
  14359           </Sub>
  14360                                         
  14361           <Node>
  14362            <Sub>
  14363             0
  14364            </Sub>
  14365                                               
  14366            <Data>
  14367             ],
  14368            </Data>
  14369                                          
  14370           </Node>
  14371                                     
  14372          </Node>
  14373                                    
  14374          <Node>
  14375           <Sub>
  14376            10
  14377           </Sub>
  14378                                         
  14379           <Node>
  14380            <Sub>
  14381             0
  14382            </Sub>
  14383                                               
  14384            <Data>
  14385             &quot;base Path&quot; : &quot;/r pcs&quot;,
  14386            </Data>
  14387                                          
  14388           </Node>
  14389                                     
  14390          </Node>
  14391                                    
  14392          <Node>
  14393           <Sub>
  14394            11
  14395           </Sub>
  14396                                         
  14397           <Node>
  14398            <Sub>
  14399             0
  14400            </Sub>
  14401                                               
  14402            <Data>
  14403             &quot;prod uces&quot; : [
  14404            </Data>
  14405                                          
  14406           </Node>
  14407                                     
  14408          </Node>
  14409                                    
  14410          <Node>
  14411           <Sub>
  14412            12
  14413           </Sub>
  14414                                         
  14415           <Node>
  14416            <Sub>
  14417             0
  14418            </Sub>
  14419                                               
  14420            <Data>
  14421             &quot;appl ication/js on&quot;
  14422            </Data>
  14423                                          
  14424           </Node>
  14425                                     
  14426          </Node>
  14427                                    
  14428          <Node>
  14429           <Sub>
  14430            13
  14431           </Sub>
  14432                                         
  14433           <Node>
  14434            <Sub>
  14435             0
  14436            </Sub>
  14437                                               
  14438            <Data>
  14439             ],
  14440            </Data>
  14441                                          
  14442           </Node>
  14443                                     
  14444          </Node>
  14445                                    
  14446          <Node>
  14447           <Sub>
  14448            14
  14449           </Sub>
  14450                                         
  14451           <Node>
  14452            <Sub>
  14453             0
  14454            </Sub>
  14455                                               
  14456            <Data>
  14457             &quot;path s&quot;: {
  14458            </Data>
  14459                                          
  14460           </Node>
  14461                                     
  14462          </Node>
  14463                                    
  14464          <Node>
  14465           <Sub>
  14466            15
  14467           </Sub>
  14468                                         
  14469           <Node>
  14470            <Sub>
  14471             0
  14472            </Sub>
  14473                                               
  14474            <Data>
  14475             &quot;/by- name/vps%2 0get%20pat ient%20dem ographic/c all&quot;:  {
  14476            </Data>
  14477                                          
  14478           </Node>
  14479                                     
  14480          </Node>
  14481                                    
  14482          <Node>
  14483           <Sub>
  14484            16
  14485           </Sub>
  14486                                         
  14487           <Node>
  14488            <Sub>
  14489             0
  14490            </Sub>
  14491                                               
  14492            <Data>
  14493             &quot;post &quot;: {
  14494            </Data>
  14495                                          
  14496           </Node>
  14497                                     
  14498          </Node>
  14499                                    
  14500          <Node>
  14501           <Sub>
  14502            17
  14503           </Sub>
  14504                                         
  14505           <Node>
  14506            <Sub>
  14507             0
  14508            </Sub>
  14509                                               
  14510            <Data>
  14511             &quot;summ ary&quot;:  &quot;GET DATA^VPSRP C1(.tRESUL T,SSN)&quo t;,
  14512            </Data>
  14513                                          
  14514           </Node>
  14515                                     
  14516          </Node>
  14517                                    
  14518          <Node>
  14519           <Sub>
  14520            18
  14521           </Sub>
  14522                                         
  14523           <Node>
  14524            <Sub>
  14525             0
  14526            </Sub>
  14527                                               
  14528            <Data>
  14529             <![CDATA[" descriptio n": "Calle d by the V etlink Kio sk system.   The RPC  will accep t a single  inputvalu e whic is  the patien t SSN.  Th e RPC retu rns the pa tient demo graphics,i nsurance,  and up-com ing appoin tments.ret urns the p atient dem ographics,  insurance , and up-c oming appo intments." ,]]>
  14530            </Data>
  14531                                          
  14532           </Node>
  14533                                     
  14534          </Node>
  14535                                    
  14536          <Node>
  14537           <Sub>
  14538            19
  14539           </Sub>
  14540                                         
  14541           <Node>
  14542            <Sub>
  14543             0
  14544            </Sub>
  14545                                               
  14546            <Data>
  14547             &quot;prod uces&quot; : [
  14548            </Data>
  14549                                          
  14550           </Node>
  14551                                     
  14552          </Node>
  14553                                    
  14554          <Node>
  14555           <Sub>
  14556            20
  14557           </Sub>
  14558                                         
  14559           <Node>
  14560            <Sub>
  14561             0
  14562            </Sub>
  14563                                               
  14564            <Data>
  14565             &quot;appl ication/js on&quot;
  14566            </Data>
  14567                                          
  14568           </Node>
  14569                                     
  14570          </Node>
  14571                                    
  14572          <Node>
  14573           <Sub>
  14574            21
  14575           </Sub>
  14576                                         
  14577           <Node>
  14578            <Sub>
  14579             0
  14580            </Sub>
  14581                                               
  14582            <Data>
  14583             ],
  14584            </Data>
  14585                                          
  14586           </Node>
  14587                                     
  14588          </Node>
  14589                                    
  14590          <Node>
  14591           <Sub>
  14592            22
  14593           </Sub>
  14594                                         
  14595           <Node>
  14596            <Sub>
  14597             0
  14598            </Sub>
  14599                                               
  14600            <Data>
  14601             &quot;para meters&quo t;: [
  14602            </Data>
  14603                                          
  14604           </Node>
  14605                                     
  14606          </Node>
  14607                                    
  14608          <Node>
  14609           <Sub>
  14610            23
  14611           </Sub>
  14612                                         
  14613           <Node>
  14614            <Sub>
  14615             0
  14616            </Sub>
  14617                                               
  14618            <Data>
  14619             {
  14620            </Data>
  14621                                          
  14622           </Node>
  14623                                     
  14624          </Node>
  14625                                    
  14626          <Node>
  14627           <Sub>
  14628            24
  14629           </Sub>
  14630                                         
  14631           <Node>
  14632            <Sub>
  14633             0
  14634            </Sub>
  14635                                               
  14636            <Data>
  14637             &quot;name &quot;: &q uot;SSN&qu ot;,
  14638            </Data>
  14639                                          
  14640           </Node>
  14641                                     
  14642          </Node>
  14643                                    
  14644          <Node>
  14645           <Sub>
  14646            25
  14647           </Sub>
  14648                                         
  14649           <Node>
  14650            <Sub>
  14651             0
  14652            </Sub>
  14653                                               
  14654            <Data>
  14655             &quot;desc ription&qu ot;: &quot ;Social Se curity Num ber [Filem an Type: L ITERAL]&qu ot;,
  14656            </Data>
  14657                                          
  14658           </Node>
  14659                                     
  14660          </Node>
  14661                                    
  14662          <Node>
  14663           <Sub>
  14664            26
  14665           </Sub>
  14666                                         
  14667           <Node>
  14668            <Sub>
  14669             0
  14670            </Sub>
  14671                                               
  14672            <Data>
  14673             &quot;in&q uot;: &quo t;formData &quot;,
  14674            </Data>
  14675                                          
  14676           </Node>
  14677                                     
  14678          </Node>
  14679                                    
  14680          <Node>
  14681           <Sub>
  14682            27
  14683           </Sub>
  14684                                         
  14685           <Node>
  14686            <Sub>
  14687             0
  14688            </Sub>
  14689                                               
  14690            <Data>
  14691             &quot;type &quot;: &q uot;string &quot;,
  14692            </Data>
  14693                                          
  14694           </Node>
  14695                                     
  14696          </Node>
  14697                                    
  14698          <Node>
  14699           <Sub>
  14700            28
  14701           </Sub>
  14702                                         
  14703           <Node>
  14704            <Sub>
  14705             0
  14706            </Sub>
  14707                                               
  14708            <Data>
  14709             &quot;requ ired&quot; : true
  14710            </Data>
  14711                                          
  14712           </Node>
  14713                                     
  14714          </Node>
  14715                                    
  14716          <Node>
  14717           <Sub>
  14718            29
  14719           </Sub>
  14720                                         
  14721           <Node>
  14722            <Sub>
  14723             0
  14724            </Sub>
  14725                                               
  14726            <Data>
  14727             }
  14728            </Data>
  14729                                          
  14730           </Node>
  14731                                     
  14732          </Node>
  14733                                    
  14734          <Node>
  14735           <Sub>
  14736            30
  14737           </Sub>
  14738                                         
  14739           <Node>
  14740            <Sub>
  14741             0
  14742            </Sub>
  14743                                               
  14744            <Data>
  14745             ],
  14746            </Data>
  14747                                          
  14748           </Node>
  14749                                     
  14750          </Node>
  14751                                    
  14752          <Node>
  14753           <Sub>
  14754            31
  14755           </Sub>
  14756                                         
  14757           <Node>
  14758            <Sub>
  14759             0
  14760            </Sub>
  14761                                               
  14762            <Data>
  14763             &quot;tags &quot;: [
  14764            </Data>
  14765                                          
  14766           </Node>
  14767                                     
  14768          </Node>
  14769                                    
  14770          <Node>
  14771           <Sub>
  14772            32
  14773           </Sub>
  14774                                         
  14775           <Node>
  14776            <Sub>
  14777             0
  14778            </Sub>
  14779                                               
  14780            <Data>
  14781             &quot;RPCS &quot;,
  14782            </Data>
  14783                                          
  14784           </Node>
  14785                                     
  14786          </Node>
  14787                                    
  14788          <Node>
  14789           <Sub>
  14790            33
  14791           </Sub>
  14792                                         
  14793           <Node>
  14794            <Sub>
  14795             0
  14796            </Sub>
  14797                                               
  14798            <Data>
  14799             &quot;Rest ify&quot;
  14800            </Data>
  14801                                          
  14802           </Node>
  14803                                     
  14804          </Node>
  14805                                    
  14806          <Node>
  14807           <Sub>
  14808            34
  14809           </Sub>
  14810                                         
  14811           <Node>
  14812            <Sub>
  14813             0
  14814            </Sub>
  14815                                               
  14816            <Data>
  14817             ],
  14818            </Data>
  14819                                          
  14820           </Node>
  14821                                     
  14822          </Node>
  14823                                    
  14824          <Node>
  14825           <Sub>
  14826            35
  14827           </Sub>
  14828                                         
  14829           <Node>
  14830            <Sub>
  14831             0
  14832            </Sub>
  14833                                               
  14834            <Data>
  14835             &quot;resp onses&quot ;: {
  14836            </Data>
  14837                                          
  14838           </Node>
  14839                                     
  14840          </Node>
  14841                                    
  14842          <Node>
  14843           <Sub>
  14844            36
  14845           </Sub>
  14846                                         
  14847           <Node>
  14848            <Sub>
  14849             0
  14850            </Sub>
  14851                                               
  14852            <Data>
  14853             &quot;200& quot;: {
  14854            </Data>
  14855                                          
  14856           </Node>
  14857                                     
  14858          </Node>
  14859                                    
  14860          <Node>
  14861           <Sub>
  14862            37
  14863           </Sub>
  14864                                         
  14865           <Node>
  14866            <Sub>
  14867             0
  14868            </Sub>
  14869                                               
  14870            <Data>
  14871             <![CDATA[" descriptio n": "Singl e dimensio nal array  that repre sents the  patient de mographics , appointm ents, insu rance info rmation.AR RAY(n)=Fil e#^dfn;mul tiple entr ies^field# ^Data^Fiel dname\"exc eption dat a string:A RRAY(n)=\" -1^Error t ext messag e\"",]]>
  14872            </Data>
  14873                                          
  14874           </Node>
  14875                                     
  14876          </Node>
  14877                                    
  14878          <Node>
  14879           <Sub>
  14880            38
  14881           </Sub>
  14882                                         
  14883           <Node>
  14884            <Sub>
  14885             0
  14886            </Sub>
  14887                                               
  14888            <Data>
  14889             &quot;sche ma&quot;:  {
  14890            </Data>
  14891                                          
  14892           </Node>
  14893                                     
  14894          </Node>
  14895                                    
  14896          <Node>
  14897           <Sub>
  14898            39
  14899           </Sub>
  14900                                         
  14901           <Node>
  14902            <Sub>
  14903             0
  14904            </Sub>
  14905                                               
  14906            <Data>
  14907             &quot;$ref &quot;: &q uot;#/defi nitions/AR RAY&quot;
  14908            </Data>
  14909                                          
  14910           </Node>
  14911                                     
  14912          </Node>
  14913                                    
  14914          <Node>
  14915           <Sub>
  14916            40
  14917           </Sub>
  14918                                         
  14919           <Node>
  14920            <Sub>
  14921             0
  14922            </Sub>
  14923                                               
  14924            <Data>
  14925             }
  14926            </Data>
  14927                                          
  14928           </Node>
  14929                                     
  14930          </Node>
  14931                                    
  14932          <Node>
  14933           <Sub>
  14934            41
  14935           </Sub>
  14936                                         
  14937           <Node>
  14938            <Sub>
  14939             0
  14940            </Sub>
  14941                                               
  14942            <Data>
  14943             }
  14944            </Data>
  14945                                          
  14946           </Node>
  14947                                     
  14948          </Node>
  14949                                    
  14950          <Node>
  14951           <Sub>
  14952            42
  14953           </Sub>
  14954                                         
  14955           <Node>
  14956            <Sub>
  14957             0
  14958            </Sub>
  14959                                               
  14960            <Data>
  14961             }
  14962            </Data>
  14963                                          
  14964           </Node>
  14965                                     
  14966          </Node>
  14967                                    
  14968          <Node>
  14969           <Sub>
  14970            43
  14971           </Sub>
  14972                                         
  14973           <Node>
  14974            <Sub>
  14975             0
  14976            </Sub>
  14977                                               
  14978            <Data>
  14979             }
  14980            </Data>
  14981                                          
  14982           </Node>
  14983                                     
  14984          </Node>
  14985                                    
  14986          <Node>
  14987           <Sub>
  14988            44
  14989           </Sub>
  14990                                         
  14991           <Node>
  14992            <Sub>
  14993             0
  14994            </Sub>
  14995                                               
  14996            <Data>
  14997             }
  14998            </Data>
  14999                                          
  15000           </Node>
  15001                                     
  15002          </Node>
  15003                                    
  15004          <Node>
  15005           <Sub>
  15006            45
  15007           </Sub>
  15008                                         
  15009           <Node>
  15010            <Sub>
  15011             0
  15012            </Sub>
  15013                                               
  15014            <Data>
  15015             },
  15016            </Data>
  15017                                          
  15018           </Node>
  15019                                     
  15020          </Node>
  15021                                    
  15022          <Node>
  15023           <Sub>
  15024            46
  15025           </Sub>
  15026                                         
  15027           <Node>
  15028            <Sub>
  15029             0
  15030            </Sub>
  15031                                               
  15032            <Data>
  15033             &quot;defi nitions&qu ot;: {
  15034            </Data>
  15035                                          
  15036           </Node>
  15037                                     
  15038          </Node>
  15039                                    
  15040          <Node>
  15041           <Sub>
  15042            47
  15043           </Sub>
  15044                                         
  15045           <Node>
  15046            <Sub>
  15047             0
  15048            </Sub>
  15049                                               
  15050            <Data>
  15051             &quot;ARRA Y&quot;: {
  15052            </Data>
  15053                                          
  15054           </Node>
  15055                                     
  15056          </Node>
  15057                                    
  15058          <Node>
  15059           <Sub>
  15060            48
  15061           </Sub>
  15062                                         
  15063           <Node>
  15064            <Sub>
  15065             0
  15066            </Sub>
  15067                                               
  15068            <Data>
  15069             &quot;type &quot;: &q uot;object &quot;
  15070            </Data>
  15071                                          
  15072           </Node>
  15073                                     
  15074          </Node>
  15075                                    
  15076          <Node>
  15077           <Sub>
  15078            49
  15079           </Sub>
  15080                                         
  15081           <Node>
  15082            <Sub>
  15083             0
  15084            </Sub>
  15085                                               
  15086            <Data>
  15087             },
  15088            </Data>
  15089                                          
  15090           </Node>
  15091                                     
  15092          </Node>
  15093                                    
  15094          <Node>
  15095           <Sub>
  15096            50
  15097           </Sub>
  15098                                         
  15099           <Node>
  15100            <Sub>
  15101             0
  15102            </Sub>
  15103                                               
  15104            <Data>
  15105             &quot;GLOB AL_ARRAY&q uot;: {
  15106            </Data>
  15107                                          
  15108           </Node>
  15109                                     
  15110          </Node>
  15111                                    
  15112          <Node>
  15113           <Sub>
  15114            51
  15115           </Sub>
  15116                                         
  15117           <Node>
  15118            <Sub>
  15119             0
  15120            </Sub>
  15121                                               
  15122            <Data>
  15123             &quot;type &quot;: &q uot;object &quot;
  15124            </Data>
  15125                                          
  15126           </Node>
  15127                                     
  15128          </Node>
  15129                                    
  15130          <Node>
  15131           <Sub>
  15132            52
  15133           </Sub>
  15134                                         
  15135           <Node>
  15136            <Sub>
  15137             0
  15138            </Sub>
  15139                                               
  15140            <Data>
  15141             },
  15142            </Data>
  15143                                          
  15144           </Node>
  15145                                     
  15146          </Node>
  15147                                    
  15148          <Node>
  15149           <Sub>
  15150            53
  15151           </Sub>
  15152                                         
  15153           <Node>
  15154            <Sub>
  15155             0
  15156            </Sub>
  15157                                               
  15158            <Data>
  15159             &quot;SING LE_VALUE&q uot;: {
  15160            </Data>
  15161                                          
  15162           </Node>
  15163                                     
  15164          </Node>
  15165                                    
  15166          <Node>
  15167           <Sub>
  15168            54
  15169           </Sub>
  15170                                         
  15171           <Node>
  15172            <Sub>
  15173             0
  15174            </Sub>
  15175                                               
  15176            <Data>
  15177             &quot;type &quot;: &q uot;string &quot;
  15178            </Data>
  15179                                          
  15180           </Node>
  15181                                     
  15182          </Node>
  15183                                    
  15184          <Node>
  15185           <Sub>
  15186            55
  15187           </Sub>
  15188                                         
  15189           <Node>
  15190            <Sub>
  15191             0
  15192            </Sub>
  15193                                               
  15194            <Data>
  15195             },
  15196            </Data>
  15197                                          
  15198           </Node>
  15199                                     
  15200          </Node>
  15201                                    
  15202          <Node>
  15203           <Sub>
  15204            56
  15205           </Sub>
  15206                                         
  15207           <Node>
  15208            <Sub>
  15209             0
  15210            </Sub>
  15211                                               
  15212            <Data>
  15213             &quot;GLOB AL_INSTANC E&quot;: {
  15214            </Data>
  15215                                          
  15216           </Node>
  15217                                     
  15218          </Node>
  15219                                    
  15220          <Node>
  15221           <Sub>
  15222            57
  15223           </Sub>
  15224                                         
  15225           <Node>
  15226            <Sub>
  15227             0
  15228            </Sub>
  15229                                               
  15230            <Data>
  15231             &quot;type &quot;: &q uot;string &quot;
  15232            </Data>
  15233                                          
  15234           </Node>
  15235                                     
  15236          </Node>
  15237                                    
  15238          <Node>
  15239           <Sub>
  15240            58
  15241           </Sub>
  15242                                         
  15243           <Node>
  15244            <Sub>
  15245             0
  15246            </Sub>
  15247                                               
  15248            <Data>
  15249             },
  15250            </Data>
  15251                                          
  15252           </Node>
  15253                                     
  15254          </Node>
  15255                                    
  15256          <Node>
  15257           <Sub>
  15258            59
  15259           </Sub>
  15260                                         
  15261           <Node>
  15262            <Sub>
  15263             0
  15264            </Sub>
  15265                                               
  15266            <Data>
  15267             &quot;WORD _PROCESSIN G&quot;: {
  15268            </Data>
  15269                                          
  15270           </Node>
  15271                                     
  15272          </Node>
  15273                                    
  15274          <Node>
  15275           <Sub>
  15276            60
  15277           </Sub>
  15278                                         
  15279           <Node>
  15280            <Sub>
  15281             0
  15282            </Sub>
  15283                                               
  15284            <Data>
  15285             &quot;type &quot;: &q uot;object &quot;
  15286            </Data>
  15287                                          
  15288           </Node>
  15289                                     
  15290          </Node>
  15291                                    
  15292          <Node>
  15293           <Sub>
  15294            61
  15295           </Sub>
  15296                                         
  15297           <Node>
  15298            <Sub>
  15299             0
  15300            </Sub>
  15301                                               
  15302            <Data>
  15303             },
  15304            </Data>
  15305                                          
  15306           </Node>
  15307                                     
  15308          </Node>
  15309                                    
  15310          <Node>
  15311           <Sub>
  15312            62
  15313           </Sub>
  15314                                         
  15315           <Node>
  15316            <Sub>
  15317             0
  15318            </Sub>
  15319                                               
  15320            <Data>
  15321             &quot;Erro r&quot;: {
  15322            </Data>
  15323                                          
  15324           </Node>
  15325                                     
  15326          </Node>
  15327                                    
  15328          <Node>
  15329           <Sub>
  15330            63
  15331           </Sub>
  15332                                         
  15333           <Node>
  15334            <Sub>
  15335             0
  15336            </Sub>
  15337                                               
  15338            <Data>
  15339             &quot;prop erties&quo t;: {
  15340            </Data>
  15341                                          
  15342           </Node>
  15343                                     
  15344          </Node>
  15345                                    
  15346          <Node>
  15347           <Sub>
  15348            64
  15349           </Sub>
  15350                                         
  15351           <Node>
  15352            <Sub>
  15353             0
  15354            </Sub>
  15355                                               
  15356            <Data>
  15357             &quot;erro r&quot;: {
  15358            </Data>
  15359                                          
  15360           </Node>
  15361                                     
  15362          </Node>
  15363                                    
  15364          <Node>
  15365           <Sub>
  15366            65
  15367           </Sub>
  15368                                         
  15369           <Node>
  15370            <Sub>
  15371             0
  15372            </Sub>
  15373                                               
  15374            <Data>
  15375             &quot;type &quot;: &q uot;string &quot;,
  15376            </Data>
  15377                                          
  15378           </Node>
  15379                                     
  15380          </Node>
  15381                                    
  15382          <Node>
  15383           <Sub>
  15384            66
  15385           </Sub>
  15386                                         
  15387           <Node>
  15388            <Sub>
  15389             0
  15390            </Sub>
  15391                                               
  15392            <Data>
  15393             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  15394            </Data>
  15395                                          
  15396           </Node>
  15397                                     
  15398          </Node>
  15399                                    
  15400          <Node>
  15401           <Sub>
  15402            67
  15403           </Sub>
  15404                                         
  15405           <Node>
  15406            <Sub>
  15407             0
  15408            </Sub>
  15409                                               
  15410            <Data>
  15411             },
  15412            </Data>
  15413                                          
  15414           </Node>
  15415                                     
  15416          </Node>
  15417                                    
  15418          <Node>
  15419           <Sub>
  15420            68
  15421           </Sub>
  15422                                         
  15423           <Node>
  15424            <Sub>
  15425             0
  15426            </Sub>
  15427                                               
  15428            <Data>
  15429             &quot;data &quot;: {
  15430            </Data>
  15431                                          
  15432           </Node>
  15433                                     
  15434          </Node>
  15435                                    
  15436          <Node>
  15437           <Sub>
  15438            69
  15439           </Sub>
  15440                                         
  15441           <Node>
  15442            <Sub>
  15443             0
  15444            </Sub>
  15445                                               
  15446            <Data>
  15447             &quot;type &quot;: &q uot;object &quot;,
  15448            </Data>
  15449                                          
  15450           </Node>
  15451                                     
  15452          </Node>
  15453                                    
  15454          <Node>
  15455           <Sub>
  15456            70
  15457           </Sub>
  15458                                         
  15459           <Node>
  15460            <Sub>
  15461             0
  15462            </Sub>
  15463                                               
  15464            <Data>
  15465             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  15466            </Data>
  15467                                          
  15468           </Node>
  15469                                     
  15470          </Node>
  15471                                    
  15472          <Node>
  15473           <Sub>
  15474            71
  15475           </Sub>
  15476                                         
  15477           <Node>
  15478            <Sub>
  15479             0
  15480            </Sub>
  15481                                               
  15482            <Data>
  15483             }
  15484            </Data>
  15485                                          
  15486           </Node>
  15487                                     
  15488          </Node>
  15489                                    
  15490          <Node>
  15491           <Sub>
  15492            72
  15493           </Sub>
  15494                                         
  15495           <Node>
  15496            <Sub>
  15497             0
  15498            </Sub>
  15499                                               
  15500            <Data>
  15501             }
  15502            </Data>
  15503                                          
  15504           </Node>
  15505                                     
  15506          </Node>
  15507                                    
  15508          <Node>
  15509           <Sub>
  15510            73
  15511           </Sub>
  15512                                         
  15513           <Node>
  15514            <Sub>
  15515             0
  15516            </Sub>
  15517                                               
  15518            <Data>
  15519             },
  15520            </Data>
  15521                                          
  15522           </Node>
  15523                                     
  15524          </Node>
  15525                                    
  15526          <Node>
  15527           <Sub>
  15528            74
  15529           </Sub>
  15530                                         
  15531           <Node>
  15532            <Sub>
  15533             0
  15534            </Sub>
  15535                                               
  15536            <Data>
  15537             &quot;RpcI d&quot;: {
  15538            </Data>
  15539                                          
  15540           </Node>
  15541                                     
  15542          </Node>
  15543                                    
  15544          <Node>
  15545           <Sub>
  15546            75
  15547           </Sub>
  15548                                         
  15549           <Node>
  15550            <Sub>
  15551             0
  15552            </Sub>
  15553                                               
  15554            <Data>
  15555             &quot;prop erties&quo t;: {
  15556            </Data>
  15557                                          
  15558           </Node>
  15559                                     
  15560          </Node>
  15561                                    
  15562          <Node>
  15563           <Sub>
  15564            76
  15565           </Sub>
  15566                                         
  15567           <Node>
  15568            <Sub>
  15569             0
  15570            </Sub>
  15571                                               
  15572            <Data>
  15573             &quot;id&q uot;: {
  15574            </Data>
  15575                                          
  15576           </Node>
  15577                                     
  15578          </Node>
  15579                                    
  15580          <Node>
  15581           <Sub>
  15582            77
  15583           </Sub>
  15584                                         
  15585           <Node>
  15586            <Sub>
  15587             0
  15588            </Sub>
  15589                                               
  15590            <Data>
  15591             &quot;type &quot;: &q uot;intege r&quot;,
  15592            </Data>
  15593                                          
  15594           </Node>
  15595                                     
  15596          </Node>
  15597                                    
  15598          <Node>
  15599           <Sub>
  15600            78
  15601           </Sub>
  15602                                         
  15603           <Node>
  15604            <Sub>
  15605             0
  15606            </Sub>
  15607                                               
  15608            <Data>
  15609             &quot;form at&quot;:  &quot;int3 2&quot;,
  15610            </Data>
  15611                                          
  15612           </Node>
  15613                                     
  15614          </Node>
  15615                                    
  15616          <Node>
  15617           <Sub>
  15618            79
  15619           </Sub>
  15620                                         
  15621           <Node>
  15622            <Sub>
  15623             0
  15624            </Sub>
  15625                                               
  15626            <Data>
  15627             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  15628            </Data>
  15629                                          
  15630           </Node>
  15631                                     
  15632          </Node>
  15633                                    
  15634          <Node>
  15635           <Sub>
  15636            80
  15637           </Sub>
  15638                                         
  15639           <Node>
  15640            <Sub>
  15641             0
  15642            </Sub>
  15643                                               
  15644            <Data>
  15645             },
  15646            </Data>
  15647                                          
  15648           </Node>
  15649                                     
  15650          </Node>
  15651                                    
  15652          <Node>
  15653           <Sub>
  15654            81
  15655           </Sub>
  15656                                         
  15657           <Node>
  15658            <Sub>
  15659             0
  15660            </Sub>
  15661                                               
  15662            <Data>
  15663             &quot;name &quot;: {
  15664            </Data>
  15665                                          
  15666           </Node>
  15667                                     
  15668          </Node>
  15669                                    
  15670          <Node>
  15671           <Sub>
  15672            82
  15673           </Sub>
  15674                                         
  15675           <Node>
  15676            <Sub>
  15677             0
  15678            </Sub>
  15679                                               
  15680            <Data>
  15681             &quot;type &quot;: &q uot;string &quot;,
  15682            </Data>
  15683                                          
  15684           </Node>
  15685                                     
  15686          </Node>
  15687                                    
  15688          <Node>
  15689           <Sub>
  15690            83
  15691           </Sub>
  15692                                         
  15693           <Node>
  15694            <Sub>
  15695             0
  15696            </Sub>
  15697                                               
  15698            <Data>
  15699             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  15700            </Data>
  15701                                          
  15702           </Node>
  15703                                     
  15704          </Node>
  15705                                    
  15706          <Node>
  15707           <Sub>
  15708            84
  15709           </Sub>
  15710                                         
  15711           <Node>
  15712            <Sub>
  15713             0
  15714            </Sub>
  15715                                               
  15716            <Data>
  15717             }
  15718            </Data>
  15719                                          
  15720           </Node>
  15721                                     
  15722          </Node>
  15723                                    
  15724          <Node>
  15725           <Sub>
  15726            85
  15727           </Sub>
  15728                                         
  15729           <Node>
  15730            <Sub>
  15731             0
  15732            </Sub>
  15733                                               
  15734            <Data>
  15735             }
  15736            </Data>
  15737                                          
  15738           </Node>
  15739                                     
  15740          </Node>
  15741                                    
  15742          <Node>
  15743           <Sub>
  15744            86
  15745           </Sub>
  15746                                         
  15747           <Node>
  15748            <Sub>
  15749             0
  15750            </Sub>
  15751                                               
  15752            <Data>
  15753             },
  15754            </Data>
  15755                                          
  15756           </Node>
  15757                                     
  15758          </Node>
  15759                                    
  15760          <Node>
  15761           <Sub>
  15762            87
  15763           </Sub>
  15764                                         
  15765           <Node>
  15766            <Sub>
  15767             0
  15768            </Sub>
  15769                                               
  15770            <Data>
  15771             &quot;Swag gerDefinit ion&quot;:  {},
  15772            </Data>
  15773                                          
  15774           </Node>
  15775                                     
  15776          </Node>
  15777                                    
  15778          <Node>
  15779           <Sub>
  15780            88
  15781           </Sub>
  15782                                         
  15783           <Node>
  15784            <Sub>
  15785             0
  15786            </Sub>
  15787                                               
  15788            <Data>
  15789             &quot;Path &quot;: {}
  15790            </Data>
  15791                                          
  15792           </Node>
  15793                                     
  15794          </Node>
  15795                                    
  15796          <Node>
  15797           <Sub>
  15798            89
  15799           </Sub>
  15800                                         
  15801           <Node>
  15802            <Sub>
  15803             0
  15804            </Sub>
  15805                                               
  15806            <Data>
  15807             }
  15808            </Data>
  15809                                          
  15810           </Node>
  15811                                     
  15812          </Node>
  15813                                    
  15814          <Node>
  15815           <Sub>
  15816            90
  15817           </Sub>
  15818                                         
  15819           <Node>
  15820            <Sub>
  15821             0
  15822            </Sub>
  15823                                               
  15824            <Data>
  15825             }
  15826            </Data>
  15827                                          
  15828           </Node>
  15829                                     
  15830          </Node>
  15831                               
  15832         </Node>
  15833                          
  15834        </Node>
  15835                         
  15836        <Node>
  15837         <Sub>
  15838          7
  15839         </Sub>
  15840                              
  15841         <Node>
  15842          <Sub>
  15843           0
  15844          </Sub>
  15845                                    
  15846          <Data>
  15847           TIU DELETE  RECORD
  15848          </Data>
  15849                               
  15850         </Node>
  15851                              
  15852         <Node>
  15853          <Sub>
  15854           DEF
  15855          </Sub>
  15856                                    
  15857          <Node>
  15858           <Sub>
  15859            0
  15860           </Sub>
  15861                                         
  15862           <Data>
  15863            ^^104^104^ 3160408
  15864           </Data>
  15865                                     
  15866          </Node>
  15867                                    
  15868          <Node>
  15869           <Sub>
  15870            1
  15871           </Sub>
  15872                                         
  15873           <Node>
  15874            <Sub>
  15875             0
  15876            </Sub>
  15877                                               
  15878            <Data>
  15879             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  15880            </Data>
  15881                                          
  15882           </Node>
  15883                                     
  15884          </Node>
  15885                                    
  15886          <Node>
  15887           <Sub>
  15888            2
  15889           </Sub>
  15890                                         
  15891           <Node>
  15892            <Sub>
  15893             0
  15894            </Sub>
  15895                                               
  15896            <Data>
  15897             &quot;info &quot;: {
  15898            </Data>
  15899                                          
  15900           </Node>
  15901                                     
  15902          </Node>
  15903                                    
  15904          <Node>
  15905           <Sub>
  15906            3
  15907           </Sub>
  15908                                         
  15909           <Node>
  15910            <Sub>
  15911             0
  15912            </Sub>
  15913                                               
  15914            <Data>
  15915             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  15916            </Data>
  15917                                          
  15918           </Node>
  15919                                     
  15920          </Node>
  15921                                    
  15922          <Node>
  15923           <Sub>
  15924            4
  15925           </Sub>
  15926                                         
  15927           <Node>
  15928            <Sub>
  15929             0
  15930            </Sub>
  15931                                               
  15932            <Data>
  15933             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  15934            </Data>
  15935                                          
  15936           </Node>
  15937                                     
  15938          </Node>
  15939                                    
  15940          <Node>
  15941           <Sub>
  15942            5
  15943           </Sub>
  15944                                         
  15945           <Node>
  15946            <Sub>
  15947             0
  15948            </Sub>
  15949                                               
  15950            <Data>
  15951             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  15952            </Data>
  15953                                          
  15954           </Node>
  15955                                     
  15956          </Node>
  15957                                    
  15958          <Node>
  15959           <Sub>
  15960            6
  15961           </Sub>
  15962                                         
  15963           <Node>
  15964            <Sub>
  15965             0
  15966            </Sub>
  15967                                               
  15968            <Data>
  15969             },
  15970            </Data>
  15971                                          
  15972           </Node>
  15973                                     
  15974          </Node>
  15975                                    
  15976          <Node>
  15977           <Sub>
  15978            7
  15979           </Sub>
  15980                                         
  15981           <Node>
  15982            <Sub>
  15983             0
  15984            </Sub>
  15985                                               
  15986            <Data>
  15987             &quot;sche mes&quot;:  [
  15988            </Data>
  15989                                          
  15990           </Node>
  15991                                     
  15992          </Node>
  15993                                    
  15994          <Node>
  15995           <Sub>
  15996            8
  15997           </Sub>
  15998                                         
  15999           <Node>
  16000            <Sub>
  16001             0
  16002            </Sub>
  16003                                               
  16004            <Data>
  16005             &quot;http s&quot;
  16006            </Data>
  16007                                          
  16008           </Node>
  16009                                     
  16010          </Node>
  16011                                    
  16012          <Node>
  16013           <Sub>
  16014            9
  16015           </Sub>
  16016                                         
  16017           <Node>
  16018            <Sub>
  16019             0
  16020            </Sub>
  16021                                               
  16022            <Data>
  16023             ],
  16024            </Data>
  16025                                          
  16026           </Node>
  16027                                     
  16028          </Node>
  16029                                    
  16030          <Node>
  16031           <Sub>
  16032            10
  16033           </Sub>
  16034                                         
  16035           <Node>
  16036            <Sub>
  16037             0
  16038            </Sub>
  16039                                               
  16040            <Data>
  16041             &quot;base Path&quot; : &quot;/r pcs&quot;,
  16042            </Data>
  16043                                          
  16044           </Node>
  16045                                     
  16046          </Node>
  16047                                    
  16048          <Node>
  16049           <Sub>
  16050            11
  16051           </Sub>
  16052                                         
  16053           <Node>
  16054            <Sub>
  16055             0
  16056            </Sub>
  16057                                               
  16058            <Data>
  16059             &quot;prod uces&quot; : [
  16060            </Data>
  16061                                          
  16062           </Node>
  16063                                     
  16064          </Node>
  16065                                    
  16066          <Node>
  16067           <Sub>
  16068            12
  16069           </Sub>
  16070                                         
  16071           <Node>
  16072            <Sub>
  16073             0
  16074            </Sub>
  16075                                               
  16076            <Data>
  16077             &quot;appl ication/js on&quot;
  16078            </Data>
  16079                                          
  16080           </Node>
  16081                                     
  16082          </Node>
  16083                                    
  16084          <Node>
  16085           <Sub>
  16086            13
  16087           </Sub>
  16088                                         
  16089           <Node>
  16090            <Sub>
  16091             0
  16092            </Sub>
  16093                                               
  16094            <Data>
  16095             ],
  16096            </Data>
  16097                                          
  16098           </Node>
  16099                                     
  16100          </Node>
  16101                                    
  16102          <Node>
  16103           <Sub>
  16104            14
  16105           </Sub>
  16106                                         
  16107           <Node>
  16108            <Sub>
  16109             0
  16110            </Sub>
  16111                                               
  16112            <Data>
  16113             &quot;path s&quot;: {
  16114            </Data>
  16115                                          
  16116           </Node>
  16117                                     
  16118          </Node>
  16119                                    
  16120          <Node>
  16121           <Sub>
  16122            15
  16123           </Sub>
  16124                                         
  16125           <Node>
  16126            <Sub>
  16127             0
  16128            </Sub>
  16129                                               
  16130            <Data>
  16131             &quot;/by- name/tiu%2 0delete%20 record/cal l&quot;: {
  16132            </Data>
  16133                                          
  16134           </Node>
  16135                                     
  16136          </Node>
  16137                                    
  16138          <Node>
  16139           <Sub>
  16140            16
  16141           </Sub>
  16142                                         
  16143           <Node>
  16144            <Sub>
  16145             0
  16146            </Sub>
  16147                                               
  16148            <Data>
  16149             &quot;post &quot;: {
  16150            </Data>
  16151                                          
  16152           </Node>
  16153                                     
  16154          </Node>
  16155                                    
  16156          <Node>
  16157           <Sub>
  16158            17
  16159           </Sub>
  16160                                         
  16161           <Node>
  16162            <Sub>
  16163             0
  16164            </Sub>
  16165                                               
  16166            <Data>
  16167             &quot;summ ary&quot;:  &quot;DEL ETE^TIUSRV P(.tRESULT ,TIUDA,TIU RSN,OVRRID E)&quot;,
  16168            </Data>
  16169                                          
  16170           </Node>
  16171                                     
  16172          </Node>
  16173                                    
  16174          <Node>
  16175           <Sub>
  16176            18
  16177           </Sub>
  16178                                         
  16179           <Node>
  16180            <Sub>
  16181             0
  16182            </Sub>
  16183                                               
  16184            <Data>
  16185             &quot;desc ription&qu ot;: &quot ;Deletes T IU Documen t records. ..Evaluate s authoriz ation.&quo t;,
  16186            </Data>
  16187                                          
  16188           </Node>
  16189                                     
  16190          </Node>
  16191                                    
  16192          <Node>
  16193           <Sub>
  16194            19
  16195           </Sub>
  16196                                         
  16197           <Node>
  16198            <Sub>
  16199             0
  16200            </Sub>
  16201                                               
  16202            <Data>
  16203             &quot;prod uces&quot; : [
  16204            </Data>
  16205                                          
  16206           </Node>
  16207                                     
  16208          </Node>
  16209                                    
  16210          <Node>
  16211           <Sub>
  16212            20
  16213           </Sub>
  16214                                         
  16215           <Node>
  16216            <Sub>
  16217             0
  16218            </Sub>
  16219                                               
  16220            <Data>
  16221             &quot;appl ication/js on&quot;
  16222            </Data>
  16223                                          
  16224           </Node>
  16225                                     
  16226          </Node>
  16227                                    
  16228          <Node>
  16229           <Sub>
  16230            21
  16231           </Sub>
  16232                                         
  16233           <Node>
  16234            <Sub>
  16235             0
  16236            </Sub>
  16237                                               
  16238            <Data>
  16239             ],
  16240            </Data>
  16241                                          
  16242           </Node>
  16243                                     
  16244          </Node>
  16245                                    
  16246          <Node>
  16247           <Sub>
  16248            22
  16249           </Sub>
  16250                                         
  16251           <Node>
  16252            <Sub>
  16253             0
  16254            </Sub>
  16255                                               
  16256            <Data>
  16257             &quot;para meters&quo t;: [
  16258            </Data>
  16259                                          
  16260           </Node>
  16261                                     
  16262          </Node>
  16263                                    
  16264          <Node>
  16265           <Sub>
  16266            23
  16267           </Sub>
  16268                                         
  16269           <Node>
  16270            <Sub>
  16271             0
  16272            </Sub>
  16273                                               
  16274            <Data>
  16275             {
  16276            </Data>
  16277                                          
  16278           </Node>
  16279                                     
  16280          </Node>
  16281                                    
  16282          <Node>
  16283           <Sub>
  16284            24
  16285           </Sub>
  16286                                         
  16287           <Node>
  16288            <Sub>
  16289             0
  16290            </Sub>
  16291                                               
  16292            <Data>
  16293             &quot;name &quot;: &q uot;TIUDA& quot;,
  16294            </Data>
  16295                                          
  16296           </Node>
  16297                                     
  16298          </Node>
  16299                                    
  16300          <Node>
  16301           <Sub>
  16302            25
  16303           </Sub>
  16304                                         
  16305           <Node>
  16306            <Sub>
  16307             0
  16308            </Sub>
  16309                                               
  16310            <Data>
  16311             &quot;desc ription&qu ot;: &quot ;Record nu mber of TI U Document  to be del eted. [Fil eman Type:  LITERAL]& quot;,
  16312            </Data>
  16313                                          
  16314           </Node>
  16315                                     
  16316          </Node>
  16317                                    
  16318          <Node>
  16319           <Sub>
  16320            26
  16321           </Sub>
  16322                                         
  16323           <Node>
  16324            <Sub>
  16325             0
  16326            </Sub>
  16327                                               
  16328            <Data>
  16329             &quot;in&q uot;: &quo t;formData &quot;,
  16330            </Data>
  16331                                          
  16332           </Node>
  16333                                     
  16334          </Node>
  16335                                    
  16336          <Node>
  16337           <Sub>
  16338            27
  16339           </Sub>
  16340                                         
  16341           <Node>
  16342            <Sub>
  16343             0
  16344            </Sub>
  16345                                               
  16346            <Data>
  16347             &quot;type &quot;: &q uot;string &quot;,
  16348            </Data>
  16349                                          
  16350           </Node>
  16351                                     
  16352          </Node>
  16353                                    
  16354          <Node>
  16355           <Sub>
  16356            28
  16357           </Sub>
  16358                                         
  16359           <Node>
  16360            <Sub>
  16361             0
  16362            </Sub>
  16363                                               
  16364            <Data>
  16365             &quot;requ ired&quot; : true
  16366            </Data>
  16367                                          
  16368           </Node>
  16369                                     
  16370          </Node>
  16371                                    
  16372          <Node>
  16373           <Sub>
  16374            29
  16375           </Sub>
  16376                                         
  16377           <Node>
  16378            <Sub>
  16379             0
  16380            </Sub>
  16381                                               
  16382            <Data>
  16383             },
  16384            </Data>
  16385                                          
  16386           </Node>
  16387                                     
  16388          </Node>
  16389                                    
  16390          <Node>
  16391           <Sub>
  16392            30
  16393           </Sub>
  16394                                         
  16395           <Node>
  16396            <Sub>
  16397             0
  16398            </Sub>
  16399                                               
  16400            <Data>
  16401             {
  16402            </Data>
  16403                                          
  16404           </Node>
  16405                                     
  16406          </Node>
  16407                                    
  16408          <Node>
  16409           <Sub>
  16410            31
  16411           </Sub>
  16412                                         
  16413           <Node>
  16414            <Sub>
  16415             0
  16416            </Sub>
  16417                                               
  16418            <Data>
  16419             &quot;name &quot;: &q uot;TIURSN &quot;,
  16420            </Data>
  16421                                          
  16422           </Node>
  16423                                     
  16424          </Node>
  16425                                    
  16426          <Node>
  16427           <Sub>
  16428            32
  16429           </Sub>
  16430                                         
  16431           <Node>
  16432            <Sub>
  16433             0
  16434            </Sub>
  16435                                               
  16436            <Data>
  16437             <![CDATA[" descriptio n": "This  optional p arameter s pecifies t he reason  for deleti on (i.e.,  PrivacyAct , or Admin istrative  Action). I t only nee ds to be p assed if t he documen t has alre ady been s igned, and  the user  is still a uthorized  to delete  therecord.  [Fileman  Type: LITE RAL]",]]>
  16438            </Data>
  16439                                          
  16440           </Node>
  16441                                     
  16442          </Node>
  16443                                    
  16444          <Node>
  16445           <Sub>
  16446            33
  16447           </Sub>
  16448                                         
  16449           <Node>
  16450            <Sub>
  16451             0
  16452            </Sub>
  16453                                               
  16454            <Data>
  16455             &quot;in&q uot;: &quo t;formData &quot;,
  16456            </Data>
  16457                                          
  16458           </Node>
  16459                                     
  16460          </Node>
  16461                                    
  16462          <Node>
  16463           <Sub>
  16464            34
  16465           </Sub>
  16466                                         
  16467           <Node>
  16468            <Sub>
  16469             0
  16470            </Sub>
  16471                                               
  16472            <Data>
  16473             &quot;type &quot;: &q uot;string &quot;,
  16474            </Data>
  16475                                          
  16476           </Node>
  16477                                     
  16478          </Node>
  16479                                    
  16480          <Node>
  16481           <Sub>
  16482            35
  16483           </Sub>
  16484                                         
  16485           <Node>
  16486            <Sub>
  16487             0
  16488            </Sub>
  16489                                               
  16490            <Data>
  16491             &quot;requ ired&quot; : false
  16492            </Data>
  16493                                          
  16494           </Node>
  16495                                     
  16496          </Node>
  16497                                    
  16498          <Node>
  16499           <Sub>
  16500            36
  16501           </Sub>
  16502                                         
  16503           <Node>
  16504            <Sub>
  16505             0
  16506            </Sub>
  16507                                               
  16508            <Data>
  16509             },
  16510            </Data>
  16511                                          
  16512           </Node>
  16513                                     
  16514          </Node>
  16515                                    
  16516          <Node>
  16517           <Sub>
  16518            37
  16519           </Sub>
  16520                                         
  16521           <Node>
  16522            <Sub>
  16523             0
  16524            </Sub>
  16525                                               
  16526            <Data>
  16527             {
  16528            </Data>
  16529                                          
  16530           </Node>
  16531                                     
  16532          </Node>
  16533                                    
  16534          <Node>
  16535           <Sub>
  16536            38
  16537           </Sub>
  16538                                         
  16539           <Node>
  16540            <Sub>
  16541             0
  16542            </Sub>
  16543                                               
  16544            <Data>
  16545             &quot;name &quot;: &q uot;OVRRID E&quot;,
  16546            </Data>
  16547                                          
  16548           </Node>
  16549                                     
  16550          </Node>
  16551                                    
  16552          <Node>
  16553           <Sub>
  16554            39
  16555           </Sub>
  16556                                         
  16557           <Node>
  16558            <Sub>
  16559             0
  16560            </Sub>
  16561                                               
  16562            <Data>
  16563             &quot;desc ription&qu ot;: &quot ;OVERRIDE  [Fileman T ype: LITER AL]&quot;,
  16564            </Data>
  16565                                          
  16566           </Node>
  16567                                     
  16568          </Node>
  16569                                    
  16570          <Node>
  16571           <Sub>
  16572            40
  16573           </Sub>
  16574                                         
  16575           <Node>
  16576            <Sub>
  16577             0
  16578            </Sub>
  16579                                               
  16580            <Data>
  16581             &quot;in&q uot;: &quo t;formData &quot;,
  16582            </Data>
  16583                                          
  16584           </Node>
  16585                                     
  16586          </Node>
  16587                                    
  16588          <Node>
  16589           <Sub>
  16590            41
  16591           </Sub>
  16592                                         
  16593           <Node>
  16594            <Sub>
  16595             0
  16596            </Sub>
  16597                                               
  16598            <Data>
  16599             &quot;type &quot;: &q uot;string &quot;,
  16600            </Data>
  16601                                          
  16602           </Node>
  16603                                     
  16604          </Node>
  16605                                    
  16606          <Node>
  16607           <Sub>
  16608            42
  16609           </Sub>
  16610                                         
  16611           <Node>
  16612            <Sub>
  16613             0
  16614            </Sub>
  16615                                               
  16616            <Data>
  16617             &quot;requ ired&quot; : false
  16618            </Data>
  16619                                          
  16620           </Node>
  16621                                     
  16622          </Node>
  16623                                    
  16624          <Node>
  16625           <Sub>
  16626            43
  16627           </Sub>
  16628                                         
  16629           <Node>
  16630            <Sub>
  16631             0
  16632            </Sub>
  16633                                               
  16634            <Data>
  16635             }
  16636            </Data>
  16637                                          
  16638           </Node>
  16639                                     
  16640          </Node>
  16641                                    
  16642          <Node>
  16643           <Sub>
  16644            44
  16645           </Sub>
  16646                                         
  16647           <Node>
  16648            <Sub>
  16649             0
  16650            </Sub>
  16651                                               
  16652            <Data>
  16653             ],
  16654            </Data>
  16655                                          
  16656           </Node>
  16657                                     
  16658          </Node>
  16659                                    
  16660          <Node>
  16661           <Sub>
  16662            45
  16663           </Sub>
  16664                                         
  16665           <Node>
  16666            <Sub>
  16667             0
  16668            </Sub>
  16669                                               
  16670            <Data>
  16671             &quot;tags &quot;: [
  16672            </Data>
  16673                                          
  16674           </Node>
  16675                                     
  16676          </Node>
  16677                                    
  16678          <Node>
  16679           <Sub>
  16680            46
  16681           </Sub>
  16682                                         
  16683           <Node>
  16684            <Sub>
  16685             0
  16686            </Sub>
  16687                                               
  16688            <Data>
  16689             &quot;RPCS &quot;,
  16690            </Data>
  16691                                          
  16692           </Node>
  16693                                     
  16694          </Node>
  16695                                    
  16696          <Node>
  16697           <Sub>
  16698            47
  16699           </Sub>
  16700                                         
  16701           <Node>
  16702            <Sub>
  16703             0
  16704            </Sub>
  16705                                               
  16706            <Data>
  16707             &quot;Rest ify&quot;
  16708            </Data>
  16709                                          
  16710           </Node>
  16711                                     
  16712          </Node>
  16713                                    
  16714          <Node>
  16715           <Sub>
  16716            48
  16717           </Sub>
  16718                                         
  16719           <Node>
  16720            <Sub>
  16721             0
  16722            </Sub>
  16723                                               
  16724            <Data>
  16725             ],
  16726            </Data>
  16727                                          
  16728           </Node>
  16729                                     
  16730          </Node>
  16731                                    
  16732          <Node>
  16733           <Sub>
  16734            49
  16735           </Sub>
  16736                                         
  16737           <Node>
  16738            <Sub>
  16739             0
  16740            </Sub>
  16741                                               
  16742            <Data>
  16743             &quot;resp onses&quot ;: {
  16744            </Data>
  16745                                          
  16746           </Node>
  16747                                     
  16748          </Node>
  16749                                    
  16750          <Node>
  16751           <Sub>
  16752            50
  16753           </Sub>
  16754                                         
  16755           <Node>
  16756            <Sub>
  16757             0
  16758            </Sub>
  16759                                               
  16760            <Data>
  16761             &quot;200& quot;: {
  16762            </Data>
  16763                                          
  16764           </Node>
  16765                                     
  16766          </Node>
  16767                                    
  16768          <Node>
  16769           <Sub>
  16770            51
  16771           </Sub>
  16772                                         
  16773           <Node>
  16774            <Sub>
  16775             0
  16776            </Sub>
  16777                                               
  16778            <Data>
  16779             <![CDATA[" descriptio n": "Retur ns error m essage wit h ERR=1^Ex planation  text if th e user is  NOTauthori zed to del ete the na med record  (e.g., it 's his, bu t signed;  or it'snot  his, and  he better  keep his p aws off it ).",]]>
  16780            </Data>
  16781                                          
  16782           </Node>
  16783                                     
  16784          </Node>
  16785                                    
  16786          <Node>
  16787           <Sub>
  16788            52
  16789           </Sub>
  16790                                         
  16791           <Node>
  16792            <Sub>
  16793             0
  16794            </Sub>
  16795                                               
  16796            <Data>
  16797             &quot;sche ma&quot;:  {
  16798            </Data>
  16799                                          
  16800           </Node>
  16801                                     
  16802          </Node>
  16803                                    
  16804          <Node>
  16805           <Sub>
  16806            53
  16807           </Sub>
  16808                                         
  16809           <Node>
  16810            <Sub>
  16811             0
  16812            </Sub>
  16813                                               
  16814            <Data>
  16815             &quot;$ref &quot;: &q uot;#/defi nitions/SI NGLE_VALUE &quot;
  16816            </Data>
  16817                                          
  16818           </Node>
  16819                                     
  16820          </Node>
  16821                                    
  16822          <Node>
  16823           <Sub>
  16824            54
  16825           </Sub>
  16826                                         
  16827           <Node>
  16828            <Sub>
  16829             0
  16830            </Sub>
  16831                                               
  16832            <Data>
  16833             }
  16834            </Data>
  16835                                          
  16836           </Node>
  16837                                     
  16838          </Node>
  16839                                    
  16840          <Node>
  16841           <Sub>
  16842            55
  16843           </Sub>
  16844                                         
  16845           <Node>
  16846            <Sub>
  16847             0
  16848            </Sub>
  16849                                               
  16850            <Data>
  16851             }
  16852            </Data>
  16853                                          
  16854           </Node>
  16855                                     
  16856          </Node>
  16857                                    
  16858          <Node>
  16859           <Sub>
  16860            56
  16861           </Sub>
  16862                                         
  16863           <Node>
  16864            <Sub>
  16865             0
  16866            </Sub>
  16867                                               
  16868            <Data>
  16869             }
  16870            </Data>
  16871                                          
  16872           </Node>
  16873                                     
  16874          </Node>
  16875                                    
  16876          <Node>
  16877           <Sub>
  16878            57
  16879           </Sub>
  16880                                         
  16881           <Node>
  16882            <Sub>
  16883             0
  16884            </Sub>
  16885                                               
  16886            <Data>
  16887             }
  16888            </Data>
  16889                                          
  16890           </Node>
  16891                                     
  16892          </Node>
  16893                                    
  16894          <Node>
  16895           <Sub>
  16896            58
  16897           </Sub>
  16898                                         
  16899           <Node>
  16900            <Sub>
  16901             0
  16902            </Sub>
  16903                                               
  16904            <Data>
  16905             }
  16906            </Data>
  16907                                          
  16908           </Node>
  16909                                     
  16910          </Node>
  16911                                    
  16912          <Node>
  16913           <Sub>
  16914            59
  16915           </Sub>
  16916                                         
  16917           <Node>
  16918            <Sub>
  16919             0
  16920            </Sub>
  16921                                               
  16922            <Data>
  16923             },
  16924            </Data>
  16925                                          
  16926           </Node>
  16927                                     
  16928          </Node>
  16929                                    
  16930          <Node>
  16931           <Sub>
  16932            60
  16933           </Sub>
  16934                                         
  16935           <Node>
  16936            <Sub>
  16937             0
  16938            </Sub>
  16939                                               
  16940            <Data>
  16941             &quot;defi nitions&qu ot;: {
  16942            </Data>
  16943                                          
  16944           </Node>
  16945                                     
  16946          </Node>
  16947                                    
  16948          <Node>
  16949           <Sub>
  16950            61
  16951           </Sub>
  16952                                         
  16953           <Node>
  16954            <Sub>
  16955             0
  16956            </Sub>
  16957                                               
  16958            <Data>
  16959             &quot;ARRA Y&quot;: {
  16960            </Data>
  16961                                          
  16962           </Node>
  16963                                     
  16964          </Node>
  16965                                    
  16966          <Node>
  16967           <Sub>
  16968            62
  16969           </Sub>
  16970                                         
  16971           <Node>
  16972            <Sub>
  16973             0
  16974            </Sub>
  16975                                               
  16976            <Data>
  16977             &quot;type &quot;: &q uot;object &quot;
  16978            </Data>
  16979                                          
  16980           </Node>
  16981                                     
  16982          </Node>
  16983                                    
  16984          <Node>
  16985           <Sub>
  16986            63
  16987           </Sub>
  16988                                         
  16989           <Node>
  16990            <Sub>
  16991             0
  16992            </Sub>
  16993                                               
  16994            <Data>
  16995             },
  16996            </Data>
  16997                                          
  16998           </Node>
  16999                                     
  17000          </Node>
  17001                                    
  17002          <Node>
  17003           <Sub>
  17004            64
  17005           </Sub>
  17006                                         
  17007           <Node>
  17008            <Sub>
  17009             0
  17010            </Sub>
  17011                                               
  17012            <Data>
  17013             &quot;GLOB AL_ARRAY&q uot;: {
  17014            </Data>
  17015                                          
  17016           </Node>
  17017                                     
  17018          </Node>
  17019                                    
  17020          <Node>
  17021           <Sub>
  17022            65
  17023           </Sub>
  17024                                         
  17025           <Node>
  17026            <Sub>
  17027             0
  17028            </Sub>
  17029                                               
  17030            <Data>
  17031             &quot;type &quot;: &q uot;object &quot;
  17032            </Data>
  17033                                          
  17034           </Node>
  17035                                     
  17036          </Node>
  17037                                    
  17038          <Node>
  17039           <Sub>
  17040            66
  17041           </Sub>
  17042                                         
  17043           <Node>
  17044            <Sub>
  17045             0
  17046            </Sub>
  17047                                               
  17048            <Data>
  17049             },
  17050            </Data>
  17051                                          
  17052           </Node>
  17053                                     
  17054          </Node>
  17055                                    
  17056          <Node>
  17057           <Sub>
  17058            67
  17059           </Sub>
  17060                                         
  17061           <Node>
  17062            <Sub>
  17063             0
  17064            </Sub>
  17065                                               
  17066            <Data>
  17067             &quot;SING LE_VALUE&q uot;: {
  17068            </Data>
  17069                                          
  17070           </Node>
  17071                                     
  17072          </Node>
  17073                                    
  17074          <Node>
  17075           <Sub>
  17076            68
  17077           </Sub>
  17078                                         
  17079           <Node>
  17080            <Sub>
  17081             0
  17082            </Sub>
  17083                                               
  17084            <Data>
  17085             &quot;type &quot;: &q uot;string &quot;
  17086            </Data>
  17087                                          
  17088           </Node>
  17089                                     
  17090          </Node>
  17091                                    
  17092          <Node>
  17093           <Sub>
  17094            69
  17095           </Sub>
  17096                                         
  17097           <Node>
  17098            <Sub>
  17099             0
  17100            </Sub>
  17101                                               
  17102            <Data>
  17103             },
  17104            </Data>
  17105                                          
  17106           </Node>
  17107                                     
  17108          </Node>
  17109                                    
  17110          <Node>
  17111           <Sub>
  17112            70
  17113           </Sub>
  17114                                         
  17115           <Node>
  17116            <Sub>
  17117             0
  17118            </Sub>
  17119                                               
  17120            <Data>
  17121             &quot;GLOB AL_INSTANC E&quot;: {
  17122            </Data>
  17123                                          
  17124           </Node>
  17125                                     
  17126          </Node>
  17127                                    
  17128          <Node>
  17129           <Sub>
  17130            71
  17131           </Sub>
  17132                                         
  17133           <Node>
  17134            <Sub>
  17135             0
  17136            </Sub>
  17137                                               
  17138            <Data>
  17139             &quot;type &quot;: &q uot;string &quot;
  17140            </Data>
  17141                                          
  17142           </Node>
  17143                                     
  17144          </Node>
  17145                                    
  17146          <Node>
  17147           <Sub>
  17148            72
  17149           </Sub>
  17150                                         
  17151           <Node>
  17152            <Sub>
  17153             0
  17154            </Sub>
  17155                                               
  17156            <Data>
  17157             },
  17158            </Data>
  17159                                          
  17160           </Node>
  17161                                     
  17162          </Node>
  17163                                    
  17164          <Node>
  17165           <Sub>
  17166            73
  17167           </Sub>
  17168                                         
  17169           <Node>
  17170            <Sub>
  17171             0
  17172            </Sub>
  17173                                               
  17174            <Data>
  17175             &quot;WORD _PROCESSIN G&quot;: {
  17176            </Data>
  17177                                          
  17178           </Node>
  17179                                     
  17180          </Node>
  17181                                    
  17182          <Node>
  17183           <Sub>
  17184            74
  17185           </Sub>
  17186                                         
  17187           <Node>
  17188            <Sub>
  17189             0
  17190            </Sub>
  17191                                               
  17192            <Data>
  17193             &quot;type &quot;: &q uot;object &quot;
  17194            </Data>
  17195                                          
  17196           </Node>
  17197                                     
  17198          </Node>
  17199                                    
  17200          <Node>
  17201           <Sub>
  17202            75
  17203           </Sub>
  17204                                         
  17205           <Node>
  17206            <Sub>
  17207             0
  17208            </Sub>
  17209                                               
  17210            <Data>
  17211             },
  17212            </Data>
  17213                                          
  17214           </Node>
  17215                                     
  17216          </Node>
  17217                                    
  17218          <Node>
  17219           <Sub>
  17220            76
  17221           </Sub>
  17222                                         
  17223           <Node>
  17224            <Sub>
  17225             0
  17226            </Sub>
  17227                                               
  17228            <Data>
  17229             &quot;Erro r&quot;: {
  17230            </Data>
  17231                                          
  17232           </Node>
  17233                                     
  17234          </Node>
  17235                                    
  17236          <Node>
  17237           <Sub>
  17238            77
  17239           </Sub>
  17240                                         
  17241           <Node>
  17242            <Sub>
  17243             0
  17244            </Sub>
  17245                                               
  17246            <Data>
  17247             &quot;prop erties&quo t;: {
  17248            </Data>
  17249                                          
  17250           </Node>
  17251                                     
  17252          </Node>
  17253                                    
  17254          <Node>
  17255           <Sub>
  17256            78
  17257           </Sub>
  17258                                         
  17259           <Node>
  17260            <Sub>
  17261             0
  17262            </Sub>
  17263                                               
  17264            <Data>
  17265             &quot;erro r&quot;: {
  17266            </Data>
  17267                                          
  17268           </Node>
  17269                                     
  17270          </Node>
  17271                                    
  17272          <Node>
  17273           <Sub>
  17274            79
  17275           </Sub>
  17276                                         
  17277           <Node>
  17278            <Sub>
  17279             0
  17280            </Sub>
  17281                                               
  17282            <Data>
  17283             &quot;type &quot;: &q uot;string &quot;,
  17284            </Data>
  17285                                          
  17286           </Node>
  17287                                     
  17288          </Node>
  17289                                    
  17290          <Node>
  17291           <Sub>
  17292            80
  17293           </Sub>
  17294                                         
  17295           <Node>
  17296            <Sub>
  17297             0
  17298            </Sub>
  17299                                               
  17300            <Data>
  17301             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  17302            </Data>
  17303                                          
  17304           </Node>
  17305                                     
  17306          </Node>
  17307                                    
  17308          <Node>
  17309           <Sub>
  17310            81
  17311           </Sub>
  17312                                         
  17313           <Node>
  17314            <Sub>
  17315             0
  17316            </Sub>
  17317                                               
  17318            <Data>
  17319             },
  17320            </Data>
  17321                                          
  17322           </Node>
  17323                                     
  17324          </Node>
  17325                                    
  17326          <Node>
  17327           <Sub>
  17328            82
  17329           </Sub>
  17330                                         
  17331           <Node>
  17332            <Sub>
  17333             0
  17334            </Sub>
  17335                                               
  17336            <Data>
  17337             &quot;data &quot;: {
  17338            </Data>
  17339                                          
  17340           </Node>
  17341                                     
  17342          </Node>
  17343                                    
  17344          <Node>
  17345           <Sub>
  17346            83
  17347           </Sub>
  17348                                         
  17349           <Node>
  17350            <Sub>
  17351             0
  17352            </Sub>
  17353                                               
  17354            <Data>
  17355             &quot;type &quot;: &q uot;object &quot;,
  17356            </Data>
  17357                                          
  17358           </Node>
  17359                                     
  17360          </Node>
  17361                                    
  17362          <Node>
  17363           <Sub>
  17364            84
  17365           </Sub>
  17366                                         
  17367           <Node>
  17368            <Sub>
  17369             0
  17370            </Sub>
  17371                                               
  17372            <Data>
  17373             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  17374            </Data>
  17375                                          
  17376           </Node>
  17377                                     
  17378          </Node>
  17379                                    
  17380          <Node>
  17381           <Sub>
  17382            85
  17383           </Sub>
  17384                                         
  17385           <Node>
  17386            <Sub>
  17387             0
  17388            </Sub>
  17389                                               
  17390            <Data>
  17391             }
  17392            </Data>
  17393                                          
  17394           </Node>
  17395                                     
  17396          </Node>
  17397                                    
  17398          <Node>
  17399           <Sub>
  17400            86
  17401           </Sub>
  17402                                         
  17403           <Node>
  17404            <Sub>
  17405             0
  17406            </Sub>
  17407                                               
  17408            <Data>
  17409             }
  17410            </Data>
  17411                                          
  17412           </Node>
  17413                                     
  17414          </Node>
  17415                                    
  17416          <Node>
  17417           <Sub>
  17418            87
  17419           </Sub>
  17420                                         
  17421           <Node>
  17422            <Sub>
  17423             0
  17424            </Sub>
  17425                                               
  17426            <Data>
  17427             },
  17428            </Data>
  17429                                          
  17430           </Node>
  17431                                     
  17432          </Node>
  17433                                    
  17434          <Node>
  17435           <Sub>
  17436            88
  17437           </Sub>
  17438                                         
  17439           <Node>
  17440            <Sub>
  17441             0
  17442            </Sub>
  17443                                               
  17444            <Data>
  17445             &quot;RpcI d&quot;: {
  17446            </Data>
  17447                                          
  17448           </Node>
  17449                                     
  17450          </Node>
  17451                                    
  17452          <Node>
  17453           <Sub>
  17454            89
  17455           </Sub>
  17456                                         
  17457           <Node>
  17458            <Sub>
  17459             0
  17460            </Sub>
  17461                                               
  17462            <Data>
  17463             &quot;prop erties&quo t;: {
  17464            </Data>
  17465                                          
  17466           </Node>
  17467                                     
  17468          </Node>
  17469                                    
  17470          <Node>
  17471           <Sub>
  17472            90
  17473           </Sub>
  17474                                         
  17475           <Node>
  17476            <Sub>
  17477             0
  17478            </Sub>
  17479                                               
  17480            <Data>
  17481             &quot;id&q uot;: {
  17482            </Data>
  17483                                          
  17484           </Node>
  17485                                     
  17486          </Node>
  17487                                    
  17488          <Node>
  17489           <Sub>
  17490            91
  17491           </Sub>
  17492                                         
  17493           <Node>
  17494            <Sub>
  17495             0
  17496            </Sub>
  17497                                               
  17498            <Data>
  17499             &quot;type &quot;: &q uot;intege r&quot;,
  17500            </Data>
  17501                                          
  17502           </Node>
  17503                                     
  17504          </Node>
  17505                                    
  17506          <Node>
  17507           <Sub>
  17508            92
  17509           </Sub>
  17510                                         
  17511           <Node>
  17512            <Sub>
  17513             0
  17514            </Sub>
  17515                                               
  17516            <Data>
  17517             &quot;form at&quot;:  &quot;int3 2&quot;,
  17518            </Data>
  17519                                          
  17520           </Node>
  17521                                     
  17522          </Node>
  17523                                    
  17524          <Node>
  17525           <Sub>
  17526            93
  17527           </Sub>
  17528                                         
  17529           <Node>
  17530            <Sub>
  17531             0
  17532            </Sub>
  17533                                               
  17534            <Data>
  17535             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  17536            </Data>
  17537                                          
  17538           </Node>
  17539                                     
  17540          </Node>
  17541                                    
  17542          <Node>
  17543           <Sub>
  17544            94
  17545           </Sub>
  17546                                         
  17547           <Node>
  17548            <Sub>
  17549             0
  17550            </Sub>
  17551                                               
  17552            <Data>
  17553             },
  17554            </Data>
  17555                                          
  17556           </Node>
  17557                                     
  17558          </Node>
  17559                                    
  17560          <Node>
  17561           <Sub>
  17562            95
  17563           </Sub>
  17564                                         
  17565           <Node>
  17566            <Sub>
  17567             0
  17568            </Sub>
  17569                                               
  17570            <Data>
  17571             &quot;name &quot;: {
  17572            </Data>
  17573                                          
  17574           </Node>
  17575                                     
  17576          </Node>
  17577                                    
  17578          <Node>
  17579           <Sub>
  17580            96
  17581           </Sub>
  17582                                         
  17583           <Node>
  17584            <Sub>
  17585             0
  17586            </Sub>
  17587                                               
  17588            <Data>
  17589             &quot;type &quot;: &q uot;string &quot;,
  17590            </Data>
  17591                                          
  17592           </Node>
  17593                                     
  17594          </Node>
  17595                                    
  17596          <Node>
  17597           <Sub>
  17598            97
  17599           </Sub>
  17600                                         
  17601           <Node>
  17602            <Sub>
  17603             0
  17604            </Sub>
  17605                                               
  17606            <Data>
  17607             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  17608            </Data>
  17609                                          
  17610           </Node>
  17611                                     
  17612          </Node>
  17613                                    
  17614          <Node>
  17615           <Sub>
  17616            98
  17617           </Sub>
  17618                                         
  17619           <Node>
  17620            <Sub>
  17621             0
  17622            </Sub>
  17623                                               
  17624            <Data>
  17625             }
  17626            </Data>
  17627                                          
  17628           </Node>
  17629                                     
  17630          </Node>
  17631                                    
  17632          <Node>
  17633           <Sub>
  17634            99
  17635           </Sub>
  17636                                         
  17637           <Node>
  17638            <Sub>
  17639             0
  17640            </Sub>
  17641                                               
  17642            <Data>
  17643             }
  17644            </Data>
  17645                                          
  17646           </Node>
  17647                                     
  17648          </Node>
  17649                                    
  17650          <Node>
  17651           <Sub>
  17652            100
  17653           </Sub>
  17654                                         
  17655           <Node>
  17656            <Sub>
  17657             0
  17658            </Sub>
  17659                                               
  17660            <Data>
  17661             },
  17662            </Data>
  17663                                          
  17664           </Node>
  17665                                     
  17666          </Node>
  17667                                    
  17668          <Node>
  17669           <Sub>
  17670            101
  17671           </Sub>
  17672                                         
  17673           <Node>
  17674            <Sub>
  17675             0
  17676            </Sub>
  17677                                               
  17678            <Data>
  17679             &quot;Swag gerDefinit ion&quot;:  {},
  17680            </Data>
  17681                                          
  17682           </Node>
  17683                                     
  17684          </Node>
  17685                                    
  17686          <Node>
  17687           <Sub>
  17688            102
  17689           </Sub>
  17690                                         
  17691           <Node>
  17692            <Sub>
  17693             0
  17694            </Sub>
  17695                                               
  17696            <Data>
  17697             &quot;Path &quot;: {}
  17698            </Data>
  17699                                          
  17700           </Node>
  17701                                     
  17702          </Node>
  17703                                    
  17704          <Node>
  17705           <Sub>
  17706            103
  17707           </Sub>
  17708                                         
  17709           <Node>
  17710            <Sub>
  17711             0
  17712            </Sub>
  17713                                               
  17714            <Data>
  17715             }
  17716            </Data>
  17717                                          
  17718           </Node>
  17719                                     
  17720          </Node>
  17721                                    
  17722          <Node>
  17723           <Sub>
  17724            104
  17725           </Sub>
  17726                                         
  17727           <Node>
  17728            <Sub>
  17729             0
  17730            </Sub>
  17731                                               
  17732            <Data>
  17733             }
  17734            </Data>
  17735                                          
  17736           </Node>
  17737                                     
  17738          </Node>
  17739                               
  17740         </Node>
  17741                          
  17742        </Node>
  17743                         
  17744        <Node>
  17745         <Sub>
  17746          8
  17747         </Sub>
  17748                              
  17749         <Node>
  17750          <Sub>
  17751           0
  17752          </Sub>
  17753                                    
  17754          <Data>
  17755           XUS INTRO  MSG
  17756          </Data>
  17757                               
  17758         </Node>
  17759                              
  17760         <Node>
  17761          <Sub>
  17762           DEF
  17763          </Sub>
  17764                                    
  17765          <Node>
  17766           <Sub>
  17767            0
  17768           </Sub>
  17769                                         
  17770           <Data>
  17771            ^^82^82^31 60408
  17772           </Data>
  17773                                     
  17774          </Node>
  17775                                    
  17776          <Node>
  17777           <Sub>
  17778            1
  17779           </Sub>
  17780                                         
  17781           <Node>
  17782            <Sub>
  17783             0
  17784            </Sub>
  17785                                               
  17786            <Data>
  17787             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  17788            </Data>
  17789                                          
  17790           </Node>
  17791                                     
  17792          </Node>
  17793                                    
  17794          <Node>
  17795           <Sub>
  17796            2
  17797           </Sub>
  17798                                         
  17799           <Node>
  17800            <Sub>
  17801             0
  17802            </Sub>
  17803                                               
  17804            <Data>
  17805             &quot;info &quot;: {
  17806            </Data>
  17807                                          
  17808           </Node>
  17809                                     
  17810          </Node>
  17811                                    
  17812          <Node>
  17813           <Sub>
  17814            3
  17815           </Sub>
  17816                                         
  17817           <Node>
  17818            <Sub>
  17819             0
  17820            </Sub>
  17821                                               
  17822            <Data>
  17823             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  17824            </Data>
  17825                                          
  17826           </Node>
  17827                                     
  17828          </Node>
  17829                                    
  17830          <Node>
  17831           <Sub>
  17832            4
  17833           </Sub>
  17834                                         
  17835           <Node>
  17836            <Sub>
  17837             0
  17838            </Sub>
  17839                                               
  17840            <Data>
  17841             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  17842            </Data>
  17843                                          
  17844           </Node>
  17845                                     
  17846          </Node>
  17847                                    
  17848          <Node>
  17849           <Sub>
  17850            5
  17851           </Sub>
  17852                                         
  17853           <Node>
  17854            <Sub>
  17855             0
  17856            </Sub>
  17857                                               
  17858            <Data>
  17859             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  17860            </Data>
  17861                                          
  17862           </Node>
  17863                                     
  17864          </Node>
  17865                                    
  17866          <Node>
  17867           <Sub>
  17868            6
  17869           </Sub>
  17870                                         
  17871           <Node>
  17872            <Sub>
  17873             0
  17874            </Sub>
  17875                                               
  17876            <Data>
  17877             },
  17878            </Data>
  17879                                          
  17880           </Node>
  17881                                     
  17882          </Node>
  17883                                    
  17884          <Node>
  17885           <Sub>
  17886            7
  17887           </Sub>
  17888                                         
  17889           <Node>
  17890            <Sub>
  17891             0
  17892            </Sub>
  17893                                               
  17894            <Data>
  17895             &quot;sche mes&quot;:  [
  17896            </Data>
  17897                                          
  17898           </Node>
  17899                                     
  17900          </Node>
  17901                                    
  17902          <Node>
  17903           <Sub>
  17904            8
  17905           </Sub>
  17906                                         
  17907           <Node>
  17908            <Sub>
  17909             0
  17910            </Sub>
  17911                                               
  17912            <Data>
  17913             &quot;http s&quot;
  17914            </Data>
  17915                                          
  17916           </Node>
  17917                                     
  17918          </Node>
  17919                                    
  17920          <Node>
  17921           <Sub>
  17922            9
  17923           </Sub>
  17924                                         
  17925           <Node>
  17926            <Sub>
  17927             0
  17928            </Sub>
  17929                                               
  17930            <Data>
  17931             ],
  17932            </Data>
  17933                                          
  17934           </Node>
  17935                                     
  17936          </Node>
  17937                                    
  17938          <Node>
  17939           <Sub>
  17940            10
  17941           </Sub>
  17942                                         
  17943           <Node>
  17944            <Sub>
  17945             0
  17946            </Sub>
  17947                                               
  17948            <Data>
  17949             &quot;base Path&quot; : &quot;/r pcs&quot;,
  17950            </Data>
  17951                                          
  17952           </Node>
  17953                                     
  17954          </Node>
  17955                                    
  17956          <Node>
  17957           <Sub>
  17958            11
  17959           </Sub>
  17960                                         
  17961           <Node>
  17962            <Sub>
  17963             0
  17964            </Sub>
  17965                                               
  17966            <Data>
  17967             &quot;prod uces&quot; : [
  17968            </Data>
  17969                                          
  17970           </Node>
  17971                                     
  17972          </Node>
  17973                                    
  17974          <Node>
  17975           <Sub>
  17976            12
  17977           </Sub>
  17978                                         
  17979           <Node>
  17980            <Sub>
  17981             0
  17982            </Sub>
  17983                                               
  17984            <Data>
  17985             &quot;appl ication/js on&quot;
  17986            </Data>
  17987                                          
  17988           </Node>
  17989                                     
  17990          </Node>
  17991                                    
  17992          <Node>
  17993           <Sub>
  17994            13
  17995           </Sub>
  17996                                         
  17997           <Node>
  17998            <Sub>
  17999             0
  18000            </Sub>
  18001                                               
  18002            <Data>
  18003             ],
  18004            </Data>
  18005                                          
  18006           </Node>
  18007                                     
  18008          </Node>
  18009                                    
  18010          <Node>
  18011           <Sub>
  18012            14
  18013           </Sub>
  18014                                         
  18015           <Node>
  18016            <Sub>
  18017             0
  18018            </Sub>
  18019                                               
  18020            <Data>
  18021             &quot;path s&quot;: {
  18022            </Data>
  18023                                          
  18024           </Node>
  18025                                     
  18026          </Node>
  18027                                    
  18028          <Node>
  18029           <Sub>
  18030            15
  18031           </Sub>
  18032                                         
  18033           <Node>
  18034            <Sub>
  18035             0
  18036            </Sub>
  18037                                               
  18038            <Data>
  18039             &quot;/by- name/xus%2 0intro%20m sg/call&qu ot;: {
  18040            </Data>
  18041                                          
  18042           </Node>
  18043                                     
  18044          </Node>
  18045                                    
  18046          <Node>
  18047           <Sub>
  18048            16
  18049           </Sub>
  18050                                         
  18051           <Node>
  18052            <Sub>
  18053             0
  18054            </Sub>
  18055                                               
  18056            <Data>
  18057             &quot;post &quot;: {
  18058            </Data>
  18059                                          
  18060           </Node>
  18061                                     
  18062          </Node>
  18063                                    
  18064          <Node>
  18065           <Sub>
  18066            17
  18067           </Sub>
  18068                                         
  18069           <Node>
  18070            <Sub>
  18071             0
  18072            </Sub>
  18073                                               
  18074            <Data>
  18075             &quot;summ ary&quot;:  &quot;INT RO^XUSRB(. tRESULT)&q uot;,
  18076            </Data>
  18077                                          
  18078           </Node>
  18079                                     
  18080          </Node>
  18081                                    
  18082          <Node>
  18083           <Sub>
  18084            18
  18085           </Sub>
  18086                                         
  18087           <Node>
  18088            <Sub>
  18089             0
  18090            </Sub>
  18091                                               
  18092            <Data>
  18093             &quot;desc ription&qu ot;: &quot ;This RPC  returns th e INTRO me ssage from  the KERNE L SYSTEM P ARAMETERS  file.&quot ;,
  18094            </Data>
  18095                                          
  18096           </Node>
  18097                                     
  18098          </Node>
  18099                                    
  18100          <Node>
  18101           <Sub>
  18102            19
  18103           </Sub>
  18104                                         
  18105           <Node>
  18106            <Sub>
  18107             0
  18108            </Sub>
  18109                                               
  18110            <Data>
  18111             &quot;prod uces&quot; : [
  18112            </Data>
  18113                                          
  18114           </Node>
  18115                                     
  18116          </Node>
  18117                                    
  18118          <Node>
  18119           <Sub>
  18120            20
  18121           </Sub>
  18122                                         
  18123           <Node>
  18124            <Sub>
  18125             0
  18126            </Sub>
  18127                                               
  18128            <Data>
  18129             &quot;appl ication/js on&quot;
  18130            </Data>
  18131                                          
  18132           </Node>
  18133                                     
  18134          </Node>
  18135                                    
  18136          <Node>
  18137           <Sub>
  18138            21
  18139           </Sub>
  18140                                         
  18141           <Node>
  18142            <Sub>
  18143             0
  18144            </Sub>
  18145                                               
  18146            <Data>
  18147             ],
  18148            </Data>
  18149                                          
  18150           </Node>
  18151                                     
  18152          </Node>
  18153                                    
  18154          <Node>
  18155           <Sub>
  18156            22
  18157           </Sub>
  18158                                         
  18159           <Node>
  18160            <Sub>
  18161             0
  18162            </Sub>
  18163                                               
  18164            <Data>
  18165             &quot;para meters&quo t;: [],
  18166            </Data>
  18167                                          
  18168           </Node>
  18169                                     
  18170          </Node>
  18171                                    
  18172          <Node>
  18173           <Sub>
  18174            23
  18175           </Sub>
  18176                                         
  18177           <Node>
  18178            <Sub>
  18179             0
  18180            </Sub>
  18181                                               
  18182            <Data>
  18183             &quot;tags &quot;: [
  18184            </Data>
  18185                                          
  18186           </Node>
  18187                                     
  18188          </Node>
  18189                                    
  18190          <Node>
  18191           <Sub>
  18192            24
  18193           </Sub>
  18194                                         
  18195           <Node>
  18196            <Sub>
  18197             0
  18198            </Sub>
  18199                                               
  18200            <Data>
  18201             &quot;RPCS &quot;,
  18202            </Data>
  18203                                          
  18204           </Node>
  18205                                     
  18206          </Node>
  18207                                    
  18208          <Node>
  18209           <Sub>
  18210            25
  18211           </Sub>
  18212                                         
  18213           <Node>
  18214            <Sub>
  18215             0
  18216            </Sub>
  18217                                               
  18218            <Data>
  18219             &quot;Rest ify&quot;
  18220            </Data>
  18221                                          
  18222           </Node>
  18223                                     
  18224          </Node>
  18225                                    
  18226          <Node>
  18227           <Sub>
  18228            26
  18229           </Sub>
  18230                                         
  18231           <Node>
  18232            <Sub>
  18233             0
  18234            </Sub>
  18235                                               
  18236            <Data>
  18237             ],
  18238            </Data>
  18239                                          
  18240           </Node>
  18241                                     
  18242          </Node>
  18243                                    
  18244          <Node>
  18245           <Sub>
  18246            27
  18247           </Sub>
  18248                                         
  18249           <Node>
  18250            <Sub>
  18251             0
  18252            </Sub>
  18253                                               
  18254            <Data>
  18255             &quot;resp onses&quot ;: {
  18256            </Data>
  18257                                          
  18258           </Node>
  18259                                     
  18260          </Node>
  18261                                    
  18262          <Node>
  18263           <Sub>
  18264            28
  18265           </Sub>
  18266                                         
  18267           <Node>
  18268            <Sub>
  18269             0
  18270            </Sub>
  18271                                               
  18272            <Data>
  18273             &quot;200& quot;: {
  18274            </Data>
  18275                                          
  18276           </Node>
  18277                                     
  18278          </Node>
  18279                                    
  18280          <Node>
  18281           <Sub>
  18282            29
  18283           </Sub>
  18284                                         
  18285           <Node>
  18286            <Sub>
  18287             0
  18288            </Sub>
  18289                                               
  18290            <Data>
  18291             &quot;desc ription&qu ot;: &quot ;The syste m SignOn M essage&quo t;,
  18292            </Data>
  18293                                          
  18294           </Node>
  18295                                     
  18296          </Node>
  18297                                    
  18298          <Node>
  18299           <Sub>
  18300            30
  18301           </Sub>
  18302                                         
  18303           <Node>
  18304            <Sub>
  18305             0
  18306            </Sub>
  18307                                               
  18308            <Data>
  18309             &quot;sche ma&quot;:  {
  18310            </Data>
  18311                                          
  18312           </Node>
  18313                                     
  18314          </Node>
  18315                                    
  18316          <Node>
  18317           <Sub>
  18318            31
  18319           </Sub>
  18320                                         
  18321           <Node>
  18322            <Sub>
  18323             0
  18324            </Sub>
  18325                                               
  18326            <Data>
  18327             &quot;$ref &quot;: &q uot;#/defi nitions/WO RD_PROCESS ING&quot;
  18328            </Data>
  18329                                          
  18330           </Node>
  18331                                     
  18332          </Node>
  18333                                    
  18334          <Node>
  18335           <Sub>
  18336            32
  18337           </Sub>
  18338                                         
  18339           <Node>
  18340            <Sub>
  18341             0
  18342            </Sub>
  18343                                               
  18344            <Data>
  18345             }
  18346            </Data>
  18347                                          
  18348           </Node>
  18349                                     
  18350          </Node>
  18351                                    
  18352          <Node>
  18353           <Sub>
  18354            33
  18355           </Sub>
  18356                                         
  18357           <Node>
  18358            <Sub>
  18359             0
  18360            </Sub>
  18361                                               
  18362            <Data>
  18363             }
  18364            </Data>
  18365                                          
  18366           </Node>
  18367                                     
  18368          </Node>
  18369                                    
  18370          <Node>
  18371           <Sub>
  18372            34
  18373           </Sub>
  18374                                         
  18375           <Node>
  18376            <Sub>
  18377             0
  18378            </Sub>
  18379                                               
  18380            <Data>
  18381             }
  18382            </Data>
  18383                                          
  18384           </Node>
  18385                                     
  18386          </Node>
  18387                                    
  18388          <Node>
  18389           <Sub>
  18390            35
  18391           </Sub>
  18392                                         
  18393           <Node>
  18394            <Sub>
  18395             0
  18396            </Sub>
  18397                                               
  18398            <Data>
  18399             }
  18400            </Data>
  18401                                          
  18402           </Node>
  18403                                     
  18404          </Node>
  18405                                    
  18406          <Node>
  18407           <Sub>
  18408            36
  18409           </Sub>
  18410                                         
  18411           <Node>
  18412            <Sub>
  18413             0
  18414            </Sub>
  18415                                               
  18416            <Data>
  18417             }
  18418            </Data>
  18419                                          
  18420           </Node>
  18421                                     
  18422          </Node>
  18423                                    
  18424          <Node>
  18425           <Sub>
  18426            37
  18427           </Sub>
  18428                                         
  18429           <Node>
  18430            <Sub>
  18431             0
  18432            </Sub>
  18433                                               
  18434            <Data>
  18435             },
  18436            </Data>
  18437                                          
  18438           </Node>
  18439                                     
  18440          </Node>
  18441                                    
  18442          <Node>
  18443           <Sub>
  18444            38
  18445           </Sub>
  18446                                         
  18447           <Node>
  18448            <Sub>
  18449             0
  18450            </Sub>
  18451                                               
  18452            <Data>
  18453             &quot;defi nitions&qu ot;: {
  18454            </Data>
  18455                                          
  18456           </Node>
  18457                                     
  18458          </Node>
  18459                                    
  18460          <Node>
  18461           <Sub>
  18462            39
  18463           </Sub>
  18464                                         
  18465           <Node>
  18466            <Sub>
  18467             0
  18468            </Sub>
  18469                                               
  18470            <Data>
  18471             &quot;ARRA Y&quot;: {
  18472            </Data>
  18473                                          
  18474           </Node>
  18475                                     
  18476          </Node>
  18477                                    
  18478          <Node>
  18479           <Sub>
  18480            40
  18481           </Sub>
  18482                                         
  18483           <Node>
  18484            <Sub>
  18485             0
  18486            </Sub>
  18487                                               
  18488            <Data>
  18489             &quot;type &quot;: &q uot;object &quot;
  18490            </Data>
  18491                                          
  18492           </Node>
  18493                                     
  18494          </Node>
  18495                                    
  18496          <Node>
  18497           <Sub>
  18498            41
  18499           </Sub>
  18500                                         
  18501           <Node>
  18502            <Sub>
  18503             0
  18504            </Sub>
  18505                                               
  18506            <Data>
  18507             },
  18508            </Data>
  18509                                          
  18510           </Node>
  18511                                     
  18512          </Node>
  18513                                    
  18514          <Node>
  18515           <Sub>
  18516            42
  18517           </Sub>
  18518                                         
  18519           <Node>
  18520            <Sub>
  18521             0
  18522            </Sub>
  18523                                               
  18524            <Data>
  18525             &quot;GLOB AL_ARRAY&q uot;: {
  18526            </Data>
  18527                                          
  18528           </Node>
  18529                                     
  18530          </Node>
  18531                                    
  18532          <Node>
  18533           <Sub>
  18534            43
  18535           </Sub>
  18536                                         
  18537           <Node>
  18538            <Sub>
  18539             0
  18540            </Sub>
  18541                                               
  18542            <Data>
  18543             &quot;type &quot;: &q uot;object &quot;
  18544            </Data>
  18545                                          
  18546           </Node>
  18547                                     
  18548          </Node>
  18549                                    
  18550          <Node>
  18551           <Sub>
  18552            44
  18553           </Sub>
  18554                                         
  18555           <Node>
  18556            <Sub>
  18557             0
  18558            </Sub>
  18559                                               
  18560            <Data>
  18561             },
  18562            </Data>
  18563                                          
  18564           </Node>
  18565                                     
  18566          </Node>
  18567                                    
  18568          <Node>
  18569           <Sub>
  18570            45
  18571           </Sub>
  18572                                         
  18573           <Node>
  18574            <Sub>
  18575             0
  18576            </Sub>
  18577                                               
  18578            <Data>
  18579             &quot;SING LE_VALUE&q uot;: {
  18580            </Data>
  18581                                          
  18582           </Node>
  18583                                     
  18584          </Node>
  18585                                    
  18586          <Node>
  18587           <Sub>
  18588            46
  18589           </Sub>
  18590                                         
  18591           <Node>
  18592            <Sub>
  18593             0
  18594            </Sub>
  18595                                               
  18596            <Data>
  18597             &quot;type &quot;: &q uot;string &quot;
  18598            </Data>
  18599                                          
  18600           </Node>
  18601                                     
  18602          </Node>
  18603                                    
  18604          <Node>
  18605           <Sub>
  18606            47
  18607           </Sub>
  18608                                         
  18609           <Node>
  18610            <Sub>
  18611             0
  18612            </Sub>
  18613                                               
  18614            <Data>
  18615             },
  18616            </Data>
  18617                                          
  18618           </Node>
  18619                                     
  18620          </Node>
  18621                                    
  18622          <Node>
  18623           <Sub>
  18624            48
  18625           </Sub>
  18626                                         
  18627           <Node>
  18628            <Sub>
  18629             0
  18630            </Sub>
  18631                                               
  18632            <Data>
  18633             &quot;GLOB AL_INSTANC E&quot;: {
  18634            </Data>
  18635                                          
  18636           </Node>
  18637                                     
  18638          </Node>
  18639                                    
  18640          <Node>
  18641           <Sub>
  18642            49
  18643           </Sub>
  18644                                         
  18645           <Node>
  18646            <Sub>
  18647             0
  18648            </Sub>
  18649                                               
  18650            <Data>
  18651             &quot;type &quot;: &q uot;string &quot;
  18652            </Data>
  18653                                          
  18654           </Node>
  18655                                     
  18656          </Node>
  18657                                    
  18658          <Node>
  18659           <Sub>
  18660            50
  18661           </Sub>
  18662                                         
  18663           <Node>
  18664            <Sub>
  18665             0
  18666            </Sub>
  18667                                               
  18668            <Data>
  18669             },
  18670            </Data>
  18671                                          
  18672           </Node>
  18673                                     
  18674          </Node>
  18675                                    
  18676          <Node>
  18677           <Sub>
  18678            51
  18679           </Sub>
  18680                                         
  18681           <Node>
  18682            <Sub>
  18683             0
  18684            </Sub>
  18685                                               
  18686            <Data>
  18687             &quot;WORD _PROCESSIN G&quot;: {
  18688            </Data>
  18689                                          
  18690           </Node>
  18691                                     
  18692          </Node>
  18693                                    
  18694          <Node>
  18695           <Sub>
  18696            52
  18697           </Sub>
  18698                                         
  18699           <Node>
  18700            <Sub>
  18701             0
  18702            </Sub>
  18703                                               
  18704            <Data>
  18705             &quot;type &quot;: &q uot;object &quot;
  18706            </Data>
  18707                                          
  18708           </Node>
  18709                                     
  18710          </Node>
  18711                                    
  18712          <Node>
  18713           <Sub>
  18714            53
  18715           </Sub>
  18716                                         
  18717           <Node>
  18718            <Sub>
  18719             0
  18720            </Sub>
  18721                                               
  18722            <Data>
  18723             },
  18724            </Data>
  18725                                          
  18726           </Node>
  18727                                     
  18728          </Node>
  18729                                    
  18730          <Node>
  18731           <Sub>
  18732            54
  18733           </Sub>
  18734                                         
  18735           <Node>
  18736            <Sub>
  18737             0
  18738            </Sub>
  18739                                               
  18740            <Data>
  18741             &quot;Erro r&quot;: {
  18742            </Data>
  18743                                          
  18744           </Node>
  18745                                     
  18746          </Node>
  18747                                    
  18748          <Node>
  18749           <Sub>
  18750            55
  18751           </Sub>
  18752                                         
  18753           <Node>
  18754            <Sub>
  18755             0
  18756            </Sub>
  18757                                               
  18758            <Data>
  18759             &quot;prop erties&quo t;: {
  18760            </Data>
  18761                                          
  18762           </Node>
  18763                                     
  18764          </Node>
  18765                                    
  18766          <Node>
  18767           <Sub>
  18768            56
  18769           </Sub>
  18770                                         
  18771           <Node>
  18772            <Sub>
  18773             0
  18774            </Sub>
  18775                                               
  18776            <Data>
  18777             &quot;erro r&quot;: {
  18778            </Data>
  18779                                          
  18780           </Node>
  18781                                     
  18782          </Node>
  18783                                    
  18784          <Node>
  18785           <Sub>
  18786            57
  18787           </Sub>
  18788                                         
  18789           <Node>
  18790            <Sub>
  18791             0
  18792            </Sub>
  18793                                               
  18794            <Data>
  18795             &quot;type &quot;: &q uot;string &quot;,
  18796            </Data>
  18797                                          
  18798           </Node>
  18799                                     
  18800          </Node>
  18801                                    
  18802          <Node>
  18803           <Sub>
  18804            58
  18805           </Sub>
  18806                                         
  18807           <Node>
  18808            <Sub>
  18809             0
  18810            </Sub>
  18811                                               
  18812            <Data>
  18813             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  18814            </Data>
  18815                                          
  18816           </Node>
  18817                                     
  18818          </Node>
  18819                                    
  18820          <Node>
  18821           <Sub>
  18822            59
  18823           </Sub>
  18824                                         
  18825           <Node>
  18826            <Sub>
  18827             0
  18828            </Sub>
  18829                                               
  18830            <Data>
  18831             },
  18832            </Data>
  18833                                          
  18834           </Node>
  18835                                     
  18836          </Node>
  18837                                    
  18838          <Node>
  18839           <Sub>
  18840            60
  18841           </Sub>
  18842                                         
  18843           <Node>
  18844            <Sub>
  18845             0
  18846            </Sub>
  18847                                               
  18848            <Data>
  18849             &quot;data &quot;: {
  18850            </Data>
  18851                                          
  18852           </Node>
  18853                                     
  18854          </Node>
  18855                                    
  18856          <Node>
  18857           <Sub>
  18858            61
  18859           </Sub>
  18860                                         
  18861           <Node>
  18862            <Sub>
  18863             0
  18864            </Sub>
  18865                                               
  18866            <Data>
  18867             &quot;type &quot;: &q uot;object &quot;,
  18868            </Data>
  18869                                          
  18870           </Node>
  18871                                     
  18872          </Node>
  18873                                    
  18874          <Node>
  18875           <Sub>
  18876            62
  18877           </Sub>
  18878                                         
  18879           <Node>
  18880            <Sub>
  18881             0
  18882            </Sub>
  18883                                               
  18884            <Data>
  18885             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  18886            </Data>
  18887                                          
  18888           </Node>
  18889                                     
  18890          </Node>
  18891                                    
  18892          <Node>
  18893           <Sub>
  18894            63
  18895           </Sub>
  18896                                         
  18897           <Node>
  18898            <Sub>
  18899             0
  18900            </Sub>
  18901                                               
  18902            <Data>
  18903             }
  18904            </Data>
  18905                                          
  18906           </Node>
  18907                                     
  18908          </Node>
  18909                                    
  18910          <Node>
  18911           <Sub>
  18912            64
  18913           </Sub>
  18914                                         
  18915           <Node>
  18916            <Sub>
  18917             0
  18918            </Sub>
  18919                                               
  18920            <Data>
  18921             }
  18922            </Data>
  18923                                          
  18924           </Node>
  18925                                     
  18926          </Node>
  18927                                    
  18928          <Node>
  18929           <Sub>
  18930            65
  18931           </Sub>
  18932                                         
  18933           <Node>
  18934            <Sub>
  18935             0
  18936            </Sub>
  18937                                               
  18938            <Data>
  18939             },
  18940            </Data>
  18941                                          
  18942           </Node>
  18943                                     
  18944          </Node>
  18945                                    
  18946          <Node>
  18947           <Sub>
  18948            66
  18949           </Sub>
  18950                                         
  18951           <Node>
  18952            <Sub>
  18953             0
  18954            </Sub>
  18955                                               
  18956            <Data>
  18957             &quot;RpcI d&quot;: {
  18958            </Data>
  18959                                          
  18960           </Node>
  18961                                     
  18962          </Node>
  18963                                    
  18964          <Node>
  18965           <Sub>
  18966            67
  18967           </Sub>
  18968                                         
  18969           <Node>
  18970            <Sub>
  18971             0
  18972            </Sub>
  18973                                               
  18974            <Data>
  18975             &quot;prop erties&quo t;: {
  18976            </Data>
  18977                                          
  18978           </Node>
  18979                                     
  18980          </Node>
  18981                                    
  18982          <Node>
  18983           <Sub>
  18984            68
  18985           </Sub>
  18986                                         
  18987           <Node>
  18988            <Sub>
  18989             0
  18990            </Sub>
  18991                                               
  18992            <Data>
  18993             &quot;id&q uot;: {
  18994            </Data>
  18995                                          
  18996           </Node>
  18997                                     
  18998          </Node>
  18999                                    
  19000          <Node>
  19001           <Sub>
  19002            69
  19003           </Sub>
  19004                                         
  19005           <Node>
  19006            <Sub>
  19007             0
  19008            </Sub>
  19009                                               
  19010            <Data>
  19011             &quot;type &quot;: &q uot;intege r&quot;,
  19012            </Data>
  19013                                          
  19014           </Node>
  19015                                     
  19016          </Node>
  19017                                    
  19018          <Node>
  19019           <Sub>
  19020            70
  19021           </Sub>
  19022                                         
  19023           <Node>
  19024            <Sub>
  19025             0
  19026            </Sub>
  19027                                               
  19028            <Data>
  19029             &quot;form at&quot;:  &quot;int3 2&quot;,
  19030            </Data>
  19031                                          
  19032           </Node>
  19033                                     
  19034          </Node>
  19035                                    
  19036          <Node>
  19037           <Sub>
  19038            71
  19039           </Sub>
  19040                                         
  19041           <Node>
  19042            <Sub>
  19043             0
  19044            </Sub>
  19045                                               
  19046            <Data>
  19047             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  19048            </Data>
  19049                                          
  19050           </Node>
  19051                                     
  19052          </Node>
  19053                                    
  19054          <Node>
  19055           <Sub>
  19056            72
  19057           </Sub>
  19058                                         
  19059           <Node>
  19060            <Sub>
  19061             0
  19062            </Sub>
  19063                                               
  19064            <Data>
  19065             },
  19066            </Data>
  19067                                          
  19068           </Node>
  19069                                     
  19070          </Node>
  19071                                    
  19072          <Node>
  19073           <Sub>
  19074            73
  19075           </Sub>
  19076                                         
  19077           <Node>
  19078            <Sub>
  19079             0
  19080            </Sub>
  19081                                               
  19082            <Data>
  19083             &quot;name &quot;: {
  19084            </Data>
  19085                                          
  19086           </Node>
  19087                                     
  19088          </Node>
  19089                                    
  19090          <Node>
  19091           <Sub>
  19092            74
  19093           </Sub>
  19094                                         
  19095           <Node>
  19096            <Sub>
  19097             0
  19098            </Sub>
  19099                                               
  19100            <Data>
  19101             &quot;type &quot;: &q uot;string &quot;,
  19102            </Data>
  19103                                          
  19104           </Node>
  19105                                     
  19106          </Node>
  19107                                    
  19108          <Node>
  19109           <Sub>
  19110            75
  19111           </Sub>
  19112                                         
  19113           <Node>
  19114            <Sub>
  19115             0
  19116            </Sub>
  19117                                               
  19118            <Data>
  19119             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  19120            </Data>
  19121                                          
  19122           </Node>
  19123                                     
  19124          </Node>
  19125                                    
  19126          <Node>
  19127           <Sub>
  19128            76
  19129           </Sub>
  19130                                         
  19131           <Node>
  19132            <Sub>
  19133             0
  19134            </Sub>
  19135                                               
  19136            <Data>
  19137             }
  19138            </Data>
  19139                                          
  19140           </Node>
  19141                                     
  19142          </Node>
  19143                                    
  19144          <Node>
  19145           <Sub>
  19146            77
  19147           </Sub>
  19148                                         
  19149           <Node>
  19150            <Sub>
  19151             0
  19152            </Sub>
  19153                                               
  19154            <Data>
  19155             }
  19156            </Data>
  19157                                          
  19158           </Node>
  19159                                     
  19160          </Node>
  19161                                    
  19162          <Node>
  19163           <Sub>
  19164            78
  19165           </Sub>
  19166                                         
  19167           <Node>
  19168            <Sub>
  19169             0
  19170            </Sub>
  19171                                               
  19172            <Data>
  19173             },
  19174            </Data>
  19175                                          
  19176           </Node>
  19177                                     
  19178          </Node>
  19179                                    
  19180          <Node>
  19181           <Sub>
  19182            79
  19183           </Sub>
  19184                                         
  19185           <Node>
  19186            <Sub>
  19187             0
  19188            </Sub>
  19189                                               
  19190            <Data>
  19191             &quot;Swag gerDefinit ion&quot;:  {},
  19192            </Data>
  19193                                          
  19194           </Node>
  19195                                     
  19196          </Node>
  19197                                    
  19198          <Node>
  19199           <Sub>
  19200            80
  19201           </Sub>
  19202                                         
  19203           <Node>
  19204            <Sub>
  19205             0
  19206            </Sub>
  19207                                               
  19208            <Data>
  19209             &quot;Path &quot;: {}
  19210            </Data>
  19211                                          
  19212           </Node>
  19213                                     
  19214          </Node>
  19215                                    
  19216          <Node>
  19217           <Sub>
  19218            81
  19219           </Sub>
  19220                                         
  19221           <Node>
  19222            <Sub>
  19223             0
  19224            </Sub>
  19225                                               
  19226            <Data>
  19227             }
  19228            </Data>
  19229                                          
  19230           </Node>
  19231                                     
  19232          </Node>
  19233                                    
  19234          <Node>
  19235           <Sub>
  19236            82
  19237           </Sub>
  19238                                         
  19239           <Node>
  19240            <Sub>
  19241             0
  19242            </Sub>
  19243                                               
  19244            <Data>
  19245             }
  19246            </Data>
  19247                                          
  19248           </Node>
  19249                                     
  19250          </Node>
  19251                               
  19252         </Node>
  19253                          
  19254        </Node>
  19255                         
  19256        <Node>
  19257         <Sub>
  19258          10
  19259         </Sub>
  19260                              
  19261         <Node>
  19262          <Sub>
  19263           0
  19264          </Sub>
  19265                                    
  19266          <Data>
  19267           VPS GET2 P ATIENT DEM OGRAPHIC
  19268          </Data>
  19269                               
  19270         </Node>
  19271                              
  19272         <Node>
  19273          <Sub>
  19274           DEF
  19275          </Sub>
  19276                                    
  19277          <Node>
  19278           <Sub>
  19279            0
  19280           </Sub>
  19281                                         
  19282           <Data>
  19283            ^^97^97^31 60408
  19284           </Data>
  19285                                     
  19286          </Node>
  19287                                    
  19288          <Node>
  19289           <Sub>
  19290            1
  19291           </Sub>
  19292                                         
  19293           <Node>
  19294            <Sub>
  19295             0
  19296            </Sub>
  19297                                               
  19298            <Data>
  19299             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  19300            </Data>
  19301                                          
  19302           </Node>
  19303                                     
  19304          </Node>
  19305                                    
  19306          <Node>
  19307           <Sub>
  19308            2
  19309           </Sub>
  19310                                         
  19311           <Node>
  19312            <Sub>
  19313             0
  19314            </Sub>
  19315                                               
  19316            <Data>
  19317             &quot;info &quot;: {
  19318            </Data>
  19319                                          
  19320           </Node>
  19321                                     
  19322          </Node>
  19323                                    
  19324          <Node>
  19325           <Sub>
  19326            3
  19327           </Sub>
  19328                                         
  19329           <Node>
  19330            <Sub>
  19331             0
  19332            </Sub>
  19333                                               
  19334            <Data>
  19335             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  19336            </Data>
  19337                                          
  19338           </Node>
  19339                                     
  19340          </Node>
  19341                                    
  19342          <Node>
  19343           <Sub>
  19344            4
  19345           </Sub>
  19346                                         
  19347           <Node>
  19348            <Sub>
  19349             0
  19350            </Sub>
  19351                                               
  19352            <Data>
  19353             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  19354            </Data>
  19355                                          
  19356           </Node>
  19357                                     
  19358          </Node>
  19359                                    
  19360          <Node>
  19361           <Sub>
  19362            5
  19363           </Sub>
  19364                                         
  19365           <Node>
  19366            <Sub>
  19367             0
  19368            </Sub>
  19369                                               
  19370            <Data>
  19371             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  19372            </Data>
  19373                                          
  19374           </Node>
  19375                                     
  19376          </Node>
  19377                                    
  19378          <Node>
  19379           <Sub>
  19380            6
  19381           </Sub>
  19382                                         
  19383           <Node>
  19384            <Sub>
  19385             0
  19386            </Sub>
  19387                                               
  19388            <Data>
  19389             },
  19390            </Data>
  19391                                          
  19392           </Node>
  19393                                     
  19394          </Node>
  19395                                    
  19396          <Node>
  19397           <Sub>
  19398            7
  19399           </Sub>
  19400                                         
  19401           <Node>
  19402            <Sub>
  19403             0
  19404            </Sub>
  19405                                               
  19406            <Data>
  19407             &quot;sche mes&quot;:  [
  19408            </Data>
  19409                                          
  19410           </Node>
  19411                                     
  19412          </Node>
  19413                                    
  19414          <Node>
  19415           <Sub>
  19416            8
  19417           </Sub>
  19418                                         
  19419           <Node>
  19420            <Sub>
  19421             0
  19422            </Sub>
  19423                                               
  19424            <Data>
  19425             &quot;http s&quot;
  19426            </Data>
  19427                                          
  19428           </Node>
  19429                                     
  19430          </Node>
  19431                                    
  19432          <Node>
  19433           <Sub>
  19434            9
  19435           </Sub>
  19436                                         
  19437           <Node>
  19438            <Sub>
  19439             0
  19440            </Sub>
  19441                                               
  19442            <Data>
  19443             ],
  19444            </Data>
  19445                                          
  19446           </Node>
  19447                                     
  19448          </Node>
  19449                                    
  19450          <Node>
  19451           <Sub>
  19452            10
  19453           </Sub>
  19454                                         
  19455           <Node>
  19456            <Sub>
  19457             0
  19458            </Sub>
  19459                                               
  19460            <Data>
  19461             &quot;base Path&quot; : &quot;/r pcs&quot;,
  19462            </Data>
  19463                                          
  19464           </Node>
  19465                                     
  19466          </Node>
  19467                                    
  19468          <Node>
  19469           <Sub>
  19470            11
  19471           </Sub>
  19472                                         
  19473           <Node>
  19474            <Sub>
  19475             0
  19476            </Sub>
  19477                                               
  19478            <Data>
  19479             &quot;prod uces&quot; : [
  19480            </Data>
  19481                                          
  19482           </Node>
  19483                                     
  19484          </Node>
  19485                                    
  19486          <Node>
  19487           <Sub>
  19488            12
  19489           </Sub>
  19490                                         
  19491           <Node>
  19492            <Sub>
  19493             0
  19494            </Sub>
  19495                                               
  19496            <Data>
  19497             &quot;appl ication/js on&quot;
  19498            </Data>
  19499                                          
  19500           </Node>
  19501                                     
  19502          </Node>
  19503                                    
  19504          <Node>
  19505           <Sub>
  19506            13
  19507           </Sub>
  19508                                         
  19509           <Node>
  19510            <Sub>
  19511             0
  19512            </Sub>
  19513                                               
  19514            <Data>
  19515             ],
  19516            </Data>
  19517                                          
  19518           </Node>
  19519                                     
  19520          </Node>
  19521                                    
  19522          <Node>
  19523           <Sub>
  19524            14
  19525           </Sub>
  19526                                         
  19527           <Node>
  19528            <Sub>
  19529             0
  19530            </Sub>
  19531                                               
  19532            <Data>
  19533             &quot;path s&quot;: {
  19534            </Data>
  19535                                          
  19536           </Node>
  19537                                     
  19538          </Node>
  19539                                    
  19540          <Node>
  19541           <Sub>
  19542            15
  19543           </Sub>
  19544                                         
  19545           <Node>
  19546            <Sub>
  19547             0
  19548            </Sub>
  19549                                               
  19550            <Data>
  19551             &quot;/by- name/vps%2 0get2%20pa tient%20de mographic/ call&quot; : {
  19552            </Data>
  19553                                          
  19554           </Node>
  19555                                     
  19556          </Node>
  19557                                    
  19558          <Node>
  19559           <Sub>
  19560            16
  19561           </Sub>
  19562                                         
  19563           <Node>
  19564            <Sub>
  19565             0
  19566            </Sub>
  19567                                               
  19568            <Data>
  19569             &quot;post &quot;: {
  19570            </Data>
  19571                                          
  19572           </Node>
  19573                                     
  19574          </Node>
  19575                                    
  19576          <Node>
  19577           <Sub>
  19578            17
  19579           </Sub>
  19580                                         
  19581           <Node>
  19582            <Sub>
  19583             0
  19584            </Sub>
  19585                                               
  19586            <Data>
  19587             &quot;summ ary&quot;:  &quot;GET DATA2^VPSR PC1(.tRESU LT,VPSNUM, VPSTYP)&qu ot;,
  19588            </Data>
  19589                                          
  19590           </Node>
  19591                                     
  19592          </Node>
  19593                                    
  19594          <Node>
  19595           <Sub>
  19596            18
  19597           </Sub>
  19598                                         
  19599           <Node>
  19600            <Sub>
  19601             0
  19602            </Sub>
  19603                                               
  19604            <Data>
  19605             <![CDATA[" descriptio n": "Calle d by the V etlink Kio sk system.  The RPC w ill accept  two input  parameter s which ar e the pati ent SSN or  DFN and t he patient  type. The  RPC retur ns the pat ient demog raphics,in surance, a nd up-comi ng appoint ments.",]] >
  19606            </Data>
  19607                                          
  19608           </Node>
  19609                                     
  19610          </Node>
  19611                                    
  19612          <Node>
  19613           <Sub>
  19614            19
  19615           </Sub>
  19616                                         
  19617           <Node>
  19618            <Sub>
  19619             0
  19620            </Sub>
  19621                                               
  19622            <Data>
  19623             &quot;prod uces&quot; : [
  19624            </Data>
  19625                                          
  19626           </Node>
  19627                                     
  19628          </Node>
  19629                                    
  19630          <Node>
  19631           <Sub>
  19632            20
  19633           </Sub>
  19634                                         
  19635           <Node>
  19636            <Sub>
  19637             0
  19638            </Sub>
  19639                                               
  19640            <Data>
  19641             &quot;appl ication/js on&quot;
  19642            </Data>
  19643                                          
  19644           </Node>
  19645                                     
  19646          </Node>
  19647                                    
  19648          <Node>
  19649           <Sub>
  19650            21
  19651           </Sub>
  19652                                         
  19653           <Node>
  19654            <Sub>
  19655             0
  19656            </Sub>
  19657                                               
  19658            <Data>
  19659             ],
  19660            </Data>
  19661                                          
  19662           </Node>
  19663                                     
  19664          </Node>
  19665                                    
  19666          <Node>
  19667           <Sub>
  19668            22
  19669           </Sub>
  19670                                         
  19671           <Node>
  19672            <Sub>
  19673             0
  19674            </Sub>
  19675                                               
  19676            <Data>
  19677             &quot;para meters&quo t;: [
  19678            </Data>
  19679                                          
  19680           </Node>
  19681                                     
  19682          </Node>
  19683                                    
  19684          <Node>
  19685           <Sub>
  19686            23
  19687           </Sub>
  19688                                         
  19689           <Node>
  19690            <Sub>
  19691             0
  19692            </Sub>
  19693                                               
  19694            <Data>
  19695             {
  19696            </Data>
  19697                                          
  19698           </Node>
  19699                                     
  19700          </Node>
  19701                                    
  19702          <Node>
  19703           <Sub>
  19704            24
  19705           </Sub>
  19706                                         
  19707           <Node>
  19708            <Sub>
  19709             0
  19710            </Sub>
  19711                                               
  19712            <Data>
  19713             &quot;name &quot;: &q uot;VPSNUM &quot;,
  19714            </Data>
  19715                                          
  19716           </Node>
  19717                                     
  19718          </Node>
  19719                                    
  19720          <Node>
  19721           <Sub>
  19722            25
  19723           </Sub>
  19724                                         
  19725           <Node>
  19726            <Sub>
  19727             0
  19728            </Sub>
  19729                                               
  19730            <Data>
  19731             &quot;desc ription&qu ot;: &quot ;Patient S ocial Secu rity Numbe r or Patie nt IEN. [F ileman Typ e: LITERAL ]&quot;,
  19732            </Data>
  19733                                          
  19734           </Node>
  19735                                     
  19736          </Node>
  19737                                    
  19738          <Node>
  19739           <Sub>
  19740            26
  19741           </Sub>
  19742                                         
  19743           <Node>
  19744            <Sub>
  19745             0
  19746            </Sub>
  19747                                               
  19748            <Data>
  19749             &quot;in&q uot;: &quo t;formData &quot;,
  19750            </Data>
  19751                                          
  19752           </Node>
  19753                                     
  19754          </Node>
  19755                                    
  19756          <Node>
  19757           <Sub>
  19758            27
  19759           </Sub>
  19760                                         
  19761           <Node>
  19762            <Sub>
  19763             0
  19764            </Sub>
  19765                                               
  19766            <Data>
  19767             &quot;type &quot;: &q uot;string &quot;,
  19768            </Data>
  19769                                          
  19770           </Node>
  19771                                     
  19772          </Node>
  19773                                    
  19774          <Node>
  19775           <Sub>
  19776            28
  19777           </Sub>
  19778                                         
  19779           <Node>
  19780            <Sub>
  19781             0
  19782            </Sub>
  19783                                               
  19784            <Data>
  19785             &quot;requ ired&quot; : true
  19786            </Data>
  19787                                          
  19788           </Node>
  19789                                     
  19790          </Node>
  19791                                    
  19792          <Node>
  19793           <Sub>
  19794            29
  19795           </Sub>
  19796                                         
  19797           <Node>
  19798            <Sub>
  19799             0
  19800            </Sub>
  19801                                               
  19802            <Data>
  19803             },
  19804            </Data>
  19805                                          
  19806           </Node>
  19807                                     
  19808          </Node>
  19809                                    
  19810          <Node>
  19811           <Sub>
  19812            30
  19813           </Sub>
  19814                                         
  19815           <Node>
  19816            <Sub>
  19817             0
  19818            </Sub>
  19819                                               
  19820            <Data>
  19821             {
  19822            </Data>
  19823                                          
  19824           </Node>
  19825                                     
  19826          </Node>
  19827                                    
  19828          <Node>
  19829           <Sub>
  19830            31
  19831           </Sub>
  19832                                         
  19833           <Node>
  19834            <Sub>
  19835             0
  19836            </Sub>
  19837                                               
  19838            <Data>
  19839             &quot;name &quot;: &q uot;VPSTYP &quot;,
  19840            </Data>
  19841                                          
  19842           </Node>
  19843                                     
  19844          </Node>
  19845                                    
  19846          <Node>
  19847           <Sub>
  19848            32
  19849           </Sub>
  19850                                         
  19851           <Node>
  19852            <Sub>
  19853             0
  19854            </Sub>
  19855                                               
  19856            <Data>
  19857             &quot;desc ription&qu ot;: &quot ;SSN or DF N [Fileman  Type: LIT ERAL]&quot ;,
  19858            </Data>
  19859                                          
  19860           </Node>
  19861                                     
  19862          </Node>
  19863                                    
  19864          <Node>
  19865           <Sub>
  19866            33
  19867           </Sub>
  19868                                         
  19869           <Node>
  19870            <Sub>
  19871             0
  19872            </Sub>
  19873                                               
  19874            <Data>
  19875             &quot;in&q uot;: &quo t;formData &quot;,
  19876            </Data>
  19877                                          
  19878           </Node>
  19879                                     
  19880          </Node>
  19881                                    
  19882          <Node>
  19883           <Sub>
  19884            34
  19885           </Sub>
  19886                                         
  19887           <Node>
  19888            <Sub>
  19889             0
  19890            </Sub>
  19891                                               
  19892            <Data>
  19893             &quot;type &quot;: &q uot;string &quot;,
  19894            </Data>
  19895                                          
  19896           </Node>
  19897                                     
  19898          </Node>
  19899                                    
  19900          <Node>
  19901           <Sub>
  19902            35
  19903           </Sub>
  19904                                         
  19905           <Node>
  19906            <Sub>
  19907             0
  19908            </Sub>
  19909                                               
  19910            <Data>
  19911             &quot;requ ired&quot; : true
  19912            </Data>
  19913                                          
  19914           </Node>
  19915                                     
  19916          </Node>
  19917                                    
  19918          <Node>
  19919           <Sub>
  19920            36
  19921           </Sub>
  19922                                         
  19923           <Node>
  19924            <Sub>
  19925             0
  19926            </Sub>
  19927                                               
  19928            <Data>
  19929             }
  19930            </Data>
  19931                                          
  19932           </Node>
  19933                                     
  19934          </Node>
  19935                                    
  19936          <Node>
  19937           <Sub>
  19938            37
  19939           </Sub>
  19940                                         
  19941           <Node>
  19942            <Sub>
  19943             0
  19944            </Sub>
  19945                                               
  19946            <Data>
  19947             ],
  19948            </Data>
  19949                                          
  19950           </Node>
  19951                                     
  19952          </Node>
  19953                                    
  19954          <Node>
  19955           <Sub>
  19956            38
  19957           </Sub>
  19958                                         
  19959           <Node>
  19960            <Sub>
  19961             0
  19962            </Sub>
  19963                                               
  19964            <Data>
  19965             &quot;tags &quot;: [
  19966            </Data>
  19967                                          
  19968           </Node>
  19969                                     
  19970          </Node>
  19971                                    
  19972          <Node>
  19973           <Sub>
  19974            39
  19975           </Sub>
  19976                                         
  19977           <Node>
  19978            <Sub>
  19979             0
  19980            </Sub>
  19981                                               
  19982            <Data>
  19983             &quot;RPCS &quot;,
  19984            </Data>
  19985                                          
  19986           </Node>
  19987                                     
  19988          </Node>
  19989                                    
  19990          <Node>
  19991           <Sub>
  19992            40
  19993           </Sub>
  19994                                         
  19995           <Node>
  19996            <Sub>
  19997             0
  19998            </Sub>
  19999                                               
  20000            <Data>
  20001             &quot;Rest ify&quot;
  20002            </Data>
  20003                                          
  20004           </Node>
  20005                                     
  20006          </Node>
  20007                                    
  20008          <Node>
  20009           <Sub>
  20010            41
  20011           </Sub>
  20012                                         
  20013           <Node>
  20014            <Sub>
  20015             0
  20016            </Sub>
  20017                                               
  20018            <Data>
  20019             ],
  20020            </Data>
  20021                                          
  20022           </Node>
  20023                                     
  20024          </Node>
  20025                                    
  20026          <Node>
  20027           <Sub>
  20028            42
  20029           </Sub>
  20030                                         
  20031           <Node>
  20032            <Sub>
  20033             0
  20034            </Sub>
  20035                                               
  20036            <Data>
  20037             &quot;resp onses&quot ;: {
  20038            </Data>
  20039                                          
  20040           </Node>
  20041                                     
  20042          </Node>
  20043                                    
  20044          <Node>
  20045           <Sub>
  20046            43
  20047           </Sub>
  20048                                         
  20049           <Node>
  20050            <Sub>
  20051             0
  20052            </Sub>
  20053                                               
  20054            <Data>
  20055             &quot;200& quot;: {
  20056            </Data>
  20057                                          
  20058           </Node>
  20059                                     
  20060          </Node>
  20061                                    
  20062          <Node>
  20063           <Sub>
  20064            44
  20065           </Sub>
  20066                                         
  20067           <Node>
  20068            <Sub>
  20069             0
  20070            </Sub>
  20071                                               
  20072            <Data>
  20073             &quot;desc ription&qu ot;: &quot ;&quot;,
  20074            </Data>
  20075                                          
  20076           </Node>
  20077                                     
  20078          </Node>
  20079                                    
  20080          <Node>
  20081           <Sub>
  20082            45
  20083           </Sub>
  20084                                         
  20085           <Node>
  20086            <Sub>
  20087             0
  20088            </Sub>
  20089                                               
  20090            <Data>
  20091             &quot;sche ma&quot;:  {
  20092            </Data>
  20093                                          
  20094           </Node>
  20095                                     
  20096          </Node>
  20097                                    
  20098          <Node>
  20099           <Sub>
  20100            46
  20101           </Sub>
  20102                                         
  20103           <Node>
  20104            <Sub>
  20105             0
  20106            </Sub>
  20107                                               
  20108            <Data>
  20109             &quot;$ref &quot;: &q uot;#/defi nitions/AR RAY&quot;
  20110            </Data>
  20111                                          
  20112           </Node>
  20113                                     
  20114          </Node>
  20115                                    
  20116          <Node>
  20117           <Sub>
  20118            47
  20119           </Sub>
  20120                                         
  20121           <Node>
  20122            <Sub>
  20123             0
  20124            </Sub>
  20125                                               
  20126            <Data>
  20127             }
  20128            </Data>
  20129                                          
  20130           </Node>
  20131                                     
  20132          </Node>
  20133                                    
  20134          <Node>
  20135           <Sub>
  20136            48
  20137           </Sub>
  20138                                         
  20139           <Node>
  20140            <Sub>
  20141             0
  20142            </Sub>
  20143                                               
  20144            <Data>
  20145             }
  20146            </Data>
  20147                                          
  20148           </Node>
  20149                                     
  20150          </Node>
  20151                                    
  20152          <Node>
  20153           <Sub>
  20154            49
  20155           </Sub>
  20156                                         
  20157           <Node>
  20158            <Sub>
  20159             0
  20160            </Sub>
  20161                                               
  20162            <Data>
  20163             }
  20164            </Data>
  20165                                          
  20166           </Node>
  20167                                     
  20168          </Node>
  20169                                    
  20170          <Node>
  20171           <Sub>
  20172            50
  20173           </Sub>
  20174                                         
  20175           <Node>
  20176            <Sub>
  20177             0
  20178            </Sub>
  20179                                               
  20180            <Data>
  20181             }
  20182            </Data>
  20183                                          
  20184           </Node>
  20185                                     
  20186          </Node>
  20187                                    
  20188          <Node>
  20189           <Sub>
  20190            51
  20191           </Sub>
  20192                                         
  20193           <Node>
  20194            <Sub>
  20195             0
  20196            </Sub>
  20197                                               
  20198            <Data>
  20199             }
  20200            </Data>
  20201                                          
  20202           </Node>
  20203                                     
  20204          </Node>
  20205                                    
  20206          <Node>
  20207           <Sub>
  20208            52
  20209           </Sub>
  20210                                         
  20211           <Node>
  20212            <Sub>
  20213             0
  20214            </Sub>
  20215                                               
  20216            <Data>
  20217             },
  20218            </Data>
  20219                                          
  20220           </Node>
  20221                                     
  20222          </Node>
  20223                                    
  20224          <Node>
  20225           <Sub>
  20226            53
  20227           </Sub>
  20228                                         
  20229           <Node>
  20230            <Sub>
  20231             0
  20232            </Sub>
  20233                                               
  20234            <Data>
  20235             &quot;defi nitions&qu ot;: {
  20236            </Data>
  20237                                          
  20238           </Node>
  20239                                     
  20240          </Node>
  20241                                    
  20242          <Node>
  20243           <Sub>
  20244            54
  20245           </Sub>
  20246                                         
  20247           <Node>
  20248            <Sub>
  20249             0
  20250            </Sub>
  20251                                               
  20252            <Data>
  20253             &quot;ARRA Y&quot;: {
  20254            </Data>
  20255                                          
  20256           </Node>
  20257                                     
  20258          </Node>
  20259                                    
  20260          <Node>
  20261           <Sub>
  20262            55
  20263           </Sub>
  20264                                         
  20265           <Node>
  20266            <Sub>
  20267             0
  20268            </Sub>
  20269                                               
  20270            <Data>
  20271             &quot;type &quot;: &q uot;object &quot;
  20272            </Data>
  20273                                          
  20274           </Node>
  20275                                     
  20276          </Node>
  20277                                    
  20278          <Node>
  20279           <Sub>
  20280            56
  20281           </Sub>
  20282                                         
  20283           <Node>
  20284            <Sub>
  20285             0
  20286            </Sub>
  20287                                               
  20288            <Data>
  20289             },
  20290            </Data>
  20291                                          
  20292           </Node>
  20293                                     
  20294          </Node>
  20295                                    
  20296          <Node>
  20297           <Sub>
  20298            57
  20299           </Sub>
  20300                                         
  20301           <Node>
  20302            <Sub>
  20303             0
  20304            </Sub>
  20305                                               
  20306            <Data>
  20307             &quot;GLOB AL_ARRAY&q uot;: {
  20308            </Data>
  20309                                          
  20310           </Node>
  20311                                     
  20312          </Node>
  20313                                    
  20314          <Node>
  20315           <Sub>
  20316            58
  20317           </Sub>
  20318                                         
  20319           <Node>
  20320            <Sub>
  20321             0
  20322            </Sub>
  20323                                               
  20324            <Data>
  20325             &quot;type &quot;: &q uot;object &quot;
  20326            </Data>
  20327                                          
  20328           </Node>
  20329                                     
  20330          </Node>
  20331                                    
  20332          <Node>
  20333           <Sub>
  20334            59
  20335           </Sub>
  20336                                         
  20337           <Node>
  20338            <Sub>
  20339             0
  20340            </Sub>
  20341                                               
  20342            <Data>
  20343             },
  20344            </Data>
  20345                                          
  20346           </Node>
  20347                                     
  20348          </Node>
  20349                                    
  20350          <Node>
  20351           <Sub>
  20352            60
  20353           </Sub>
  20354                                         
  20355           <Node>
  20356            <Sub>
  20357             0
  20358            </Sub>
  20359                                               
  20360            <Data>
  20361             &quot;SING LE_VALUE&q uot;: {
  20362            </Data>
  20363                                          
  20364           </Node>
  20365                                     
  20366          </Node>
  20367                                    
  20368          <Node>
  20369           <Sub>
  20370            61
  20371           </Sub>
  20372                                         
  20373           <Node>
  20374            <Sub>
  20375             0
  20376            </Sub>
  20377                                               
  20378            <Data>
  20379             &quot;type &quot;: &q uot;string &quot;
  20380            </Data>
  20381                                          
  20382           </Node>
  20383                                     
  20384          </Node>
  20385                                    
  20386          <Node>
  20387           <Sub>
  20388            62
  20389           </Sub>
  20390                                         
  20391           <Node>
  20392            <Sub>
  20393             0
  20394            </Sub>
  20395                                               
  20396            <Data>
  20397             },
  20398            </Data>
  20399                                          
  20400           </Node>
  20401                                     
  20402          </Node>
  20403                                    
  20404          <Node>
  20405           <Sub>
  20406            63
  20407           </Sub>
  20408                                         
  20409           <Node>
  20410            <Sub>
  20411             0
  20412            </Sub>
  20413                                               
  20414            <Data>
  20415             &quot;GLOB AL_INSTANC E&quot;: {
  20416            </Data>
  20417                                          
  20418           </Node>
  20419                                     
  20420          </Node>
  20421                                    
  20422          <Node>
  20423           <Sub>
  20424            64
  20425           </Sub>
  20426                                         
  20427           <Node>
  20428            <Sub>
  20429             0
  20430            </Sub>
  20431                                               
  20432            <Data>
  20433             &quot;type &quot;: &q uot;string &quot;
  20434            </Data>
  20435                                          
  20436           </Node>
  20437                                     
  20438          </Node>
  20439                                    
  20440          <Node>
  20441           <Sub>
  20442            65
  20443           </Sub>
  20444                                         
  20445           <Node>
  20446            <Sub>
  20447             0
  20448            </Sub>
  20449                                               
  20450            <Data>
  20451             },
  20452            </Data>
  20453                                          
  20454           </Node>
  20455                                     
  20456          </Node>
  20457                                    
  20458          <Node>
  20459           <Sub>
  20460            66
  20461           </Sub>
  20462                                         
  20463           <Node>
  20464            <Sub>
  20465             0
  20466            </Sub>
  20467                                               
  20468            <Data>
  20469             &quot;WORD _PROCESSIN G&quot;: {
  20470            </Data>
  20471                                          
  20472           </Node>
  20473                                     
  20474          </Node>
  20475                                    
  20476          <Node>
  20477           <Sub>
  20478            67
  20479           </Sub>
  20480                                         
  20481           <Node>
  20482            <Sub>
  20483             0
  20484            </Sub>
  20485                                               
  20486            <Data>
  20487             &quot;type &quot;: &q uot;object &quot;
  20488            </Data>
  20489                                          
  20490           </Node>
  20491                                     
  20492          </Node>
  20493                                    
  20494          <Node>
  20495           <Sub>
  20496            68
  20497           </Sub>
  20498                                         
  20499           <Node>
  20500            <Sub>
  20501             0
  20502            </Sub>
  20503                                               
  20504            <Data>
  20505             },
  20506            </Data>
  20507                                          
  20508           </Node>
  20509                                     
  20510          </Node>
  20511                                    
  20512          <Node>
  20513           <Sub>
  20514            69
  20515           </Sub>
  20516                                         
  20517           <Node>
  20518            <Sub>
  20519             0
  20520            </Sub>
  20521                                               
  20522            <Data>
  20523             &quot;Erro r&quot;: {
  20524            </Data>
  20525                                          
  20526           </Node>
  20527                                     
  20528          </Node>
  20529                                    
  20530          <Node>
  20531           <Sub>
  20532            70
  20533           </Sub>
  20534                                         
  20535           <Node>
  20536            <Sub>
  20537             0
  20538            </Sub>
  20539                                               
  20540            <Data>
  20541             &quot;prop erties&quo t;: {
  20542            </Data>
  20543                                          
  20544           </Node>
  20545                                     
  20546          </Node>
  20547                                    
  20548          <Node>
  20549           <Sub>
  20550            71
  20551           </Sub>
  20552                                         
  20553           <Node>
  20554            <Sub>
  20555             0
  20556            </Sub>
  20557                                               
  20558            <Data>
  20559             &quot;erro r&quot;: {
  20560            </Data>
  20561                                          
  20562           </Node>
  20563                                     
  20564          </Node>
  20565                                    
  20566          <Node>
  20567           <Sub>
  20568            72
  20569           </Sub>
  20570                                         
  20571           <Node>
  20572            <Sub>
  20573             0
  20574            </Sub>
  20575                                               
  20576            <Data>
  20577             &quot;type &quot;: &q uot;string &quot;,
  20578            </Data>
  20579                                          
  20580           </Node>
  20581                                     
  20582          </Node>
  20583                                    
  20584          <Node>
  20585           <Sub>
  20586            73
  20587           </Sub>
  20588                                         
  20589           <Node>
  20590            <Sub>
  20591             0
  20592            </Sub>
  20593                                               
  20594            <Data>
  20595             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  20596            </Data>
  20597                                          
  20598           </Node>
  20599                                     
  20600          </Node>
  20601                                    
  20602          <Node>
  20603           <Sub>
  20604            74
  20605           </Sub>
  20606                                         
  20607           <Node>
  20608            <Sub>
  20609             0
  20610            </Sub>
  20611                                               
  20612            <Data>
  20613             },
  20614            </Data>
  20615                                          
  20616           </Node>
  20617                                     
  20618          </Node>
  20619                                    
  20620          <Node>
  20621           <Sub>
  20622            75
  20623           </Sub>
  20624                                         
  20625           <Node>
  20626            <Sub>
  20627             0
  20628            </Sub>
  20629                                               
  20630            <Data>
  20631             &quot;data &quot;: {
  20632            </Data>
  20633                                          
  20634           </Node>
  20635                                     
  20636          </Node>
  20637                                    
  20638          <Node>
  20639           <Sub>
  20640            76
  20641           </Sub>
  20642                                         
  20643           <Node>
  20644            <Sub>
  20645             0
  20646            </Sub>
  20647                                               
  20648            <Data>
  20649             &quot;type &quot;: &q uot;object &quot;,
  20650            </Data>
  20651                                          
  20652           </Node>
  20653                                     
  20654          </Node>
  20655                                    
  20656          <Node>
  20657           <Sub>
  20658            77
  20659           </Sub>
  20660                                         
  20661           <Node>
  20662            <Sub>
  20663             0
  20664            </Sub>
  20665                                               
  20666            <Data>
  20667             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  20668            </Data>
  20669                                          
  20670           </Node>
  20671                                     
  20672          </Node>
  20673                                    
  20674          <Node>
  20675           <Sub>
  20676            78
  20677           </Sub>
  20678                                         
  20679           <Node>
  20680            <Sub>
  20681             0
  20682            </Sub>
  20683                                               
  20684            <Data>
  20685             }
  20686            </Data>
  20687                                          
  20688           </Node>
  20689                                     
  20690          </Node>
  20691                                    
  20692          <Node>
  20693           <Sub>
  20694            79
  20695           </Sub>
  20696                                         
  20697           <Node>
  20698            <Sub>
  20699             0
  20700            </Sub>
  20701                                               
  20702            <Data>
  20703             }
  20704            </Data>
  20705                                          
  20706           </Node>
  20707                                     
  20708          </Node>
  20709                                    
  20710          <Node>
  20711           <Sub>
  20712            80
  20713           </Sub>
  20714                                         
  20715           <Node>
  20716            <Sub>
  20717             0
  20718            </Sub>
  20719                                               
  20720            <Data>
  20721             },
  20722            </Data>
  20723                                          
  20724           </Node>
  20725                                     
  20726          </Node>
  20727                                    
  20728          <Node>
  20729           <Sub>
  20730            81
  20731           </Sub>
  20732                                         
  20733           <Node>
  20734            <Sub>
  20735             0
  20736            </Sub>
  20737                                               
  20738            <Data>
  20739             &quot;RpcI d&quot;: {
  20740            </Data>
  20741                                          
  20742           </Node>
  20743                                     
  20744          </Node>
  20745                                    
  20746          <Node>
  20747           <Sub>
  20748            82
  20749           </Sub>
  20750                                         
  20751           <Node>
  20752            <Sub>
  20753             0
  20754            </Sub>
  20755                                               
  20756            <Data>
  20757             &quot;prop erties&quo t;: {
  20758            </Data>
  20759                                          
  20760           </Node>
  20761                                     
  20762          </Node>
  20763                                    
  20764          <Node>
  20765           <Sub>
  20766            83
  20767           </Sub>
  20768                                         
  20769           <Node>
  20770            <Sub>
  20771             0
  20772            </Sub>
  20773                                               
  20774            <Data>
  20775             &quot;id&q uot;: {
  20776            </Data>
  20777                                          
  20778           </Node>
  20779                                     
  20780          </Node>
  20781                                    
  20782          <Node>
  20783           <Sub>
  20784            84
  20785           </Sub>
  20786                                         
  20787           <Node>
  20788            <Sub>
  20789             0
  20790            </Sub>
  20791                                               
  20792            <Data>
  20793             &quot;type &quot;: &q uot;intege r&quot;,
  20794            </Data>
  20795                                          
  20796           </Node>
  20797                                     
  20798          </Node>
  20799                                    
  20800          <Node>
  20801           <Sub>
  20802            85
  20803           </Sub>
  20804                                         
  20805           <Node>
  20806            <Sub>
  20807             0
  20808            </Sub>
  20809                                               
  20810            <Data>
  20811             &quot;form at&quot;:  &quot;int3 2&quot;,
  20812            </Data>
  20813                                          
  20814           </Node>
  20815                                     
  20816          </Node>
  20817                                    
  20818          <Node>
  20819           <Sub>
  20820            86
  20821           </Sub>
  20822                                         
  20823           <Node>
  20824            <Sub>
  20825             0
  20826            </Sub>
  20827                                               
  20828            <Data>
  20829             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  20830            </Data>
  20831                                          
  20832           </Node>
  20833                                     
  20834          </Node>
  20835                                    
  20836          <Node>
  20837           <Sub>
  20838            87
  20839           </Sub>
  20840                                         
  20841           <Node>
  20842            <Sub>
  20843             0
  20844            </Sub>
  20845                                               
  20846            <Data>
  20847             },
  20848            </Data>
  20849                                          
  20850           </Node>
  20851                                     
  20852          </Node>
  20853                                    
  20854          <Node>
  20855           <Sub>
  20856            88
  20857           </Sub>
  20858                                         
  20859           <Node>
  20860            <Sub>
  20861             0
  20862            </Sub>
  20863                                               
  20864            <Data>
  20865             &quot;name &quot;: {
  20866            </Data>
  20867                                          
  20868           </Node>
  20869                                     
  20870          </Node>
  20871                                    
  20872          <Node>
  20873           <Sub>
  20874            89
  20875           </Sub>
  20876                                         
  20877           <Node>
  20878            <Sub>
  20879             0
  20880            </Sub>
  20881                                               
  20882            <Data>
  20883             &quot;type &quot;: &q uot;string &quot;,
  20884            </Data>
  20885                                          
  20886           </Node>
  20887                                     
  20888          </Node>
  20889                                    
  20890          <Node>
  20891           <Sub>
  20892            90
  20893           </Sub>
  20894                                         
  20895           <Node>
  20896            <Sub>
  20897             0
  20898            </Sub>
  20899                                               
  20900            <Data>
  20901             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  20902            </Data>
  20903                                          
  20904           </Node>
  20905                                     
  20906          </Node>
  20907                                    
  20908          <Node>
  20909           <Sub>
  20910            91
  20911           </Sub>
  20912                                         
  20913           <Node>
  20914            <Sub>
  20915             0
  20916            </Sub>
  20917                                               
  20918            <Data>
  20919             }
  20920            </Data>
  20921                                          
  20922           </Node>
  20923                                     
  20924          </Node>
  20925                                    
  20926          <Node>
  20927           <Sub>
  20928            92
  20929           </Sub>
  20930                                         
  20931           <Node>
  20932            <Sub>
  20933             0
  20934            </Sub>
  20935                                               
  20936            <Data>
  20937             }
  20938            </Data>
  20939                                          
  20940           </Node>
  20941                                     
  20942          </Node>
  20943                                    
  20944          <Node>
  20945           <Sub>
  20946            93
  20947           </Sub>
  20948                                         
  20949           <Node>
  20950            <Sub>
  20951             0
  20952            </Sub>
  20953                                               
  20954            <Data>
  20955             },
  20956            </Data>
  20957                                          
  20958           </Node>
  20959                                     
  20960          </Node>
  20961                                    
  20962          <Node>
  20963           <Sub>
  20964            94
  20965           </Sub>
  20966                                         
  20967           <Node>
  20968            <Sub>
  20969             0
  20970            </Sub>
  20971                                               
  20972            <Data>
  20973             &quot;Swag gerDefinit ion&quot;:  {},
  20974            </Data>
  20975                                          
  20976           </Node>
  20977                                     
  20978          </Node>
  20979                                    
  20980          <Node>
  20981           <Sub>
  20982            95
  20983           </Sub>
  20984                                         
  20985           <Node>
  20986            <Sub>
  20987             0
  20988            </Sub>
  20989                                               
  20990            <Data>
  20991             &quot;Path &quot;: {}
  20992            </Data>
  20993                                          
  20994           </Node>
  20995                                     
  20996          </Node>
  20997                                    
  20998          <Node>
  20999           <Sub>
  21000            96
  21001           </Sub>
  21002                                         
  21003           <Node>
  21004            <Sub>
  21005             0
  21006            </Sub>
  21007                                               
  21008            <Data>
  21009             }
  21010            </Data>
  21011                                          
  21012           </Node>
  21013                                     
  21014          </Node>
  21015                                    
  21016          <Node>
  21017           <Sub>
  21018            97
  21019           </Sub>
  21020                                         
  21021           <Node>
  21022            <Sub>
  21023             0
  21024            </Sub>
  21025                                               
  21026            <Data>
  21027             }
  21028            </Data>
  21029                                          
  21030           </Node>
  21031                                     
  21032          </Node>
  21033                               
  21034         </Node>
  21035                          
  21036        </Node>
  21037                         
  21038        <Node>
  21039         <Sub>
  21040          11
  21041         </Sub>
  21042                              
  21043         <Node>
  21044          <Sub>
  21045           0
  21046          </Sub>
  21047                                    
  21048          <Data>
  21049           TIU REQUIR ES COSIGNA TURE
  21050          </Data>
  21051                               
  21052         </Node>
  21053                              
  21054         <Node>
  21055          <Sub>
  21056           DEF
  21057          </Sub>
  21058                                    
  21059          <Node>
  21060           <Sub>
  21061            0
  21062           </Sub>
  21063                                         
  21064           <Data>
  21065            ^^111^111^ 3160409
  21066           </Data>
  21067                                     
  21068          </Node>
  21069                                    
  21070          <Node>
  21071           <Sub>
  21072            1
  21073           </Sub>
  21074                                         
  21075           <Node>
  21076            <Sub>
  21077             0
  21078            </Sub>
  21079                                               
  21080            <Data>
  21081             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  21082            </Data>
  21083                                          
  21084           </Node>
  21085                                     
  21086          </Node>
  21087                                    
  21088          <Node>
  21089           <Sub>
  21090            2
  21091           </Sub>
  21092                                         
  21093           <Node>
  21094            <Sub>
  21095             0
  21096            </Sub>
  21097                                               
  21098            <Data>
  21099             &quot;info &quot;: {
  21100            </Data>
  21101                                          
  21102           </Node>
  21103                                     
  21104          </Node>
  21105                                    
  21106          <Node>
  21107           <Sub>
  21108            3
  21109           </Sub>
  21110                                         
  21111           <Node>
  21112            <Sub>
  21113             0
  21114            </Sub>
  21115                                               
  21116            <Data>
  21117             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  21118            </Data>
  21119                                          
  21120           </Node>
  21121                                     
  21122          </Node>
  21123                                    
  21124          <Node>
  21125           <Sub>
  21126            4
  21127           </Sub>
  21128                                         
  21129           <Node>
  21130            <Sub>
  21131             0
  21132            </Sub>
  21133                                               
  21134            <Data>
  21135             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  21136            </Data>
  21137                                          
  21138           </Node>
  21139                                     
  21140          </Node>
  21141                                    
  21142          <Node>
  21143           <Sub>
  21144            5
  21145           </Sub>
  21146                                         
  21147           <Node>
  21148            <Sub>
  21149             0
  21150            </Sub>
  21151                                               
  21152            <Data>
  21153             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  21154            </Data>
  21155                                          
  21156           </Node>
  21157                                     
  21158          </Node>
  21159                                    
  21160          <Node>
  21161           <Sub>
  21162            6
  21163           </Sub>
  21164                                         
  21165           <Node>
  21166            <Sub>
  21167             0
  21168            </Sub>
  21169                                               
  21170            <Data>
  21171             },
  21172            </Data>
  21173                                          
  21174           </Node>
  21175                                     
  21176          </Node>
  21177                                    
  21178          <Node>
  21179           <Sub>
  21180            7
  21181           </Sub>
  21182                                         
  21183           <Node>
  21184            <Sub>
  21185             0
  21186            </Sub>
  21187                                               
  21188            <Data>
  21189             &quot;sche mes&quot;:  [
  21190            </Data>
  21191                                          
  21192           </Node>
  21193                                     
  21194          </Node>
  21195                                    
  21196          <Node>
  21197           <Sub>
  21198            8
  21199           </Sub>
  21200                                         
  21201           <Node>
  21202            <Sub>
  21203             0
  21204            </Sub>
  21205                                               
  21206            <Data>
  21207             &quot;http s&quot;
  21208            </Data>
  21209                                          
  21210           </Node>
  21211                                     
  21212          </Node>
  21213                                    
  21214          <Node>
  21215           <Sub>
  21216            9
  21217           </Sub>
  21218                                         
  21219           <Node>
  21220            <Sub>
  21221             0
  21222            </Sub>
  21223                                               
  21224            <Data>
  21225             ],
  21226            </Data>
  21227                                          
  21228           </Node>
  21229                                     
  21230          </Node>
  21231                                    
  21232          <Node>
  21233           <Sub>
  21234            10
  21235           </Sub>
  21236                                         
  21237           <Node>
  21238            <Sub>
  21239             0
  21240            </Sub>
  21241                                               
  21242            <Data>
  21243             &quot;base Path&quot; : &quot;/r pcs&quot;,
  21244            </Data>
  21245                                          
  21246           </Node>
  21247                                     
  21248          </Node>
  21249                                    
  21250          <Node>
  21251           <Sub>
  21252            11
  21253           </Sub>
  21254                                         
  21255           <Node>
  21256            <Sub>
  21257             0
  21258            </Sub>
  21259                                               
  21260            <Data>
  21261             &quot;prod uces&quot; : [
  21262            </Data>
  21263                                          
  21264           </Node>
  21265                                     
  21266          </Node>
  21267                                    
  21268          <Node>
  21269           <Sub>
  21270            12
  21271           </Sub>
  21272                                         
  21273           <Node>
  21274            <Sub>
  21275             0
  21276            </Sub>
  21277                                               
  21278            <Data>
  21279             &quot;appl ication/js on&quot;
  21280            </Data>
  21281                                          
  21282           </Node>
  21283                                     
  21284          </Node>
  21285                                    
  21286          <Node>
  21287           <Sub>
  21288            13
  21289           </Sub>
  21290                                         
  21291           <Node>
  21292            <Sub>
  21293             0
  21294            </Sub>
  21295                                               
  21296            <Data>
  21297             ],
  21298            </Data>
  21299                                          
  21300           </Node>
  21301                                     
  21302          </Node>
  21303                                    
  21304          <Node>
  21305           <Sub>
  21306            14
  21307           </Sub>
  21308                                         
  21309           <Node>
  21310            <Sub>
  21311             0
  21312            </Sub>
  21313                                               
  21314            <Data>
  21315             &quot;path s&quot;: {
  21316            </Data>
  21317                                          
  21318           </Node>
  21319                                     
  21320          </Node>
  21321                                    
  21322          <Node>
  21323           <Sub>
  21324            15
  21325           </Sub>
  21326                                         
  21327           <Node>
  21328            <Sub>
  21329             0
  21330            </Sub>
  21331                                               
  21332            <Data>
  21333             &quot;/by- name/tiu%2 0requires% 20cosignat ure/call&q uot;: {
  21334            </Data>
  21335                                          
  21336           </Node>
  21337                                     
  21338          </Node>
  21339                                    
  21340          <Node>
  21341           <Sub>
  21342            16
  21343           </Sub>
  21344                                         
  21345           <Node>
  21346            <Sub>
  21347             0
  21348            </Sub>
  21349                                               
  21350            <Data>
  21351             &quot;post &quot;: {
  21352            </Data>
  21353                                          
  21354           </Node>
  21355                                     
  21356          </Node>
  21357                                    
  21358          <Node>
  21359           <Sub>
  21360            17
  21361           </Sub>
  21362                                         
  21363           <Node>
  21364            <Sub>
  21365             0
  21366            </Sub>
  21367                                               
  21368            <Data>
  21369             &quot;summ ary&quot;:  &quot;REQ COS^TIUSRV A(.tRESULT ,TIUTYP,TI UDA,TIUSER ,TIUDT)&qu ot;,
  21370            </Data>
  21371                                          
  21372           </Node>
  21373                                     
  21374          </Node>
  21375                                    
  21376          <Node>
  21377           <Sub>
  21378            18
  21379           </Sub>
  21380                                         
  21381           <Node>
  21382            <Sub>
  21383             0
  21384            </Sub>
  21385                                               
  21386            <Data>
  21387             <![CDATA[" descriptio n": "This  Boolean RP C simply e valuates w hether the  current u ser requir escosignat ure for TI U DOCUMENT S, and ret urns a 1 i f true, or  a 0 if fa lse.",]]>
  21388            </Data>
  21389                                          
  21390           </Node>
  21391                                     
  21392          </Node>
  21393                                    
  21394          <Node>
  21395           <Sub>
  21396            19
  21397           </Sub>
  21398                                         
  21399           <Node>
  21400            <Sub>
  21401             0
  21402            </Sub>
  21403                                               
  21404            <Data>
  21405             &quot;prod uces&quot; : [
  21406            </Data>
  21407                                          
  21408           </Node>
  21409                                     
  21410          </Node>
  21411                                    
  21412          <Node>
  21413           <Sub>
  21414            20
  21415           </Sub>
  21416                                         
  21417           <Node>
  21418            <Sub>
  21419             0
  21420            </Sub>
  21421                                               
  21422            <Data>
  21423             &quot;appl ication/js on&quot;
  21424            </Data>
  21425                                          
  21426           </Node>
  21427                                     
  21428          </Node>
  21429                                    
  21430          <Node>
  21431           <Sub>
  21432            21
  21433           </Sub>
  21434                                         
  21435           <Node>
  21436            <Sub>
  21437             0
  21438            </Sub>
  21439                                               
  21440            <Data>
  21441             ],
  21442            </Data>
  21443                                          
  21444           </Node>
  21445                                     
  21446          </Node>
  21447                                    
  21448          <Node>
  21449           <Sub>
  21450            22
  21451           </Sub>
  21452                                         
  21453           <Node>
  21454            <Sub>
  21455             0
  21456            </Sub>
  21457                                               
  21458            <Data>
  21459             &quot;para meters&quo t;: [
  21460            </Data>
  21461                                          
  21462           </Node>
  21463                                     
  21464          </Node>
  21465                                    
  21466          <Node>
  21467           <Sub>
  21468            23
  21469           </Sub>
  21470                                         
  21471           <Node>
  21472            <Sub>
  21473             0
  21474            </Sub>
  21475                                               
  21476            <Data>
  21477             {
  21478            </Data>
  21479                                          
  21480           </Node>
  21481                                     
  21482          </Node>
  21483                                    
  21484          <Node>
  21485           <Sub>
  21486            24
  21487           </Sub>
  21488                                         
  21489           <Node>
  21490            <Sub>
  21491             0
  21492            </Sub>
  21493                                               
  21494            <Data>
  21495             &quot;name &quot;: &q uot;TIUTYP &quot;,
  21496            </Data>
  21497                                          
  21498           </Node>
  21499                                     
  21500          </Node>
  21501                                    
  21502          <Node>
  21503           <Sub>
  21504            25
  21505           </Sub>
  21506                                         
  21507           <Node>
  21508            <Sub>
  21509             0
  21510            </Sub>
  21511                                               
  21512            <Data>
  21513             &quot;desc ription&qu ot;: &quot ;Pointer t o the TIU  DOCUMENT D EFINITION  FILE (#892 5.1). [Fil eman Type:  LITERAL]& quot;,
  21514            </Data>
  21515                                          
  21516           </Node>
  21517                                     
  21518          </Node>
  21519                                    
  21520          <Node>
  21521           <Sub>
  21522            26
  21523           </Sub>
  21524                                         
  21525           <Node>
  21526            <Sub>
  21527             0
  21528            </Sub>
  21529                                               
  21530            <Data>
  21531             &quot;in&q uot;: &quo t;formData &quot;,
  21532            </Data>
  21533                                          
  21534           </Node>
  21535                                     
  21536          </Node>
  21537                                    
  21538          <Node>
  21539           <Sub>
  21540            27
  21541           </Sub>
  21542                                         
  21543           <Node>
  21544            <Sub>
  21545             0
  21546            </Sub>
  21547                                               
  21548            <Data>
  21549             &quot;type &quot;: &q uot;string &quot;,
  21550            </Data>
  21551                                          
  21552           </Node>
  21553                                     
  21554          </Node>
  21555                                    
  21556          <Node>
  21557           <Sub>
  21558            28
  21559           </Sub>
  21560                                         
  21561           <Node>
  21562            <Sub>
  21563             0
  21564            </Sub>
  21565                                               
  21566            <Data>
  21567             &quot;requ ired&quot; : true
  21568            </Data>
  21569                                          
  21570           </Node>
  21571                                     
  21572          </Node>
  21573                                    
  21574          <Node>
  21575           <Sub>
  21576            29
  21577           </Sub>
  21578                                         
  21579           <Node>
  21580            <Sub>
  21581             0
  21582            </Sub>
  21583                                               
  21584            <Data>
  21585             },
  21586            </Data>
  21587                                          
  21588           </Node>
  21589                                     
  21590          </Node>
  21591                                    
  21592          <Node>
  21593           <Sub>
  21594            30
  21595           </Sub>
  21596                                         
  21597           <Node>
  21598            <Sub>
  21599             0
  21600            </Sub>
  21601                                               
  21602            <Data>
  21603             {
  21604            </Data>
  21605                                          
  21606           </Node>
  21607                                     
  21608          </Node>
  21609                                    
  21610          <Node>
  21611           <Sub>
  21612            31
  21613           </Sub>
  21614                                         
  21615           <Node>
  21616            <Sub>
  21617             0
  21618            </Sub>
  21619                                               
  21620            <Data>
  21621             &quot;name &quot;: &q uot;TIUDA& quot;,
  21622            </Data>
  21623                                          
  21624           </Node>
  21625                                     
  21626          </Node>
  21627                                    
  21628          <Node>
  21629           <Sub>
  21630            32
  21631           </Sub>
  21632                                         
  21633           <Node>
  21634            <Sub>
  21635             0
  21636            </Sub>
  21637                                               
  21638            <Data>
  21639             <![CDATA[" descriptio n": "Point er to the  TIU DOCUME NT FILE (# 8925).  Re ferences t he documen t to beedi ted/signed . [Fileman  Type: LIT ERAL]",]]>
  21640            </Data>
  21641                                          
  21642           </Node>
  21643                                     
  21644          </Node>
  21645                                    
  21646          <Node>
  21647           <Sub>
  21648            33
  21649           </Sub>
  21650                                         
  21651           <Node>
  21652            <Sub>
  21653             0
  21654            </Sub>
  21655                                               
  21656            <Data>
  21657             &quot;in&q uot;: &quo t;formData &quot;,
  21658            </Data>
  21659                                          
  21660           </Node>
  21661                                     
  21662          </Node>
  21663                                    
  21664          <Node>
  21665           <Sub>
  21666            34
  21667           </Sub>
  21668                                         
  21669           <Node>
  21670            <Sub>
  21671             0
  21672            </Sub>
  21673                                               
  21674            <Data>
  21675             &quot;type &quot;: &q uot;string &quot;,
  21676            </Data>
  21677                                          
  21678           </Node>
  21679                                     
  21680          </Node>
  21681                                    
  21682          <Node>
  21683           <Sub>
  21684            35
  21685           </Sub>
  21686                                         
  21687           <Node>
  21688            <Sub>
  21689             0
  21690            </Sub>
  21691                                               
  21692            <Data>
  21693             &quot;requ ired&quot; : false
  21694            </Data>
  21695                                          
  21696           </Node>
  21697                                     
  21698          </Node>
  21699                                    
  21700          <Node>
  21701           <Sub>
  21702            36
  21703           </Sub>
  21704                                         
  21705           <Node>
  21706            <Sub>
  21707             0
  21708            </Sub>
  21709                                               
  21710            <Data>
  21711             },
  21712            </Data>
  21713                                          
  21714           </Node>
  21715                                     
  21716          </Node>
  21717                                    
  21718          <Node>
  21719           <Sub>
  21720            37
  21721           </Sub>
  21722                                         
  21723           <Node>
  21724            <Sub>
  21725             0
  21726            </Sub>
  21727                                               
  21728            <Data>
  21729             {
  21730            </Data>
  21731                                          
  21732           </Node>
  21733                                     
  21734          </Node>
  21735                                    
  21736          <Node>
  21737           <Sub>
  21738            38
  21739           </Sub>
  21740                                         
  21741           <Node>
  21742            <Sub>
  21743             0
  21744            </Sub>
  21745                                               
  21746            <Data>
  21747             &quot;name &quot;: &q uot;TIUSER &quot;,
  21748            </Data>
  21749                                          
  21750           </Node>
  21751                                     
  21752          </Node>
  21753                                    
  21754          <Node>
  21755           <Sub>
  21756            39
  21757           </Sub>
  21758                                         
  21759           <Node>
  21760            <Sub>
  21761             0
  21762            </Sub>
  21763                                               
  21764            <Data>
  21765             <![CDATA[" descriptio n": "Optio nal parame ter.  Poin ter to the  NEW PERSO N FILE (#2 00).  Pass  this in i f author i s NOT the  current us er (e.g.,  User is a  transcript ionist. [F ileman Typ e: LITERAL ]",]]>
  21766            </Data>
  21767                                          
  21768           </Node>
  21769                                     
  21770          </Node>
  21771                                    
  21772          <Node>
  21773           <Sub>
  21774            40
  21775           </Sub>
  21776                                         
  21777           <Node>
  21778            <Sub>
  21779             0
  21780            </Sub>
  21781                                               
  21782            <Data>
  21783             &quot;in&q uot;: &quo t;formData &quot;,
  21784            </Data>
  21785                                          
  21786           </Node>
  21787                                     
  21788          </Node>
  21789                                    
  21790          <Node>
  21791           <Sub>
  21792            41
  21793           </Sub>
  21794                                         
  21795           <Node>
  21796            <Sub>
  21797             0
  21798            </Sub>
  21799                                               
  21800            <Data>
  21801             &quot;type &quot;: &q uot;string &quot;,
  21802            </Data>
  21803                                          
  21804           </Node>
  21805                                     
  21806          </Node>
  21807                                    
  21808          <Node>
  21809           <Sub>
  21810            42
  21811           </Sub>
  21812                                         
  21813           <Node>
  21814            <Sub>
  21815             0
  21816            </Sub>
  21817                                               
  21818            <Data>
  21819             &quot;requ ired&quot; : false
  21820            </Data>
  21821                                          
  21822           </Node>
  21823                                     
  21824          </Node>
  21825                                    
  21826          <Node>
  21827           <Sub>
  21828            43
  21829           </Sub>
  21830                                         
  21831           <Node>
  21832            <Sub>
  21833             0
  21834            </Sub>
  21835                                               
  21836            <Data>
  21837             },
  21838            </Data>
  21839                                          
  21840           </Node>
  21841                                     
  21842          </Node>
  21843                                    
  21844          <Node>
  21845           <Sub>
  21846            44
  21847           </Sub>
  21848                                         
  21849           <Node>
  21850            <Sub>
  21851             0
  21852            </Sub>
  21853                                               
  21854            <Data>
  21855             {
  21856            </Data>
  21857                                          
  21858           </Node>
  21859                                     
  21860          </Node>
  21861                                    
  21862          <Node>
  21863           <Sub>
  21864            45
  21865           </Sub>
  21866                                         
  21867           <Node>
  21868            <Sub>
  21869             0
  21870            </Sub>
  21871                                               
  21872            <Data>
  21873             &quot;name &quot;: &q uot;TIUDT& quot;,
  21874            </Data>
  21875                                          
  21876           </Node>
  21877                                     
  21878          </Node>
  21879                                    
  21880          <Node>
  21881           <Sub>
  21882            46
  21883           </Sub>
  21884                                         
  21885           <Node>
  21886            <Sub>
  21887             0
  21888            </Sub>
  21889                                               
  21890            <Data>
  21891             &quot;desc ription&qu ot;: &quot ;Date [Fil eman Type:  LITERAL]& quot;,
  21892            </Data>
  21893                                          
  21894           </Node>
  21895                                     
  21896          </Node>
  21897                                    
  21898          <Node>
  21899           <Sub>
  21900            47
  21901           </Sub>
  21902                                         
  21903           <Node>
  21904            <Sub>
  21905             0
  21906            </Sub>
  21907                                               
  21908            <Data>
  21909             &quot;in&q uot;: &quo t;formData &quot;,
  21910            </Data>
  21911                                          
  21912           </Node>
  21913                                     
  21914          </Node>
  21915                                    
  21916          <Node>
  21917           <Sub>
  21918            48
  21919           </Sub>
  21920                                         
  21921           <Node>
  21922            <Sub>
  21923             0
  21924            </Sub>
  21925                                               
  21926            <Data>
  21927             &quot;type &quot;: &q uot;string &quot;,
  21928            </Data>
  21929                                          
  21930           </Node>
  21931                                     
  21932          </Node>
  21933                                    
  21934          <Node>
  21935           <Sub>
  21936            49
  21937           </Sub>
  21938                                         
  21939           <Node>
  21940            <Sub>
  21941             0
  21942            </Sub>
  21943                                               
  21944            <Data>
  21945             &quot;requ ired&quot; : false
  21946            </Data>
  21947                                          
  21948           </Node>
  21949                                     
  21950          </Node>
  21951                                    
  21952          <Node>
  21953           <Sub>
  21954            50
  21955           </Sub>
  21956                                         
  21957           <Node>
  21958            <Sub>
  21959             0
  21960            </Sub>
  21961                                               
  21962            <Data>
  21963             }
  21964            </Data>
  21965                                          
  21966           </Node>
  21967                                     
  21968          </Node>
  21969                                    
  21970          <Node>
  21971           <Sub>
  21972            51
  21973           </Sub>
  21974                                         
  21975           <Node>
  21976            <Sub>
  21977             0
  21978            </Sub>
  21979                                               
  21980            <Data>
  21981             ],
  21982            </Data>
  21983                                          
  21984           </Node>
  21985                                     
  21986          </Node>
  21987                                    
  21988          <Node>
  21989           <Sub>
  21990            52
  21991           </Sub>
  21992                                         
  21993           <Node>
  21994            <Sub>
  21995             0
  21996            </Sub>
  21997                                               
  21998            <Data>
  21999             &quot;tags &quot;: [
  22000            </Data>
  22001                                          
  22002           </Node>
  22003                                     
  22004          </Node>
  22005                                    
  22006          <Node>
  22007           <Sub>
  22008            53
  22009           </Sub>
  22010                                         
  22011           <Node>
  22012            <Sub>
  22013             0
  22014            </Sub>
  22015                                               
  22016            <Data>
  22017             &quot;RPCS &quot;,
  22018            </Data>
  22019                                          
  22020           </Node>
  22021                                     
  22022          </Node>
  22023                                    
  22024          <Node>
  22025           <Sub>
  22026            54
  22027           </Sub>
  22028                                         
  22029           <Node>
  22030            <Sub>
  22031             0
  22032            </Sub>
  22033                                               
  22034            <Data>
  22035             &quot;Rest ify&quot;
  22036            </Data>
  22037                                          
  22038           </Node>
  22039                                     
  22040          </Node>
  22041                                    
  22042          <Node>
  22043           <Sub>
  22044            55
  22045           </Sub>
  22046                                         
  22047           <Node>
  22048            <Sub>
  22049             0
  22050            </Sub>
  22051                                               
  22052            <Data>
  22053             ],
  22054            </Data>
  22055                                          
  22056           </Node>
  22057                                     
  22058          </Node>
  22059                                    
  22060          <Node>
  22061           <Sub>
  22062            56
  22063           </Sub>
  22064                                         
  22065           <Node>
  22066            <Sub>
  22067             0
  22068            </Sub>
  22069                                               
  22070            <Data>
  22071             &quot;resp onses&quot ;: {
  22072            </Data>
  22073                                          
  22074           </Node>
  22075                                     
  22076          </Node>
  22077                                    
  22078          <Node>
  22079           <Sub>
  22080            57
  22081           </Sub>
  22082                                         
  22083           <Node>
  22084            <Sub>
  22085             0
  22086            </Sub>
  22087                                               
  22088            <Data>
  22089             &quot;200& quot;: {
  22090            </Data>
  22091                                          
  22092           </Node>
  22093                                     
  22094          </Node>
  22095                                    
  22096          <Node>
  22097           <Sub>
  22098            58
  22099           </Sub>
  22100                                         
  22101           <Node>
  22102            <Sub>
  22103             0
  22104            </Sub>
  22105                                               
  22106            <Data>
  22107             &quot;desc ription&qu ot;: &quot ;Boolean r esult: 0 i f FALSE, O R 1 if TRU E.&quot;,
  22108            </Data>
  22109                                          
  22110           </Node>
  22111                                     
  22112          </Node>
  22113                                    
  22114          <Node>
  22115           <Sub>
  22116            59
  22117           </Sub>
  22118                                         
  22119           <Node>
  22120            <Sub>
  22121             0
  22122            </Sub>
  22123                                               
  22124            <Data>
  22125             &quot;sche ma&quot;:  {
  22126            </Data>
  22127                                          
  22128           </Node>
  22129                                     
  22130          </Node>
  22131                                    
  22132          <Node>
  22133           <Sub>
  22134            60
  22135           </Sub>
  22136                                         
  22137           <Node>
  22138            <Sub>
  22139             0
  22140            </Sub>
  22141                                               
  22142            <Data>
  22143             &quot;$ref &quot;: &q uot;#/defi nitions/SI NGLE_VALUE &quot;
  22144            </Data>
  22145                                          
  22146           </Node>
  22147                                     
  22148          </Node>
  22149                                    
  22150          <Node>
  22151           <Sub>
  22152            61
  22153           </Sub>
  22154                                         
  22155           <Node>
  22156            <Sub>
  22157             0
  22158            </Sub>
  22159                                               
  22160            <Data>
  22161             }
  22162            </Data>
  22163                                          
  22164           </Node>
  22165                                     
  22166          </Node>
  22167                                    
  22168          <Node>
  22169           <Sub>
  22170            62
  22171           </Sub>
  22172                                         
  22173           <Node>
  22174            <Sub>
  22175             0
  22176            </Sub>
  22177                                               
  22178            <Data>
  22179             }
  22180            </Data>
  22181                                          
  22182           </Node>
  22183                                     
  22184          </Node>
  22185                                    
  22186          <Node>
  22187           <Sub>
  22188            63
  22189           </Sub>
  22190                                         
  22191           <Node>
  22192            <Sub>
  22193             0
  22194            </Sub>
  22195                                               
  22196            <Data>
  22197             }
  22198            </Data>
  22199                                          
  22200           </Node>
  22201                                     
  22202          </Node>
  22203                                    
  22204          <Node>
  22205           <Sub>
  22206            64
  22207           </Sub>
  22208                                         
  22209           <Node>
  22210            <Sub>
  22211             0
  22212            </Sub>
  22213                                               
  22214            <Data>
  22215             }
  22216            </Data>
  22217                                          
  22218           </Node>
  22219                                     
  22220          </Node>
  22221                                    
  22222          <Node>
  22223           <Sub>
  22224            65
  22225           </Sub>
  22226                                         
  22227           <Node>
  22228            <Sub>
  22229             0
  22230            </Sub>
  22231                                               
  22232            <Data>
  22233             }
  22234            </Data>
  22235                                          
  22236           </Node>
  22237                                     
  22238          </Node>
  22239                                    
  22240          <Node>
  22241           <Sub>
  22242            66
  22243           </Sub>
  22244                                         
  22245           <Node>
  22246            <Sub>
  22247             0
  22248            </Sub>
  22249                                               
  22250            <Data>
  22251             },
  22252            </Data>
  22253                                          
  22254           </Node>
  22255                                     
  22256          </Node>
  22257                                    
  22258          <Node>
  22259           <Sub>
  22260            67
  22261           </Sub>
  22262                                         
  22263           <Node>
  22264            <Sub>
  22265             0
  22266            </Sub>
  22267                                               
  22268            <Data>
  22269             &quot;defi nitions&qu ot;: {
  22270            </Data>
  22271                                          
  22272           </Node>
  22273                                     
  22274          </Node>
  22275                                    
  22276          <Node>
  22277           <Sub>
  22278            68
  22279           </Sub>
  22280                                         
  22281           <Node>
  22282            <Sub>
  22283             0
  22284            </Sub>
  22285                                               
  22286            <Data>
  22287             &quot;ARRA Y&quot;: {
  22288            </Data>
  22289                                          
  22290           </Node>
  22291                                     
  22292          </Node>
  22293                                    
  22294          <Node>
  22295           <Sub>
  22296            69
  22297           </Sub>
  22298                                         
  22299           <Node>
  22300            <Sub>
  22301             0
  22302            </Sub>
  22303                                               
  22304            <Data>
  22305             &quot;type &quot;: &q uot;object &quot;
  22306            </Data>
  22307                                          
  22308           </Node>
  22309                                     
  22310          </Node>
  22311                                    
  22312          <Node>
  22313           <Sub>
  22314            70
  22315           </Sub>
  22316                                         
  22317           <Node>
  22318            <Sub>
  22319             0
  22320            </Sub>
  22321                                               
  22322            <Data>
  22323             },
  22324            </Data>
  22325                                          
  22326           </Node>
  22327                                     
  22328          </Node>
  22329                                    
  22330          <Node>
  22331           <Sub>
  22332            71
  22333           </Sub>
  22334                                         
  22335           <Node>
  22336            <Sub>
  22337             0
  22338            </Sub>
  22339                                               
  22340            <Data>
  22341             &quot;GLOB AL_ARRAY&q uot;: {
  22342            </Data>
  22343                                          
  22344           </Node>
  22345                                     
  22346          </Node>
  22347                                    
  22348          <Node>
  22349           <Sub>
  22350            72
  22351           </Sub>
  22352                                         
  22353           <Node>
  22354            <Sub>
  22355             0
  22356            </Sub>
  22357                                               
  22358            <Data>
  22359             &quot;type &quot;: &q uot;object &quot;
  22360            </Data>
  22361                                          
  22362           </Node>
  22363                                     
  22364          </Node>
  22365                                    
  22366          <Node>
  22367           <Sub>
  22368            73
  22369           </Sub>
  22370                                         
  22371           <Node>
  22372            <Sub>
  22373             0
  22374            </Sub>
  22375                                               
  22376            <Data>
  22377             },
  22378            </Data>
  22379                                          
  22380           </Node>
  22381                                     
  22382          </Node>
  22383                                    
  22384          <Node>
  22385           <Sub>
  22386            74
  22387           </Sub>
  22388                                         
  22389           <Node>
  22390            <Sub>
  22391             0
  22392            </Sub>
  22393                                               
  22394            <Data>
  22395             &quot;SING LE_VALUE&q uot;: {
  22396            </Data>
  22397                                          
  22398           </Node>
  22399                                     
  22400          </Node>
  22401                                    
  22402          <Node>
  22403           <Sub>
  22404            75
  22405           </Sub>
  22406                                         
  22407           <Node>
  22408            <Sub>
  22409             0
  22410            </Sub>
  22411                                               
  22412            <Data>
  22413             &quot;type &quot;: &q uot;string &quot;
  22414            </Data>
  22415                                          
  22416           </Node>
  22417                                     
  22418          </Node>
  22419                                    
  22420          <Node>
  22421           <Sub>
  22422            76
  22423           </Sub>
  22424                                         
  22425           <Node>
  22426            <Sub>
  22427             0
  22428            </Sub>
  22429                                               
  22430            <Data>
  22431             },
  22432            </Data>
  22433                                          
  22434           </Node>
  22435                                     
  22436          </Node>
  22437                                    
  22438          <Node>
  22439           <Sub>
  22440            77
  22441           </Sub>
  22442                                         
  22443           <Node>
  22444            <Sub>
  22445             0
  22446            </Sub>
  22447                                               
  22448            <Data>
  22449             &quot;GLOB AL_INSTANC E&quot;: {
  22450            </Data>
  22451                                          
  22452           </Node>
  22453                                     
  22454          </Node>
  22455                                    
  22456          <Node>
  22457           <Sub>
  22458            78
  22459           </Sub>
  22460                                         
  22461           <Node>
  22462            <Sub>
  22463             0
  22464            </Sub>
  22465                                               
  22466            <Data>
  22467             &quot;type &quot;: &q uot;string &quot;
  22468            </Data>
  22469                                          
  22470           </Node>
  22471                                     
  22472          </Node>
  22473                                    
  22474          <Node>
  22475           <Sub>
  22476            79
  22477           </Sub>
  22478                                         
  22479           <Node>
  22480            <Sub>
  22481             0
  22482            </Sub>
  22483                                               
  22484            <Data>
  22485             },
  22486            </Data>
  22487                                          
  22488           </Node>
  22489                                     
  22490          </Node>
  22491                                    
  22492          <Node>
  22493           <Sub>
  22494            80
  22495           </Sub>
  22496                                         
  22497           <Node>
  22498            <Sub>
  22499             0
  22500            </Sub>
  22501                                               
  22502            <Data>
  22503             &quot;WORD _PROCESSIN G&quot;: {
  22504            </Data>
  22505                                          
  22506           </Node>
  22507                                     
  22508          </Node>
  22509                                    
  22510          <Node>
  22511           <Sub>
  22512            81
  22513           </Sub>
  22514                                         
  22515           <Node>
  22516            <Sub>
  22517             0
  22518            </Sub>
  22519                                               
  22520            <Data>
  22521             &quot;type &quot;: &q uot;object &quot;
  22522            </Data>
  22523                                          
  22524           </Node>
  22525                                     
  22526          </Node>
  22527                                    
  22528          <Node>
  22529           <Sub>
  22530            82
  22531           </Sub>
  22532                                         
  22533           <Node>
  22534            <Sub>
  22535             0
  22536            </Sub>
  22537                                               
  22538            <Data>
  22539             },
  22540            </Data>
  22541                                          
  22542           </Node>
  22543                                     
  22544          </Node>
  22545                                    
  22546          <Node>
  22547           <Sub>
  22548            83
  22549           </Sub>
  22550                                         
  22551           <Node>
  22552            <Sub>
  22553             0
  22554            </Sub>
  22555                                               
  22556            <Data>
  22557             &quot;Erro r&quot;: {
  22558            </Data>
  22559                                          
  22560           </Node>
  22561                                     
  22562          </Node>
  22563                                    
  22564          <Node>
  22565           <Sub>
  22566            84
  22567           </Sub>
  22568                                         
  22569           <Node>
  22570            <Sub>
  22571             0
  22572            </Sub>
  22573                                               
  22574            <Data>
  22575             &quot;prop erties&quo t;: {
  22576            </Data>
  22577                                          
  22578           </Node>
  22579                                     
  22580          </Node>
  22581                                    
  22582          <Node>
  22583           <Sub>
  22584            85
  22585           </Sub>
  22586                                         
  22587           <Node>
  22588            <Sub>
  22589             0
  22590            </Sub>
  22591                                               
  22592            <Data>
  22593             &quot;erro r&quot;: {
  22594            </Data>
  22595                                          
  22596           </Node>
  22597                                     
  22598          </Node>
  22599                                    
  22600          <Node>
  22601           <Sub>
  22602            86
  22603           </Sub>
  22604                                         
  22605           <Node>
  22606            <Sub>
  22607             0
  22608            </Sub>
  22609                                               
  22610            <Data>
  22611             &quot;type &quot;: &q uot;string &quot;,
  22612            </Data>
  22613                                          
  22614           </Node>
  22615                                     
  22616          </Node>
  22617                                    
  22618          <Node>
  22619           <Sub>
  22620            87
  22621           </Sub>
  22622                                         
  22623           <Node>
  22624            <Sub>
  22625             0
  22626            </Sub>
  22627                                               
  22628            <Data>
  22629             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  22630            </Data>
  22631                                          
  22632           </Node>
  22633                                     
  22634          </Node>
  22635                                    
  22636          <Node>
  22637           <Sub>
  22638            88
  22639           </Sub>
  22640                                         
  22641           <Node>
  22642            <Sub>
  22643             0
  22644            </Sub>
  22645                                               
  22646            <Data>
  22647             },
  22648            </Data>
  22649                                          
  22650           </Node>
  22651                                     
  22652          </Node>
  22653                                    
  22654          <Node>
  22655           <Sub>
  22656            89
  22657           </Sub>
  22658                                         
  22659           <Node>
  22660            <Sub>
  22661             0
  22662            </Sub>
  22663                                               
  22664            <Data>
  22665             &quot;data &quot;: {
  22666            </Data>
  22667                                          
  22668           </Node>
  22669                                     
  22670          </Node>
  22671                                    
  22672          <Node>
  22673           <Sub>
  22674            90
  22675           </Sub>
  22676                                         
  22677           <Node>
  22678            <Sub>
  22679             0
  22680            </Sub>
  22681                                               
  22682            <Data>
  22683             &quot;type &quot;: &q uot;object &quot;,
  22684            </Data>
  22685                                          
  22686           </Node>
  22687                                     
  22688          </Node>
  22689                                    
  22690          <Node>
  22691           <Sub>
  22692            91
  22693           </Sub>
  22694                                         
  22695           <Node>
  22696            <Sub>
  22697             0
  22698            </Sub>
  22699                                               
  22700            <Data>
  22701             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  22702            </Data>
  22703                                          
  22704           </Node>
  22705                                     
  22706          </Node>
  22707                                    
  22708          <Node>
  22709           <Sub>
  22710            92
  22711           </Sub>
  22712                                         
  22713           <Node>
  22714            <Sub>
  22715             0
  22716            </Sub>
  22717                                               
  22718            <Data>
  22719             }
  22720            </Data>
  22721                                          
  22722           </Node>
  22723                                     
  22724          </Node>
  22725                                    
  22726          <Node>
  22727           <Sub>
  22728            93
  22729           </Sub>
  22730                                         
  22731           <Node>
  22732            <Sub>
  22733             0
  22734            </Sub>
  22735                                               
  22736            <Data>
  22737             }
  22738            </Data>
  22739                                          
  22740           </Node>
  22741                                     
  22742          </Node>
  22743                                    
  22744          <Node>
  22745           <Sub>
  22746            94
  22747           </Sub>
  22748                                         
  22749           <Node>
  22750            <Sub>
  22751             0
  22752            </Sub>
  22753                                               
  22754            <Data>
  22755             },
  22756            </Data>
  22757                                          
  22758           </Node>
  22759                                     
  22760          </Node>
  22761                                    
  22762          <Node>
  22763           <Sub>
  22764            95
  22765           </Sub>
  22766                                         
  22767           <Node>
  22768            <Sub>
  22769             0
  22770            </Sub>
  22771                                               
  22772            <Data>
  22773             &quot;RpcI d&quot;: {
  22774            </Data>
  22775                                          
  22776           </Node>
  22777                                     
  22778          </Node>
  22779                                    
  22780          <Node>
  22781           <Sub>
  22782            96
  22783           </Sub>
  22784                                         
  22785           <Node>
  22786            <Sub>
  22787             0
  22788            </Sub>
  22789                                               
  22790            <Data>
  22791             &quot;prop erties&quo t;: {
  22792            </Data>
  22793                                          
  22794           </Node>
  22795                                     
  22796          </Node>
  22797                                    
  22798          <Node>
  22799           <Sub>
  22800            97
  22801           </Sub>
  22802                                         
  22803           <Node>
  22804            <Sub>
  22805             0
  22806            </Sub>
  22807                                               
  22808            <Data>
  22809             &quot;id&q uot;: {
  22810            </Data>
  22811                                          
  22812           </Node>
  22813                                     
  22814          </Node>
  22815                                    
  22816          <Node>
  22817           <Sub>
  22818            98
  22819           </Sub>
  22820                                         
  22821           <Node>
  22822            <Sub>
  22823             0
  22824            </Sub>
  22825                                               
  22826            <Data>
  22827             &quot;type &quot;: &q uot;intege r&quot;,
  22828            </Data>
  22829                                          
  22830           </Node>
  22831                                     
  22832          </Node>
  22833                                    
  22834          <Node>
  22835           <Sub>
  22836            99
  22837           </Sub>
  22838                                         
  22839           <Node>
  22840            <Sub>
  22841             0
  22842            </Sub>
  22843                                               
  22844            <Data>
  22845             &quot;form at&quot;:  &quot;int3 2&quot;,
  22846            </Data>
  22847                                          
  22848           </Node>
  22849                                     
  22850          </Node>
  22851                                    
  22852          <Node>
  22853           <Sub>
  22854            100
  22855           </Sub>
  22856                                         
  22857           <Node>
  22858            <Sub>
  22859             0
  22860            </Sub>
  22861                                               
  22862            <Data>
  22863             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  22864            </Data>
  22865                                          
  22866           </Node>
  22867                                     
  22868          </Node>
  22869                                    
  22870          <Node>
  22871           <Sub>
  22872            101
  22873           </Sub>
  22874                                         
  22875           <Node>
  22876            <Sub>
  22877             0
  22878            </Sub>
  22879                                               
  22880            <Data>
  22881             },
  22882            </Data>
  22883                                          
  22884           </Node>
  22885                                     
  22886          </Node>
  22887                                    
  22888          <Node>
  22889           <Sub>
  22890            102
  22891           </Sub>
  22892                                         
  22893           <Node>
  22894            <Sub>
  22895             0
  22896            </Sub>
  22897                                               
  22898            <Data>
  22899             &quot;name &quot;: {
  22900            </Data>
  22901                                          
  22902           </Node>
  22903                                     
  22904          </Node>
  22905                                    
  22906          <Node>
  22907           <Sub>
  22908            103
  22909           </Sub>
  22910                                         
  22911           <Node>
  22912            <Sub>
  22913             0
  22914            </Sub>
  22915                                               
  22916            <Data>
  22917             &quot;type &quot;: &q uot;string &quot;,
  22918            </Data>
  22919                                          
  22920           </Node>
  22921                                     
  22922          </Node>
  22923                                    
  22924          <Node>
  22925           <Sub>
  22926            104
  22927           </Sub>
  22928                                         
  22929           <Node>
  22930            <Sub>
  22931             0
  22932            </Sub>
  22933                                               
  22934            <Data>
  22935             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  22936            </Data>
  22937                                          
  22938           </Node>
  22939                                     
  22940          </Node>
  22941                                    
  22942          <Node>
  22943           <Sub>
  22944            105
  22945           </Sub>
  22946                                         
  22947           <Node>
  22948            <Sub>
  22949             0
  22950            </Sub>
  22951                                               
  22952            <Data>
  22953             }
  22954            </Data>
  22955                                          
  22956           </Node>
  22957                                     
  22958          </Node>
  22959                                    
  22960          <Node>
  22961           <Sub>
  22962            106
  22963           </Sub>
  22964                                         
  22965           <Node>
  22966            <Sub>
  22967             0
  22968            </Sub>
  22969                                               
  22970            <Data>
  22971             }
  22972            </Data>
  22973                                          
  22974           </Node>
  22975                                     
  22976          </Node>
  22977                                    
  22978          <Node>
  22979           <Sub>
  22980            107
  22981           </Sub>
  22982                                         
  22983           <Node>
  22984            <Sub>
  22985             0
  22986            </Sub>
  22987                                               
  22988            <Data>
  22989             },
  22990            </Data>
  22991                                          
  22992           </Node>
  22993                                     
  22994          </Node>
  22995                                    
  22996          <Node>
  22997           <Sub>
  22998            108
  22999           </Sub>
  23000                                         
  23001           <Node>
  23002            <Sub>
  23003             0
  23004            </Sub>
  23005                                               
  23006            <Data>
  23007             &quot;Swag gerDefinit ion&quot;:  {},
  23008            </Data>
  23009                                          
  23010           </Node>
  23011                                     
  23012          </Node>
  23013                                    
  23014          <Node>
  23015           <Sub>
  23016            109
  23017           </Sub>
  23018                                         
  23019           <Node>
  23020            <Sub>
  23021             0
  23022            </Sub>
  23023                                               
  23024            <Data>
  23025             &quot;Path &quot;: {}
  23026            </Data>
  23027                                          
  23028           </Node>
  23029                                     
  23030          </Node>
  23031                                    
  23032          <Node>
  23033           <Sub>
  23034            110
  23035           </Sub>
  23036                                         
  23037           <Node>
  23038            <Sub>
  23039             0
  23040            </Sub>
  23041                                               
  23042            <Data>
  23043             }
  23044            </Data>
  23045                                          
  23046           </Node>
  23047                                     
  23048          </Node>
  23049                                    
  23050          <Node>
  23051           <Sub>
  23052            111
  23053           </Sub>
  23054                                         
  23055           <Node>
  23056            <Sub>
  23057             0
  23058            </Sub>
  23059                                               
  23060            <Data>
  23061             }
  23062            </Data>
  23063                                          
  23064           </Node>
  23065                                     
  23066          </Node>
  23067                               
  23068         </Node>
  23069                          
  23070        </Node>
  23071                         
  23072        <Node>
  23073         <Sub>
  23074          12
  23075         </Sub>
  23076                              
  23077         <Node>
  23078          <Sub>
  23079           0
  23080          </Sub>
  23081                                    
  23082          <Data>
  23083           TIU IS USE R A PROVID ER?
  23084          </Data>
  23085                               
  23086         </Node>
  23087                              
  23088         <Node>
  23089          <Sub>
  23090           DEF
  23091          </Sub>
  23092                                    
  23093          <Node>
  23094           <Sub>
  23095            0
  23096           </Sub>
  23097                                         
  23098           <Data>
  23099            ^^97^97^31 60409
  23100           </Data>
  23101                                     
  23102          </Node>
  23103                                    
  23104          <Node>
  23105           <Sub>
  23106            1
  23107           </Sub>
  23108                                         
  23109           <Node>
  23110            <Sub>
  23111             0
  23112            </Sub>
  23113                                               
  23114            <Data>
  23115             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  23116            </Data>
  23117                                          
  23118           </Node>
  23119                                     
  23120          </Node>
  23121                                    
  23122          <Node>
  23123           <Sub>
  23124            2
  23125           </Sub>
  23126                                         
  23127           <Node>
  23128            <Sub>
  23129             0
  23130            </Sub>
  23131                                               
  23132            <Data>
  23133             &quot;info &quot;: {
  23134            </Data>
  23135                                          
  23136           </Node>
  23137                                     
  23138          </Node>
  23139                                    
  23140          <Node>
  23141           <Sub>
  23142            3
  23143           </Sub>
  23144                                         
  23145           <Node>
  23146            <Sub>
  23147             0
  23148            </Sub>
  23149                                               
  23150            <Data>
  23151             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  23152            </Data>
  23153                                          
  23154           </Node>
  23155                                     
  23156          </Node>
  23157                                    
  23158          <Node>
  23159           <Sub>
  23160            4
  23161           </Sub>
  23162                                         
  23163           <Node>
  23164            <Sub>
  23165             0
  23166            </Sub>
  23167                                               
  23168            <Data>
  23169             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  23170            </Data>
  23171                                          
  23172           </Node>
  23173                                     
  23174          </Node>
  23175                                    
  23176          <Node>
  23177           <Sub>
  23178            5
  23179           </Sub>
  23180                                         
  23181           <Node>
  23182            <Sub>
  23183             0
  23184            </Sub>
  23185                                               
  23186            <Data>
  23187             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  23188            </Data>
  23189                                          
  23190           </Node>
  23191                                     
  23192          </Node>
  23193                                    
  23194          <Node>
  23195           <Sub>
  23196            6
  23197           </Sub>
  23198                                         
  23199           <Node>
  23200            <Sub>
  23201             0
  23202            </Sub>
  23203                                               
  23204            <Data>
  23205             },
  23206            </Data>
  23207                                          
  23208           </Node>
  23209                                     
  23210          </Node>
  23211                                    
  23212          <Node>
  23213           <Sub>
  23214            7
  23215           </Sub>
  23216                                         
  23217           <Node>
  23218            <Sub>
  23219             0
  23220            </Sub>
  23221                                               
  23222            <Data>
  23223             &quot;sche mes&quot;:  [
  23224            </Data>
  23225                                          
  23226           </Node>
  23227                                     
  23228          </Node>
  23229                                    
  23230          <Node>
  23231           <Sub>
  23232            8
  23233           </Sub>
  23234                                         
  23235           <Node>
  23236            <Sub>
  23237             0
  23238            </Sub>
  23239                                               
  23240            <Data>
  23241             &quot;http s&quot;
  23242            </Data>
  23243                                          
  23244           </Node>
  23245                                     
  23246          </Node>
  23247                                    
  23248          <Node>
  23249           <Sub>
  23250            9
  23251           </Sub>
  23252                                         
  23253           <Node>
  23254            <Sub>
  23255             0
  23256            </Sub>
  23257                                               
  23258            <Data>
  23259             ],
  23260            </Data>
  23261                                          
  23262           </Node>
  23263                                     
  23264          </Node>
  23265                                    
  23266          <Node>
  23267           <Sub>
  23268            10
  23269           </Sub>
  23270                                         
  23271           <Node>
  23272            <Sub>
  23273             0
  23274            </Sub>
  23275                                               
  23276            <Data>
  23277             &quot;base Path&quot; : &quot;/r pcs&quot;,
  23278            </Data>
  23279                                          
  23280           </Node>
  23281                                     
  23282          </Node>
  23283                                    
  23284          <Node>
  23285           <Sub>
  23286            11
  23287           </Sub>
  23288                                         
  23289           <Node>
  23290            <Sub>
  23291             0
  23292            </Sub>
  23293                                               
  23294            <Data>
  23295             &quot;prod uces&quot; : [
  23296            </Data>
  23297                                          
  23298           </Node>
  23299                                     
  23300          </Node>
  23301                                    
  23302          <Node>
  23303           <Sub>
  23304            12
  23305           </Sub>
  23306                                         
  23307           <Node>
  23308            <Sub>
  23309             0
  23310            </Sub>
  23311                                               
  23312            <Data>
  23313             &quot;appl ication/js on&quot;
  23314            </Data>
  23315                                          
  23316           </Node>
  23317                                     
  23318          </Node>
  23319                                    
  23320          <Node>
  23321           <Sub>
  23322            13
  23323           </Sub>
  23324                                         
  23325           <Node>
  23326            <Sub>
  23327             0
  23328            </Sub>
  23329                                               
  23330            <Data>
  23331             ],
  23332            </Data>
  23333                                          
  23334           </Node>
  23335                                     
  23336          </Node>
  23337                                    
  23338          <Node>
  23339           <Sub>
  23340            14
  23341           </Sub>
  23342                                         
  23343           <Node>
  23344            <Sub>
  23345             0
  23346            </Sub>
  23347                                               
  23348            <Data>
  23349             &quot;path s&quot;: {
  23350            </Data>
  23351                                          
  23352           </Node>
  23353                                     
  23354          </Node>
  23355                                    
  23356          <Node>
  23357           <Sub>
  23358            15
  23359           </Sub>
  23360                                         
  23361           <Node>
  23362            <Sub>
  23363             0
  23364            </Sub>
  23365                                               
  23366            <Data>
  23367             &quot;/by- name/tiu%2 0is%20user %20a%20pro vider%3F/c all&quot;:  {
  23368            </Data>
  23369                                          
  23370           </Node>
  23371                                     
  23372          </Node>
  23373                                    
  23374          <Node>
  23375           <Sub>
  23376            16
  23377           </Sub>
  23378                                         
  23379           <Node>
  23380            <Sub>
  23381             0
  23382            </Sub>
  23383                                               
  23384            <Data>
  23385             &quot;post &quot;: {
  23386            </Data>
  23387                                          
  23388           </Node>
  23389                                     
  23390          </Node>
  23391                                    
  23392          <Node>
  23393           <Sub>
  23394            17
  23395           </Sub>
  23396                                         
  23397           <Node>
  23398            <Sub>
  23399             0
  23400            </Sub>
  23401                                               
  23402            <Data>
  23403             &quot;summ ary&quot;:  &quot;ISA PROV^TIUSR VP1(.tRESU LT,USER,DA TE)&quot;,
  23404            </Data>
  23405                                          
  23406           </Node>
  23407                                     
  23408          </Node>
  23409                                    
  23410          <Node>
  23411           <Sub>
  23412            18
  23413           </Sub>
  23414                                         
  23415           <Node>
  23416            <Sub>
  23417             0
  23418            </Sub>
  23419                                               
  23420            <Data>
  23421             <![CDATA[" descriptio n": "This  Boolean RP C returns  TRUE if th e user was  a known p rovider on  the date  specified. ",]]>
  23422            </Data>
  23423                                          
  23424           </Node>
  23425                                     
  23426          </Node>
  23427                                    
  23428          <Node>
  23429           <Sub>
  23430            19
  23431           </Sub>
  23432                                         
  23433           <Node>
  23434            <Sub>
  23435             0
  23436            </Sub>
  23437                                               
  23438            <Data>
  23439             &quot;prod uces&quot; : [
  23440            </Data>
  23441                                          
  23442           </Node>
  23443                                     
  23444          </Node>
  23445                                    
  23446          <Node>
  23447           <Sub>
  23448            20
  23449           </Sub>
  23450                                         
  23451           <Node>
  23452            <Sub>
  23453             0
  23454            </Sub>
  23455                                               
  23456            <Data>
  23457             &quot;appl ication/js on&quot;
  23458            </Data>
  23459                                          
  23460           </Node>
  23461                                     
  23462          </Node>
  23463                                    
  23464          <Node>
  23465           <Sub>
  23466            21
  23467           </Sub>
  23468                                         
  23469           <Node>
  23470            <Sub>
  23471             0
  23472            </Sub>
  23473                                               
  23474            <Data>
  23475             ],
  23476            </Data>
  23477                                          
  23478           </Node>
  23479                                     
  23480          </Node>
  23481                                    
  23482          <Node>
  23483           <Sub>
  23484            22
  23485           </Sub>
  23486                                         
  23487           <Node>
  23488            <Sub>
  23489             0
  23490            </Sub>
  23491                                               
  23492            <Data>
  23493             &quot;para meters&quo t;: [
  23494            </Data>
  23495                                          
  23496           </Node>
  23497                                     
  23498          </Node>
  23499                                    
  23500          <Node>
  23501           <Sub>
  23502            23
  23503           </Sub>
  23504                                         
  23505           <Node>
  23506            <Sub>
  23507             0
  23508            </Sub>
  23509                                               
  23510            <Data>
  23511             {
  23512            </Data>
  23513                                          
  23514           </Node>
  23515                                     
  23516          </Node>
  23517                                    
  23518          <Node>
  23519           <Sub>
  23520            24
  23521           </Sub>
  23522                                         
  23523           <Node>
  23524            <Sub>
  23525             0
  23526            </Sub>
  23527                                               
  23528            <Data>
  23529             &quot;name &quot;: &q uot;USER&q uot;,
  23530            </Data>
  23531                                          
  23532           </Node>
  23533                                     
  23534          </Node>
  23535                                    
  23536          <Node>
  23537           <Sub>
  23538            25
  23539           </Sub>
  23540                                         
  23541           <Node>
  23542            <Sub>
  23543             0
  23544            </Sub>
  23545                                               
  23546            <Data>
  23547             <![CDATA[" descriptio n": "Optio nal pointe r to the N EW PERSON  FILE (#200 ). If user  is unspec ified the  current us er will be  assumed.  [Fileman T ype: LITER AL]",]]>
  23548            </Data>
  23549                                          
  23550           </Node>
  23551                                     
  23552          </Node>
  23553                                    
  23554          <Node>
  23555           <Sub>
  23556            26
  23557           </Sub>
  23558                                         
  23559           <Node>
  23560            <Sub>
  23561             0
  23562            </Sub>
  23563                                               
  23564            <Data>
  23565             &quot;in&q uot;: &quo t;formData &quot;,
  23566            </Data>
  23567                                          
  23568           </Node>
  23569                                     
  23570          </Node>
  23571                                    
  23572          <Node>
  23573           <Sub>
  23574            27
  23575           </Sub>
  23576                                         
  23577           <Node>
  23578            <Sub>
  23579             0
  23580            </Sub>
  23581                                               
  23582            <Data>
  23583             &quot;type &quot;: &q uot;string &quot;,
  23584            </Data>
  23585                                          
  23586           </Node>
  23587                                     
  23588          </Node>
  23589                                    
  23590          <Node>
  23591           <Sub>
  23592            28
  23593           </Sub>
  23594                                         
  23595           <Node>
  23596            <Sub>
  23597             0
  23598            </Sub>
  23599                                               
  23600            <Data>
  23601             &quot;requ ired&quot; : false
  23602            </Data>
  23603                                          
  23604           </Node>
  23605                                     
  23606          </Node>
  23607                                    
  23608          <Node>
  23609           <Sub>
  23610            29
  23611           </Sub>
  23612                                         
  23613           <Node>
  23614            <Sub>
  23615             0
  23616            </Sub>
  23617                                               
  23618            <Data>
  23619             },
  23620            </Data>
  23621                                          
  23622           </Node>
  23623                                     
  23624          </Node>
  23625                                    
  23626          <Node>
  23627           <Sub>
  23628            30
  23629           </Sub>
  23630                                         
  23631           <Node>
  23632            <Sub>
  23633             0
  23634            </Sub>
  23635                                               
  23636            <Data>
  23637             {
  23638            </Data>
  23639                                          
  23640           </Node>
  23641                                     
  23642          </Node>
  23643                                    
  23644          <Node>
  23645           <Sub>
  23646            31
  23647           </Sub>
  23648                                         
  23649           <Node>
  23650            <Sub>
  23651             0
  23652            </Sub>
  23653                                               
  23654            <Data>
  23655             &quot;name &quot;: &q uot;DATE&q uot;,
  23656            </Data>
  23657                                          
  23658           </Node>
  23659                                     
  23660          </Node>
  23661                                    
  23662          <Node>
  23663           <Sub>
  23664            32
  23665           </Sub>
  23666                                         
  23667           <Node>
  23668            <Sub>
  23669             0
  23670            </Sub>
  23671                                               
  23672            <Data>
  23673             <![CDATA[" descriptio n": "Optio nal FileMa n formatte d date (ti me). If no ne is prov ided the c urrent dat e is assum ed. [Filem an Type: L ITERAL]",] ]>
  23674            </Data>
  23675                                          
  23676           </Node>
  23677                                     
  23678          </Node>
  23679                                    
  23680          <Node>
  23681           <Sub>
  23682            33
  23683           </Sub>
  23684                                         
  23685           <Node>
  23686            <Sub>
  23687             0
  23688            </Sub>
  23689                                               
  23690            <Data>
  23691             &quot;in&q uot;: &quo t;formData &quot;,
  23692            </Data>
  23693                                          
  23694           </Node>
  23695                                     
  23696          </Node>
  23697                                    
  23698          <Node>
  23699           <Sub>
  23700            34
  23701           </Sub>
  23702                                         
  23703           <Node>
  23704            <Sub>
  23705             0
  23706            </Sub>
  23707                                               
  23708            <Data>
  23709             &quot;type &quot;: &q uot;string &quot;,
  23710            </Data>
  23711                                          
  23712           </Node>
  23713                                     
  23714          </Node>
  23715                                    
  23716          <Node>
  23717           <Sub>
  23718            35
  23719           </Sub>
  23720                                         
  23721           <Node>
  23722            <Sub>
  23723             0
  23724            </Sub>
  23725                                               
  23726            <Data>
  23727             &quot;requ ired&quot; : false
  23728            </Data>
  23729                                          
  23730           </Node>
  23731                                     
  23732          </Node>
  23733                                    
  23734          <Node>
  23735           <Sub>
  23736            36
  23737           </Sub>
  23738                                         
  23739           <Node>
  23740            <Sub>
  23741             0
  23742            </Sub>
  23743                                               
  23744            <Data>
  23745             }
  23746            </Data>
  23747                                          
  23748           </Node>
  23749                                     
  23750          </Node>
  23751                                    
  23752          <Node>
  23753           <Sub>
  23754            37
  23755           </Sub>
  23756                                         
  23757           <Node>
  23758            <Sub>
  23759             0
  23760            </Sub>
  23761                                               
  23762            <Data>
  23763             ],
  23764            </Data>
  23765                                          
  23766           </Node>
  23767                                     
  23768          </Node>
  23769                                    
  23770          <Node>
  23771           <Sub>
  23772            38
  23773           </Sub>
  23774                                         
  23775           <Node>
  23776            <Sub>
  23777             0
  23778            </Sub>
  23779                                               
  23780            <Data>
  23781             &quot;tags &quot;: [
  23782            </Data>
  23783                                          
  23784           </Node>
  23785                                     
  23786          </Node>
  23787                                    
  23788          <Node>
  23789           <Sub>
  23790            39
  23791           </Sub>
  23792                                         
  23793           <Node>
  23794            <Sub>
  23795             0
  23796            </Sub>
  23797                                               
  23798            <Data>
  23799             &quot;RPCS &quot;,
  23800            </Data>
  23801                                          
  23802           </Node>
  23803                                     
  23804          </Node>
  23805                                    
  23806          <Node>
  23807           <Sub>
  23808            40
  23809           </Sub>
  23810                                         
  23811           <Node>
  23812            <Sub>
  23813             0
  23814            </Sub>
  23815                                               
  23816            <Data>
  23817             &quot;Rest ify&quot;
  23818            </Data>
  23819                                          
  23820           </Node>
  23821                                     
  23822          </Node>
  23823                                    
  23824          <Node>
  23825           <Sub>
  23826            41
  23827           </Sub>
  23828                                         
  23829           <Node>
  23830            <Sub>
  23831             0
  23832            </Sub>
  23833                                               
  23834            <Data>
  23835             ],
  23836            </Data>
  23837                                          
  23838           </Node>
  23839                                     
  23840          </Node>
  23841                                    
  23842          <Node>
  23843           <Sub>
  23844            42
  23845           </Sub>
  23846                                         
  23847           <Node>
  23848            <Sub>
  23849             0
  23850            </Sub>
  23851                                               
  23852            <Data>
  23853             &quot;resp onses&quot ;: {
  23854            </Data>
  23855                                          
  23856           </Node>
  23857                                     
  23858          </Node>
  23859                                    
  23860          <Node>
  23861           <Sub>
  23862            43
  23863           </Sub>
  23864                                         
  23865           <Node>
  23866            <Sub>
  23867             0
  23868            </Sub>
  23869                                               
  23870            <Data>
  23871             &quot;200& quot;: {
  23872            </Data>
  23873                                          
  23874           </Node>
  23875                                     
  23876          </Node>
  23877                                    
  23878          <Node>
  23879           <Sub>
  23880            44
  23881           </Sub>
  23882                                         
  23883           <Node>
  23884            <Sub>
  23885             0
  23886            </Sub>
  23887                                               
  23888            <Data>
  23889             &quot;desc ription&qu ot;: &quot ;0=FALSE1= TRUE&quot; ,
  23890            </Data>
  23891                                          
  23892           </Node>
  23893                                     
  23894          </Node>
  23895                                    
  23896          <Node>
  23897           <Sub>
  23898            45
  23899           </Sub>
  23900                                         
  23901           <Node>
  23902            <Sub>
  23903             0
  23904            </Sub>
  23905                                               
  23906            <Data>
  23907             &quot;sche ma&quot;:  {
  23908            </Data>
  23909                                          
  23910           </Node>
  23911                                     
  23912          </Node>
  23913                                    
  23914          <Node>
  23915           <Sub>
  23916            46
  23917           </Sub>
  23918                                         
  23919           <Node>
  23920            <Sub>
  23921             0
  23922            </Sub>
  23923                                               
  23924            <Data>
  23925             &quot;$ref &quot;: &q uot;#/defi nitions/SI NGLE_VALUE &quot;
  23926            </Data>
  23927                                          
  23928           </Node>
  23929                                     
  23930          </Node>
  23931                                    
  23932          <Node>
  23933           <Sub>
  23934            47
  23935           </Sub>
  23936                                         
  23937           <Node>
  23938            <Sub>
  23939             0
  23940            </Sub>
  23941                                               
  23942            <Data>
  23943             }
  23944            </Data>
  23945                                          
  23946           </Node>
  23947                                     
  23948          </Node>
  23949                                    
  23950          <Node>
  23951           <Sub>
  23952            48
  23953           </Sub>
  23954                                         
  23955           <Node>
  23956            <Sub>
  23957             0
  23958            </Sub>
  23959                                               
  23960            <Data>
  23961             }
  23962            </Data>
  23963                                          
  23964           </Node>
  23965                                     
  23966          </Node>
  23967                                    
  23968          <Node>
  23969           <Sub>
  23970            49
  23971           </Sub>
  23972                                         
  23973           <Node>
  23974            <Sub>
  23975             0
  23976            </Sub>
  23977                                               
  23978            <Data>
  23979             }
  23980            </Data>
  23981                                          
  23982           </Node>
  23983                                     
  23984          </Node>
  23985                                    
  23986          <Node>
  23987           <Sub>
  23988            50
  23989           </Sub>
  23990                                         
  23991           <Node>
  23992            <Sub>
  23993             0
  23994            </Sub>
  23995                                               
  23996            <Data>
  23997             }
  23998            </Data>
  23999                                          
  24000           </Node>
  24001                                     
  24002          </Node>
  24003                                    
  24004          <Node>
  24005           <Sub>
  24006            51
  24007           </Sub>
  24008                                         
  24009           <Node>
  24010            <Sub>
  24011             0
  24012            </Sub>
  24013                                               
  24014            <Data>
  24015             }
  24016            </Data>
  24017                                          
  24018           </Node>
  24019                                     
  24020          </Node>
  24021                                    
  24022          <Node>
  24023           <Sub>
  24024            52
  24025           </Sub>
  24026                                         
  24027           <Node>
  24028            <Sub>
  24029             0
  24030            </Sub>
  24031                                               
  24032            <Data>
  24033             },
  24034            </Data>
  24035                                          
  24036           </Node>
  24037                                     
  24038          </Node>
  24039                                    
  24040          <Node>
  24041           <Sub>
  24042            53
  24043           </Sub>
  24044                                         
  24045           <Node>
  24046            <Sub>
  24047             0
  24048            </Sub>
  24049                                               
  24050            <Data>
  24051             &quot;defi nitions&qu ot;: {
  24052            </Data>
  24053                                          
  24054           </Node>
  24055                                     
  24056          </Node>
  24057                                    
  24058          <Node>
  24059           <Sub>
  24060            54
  24061           </Sub>
  24062                                         
  24063           <Node>
  24064            <Sub>
  24065             0
  24066            </Sub>
  24067                                               
  24068            <Data>
  24069             &quot;ARRA Y&quot;: {
  24070            </Data>
  24071                                          
  24072           </Node>
  24073                                     
  24074          </Node>
  24075                                    
  24076          <Node>
  24077           <Sub>
  24078            55
  24079           </Sub>
  24080                                         
  24081           <Node>
  24082            <Sub>
  24083             0
  24084            </Sub>
  24085                                               
  24086            <Data>
  24087             &quot;type &quot;: &q uot;object &quot;
  24088            </Data>
  24089                                          
  24090           </Node>
  24091                                     
  24092          </Node>
  24093                                    
  24094          <Node>
  24095           <Sub>
  24096            56
  24097           </Sub>
  24098                                         
  24099           <Node>
  24100            <Sub>
  24101             0
  24102            </Sub>
  24103                                               
  24104            <Data>
  24105             },
  24106            </Data>
  24107                                          
  24108           </Node>
  24109                                     
  24110          </Node>
  24111                                    
  24112          <Node>
  24113           <Sub>
  24114            57
  24115           </Sub>
  24116                                         
  24117           <Node>
  24118            <Sub>
  24119             0
  24120            </Sub>
  24121                                               
  24122            <Data>
  24123             &quot;GLOB AL_ARRAY&q uot;: {
  24124            </Data>
  24125                                          
  24126           </Node>
  24127                                     
  24128          </Node>
  24129                                    
  24130          <Node>
  24131           <Sub>
  24132            58
  24133           </Sub>
  24134                                         
  24135           <Node>
  24136            <Sub>
  24137             0
  24138            </Sub>
  24139                                               
  24140            <Data>
  24141             &quot;type &quot;: &q uot;object &quot;
  24142            </Data>
  24143                                          
  24144           </Node>
  24145                                     
  24146          </Node>
  24147                                    
  24148          <Node>
  24149           <Sub>
  24150            59
  24151           </Sub>
  24152                                         
  24153           <Node>
  24154            <Sub>
  24155             0
  24156            </Sub>
  24157                                               
  24158            <Data>
  24159             },
  24160            </Data>
  24161                                          
  24162           </Node>
  24163                                     
  24164          </Node>
  24165                                    
  24166          <Node>
  24167           <Sub>
  24168            60
  24169           </Sub>
  24170                                         
  24171           <Node>
  24172            <Sub>
  24173             0
  24174            </Sub>
  24175                                               
  24176            <Data>
  24177             &quot;SING LE_VALUE&q uot;: {
  24178            </Data>
  24179                                          
  24180           </Node>
  24181                                     
  24182          </Node>
  24183                                    
  24184          <Node>
  24185           <Sub>
  24186            61
  24187           </Sub>
  24188                                         
  24189           <Node>
  24190            <Sub>
  24191             0
  24192            </Sub>
  24193                                               
  24194            <Data>
  24195             &quot;type &quot;: &q uot;string &quot;
  24196            </Data>
  24197                                          
  24198           </Node>
  24199                                     
  24200          </Node>
  24201                                    
  24202          <Node>
  24203           <Sub>
  24204            62
  24205           </Sub>
  24206                                         
  24207           <Node>
  24208            <Sub>
  24209             0
  24210            </Sub>
  24211                                               
  24212            <Data>
  24213             },
  24214            </Data>
  24215                                          
  24216           </Node>
  24217                                     
  24218          </Node>
  24219                                    
  24220          <Node>
  24221           <Sub>
  24222            63
  24223           </Sub>
  24224                                         
  24225           <Node>
  24226            <Sub>
  24227             0
  24228            </Sub>
  24229                                               
  24230            <Data>
  24231             &quot;GLOB AL_INSTANC E&quot;: {
  24232            </Data>
  24233                                          
  24234           </Node>
  24235                                     
  24236          </Node>
  24237                                    
  24238          <Node>
  24239           <Sub>
  24240            64
  24241           </Sub>
  24242                                         
  24243           <Node>
  24244            <Sub>
  24245             0
  24246            </Sub>
  24247                                               
  24248            <Data>
  24249             &quot;type &quot;: &q uot;string &quot;
  24250            </Data>
  24251                                          
  24252           </Node>
  24253                                     
  24254          </Node>
  24255                                    
  24256          <Node>
  24257           <Sub>
  24258            65
  24259           </Sub>
  24260                                         
  24261           <Node>
  24262            <Sub>
  24263             0
  24264            </Sub>
  24265                                               
  24266            <Data>
  24267             },
  24268            </Data>
  24269                                          
  24270           </Node>
  24271                                     
  24272          </Node>
  24273                                    
  24274          <Node>
  24275           <Sub>
  24276            66
  24277           </Sub>
  24278                                         
  24279           <Node>
  24280            <Sub>
  24281             0
  24282            </Sub>
  24283                                               
  24284            <Data>
  24285             &quot;WORD _PROCESSIN G&quot;: {
  24286            </Data>
  24287                                          
  24288           </Node>
  24289                                     
  24290          </Node>
  24291                                    
  24292          <Node>
  24293           <Sub>
  24294            67
  24295           </Sub>
  24296                                         
  24297           <Node>
  24298            <Sub>
  24299             0
  24300            </Sub>
  24301                                               
  24302            <Data>
  24303             &quot;type &quot;: &q uot;object &quot;
  24304            </Data>
  24305                                          
  24306           </Node>
  24307                                     
  24308          </Node>
  24309                                    
  24310          <Node>
  24311           <Sub>
  24312            68
  24313           </Sub>
  24314                                         
  24315           <Node>
  24316            <Sub>
  24317             0
  24318            </Sub>
  24319                                               
  24320            <Data>
  24321             },
  24322            </Data>
  24323                                          
  24324           </Node>
  24325                                     
  24326          </Node>
  24327                                    
  24328          <Node>
  24329           <Sub>
  24330            69
  24331           </Sub>
  24332                                         
  24333           <Node>
  24334            <Sub>
  24335             0
  24336            </Sub>
  24337                                               
  24338            <Data>
  24339             &quot;Erro r&quot;: {
  24340            </Data>
  24341                                          
  24342           </Node>
  24343                                     
  24344          </Node>
  24345                                    
  24346          <Node>
  24347           <Sub>
  24348            70
  24349           </Sub>
  24350                                         
  24351           <Node>
  24352            <Sub>
  24353             0
  24354            </Sub>
  24355                                               
  24356            <Data>
  24357             &quot;prop erties&quo t;: {
  24358            </Data>
  24359                                          
  24360           </Node>
  24361                                     
  24362          </Node>
  24363                                    
  24364          <Node>
  24365           <Sub>
  24366            71
  24367           </Sub>
  24368                                         
  24369           <Node>
  24370            <Sub>
  24371             0
  24372            </Sub>
  24373                                               
  24374            <Data>
  24375             &quot;erro r&quot;: {
  24376            </Data>
  24377                                          
  24378           </Node>
  24379                                     
  24380          </Node>
  24381                                    
  24382          <Node>
  24383           <Sub>
  24384            72
  24385           </Sub>
  24386                                         
  24387           <Node>
  24388            <Sub>
  24389             0
  24390            </Sub>
  24391                                               
  24392            <Data>
  24393             &quot;type &quot;: &q uot;string &quot;,
  24394            </Data>
  24395                                          
  24396           </Node>
  24397                                     
  24398          </Node>
  24399                                    
  24400          <Node>
  24401           <Sub>
  24402            73
  24403           </Sub>
  24404                                         
  24405           <Node>
  24406            <Sub>
  24407             0
  24408            </Sub>
  24409                                               
  24410            <Data>
  24411             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  24412            </Data>
  24413                                          
  24414           </Node>
  24415                                     
  24416          </Node>
  24417                                    
  24418          <Node>
  24419           <Sub>
  24420            74
  24421           </Sub>
  24422                                         
  24423           <Node>
  24424            <Sub>
  24425             0
  24426            </Sub>
  24427                                               
  24428            <Data>
  24429             },
  24430            </Data>
  24431                                          
  24432           </Node>
  24433                                     
  24434          </Node>
  24435                                    
  24436          <Node>
  24437           <Sub>
  24438            75
  24439           </Sub>
  24440                                         
  24441           <Node>
  24442            <Sub>
  24443             0
  24444            </Sub>
  24445                                               
  24446            <Data>
  24447             &quot;data &quot;: {
  24448            </Data>
  24449                                          
  24450           </Node>
  24451                                     
  24452          </Node>
  24453                                    
  24454          <Node>
  24455           <Sub>
  24456            76
  24457           </Sub>
  24458                                         
  24459           <Node>
  24460            <Sub>
  24461             0
  24462            </Sub>
  24463                                               
  24464            <Data>
  24465             &quot;type &quot;: &q uot;object &quot;,
  24466            </Data>
  24467                                          
  24468           </Node>
  24469                                     
  24470          </Node>
  24471                                    
  24472          <Node>
  24473           <Sub>
  24474            77
  24475           </Sub>
  24476                                         
  24477           <Node>
  24478            <Sub>
  24479             0
  24480            </Sub>
  24481                                               
  24482            <Data>
  24483             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  24484            </Data>
  24485                                          
  24486           </Node>
  24487                                     
  24488          </Node>
  24489                                    
  24490          <Node>
  24491           <Sub>
  24492            78
  24493           </Sub>
  24494                                         
  24495           <Node>
  24496            <Sub>
  24497             0
  24498            </Sub>
  24499                                               
  24500            <Data>
  24501             }
  24502            </Data>
  24503                                          
  24504           </Node>
  24505                                     
  24506          </Node>
  24507                                    
  24508          <Node>
  24509           <Sub>
  24510            79
  24511           </Sub>
  24512                                         
  24513           <Node>
  24514            <Sub>
  24515             0
  24516            </Sub>
  24517                                               
  24518            <Data>
  24519             }
  24520            </Data>
  24521                                          
  24522           </Node>
  24523                                     
  24524          </Node>
  24525                                    
  24526          <Node>
  24527           <Sub>
  24528            80
  24529           </Sub>
  24530                                         
  24531           <Node>
  24532            <Sub>
  24533             0
  24534            </Sub>
  24535                                               
  24536            <Data>
  24537             },
  24538            </Data>
  24539                                          
  24540           </Node>
  24541                                     
  24542          </Node>
  24543                                    
  24544          <Node>
  24545           <Sub>
  24546            81
  24547           </Sub>
  24548                                         
  24549           <Node>
  24550            <Sub>
  24551             0
  24552            </Sub>
  24553                                               
  24554            <Data>
  24555             &quot;RpcI d&quot;: {
  24556            </Data>
  24557                                          
  24558           </Node>
  24559                                     
  24560          </Node>
  24561                                    
  24562          <Node>
  24563           <Sub>
  24564            82
  24565           </Sub>
  24566                                         
  24567           <Node>
  24568            <Sub>
  24569             0
  24570            </Sub>
  24571                                               
  24572            <Data>
  24573             &quot;prop erties&quo t;: {
  24574            </Data>
  24575                                          
  24576           </Node>
  24577                                     
  24578          </Node>
  24579                                    
  24580          <Node>
  24581           <Sub>
  24582            83
  24583           </Sub>
  24584                                         
  24585           <Node>
  24586            <Sub>
  24587             0
  24588            </Sub>
  24589                                               
  24590            <Data>
  24591             &quot;id&q uot;: {
  24592            </Data>
  24593                                          
  24594           </Node>
  24595                                     
  24596          </Node>
  24597                                    
  24598          <Node>
  24599           <Sub>
  24600            84
  24601           </Sub>
  24602                                         
  24603           <Node>
  24604            <Sub>
  24605             0
  24606            </Sub>
  24607                                               
  24608            <Data>
  24609             &quot;type &quot;: &q uot;intege r&quot;,
  24610            </Data>
  24611                                          
  24612           </Node>
  24613                                     
  24614          </Node>
  24615                                    
  24616          <Node>
  24617           <Sub>
  24618            85
  24619           </Sub>
  24620                                         
  24621           <Node>
  24622            <Sub>
  24623             0
  24624            </Sub>
  24625                                               
  24626            <Data>
  24627             &quot;form at&quot;:  &quot;int3 2&quot;,
  24628            </Data>
  24629                                          
  24630           </Node>
  24631                                     
  24632          </Node>
  24633                                    
  24634          <Node>
  24635           <Sub>
  24636            86
  24637           </Sub>
  24638                                         
  24639           <Node>
  24640            <Sub>
  24641             0
  24642            </Sub>
  24643                                               
  24644            <Data>
  24645             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  24646            </Data>
  24647                                          
  24648           </Node>
  24649                                     
  24650          </Node>
  24651                                    
  24652          <Node>
  24653           <Sub>
  24654            87
  24655           </Sub>
  24656                                         
  24657           <Node>
  24658            <Sub>
  24659             0
  24660            </Sub>
  24661                                               
  24662            <Data>
  24663             },
  24664            </Data>
  24665                                          
  24666           </Node>
  24667                                     
  24668          </Node>
  24669                                    
  24670          <Node>
  24671           <Sub>
  24672            88
  24673           </Sub>
  24674                                         
  24675           <Node>
  24676            <Sub>
  24677             0
  24678            </Sub>
  24679                                               
  24680            <Data>
  24681             &quot;name &quot;: {
  24682            </Data>
  24683                                          
  24684           </Node>
  24685                                     
  24686          </Node>
  24687                                    
  24688          <Node>
  24689           <Sub>
  24690            89
  24691           </Sub>
  24692                                         
  24693           <Node>
  24694            <Sub>
  24695             0
  24696            </Sub>
  24697                                               
  24698            <Data>
  24699             &quot;type &quot;: &q uot;string &quot;,
  24700            </Data>
  24701                                          
  24702           </Node>
  24703                                     
  24704          </Node>
  24705                                    
  24706          <Node>
  24707           <Sub>
  24708            90
  24709           </Sub>
  24710                                         
  24711           <Node>
  24712            <Sub>
  24713             0
  24714            </Sub>
  24715                                               
  24716            <Data>
  24717             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  24718            </Data>
  24719                                          
  24720           </Node>
  24721                                     
  24722          </Node>
  24723                                    
  24724          <Node>
  24725           <Sub>
  24726            91
  24727           </Sub>
  24728                                         
  24729           <Node>
  24730            <Sub>
  24731             0
  24732            </Sub>
  24733                                               
  24734            <Data>
  24735             }
  24736            </Data>
  24737                                          
  24738           </Node>
  24739                                     
  24740          </Node>
  24741                                    
  24742          <Node>
  24743           <Sub>
  24744            92
  24745           </Sub>
  24746                                         
  24747           <Node>
  24748            <Sub>
  24749             0
  24750            </Sub>
  24751                                               
  24752            <Data>
  24753             }
  24754            </Data>
  24755                                          
  24756           </Node>
  24757                                     
  24758          </Node>
  24759                                    
  24760          <Node>
  24761           <Sub>
  24762            93
  24763           </Sub>
  24764                                         
  24765           <Node>
  24766            <Sub>
  24767             0
  24768            </Sub>
  24769                                               
  24770            <Data>
  24771             },
  24772            </Data>
  24773                                          
  24774           </Node>
  24775                                     
  24776          </Node>
  24777                                    
  24778          <Node>
  24779           <Sub>
  24780            94
  24781           </Sub>
  24782                                         
  24783           <Node>
  24784            <Sub>
  24785             0
  24786            </Sub>
  24787                                               
  24788            <Data>
  24789             &quot;Swag gerDefinit ion&quot;:  {},
  24790            </Data>
  24791                                          
  24792           </Node>
  24793                                     
  24794          </Node>
  24795                                    
  24796          <Node>
  24797           <Sub>
  24798            95
  24799           </Sub>
  24800                                         
  24801           <Node>
  24802            <Sub>
  24803             0
  24804            </Sub>
  24805                                               
  24806            <Data>
  24807             &quot;Path &quot;: {}
  24808            </Data>
  24809                                          
  24810           </Node>
  24811                                     
  24812          </Node>
  24813                                    
  24814          <Node>
  24815           <Sub>
  24816            96
  24817           </Sub>
  24818                                         
  24819           <Node>
  24820            <Sub>
  24821             0
  24822            </Sub>
  24823                                               
  24824            <Data>
  24825             }
  24826            </Data>
  24827                                          
  24828           </Node>
  24829                                     
  24830          </Node>
  24831                                    
  24832          <Node>
  24833           <Sub>
  24834            97
  24835           </Sub>
  24836                                         
  24837           <Node>
  24838            <Sub>
  24839             0
  24840            </Sub>
  24841                                               
  24842            <Data>
  24843             }
  24844            </Data>
  24845                                          
  24846           </Node>
  24847                                     
  24848          </Node>
  24849                               
  24850         </Node>
  24851                          
  24852        </Node>
  24853                         
  24854        <Node>
  24855         <Sub>
  24856          13
  24857         </Sub>
  24858                              
  24859         <Node>
  24860          <Sub>
  24861           0
  24862          </Sub>
  24863                                    
  24864          <Data>
  24865           XSA TEST G ET VARIABL E
  24866          </Data>
  24867                               
  24868         </Node>
  24869                              
  24870         <Node>
  24871          <Sub>
  24872           DEF
  24873          </Sub>
  24874                                    
  24875          <Node>
  24876           <Sub>
  24877            0
  24878           </Sub>
  24879                                         
  24880           <Data>
  24881            ^^82^82^31 60623
  24882           </Data>
  24883                                     
  24884          </Node>
  24885                                    
  24886          <Node>
  24887           <Sub>
  24888            1
  24889           </Sub>
  24890                                         
  24891           <Node>
  24892            <Sub>
  24893             0
  24894            </Sub>
  24895                                               
  24896            <Data>
  24897             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  24898            </Data>
  24899                                          
  24900           </Node>
  24901                                     
  24902          </Node>
  24903                                    
  24904          <Node>
  24905           <Sub>
  24906            2
  24907           </Sub>
  24908                                         
  24909           <Node>
  24910            <Sub>
  24911             0
  24912            </Sub>
  24913                                               
  24914            <Data>
  24915             &quot;info &quot;: {
  24916            </Data>
  24917                                          
  24918           </Node>
  24919                                     
  24920          </Node>
  24921                                    
  24922          <Node>
  24923           <Sub>
  24924            3
  24925           </Sub>
  24926                                         
  24927           <Node>
  24928            <Sub>
  24929             0
  24930            </Sub>
  24931                                               
  24932            <Data>
  24933             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  24934            </Data>
  24935                                          
  24936           </Node>
  24937                                     
  24938          </Node>
  24939                                    
  24940          <Node>
  24941           <Sub>
  24942            4
  24943           </Sub>
  24944                                         
  24945           <Node>
  24946            <Sub>
  24947             0
  24948            </Sub>
  24949                                               
  24950            <Data>
  24951             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  24952            </Data>
  24953                                          
  24954           </Node>
  24955                                     
  24956          </Node>
  24957                                    
  24958          <Node>
  24959           <Sub>
  24960            5
  24961           </Sub>
  24962                                         
  24963           <Node>
  24964            <Sub>
  24965             0
  24966            </Sub>
  24967                                               
  24968            <Data>
  24969             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  24970            </Data>
  24971                                          
  24972           </Node>
  24973                                     
  24974          </Node>
  24975                                    
  24976          <Node>
  24977           <Sub>
  24978            6
  24979           </Sub>
  24980                                         
  24981           <Node>
  24982            <Sub>
  24983             0
  24984            </Sub>
  24985                                               
  24986            <Data>
  24987             },
  24988            </Data>
  24989                                          
  24990           </Node>
  24991                                     
  24992          </Node>
  24993                                    
  24994          <Node>
  24995           <Sub>
  24996            7
  24997           </Sub>
  24998                                         
  24999           <Node>
  25000            <Sub>
  25001             0
  25002            </Sub>
  25003                                               
  25004            <Data>
  25005             &quot;sche mes&quot;:  [
  25006            </Data>
  25007                                          
  25008           </Node>
  25009                                     
  25010          </Node>
  25011                                    
  25012          <Node>
  25013           <Sub>
  25014            8
  25015           </Sub>
  25016                                         
  25017           <Node>
  25018            <Sub>
  25019             0
  25020            </Sub>
  25021                                               
  25022            <Data>
  25023             &quot;http s&quot;
  25024            </Data>
  25025                                          
  25026           </Node>
  25027                                     
  25028          </Node>
  25029                                    
  25030          <Node>
  25031           <Sub>
  25032            9
  25033           </Sub>
  25034                                         
  25035           <Node>
  25036            <Sub>
  25037             0
  25038            </Sub>
  25039                                               
  25040            <Data>
  25041             ],
  25042            </Data>
  25043                                          
  25044           </Node>
  25045                                     
  25046          </Node>
  25047                                    
  25048          <Node>
  25049           <Sub>
  25050            10
  25051           </Sub>
  25052                                         
  25053           <Node>
  25054            <Sub>
  25055             0
  25056            </Sub>
  25057                                               
  25058            <Data>
  25059             &quot;base Path&quot; : &quot;/r pcs&quot;,
  25060            </Data>
  25061                                          
  25062           </Node>
  25063                                     
  25064          </Node>
  25065                                    
  25066          <Node>
  25067           <Sub>
  25068            11
  25069           </Sub>
  25070                                         
  25071           <Node>
  25072            <Sub>
  25073             0
  25074            </Sub>
  25075                                               
  25076            <Data>
  25077             &quot;prod uces&quot; : [
  25078            </Data>
  25079                                          
  25080           </Node>
  25081                                     
  25082          </Node>
  25083                                    
  25084          <Node>
  25085           <Sub>
  25086            12
  25087           </Sub>
  25088                                         
  25089           <Node>
  25090            <Sub>
  25091             0
  25092            </Sub>
  25093                                               
  25094            <Data>
  25095             &quot;appl ication/js on&quot;
  25096            </Data>
  25097                                          
  25098           </Node>
  25099                                     
  25100          </Node>
  25101                                    
  25102          <Node>
  25103           <Sub>
  25104            13
  25105           </Sub>
  25106                                         
  25107           <Node>
  25108            <Sub>
  25109             0
  25110            </Sub>
  25111                                               
  25112            <Data>
  25113             ],
  25114            </Data>
  25115                                          
  25116           </Node>
  25117                                     
  25118          </Node>
  25119                                    
  25120          <Node>
  25121           <Sub>
  25122            14
  25123           </Sub>
  25124                                         
  25125           <Node>
  25126            <Sub>
  25127             0
  25128            </Sub>
  25129                                               
  25130            <Data>
  25131             &quot;path s&quot;: {
  25132            </Data>
  25133                                          
  25134           </Node>
  25135                                     
  25136          </Node>
  25137                                    
  25138          <Node>
  25139           <Sub>
  25140            15
  25141           </Sub>
  25142                                         
  25143           <Node>
  25144            <Sub>
  25145             0
  25146            </Sub>
  25147                                               
  25148            <Data>
  25149             &quot;/by- name/xsa%2 0test%20ge t%20variab le/call&qu ot;: {
  25150            </Data>
  25151                                          
  25152           </Node>
  25153                                     
  25154          </Node>
  25155                                    
  25156          <Node>
  25157           <Sub>
  25158            16
  25159           </Sub>
  25160                                         
  25161           <Node>
  25162            <Sub>
  25163             0
  25164            </Sub>
  25165                                               
  25166            <Data>
  25167             &quot;post &quot;: {
  25168            </Data>
  25169                                          
  25170           </Node>
  25171                                     
  25172          </Node>
  25173                                    
  25174          <Node>
  25175           <Sub>
  25176            17
  25177           </Sub>
  25178                                         
  25179           <Node>
  25180            <Sub>
  25181             0
  25182            </Sub>
  25183                                               
  25184            <Data>
  25185             &quot;summ ary&quot;:  &quot;GET ^XSAPXT(.t RESULT)&qu ot;,
  25186            </Data>
  25187                                          
  25188           </Node>
  25189                                     
  25190          </Node>
  25191                                    
  25192          <Node>
  25193           <Sub>
  25194            18
  25195           </Sub>
  25196                                         
  25197           <Node>
  25198            <Sub>
  25199             0
  25200            </Sub>
  25201                                               
  25202            <Data>
  25203             <![CDATA[" descriptio n": "The p urpose of  this RPC i s to test  the VistA  Services A ssembler s essionstat e manageme nt for mai ntaining t he scope o f local va riables be tween RPCc alls.",]]>
  25204            </Data>
  25205                                          
  25206           </Node>
  25207                                     
  25208          </Node>
  25209                                    
  25210          <Node>
  25211           <Sub>
  25212            19
  25213           </Sub>
  25214                                         
  25215           <Node>
  25216            <Sub>
  25217             0
  25218            </Sub>
  25219                                               
  25220            <Data>
  25221             &quot;prod uces&quot; : [
  25222            </Data>
  25223                                          
  25224           </Node>
  25225                                     
  25226          </Node>
  25227                                    
  25228          <Node>
  25229           <Sub>
  25230            20
  25231           </Sub>
  25232                                         
  25233           <Node>
  25234            <Sub>
  25235             0
  25236            </Sub>
  25237                                               
  25238            <Data>
  25239             &quot;appl ication/js on&quot;
  25240            </Data>
  25241                                          
  25242           </Node>
  25243                                     
  25244          </Node>
  25245                                    
  25246          <Node>
  25247           <Sub>
  25248            21
  25249           </Sub>
  25250                                         
  25251           <Node>
  25252            <Sub>
  25253             0
  25254            </Sub>
  25255                                               
  25256            <Data>
  25257             ],
  25258            </Data>
  25259                                          
  25260           </Node>
  25261                                     
  25262          </Node>
  25263                                    
  25264          <Node>
  25265           <Sub>
  25266            22
  25267           </Sub>
  25268                                         
  25269           <Node>
  25270            <Sub>
  25271             0
  25272            </Sub>
  25273                                               
  25274            <Data>
  25275             &quot;para meters&quo t;: [],
  25276            </Data>
  25277                                          
  25278           </Node>
  25279                                     
  25280          </Node>
  25281                                    
  25282          <Node>
  25283           <Sub>
  25284            23
  25285           </Sub>
  25286                                         
  25287           <Node>
  25288            <Sub>
  25289             0
  25290            </Sub>
  25291                                               
  25292            <Data>
  25293             &quot;tags &quot;: [
  25294            </Data>
  25295                                          
  25296           </Node>
  25297                                     
  25298          </Node>
  25299                                    
  25300          <Node>
  25301           <Sub>
  25302            24
  25303           </Sub>
  25304                                         
  25305           <Node>
  25306            <Sub>
  25307             0
  25308            </Sub>
  25309                                               
  25310            <Data>
  25311             &quot;RPCS &quot;,
  25312            </Data>
  25313                                          
  25314           </Node>
  25315                                     
  25316          </Node>
  25317                                    
  25318          <Node>
  25319           <Sub>
  25320            25
  25321           </Sub>
  25322                                         
  25323           <Node>
  25324            <Sub>
  25325             0
  25326            </Sub>
  25327                                               
  25328            <Data>
  25329             &quot;Rest ify&quot;
  25330            </Data>
  25331                                          
  25332           </Node>
  25333                                     
  25334          </Node>
  25335                                    
  25336          <Node>
  25337           <Sub>
  25338            26
  25339           </Sub>
  25340                                         
  25341           <Node>
  25342            <Sub>
  25343             0
  25344            </Sub>
  25345                                               
  25346            <Data>
  25347             ],
  25348            </Data>
  25349                                          
  25350           </Node>
  25351                                     
  25352          </Node>
  25353                                    
  25354          <Node>
  25355           <Sub>
  25356            27
  25357           </Sub>
  25358                                         
  25359           <Node>
  25360            <Sub>
  25361             0
  25362            </Sub>
  25363                                               
  25364            <Data>
  25365             &quot;resp onses&quot ;: {
  25366            </Data>
  25367                                          
  25368           </Node>
  25369                                     
  25370          </Node>
  25371                                    
  25372          <Node>
  25373           <Sub>
  25374            28
  25375           </Sub>
  25376                                         
  25377           <Node>
  25378            <Sub>
  25379             0
  25380            </Sub>
  25381                                               
  25382            <Data>
  25383             &quot;200& quot;: {
  25384            </Data>
  25385                                          
  25386           </Node>
  25387                                     
  25388          </Node>
  25389                                    
  25390          <Node>
  25391           <Sub>
  25392            29
  25393           </Sub>
  25394                                         
  25395           <Node>
  25396            <Sub>
  25397             0
  25398            </Sub>
  25399                                               
  25400            <Data>
  25401             <![CDATA[" descriptio n": "This  RPC should  return th e value de fined in t he local v ariable XS AVAR, if d efined. XS AVAR is se t by calli ng the XSA  TEST SET  VARIABLE R emote Proc edure.",]] >
  25402            </Data>
  25403                                          
  25404           </Node>
  25405                                     
  25406          </Node>
  25407                                    
  25408          <Node>
  25409           <Sub>
  25410            30
  25411           </Sub>
  25412                                         
  25413           <Node>
  25414            <Sub>
  25415             0
  25416            </Sub>
  25417                                               
  25418            <Data>
  25419             &quot;sche ma&quot;:  {
  25420            </Data>
  25421                                          
  25422           </Node>
  25423                                     
  25424          </Node>
  25425                                    
  25426          <Node>
  25427           <Sub>
  25428            31
  25429           </Sub>
  25430                                         
  25431           <Node>
  25432            <Sub>
  25433             0
  25434            </Sub>
  25435                                               
  25436            <Data>
  25437             &quot;$ref &quot;: &q uot;#/defi nitions/SI NGLE_VALUE &quot;
  25438            </Data>
  25439                                          
  25440           </Node>
  25441                                     
  25442          </Node>
  25443                                    
  25444          <Node>
  25445           <Sub>
  25446            32
  25447           </Sub>
  25448                                         
  25449           <Node>
  25450            <Sub>
  25451             0
  25452            </Sub>
  25453                                               
  25454            <Data>
  25455             }
  25456            </Data>
  25457                                          
  25458           </Node>
  25459                                     
  25460          </Node>
  25461                                    
  25462          <Node>
  25463           <Sub>
  25464            33
  25465           </Sub>
  25466                                         
  25467           <Node>
  25468            <Sub>
  25469             0
  25470            </Sub>
  25471                                               
  25472            <Data>
  25473             }
  25474            </Data>
  25475                                          
  25476           </Node>
  25477                                     
  25478          </Node>
  25479                                    
  25480          <Node>
  25481           <Sub>
  25482            34
  25483           </Sub>
  25484                                         
  25485           <Node>
  25486            <Sub>
  25487             0
  25488            </Sub>
  25489                                               
  25490            <Data>
  25491             }
  25492            </Data>
  25493                                          
  25494           </Node>
  25495                                     
  25496          </Node>
  25497                                    
  25498          <Node>
  25499           <Sub>
  25500            35
  25501           </Sub>
  25502                                         
  25503           <Node>
  25504            <Sub>
  25505             0
  25506            </Sub>
  25507                                               
  25508            <Data>
  25509             }
  25510            </Data>
  25511                                          
  25512           </Node>
  25513                                     
  25514          </Node>
  25515                                    
  25516          <Node>
  25517           <Sub>
  25518            36
  25519           </Sub>
  25520                                         
  25521           <Node>
  25522            <Sub>
  25523             0
  25524            </Sub>
  25525                                               
  25526            <Data>
  25527             }
  25528            </Data>
  25529                                          
  25530           </Node>
  25531                                     
  25532          </Node>
  25533                                    
  25534          <Node>
  25535           <Sub>
  25536            37
  25537           </Sub>
  25538                                         
  25539           <Node>
  25540            <Sub>
  25541             0
  25542            </Sub>
  25543                                               
  25544            <Data>
  25545             },
  25546            </Data>
  25547                                          
  25548           </Node>
  25549                                     
  25550          </Node>
  25551                                    
  25552          <Node>
  25553           <Sub>
  25554            38
  25555           </Sub>
  25556                                         
  25557           <Node>
  25558            <Sub>
  25559             0
  25560            </Sub>
  25561                                               
  25562            <Data>
  25563             &quot;defi nitions&qu ot;: {
  25564            </Data>
  25565                                          
  25566           </Node>
  25567                                     
  25568          </Node>
  25569                                    
  25570          <Node>
  25571           <Sub>
  25572            39
  25573           </Sub>
  25574                                         
  25575           <Node>
  25576            <Sub>
  25577             0
  25578            </Sub>
  25579                                               
  25580            <Data>
  25581             &quot;ARRA Y&quot;: {
  25582            </Data>
  25583                                          
  25584           </Node>
  25585                                     
  25586          </Node>
  25587                                    
  25588          <Node>
  25589           <Sub>
  25590            40
  25591           </Sub>
  25592                                         
  25593           <Node>
  25594            <Sub>
  25595             0
  25596            </Sub>
  25597                                               
  25598            <Data>
  25599             &quot;type &quot;: &q uot;object &quot;
  25600            </Data>
  25601                                          
  25602           </Node>
  25603                                     
  25604          </Node>
  25605                                    
  25606          <Node>
  25607           <Sub>
  25608            41
  25609           </Sub>
  25610                                         
  25611           <Node>
  25612            <Sub>
  25613             0
  25614            </Sub>
  25615                                               
  25616            <Data>
  25617             },
  25618            </Data>
  25619                                          
  25620           </Node>
  25621                                     
  25622          </Node>
  25623                                    
  25624          <Node>
  25625           <Sub>
  25626            42
  25627           </Sub>
  25628                                         
  25629           <Node>
  25630            <Sub>
  25631             0
  25632            </Sub>
  25633                                               
  25634            <Data>
  25635             &quot;GLOB AL_ARRAY&q uot;: {
  25636            </Data>
  25637                                          
  25638           </Node>
  25639                                     
  25640          </Node>
  25641                                    
  25642          <Node>
  25643           <Sub>
  25644            43
  25645           </Sub>
  25646                                         
  25647           <Node>
  25648            <Sub>
  25649             0
  25650            </Sub>
  25651                                               
  25652            <Data>
  25653             &quot;type &quot;: &q uot;object &quot;
  25654            </Data>
  25655                                          
  25656           </Node>
  25657                                     
  25658          </Node>
  25659                                    
  25660          <Node>
  25661           <Sub>
  25662            44
  25663           </Sub>
  25664                                         
  25665           <Node>
  25666            <Sub>
  25667             0
  25668            </Sub>
  25669                                               
  25670            <Data>
  25671             },
  25672            </Data>
  25673                                          
  25674           </Node>
  25675                                     
  25676          </Node>
  25677                                    
  25678          <Node>
  25679           <Sub>
  25680            45
  25681           </Sub>
  25682                                         
  25683           <Node>
  25684            <Sub>
  25685             0
  25686            </Sub>
  25687                                               
  25688            <Data>
  25689             &quot;SING LE_VALUE&q uot;: {
  25690            </Data>
  25691                                          
  25692           </Node>
  25693                                     
  25694          </Node>
  25695                                    
  25696          <Node>
  25697           <Sub>
  25698            46
  25699           </Sub>
  25700                                         
  25701           <Node>
  25702            <Sub>
  25703             0
  25704            </Sub>
  25705                                               
  25706            <Data>
  25707             &quot;type &quot;: &q uot;string &quot;
  25708            </Data>
  25709                                          
  25710           </Node>
  25711                                     
  25712          </Node>
  25713                                    
  25714          <Node>
  25715           <Sub>
  25716            47
  25717           </Sub>
  25718                                         
  25719           <Node>
  25720            <Sub>
  25721             0
  25722            </Sub>
  25723                                               
  25724            <Data>
  25725             },
  25726            </Data>
  25727                                          
  25728           </Node>
  25729                                     
  25730          </Node>
  25731                                    
  25732          <Node>
  25733           <Sub>
  25734            48
  25735           </Sub>
  25736                                         
  25737           <Node>
  25738            <Sub>
  25739             0
  25740            </Sub>
  25741                                               
  25742            <Data>
  25743             &quot;GLOB AL_INSTANC E&quot;: {
  25744            </Data>
  25745                                          
  25746           </Node>
  25747                                     
  25748          </Node>
  25749                                    
  25750          <Node>
  25751           <Sub>
  25752            49
  25753           </Sub>
  25754                                         
  25755           <Node>
  25756            <Sub>
  25757             0
  25758            </Sub>
  25759                                               
  25760            <Data>
  25761             &quot;type &quot;: &q uot;string &quot;
  25762            </Data>
  25763                                          
  25764           </Node>
  25765                                     
  25766          </Node>
  25767                                    
  25768          <Node>
  25769           <Sub>
  25770            50
  25771           </Sub>
  25772                                         
  25773           <Node>
  25774            <Sub>
  25775             0
  25776            </Sub>
  25777                                               
  25778            <Data>
  25779             },
  25780            </Data>
  25781                                          
  25782           </Node>
  25783                                     
  25784          </Node>
  25785                                    
  25786          <Node>
  25787           <Sub>
  25788            51
  25789           </Sub>
  25790                                         
  25791           <Node>
  25792            <Sub>
  25793             0
  25794            </Sub>
  25795                                               
  25796            <Data>
  25797             &quot;WORD _PROCESSIN G&quot;: {
  25798            </Data>
  25799                                          
  25800           </Node>
  25801                                     
  25802          </Node>
  25803                                    
  25804          <Node>
  25805           <Sub>
  25806            52
  25807           </Sub>
  25808                                         
  25809           <Node>
  25810            <Sub>
  25811             0
  25812            </Sub>
  25813                                               
  25814            <Data>
  25815             &quot;type &quot;: &q uot;object &quot;
  25816            </Data>
  25817                                          
  25818           </Node>
  25819                                     
  25820          </Node>
  25821                                    
  25822          <Node>
  25823           <Sub>
  25824            53
  25825           </Sub>
  25826                                         
  25827           <Node>
  25828            <Sub>
  25829             0
  25830            </Sub>
  25831                                               
  25832            <Data>
  25833             },
  25834            </Data>
  25835                                          
  25836           </Node>
  25837                                     
  25838          </Node>
  25839                                    
  25840          <Node>
  25841           <Sub>
  25842            54
  25843           </Sub>
  25844                                         
  25845           <Node>
  25846            <Sub>
  25847             0
  25848            </Sub>
  25849                                               
  25850            <Data>
  25851             &quot;Erro r&quot;: {
  25852            </Data>
  25853                                          
  25854           </Node>
  25855                                     
  25856          </Node>
  25857                                    
  25858          <Node>
  25859           <Sub>
  25860            55
  25861           </Sub>
  25862                                         
  25863           <Node>
  25864            <Sub>
  25865             0
  25866            </Sub>
  25867                                               
  25868            <Data>
  25869             &quot;prop erties&quo t;: {
  25870            </Data>
  25871                                          
  25872           </Node>
  25873                                     
  25874          </Node>
  25875                                    
  25876          <Node>
  25877           <Sub>
  25878            56
  25879           </Sub>
  25880                                         
  25881           <Node>
  25882            <Sub>
  25883             0
  25884            </Sub>
  25885                                               
  25886            <Data>
  25887             &quot;erro r&quot;: {
  25888            </Data>
  25889                                          
  25890           </Node>
  25891                                     
  25892          </Node>
  25893                                    
  25894          <Node>
  25895           <Sub>
  25896            57
  25897           </Sub>
  25898                                         
  25899           <Node>
  25900            <Sub>
  25901             0
  25902            </Sub>
  25903                                               
  25904            <Data>
  25905             &quot;type &quot;: &q uot;string &quot;,
  25906            </Data>
  25907                                          
  25908           </Node>
  25909                                     
  25910          </Node>
  25911                                    
  25912          <Node>
  25913           <Sub>
  25914            58
  25915           </Sub>
  25916                                         
  25917           <Node>
  25918            <Sub>
  25919             0
  25920            </Sub>
  25921                                               
  25922            <Data>
  25923             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  25924            </Data>
  25925                                          
  25926           </Node>
  25927                                     
  25928          </Node>
  25929                                    
  25930          <Node>
  25931           <Sub>
  25932            59
  25933           </Sub>
  25934                                         
  25935           <Node>
  25936            <Sub>
  25937             0
  25938            </Sub>
  25939                                               
  25940            <Data>
  25941             },
  25942            </Data>
  25943                                          
  25944           </Node>
  25945                                     
  25946          </Node>
  25947                                    
  25948          <Node>
  25949           <Sub>
  25950            60
  25951           </Sub>
  25952                                         
  25953           <Node>
  25954            <Sub>
  25955             0
  25956            </Sub>
  25957                                               
  25958            <Data>
  25959             &quot;data &quot;: {
  25960            </Data>
  25961                                          
  25962           </Node>
  25963                                     
  25964          </Node>
  25965                                    
  25966          <Node>
  25967           <Sub>
  25968            61
  25969           </Sub>
  25970                                         
  25971           <Node>
  25972            <Sub>
  25973             0
  25974            </Sub>
  25975                                               
  25976            <Data>
  25977             &quot;type &quot;: &q uot;object &quot;,
  25978            </Data>
  25979                                          
  25980           </Node>
  25981                                     
  25982          </Node>
  25983                                    
  25984          <Node>
  25985           <Sub>
  25986            62
  25987           </Sub>
  25988                                         
  25989           <Node>
  25990            <Sub>
  25991             0
  25992            </Sub>
  25993                                               
  25994            <Data>
  25995             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  25996            </Data>
  25997                                          
  25998           </Node>
  25999                                     
  26000          </Node>
  26001                                    
  26002          <Node>
  26003           <Sub>
  26004            63
  26005           </Sub>
  26006                                         
  26007           <Node>
  26008            <Sub>
  26009             0
  26010            </Sub>
  26011                                               
  26012            <Data>
  26013             }
  26014            </Data>
  26015                                          
  26016           </Node>
  26017                                     
  26018          </Node>
  26019                                    
  26020          <Node>
  26021           <Sub>
  26022            64
  26023           </Sub>
  26024                                         
  26025           <Node>
  26026            <Sub>
  26027             0
  26028            </Sub>
  26029                                               
  26030            <Data>
  26031             }
  26032            </Data>
  26033                                          
  26034           </Node>
  26035                                     
  26036          </Node>
  26037                                    
  26038          <Node>
  26039           <Sub>
  26040            65
  26041           </Sub>
  26042                                         
  26043           <Node>
  26044            <Sub>
  26045             0
  26046            </Sub>
  26047                                               
  26048            <Data>
  26049             },
  26050            </Data>
  26051                                          
  26052           </Node>
  26053                                     
  26054          </Node>
  26055                                    
  26056          <Node>
  26057           <Sub>
  26058            66
  26059           </Sub>
  26060                                         
  26061           <Node>
  26062            <Sub>
  26063             0
  26064            </Sub>
  26065                                               
  26066            <Data>
  26067             &quot;RpcI d&quot;: {
  26068            </Data>
  26069                                          
  26070           </Node>
  26071                                     
  26072          </Node>
  26073                                    
  26074          <Node>
  26075           <Sub>
  26076            67
  26077           </Sub>
  26078                                         
  26079           <Node>
  26080            <Sub>
  26081             0
  26082            </Sub>
  26083                                               
  26084            <Data>
  26085             &quot;prop erties&quo t;: {
  26086            </Data>
  26087                                          
  26088           </Node>
  26089                                     
  26090          </Node>
  26091                                    
  26092          <Node>
  26093           <Sub>
  26094            68
  26095           </Sub>
  26096                                         
  26097           <Node>
  26098            <Sub>
  26099             0
  26100            </Sub>
  26101                                               
  26102            <Data>
  26103             &quot;id&q uot;: {
  26104            </Data>
  26105                                          
  26106           </Node>
  26107                                     
  26108          </Node>
  26109                                    
  26110          <Node>
  26111           <Sub>
  26112            69
  26113           </Sub>
  26114                                         
  26115           <Node>
  26116            <Sub>
  26117             0
  26118            </Sub>
  26119                                               
  26120            <Data>
  26121             &quot;type &quot;: &q uot;intege r&quot;,
  26122            </Data>
  26123                                          
  26124           </Node>
  26125                                     
  26126          </Node>
  26127                                    
  26128          <Node>
  26129           <Sub>
  26130            70
  26131           </Sub>
  26132                                         
  26133           <Node>
  26134            <Sub>
  26135             0
  26136            </Sub>
  26137                                               
  26138            <Data>
  26139             &quot;form at&quot;:  &quot;int3 2&quot;,
  26140            </Data>
  26141                                          
  26142           </Node>
  26143                                     
  26144          </Node>
  26145                                    
  26146          <Node>
  26147           <Sub>
  26148            71
  26149           </Sub>
  26150                                         
  26151           <Node>
  26152            <Sub>
  26153             0
  26154            </Sub>
  26155                                               
  26156            <Data>
  26157             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  26158            </Data>
  26159                                          
  26160           </Node>
  26161                                     
  26162          </Node>
  26163                                    
  26164          <Node>
  26165           <Sub>
  26166            72
  26167           </Sub>
  26168                                         
  26169           <Node>
  26170            <Sub>
  26171             0
  26172            </Sub>
  26173                                               
  26174            <Data>
  26175             },
  26176            </Data>
  26177                                          
  26178           </Node>
  26179                                     
  26180          </Node>
  26181                                    
  26182          <Node>
  26183           <Sub>
  26184            73
  26185           </Sub>
  26186                                         
  26187           <Node>
  26188            <Sub>
  26189             0
  26190            </Sub>
  26191                                               
  26192            <Data>
  26193             &quot;name &quot;: {
  26194            </Data>
  26195                                          
  26196           </Node>
  26197                                     
  26198          </Node>
  26199                                    
  26200          <Node>
  26201           <Sub>
  26202            74
  26203           </Sub>
  26204                                         
  26205           <Node>
  26206            <Sub>
  26207             0
  26208            </Sub>
  26209                                               
  26210            <Data>
  26211             &quot;type &quot;: &q uot;string &quot;,
  26212            </Data>
  26213                                          
  26214           </Node>
  26215                                     
  26216          </Node>
  26217                                    
  26218          <Node>
  26219           <Sub>
  26220            75
  26221           </Sub>
  26222                                         
  26223           <Node>
  26224            <Sub>
  26225             0
  26226            </Sub>
  26227                                               
  26228            <Data>
  26229             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  26230            </Data>
  26231                                          
  26232           </Node>
  26233                                     
  26234          </Node>
  26235                                    
  26236          <Node>
  26237           <Sub>
  26238            76
  26239           </Sub>
  26240                                         
  26241           <Node>
  26242            <Sub>
  26243             0
  26244            </Sub>
  26245                                               
  26246            <Data>
  26247             }
  26248            </Data>
  26249                                          
  26250           </Node>
  26251                                     
  26252          </Node>
  26253                                    
  26254          <Node>
  26255           <Sub>
  26256            77
  26257           </Sub>
  26258                                         
  26259           <Node>
  26260            <Sub>
  26261             0
  26262            </Sub>
  26263                                               
  26264            <Data>
  26265             }
  26266            </Data>
  26267                                          
  26268           </Node>
  26269                                     
  26270          </Node>
  26271                                    
  26272          <Node>
  26273           <Sub>
  26274            78
  26275           </Sub>
  26276                                         
  26277           <Node>
  26278            <Sub>
  26279             0
  26280            </Sub>
  26281                                               
  26282            <Data>
  26283             },
  26284            </Data>
  26285                                          
  26286           </Node>
  26287                                     
  26288          </Node>
  26289                                    
  26290          <Node>
  26291           <Sub>
  26292            79
  26293           </Sub>
  26294                                         
  26295           <Node>
  26296            <Sub>
  26297             0
  26298            </Sub>
  26299                                               
  26300            <Data>
  26301             &quot;Swag gerDefinit ion&quot;:  {},
  26302            </Data>
  26303                                          
  26304           </Node>
  26305                                     
  26306          </Node>
  26307                                    
  26308          <Node>
  26309           <Sub>
  26310            80
  26311           </Sub>
  26312                                         
  26313           <Node>
  26314            <Sub>
  26315             0
  26316            </Sub>
  26317                                               
  26318            <Data>
  26319             &quot;Path &quot;: {}
  26320            </Data>
  26321                                          
  26322           </Node>
  26323                                     
  26324          </Node>
  26325                                    
  26326          <Node>
  26327           <Sub>
  26328            81
  26329           </Sub>
  26330                                         
  26331           <Node>
  26332            <Sub>
  26333             0
  26334            </Sub>
  26335                                               
  26336            <Data>
  26337             }
  26338            </Data>
  26339                                          
  26340           </Node>
  26341                                     
  26342          </Node>
  26343                                    
  26344          <Node>
  26345           <Sub>
  26346            82
  26347           </Sub>
  26348                                         
  26349           <Node>
  26350            <Sub>
  26351             0
  26352            </Sub>
  26353                                               
  26354            <Data>
  26355             }
  26356            </Data>
  26357                                          
  26358           </Node>
  26359                                     
  26360          </Node>
  26361                               
  26362         </Node>
  26363                          
  26364        </Node>
  26365                         
  26366        <Node>
  26367         <Sub>
  26368          14
  26369         </Sub>
  26370                              
  26371         <Node>
  26372          <Sub>
  26373           0
  26374          </Sub>
  26375                                    
  26376          <Data>
  26377           XSA TEST S ET VARIABL E
  26378          </Data>
  26379                               
  26380         </Node>
  26381                              
  26382         <Node>
  26383          <Sub>
  26384           DEF
  26385          </Sub>
  26386                                    
  26387          <Node>
  26388           <Sub>
  26389            0
  26390           </Sub>
  26391                                         
  26392           <Data>
  26393            ^^90^90^31 60623
  26394           </Data>
  26395                                     
  26396          </Node>
  26397                                    
  26398          <Node>
  26399           <Sub>
  26400            1
  26401           </Sub>
  26402                                         
  26403           <Node>
  26404            <Sub>
  26405             0
  26406            </Sub>
  26407                                               
  26408            <Data>
  26409             &quot;swag ger&quot;:  &quot;2.0 &quot;,
  26410            </Data>
  26411                                          
  26412           </Node>
  26413                                     
  26414          </Node>
  26415                                    
  26416          <Node>
  26417           <Sub>
  26418            2
  26419           </Sub>
  26420                                         
  26421           <Node>
  26422            <Sub>
  26423             0
  26424            </Sub>
  26425                                               
  26426            <Data>
  26427             &quot;info &quot;: {
  26428            </Data>
  26429                                          
  26430           </Node>
  26431                                     
  26432          </Node>
  26433                                    
  26434          <Node>
  26435           <Sub>
  26436            3
  26437           </Sub>
  26438                                         
  26439           <Node>
  26440            <Sub>
  26441             0
  26442            </Sub>
  26443                                               
  26444            <Data>
  26445             &quot;titl e&quot;: & quot;VistA .js RPC RE ST Service &quot;,
  26446            </Data>
  26447                                          
  26448           </Node>
  26449                                     
  26450          </Node>
  26451                                    
  26452          <Node>
  26453           <Sub>
  26454            4
  26455           </Sub>
  26456                                         
  26457           <Node>
  26458            <Sub>
  26459             0
  26460            </Sub>
  26461                                               
  26462            <Data>
  26463             &quot;desc ription&qu ot;: &quot ;A friendl y service  that provi des easy R EST-ificat ion of Vis tA RPCs.&q uot;,
  26464            </Data>
  26465                                          
  26466           </Node>
  26467                                     
  26468          </Node>
  26469                                    
  26470          <Node>
  26471           <Sub>
  26472            5
  26473           </Sub>
  26474                                         
  26475           <Node>
  26476            <Sub>
  26477             0
  26478            </Sub>
  26479                                               
  26480            <Data>
  26481             &quot;vers ion&quot;:  &quot;0.0 .1&quot;
  26482            </Data>
  26483                                          
  26484           </Node>
  26485                                     
  26486          </Node>
  26487                                    
  26488          <Node>
  26489           <Sub>
  26490            6
  26491           </Sub>
  26492                                         
  26493           <Node>
  26494            <Sub>
  26495             0
  26496            </Sub>
  26497                                               
  26498            <Data>
  26499             },
  26500            </Data>
  26501                                          
  26502           </Node>
  26503                                     
  26504          </Node>
  26505                                    
  26506          <Node>
  26507           <Sub>
  26508            7
  26509           </Sub>
  26510                                         
  26511           <Node>
  26512            <Sub>
  26513             0
  26514            </Sub>
  26515                                               
  26516            <Data>
  26517             &quot;sche mes&quot;:  [
  26518            </Data>
  26519                                          
  26520           </Node>
  26521                                     
  26522          </Node>
  26523                                    
  26524          <Node>
  26525           <Sub>
  26526            8
  26527           </Sub>
  26528                                         
  26529           <Node>
  26530            <Sub>
  26531             0
  26532            </Sub>
  26533                                               
  26534            <Data>
  26535             &quot;http s&quot;
  26536            </Data>
  26537                                          
  26538           </Node>
  26539                                     
  26540          </Node>
  26541                                    
  26542          <Node>
  26543           <Sub>
  26544            9
  26545           </Sub>
  26546                                         
  26547           <Node>
  26548            <Sub>
  26549             0
  26550            </Sub>
  26551                                               
  26552            <Data>
  26553             ],
  26554            </Data>
  26555                                          
  26556           </Node>
  26557                                     
  26558          </Node>
  26559                                    
  26560          <Node>
  26561           <Sub>
  26562            10
  26563           </Sub>
  26564                                         
  26565           <Node>
  26566            <Sub>
  26567             0
  26568            </Sub>
  26569                                               
  26570            <Data>
  26571             &quot;base Path&quot; : &quot;/r pcs&quot;,
  26572            </Data>
  26573                                          
  26574           </Node>
  26575                                     
  26576          </Node>
  26577                                    
  26578          <Node>
  26579           <Sub>
  26580            11
  26581           </Sub>
  26582                                         
  26583           <Node>
  26584            <Sub>
  26585             0
  26586            </Sub>
  26587                                               
  26588            <Data>
  26589             &quot;prod uces&quot; : [
  26590            </Data>
  26591                                          
  26592           </Node>
  26593                                     
  26594          </Node>
  26595                                    
  26596          <Node>
  26597           <Sub>
  26598            12
  26599           </Sub>
  26600                                         
  26601           <Node>
  26602            <Sub>
  26603             0
  26604            </Sub>
  26605                                               
  26606            <Data>
  26607             &quot;appl ication/js on&quot;
  26608            </Data>
  26609                                          
  26610           </Node>
  26611                                     
  26612          </Node>
  26613                                    
  26614          <Node>
  26615           <Sub>
  26616            13
  26617           </Sub>
  26618                                         
  26619           <Node>
  26620            <Sub>
  26621             0
  26622            </Sub>
  26623                                               
  26624            <Data>
  26625             ],
  26626            </Data>
  26627                                          
  26628           </Node>
  26629                                     
  26630          </Node>
  26631                                    
  26632          <Node>
  26633           <Sub>
  26634            14
  26635           </Sub>
  26636                                         
  26637           <Node>
  26638            <Sub>
  26639             0
  26640            </Sub>
  26641                                               
  26642            <Data>
  26643             &quot;path s&quot;: {
  26644            </Data>
  26645                                          
  26646           </Node>
  26647                                     
  26648          </Node>
  26649                                    
  26650          <Node>
  26651           <Sub>
  26652            15
  26653           </Sub>
  26654                                         
  26655           <Node>
  26656            <Sub>
  26657             0
  26658            </Sub>
  26659                                               
  26660            <Data>
  26661             &quot;/by- name/xsa%2 0test%20se t%20variab le/call&qu ot;: {
  26662            </Data>
  26663                                          
  26664           </Node>
  26665                                     
  26666          </Node>
  26667                                    
  26668          <Node>
  26669           <Sub>
  26670            16
  26671           </Sub>
  26672                                         
  26673           <Node>
  26674            <Sub>
  26675             0
  26676            </Sub>
  26677                                               
  26678            <Data>
  26679             &quot;post &quot;: {
  26680            </Data>
  26681                                          
  26682           </Node>
  26683                                     
  26684          </Node>
  26685                                    
  26686          <Node>
  26687           <Sub>
  26688            17
  26689           </Sub>
  26690                                         
  26691           <Node>
  26692            <Sub>
  26693             0
  26694            </Sub>
  26695                                               
  26696            <Data>
  26697             &quot;summ ary&quot;:  &quot;SET ^XSAPXT(.t RESULT,XSA VAL)&quot; ,
  26698            </Data>
  26699                                          
  26700           </Node>
  26701                                     
  26702          </Node>
  26703                                    
  26704          <Node>
  26705           <Sub>
  26706            18
  26707           </Sub>
  26708                                         
  26709           <Node>
  26710            <Sub>
  26711             0
  26712            </Sub>
  26713                                               
  26714            <Data>
  26715             <![CDATA[" descriptio n": "The p urpose of  this RPC i s to test  the VistA  Services A ssembler s ession sta te managem ent for ma intaining  the scope  of local v ariables b etween RPC  calls.",] ]>
  26716            </Data>
  26717                                          
  26718           </Node>
  26719                                     
  26720          </Node>
  26721                                    
  26722          <Node>
  26723           <Sub>
  26724            19
  26725           </Sub>
  26726                                         
  26727           <Node>
  26728            <Sub>
  26729             0
  26730            </Sub>
  26731                                               
  26732            <Data>
  26733             &quot;prod uces&quot; : [
  26734            </Data>
  26735                                          
  26736           </Node>
  26737                                     
  26738          </Node>
  26739                                    
  26740          <Node>
  26741           <Sub>
  26742            20
  26743           </Sub>
  26744                                         
  26745           <Node>
  26746            <Sub>
  26747             0
  26748            </Sub>
  26749                                               
  26750            <Data>
  26751             &quot;appl ication/js on&quot;
  26752            </Data>
  26753                                          
  26754           </Node>
  26755                                     
  26756          </Node>
  26757                                    
  26758          <Node>
  26759           <Sub>
  26760            21
  26761           </Sub>
  26762                                         
  26763           <Node>
  26764            <Sub>
  26765             0
  26766            </Sub>
  26767                                               
  26768            <Data>
  26769             ],
  26770            </Data>
  26771                                          
  26772           </Node>
  26773                                     
  26774          </Node>
  26775                                    
  26776          <Node>
  26777           <Sub>
  26778            22
  26779           </Sub>
  26780                                         
  26781           <Node>
  26782            <Sub>
  26783             0
  26784            </Sub>
  26785                                               
  26786            <Data>
  26787             &quot;para meters&quo t;: [
  26788            </Data>
  26789                                          
  26790           </Node>
  26791                                     
  26792          </Node>
  26793                                    
  26794          <Node>
  26795           <Sub>
  26796            23
  26797           </Sub>
  26798                                         
  26799           <Node>
  26800            <Sub>
  26801             0
  26802            </Sub>
  26803                                               
  26804            <Data>
  26805             {
  26806            </Data>
  26807                                          
  26808           </Node>
  26809                                     
  26810          </Node>
  26811                                    
  26812          <Node>
  26813           <Sub>
  26814            24
  26815           </Sub>
  26816                                         
  26817           <Node>
  26818            <Sub>
  26819             0
  26820            </Sub>
  26821                                               
  26822            <Data>
  26823             &quot;name &quot;: &q uot;XSAVAL &quot;,
  26824            </Data>
  26825                                          
  26826           </Node>
  26827                                     
  26828          </Node>
  26829                                    
  26830          <Node>
  26831           <Sub>
  26832            25
  26833           </Sub>
  26834                                         
  26835           <Node>
  26836            <Sub>
  26837             0
  26838            </Sub>
  26839                                               
  26840            <Data>
  26841             <![CDATA[" descriptio n": "This  input para meter will  be used a s the valu e for the  local vari able XSAVA R. If no v alue is se t in this  parameter  the RPC wi ll set the  default v alue to \" VistA Serv ices Assem bler test  RPC\". [Fi leman Type : LITERAL] ",]]>
  26842            </Data>
  26843                                          
  26844           </Node>
  26845                                     
  26846          </Node>
  26847                                    
  26848          <Node>
  26849           <Sub>
  26850            26
  26851           </Sub>
  26852                                         
  26853           <Node>
  26854            <Sub>
  26855             0
  26856            </Sub>
  26857                                               
  26858            <Data>
  26859             &quot;in&q uot;: &quo t;formData &quot;,
  26860            </Data>
  26861                                          
  26862           </Node>
  26863                                     
  26864          </Node>
  26865                                    
  26866          <Node>
  26867           <Sub>
  26868            27
  26869           </Sub>
  26870                                         
  26871           <Node>
  26872            <Sub>
  26873             0
  26874            </Sub>
  26875                                               
  26876            <Data>
  26877             &quot;type &quot;: &q uot;string &quot;,
  26878            </Data>
  26879                                          
  26880           </Node>
  26881                                     
  26882          </Node>
  26883                                    
  26884          <Node>
  26885           <Sub>
  26886            28
  26887           </Sub>
  26888                                         
  26889           <Node>
  26890            <Sub>
  26891             0
  26892            </Sub>
  26893                                               
  26894            <Data>
  26895             &quot;requ ired&quot; : false
  26896            </Data>
  26897                                          
  26898           </Node>
  26899                                     
  26900          </Node>
  26901                                    
  26902          <Node>
  26903           <Sub>
  26904            29
  26905           </Sub>
  26906                                         
  26907           <Node>
  26908            <Sub>
  26909             0
  26910            </Sub>
  26911                                               
  26912            <Data>
  26913             }
  26914            </Data>
  26915                                          
  26916           </Node>
  26917                                     
  26918          </Node>
  26919                                    
  26920          <Node>
  26921           <Sub>
  26922            30
  26923           </Sub>
  26924                                         
  26925           <Node>
  26926            <Sub>
  26927             0
  26928            </Sub>
  26929                                               
  26930            <Data>
  26931             ],
  26932            </Data>
  26933                                          
  26934           </Node>
  26935                                     
  26936          </Node>
  26937                                    
  26938          <Node>
  26939           <Sub>
  26940            31
  26941           </Sub>
  26942                                         
  26943           <Node>
  26944            <Sub>
  26945             0
  26946            </Sub>
  26947                                               
  26948            <Data>
  26949             &quot;tags &quot;: [
  26950            </Data>
  26951                                          
  26952           </Node>
  26953                                     
  26954          </Node>
  26955                                    
  26956          <Node>
  26957           <Sub>
  26958            32
  26959           </Sub>
  26960                                         
  26961           <Node>
  26962            <Sub>
  26963             0
  26964            </Sub>
  26965                                               
  26966            <Data>
  26967             &quot;RPCS &quot;,
  26968            </Data>
  26969                                          
  26970           </Node>
  26971                                     
  26972          </Node>
  26973                                    
  26974          <Node>
  26975           <Sub>
  26976            33
  26977           </Sub>
  26978                                         
  26979           <Node>
  26980            <Sub>
  26981             0
  26982            </Sub>
  26983                                               
  26984            <Data>
  26985             &quot;Rest ify&quot;
  26986            </Data>
  26987                                          
  26988           </Node>
  26989                                     
  26990          </Node>
  26991                                    
  26992          <Node>
  26993           <Sub>
  26994            34
  26995           </Sub>
  26996                                         
  26997           <Node>
  26998            <Sub>
  26999             0
  27000            </Sub>
  27001                                               
  27002            <Data>
  27003             ],
  27004            </Data>
  27005                                          
  27006           </Node>
  27007                                     
  27008          </Node>
  27009                                    
  27010          <Node>
  27011           <Sub>
  27012            35
  27013           </Sub>
  27014                                         
  27015           <Node>
  27016            <Sub>
  27017             0
  27018            </Sub>
  27019                                               
  27020            <Data>
  27021             &quot;resp onses&quot ;: {
  27022            </Data>
  27023                                          
  27024           </Node>
  27025                                     
  27026          </Node>
  27027                                    
  27028          <Node>
  27029           <Sub>
  27030            36
  27031           </Sub>
  27032                                         
  27033           <Node>
  27034            <Sub>
  27035             0
  27036            </Sub>
  27037                                               
  27038            <Data>
  27039             &quot;200& quot;: {
  27040            </Data>
  27041                                          
  27042           </Node>
  27043                                     
  27044          </Node>
  27045                                    
  27046          <Node>
  27047           <Sub>
  27048            37
  27049           </Sub>
  27050                                         
  27051           <Node>
  27052            <Sub>
  27053             0
  27054            </Sub>
  27055                                               
  27056            <Data>
  27057             &quot;desc ription&qu ot;: &quot ;This RPC  should alw ays return  the value  1 (one).& quot;,
  27058            </Data>
  27059                                          
  27060           </Node>
  27061                                     
  27062          </Node>
  27063                                    
  27064          <Node>
  27065           <Sub>
  27066            38
  27067           </Sub>
  27068                                         
  27069           <Node>
  27070            <Sub>
  27071             0
  27072            </Sub>
  27073                                               
  27074            <Data>
  27075             &quot;sche ma&quot;:  {
  27076            </Data>
  27077                                          
  27078           </Node>
  27079                                     
  27080          </Node>
  27081                                    
  27082          <Node>
  27083           <Sub>
  27084            39
  27085           </Sub>
  27086                                         
  27087           <Node>
  27088            <Sub>
  27089             0
  27090            </Sub>
  27091                                               
  27092            <Data>
  27093             &quot;$ref &quot;: &q uot;#/defi nitions/SI NGLE_VALUE &quot;
  27094            </Data>
  27095                                          
  27096           </Node>
  27097                                     
  27098          </Node>
  27099                                    
  27100          <Node>
  27101           <Sub>
  27102            40
  27103           </Sub>
  27104                                         
  27105           <Node>
  27106            <Sub>
  27107             0
  27108            </Sub>
  27109                                               
  27110            <Data>
  27111             }
  27112            </Data>
  27113                                          
  27114           </Node>
  27115                                     
  27116          </Node>
  27117                                    
  27118          <Node>
  27119           <Sub>
  27120            41
  27121           </Sub>
  27122                                         
  27123           <Node>
  27124            <Sub>
  27125             0
  27126            </Sub>
  27127                                               
  27128            <Data>
  27129             }
  27130            </Data>
  27131                                          
  27132           </Node>
  27133                                     
  27134          </Node>
  27135                                    
  27136          <Node>
  27137           <Sub>
  27138            42
  27139           </Sub>
  27140                                         
  27141           <Node>
  27142            <Sub>
  27143             0
  27144            </Sub>
  27145                                               
  27146            <Data>
  27147             }
  27148            </Data>
  27149                                          
  27150           </Node>
  27151                                     
  27152          </Node>
  27153                                    
  27154          <Node>
  27155           <Sub>
  27156            43
  27157           </Sub>
  27158                                         
  27159           <Node>
  27160            <Sub>
  27161             0
  27162            </Sub>
  27163                                               
  27164            <Data>
  27165             }
  27166            </Data>
  27167                                          
  27168           </Node>
  27169                                     
  27170          </Node>
  27171                                    
  27172          <Node>
  27173           <Sub>
  27174            44
  27175           </Sub>
  27176                                         
  27177           <Node>
  27178            <Sub>
  27179             0
  27180            </Sub>
  27181                                               
  27182            <Data>
  27183             }
  27184            </Data>
  27185                                          
  27186           </Node>
  27187                                     
  27188          </Node>
  27189                                    
  27190          <Node>
  27191           <Sub>
  27192            45
  27193           </Sub>
  27194                                         
  27195           <Node>
  27196            <Sub>
  27197             0
  27198            </Sub>
  27199                                               
  27200            <Data>
  27201             },
  27202            </Data>
  27203                                          
  27204           </Node>
  27205                                     
  27206          </Node>
  27207                                    
  27208          <Node>
  27209           <Sub>
  27210            46
  27211           </Sub>
  27212                                         
  27213           <Node>
  27214            <Sub>
  27215             0
  27216            </Sub>
  27217                                               
  27218            <Data>
  27219             &quot;defi nitions&qu ot;: {
  27220            </Data>
  27221                                          
  27222           </Node>
  27223                                     
  27224          </Node>
  27225                                    
  27226          <Node>
  27227           <Sub>
  27228            47
  27229           </Sub>
  27230                                         
  27231           <Node>
  27232            <Sub>
  27233             0
  27234            </Sub>
  27235                                               
  27236            <Data>
  27237             &quot;ARRA Y&quot;: {
  27238            </Data>
  27239                                          
  27240           </Node>
  27241                                     
  27242          </Node>
  27243                                    
  27244          <Node>
  27245           <Sub>
  27246            48
  27247           </Sub>
  27248                                         
  27249           <Node>
  27250            <Sub>
  27251             0
  27252            </Sub>
  27253                                               
  27254            <Data>
  27255             &quot;type &quot;: &q uot;object &quot;
  27256            </Data>
  27257                                          
  27258           </Node>
  27259                                     
  27260          </Node>
  27261                                    
  27262          <Node>
  27263           <Sub>
  27264            49
  27265           </Sub>
  27266                                         
  27267           <Node>
  27268            <Sub>
  27269             0
  27270            </Sub>
  27271                                               
  27272            <Data>
  27273             },
  27274            </Data>
  27275                                          
  27276           </Node>
  27277                                     
  27278          </Node>
  27279                                    
  27280          <Node>
  27281           <Sub>
  27282            50
  27283           </Sub>
  27284                                         
  27285           <Node>
  27286            <Sub>
  27287             0
  27288            </Sub>
  27289                                               
  27290            <Data>
  27291             &quot;GLOB AL_ARRAY&q uot;: {
  27292            </Data>
  27293                                          
  27294           </Node>
  27295                                     
  27296          </Node>
  27297                                    
  27298          <Node>
  27299           <Sub>
  27300            51
  27301           </Sub>
  27302                                         
  27303           <Node>
  27304            <Sub>
  27305             0
  27306            </Sub>
  27307                                               
  27308            <Data>
  27309             &quot;type &quot;: &q uot;object &quot;
  27310            </Data>
  27311                                          
  27312           </Node>
  27313                                     
  27314          </Node>
  27315                                    
  27316          <Node>
  27317           <Sub>
  27318            52
  27319           </Sub>
  27320                                         
  27321           <Node>
  27322            <Sub>
  27323             0
  27324            </Sub>
  27325                                               
  27326            <Data>
  27327             },
  27328            </Data>
  27329                                          
  27330           </Node>
  27331                                     
  27332          </Node>
  27333                                    
  27334          <Node>
  27335           <Sub>
  27336            53
  27337           </Sub>
  27338                                         
  27339           <Node>
  27340            <Sub>
  27341             0
  27342            </Sub>
  27343                                               
  27344            <Data>
  27345             &quot;SING LE_VALUE&q uot;: {
  27346            </Data>
  27347                                          
  27348           </Node>
  27349                                     
  27350          </Node>
  27351                                    
  27352          <Node>
  27353           <Sub>
  27354            54
  27355           </Sub>
  27356                                         
  27357           <Node>
  27358            <Sub>
  27359             0
  27360            </Sub>
  27361                                               
  27362            <Data>
  27363             &quot;type &quot;: &q uot;string &quot;
  27364            </Data>
  27365                                          
  27366           </Node>
  27367                                     
  27368          </Node>
  27369                                    
  27370          <Node>
  27371           <Sub>
  27372            55
  27373           </Sub>
  27374                                         
  27375           <Node>
  27376            <Sub>
  27377             0
  27378            </Sub>
  27379                                               
  27380            <Data>
  27381             },
  27382            </Data>
  27383                                          
  27384           </Node>
  27385                                     
  27386          </Node>
  27387                                    
  27388          <Node>
  27389           <Sub>
  27390            56
  27391           </Sub>
  27392                                         
  27393           <Node>
  27394            <Sub>
  27395             0
  27396            </Sub>
  27397                                               
  27398            <Data>
  27399             &quot;GLOB AL_INSTANC E&quot;: {
  27400            </Data>
  27401                                          
  27402           </Node>
  27403                                     
  27404          </Node>
  27405                                    
  27406          <Node>
  27407           <Sub>
  27408            57
  27409           </Sub>
  27410                                         
  27411           <Node>
  27412            <Sub>
  27413             0
  27414            </Sub>
  27415                                               
  27416            <Data>
  27417             &quot;type &quot;: &q uot;string &quot;
  27418            </Data>
  27419                                          
  27420           </Node>
  27421                                     
  27422          </Node>
  27423                                    
  27424          <Node>
  27425           <Sub>
  27426            58
  27427           </Sub>
  27428                                         
  27429           <Node>
  27430            <Sub>
  27431             0
  27432            </Sub>
  27433                                               
  27434            <Data>
  27435             },
  27436            </Data>
  27437                                          
  27438           </Node>
  27439                                     
  27440          </Node>
  27441                                    
  27442          <Node>
  27443           <Sub>
  27444            59
  27445           </Sub>
  27446                                         
  27447           <Node>
  27448            <Sub>
  27449             0
  27450            </Sub>
  27451                                               
  27452            <Data>
  27453             &quot;WORD _PROCESSIN G&quot;: {
  27454            </Data>
  27455                                          
  27456           </Node>
  27457                                     
  27458          </Node>
  27459                                    
  27460          <Node>
  27461           <Sub>
  27462            60
  27463           </Sub>
  27464                                         
  27465           <Node>
  27466            <Sub>
  27467             0
  27468            </Sub>
  27469                                               
  27470            <Data>
  27471             &quot;type &quot;: &q uot;object &quot;
  27472            </Data>
  27473                                          
  27474           </Node>
  27475                                     
  27476          </Node>
  27477                                    
  27478          <Node>
  27479           <Sub>
  27480            61
  27481           </Sub>
  27482                                         
  27483           <Node>
  27484            <Sub>
  27485             0
  27486            </Sub>
  27487                                               
  27488            <Data>
  27489             },
  27490            </Data>
  27491                                          
  27492           </Node>
  27493                                     
  27494          </Node>
  27495                                    
  27496          <Node>
  27497           <Sub>
  27498            62
  27499           </Sub>
  27500                                         
  27501           <Node>
  27502            <Sub>
  27503             0
  27504            </Sub>
  27505                                               
  27506            <Data>
  27507             &quot;Erro r&quot;: {
  27508            </Data>
  27509                                          
  27510           </Node>
  27511                                     
  27512          </Node>
  27513                                    
  27514          <Node>
  27515           <Sub>
  27516            63
  27517           </Sub>
  27518                                         
  27519           <Node>
  27520            <Sub>
  27521             0
  27522            </Sub>
  27523                                               
  27524            <Data>
  27525             &quot;prop erties&quo t;: {
  27526            </Data>
  27527                                          
  27528           </Node>
  27529                                     
  27530          </Node>
  27531                                    
  27532          <Node>
  27533           <Sub>
  27534            64
  27535           </Sub>
  27536                                         
  27537           <Node>
  27538            <Sub>
  27539             0
  27540            </Sub>
  27541                                               
  27542            <Data>
  27543             &quot;erro r&quot;: {
  27544            </Data>
  27545                                          
  27546           </Node>
  27547                                     
  27548          </Node>
  27549                                    
  27550          <Node>
  27551           <Sub>
  27552            65
  27553           </Sub>
  27554                                         
  27555           <Node>
  27556            <Sub>
  27557             0
  27558            </Sub>
  27559                                               
  27560            <Data>
  27561             &quot;type &quot;: &q uot;string &quot;,
  27562            </Data>
  27563                                          
  27564           </Node>
  27565                                     
  27566          </Node>
  27567                                    
  27568          <Node>
  27569           <Sub>
  27570            66
  27571           </Sub>
  27572                                         
  27573           <Node>
  27574            <Sub>
  27575             0
  27576            </Sub>
  27577                                               
  27578            <Data>
  27579             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  27580            </Data>
  27581                                          
  27582           </Node>
  27583                                     
  27584          </Node>
  27585                                    
  27586          <Node>
  27587           <Sub>
  27588            67
  27589           </Sub>
  27590                                         
  27591           <Node>
  27592            <Sub>
  27593             0
  27594            </Sub>
  27595                                               
  27596            <Data>
  27597             },
  27598            </Data>
  27599                                          
  27600           </Node>
  27601                                     
  27602          </Node>
  27603                                    
  27604          <Node>
  27605           <Sub>
  27606            68
  27607           </Sub>
  27608                                         
  27609           <Node>
  27610            <Sub>
  27611             0
  27612            </Sub>
  27613                                               
  27614            <Data>
  27615             &quot;data &quot;: {
  27616            </Data>
  27617                                          
  27618           </Node>
  27619                                     
  27620          </Node>
  27621                                    
  27622          <Node>
  27623           <Sub>
  27624            69
  27625           </Sub>
  27626                                         
  27627           <Node>
  27628            <Sub>
  27629             0
  27630            </Sub>
  27631                                               
  27632            <Data>
  27633             &quot;type &quot;: &q uot;object &quot;,
  27634            </Data>
  27635                                          
  27636           </Node>
  27637                                     
  27638          </Node>
  27639                                    
  27640          <Node>
  27641           <Sub>
  27642            70
  27643           </Sub>
  27644                                         
  27645           <Node>
  27646            <Sub>
  27647             0
  27648            </Sub>
  27649                                               
  27650            <Data>
  27651             &quot;desc ription&qu ot;: &quot ;A hopeful ly helpful  explanati on of what  went wron g.&quot;
  27652            </Data>
  27653                                          
  27654           </Node>
  27655                                     
  27656          </Node>
  27657                                    
  27658          <Node>
  27659           <Sub>
  27660            71
  27661           </Sub>
  27662                                         
  27663           <Node>
  27664            <Sub>
  27665             0
  27666            </Sub>
  27667                                               
  27668            <Data>
  27669             }
  27670            </Data>
  27671                                          
  27672           </Node>
  27673                                     
  27674          </Node>
  27675                                    
  27676          <Node>
  27677           <Sub>
  27678            72
  27679           </Sub>
  27680                                         
  27681           <Node>
  27682            <Sub>
  27683             0
  27684            </Sub>
  27685                                               
  27686            <Data>
  27687             }
  27688            </Data>
  27689                                          
  27690           </Node>
  27691                                     
  27692          </Node>
  27693                                    
  27694          <Node>
  27695           <Sub>
  27696            73
  27697           </Sub>
  27698                                         
  27699           <Node>
  27700            <Sub>
  27701             0
  27702            </Sub>
  27703                                               
  27704            <Data>
  27705             },
  27706            </Data>
  27707                                          
  27708           </Node>
  27709                                     
  27710          </Node>
  27711                                    
  27712          <Node>
  27713           <Sub>
  27714            74
  27715           </Sub>
  27716                                         
  27717           <Node>
  27718            <Sub>
  27719             0
  27720            </Sub>
  27721                                               
  27722            <Data>
  27723             &quot;RpcI d&quot;: {
  27724            </Data>
  27725                                          
  27726           </Node>
  27727                                     
  27728          </Node>
  27729                                    
  27730          <Node>
  27731           <Sub>
  27732            75
  27733           </Sub>
  27734                                         
  27735           <Node>
  27736            <Sub>
  27737             0
  27738            </Sub>
  27739                                               
  27740            <Data>
  27741             &quot;prop erties&quo t;: {
  27742            </Data>
  27743                                          
  27744           </Node>
  27745                                     
  27746          </Node>
  27747                                    
  27748          <Node>
  27749           <Sub>
  27750            76
  27751           </Sub>
  27752                                         
  27753           <Node>
  27754            <Sub>
  27755             0
  27756            </Sub>
  27757                                               
  27758            <Data>
  27759             &quot;id&q uot;: {
  27760            </Data>
  27761                                          
  27762           </Node>
  27763                                     
  27764          </Node>
  27765                                    
  27766          <Node>
  27767           <Sub>
  27768            77
  27769           </Sub>
  27770                                         
  27771           <Node>
  27772            <Sub>
  27773             0
  27774            </Sub>
  27775                                               
  27776            <Data>
  27777             &quot;type &quot;: &q uot;intege r&quot;,
  27778            </Data>
  27779                                          
  27780           </Node>
  27781                                     
  27782          </Node>
  27783                                    
  27784          <Node>
  27785           <Sub>
  27786            78
  27787           </Sub>
  27788                                         
  27789           <Node>
  27790            <Sub>
  27791             0
  27792            </Sub>
  27793                                               
  27794            <Data>
  27795             &quot;form at&quot;:  &quot;int3 2&quot;,
  27796            </Data>
  27797                                          
  27798           </Node>
  27799                                     
  27800          </Node>
  27801                                    
  27802          <Node>
  27803           <Sub>
  27804            79
  27805           </Sub>
  27806                                         
  27807           <Node>
  27808            <Sub>
  27809             0
  27810            </Sub>
  27811                                               
  27812            <Data>
  27813             &quot;desc ription&qu ot;: &quot ;The inter nal id of  the RPC. R equired fo r some ope rations&qu ot;
  27814            </Data>
  27815                                          
  27816           </Node>
  27817                                     
  27818          </Node>
  27819                                    
  27820          <Node>
  27821           <Sub>
  27822            80
  27823           </Sub>
  27824                                         
  27825           <Node>
  27826            <Sub>
  27827             0
  27828            </Sub>
  27829                                               
  27830            <Data>
  27831             },
  27832            </Data>
  27833                                          
  27834           </Node>
  27835                                     
  27836          </Node>
  27837                                    
  27838          <Node>
  27839           <Sub>
  27840            81
  27841           </Sub>
  27842                                         
  27843           <Node>
  27844            <Sub>
  27845             0
  27846            </Sub>
  27847                                               
  27848            <Data>
  27849             &quot;name &quot;: {
  27850            </Data>
  27851                                          
  27852           </Node>
  27853                                     
  27854          </Node>
  27855                                    
  27856          <Node>
  27857           <Sub>
  27858            82
  27859           </Sub>
  27860                                         
  27861           <Node>
  27862            <Sub>
  27863             0
  27864            </Sub>
  27865                                               
  27866            <Data>
  27867             &quot;type &quot;: &q uot;string &quot;,
  27868            </Data>
  27869                                          
  27870           </Node>
  27871                                     
  27872          </Node>
  27873                                    
  27874          <Node>
  27875           <Sub>
  27876            83
  27877           </Sub>
  27878                                         
  27879           <Node>
  27880            <Sub>
  27881             0
  27882            </Sub>
  27883                                               
  27884            <Data>
  27885             &quot;desc ription&qu ot;: &quot ;The name  of the RPC .&quot;
  27886            </Data>
  27887                                          
  27888           </Node>
  27889                                     
  27890          </Node>
  27891                                    
  27892          <Node>
  27893           <Sub>
  27894            84
  27895           </Sub>
  27896                                         
  27897           <Node>
  27898            <Sub>
  27899             0
  27900            </Sub>
  27901                                               
  27902            <Data>
  27903             }
  27904            </Data>
  27905                                          
  27906           </Node>
  27907                                     
  27908          </Node>
  27909                                    
  27910          <Node>
  27911           <Sub>
  27912            85
  27913           </Sub>
  27914                                         
  27915           <Node>
  27916            <Sub>
  27917             0
  27918            </Sub>
  27919                                               
  27920            <Data>
  27921             }
  27922            </Data>
  27923                                          
  27924           </Node>
  27925                                     
  27926          </Node>
  27927                                    
  27928          <Node>
  27929           <Sub>
  27930            86
  27931           </Sub>
  27932                                         
  27933           <Node>
  27934            <Sub>
  27935             0
  27936            </Sub>
  27937                                               
  27938            <Data>
  27939             },
  27940            </Data>
  27941                                          
  27942           </Node>
  27943                                     
  27944          </Node>
  27945                                    
  27946          <Node>
  27947           <Sub>
  27948            87
  27949           </Sub>
  27950                                         
  27951           <Node>
  27952            <Sub>
  27953             0
  27954            </Sub>
  27955                                               
  27956            <Data>
  27957             &quot;Swag gerDefinit ion&quot;:  {},
  27958            </Data>
  27959                                          
  27960           </Node>
  27961                                     
  27962          </Node>
  27963                                    
  27964          <Node>
  27965           <Sub>
  27966            88
  27967           </Sub>
  27968                                         
  27969           <Node>
  27970            <Sub>
  27971             0
  27972            </Sub>
  27973                                               
  27974            <Data>
  27975             &quot;Path &quot;: {}
  27976            </Data>
  27977                                          
  27978           </Node>
  27979                                     
  27980          </Node>
  27981                                    
  27982          <Node>
  27983           <Sub>
  27984            89
  27985           </Sub>
  27986                                         
  27987           <Node>
  27988            <Sub>
  27989             0
  27990            </Sub>
  27991                                               
  27992            <Data>
  27993             }
  27994            </Data>
  27995                                          
  27996           </Node>
  27997                                     
  27998          </Node>
  27999                                    
  28000          <Node>
  28001           <Sub>
  28002            90
  28003           </Sub>
  28004                                         
  28005           <Node>
  28006            <Sub>
  28007             0
  28008            </Sub>
  28009                                               
  28010            <Data>
  28011             }
  28012            </Data>
  28013                                          
  28014           </Node>
  28015                                     
  28016          </Node>
  28017                               
  28018         </Node>
  28019                          
  28020        </Node>
  28021                         
  28022        <Node>
  28023         <Sub>
  28024          B
  28025         </Sub>
  28026                              
  28027         <Node>
  28028          <Sub>
  28029           TIU CREATE  RECORD
  28030          </Sub>
  28031                                    
  28032          <Node>
  28033           <Sub>
  28034            2
  28035           </Sub>
  28036                                         
  28037           <Data>
  28038           </Data>
  28039                                     
  28040          </Node>
  28041                               
  28042         </Node>
  28043                              
  28044         <Node>
  28045          <Sub>
  28046           TIU DELETE  RECORD
  28047          </Sub>
  28048                                    
  28049          <Node>
  28050           <Sub>
  28051            7
  28052           </Sub>
  28053                                         
  28054           <Data>
  28055           </Data>
  28056                                     
  28057          </Node>
  28058                               
  28059         </Node>
  28060                              
  28061         <Node>
  28062          <Sub>
  28063           TIU GET PN  TITLES
  28064          </Sub>
  28065                                    
  28066          <Node>
  28067           <Sub>
  28068            3
  28069           </Sub>
  28070                                         
  28071           <Data>
  28072           </Data>
  28073                                     
  28074          </Node>
  28075                               
  28076         </Node>
  28077                              
  28078         <Node>
  28079          <Sub>
  28080           TIU IS USE R A PROVID ER?
  28081          </Sub>
  28082                                    
  28083          <Node>
  28084           <Sub>
  28085            12
  28086           </Sub>
  28087                                         
  28088           <Data>
  28089           </Data>
  28090                                     
  28091          </Node>
  28092                               
  28093         </Node>
  28094                              
  28095         <Node>
  28096          <Sub>
  28097           TIU REQUIR ES COSIGNA TURE
  28098          </Sub>
  28099                                    
  28100          <Node>
  28101           <Sub>
  28102            11
  28103           </Sub>
  28104                                         
  28105           <Data>
  28106           </Data>
  28107                                     
  28108          </Node>
  28109                               
  28110         </Node>
  28111                              
  28112         <Node>
  28113          <Sub>
  28114           VPS GET AL LERGIES
  28115          </Sub>
  28116                                    
  28117          <Node>
  28118           <Sub>
  28119            1
  28120           </Sub>
  28121                                         
  28122           <Data>
  28123           </Data>
  28124                                     
  28125          </Node>
  28126                               
  28127         </Node>
  28128                              
  28129         <Node>
  28130          <Sub>
  28131           VPS GET PA TIENT DEMO GRAPHIC
  28132          </Sub>
  28133                                    
  28134          <Node>
  28135           <Sub>
  28136            6
  28137           </Sub>
  28138                                         
  28139           <Data>
  28140           </Data>
  28141                                     
  28142          </Node>
  28143                               
  28144         </Node>
  28145                              
  28146         <Node>
  28147          <Sub>
  28148           VPS GET2 P ATIENT DEM OGRAPHIC
  28149          </Sub>
  28150                                    
  28151          <Node>
  28152           <Sub>
  28153            10
  28154           </Sub>
  28155                                         
  28156           <Data>
  28157           </Data>
  28158                                     
  28159          </Node>
  28160                               
  28161         </Node>
  28162                              
  28163         <Node>
  28164          <Sub>
  28165           VPS LAST5
  28166          </Sub>
  28167                                    
  28168          <Node>
  28169           <Sub>
  28170            5
  28171           </Sub>
  28172                                         
  28173           <Data>
  28174           </Data>
  28175                                     
  28176          </Node>
  28177                               
  28178         </Node>
  28179                              
  28180         <Node>
  28181          <Sub>
  28182           VPS LIST A LL
  28183          </Sub>
  28184                                    
  28185          <Node>
  28186           <Sub>
  28187            4
  28188           </Sub>
  28189                                         
  28190           <Data>
  28191           </Data>
  28192                                     
  28193          </Node>
  28194                               
  28195         </Node>
  28196                              
  28197         <Node>
  28198          <Sub>
  28199           XSA TEST G ET VARIABL E
  28200          </Sub>
  28201                                    
  28202          <Node>
  28203           <Sub>
  28204            13
  28205           </Sub>
  28206                                         
  28207           <Data>
  28208           </Data>
  28209                                     
  28210          </Node>
  28211                               
  28212         </Node>
  28213                              
  28214         <Node>
  28215          <Sub>
  28216           XSA TEST S ET VARIABL E
  28217          </Sub>
  28218                                    
  28219          <Node>
  28220           <Sub>
  28221            14
  28222           </Sub>
  28223                                         
  28224           <Data>
  28225           </Data>
  28226                                     
  28227          </Node>
  28228                               
  28229         </Node>
  28230                              
  28231         <Node>
  28232          <Sub>
  28233           XUS INTRO  MSG
  28234          </Sub>
  28235                                    
  28236          <Node>
  28237           <Sub>
  28238            8
  28239           </Sub>
  28240                                         
  28241           <Data>
  28242           </Data>
  28243                                     
  28244          </Node>
  28245                               
  28246         </Node>
  28247                          
  28248        </Node>
  28249                     
  28250       </Node>
  28251               
  28252      </Node>
  28253          
  28254     </Global>
  28255    
  28256   </Export>