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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0XF2N.m
View File

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

2
p/C0XGET1.m
View File

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