Changeset 1534

Timestamp:

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

Author:

George Lilly

Message:

fixes for snomed lookup

Location:

smart/trunk

Files:

• kids/C0S_1_0_0_T2.KID (added)
• p/C0SMART.m (modified) (1 diff)
• p/C0SPROB2.m (modified) (3 diffs)
• p/C0STBL.m (modified) (2 diffs)

smart/trunk/p/C0SMART.m

@@ -42 +42 @@
  S C0SCTRL("patient")="D PATIENT^C0SDEM(.C0SGR,.C0SARY)"
  S C0SCTRL("lab")="D LAB^C0SLAB(.C0SGR,.C0SARY)"
- S C0SCTRL("problem")="D PROB^C0SPROB(.C0SGR,.C0SARY)"
+ S C0SCTRL("problem")="D PROB^C0SPROB2(.C0SGR,.C0SARY)"
  ;
  I '$D(C0SCTRL(ZTYP)) W !,ZTYP," ","Not Supported" Q  ;

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(""))

smart/trunk/p/C0STBL.m

@@ -27 +27 @@
  S ZI=BEGDFN
  S ZCNT=0
- F  S ZI=$O(^DPT(ZI)) Q:(+ZI="")!(ZCNT>DFNCNT)  D  ;
+ F  S ZI=$O(^DPT(ZI)) Q:(+ZI=0)!(ZCNT>DFNCNT)  D  ;
  . S ZCNT=ZCNT+1
  . W ZI," "
@@ -44 +44 @@
  . ;K G
  . D EN^C0SMART(.G,ZI,"problem")
- . I $D(G) W !,$$output^C0XGET1("G")
+ . ;I $D(G) W !,$$output^C0XGET1("G")
  Q
  ;