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

error processing to detect empty strings in ADD

This commit is contained in:
george 2012-04-18 01:51:04 +00:00
parent b0a8cc6699
commit ee02120e92
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0XF2N.m
View File

@ -403,6 +403,8 @@ ADD(ZG,ZS,ZP,ZO,FARY) ; ADD A TRIPLE TO THE TRIPLESTORE. ALL VALUES ARE TEXT
N ZNODE
S ZNODE="N"_$$LKY17
N ZNARY ; GET READY TO CALL IENOFA
I (ZG="")!(ZS="")!(ZP="")!(ZO="") D Q ;
. I $G(DEBUG) W !,"Error Empty String ZG:"_ZG_" ZS:"_ZS_" ZP:"_ZP_" ZO"_ZO
S ZNARY("ZG",ZG)=""
S ZNARY("ZS",ZS)=""
S ZNARY("ZP",ZP)=""