Changeset 584 for ccr

Timestamp:

Oct 27, 2009, 7:32:34 PM (15 years ago)

Author:

George Lilly

Message:

new import processing

Location:

ccr/trunk/p

Files:

• C0CCCR0.m (modified) (2 diffs)
• C0CIN.m (modified) (2 diffs)

ccr/trunk/p/C0CCCR0.m

@@ -282 +282 @@
  ;;</Actor>
  ;;</Source>
- ;;<Product>
  ;;<ProductName>
  ;;<Text>@@ALERTAGENTPRODUCTNAMETEXT@@</Text>
@@ -290 +289 @@
  ;;</Code>
  ;;</ProductName>
- ;;</Product>
  ;;</Product>
  ;;</Products>

ccr/trunk/p/C0CIN.m

@@ -26 +26 @@
  ;N C0CXP
  S C0CINB=$NA(^TMP("C0CIN",$J,"VARS",C0CDFN))
- D INDEX^C0CXPATH(INXML,"C0CXP",-1) ; GENERATE XPATHS FROM THE CCR
+ S C0CDOCID=$$PARSE^C0CMXML(INXML) ;W !,"DocID: ",C0CDOCID
+ ;S REDUX="//ContinuityOfCareRecord/Body"
+ S REDUX=""
+ D XPATH^C0CMXML(1,"/","C0CIDX","C0CXP",,REDUX)
+ ;D INDEX^C0CXPATH(INXML,"C0CXP",-1) ; GENERATE XPATHS FROM THE CCR
  ;N ZI,ZJ,ZK 
  S ZI=""
@@ -36 +40 @@
  . S ZS=$P(ZJ,"^",2) ; PULL OUT THE SUBMULTIPLE
  . S C0CDICN=$O(^C0CDIC(170,"XPATH",ZK,""))
- . I C0CDICN="" W "MISSING XPATH:",!,ZK,! Q  ; OOPS, XPATH NOT IN C0CDIC
+ . I C0CDICN="" D  Q  ;
+ . . W "MISSING XPATH:",!,ZK,! ; OOPS, XPATH NOT IN C0CDIC
+ . . S MISSING(ZK)=""
  . ;D GETS^DIQ(170,C0CDICN_",","*",,"C0CFDA")
  . S C0CVAR=$$GET1^DIQ(170,C0CDICN_",",.01) ; VARIABLE NAME