Changeset 1184 for ccr

Timestamp:

May 13, 2011, 1:11:53 PM (14 years ago)

Author:

George Lilly

Message:

VistACom changes

Location:

ccr/trunk/p

Files:

• C0CMIME.m (added)
• C0CMXML.m (modified) (1 diff)
• C0CPXRM.m (added)

ccr/trunk/p/C0CMXML.m

@@ -24 +24 @@
  ; FOR TEMPLATE FILE RELATED ROUTINES, SEE C0CMXP
  ;
-TEST ;
+TEST ; TEST DRIVER ASSUMES A CCR IN ^GPL("CCR")
+ ; LOOK FOR TEST RESULTS IN VARIABLE G
+ ; ACTUALLY, IF NO CCR IS THERE, IT WILL PUT ONE THERE FOR PAT DFN 2
+ ;
+ N GPLCCR S GPLCCR=$NA(^GPL("CCR"))
+ I '$D(@GPLCCR@(1)) D  ; NO CCR THERE
+ . N TGPL
+ . D CCRRPC^C0CCCR(.TGPL,2) ; GET A CCR FOR PAT 2
+ . M @GPLCCR=TGPL ; PUT IT IN THE TEST GLOBAL
+ . K @GPLCCR@(0) ; KILL THE LINE COUNT FOR THE PARSER
+ D EN(.G,GPLCCR)
+ Q
+ ; 
+EN(ZRTN,C0CIN) ; PARSE THE CCR PASSED BY NAME IN C0CIN
+ ; AND RETURN THE XPATH ARRAY THAT RESULTS IN ZRTN, PASSED BY REFERENCE
+ I '$D(@C0CIN@(1)) Q  ;NOTHING PASSED IN
+ K ZRTN
+ N C0CDOCID,REDUX,GARY,GARY2,GARY3
+ S C0CDOCID=$$PARSE(C0CIN)
+ S REDUX="//ContinuityOfCareRecord/Body"
+ D XPATH(1,"/","GIDX","GARY",,REDUX)
+ D SEPARATE^C0CMCCD("GARY2","GARY")
+ S ZI=""
+ F  S ZI=$O(GARY2(ZI)) Q:ZI=""  D  ;
+ . N GTMP,G2
+ . M G2=GARY2(ZI)
+ . D DEMUX2^C0CMXP("GTMP","G2",2)
+ . M GARY3(ZI)=GTMP
+ M ZRTN=GARY3
+ Q
+ ;
+TEST0 ;
  S C0CXMLIN=$NA(^TMP("C0CMXML",$J))
  K GARY
- W $$FTG^%ZISH("/home/vademo2/EHR/p/","mxml-test.xml",$NA(@C0CXMLIN@(1)),3)
+ M @C0CXMLIN=^GPL("CCR")
+ ;W $$FTG^%ZISH("/home/vademo2/CCR/","PAT_774_CCR_V1_0_0.xml",$NA(@C0CXMLIN@(1)),3)
  S C0CDOCID=$$PARSE(C0CXMLIN) W !,"DocID: ",C0CDOCID
  S REDUX="//ContinuityOfCareRecord/Body"