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

Moved contents of CCRUNIT to C0CUNIT

This commit is contained in:
sam 2009-03-16 00:27:26 +00:00
parent 40de665bfa
commit d4956f8cc3
2 changed files with 17 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
p/C0CUNIT.m
View File

@ -154,3 +154,20 @@ TLIST(ZARY) ; LIST ALL THE TESTS
. . S K=1
Q
;
MEDS
N DEBUG S DEBUG=0
N DFN S DFN=5685
K ^TMP($J)
W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
N T S T=$NA(^TMP($J,"CCR")) D LOAD^GPLCCR0(T)
N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications"
W "XPATH is: "_XPATH,!
W "Getting Med Template into INXML using",!
W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
D QUERY^GPLXPATH(T,XPATH,"INXML")
W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
W "OUTXML will be ^TMP($J,""OUT"")",!
N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML)
D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
Q

21
p/CCRUNIT.m
View File

@ -1,21 +0,0 @@
CCRUNIT ; A routine that tests some crap
;;0.1;CCDCCR;;JUL 13, 2007;Build 0
Q
;
MEDS
N DEBUG S DEBUG=0
N DFN S DFN=5685
K ^TMP($J)
W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
N T S T=$NA(^TMP($J,"CCR")) D LOAD^GPLCCR0(T)
N XPATH S XPATH="//ContinuityOfCareRecord/Body/Medications"
W "XPATH is: "_XPATH,!
W "Getting Med Template into INXML using",!
W "QUERY^GPLXPATH(T,XPATH,""INXML"")",!!
D QUERY^GPLXPATH(T,XPATH,"INXML")
W "Executing EXTRACT^CCRMEDS(INXML,DFN,OUTXML)",!
W "OUTXML will be ^TMP($J,""OUT"")",!
N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
D EXTRACT^CCRMEDS6("INXML",DFN,OUTXML)
D FILEOUT^C0CRNF(OUTXML,"TESTMEDS.xml")
Q