Changeset 1416

Timestamp:

Apr 17, 2012, 9:43:27 PM (12 years ago)

Author:

George Lilly

Message:

error processing for empty strings

File:

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

fmts/trunk/p/C0XF2N.m

@@ -497 +497 @@
  . S ZK=$O(INARY(ZI,""))
  . S ZINARY($$EXT^C0XUTIL(ZI),$$EXT^C0XUTIL(ZK))=""
- N ZV,ZIEN
+ N ZV,ZIEN,ABORT
+ S ABORT=0
  N ZCNT S ZCNT=0
- F  S ZI=$O(ZINARY(ZI)) Q:ZI=""  D  ; LOOK FOR MISSING STRINGS
+ F  S ZI=$O(ZINARY(ZI)) Q:(ZI="")!+ABORT  D  ; LOOK FOR MISSING STRINGS
  . S ZV=$O(ZINARY(ZI,""))
+ . I ZV="" S ABORT=1 Q  ; abandon quad -- missing an entry
  . I ZV["^" S ZV=$TR(ZV,"^","|")
  . I $O(@C0XSN@("B",ZV,""))="" D  ;
  . . S ZCNT=ZCNT+1
  . . S C0XFDA2(C0XSFN,"+"_ZCNT_",",.01)=ZV
+ I +ABORT Q  ;
  I $D(C0XFDA2) D  ;
  . D UPDIE(.C0XFDA2) ; ADD MISSING STRINGS
  . K C0XFDA2 ; CLEAN UP
- F  S ZI=$O(ZINARY(ZI)) Q:ZI=""  D  ; NOT GET ALL IENS
+ F  S ZI=$O(ZINARY(ZI)) Q:ZI=""  D  ; NOW GET ALL IENS
  . S ZV=$O(ZINARY(ZI,""))
  . I ZV["^" S ZV=$TR(ZV,"^","|")