Index: ccr/trunk/p/C0CRXNRD.m
===================================================================
--- ccr/trunk/p/C0CRXNRD.m	(revision 282)
+++ ccr/trunk/p/C0CRXNRD.m	(revision 283)
@@ -21,5 +21,5 @@
  . S STR=$P(LINE,"|",15)	; 5
  . ; Remove embedded "^"
- . S STR=$TR("STR","^")
+ . S STR=$TR(STR,"^")
  . ; Convert STR into an array of 80 characters on each line
  . N STRLINE S STRLINE=$L(STR)\80+1
@@ -36,5 +36,5 @@
  . I $D(^TMP("DIERR",$J)) U $P BREAK
  . ; Now, file WP field STR
- . D WP^DIE(11310000.01,I_",",5,,"STR")
+ . D WP^DIE(11310000.01,I_",",5,,$NA(STR))
  D CLOSE^%ZISH("FILE")
  Q