Index: fmts/trunk/p/C0XGET1.m
===================================================================
--- fmts/trunk/p/C0XGET1.m	(revision 1528)
+++ fmts/trunk/p/C0XGET1.m	(revision 1532)
@@ -410,4 +410,5 @@
  I $G(ZSTRING)="" Q "" ; NO STRING
  S ZIEN=$O(@C0XSN@("B",$$EXT^C0XUTIL(ZSTRING),""))
+ I ZIEN="" S ZIEN=-1
  Q ZIEN
  ;
Index: fmts/trunk/p/C0XUTIL.m
===================================================================
--- fmts/trunk/p/C0XUTIL.m	(revision 1528)
+++ fmts/trunk/p/C0XUTIL.m	(revision 1532)
@@ -48,4 +48,5 @@
  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/"