Changeset 1396 for fmts

Timestamp:

Apr 12, 2012, 12:27:09 PM (13 years ago)

Author:

George Lilly

Message:

make silent by default

File:

• fmts/trunk/p/C0XF2N.m (modified) (4 diffs)

fmts/trunk/p/C0XF2N.m

@@ -277 +277 @@
  . S ZVOC=$P(ZI,"xmlns:",2)
  . I ZVOC'="" S C0XVOC(ZVOC)=$G(@ZDOM@(1,"A",ZI))
- W !,"VOCABS:"
- N ZZ S ZZ=""
- F  S ZZ=$O(C0XVOC(ZZ)) Q:ZZ=""  W !,ZZ,":",C0XVOC(ZZ)
+ I $D(DEBUG) D  ;
+ . W !,"VOCABS:"
+ . N ZZ S ZZ=""
+ . F  S ZZ=$O(C0XVOC(ZZ)) Q:ZZ=""  W !,ZZ,":",C0XVOC(ZZ)
  ;
  ; -- look for children called rdf:Description. quit if none. not an rdf file
@@ -542 +543 @@
  ; -- then unlocking to minimize the duration of the lock
  ;
- W !,"USING BULKLOAD"
+ I $D(DEBUG) W !,"USING BULKLOAD"
  I '$D(ZBFDA) Q  ; EMPTY FDA
  I $O(ZBFDA(""))'=172.101 Q  ; WRONG FILE
@@ -552 +553 @@
  . B
  ; -- lock the zero node and reserve a block of iens to insert
- W !,"LOCKING ZERO NODE"
+ I $D(DEBUG) W !,"LOCKING ZERO NODE"
  LOCK +^C0X(101,0)
  S ZP3=$P(^C0X(101,0),U,3)
@@ -561 +562 @@
  N ZI,ZN,ZG,ZS,ZP,ZO,ZIEN,ZBASE
  S ZBASE=ZP3 ; the last ien in the file
- W !,"ZERO NODE UNLOCKED, IENS RESERVED=",ZCNT
- W !,$$NOW^XLFDT
+ I $D(DEBUG) W !,"ZERO NODE UNLOCKED, IENS RESERVED=",ZCNT
+ I $D(DEBUG) W !,$$NOW^XLFDT
  S ZI=""
  F  S ZI=$O(ZBFDA(172.101,ZI)) Q:ZI=""  D  ;