Changeset 1417

Timestamp:

Apr 17, 2012, 9:51:04 PM (12 years ago)

Author:

George Lilly

Message:

error processing to detect empty strings in ADD

File:

• fmts/trunk/p/C0XF2N.m (modified) (1 diff)

fmts/trunk/p/C0XF2N.m

@@ -404 +404 @@
  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)=""