Changeset 253 for ccr/trunk/p

Timestamp:

Nov 2, 2008, 9:25:49 PM (15 years ago)

Author:

George Lilly

Message:

Testing Labs.

File:

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

ccr/trunk/p/GPLLABS.m

@@ -54 +54 @@
  . S OI="" ; INDEX INTO SEGS
  . F  S OI=$O(@OTAB@(OI)) Q:OI=""  D  ; FOR EACH ELEMENT OF THE SEGMENT
- . . S OV=$P(OSEG,"|",$P(@OTAB@(OI),"^",1)) ; PULL OUT VALUE
+ . . S OV=$P(OSEG,"|",$P(@OTAB@(OI),"^",1)+1) ; PULL OUT VALUE
  . . I OV'="" W OI_": "_$P(@OTAB@(OI),"^",3),": ",OV,!
  Q