iSharkFly-Open
/
VistA-fmts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixes for smart

This commit is contained in:
george 2012-09-26 07:48:10 +00:00
parent 35e4ee86a4
commit b856cbbf41
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
p/C0XGET1.m
View File

@ -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

1
p/C0XUTIL.m
View File

@ -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/"