Changeset 309 for ccr/trunk/p/C0CRNF.m

Timestamp:

Dec 19, 2008, 11:54:05 AM (15 years ago)

Author:

George Lilly

Message:

fixes to GETN1^{C0CRNF and EXP2}C0CRXN

File:

• ccr/trunk/p/C0CRNF.m (modified) (1 diff)

ccr/trunk/p/C0CRNF.m

@@ -117 +117 @@
  . . I C0CVALUE["C0CTMP" D  ; WP FIELD
  . . . N ZT,ZWP S ZWP=0 ;ITERATOR
- . . . S C0CVALUE="" ; INITIALIZE
+ . . . S ZWP=$O(C0CTMP(C0CJ,C0CREF,C0CI,ZWP)) ; INIT TO FIRST LINE
+ . . . S C0CVALUE=C0CTMP(C0CJ,C0CREF,C0CI,ZWP) ; INIT TO FIRST LINE
  . . . F  S ZWP=$O(C0CTMP(C0CJ,C0CREF,C0CI,ZWP)) Q:'ZWP  D  ;
  . . . . S ZT=" "_C0CTMP(C0CJ,C0CREF,C0CI,ZWP) ;LINE OF WP