iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Format changes for SAC compliance

This commit is contained in:
george 2008-07-05 15:49:50 +00:00
parent 1274bd8d14
commit 8abe8a52e1
5 changed files with 279 additions and 216 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
p/GPLACTORS.m
View File

@ -14,41 +14,96 @@ EXTRACT(IPXML,ALST,OUTXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
. S AIEN=$P(@ALST@(I),"^",3) ; ACTOR RECORD NUMBER . S AIEN=$P(@ALST@(I),"^",3) ; ACTOR RECORD NUMBER
. I ATYP="" Q ; NOT A VALID ACTOR . I ATYP="" Q ; NOT A VALID ACTOR
. ; . ;
. ; MAP ACTOR VARIABLES HERE . I ATYP="PATIENT" D ; PATIENT ACTOR TYPE
. . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-PATIENT","ATMP")
. . D PATIENT("ATMP",@ALST@(I),"ATMP2")
. ; . ;
. S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID . I ATYP="SYSTEM" D ; SYSTEM ACTOR TYPE
. S @AMAP@("ACTORGIVENNAME")="" . . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-SYSTEM","ATMP")
. S @AMAP@("ACTORMIDDLENAME")="" . . D SYSTEM("ATMP",@ALST@(I),"ATMP2")
. S @AMAP@("ACTORFAMILYNAME")=""
. S @AMAP@("ACTORDATEOFBIRTH")=""
. S @AMAP@("ACTORGENDER")=""
. S @AMAP@("ACTORSSN")=""
. S @AMAP@("ACTORSSNSOURCEID")=""
. S @AMAP@("ACTORADDRESSTYPE")=""
. S @AMAP@("ACTORADDRESSLINE1")=""
. S @AMAP@("ACTORADDRESSLINE2")=""
. S @AMAP@("ACTORADDRESSCITY")=""
. S @AMAP@("ACTORADDRESSSTATE")=""
. S @AMAP@("ACTORADDRESSZIPCODE")=""
. S @AMAP@("ACTORTELEPHONE")=""
. S @AMAP@("ACTORTELEPHONETYPE")=""
. S @AMAP@("ACTOREMAIL")=""
. S @AMAP@("ACTORADDRESSSOURCEID")=""
. S @AMAP@("ACTORINFOSYSNAME")=""
. S @AMAP@("ACTORINFOSYSSOURCEID")=""
. S @AMAP@("ACTORDISPLAYNAME")=""
. S @AMAP@("ACTORRELATION")=""
. S @AMAP@("ACTORRELATIONSOURCEID")=""
. S @AMAP@("ACTORSPECIALITY")=""
. ; . ;
. I ATYP="NOK" D ; NOK ACTOR TYPE
. . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-NOK","ATMP")
. . D NOK("ATMP",@ALST@(I),"ATMP2")
. ;
. I ATYP="PROVIDER" D ; PROVIDER ACTOR TYPE
. . D QUERY^GPLXPATH(IPXML,"//Actors/ACTOR-PROVIDER","ATMP")
. . D PROVIDER("ATMP",@ALST@(I),"ATMP2")
. ; . ;
. D MAP^GPLXPATH(INXML,AMAP,"ATMP") ; MAP THE VARIABLE
. I FIRST D ; FIRST TIME , ONLY COPY THE ARRAY . I FIRST D ; FIRST TIME , ONLY COPY THE ARRAY
. . D CP^GPLXPATH("ATMP",OUTXML) ; . . D CP^GPLXPATH("ATMP",OUTXML) ;
. . S FIRST=0 ; NO LONGER THE FIRST TIME . . S FIRST=0 ; NO LONGER THE FIRST TIME
. I 'FIRST D ; ALL NON-FIRST ACTORS MUST BE INSERTED . I 'FIRST D ; ALL NON-FIRST ACTORS MUST BE INSERTED
. . D INSERT^GPLXPATH("ATMP","//",OUTXML) ; INSERT AT ROOT . . D INSERT^GPLXPATH("ATMP","//",OUTXML) ; INSERT AT ROOT
; ;
D MISSING^GPLXPATH(OUTXML,"ACTTMP") ; SEARCH XML FOR MISSING VARS
I ACTTMP(0)>0 D ; IF THERE ARE MISSING VARS -
. ; STRINGS MARKED AS @@X@@
. W "ACTORS Missing list: ",!
. F I=1:1:ACTTMP(0) W ACTTMP(I),!
Q
;
PATIENT(INXML,ACTREC,OUTXML) ; PROCESS A PATIENT ACTOR
;
N AMAP
S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
S @AMAP@("ACTORGIVENNAME")=""
S @AMAP@("ACTORMIDDLENAME")=""
S @AMAP@("ACTORFAMILYNAME")=""
S @AMAP@("ACTORDATEOFBIRTH")=""
S @AMAP@("ACTORGENDER")=""
S @AMAP@("ACTORSSN")=""
S @AMAP@("ACTORSSNSOURCEID")=""
S @AMAP@("ACTORADDRESSTYPE")=""
S @AMAP@("ACTORADDRESSLINE1")=""
S @AMAP@("ACTORADDRESSLINE2")=""
S @AMAP@("ACTORADDRESSCITY")=""
S @AMAP@("ACTORADDRESSSTATE")=""
S @AMAP@("ACTORADDRESSZIPCODE")=""
S @AMAP@("ACTORTELEPHONE")=""
S @AMAP@("ACTORTELEPHONETYPE")=""
S @AMAP@("ACTOREMAIL")=""
S @AMAP@("ACTORADDRESSSOURCEID")=""
D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
Q
;
SYSTEM(INXML,ACTREC,OUTXML) ; PROCESS A SYSTEM ACTOR
;
N AMAP
S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
S @AMAP@("ACTORINFOSYSNAME")=""
S @AMAP@("ACTORINFOSYSSOURCEID")=""
D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
Q
;
NOK(INXML,ACTREC,OUTXML) ; PROCESS A NEXT OF KIN TYPE ACTOR
;
N AMAP
S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
S @AMAP@("ACTORDISPLAYNAME")=""
S @AMAP@("ACTORRELATION")=""
S @AMAP@("ACTORRELATIONSOURCEID")=""
D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
Q
;
PROVIDER(INXML,ACTREC,OUTXML) ; PROCESS A PROVIDER TYPE ACTOR
;
N AMAP
S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
S @AMAP@("ACTORGIVENNAME")=""
S @AMAP@("ACTORMIDDLENAME")=""
S @AMAP@("ACTORFAMILYNAME")=""
S @AMAP@("ACTORSPECIALITY")=""
S @AMAP@("ACTORADDRESSTYPE")=""
S @AMAP@("ACTORADDRESSLINE1")=""
S @AMAP@("ACTORADDRESSLINE2")=""
S @AMAP@("ACTORADDRESSCITY")=""
S @AMAP@("ACTORADDRESSSTATE")=""
S @AMAP@("ACTORADDRESSZIPCODE")=""
S @AMAP@("ACTORTELEPHONE")=""
S @AMAP@("ACTORTELEPHONETYPE")=""
S @AMAP@("ACTOREMAIL")=""
S @AMAP@("ACTORADDRESSSOURCEID")=""
D MAP^GPLXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
Q Q
; ;

46
p/GPLCCR.m
View File

@ -1,5 +1,5 @@
GPLCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08 GPLCCR ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
;;0.1;CCDCCR;nopatch;noreleasedate ;;0.1;CCDCCR;nopatch;noreleasedate
; ;
; EXPORT A CCR ; EXPORT A CCR
; ;
@ -128,26 +128,30 @@ ZTEST(WHICH) ; RUN ONE SET OF TESTS
Q Q
; ;
TLIST ; LIST THE TESTS TLIST ; LIST THE TESTS
N ZTMP N ZTMP,GNEW
D ZLOAD^GPLUNIT("ZTMP","GPLCCR") D ZLOAD^GPLUNIT("ZTMP","GPLCCR")
D TLIST^GPLUNIT(.ZTMP) D TLIST^GPLUNIT(.ZTMP)
Q Q
; ; LAST LINE BEFORE TESTS
;;><TEST> NEW ; new debugging routine
;;><PROBLEMS> W "this is new",!
;;>>>K GPL S GPL="" Q
;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS","","","") ; end of NEW
;;>>?@GPL@(@GPL@(0))["</Problems>" ;;><TEST>
;;><VITALS> ;;><PROBLEMS>
;;>>>K GPL S GPL="" ;;>>>K GPL S GPL=""
;;>>>D CCRRPC^GPLCCR(.GPL,"2","VITALS","","","") ;;>>>D CCRRPC^GPLCCR(.GPL,"2","PROBLEMS","","","")
;;>>?@GPL@(@GPL@(0))["</VitalSigns>" ;;>>?@GPL@(@GPL@(0))["</Problems>"
;;><CCR> ;;><VITALS>
;;>>>K GPL S GPL="" ;;>>>K GPL S GPL=""
;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","") ;;>>>D CCRRPC^GPLCCR(.GPL,"2","VITALS","","","")
;;>>?@GPL@(@GPL@(0))["</ContinuityOfCareRecord>" ;;>>?@GPL@(@GPL@(0))["</VitalSigns>"
;;><ACTLST> ;;><CCR>
;;>>>K GPL S GPL="" ;;>>>K GPL S GPL=""
;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","") ;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
;;>>>D ACTLST^GPLCCR(GPL,"ACTTEST") ;;>>?@GPL@(@GPL@(0))["</ContinuityOfCareRecord>"
;;></TEST> ;;><ACTLST>
;;>>>K GPL S GPL=""
;;>>>D CCRRPC^GPLCCR(.GPL,"2","CCR","","","")
;;>>>D ACTLST^GPLCCR(GPL,"ACTTEST")
;;></TEST>

3
p/GPLPROBS.m
View File

@ -57,7 +57,8 @@ EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT PROBLEMS INTO PROVIDED XML TEMPLATE
; $$HTML^DILF( ; $$HTML^DILF(
N PROBSTMP,I N PROBSTMP,I
D MISSING^GPLXPATH(ARYTMP,"PROBSTMP") ; SEARCH XML FOR MISSING VARS D MISSING^GPLXPATH(ARYTMP,"PROBSTMP") ; SEARCH XML FOR MISSING VARS
I PROBSTMP(0)>0 D ; IF THERE ARE MISSING VARS - STRINGS MARKED AS @@X@@ I PROBSTMP(0)>0 D ; IF THERE ARE MISSING VARS -
. ; STRINGS MARKED AS @@X@@
. W "PROBLEMS Missing list: ",! . W "PROBLEMS Missing list: ",!
. F I=1:1:PROBSTMP(0) W PROBSTMP(I),! . F I=1:1:PROBSTMP(0) W PROBSTMP(I),!
Q Q

1
p/GPLUNIT.m
View File

@ -38,6 +38,7 @@ ZLOAD(ZARY,ROUTINE) ; load tests into ZARY which is passed by reference
N SECTION S SECTION="[anonymous]" ; test case section N SECTION S SECTION="[anonymous]" ; test case section
; ;
N NUM F NUM=1:1 S LINE=$T(+NUM^@ROUTINE) Q:LINE="" D N NUM F NUM=1:1 S LINE=$T(+NUM^@ROUTINE) Q:LINE="" D
. W NUM," ",LINE,!
. I LINE?." "1";;><TEST>".E S INTEST=1 ; entering test section . I LINE?." "1";;><TEST>".E S INTEST=1 ; entering test section
. I LINE?." "1";;><TEMPLATE>".E S INTEST=1 ; entering TEMPLATE section . I LINE?." "1";;><TEMPLATE>".E S INTEST=1 ; entering TEMPLATE section
. I LINE?." "1";;></TEST>".E S INTEST=0 ; leaving test section . I LINE?." "1";;></TEST>".E S INTEST=0 ; leaving test section

332
p/GPLXPATH.m
View File

@ -1,5 +1,5 @@
GPLXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08 GPLXPATH ; CCDCCR/GPL - XPATH XML manipulation utilities; 6/1/08
;;0.2;CCDCCR;nopatch;noreleasedate ;;0.2;CCDCCR;nopatch;noreleasedate
W "This is an XML XPATH utility library",! W "This is an XML XPATH utility library",!
W ! W !
Q Q
@ -23,8 +23,10 @@ PUSH(STK,VAL) ; pushs VAL onto STK and updates STK(0)
POP(STK,VAL) ; POPS THE LAST VALUE OFF THE STK AND RETURNS IT IN VAL POP(STK,VAL) ; POPS THE LAST VALUE OFF THE STK AND RETURNS IT IN VAL
; VAL AND STK ARE PASSED BY REFERENCE ; VAL AND STK ARE PASSED BY REFERENCE
; ;
I @STK@(0)<1 S VAL="",@STK@(0)=0 Q ; IF ARRAY IS EMPTY I @STK@(0)<1 D ; IF ARRAY IS EMPTY
I @STK@(0)>0 D . S VAL=""
. S @STK@(0)=0
I @STK@(0)>0 D ;
. S VAL=@STK@(@STK@(0)) . S VAL=@STK@(@STK@(0))
. K @STK@(@STK@(0)) . K @STK@(@STK@(0))
. S @STK@(0)=@STK@(0)-1 ; NEW DEPTH OF THE ARRAY . S @STK@(0)=@STK@(0)-1 ; NEW DEPTH OF THE ARRAY
@ -242,12 +244,12 @@ INSERT(INSXML,INSNEW,INSXPATH) ; INSERT INSNEW INTO INSXML AT THE
N INSBLD,INSTMP N INSBLD,INSTMP
I DEBUG W "DOING INSERT ",INSXML,INSNEW,INSXPATH,! I DEBUG W "DOING INSERT ",INSXML,INSNEW,INSXPATH,!
I DEBUG F G1=1:1:@INSXML@(0) W @INSXML@(G1),! I DEBUG F G1=1:1:@INSXML@(0) W @INSXML@(G1),!
I '$D(@INSXML@(0)) D Q ; INSERT INTO AN EMPTY ARRAY I '$D(@INSXML@(0)) D ; INSERT INTO AN EMPTY ARRAY
. D CP^GPLXPATH(INSNEW,INSXML) ; JUST COPY INTO THE OUTPUT . D CP^GPLXPATH(INSNEW,INSXML) ; JUST COPY INTO THE OUTPUT
I $D(@INSXML@(0)) D ; IF ORIGINAL ARRAY IS NOT EMPTY I $D(@INSXML@(0)) D ; IF ORIGINAL ARRAY IS NOT EMPTY
. I $D(INSXPATH) D ; XPATH PROVIDED . I $D(INSXPATH) D ; XPATH PROVIDED
. . D QOPEN("INSBLD",INSXML,INSXPATH) ; COPY THE BEFORE . . D QOPEN("INSBLD",INSXML,INSXPATH) ; COPY THE BEFORE
. . I DEBUG ZWR INSBLD . . I DEBUG D PARY^GPLXPATH("INSBLD")
. I '$D(INSXPATH) D ; NO XPATH PROVIDED, OPEN AT ROOT . I '$D(INSXPATH) D ; NO XPATH PROVIDED, OPEN AT ROOT
. . D QOPEN("INSBLD",INSXML,"//") ; OPEN WITH ROOT XPATH . . D QOPEN("INSBLD",INSXML,"//") ; OPEN WITH ROOT XPATH
. D QUEUE("INSBLD",INSNEW,1,@INSNEW@(0)) ; COPY IN NEW XML . D QUEUE("INSBLD",INSNEW,1,@INSNEW@(0)) ; COPY IN NEW XML
@ -294,7 +296,7 @@ REPLACE(REXML,RENEW,REXPATH) ; REPLACE THE XML AT THE XPATH POINT
. D QUEUE("REBLD",RENEW,1,@RENEW@(0)) ; THE NEW . D QUEUE("REBLD",RENEW,1,@RENEW@(0)) ; THE NEW
D QUEUE("REBLD",REXML,XLAST,@REXML@(0)) ; THE REST D QUEUE("REBLD",REXML,XLAST,@REXML@(0)) ; THE REST
I DEBUG W "REPALCE PREBUILD",! I DEBUG W "REPALCE PREBUILD",!
I DEBUG ZWR REBLD I DEBUG D PARY("REBLD")
D BUILD("REBLD","RTMP") D BUILD("REBLD","RTMP")
K @REXML ; KILL WHAT WAS THERE K @REXML ; KILL WHAT WAS THERE
D CP("RTMP",REXML) ; COPY IN THE RESULT D CP("RTMP",REXML) ; COPY IN THE RESULT
@ -361,162 +363,162 @@ TLIST ; LIST THE TESTS
D TLIST^GPLUNIT(.ZTMP) D TLIST^GPLUNIT(.ZTMP)
Q Q
; ;
;;><TEST> ;;><TEST>
;;><INIT> ;;><INIT>
;;>>>K GPL S GPL="" ;;>>>K GPL S GPL=""
;;>>>D PUSH^GPLXPATH("GPL","FIRST") ;;>>>D PUSH^GPLXPATH("GPL","FIRST")
;;>>>D PUSH^GPLXPATH("GPL","SECOND") ;;>>>D PUSH^GPLXPATH("GPL","SECOND")
;;>>>D PUSH^GPLXPATH("GPL","THIRD") ;;>>>D PUSH^GPLXPATH("GPL","THIRD")
;;>>>D PUSH^GPLXPATH("GPL","FOURTH") ;;>>>D PUSH^GPLXPATH("GPL","FOURTH")
;;>>?GPL(0)=4 ;;>>?GPL(0)=4
;;><INITXML> ;;><INITXML>
;;>>>K GXML S GXML="" ;;>>>K GXML S GXML=""
;;>>>D PUSH^GPLXPATH("GXML","<FIRST>") ;;>>>D PUSH^GPLXPATH("GXML","<FIRST>")
;;>>>D PUSH^GPLXPATH("GXML","<SECOND>") ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
;;>>>D PUSH^GPLXPATH("GXML","<THIRD>") ;;>>>D PUSH^GPLXPATH("GXML","<THIRD>")
;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>@@DATA1@@</FOURTH>") ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>@@DATA1@@</FOURTH>")
;;>>>D PUSH^GPLXPATH("GXML","<FIFTH>") ;;>>>D PUSH^GPLXPATH("GXML","<FIFTH>")
;;>>>D PUSH^GPLXPATH("GXML","@@DATA2@@") ;;>>>D PUSH^GPLXPATH("GXML","@@DATA2@@")
;;>>>D PUSH^GPLXPATH("GXML","</FIFTH>") ;;>>>D PUSH^GPLXPATH("GXML","</FIFTH>")
;;>>>D PUSH^GPLXPATH("GXML","<SIXTH ID=""SELF"" />") ;;>>>D PUSH^GPLXPATH("GXML","<SIXTH ID=""SELF"" />")
;;>>>D PUSH^GPLXPATH("GXML","</THIRD>") ;;>>>D PUSH^GPLXPATH("GXML","</THIRD>")
;;>>>D PUSH^GPLXPATH("GXML","<SECOND>") ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
;;>>>D PUSH^GPLXPATH("GXML","</SECOND>") ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
;;>>>D PUSH^GPLXPATH("GXML","</SECOND>") ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
;;>>>D PUSH^GPLXPATH("GXML","</FIRST>") ;;>>>D PUSH^GPLXPATH("GXML","</FIRST>")
;;><INITXML2> ;;><INITXML2>
;;>>>K GXML S GXML="" ;;>>>K GXML S GXML=""
;;>>>D PUSH^GPLXPATH("GXML","<FIRST>") ;;>>>D PUSH^GPLXPATH("GXML","<FIRST>")
;;>>>D PUSH^GPLXPATH("GXML","<SECOND>") ;;>>>D PUSH^GPLXPATH("GXML","<SECOND>")
;;>>>D PUSH^GPLXPATH("GXML","<THIRD>") ;;>>>D PUSH^GPLXPATH("GXML","<THIRD>")
;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA1</FOURTH>") ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA1</FOURTH>")
;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>") ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>")
;;>>>D PUSH^GPLXPATH("GXML","DATA2") ;;>>>D PUSH^GPLXPATH("GXML","DATA2")
;;>>>D PUSH^GPLXPATH("GXML","</FOURTH>") ;;>>>D PUSH^GPLXPATH("GXML","</FOURTH>")
;;>>>D PUSH^GPLXPATH("GXML","</THIRD>") ;;>>>D PUSH^GPLXPATH("GXML","</THIRD>")
;;>>>D PUSH^GPLXPATH("GXML","<_SECOND>") ;;>>>D PUSH^GPLXPATH("GXML","<_SECOND>")
;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA3</FOURTH>") ;;>>>D PUSH^GPLXPATH("GXML","<FOURTH>DATA3</FOURTH>")
;;>>>D PUSH^GPLXPATH("GXML","</_SECOND>") ;;>>>D PUSH^GPLXPATH("GXML","</_SECOND>")
;;>>>D PUSH^GPLXPATH("GXML","</SECOND>") ;;>>>D PUSH^GPLXPATH("GXML","</SECOND>")
;;>>>D PUSH^GPLXPATH("GXML","</FIRST>") ;;>>>D PUSH^GPLXPATH("GXML","</FIRST>")
;;><PUSHPOP> ;;><PUSHPOP>
;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH") ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT") ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT")
;;>>?GPL(GPL(0))="FOURTH" ;;>>?GPL(GPL(0))="FOURTH"
;;>>>D POP^GPLXPATH("GPL",.GX) ;;>>>D POP^GPLXPATH("GPL",.GX)
;;>>?GX="FOURTH" ;;>>?GX="FOURTH"
;;>>?GPL(GPL(0))="THIRD" ;;>>?GPL(GPL(0))="THIRD"
;;>>>D POP^GPLXPATH("GPL",.GX) ;;>>>D POP^GPLXPATH("GPL",.GX)
;;>>?GX="THIRD" ;;>>?GX="THIRD"
;;>>?GPL(GPL(0))="SECOND" ;;>>?GPL(GPL(0))="SECOND"
;;><MKMDX> ;;><MKMDX>
;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH") ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT") ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INIT")
;;>>>S GX="" ;;>>>S GX=""
;;>>>D MKMDX^GPLXPATH("GPL",.GX) ;;>>>D MKMDX^GPLXPATH("GPL",.GX)
;;>>?GX="//FIRST/SECOND/THIRD/FOURTH" ;;>>?GX="//FIRST/SECOND/THIRD/FOURTH"
;;><XNAME> ;;><XNAME>
;;>>?$$XNAME^GPLXPATH("<FOURTH>DATA1</FOURTH>")="FOURTH" ;;>>?$$XNAME^GPLXPATH("<FOURTH>DATA1</FOURTH>")="FOURTH"
;;>>?$$XNAME^GPLXPATH("<SIXTH ID=""SELF"" />")="SIXTH" ;;>>?$$XNAME^GPLXPATH("<SIXTH ID=""SELF"" />")="SIXTH"
;;>>?$$XNAME^GPLXPATH("</THIRD>")="THIRD" ;;>>?$$XNAME^GPLXPATH("</THIRD>")="THIRD"
;;><INDEX> ;;><INDEX>
;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH") ;;>>>D ZLOAD^GPLUNIT("ZTMP","GPLXPATH")
;;>>>D ZTEST^GPLUNIT(.ZTMP,"INITXML") ;;>>>D ZTEST^GPLUNIT(.ZTMP,"INITXML")
;;>>>D INDEX^GPLXPATH("GXML") ;;>>>D INDEX^GPLXPATH("GXML")
;;>>?GXML("//FIRST/SECOND")="2^12" ;;>>?GXML("//FIRST/SECOND")="2^12"
;;>>?GXML("//FIRST/SECOND/THIRD")="3^9" ;;>>?GXML("//FIRST/SECOND/THIRD")="3^9"
;;>>?GXML("//FIRST/SECOND/THIRD/FIFTH")="5^7" ;;>>?GXML("//FIRST/SECOND/THIRD/FIFTH")="5^7"
;;>>?GXML("//FIRST/SECOND/THIRD/FOURTH")="4^4" ;;>>?GXML("//FIRST/SECOND/THIRD/FOURTH")="4^4"
;;>>?GXML("//FIRST/SECOND/THIRD/SIXTH")="8^8" ;;>>?GXML("//FIRST/SECOND/THIRD/SIXTH")="8^8"
;;>>?GXML("//FIRST/SECOND")="2^12" ;;>>?GXML("//FIRST/SECOND")="2^12"
;;>>?GXML("//FIRST")="1^13" ;;>>?GXML("//FIRST")="1^13"
;;><INDEX2> ;;><INDEX2>
;;>>>D ZTEST^GPLXPATH("INITXML2") ;;>>>D ZTEST^GPLXPATH("INITXML2")
;;>>>D INDEX^GPLXPATH("GXML") ;;>>>D INDEX^GPLXPATH("GXML")
;;>>?GXML("//FIRST/SECOND")="2^12" ;;>>?GXML("//FIRST/SECOND")="2^12"
;;>>?GXML("//FIRST/SECOND/_SECOND")="9^11" ;;>>?GXML("//FIRST/SECOND/_SECOND")="9^11"
;;>>?GXML("//FIRST/SECOND/_SECOND/FOURTH")="10^10" ;;>>?GXML("//FIRST/SECOND/_SECOND/FOURTH")="10^10"
;;>>?GXML("//FIRST/SECOND/THIRD")="3^8" ;;>>?GXML("//FIRST/SECOND/THIRD")="3^8"
;;>>?GXML("//FIRST/SECOND/THIRD/FOURTH")="4^7" ;;>>?GXML("//FIRST/SECOND/THIRD/FOURTH")="4^7"
;;>>?GXML("//FIRST")="1^13" ;;>>?GXML("//FIRST")="1^13"
;;><MISSING> ;;><MISSING>
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>S OUTARY="^TMP($J,""MISSINGTEST"")" ;;>>>S OUTARY="^TMP($J,""MISSINGTEST"")"
;;>>>D MISSING^GPLXPATH("GXML",OUTARY) ;;>>>D MISSING^GPLXPATH("GXML",OUTARY)
;;>>?@OUTARY@(1)="DATA1" ;;>>?@OUTARY@(1)="DATA1"
;;>>?@OUTARY@(2)="DATA2" ;;>>?@OUTARY@(2)="DATA2"
;;><MAP> ;;><MAP>
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>S MAPARY="^TMP($J,""MAPVALUES"")" ;;>>>S MAPARY="^TMP($J,""MAPVALUES"")"
;;>>>S OUTARY="^TMP($J,""MAPTEST"")" ;;>>>S OUTARY="^TMP($J,""MAPTEST"")"
;;>>>S @MAPARY@("DATA2")="VALUE2" ;;>>>S @MAPARY@("DATA2")="VALUE2"
;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY) ;;>>>D MAP^GPLXPATH("GXML",MAPARY,OUTARY)
;;>>?@OUTARY@(6)="VALUE2" ;;>>?@OUTARY@(6)="VALUE2"
;;><QUEUE> ;;><QUEUE>
;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",2,3) ;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",2,3)
;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",4,5) ;;>>>D QUEUE^GPLXPATH("BTLIST","GXML",4,5)
;;>>?$P(BTLIST(2),";",2)=4 ;;>>?$P(BTLIST(2),";",2)=4
;;><BUILD> ;;><BUILD>
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FOURTH","G2") ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FOURTH","G2")
;;>>>D ZTEST^GPLXPATH("QUEUE") ;;>>>D ZTEST^GPLXPATH("QUEUE")
;;>>>D BUILD^GPLXPATH("BTLIST","G3") ;;>>>D BUILD^GPLXPATH("BTLIST","G3")
;;><CP> ;;><CP>
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D CP^GPLXPATH("GXML","G2") ;;>>>D CP^GPLXPATH("GXML","G2")
;;>>?G2(0)=13 ;;>>?G2(0)=13
;;><QOPEN> ;;><QOPEN>
;;>>>K G2,GBL ;;>>>K G2,GBL
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D QOPEN^GPLXPATH("GBL","GXML") ;;>>>D QOPEN^GPLXPATH("GBL","GXML")
;;>>?$P(GBL(1),";",3)=12 ;;>>?$P(GBL(1),";",3)=12
;;>>>D BUILD^GPLXPATH("GBL","G2") ;;>>>D BUILD^GPLXPATH("GBL","G2")
;;>>?G2(G2(0))="</SECOND>" ;;>>?G2(G2(0))="</SECOND>"
;;><QOPEN2> ;;><QOPEN2>
;;>>>K G2,GBL ;;>>>K G2,GBL
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D QOPEN^GPLXPATH("GBL","GXML","//FIRST/SECOND") ;;>>>D QOPEN^GPLXPATH("GBL","GXML","//FIRST/SECOND")
;;>>?$P(GBL(1),";",3)=11 ;;>>?$P(GBL(1),";",3)=11
;;>>>D BUILD^GPLXPATH("GBL","G2") ;;>>>D BUILD^GPLXPATH("GBL","G2")
;;>>?G2(G2(0))="</SECOND>" ;;>>?G2(G2(0))="</SECOND>"
;;><QCLOSE> ;;><QCLOSE>
;;>>>K G2,GBL ;;>>>K G2,GBL
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D QCLOSE^GPLXPATH("GBL","GXML") ;;>>>D QCLOSE^GPLXPATH("GBL","GXML")
;;>>?$P(GBL(1),";",3)=13 ;;>>?$P(GBL(1),";",3)=13
;;>>>D BUILD^GPLXPATH("GBL","G2") ;;>>>D BUILD^GPLXPATH("GBL","G2")
;;>>?G2(G2(0))="</FIRST>" ;;>>?G2(G2(0))="</FIRST>"
;;><QCLOSE2> ;;><QCLOSE2>
;;>>>K G2,GBL ;;>>>K G2,GBL
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D QCLOSE^GPLXPATH("GBL","GXML","//FIRST/SECOND/THIRD") ;;>>>D QCLOSE^GPLXPATH("GBL","GXML","//FIRST/SECOND/THIRD")
;;>>?$P(GBL(1),";",3)=13 ;;>>?$P(GBL(1),";",3)=13
;;>>>D BUILD^GPLXPATH("GBL","G2") ;;>>>D BUILD^GPLXPATH("GBL","G2")
;;>>?G2(G2(0))="</FIRST>" ;;>>?G2(G2(0))="</FIRST>"
;;>>?G2(1)="</THIRD>" ;;>>?G2(1)="</THIRD>"
;;><INSERT> ;;><INSERT>
;;>>>K G2,GBL,G3,G4 ;;>>>K G2,GBL,G3,G4
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2") ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
;;>>>D INSERT^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD") ;;>>>D INSERT^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
;;>>>D INSERT^GPLXPATH("G3","G2","//") ;;>>>D INSERT^GPLXPATH("G3","G2","//")
;;>>?G2(1)=GXML(9) ;;>>?G2(1)=GXML(9)
;;><REPLACE> ;;><REPLACE>
;;>>>K G2,GBL,G3 ;;>>>K G2,GBL,G3
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2") ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
;;>>>D REPLACE^GPLXPATH("GXML","G2","//FIRST/SECOND") ;;>>>D REPLACE^GPLXPATH("GXML","G2","//FIRST/SECOND")
;;>>?GXML(3)="<FIFTH>" ;;>>?GXML(3)="<FIFTH>"
;;><INSINNER> ;;><INSINNER>
;;>>>K GXML,G2,GBL,G3 ;;>>>K GXML,G2,GBL,G3
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2") ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
;;>>>D INSINNER^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD") ;;>>>D INSINNER^GPLXPATH("GXML","G2","//FIRST/SECOND/THIRD")
;;>>?GXML(10)="<FIFTH>" ;;>>?GXML(10)="<FIFTH>"
;;><INSINNER2> ;;><INSINNER2>
;;>>>K GXML,G2,GBL,G3 ;;>>>K GXML,G2,GBL,G3
;;>>>D ZTEST^GPLXPATH("INITXML") ;;>>>D ZTEST^GPLXPATH("INITXML")
;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2") ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD","G2")
;;>>>D INSINNER^GPLXPATH("G2","G2") ;;>>>D INSINNER^GPLXPATH("G2","G2")
;;>>?G2(8)="<FIFTH>" ;;>>?G2(8)="<FIFTH>"
;;></TEST> ;;></TEST>