Changeset 1534 for smart/trunk/p


Ignore:
Timestamp:
Sep 26, 2012, 3:56:51 AM (12 years ago)
Author:
George Lilly
Message:

fixes for snomed lookup

Location:
smart/trunk/p
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • smart/trunk/p/C0SMART.m

    r1526 r1534  
    4242 S C0SCTRL("patient")="D PATIENT^C0SDEM(.C0SGR,.C0SARY)"
    4343 S C0SCTRL("lab")="D LAB^C0SLAB(.C0SGR,.C0SARY)"
    44  S C0SCTRL("problem")="D PROB^C0SPROB(.C0SGR,.C0SARY)"
     44 S C0SCTRL("problem")="D PROB^C0SPROB2(.C0SGR,.C0SARY)"
    4545 ;
    4646 I '$D(C0SCTRL(ZTYP)) W !,ZTYP," ","Not Supported" Q  ;
  • smart/trunk/p/C0SPROB2.m

    r1526 r1534  
    256256 S GRTN="" ; default to no problems
    257257 N C0SGRF
    258  S C0SGRF="/vista/smart/"_ZPATID_"/problems"
     258 S C0SGRF="vistaSmart:"_ZPATID_"/problems"
    259259 I $D(DEBUG) W !,"Processing ",C0SGRF
    260260 D DELGRAPH^C0XF2N(C0SGRF) ; delete the old graph
     
    319319 . S ZR("rdf:type")="sp:Code"
    320320 . S ZR("sp:system")="http://purl.bioontology.org/ontology/SNOMEDCT"
    321  . I ZR("sp:system")["icd9" S ZR("sp:system")="http://purl.bioontology.org/ontology/ICD9"
     321 . I SNOGRF["icd9" S ZR("sp:system")="http://purl.bioontology.org/ontology/ICD9"
    322322 . S ZR("dcterms:identifier")=SNOMED
    323323 . S ZR("dcterms:title")=SNOTIT
     
    332332 ; requires the mapping table installed in the triplestore
    333333 ;
    334  N ZSN,ZARY,ZSUB
    335  S ZSUB=$$subject^C0XGET1(,ZICD) ; subject of the ICD9 code
     334 N ZSN,ZARY,ZSUB,ZSUBS
     335 I $E(ZICD,$L(ZICD))="." S ZICD=$P(ZICD,".",1) ; handle trailing dots
     336 D subjects^C0XGET1(.ZSUBS,"cg:ontology#code",ZICD) ; subjects with the ICD9 code
     337 S ZSUB=$O(ZSUBS("")) ; pick the first one
     338 I ZSUB="" Q ""
    336339 D objects^C0XGET1(.ZARY,ZSUB,"cg:ontology#toCode")
    337340 S ZSN=$O(ZARY(""))
  • smart/trunk/p/C0STBL.m

    r1526 r1534  
    2727 S ZI=BEGDFN
    2828 S ZCNT=0
    29  F  S ZI=$O(^DPT(ZI)) Q:(+ZI="")!(ZCNT>DFNCNT)  D  ;
     29 F  S ZI=$O(^DPT(ZI)) Q:(+ZI=0)!(ZCNT>DFNCNT)  D  ;
    3030 . S ZCNT=ZCNT+1
    3131 . W ZI," "
     
    4444 . ;K G
    4545 . D EN^C0SMART(.G,ZI,"problem")
    46  . I $D(G) W !,$$output^C0XGET1("G")
     46 . ;I $D(G) W !,$$output^C0XGET1("G")
    4747 Q
    4848 ;
Note: See TracChangeset for help on using the changeset viewer.