fix to DELGRAPH to use namespaced input

This commit is contained in:
george 2012-03-25 21:15:57 +00:00
parent f3c4ebbc56
commit dee9731521
2 changed files with 2 additions and 2 deletions

View File

@ -644,7 +644,7 @@ TING(ZRTN,ZGRF,FARY) ; return the iens for graph ZGRF
D USEFARY(FARY)
K ZRTN
N ZI,ZG S ZI=""
S ZG=$$IENOF(ZGRF)
S ZG=$$IENOF^C0XGET1(ZGRF)
I ZG="" D Q ;
. W !,"ERROR GRAPH NOT FOUND"
I '$D(@C0XTN@("G",ZG)) Q ;

View File

@ -395,7 +395,7 @@ IENOF(ZSTRING,FARY) ; EXTRINSIC WHICH RETURNS THE IEN OF ZS IN THE STRINGS FILE
. S FARY="C0XFARY"
N ZIEN
I $G(ZSTRING)="" Q "" ; NO STRING
S ZIEN=$O(@C0XSN@("B",ZSTRING,""))
S ZIEN=$O(@C0XSN@("B",$$EXT^C0XUTIL(ZSTRING),""))
Q ZIEN
;
IENOFA(ZOUTARY,INARY,FARY) ; RESOLVE STRINGS TO IEN IN STRINGS FILE