Changeset 211 for ccr


Ignore:
Timestamp:
Oct 9, 2008, 4:11:31 PM (16 years ago)
Author:
George Lilly
Message:

included missing routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCR_1_0_5_T4_CACHE.KID

    r210 r211  
    1 KIDS Distribution saved on Oct 09, 2008@14:24:50
    2 New KIDS build with missing routines
     1KIDS Distribution saved on Oct 09, 2008@16:24:27
     2included missing routines
    33**KIDS**:CCR*1.0*5^
    44
     
    5858^9.64PA^^
    5959"BLD",6955,6.3)
    60 11
     6012
    6161"BLD",6955,"KRN",0)
    6262^9.67PA^8989.52^19
     
    82829.8
    8383"BLD",6955,"KRN",9.8,"NM",0)
    84 ^9.68A^20^20
     84^9.68A^21^21
    8585"BLD",6955,"KRN",9.8,"NM",1,0)
    8686CCRDPT^^0^B45805995
     
    123123"BLD",6955,"KRN",9.8,"NM",20,0)
    124124GPLPROBS^^0^B25875394
     125"BLD",6955,"KRN",9.8,"NM",21,0)
     126GPLXPAT0^^0^B50983429
    125127"BLD",6955,"KRN",9.8,"NM","B","CCRDPT",1)
    126128
     
    160162
    161163"BLD",6955,"KRN",9.8,"NM","B","GPLVITAL",17)
     164
     165"BLD",6955,"KRN",9.8,"NM","B","GPLXPAT0",21)
    162166
    163167"BLD",6955,"KRN",9.8,"NM","B","GPLXPATH",9)
     
    298302D XPZ2^XPDIQ
    299303"RTN")
    300 20
     30421
    301305"RTN","CCRDPT")
    3023060^1^B45805995
     
    304308CCRDPT ;WV/CCRCCD/SMH - Routines to Extract Patient Data for CCDCCR; 6/15/08
    305309"RTN","CCRDPT",2,0)
    306  ;;0.2;CCRCCD;;Jun 15, 2008;Build 11
     310 ;;0.2;CCRCCD;;Jun 15, 2008;Build 12
    307311"RTN","CCRDPT",3,0)
    308312 ;
     
    846850CCRDPTT ; Unit Tester...
    847851"RTN","CCRDPTT",2,0)
    848   ;;0.1;CCRCCD;;Jun 15, 2008;Build 11
     852  ;;0.1;CCRCCD;;Jun 15, 2008;Build 12
    849853"RTN","CCRDPTT",3,0)
    850854 ;
     
    934938CCRMEDS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR MEDICATIONS ;07/23/08  14:33
    935939"RTN","CCRMEDS",2,0)
    936  ;;0.1;CCDCCR;;JUL 16,2008;Build 11
     940 ;;0.1;CCDCCR;;JUL 16,2008;Build 12
    937941"RTN","CCRMEDS",3,0)
    938942 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    13161320CCRMEDS ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;08/24/08
    13171321"RTN","CCRMEDS1",2,0)
    1318  ;;0.1;CCDCCR;;JUL 16,2008;Build 11
     1322 ;;0.1;CCDCCR;;JUL 16,2008;Build 12
    13191323"RTN","CCRMEDS1",3,0)
    13201324 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    17101714CCRMEDS2         ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS - Pending Meds;08/24/08
    17111715"RTN","CCRMEDS2",2,0)
    1712  ;;0.1;CCDCCR;;JUL 16,2008;Build 11
     1716 ;;0.1;CCDCCR;;JUL 16,2008;Build 12
    17131717"RTN","CCRMEDS2",3,0)
    17141718 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    21422146CCRSYS ;CCDCCR/SMH - Routine to Get EHR System Information;6JUL2008
    21432147"RTN","CCRSYS",2,0)
    2144         ;;0.1;CCDCCR;;;Build 11
     2148        ;;0.1;CCDCCR;;;Build 12
    21452149"RTN","CCRSYS",3,0)
    21462150 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    22602264CCRUNIT ; A routine that tests some crap
    22612265"RTN","CCRUNIT",2,0)
    2262         ;;0.1;CCDCCR;;JUL 13, 2007;Build 11
     2266        ;;0.1;CCDCCR;;JUL 13, 2007;Build 12
    22632267"RTN","CCRUNIT",3,0)
    22642268        Q
     
    23022306CCRUTIL ;CCRCCD/SMH - Various Utilites for generating the CCR/CCD;06/15/08
    23032307"RTN","CCRUTIL",2,0)
    2304  ;;0.1;CCRCCD;;Jun 15, 2008;Build 11
     2308 ;;0.1;CCRCCD;;Jun 15, 2008;Build 12
    23052309"RTN","CCRUTIL",3,0)
    23062310 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    24642468CCRVA200 ;WV/CCDCCR/SMH - Routine to get Provider Data;07/13/2008
    24652469"RTN","CCRVA200",2,0)
    2466         ;;0.1;CCDCCR;;JUL 13, 2007;Build 11
     2470        ;;0.1;CCDCCR;;JUL 13, 2007;Build 12
    24672471"RTN","CCRVA200",3,0)
    24682472 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    28002804GPLACTOR  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
    28012805"RTN","GPLACTOR",2,0)
    2802  ;;0.4;CCDCCR;nopatch;noreleasedate;Build 11
     2806 ;;0.4;CCDCCR;nopatch;noreleasedate;Build 12
    28032807"RTN","GPLACTOR",3,0)
    28042808 ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    31943198GPLALERT  ; CCDCCR/CKU - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
    31953199"RTN","GPLALERT",2,0)
    3196           ;;0.1;CCDCCR;;SEP 11,2008;Build 11
     3200          ;;0.1;CCDCCR;;SEP 11,2008;Build 12
    31973201"RTN","GPLALERT",3,0)
    31983202          ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    33263330GPLCCD   ; CCDCCR/GPL - CCD MAIN PROCESSING; 6/6/08
    33273331"RTN","GPLCCD",2,0)
    3328  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
     3332 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
    33293333"RTN","GPLCCD",3,0)
    33303334 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    38703874GPLCCD1 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
    38713875"RTN","GPLCCD1",2,0)
    3872  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
     3876 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
    38733877"RTN","GPLCCD1",3,0)
    38743878 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    44064410GPLCCR   ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
    44074411"RTN","GPLCCR",2,0)
    4408  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
     4412 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
    44094413"RTN","GPLCCR",3,0)
    44104414 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    48644868GPLCCR0 ; CCDCCR/GPL - CCR TEMPLATE AND ACCESS ROUTINES; 5/31/08
    48654869"RTN","GPLCCR0",2,0)
    4866  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
     4870 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
    48674871"RTN","GPLCCR0",3,0)
    48684872 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    65086512GPLPROBS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR PROBLEMS ; 6/6/08
    65096513"RTN","GPLPROBS",2,0)
    6510  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
     6514 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
    65116515"RTN","GPLPROBS",3,0)
    65126516 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    67346738GPLRIMA   ; CCDCCR/GPL - RIM REPORT ROUTINES; 6/6/08
    67356739"RTN","GPLRIMA",2,0)
    6736  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
     6740 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
    67376741"RTN","GPLRIMA",3,0)
    67386742 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    75727576GPLUNIT ; CCDCCR/GPL - Unit Testing Library; 5/07/08
    75737577"RTN","GPLUNIT",2,0)
    7574  ;;0.1;CCDCCR;nopatch;noreleasedate;Build 11
     7578 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 12
    75757579"RTN","GPLUNIT",3,0)
    75767580 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    78867890GPLVITAL ; CCDCCR/CJE - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
    78877891"RTN","GPLVITAL",2,0)
    7888  ;;0.1;CCDCCR;;JUL 16,2008;Build 11
     7892 ;;0.1;CCDCCR;;JUL 16,2008;Build 12
    78897893"RTN","GPLVITAL",3,0)
    78907894 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     
    82798283"RTN","GPLVITAL",198,0)
    82808284 ;
     8285"RTN","GPLXPAT0")
     82860^21^B50983429
     8287"RTN","GPLXPAT0",1,0)
     8288GPLXPAT0   ; CCDCCR/GPL - XPATH TEST CASES ; 6/1/08
     8289"RTN","GPLXPAT0",2,0)
     8290 ;;0.2;CCDCCR;nopatch;noreleasedate;Build 12
     8291"RTN","GPLXPAT0",3,0)
     8292 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     8293"RTN","GPLXPAT0",4,0)
     8294 ;General Public License See attached copy of the License.
     8295"RTN","GPLXPAT0",5,0)
     8296 ;
     8297"RTN","GPLXPAT0",6,0)
     8298 ;This program is free software; you can redistribute it and/or modify
     8299"RTN","GPLXPAT0",7,0)
     8300 ;it under the terms of the GNU General Public License as published by
     8301"RTN","GPLXPAT0",8,0)
     8302 ;the Free Software Foundation; either version 2 of the License, or
     8303"RTN","GPLXPAT0",9,0)
     8304 ;(at your option) any later version.
     8305"RTN","GPLXPAT0",10,0)
     8306 ;
     8307"RTN","GPLXPAT0",11,0)
     8308 ;This program is distributed in the hope that it will be useful,
     8309"RTN","GPLXPAT0",12,0)
     8310 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
     8311"RTN","GPLXPAT0",13,0)
     8312 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     8313"RTN","GPLXPAT0",14,0)
     8314 ;GNU General Public License for more details.
     8315"RTN","GPLXPAT0",15,0)
     8316 ;
     8317"RTN","GPLXPAT0",16,0)
     8318 ;You should have received a copy of the GNU General Public License along
     8319"RTN","GPLXPAT0",17,0)
     8320 ;with this program; if not, write to the Free Software Foundation, Inc.,
     8321"RTN","GPLXPAT0",18,0)
     8322 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
     8323"RTN","GPLXPAT0",19,0)
     8324 ;
     8325"RTN","GPLXPAT0",20,0)
     8326        W "NO ENTRY",!
     8327"RTN","GPLXPAT0",21,0)
     8328        Q
     8329"RTN","GPLXPAT0",22,0)
     8330        ;
     8331"RTN","GPLXPAT0",23,0)
     8332 ;;><TEST>
     8333"RTN","GPLXPAT0",24,0)
     8334 ;;><INIT>
     8335"RTN","GPLXPAT0",25,0)
     8336 ;;>>>K GPL S GPL=""
     8337"RTN","GPLXPAT0",26,0)
     8338 ;;>>>D PUSH^GPLXPATH("GPL","FIRST")
     8339"RTN","GPLXPAT0",27,0)
     8340 ;;>>>D PUSH^GPLXPATH("GPL","SECOND")
     8341"RTN","GPLXPAT0",28,0)
     8342 ;;>>>D PUSH^GPLXPATH("GPL","THIRD")
     8343"RTN","GPLXPAT0",29,0)
     8344 ;;>>>D PUSH^GPLXPATH("GPL","FOURTH")
     8345"RTN","GPLXPAT0",30,0)
     8346 ;;>>?GPL(0)=4
     8347"RTN","GPLXPAT0",31,0)
     8348 ;;><INITXML>
     8349"RTN","GPLXPAT0",32,0)
     8350 ;;>>>K GXML S GXML=""
     8351"RTN","GPLXPAT0",33,0)
     8352 ;;>>>D PUSH^GPLXPATH("GXML","<FIRST>")
     8353"RTN","GPLXPAT0",34,0)
     8354 ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
     8355"RTN","GPLXPAT0",35,0)
     8356 ;;>>>D PUSH^GPLXPATH("GXML","<THIRD>")
     8357"RTN","GPLXPAT0",36,0)
     8358 ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>@@DATA1@@</FOURTH>")
     8359"RTN","GPLXPAT0",37,0)
     8360 ;;>>>D PUSH^GPLXPATH("GXML","<FIFTH>")
     8361"RTN","GPLXPAT0",38,0)
     8362 ;;>>>D PUSH^GPLXPATH("GXML","@@DATA2@@")
     8363"RTN","GPLXPAT0",39,0)
     8364 ;;>>>D PUSH^GPLXPATH("GXML","</FIFTH>")
     8365"RTN","GPLXPAT0",40,0)
     8366 ;;>>>D PUSH^GPLXPATH("GXML","<SIXTH ID=""SELF"" />")
     8367"RTN","GPLXPAT0",41,0)
     8368 ;;>>>D PUSH^GPLXPATH("GXML","</THIRD>")
     8369"RTN","GPLXPAT0",42,0)
     8370 ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
     8371"RTN","GPLXPAT0",43,0)
     8372 ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
     8373"RTN","GPLXPAT0",44,0)
     8374 ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
     8375"RTN","GPLXPAT0",45,0)
     8376 ;;>>>D PUSH^GPLXPATH("GXML","</FIRST>")
     8377"RTN","GPLXPAT0",46,0)
     8378 ;;><INITXML2>
     8379"RTN","GPLXPAT0",47,0)
     8380 ;;>>>K GXML S GXML=""
     8381"RTN","GPLXPAT0",48,0)
     8382 ;;>>>D PUSH^GPLXPATH("GXML","<FIRST>")
     8383"RTN","GPLXPAT0",49,0)
     8384 ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
     8385"RTN","GPLXPAT0",50,0)
     8386 ;;>>>D PUSH^GPLXPATH("GXML","<THIRD>")
     8387"RTN","GPLXPAT0",51,0)
     8388 ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA1</FOURTH>")
     8389"RTN","GPLXPAT0",52,0)
     8390 ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>")
     8391"RTN","GPLXPAT0",53,0)
     8392 ;;>>>D PUSH^GPLXPATH("GXML","DATA2")
     8393"RTN","GPLXPAT0",54,0)
     8394 ;;>>>D PUSH^GPLXPATH("GXML","</FOURTH>")
     8395"RTN","GPLXPAT0",55,0)
     8396 ;;>>>D PUSH^GPLXPATH("GXML","</THIRD>")
     8397"RTN","GPLXPAT0",56,0)
     8398 ;;>>>D PUSH^GPLXPATH("GXML","<_SECOND>")
     8399"RTN","GPLXPAT0",57,0)
     8400 ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA3</FOURTH>")
     8401"RTN","GPLXPAT0",58,0)
     8402 ;;>>>D PUSH^GPLXPATH("GXML","</_SECOND>")
     8403"RTN","GPLXPAT0",59,0)
     8404 ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
     8405"RTN","GPLXPAT0",60,0)
     8406 ;;>>>D PUSH^GPLXPATH("GXML","</FIRST>")
     8407"RTN","GPLXPAT0",61,0)
     8408 ;;><PUSHPOP>
     8409"RTN","GPLXPAT0",62,0)
     8410 ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPAT0")
     8411"RTN","GPLXPAT0",63,0)
     8412 ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT")
     8413"RTN","GPLXPAT0",64,0)
     8414 ;;>>?GPL(GPL(0))="FOURTH"
     8415"RTN","GPLXPAT0",65,0)
     8416 ;;>>>D POP^GPLXPATH("GPL",.GX)
     8417"RTN","GPLXPAT0",66,0)
     8418 ;;>>?GX="FOURTH"
     8419"RTN","GPLXPAT0",67,0)
     8420 ;;>>?GPL(GPL(0))="THIRD"
     8421"RTN","GPLXPAT0",68,0)
     8422 ;;>>>D POP^GPLXPATH("GPL",.GX)
     8423"RTN","GPLXPAT0",69,0)
     8424 ;;>>?GX="THIRD"
     8425"RTN","GPLXPAT0",70,0)
     8426 ;;>>?GPL(GPL(0))="SECOND"
     8427"RTN","GPLXPAT0",71,0)
     8428 ;;><MKMDX>
     8429"RTN","GPLXPAT0",72,0)
     8430 ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPAT0")
     8431"RTN","GPLXPAT0",73,0)
     8432 ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT")
     8433"RTN","GPLXPAT0",74,0)
     8434 ;;>>>S GX=""
     8435"RTN","GPLXPAT0",75,0)
     8436 ;;>>>D MKMDX^GPLXPATH("GPL",.GX)
     8437"RTN","GPLXPAT0",76,0)
     8438 ;;>>?GX="//FIRST/SECOND/THIRD/FOURTH"
     8439"RTN","GPLXPAT0",77,0)
     8440 ;;><XNAME>
     8441"RTN","GPLXPAT0",78,0)
     8442 ;;>>?$$XNAME^GPLXPATH("<FOURTH>DATA1</FOURTH>")="FOURTH"
     8443"RTN","GPLXPAT0",79,0)
     8444 ;;>>?$$XNAME^GPLXPATH("<SIXTH  ID=""SELF"" />")="SIXTH"
     8445"RTN","GPLXPAT0",80,0)
     8446 ;;>>?$$XNAME^GPLXPATH("</THIRD>")="THIRD"
     8447"RTN","GPLXPAT0",81,0)
     8448 ;;><INDEX>
     8449"RTN","GPLXPAT0",82,0)
     8450 ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPAT0")
     8451"RTN","GPLXPAT0",83,0)
     8452 ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INITXML")
     8453"RTN","GPLXPAT0",84,0)
     8454 ;;>>>D INDEX^GPLXPATH("GXML")
     8455"RTN","GPLXPAT0",85,0)
     8456 ;;>>?GXML("//FIRST/SECOND")="2^12"
     8457"RTN","GPLXPAT0",86,0)
     8458 ;;>>?GXML("//FIRST/SECOND/THIRD")="3^9"
     8459"RTN","GPLXPAT0",87,0)
     8460 ;;>>?GXML("//FIRST/SECOND/THIRD/FIFTH")="5^7"
     8461"RTN","GPLXPAT0",88,0)
     8462 ;;>>?GXML("//FIRST/SECOND/THIRD/FOURTH")="4^4"
     8463"RTN","GPLXPAT0",89,0)
     8464 ;;>>?GXML("//FIRST/SECOND/THIRD/SIXTH")="8^8"
     8465"RTN","GPLXPAT0",90,0)
     8466 ;;>>?GXML("//FIRST/SECOND")="2^12"
     8467"RTN","GPLXPAT0",91,0)
     8468 ;;>>?GXML("//FIRST")="1^13"
     8469"RTN","GPLXPAT0",92,0)
     8470 ;;><INDEX2>
     8471"RTN","GPLXPAT0",93,0)
     8472 ;;>>>D ZTEST^GPLXPATH("INITXML2")
     8473"RTN","GPLXPAT0",94,0)
     8474 ;;>>>D INDEX^GPLXPATH("GXML")
     8475"RTN","GPLXPAT0",95,0)
     8476 ;;>>?GXML("//FIRST/SECOND")="2^12"
     8477"RTN","GPLXPAT0",96,0)
     8478 ;;>>?GXML("//FIRST/SECOND/_SECOND")="9^11"
     8479"RTN","GPLXPAT0",97,0)
     8480 ;;>>?GXML("//FIRST/SECOND/_SECOND/FOURTH")="10^10"
     8481"RTN","GPLXPAT0",98,0)
     8482 ;;>>?GXML("//FIRST/SECOND/THIRD")="3^8"
     8483"RTN","GPLXPAT0",99,0)
     8484 ;;>>?GXML("//FIRST/SECOND/THIRD/FOURTH")="4^7"
     8485"RTN","GPLXPAT0",100,0)
     8486 ;;>>?GXML("//FIRST")="1^13"
     8487"RTN","GPLXPAT0",101,0)
     8488 ;;><MISSING>
     8489"RTN","GPLXPAT0",102,0)
     8490 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8491"RTN","GPLXPAT0",103,0)
     8492 ;;>>>S OUTARY="^TMP($J,""MISSINGTEST"")"
     8493"RTN","GPLXPAT0",104,0)
     8494 ;;>>>D MISSING^GPLXPATH("GXML",OUTARY)
     8495"RTN","GPLXPAT0",105,0)
     8496 ;;>>?@OUTARY@(1)="DATA1"
     8497"RTN","GPLXPAT0",106,0)
     8498 ;;>>?@OUTARY@(2)="DATA2"
     8499"RTN","GPLXPAT0",107,0)
     8500 ;;><MAP>
     8501"RTN","GPLXPAT0",108,0)
     8502 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8503"RTN","GPLXPAT0",109,0)
     8504 ;;>>>S MAPARY="^TMP($J,""MAPVALUES"")"
     8505"RTN","GPLXPAT0",110,0)
     8506 ;;>>>S OUTARY="^TMP($J,""MAPTEST"")"
     8507"RTN","GPLXPAT0",111,0)
     8508 ;;>>>S @MAPARY@("DATA2")="VALUE2"
     8509"RTN","GPLXPAT0",112,0)
     8510 ;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY)
     8511"RTN","GPLXPAT0",113,0)
     8512 ;;>>?@OUTARY@(6)="VALUE2"
     8513"RTN","GPLXPAT0",114,0)
     8514 ;;><MAP2>
     8515"RTN","GPLXPAT0",115,0)
     8516 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8517"RTN","GPLXPAT0",116,0)
     8518 ;;>>>S MAPARY="^TMP($J,""MAPVALUES"")"
     8519"RTN","GPLXPAT0",117,0)
     8520 ;;>>>S OUTARY="^TMP($J,""MAPTEST"")"
     8521"RTN","GPLXPAT0",118,0)
     8522 ;;>>>S @MAPARY@("DATA1")="VALUE1"
     8523"RTN","GPLXPAT0",119,0)
     8524 ;;>>>S @MAPARY@("DATA2")="VALUE2"
     8525"RTN","GPLXPAT0",120,0)
     8526 ;;>>>S @MAPARY@("DATA3")="VALUE3"
     8527"RTN","GPLXPAT0",121,0)
     8528 ;;>>>S GXML(4)="<FOURTH>@@DATA1@@ AND @@DATA3@@</FOURTH>"
     8529"RTN","GPLXPAT0",122,0)
     8530 ;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY)
     8531"RTN","GPLXPAT0",123,0)
     8532 ;;>>>D PARY^GPLXPATH(OUTARY)
     8533"RTN","GPLXPAT0",124,0)
     8534 ;;>>?@OUTARY@(4)="<FOURTH>VALUE1 AND VALUE3</FOURTH>"
     8535"RTN","GPLXPAT0",125,0)
     8536 ;;><QUEUE>
     8537"RTN","GPLXPAT0",126,0)
     8538 ;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",2,3)
     8539"RTN","GPLXPAT0",127,0)
     8540 ;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",4,5)
     8541"RTN","GPLXPAT0",128,0)
     8542 ;;>>?$P(BTLIST(2),";",2)=4
     8543"RTN","GPLXPAT0",129,0)
     8544 ;;><BUILD>
     8545"RTN","GPLXPAT0",130,0)
     8546 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8547"RTN","GPLXPAT0",131,0)
     8548 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FOURTH","G2")
     8549"RTN","GPLXPAT0",132,0)
     8550 ;;>>>D ZTEST^GPLXPATH("QUEUE")
     8551"RTN","GPLXPAT0",133,0)
     8552 ;;>>>D BUILD^GPLXPATH("BTLIST","G3")
     8553"RTN","GPLXPAT0",134,0)
     8554 ;;><CP>
     8555"RTN","GPLXPAT0",135,0)
     8556 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8557"RTN","GPLXPAT0",136,0)
     8558 ;;>>>D CP^GPLXPATH("GXML","G2")
     8559"RTN","GPLXPAT0",137,0)
     8560 ;;>>?G2(0)=13
     8561"RTN","GPLXPAT0",138,0)
     8562 ;;><QOPEN>
     8563"RTN","GPLXPAT0",139,0)
     8564 ;;>>>K G2,GBL
     8565"RTN","GPLXPAT0",140,0)
     8566 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8567"RTN","GPLXPAT0",141,0)
     8568 ;;>>>D QOPEN^GPLXPATH("GBL","GXML")
     8569"RTN","GPLXPAT0",142,0)
     8570 ;;>>?$P(GBL(1),";",3)=12
     8571"RTN","GPLXPAT0",143,0)
     8572 ;;>>>D BUILD^GPLXPATH("GBL","G2")
     8573"RTN","GPLXPAT0",144,0)
     8574 ;;>>?G2(G2(0))="</SECOND>"
     8575"RTN","GPLXPAT0",145,0)
     8576 ;;><QOPEN2>
     8577"RTN","GPLXPAT0",146,0)
     8578 ;;>>>K G2,GBL
     8579"RTN","GPLXPAT0",147,0)
     8580 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8581"RTN","GPLXPAT0",148,0)
     8582 ;;>>>D QOPEN^GPLXPATH("GBL","GXML","//FIRST/SECOND")
     8583"RTN","GPLXPAT0",149,0)
     8584 ;;>>?$P(GBL(1),";",3)=11
     8585"RTN","GPLXPAT0",150,0)
     8586 ;;>>>D BUILD^GPLXPATH("GBL","G2")
     8587"RTN","GPLXPAT0",151,0)
     8588 ;;>>?G2(G2(0))="</SECOND>"
     8589"RTN","GPLXPAT0",152,0)
     8590 ;;><QCLOSE>
     8591"RTN","GPLXPAT0",153,0)
     8592 ;;>>>K G2,GBL
     8593"RTN","GPLXPAT0",154,0)
     8594 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8595"RTN","GPLXPAT0",155,0)
     8596 ;;>>>D QCLOSE^GPLXPATH("GBL","GXML")
     8597"RTN","GPLXPAT0",156,0)
     8598 ;;>>?$P(GBL(1),";",3)=13
     8599"RTN","GPLXPAT0",157,0)
     8600 ;;>>>D BUILD^GPLXPATH("GBL","G2")
     8601"RTN","GPLXPAT0",158,0)
     8602 ;;>>?G2(G2(0))="</FIRST>"
     8603"RTN","GPLXPAT0",159,0)
     8604 ;;><QCLOSE2>
     8605"RTN","GPLXPAT0",160,0)
     8606 ;;>>>K G2,GBL
     8607"RTN","GPLXPAT0",161,0)
     8608 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8609"RTN","GPLXPAT0",162,0)
     8610 ;;>>>D QCLOSE^GPLXPATH("GBL","GXML","//FIRST/SECOND/THIRD")
     8611"RTN","GPLXPAT0",163,0)
     8612 ;;>>?$P(GBL(1),";",3)=13
     8613"RTN","GPLXPAT0",164,0)
     8614 ;;>>>D BUILD^GPLXPATH("GBL","G2")
     8615"RTN","GPLXPAT0",165,0)
     8616 ;;>>?G2(G2(0))="</FIRST>"
     8617"RTN","GPLXPAT0",166,0)
     8618 ;;>>?G2(1)="</THIRD>"
     8619"RTN","GPLXPAT0",167,0)
     8620 ;;><INSERT>
     8621"RTN","GPLXPAT0",168,0)
     8622 ;;>>>K G2,GBL,G3,G4
     8623"RTN","GPLXPAT0",169,0)
     8624 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8625"RTN","GPLXPAT0",170,0)
     8626 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
     8627"RTN","GPLXPAT0",171,0)
     8628 ;;>>>D INSERT^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
     8629"RTN","GPLXPAT0",172,0)
     8630 ;;>>>D INSERT^GPLXPATH("G3","G2","//")
     8631"RTN","GPLXPAT0",173,0)
     8632 ;;>>?G2(1)=GXML(9)
     8633"RTN","GPLXPAT0",174,0)
     8634 ;;><REPLACE>
     8635"RTN","GPLXPAT0",175,0)
     8636 ;;>>>K G2,GBL,G3
     8637"RTN","GPLXPAT0",176,0)
     8638 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8639"RTN","GPLXPAT0",177,0)
     8640 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
     8641"RTN","GPLXPAT0",178,0)
     8642 ;;>>>D REPLACE^GPLXPATH("GXML","G2","//FIRST/SECOND")
     8643"RTN","GPLXPAT0",179,0)
     8644 ;;>>?GXML(2)="<FIFTH>"
     8645"RTN","GPLXPAT0",180,0)
     8646 ;;><INSINNER>
     8647"RTN","GPLXPAT0",181,0)
     8648 ;;>>>K GXML,G2,GBL,G3
     8649"RTN","GPLXPAT0",182,0)
     8650 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8651"RTN","GPLXPAT0",183,0)
     8652 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
     8653"RTN","GPLXPAT0",184,0)
     8654 ;;>>>D INSINNER^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
     8655"RTN","GPLXPAT0",185,0)
     8656 ;;>>?GXML(10)="<FIFTH>"
     8657"RTN","GPLXPAT0",186,0)
     8658 ;;><INSINNER2>
     8659"RTN","GPLXPAT0",187,0)
     8660 ;;>>>K GXML,G2,GBL,G3
     8661"RTN","GPLXPAT0",188,0)
     8662 ;;>>>D ZTEST^GPLXPATH("INITXML")
     8663"RTN","GPLXPAT0",189,0)
     8664 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
     8665"RTN","GPLXPAT0",190,0)
     8666 ;;>>>D INSINNER^GPLXPATH("G2","G2")
     8667"RTN","GPLXPAT0",191,0)
     8668 ;;>>?G2(8)="<FIFTH>"
     8669"RTN","GPLXPAT0",192,0)
     8670 ;;><PUSHA>
     8671"RTN","GPLXPAT0",193,0)
     8672 ;;>>>K GTMP,GTMP2
     8673"RTN","GPLXPAT0",194,0)
     8674 ;;>>>N GTMP,GTMP2
     8675"RTN","GPLXPAT0",195,0)
     8676 ;;>>>D PUSH^GPLXPATH("GTMP","A")
     8677"RTN","GPLXPAT0",196,0)
     8678 ;;>>>D PUSH^GPLXPATH("GTMP2","B")
     8679"RTN","GPLXPAT0",197,0)
     8680 ;;>>>D PUSH^GPLXPATH("GTMP2","C")
     8681"RTN","GPLXPAT0",198,0)
     8682 ;;>>>D PUSHA^GPLXPATH("GTMP","GTMP2")
     8683"RTN","GPLXPAT0",199,0)
     8684 ;;>>?GTMP(3)="C"
     8685"RTN","GPLXPAT0",200,0)
     8686 ;;>>?GTMP(0)=3
     8687"RTN","GPLXPAT0",201,0)
     8688 ;;><H2ARY>
     8689"RTN","GPLXPAT0",202,0)
     8690 ;;>>>K GTMP,GTMP2
     8691"RTN","GPLXPAT0",203,0)
     8692 ;;>>>S GTMP("TEST1")=1
     8693"RTN","GPLXPAT0",204,0)
     8694 ;;>>>D H2ARY^GPLXPATH("GTMP2","GTMP")
     8695"RTN","GPLXPAT0",205,0)
     8696 ;;>>?GTMP2(0)=1
     8697"RTN","GPLXPAT0",206,0)
     8698 ;;>>?GTMP2(1)="TEST1^1"
     8699"RTN","GPLXPAT0",207,0)
     8700 ;;><XVARS>
     8701"RTN","GPLXPAT0",208,0)
     8702 ;;>>>K GTMP,GTMP2
     8703"RTN","GPLXPAT0",209,0)
     8704 ;;>>>D PUSH^GPLXPATH("GTMP","<VALUE>@@VAR1@@</VALUE>")
     8705"RTN","GPLXPAT0",210,0)
     8706 ;;>>>D XVARS^GPLXPATH("GTMP2","GTMP")
     8707"RTN","GPLXPAT0",211,0)
     8708 ;;>>?GTMP2(1)="VAR1^"
     8709"RTN","GPLXPAT0",212,0)
     8710 ;;></TEST>
    82818711"RTN","GPLXPATH")
    828287120^9^B241520746
     
    82848714GPLXPATH   ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
    82858715"RTN","GPLXPATH",2,0)
    8286  ;;0.2;CCDCCR;nopatch;noreleasedate;Build 11
     8716 ;;0.2;CCDCCR;nopatch;noreleasedate;Build 12
    82878717"RTN","GPLXPATH",3,0)
    82888718 ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
Note: See TracChangeset for help on using the changeset viewer.