included missing routines
This commit is contained in:
george
parent
8cf0229ead
commit
a5d1688492
|
|
@ -1,5 +1,5 @@
|
|||
KIDS Distribution saved on Oct 09, 2008@14:24:50
|
||||
New KIDS build with missing routines
|
||||
KIDS Distribution saved on Oct 09, 2008@16:24:27
|
||||
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)
|
||||
|
|
|
|||
Loading…
Reference in New Issue