Changeset 1366 for fmts/trunk/p

Timestamp:

Feb 22, 2012, 2:44:17 PM (13 years ago)

Author:

George Lilly

Message:

eliminate ZWR

File:

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

fmts/trunk/p/C0XF2N.m

@@ -41 +41 @@
  S @ZFARY@("BLKLOAD")=1 ; this file supports block load
  S @ZFARY@("FMTSSTYLE")="F2N" ; fileman style
- S @ZFARY@("REPLYFMT")=""
+ S @ZFARY@("REPLYFMT")="JSON"
  D USEFARY(ZFARY)
  Q
@@ -166 +166 @@
  K ZERR
  D WP^DIE(C0XSFN,ZIEN_",",1,,ZTXT,"ZERR")
- I $D(ZERR) D  ;
- . ZWR ZERR
+ I $D(ZERR) D  Q  ;
+ . W !,"ERROR CREATING WORD PROCESSING FIELD"
+ . S C0XERR="ERROR CREATING WORD PROCESSING FIELD"
+ . D ^%ZTER ; error trap
  Q
  ; 
@@ -267 +269 @@
  . S ZVOC=$P(ZI,"xmlns:",2)
  . I ZVOC'="" S C0XVOC(ZVOC)=$G(@ZDOM@(1,"A",ZI))
- W !,"VOCABS:" ZWR C0XVOC
+ W !,"VOCABS:"
+ N ZZ S ZZ=""
+ F  S ZZ=$O(C0XVOC(ZZ)) Q:ZZ=""  W !,ZZ,":",C0CVOC(ZZ)
  ;
  ; -- look for children called rdf:Description. quit if none. not an rdf file
@@ -279 +283 @@
  I '$G(C0XTYPE(@ZDOM@(1,"C",ZI))) D  Q  ; not an rdf file
  . W !,"Error. Not an RDF file. Cannot process."
- . ;zwr ^TMP("MXMLDOM",$J,*)
+ . D SHOW(1)
  ;
  ; -- now process the rdf description children
@@ -357 +361 @@
 SHOW(ZN) ;
  I '$D(C0XJOB) S C0XJOB=$J
- ZWR ^TMP("MXMLDOM",C0XJOB,1,ZN,*)
- ;ZWR ^TMP("MXMLDOM",16850,1,ZN,*)
+ N ZD
+ S ZD=$NA(^TMP("MXMLDOM",C0XJOB,1,ZN))
+ W ZD,"=",@ZD
+ F  S ZD=$Q(@ZD) Q:$QS(ZD,4)'=ZN  W !,ZD,"=",@ZD
+ ;ZWR ^TMP("MXMLDOM",C0XJOB,1,ZN,*)
  Q
  ;
@@ -574 +581 @@
  ;
 BLKERR ; 
- W !,"ERROR IN BULK LOAD",! ZWR ZBFDA(ZI)
+ W !,"ERROR IN BULK LOAD"
+ S C0XERR="ERROR IN BULK LOAD"
+ S C0XLOC=ZBFDA(ZI)
+ D ^%ZTER ; report the error
  B
  Q