Changeset 1534 for smart/trunk/p/C0SPROB2.m

Timestamp:

Sep 26, 2012, 3:56:51 AM (12 years ago)

Author:

George Lilly

Message:

fixes for snomed lookup

File:

• smart/trunk/p/C0SPROB2.m (modified) (3 diffs)

smart/trunk/p/C0SPROB2.m

@@ -256 +256 @@
  S GRTN="" ; default to no problems
  N C0SGRF
- S C0SGRF="/vista/smart/"_ZPATID_"/problems"
+ S C0SGRF="vistaSmart:"_ZPATID_"/problems"
  I $D(DEBUG) W !,"Processing ",C0SGRF
  D DELGRAPH^C0XF2N(C0SGRF) ; delete the old graph
@@ -319 +319 @@
  . S ZR("rdf:type")="sp:Code"
  . S ZR("sp:system")="http://purl.bioontology.org/ontology/SNOMEDCT"
- . I ZR("sp:system")["icd9" S ZR("sp:system")="http://purl.bioontology.org/ontology/ICD9"
+ . I SNOGRF["icd9" S ZR("sp:system")="http://purl.bioontology.org/ontology/ICD9"
  . S ZR("dcterms:identifier")=SNOMED
  . S ZR("dcterms:title")=SNOTIT
@@ -332 +332 @@
  ; requires the mapping table installed in the triplestore
  ;
- N ZSN,ZARY,ZSUB
- S ZSUB=$$subject^C0XGET1(,ZICD) ; subject of the ICD9 code
+ N ZSN,ZARY,ZSUB,ZSUBS
+ I $E(ZICD,$L(ZICD))="." S ZICD=$P(ZICD,".",1) ; handle trailing dots
+ D subjects^C0XGET1(.ZSUBS,"cg:ontology#code",ZICD) ; subjects with the ICD9 code
+ S ZSUB=$O(ZSUBS("")) ; pick the first one
+ I ZSUB="" Q ""
  D objects^C0XGET1(.ZARY,ZSUB,"cg:ontology#toCode")
  S ZSN=$O(ZARY(""))