included missing routines

p/CCR_1_0_5_T4_CACHE.KID

@@ -1,5 +1,5 @@
-KIDS Distribution saved on Oct 09, 2008@14:24:50
+KIDS Distribution saved on Oct 09, 2008@16:24:27
-New KIDS build with missing routines
+included missing routines
 **KIDS**:CCR*1.0*5^
 
 **INSTALL NAME**
@@ -57,7 +57,7 @@ TEST^GPLCCR AND TEST^GPLXPATH RUN UNIT TESTS ON THE CODE
 "BLD",6955,4,0)
 ^9.64PA^^
 "BLD",6955,6.3)
-11
+12
 "BLD",6955,"KRN",0)
 ^9.67PA^8989.52^19
 "BLD",6955,"KRN",.4,0)
@@ -81,7 +81,7 @@ TEST^GPLCCR AND TEST^GPLXPATH RUN UNIT TESTS ON THE CODE
 "BLD",6955,"KRN",9.8,0)
 9.8
 "BLD",6955,"KRN",9.8,"NM",0)
-^9.68A^20^20
+^9.68A^21^21
 "BLD",6955,"KRN",9.8,"NM",1,0)
 CCRDPT^^0^B45805995
 "BLD",6955,"KRN",9.8,"NM",2,0)
@@ -122,6 +122,8 @@ GPLRIMA^^0^B214212612
 GPLALERT^^0^B13662473
 "BLD",6955,"KRN",9.8,"NM",20,0)
 GPLPROBS^^0^B25875394
+"BLD",6955,"KRN",9.8,"NM",21,0)
+GPLXPAT0^^0^B50983429
 "BLD",6955,"KRN",9.8,"NM","B","CCRDPT",1)
 
 "BLD",6955,"KRN",9.8,"NM","B","CCRDPTT",2)
@@ -160,6 +162,8 @@ GPLPROBS^^0^B25875394
 
 "BLD",6955,"KRN",9.8,"NM","B","GPLVITAL",17)
 
+"BLD",6955,"KRN",9.8,"NM","B","GPLXPAT0",21)
+
 "BLD",6955,"KRN",9.8,"NM","B","GPLXPATH",9)
 
 "BLD",6955,"KRN",19,0)
@@ -297,13 +301,13 @@ NO
 "QUES","XPZ2","M")
 D XPZ2^XPDIQ
 "RTN")
-20
+21
 "RTN","CCRDPT")
 0^1^B45805995
 "RTN","CCRDPT",1,0)
 CCRDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
 "RTN","CCRDPT",2,0)
- ;;0.2;CCRCCD;;Jun 15, 2008;Build 11
+ ;;0.2;CCRCCD;;Jun 15, 2008;Build 12
 "RTN","CCRDPT",3,0)
  ;
 "RTN","CCRDPT",4,0)
@@ -845,7 +849,7 @@ EMERSAME(DFN) ; Is EMER's Address the same the NOK?
 "RTN","CCRDPTT",1,0)
 CCRDPTT ; Unit Tester...
 "RTN","CCRDPTT",2,0)
-  ;;0.1;CCRCCD;;Jun 15, 2008;Build 11
+  ;;0.1;CCRCCD;;Jun 15, 2008;Build 12
 "RTN","CCRDPTT",3,0)
  ;
 "RTN","CCRDPTT",4,0)
@@ -933,7 +937,7 @@ CCRDPTT ; Unit Tester...
 "RTN","CCRMEDS",1,0)
 CCRMEDS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR MEDICATIONS ;07/23/08  14:33
 "RTN","CCRMEDS",2,0)
- ;;0.1;CCDCCR;;JUL 16,2008;Build 11
+ ;;0.1;CCDCCR;;JUL 16,2008;Build 12
 "RTN","CCRMEDS",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","CCRMEDS",4,0)
@@ -1315,7 +1319,7 @@ DIGITS(INSTR) ; RETURN JUST THE LEADING DIGITS OF THE STRING
 "RTN","CCRMEDS1",1,0)
 CCRMEDS ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;08/24/08
 "RTN","CCRMEDS1",2,0)
- ;;0.1;CCDCCR;;JUL 16,2008;Build 11
+ ;;0.1;CCDCCR;;JUL 16,2008;Build 12
 "RTN","CCRMEDS1",3,0)
  ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","CCRMEDS1",4,0)
@@ -1709,7 +1713,7 @@ EXTRACT(MINXML,DFN,OUTXML)  ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
 "RTN","CCRMEDS2",1,0)
 CCRMEDS2         ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS - Pending Meds;08/24/08
 "RTN","CCRMEDS2",2,0)
- ;;0.1;CCDCCR;;JUL 16,2008;Build 11
+ ;;0.1;CCDCCR;;JUL 16,2008;Build 12
 "RTN","CCRMEDS2",3,0)
  ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","CCRMEDS2",4,0)
@@ -2141,7 +2145,7 @@ EXTRACT(MINXML,DFN,OUTXML)           ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
 "RTN","CCRSYS",1,0)
 CCRSYS ;CCDCCR/SMH - Routine to Get EHR System Information;6JUL2008
 "RTN","CCRSYS",2,0)
-        ;;0.1;CCDCCR;;;Build 11
+        ;;0.1;CCDCCR;;;Build 12
 "RTN","CCRSYS",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","CCRSYS",4,0)
@@ -2259,7 +2263,7 @@ PTST(DFN) ;TEST TO SEE IF PATIENT MERGED OR A TEST PATIENT
 "RTN","CCRUNIT",1,0)
 CCRUNIT ; A routine that tests some crap
 "RTN","CCRUNIT",2,0)
-        ;;0.1;CCDCCR;;JUL 13, 2007;Build 11
+        ;;0.1;CCDCCR;;JUL 13, 2007;Build 12
 "RTN","CCRUNIT",3,0)
         Q
 "RTN","CCRUNIT",4,0)
@@ -2301,7 +2305,7 @@ MEDS
 "RTN","CCRUTIL",1,0)
 CCRUTIL ;CCRCCD/SMH - Various Utilites for generating the CCR/CCD;06/15/08
 "RTN","CCRUTIL",2,0)
- ;;0.1;CCRCCD;;Jun 15, 2008;Build 11
+ ;;0.1;CCRCCD;;Jun 15, 2008;Build 12
 "RTN","CCRUTIL",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","CCRUTIL",4,0)
@@ -2463,7 +2467,7 @@ SORTDT(V1,V2,ORDR) ; DATE SORT ARRAY AND RETURN INDEX IN V1 AND COUNT
 "RTN","CCRVA200",1,0)
 CCRVA200 ;WV/CCDCCR/SMH - Routine to get Provider Data;07/13/2008
 "RTN","CCRVA200",2,0)
-        ;;0.1;CCDCCR;;JUL 13, 2007;Build 11
+        ;;0.1;CCDCCR;;JUL 13, 2007;Build 12
 "RTN","CCRVA200",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","CCRVA200",4,0)
@@ -2799,7 +2803,7 @@ EMAIL(DUZ) ; Get Provider's Email. PUBLIC; EXTRINSIC
 "RTN","GPLACTOR",1,0)
 GPLACTOR  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
 "RTN","GPLACTOR",2,0)
- ;;0.4;CCDCCR;nopatch;noreleasedate;Build 11
+ ;;0.4;CCDCCR;nopatch;noreleasedate;Build 12
 "RTN","GPLACTOR",3,0)
  ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLACTOR",4,0)
@@ -3193,7 +3197,7 @@ PROVIDER(INXML,AIEN,AOID,OUTXML) ; PROCESS A PROVIDER TYPE ACTOR
 "RTN","GPLALERT",1,0)
 GPLALERT  ; CCDCCR/CKU - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
 "RTN","GPLALERT",2,0)
-          ;;0.1;CCDCCR;;SEP 11,2008;Build 11
+          ;;0.1;CCDCCR;;SEP 11,2008;Build 12
 "RTN","GPLALERT",3,0)
           ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLALERT",4,0)
@@ -3325,7 +3329,7 @@ EXTRACT(ALTXML,DFN,ALTOUTXML) ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
 "RTN","GPLCCD",1,0)
 GPLCCD   ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08
 "RTN","GPLCCD",2,0)
- ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
+ ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
 "RTN","GPLCCD",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLCCD",4,0)
@@ -3869,7 +3873,7 @@ TLIST  ; LIST THE TESTS
 "RTN","GPLCCD1",1,0)
 GPLCCD1 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
 "RTN","GPLCCD1",2,0)
- ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
+ ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
 "RTN","GPLCCD1",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLCCD1",4,0)
@@ -4405,7 +4409,7 @@ MARKUP ;<MARKUP>
 "RTN","GPLCCR",1,0)
 GPLCCR   ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
 "RTN","GPLCCR",2,0)
- ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
+ ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
 "RTN","GPLCCR",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLCCR",4,0)
@@ -4863,7 +4867,7 @@ TLIST  ; LIST THE TESTS
 "RTN","GPLCCR0",1,0)
 GPLCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
 "RTN","GPLCCR0",2,0)
- ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
+ ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
 "RTN","GPLCCR0",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLCCR0",4,0)
@@ -6507,7 +6511,7 @@ LOAD(ARY)       ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
 "RTN","GPLPROBS",1,0)
 GPLPROBS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08
 "RTN","GPLPROBS",2,0)
- ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
+ ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
 "RTN","GPLPROBS",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLPROBS",4,0)
@@ -6733,7 +6737,7 @@ EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT PROBLEMS INTO PROVIDED XML TEMPLATE
 "RTN","GPLRIMA",1,0)
 GPLRIMA   ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
 "RTN","GPLRIMA",2,0)
- ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
+ ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
 "RTN","GPLRIMA",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLRIMA",4,0)
@@ -7571,7 +7575,7 @@ DPATV(DFN,IWHICH) ; DISPLAY VARS FOR PATIENT DFN THAT ARE MAINTAINED IN GPLRIM
 "RTN","GPLUNIT",1,0)
 GPLUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08
 "RTN","GPLUNIT",2,0)
- ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
+ ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
 "RTN","GPLUNIT",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLUNIT",4,0)
@@ -7885,7 +7889,7 @@ TLIST(ZARY) ; LIST ALL THE TESTS
 "RTN","GPLVITAL",1,0)
 GPLVITAL ; CCDCCR/CJE - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
 "RTN","GPLVITAL",2,0)
- ;;0.1;CCDCCR;;JUL 16,2008;Build 11
+ ;;0.1;CCDCCR;;JUL 16,2008;Build 12
 "RTN","GPLVITAL",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLVITAL",4,0)
@@ -8278,12 +8282,438 @@ VITDATES(VDT) ; VDT IS PASSED BY REFERENCE AND WILL CONTAIN THE ARRAY
  Q
 "RTN","GPLVITAL",198,0)
  ;
+"RTN","GPLXPAT0")
+0^21^B50983429
+"RTN","GPLXPAT0",1,0)
+GPLXPAT0   ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08
+"RTN","GPLXPAT0",2,0)
+ ;;0.2;CCDCCR;nopatch;noreleasedate;Build 12
+"RTN","GPLXPAT0",3,0)
+ ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
+"RTN","GPLXPAT0",4,0)
+ ;General Public License See attached copy of the License.
+"RTN","GPLXPAT0",5,0)
+ ;
+"RTN","GPLXPAT0",6,0)
+ ;This program is free software; you can redistribute it and/or modify
+"RTN","GPLXPAT0",7,0)
+ ;it under the terms of the GNU General Public License as published by
+"RTN","GPLXPAT0",8,0)
+ ;the Free Software Foundation; either version 2 of the License, or
+"RTN","GPLXPAT0",9,0)
+ ;(at your option) any later version.
+"RTN","GPLXPAT0",10,0)
+ ;
+"RTN","GPLXPAT0",11,0)
+ ;This program is distributed in the hope that it will be useful,
+"RTN","GPLXPAT0",12,0)
+ ;but WITHOUT ANY WARRANTY; without even the implied warranty of
+"RTN","GPLXPAT0",13,0)
+ ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+"RTN","GPLXPAT0",14,0)
+ ;GNU General Public License for more details.
+"RTN","GPLXPAT0",15,0)
+ ;
+"RTN","GPLXPAT0",16,0)
+ ;You should have received a copy of the GNU General Public License along
+"RTN","GPLXPAT0",17,0)
+ ;with this program; if not, write to the Free Software Foundation, Inc.,
+"RTN","GPLXPAT0",18,0)
+ ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+"RTN","GPLXPAT0",19,0)
+ ;
+"RTN","GPLXPAT0",20,0)
+        W "NO ENTRY",!
+"RTN","GPLXPAT0",21,0)
+        Q
+"RTN","GPLXPAT0",22,0)
+        ;
+"RTN","GPLXPAT0",23,0)
+ ;;><TEST>
+"RTN","GPLXPAT0",24,0)
+ ;;><INIT>
+"RTN","GPLXPAT0",25,0)
+ ;;>>>K GPL S GPL=""
+"RTN","GPLXPAT0",26,0)
+ ;;>>>D PUSH^GPLXPATH("GPL","FIRST")
+"RTN","GPLXPAT0",27,0)
+ ;;>>>D PUSH^GPLXPATH("GPL","SECOND")
+"RTN","GPLXPAT0",28,0)
+ ;;>>>D PUSH^GPLXPATH("GPL","THIRD")
+"RTN","GPLXPAT0",29,0)
+ ;;>>>D PUSH^GPLXPATH("GPL","FOURTH")
+"RTN","GPLXPAT0",30,0)
+ ;;>>?GPL(0)=4
+"RTN","GPLXPAT0",31,0)
+ ;;><INITXML>
+"RTN","GPLXPAT0",32,0)
+ ;;>>>K GXML S GXML=""
+"RTN","GPLXPAT0",33,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<FIRST>")
+"RTN","GPLXPAT0",34,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
+"RTN","GPLXPAT0",35,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<THIRD>")
+"RTN","GPLXPAT0",36,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>@@DATA1@@</FOURTH>")
+"RTN","GPLXPAT0",37,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<FIFTH>")
+"RTN","GPLXPAT0",38,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","@@DATA2@@")
+"RTN","GPLXPAT0",39,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</FIFTH>")
+"RTN","GPLXPAT0",40,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<SIXTH ID=""SELF"" />")
+"RTN","GPLXPAT0",41,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</THIRD>")
+"RTN","GPLXPAT0",42,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
+"RTN","GPLXPAT0",43,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
+"RTN","GPLXPAT0",44,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
+"RTN","GPLXPAT0",45,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</FIRST>")
+"RTN","GPLXPAT0",46,0)
+ ;;><INITXML2>
+"RTN","GPLXPAT0",47,0)
+ ;;>>>K GXML S GXML=""
+"RTN","GPLXPAT0",48,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<FIRST>")
+"RTN","GPLXPAT0",49,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
+"RTN","GPLXPAT0",50,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<THIRD>")
+"RTN","GPLXPAT0",51,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA1</FOURTH>")
+"RTN","GPLXPAT0",52,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>")
+"RTN","GPLXPAT0",53,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","DATA2")
+"RTN","GPLXPAT0",54,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</FOURTH>")
+"RTN","GPLXPAT0",55,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</THIRD>")
+"RTN","GPLXPAT0",56,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<_SECOND>")
+"RTN","GPLXPAT0",57,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA3</FOURTH>")
+"RTN","GPLXPAT0",58,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</_SECOND>")
+"RTN","GPLXPAT0",59,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
+"RTN","GPLXPAT0",60,0)
+ ;;>>>D PUSH^GPLXPATH("GXML","</FIRST>")
+"RTN","GPLXPAT0",61,0)
+ ;;><PUSHPOP>
+"RTN","GPLXPAT0",62,0)
+ ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPAT0")
+"RTN","GPLXPAT0",63,0)
+ ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT")
+"RTN","GPLXPAT0",64,0)
+ ;;>>?GPL(GPL(0))="FOURTH"
+"RTN","GPLXPAT0",65,0)
+ ;;>>>D POP^GPLXPATH("GPL",.GX)
+"RTN","GPLXPAT0",66,0)
+ ;;>>?GX="FOURTH"
+"RTN","GPLXPAT0",67,0)
+ ;;>>?GPL(GPL(0))="THIRD"
+"RTN","GPLXPAT0",68,0)
+ ;;>>>D POP^GPLXPATH("GPL",.GX)
+"RTN","GPLXPAT0",69,0)
+ ;;>>?GX="THIRD"
+"RTN","GPLXPAT0",70,0)
+ ;;>>?GPL(GPL(0))="SECOND"
+"RTN","GPLXPAT0",71,0)
+ ;;><MKMDX>
+"RTN","GPLXPAT0",72,0)
+ ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPAT0")
+"RTN","GPLXPAT0",73,0)
+ ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT")
+"RTN","GPLXPAT0",74,0)
+ ;;>>>S GX=""
+"RTN","GPLXPAT0",75,0)
+ ;;>>>D MKMDX^GPLXPATH("GPL",.GX)
+"RTN","GPLXPAT0",76,0)
+ ;;>>?GX="//FIRST/SECOND/THIRD/FOURTH"
+"RTN","GPLXPAT0",77,0)
+ ;;><XNAME>
+"RTN","GPLXPAT0",78,0)
+ ;;>>?$$XNAME^GPLXPATH("<FOURTH>DATA1</FOURTH>")="FOURTH"
+"RTN","GPLXPAT0",79,0)
+ ;;>>?$$XNAME^GPLXPATH("<SIXTH  ID=""SELF"" />")="SIXTH"
+"RTN","GPLXPAT0",80,0)
+ ;;>>?$$XNAME^GPLXPATH("</THIRD>")="THIRD"
+"RTN","GPLXPAT0",81,0)
+ ;;><INDEX>
+"RTN","GPLXPAT0",82,0)
+ ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPAT0")
+"RTN","GPLXPAT0",83,0)
+ ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INITXML")
+"RTN","GPLXPAT0",84,0)
+ ;;>>>D INDEX^GPLXPATH("GXML")
+"RTN","GPLXPAT0",85,0)
+ ;;>>?GXML("//FIRST/SECOND")="2^12"
+"RTN","GPLXPAT0",86,0)
+ ;;>>?GXML("//FIRST/SECOND/THIRD")="3^9"
+"RTN","GPLXPAT0",87,0)
+ ;;>>?GXML("//FIRST/SECOND/THIRD/FIFTH")="5^7"
+"RTN","GPLXPAT0",88,0)
+ ;;>>?GXML("//FIRST/SECOND/THIRD/FOURTH")="4^4"
+"RTN","GPLXPAT0",89,0)
+ ;;>>?GXML("//FIRST/SECOND/THIRD/SIXTH")="8^8"
+"RTN","GPLXPAT0",90,0)
+ ;;>>?GXML("//FIRST/SECOND")="2^12"
+"RTN","GPLXPAT0",91,0)
+ ;;>>?GXML("//FIRST")="1^13"
+"RTN","GPLXPAT0",92,0)
+ ;;><INDEX2>
+"RTN","GPLXPAT0",93,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML2")
+"RTN","GPLXPAT0",94,0)
+ ;;>>>D INDEX^GPLXPATH("GXML")
+"RTN","GPLXPAT0",95,0)
+ ;;>>?GXML("//FIRST/SECOND")="2^12"
+"RTN","GPLXPAT0",96,0)
+ ;;>>?GXML("//FIRST/SECOND/_SECOND")="9^11"
+"RTN","GPLXPAT0",97,0)
+ ;;>>?GXML("//FIRST/SECOND/_SECOND/FOURTH")="10^10"
+"RTN","GPLXPAT0",98,0)
+ ;;>>?GXML("//FIRST/SECOND/THIRD")="3^8"
+"RTN","GPLXPAT0",99,0)
+ ;;>>?GXML("//FIRST/SECOND/THIRD/FOURTH")="4^7"
+"RTN","GPLXPAT0",100,0)
+ ;;>>?GXML("//FIRST")="1^13"
+"RTN","GPLXPAT0",101,0)
+ ;;><MISSING>
+"RTN","GPLXPAT0",102,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",103,0)
+ ;;>>>S OUTARY="^TMP($J,""MISSINGTEST"")"
+"RTN","GPLXPAT0",104,0)
+ ;;>>>D MISSING^GPLXPATH("GXML",OUTARY)
+"RTN","GPLXPAT0",105,0)
+ ;;>>?@OUTARY@(1)="DATA1"
+"RTN","GPLXPAT0",106,0)
+ ;;>>?@OUTARY@(2)="DATA2"
+"RTN","GPLXPAT0",107,0)
+ ;;><MAP>
+"RTN","GPLXPAT0",108,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",109,0)
+ ;;>>>S MAPARY="^TMP($J,""MAPVALUES"")"
+"RTN","GPLXPAT0",110,0)
+ ;;>>>S OUTARY="^TMP($J,""MAPTEST"")"
+"RTN","GPLXPAT0",111,0)
+ ;;>>>S @MAPARY@("DATA2")="VALUE2"
+"RTN","GPLXPAT0",112,0)
+ ;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY)
+"RTN","GPLXPAT0",113,0)
+ ;;>>?@OUTARY@(6)="VALUE2"
+"RTN","GPLXPAT0",114,0)
+ ;;><MAP2>
+"RTN","GPLXPAT0",115,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",116,0)
+ ;;>>>S MAPARY="^TMP($J,""MAPVALUES"")"
+"RTN","GPLXPAT0",117,0)
+ ;;>>>S OUTARY="^TMP($J,""MAPTEST"")"
+"RTN","GPLXPAT0",118,0)
+ ;;>>>S @MAPARY@("DATA1")="VALUE1"
+"RTN","GPLXPAT0",119,0)
+ ;;>>>S @MAPARY@("DATA2")="VALUE2"
+"RTN","GPLXPAT0",120,0)
+ ;;>>>S @MAPARY@("DATA3")="VALUE3"
+"RTN","GPLXPAT0",121,0)
+ ;;>>>S GXML(4)="<FOURTH>@@DATA1@@ AND @@DATA3@@</FOURTH>"
+"RTN","GPLXPAT0",122,0)
+ ;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY)
+"RTN","GPLXPAT0",123,0)
+ ;;>>>D PARY^GPLXPATH(OUTARY)
+"RTN","GPLXPAT0",124,0)
+ ;;>>?@OUTARY@(4)="<FOURTH>VALUE1 AND VALUE3</FOURTH>"
+"RTN","GPLXPAT0",125,0)
+ ;;><QUEUE>
+"RTN","GPLXPAT0",126,0)
+ ;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",2,3)
+"RTN","GPLXPAT0",127,0)
+ ;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",4,5)
+"RTN","GPLXPAT0",128,0)
+ ;;>>?$P(BTLIST(2),";",2)=4
+"RTN","GPLXPAT0",129,0)
+ ;;><BUILD>
+"RTN","GPLXPAT0",130,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",131,0)
+ ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FOURTH","G2")
+"RTN","GPLXPAT0",132,0)
+ ;;>>>D ZTEST^GPLXPATH("QUEUE")
+"RTN","GPLXPAT0",133,0)
+ ;;>>>D BUILD^GPLXPATH("BTLIST","G3")
+"RTN","GPLXPAT0",134,0)
+ ;;><CP>
+"RTN","GPLXPAT0",135,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",136,0)
+ ;;>>>D CP^GPLXPATH("GXML","G2")
+"RTN","GPLXPAT0",137,0)
+ ;;>>?G2(0)=13
+"RTN","GPLXPAT0",138,0)
+ ;;><QOPEN>
+"RTN","GPLXPAT0",139,0)
+ ;;>>>K G2,GBL
+"RTN","GPLXPAT0",140,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",141,0)
+ ;;>>>D QOPEN^GPLXPATH("GBL","GXML")
+"RTN","GPLXPAT0",142,0)
+ ;;>>?$P(GBL(1),";",3)=12
+"RTN","GPLXPAT0",143,0)
+ ;;>>>D BUILD^GPLXPATH("GBL","G2")
+"RTN","GPLXPAT0",144,0)
+ ;;>>?G2(G2(0))="</SECOND>"
+"RTN","GPLXPAT0",145,0)
+ ;;><QOPEN2>
+"RTN","GPLXPAT0",146,0)
+ ;;>>>K G2,GBL
+"RTN","GPLXPAT0",147,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",148,0)
+ ;;>>>D QOPEN^GPLXPATH("GBL","GXML","//FIRST/SECOND")
+"RTN","GPLXPAT0",149,0)
+ ;;>>?$P(GBL(1),";",3)=11
+"RTN","GPLXPAT0",150,0)
+ ;;>>>D BUILD^GPLXPATH("GBL","G2")
+"RTN","GPLXPAT0",151,0)
+ ;;>>?G2(G2(0))="</SECOND>"
+"RTN","GPLXPAT0",152,0)
+ ;;><QCLOSE>
+"RTN","GPLXPAT0",153,0)
+ ;;>>>K G2,GBL
+"RTN","GPLXPAT0",154,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",155,0)
+ ;;>>>D QCLOSE^GPLXPATH("GBL","GXML")
+"RTN","GPLXPAT0",156,0)
+ ;;>>?$P(GBL(1),";",3)=13
+"RTN","GPLXPAT0",157,0)
+ ;;>>>D BUILD^GPLXPATH("GBL","G2")
+"RTN","GPLXPAT0",158,0)
+ ;;>>?G2(G2(0))="</FIRST>"
+"RTN","GPLXPAT0",159,0)
+ ;;><QCLOSE2>
+"RTN","GPLXPAT0",160,0)
+ ;;>>>K G2,GBL
+"RTN","GPLXPAT0",161,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",162,0)
+ ;;>>>D QCLOSE^GPLXPATH("GBL","GXML","//FIRST/SECOND/THIRD")
+"RTN","GPLXPAT0",163,0)
+ ;;>>?$P(GBL(1),";",3)=13
+"RTN","GPLXPAT0",164,0)
+ ;;>>>D BUILD^GPLXPATH("GBL","G2")
+"RTN","GPLXPAT0",165,0)
+ ;;>>?G2(G2(0))="</FIRST>"
+"RTN","GPLXPAT0",166,0)
+ ;;>>?G2(1)="</THIRD>"
+"RTN","GPLXPAT0",167,0)
+ ;;><INSERT>
+"RTN","GPLXPAT0",168,0)
+ ;;>>>K G2,GBL,G3,G4
+"RTN","GPLXPAT0",169,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",170,0)
+ ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
+"RTN","GPLXPAT0",171,0)
+ ;;>>>D INSERT^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
+"RTN","GPLXPAT0",172,0)
+ ;;>>>D INSERT^GPLXPATH("G3","G2","//")
+"RTN","GPLXPAT0",173,0)
+ ;;>>?G2(1)=GXML(9)
+"RTN","GPLXPAT0",174,0)
+ ;;><REPLACE>
+"RTN","GPLXPAT0",175,0)
+ ;;>>>K G2,GBL,G3
+"RTN","GPLXPAT0",176,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",177,0)
+ ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
+"RTN","GPLXPAT0",178,0)
+ ;;>>>D REPLACE^GPLXPATH("GXML","G2","//FIRST/SECOND")
+"RTN","GPLXPAT0",179,0)
+ ;;>>?GXML(2)="<FIFTH>"
+"RTN","GPLXPAT0",180,0)
+ ;;><INSINNER>
+"RTN","GPLXPAT0",181,0)
+ ;;>>>K GXML,G2,GBL,G3
+"RTN","GPLXPAT0",182,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",183,0)
+ ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
+"RTN","GPLXPAT0",184,0)
+ ;;>>>D INSINNER^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
+"RTN","GPLXPAT0",185,0)
+ ;;>>?GXML(10)="<FIFTH>"
+"RTN","GPLXPAT0",186,0)
+ ;;><INSINNER2>
+"RTN","GPLXPAT0",187,0)
+ ;;>>>K GXML,G2,GBL,G3
+"RTN","GPLXPAT0",188,0)
+ ;;>>>D ZTEST^GPLXPATH("INITXML")
+"RTN","GPLXPAT0",189,0)
+ ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
+"RTN","GPLXPAT0",190,0)
+ ;;>>>D INSINNER^GPLXPATH("G2","G2")
+"RTN","GPLXPAT0",191,0)
+ ;;>>?G2(8)="<FIFTH>"
+"RTN","GPLXPAT0",192,0)
+ ;;><PUSHA>
+"RTN","GPLXPAT0",193,0)
+ ;;>>>K GTMP,GTMP2
+"RTN","GPLXPAT0",194,0)
+ ;;>>>N GTMP,GTMP2
+"RTN","GPLXPAT0",195,0)
+ ;;>>>D PUSH^GPLXPATH("GTMP","A")
+"RTN","GPLXPAT0",196,0)
+ ;;>>>D PUSH^GPLXPATH("GTMP2","B")
+"RTN","GPLXPAT0",197,0)
+ ;;>>>D PUSH^GPLXPATH("GTMP2","C")
+"RTN","GPLXPAT0",198,0)
+ ;;>>>D PUSHA^GPLXPATH("GTMP","GTMP2")
+"RTN","GPLXPAT0",199,0)
+ ;;>>?GTMP(3)="C"
+"RTN","GPLXPAT0",200,0)
+ ;;>>?GTMP(0)=3
+"RTN","GPLXPAT0",201,0)
+ ;;><H2ARY>
+"RTN","GPLXPAT0",202,0)
+ ;;>>>K GTMP,GTMP2
+"RTN","GPLXPAT0",203,0)
+ ;;>>>S GTMP("TEST1")=1
+"RTN","GPLXPAT0",204,0)
+ ;;>>>D H2ARY^GPLXPATH("GTMP2","GTMP")
+"RTN","GPLXPAT0",205,0)
+ ;;>>?GTMP2(0)=1
+"RTN","GPLXPAT0",206,0)
+ ;;>>?GTMP2(1)="TEST1^1"
+"RTN","GPLXPAT0",207,0)
+ ;;><XVARS>
+"RTN","GPLXPAT0",208,0)
+ ;;>>>K GTMP,GTMP2
+"RTN","GPLXPAT0",209,0)
+ ;;>>>D PUSH^GPLXPATH("GTMP","<VALUE>@@VAR1@@</VALUE>")
+"RTN","GPLXPAT0",210,0)
+ ;;>>>D XVARS^GPLXPATH("GTMP2","GTMP")
+"RTN","GPLXPAT0",211,0)
+ ;;>>?GTMP2(1)="VAR1^"
+"RTN","GPLXPAT0",212,0)
+ ;;></TEST>
 "RTN","GPLXPATH")
 0^9^B241520746
 "RTN","GPLXPATH",1,0)
 GPLXPATH   ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
 "RTN","GPLXPATH",2,0)
- ;;0.2;CCDCCR;nopatch;noreleasedate;Build 11
+ ;;0.2;CCDCCR;nopatch;noreleasedate;Build 12
 "RTN","GPLXPATH",3,0)
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
 "RTN","GPLXPATH",4,0)