From ee02120e92ddc5f069983e2f76eeced5927aa97e Mon Sep 17 00:00:00 2001
From: george <george@1bcf3343-bbc7-4d28-9858-dce3e5f44ddd>
Date: Wed, 18 Apr 2012 01:51:04 +0000
Subject: [PATCH] error processing to detect empty strings in ADD

---
 p/C0XF2N.m | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/p/C0XF2N.m b/p/C0XF2N.m
index 6d3e0e3..df8b009 100644
--- a/p/C0XF2N.m
+++ b/p/C0XF2N.m
@@ -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)=""