Changeset 283 for ccr

Timestamp:

Nov 17, 2008, 8:55:40 PM (16 years ago)

Author:

Sam Habiel

Message:

Fixed tiny bug in Import Routine

File:

• ccr/trunk/p/C0CRXNRD.m (modified) (2 diffs)

ccr/trunk/p/C0CRXNRD.m

@@ -21 +21 @@
  . 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 +36 @@
  . 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