Changeset 584 for ccr/trunk/p


Ignore:
Timestamp:
Oct 27, 2009, 7:32:34 PM (15 years ago)
Author:
George Lilly
Message:

new import processing

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CCCR0.m

    r580 r584  
    282282 ;;</Actor>
    283283 ;;</Source>
    284  ;;<Product>
    285284 ;;<ProductName>
    286285 ;;<Text>@@ALERTAGENTPRODUCTNAMETEXT@@</Text>
     
    290289 ;;</Code>
    291290 ;;</ProductName>
    292  ;;</Product>
    293291 ;;</Product>
    294292 ;;</Products>
  • ccr/trunk/p/C0CIN.m

    r583 r584  
    2626 ;N C0CXP
    2727 S C0CINB=$NA(^TMP("C0CIN",$J,"VARS",C0CDFN))
    28  D INDEX^C0CXPATH(INXML,"C0CXP",-1) ; GENERATE XPATHS FROM THE CCR
     28 S C0CDOCID=$$PARSE^C0CMXML(INXML) ;W !,"DocID: ",C0CDOCID
     29 ;S REDUX="//ContinuityOfCareRecord/Body"
     30 S REDUX=""
     31 D XPATH^C0CMXML(1,"/","C0CIDX","C0CXP",,REDUX)
     32 ;D INDEX^C0CXPATH(INXML,"C0CXP",-1) ; GENERATE XPATHS FROM THE CCR
    2933 ;N ZI,ZJ,ZK
    3034 S ZI=""
     
    3640 . S ZS=$P(ZJ,"^",2) ; PULL OUT THE SUBMULTIPLE
    3741 . S C0CDICN=$O(^C0CDIC(170,"XPATH",ZK,""))
    38  . I C0CDICN="" W "MISSING XPATH:",!,ZK,! Q  ; OOPS, XPATH NOT IN C0CDIC
     42 . I C0CDICN="" D  Q  ;
     43 . . W "MISSING XPATH:",!,ZK,! ; OOPS, XPATH NOT IN C0CDIC
     44 . . S MISSING(ZK)=""
    3945 . ;D GETS^DIQ(170,C0CDICN_",","*",,"C0CFDA")
    4046 . S C0CVAR=$$GET1^DIQ(170,C0CDICN_",",.01) ; VARIABLE NAME
Note: See TracChangeset for help on using the changeset viewer.