From b856cbbf4177e2d939b11343c204ce57cf769ac5 Mon Sep 17 00:00:00 2001
From: george <george@1bcf3343-bbc7-4d28-9858-dce3e5f44ddd>
Date: Wed, 26 Sep 2012 07:48:10 +0000
Subject: [PATCH] fixes for smart

---
 p/C0XGET1.m | 1 +
 p/C0XUTIL.m | 1 +
 2 files changed, 2 insertions(+)

diff --git a/p/C0XGET1.m b/p/C0XGET1.m
index c5bedef..37f9b41 100644
--- a/p/C0XGET1.m
+++ b/p/C0XGET1.m
@@ -409,6 +409,7 @@ IENOF(ZSTRING,FARY) ; EXTRINSIC WHICH RETURNS THE IEN OF ZS IN THE STRINGS FILE
  N ZIEN
  I $G(ZSTRING)="" Q "" ; NO STRING
  S ZIEN=$O(@C0XSN@("B",$$EXT^C0XUTIL(ZSTRING),""))
+ I ZIEN="" S ZIEN=-1
  Q ZIEN
  ;
 IENOFA(ZOUTARY,INARY,FARY) ; RESOLVE STRINGS TO IEN IN STRINGS FILE 
diff --git a/p/C0XUTIL.m b/p/C0XUTIL.m
index 8a0d4ff..a6183b4 100644
--- a/p/C0XUTIL.m
+++ b/p/C0XUTIL.m
@@ -47,6 +47,7 @@ VOCINIT ; INITIALIZE VOCABULARIES
  S C0XVOC("qds")="http://cms.gov/pqri/qds/"
  S C0XVOC("smart")="http://sandbox-api.smartplatforms.org/records/"
  S C0XVOC("snomed")="http://purl.bioontology.org/ontology/SNOMEDCT/"
+ S C0XVOC("icd9")="http://purl.bioontology.org/ontology/ICD9/"
  S C0XVOC("rxnorm")="http://purl.bioontology.org/ontology/RXNORM/"
  S C0XVOC("loinc")="http://purl.bioontology.org/ontology/LNC/"
  S C0XVOC("file")="/home/glilly/fmts/trunk/samples/"