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

update

This commit is contained in:
george 2012-04-16 14:06:15 +00:00
parent 2fbaf856f5
commit c2787aa270
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
p/C0XF2N.m
View File

@ -644,7 +644,7 @@ DELGRAPH(ZGRF,FARY) ; delete a graph from the triplestore
N ZGRAPH N ZGRAPH
D TING(.ZGRAPH,ZGRF,FARY) D TING(.ZGRAPH,ZGRF,FARY)
I '$D(ZGRAPH) D Q ; I '$D(ZGRAPH) D Q ;
. W !,"NO TRIPLES IN GRAPH" . I $D(DEBUG) W !,"NO TRIPLES IN GRAPH"
K C0XFDA K C0XFDA
N ZI S ZI="" N ZI S ZI=""
F S ZI=$O(ZGRAPH(ZI)) Q:ZI="" D ; F S ZI=$O(ZGRAPH(ZI)) Q:ZI="" D ;
@ -662,7 +662,7 @@ TING(ZRTN,ZGRF,FARY) ; return the iens for graph ZGRF
N ZI,ZG S ZI="" N ZI,ZG S ZI=""
S ZG=$$IENOF^C0XGET1(ZGRF) S ZG=$$IENOF^C0XGET1(ZGRF)
I ZG="" D Q ; I ZG="" D Q ;
. W !,"ERROR GRAPH NOT FOUND" . I $D(DEBUG) W !,"ERROR GRAPH NOT FOUND"
I '$D(@C0XTN@("G",ZG)) Q ; I '$D(@C0XTN@("G",ZG)) Q ;
F S ZI=$O(@C0XTN@("G",ZG,ZI)) Q:ZI="" D ; F S ZI=$O(@C0XTN@("G",ZG,ZI)) Q:ZI="" D ;
. S ZRTN(ZI)="" . S ZRTN(ZI)=""