Changeset 253


Ignore:
Timestamp:
Nov 2, 2008, 9:25:49 PM (16 years ago)
Author:
George Lilly
Message:

Testing Labs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLLABS.m

    r251 r253  
    5454 . S OI="" ; INDEX INTO SEGS
    5555 . F  S OI=$O(@OTAB@(OI)) Q:OI=""  D  ; FOR EACH ELEMENT OF THE SEGMENT
    56  . . S OV=$P(OSEG,"|",$P(@OTAB@(OI),"^",1)) ; PULL OUT VALUE
     56 . . S OV=$P(OSEG,"|",$P(@OTAB@(OI),"^",1)+1) ; PULL OUT VALUE
    5757 . . I OV'="" W OI_": "_$P(@OTAB@(OI),"^",3),": ",OV,!
    5858 Q
Note: See TracChangeset for help on using the changeset viewer.