Testing Labs.
This commit is contained in:
parent
ead7d7fd92
commit
e8db763947
|
@ -53,7 +53,7 @@ LTYP(OSEG,OTYP) ;
|
|||
I 1 D ; RIGHT NOW JUST OBX
|
||||
. 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
|
||||
LOBX ;
|
||||
|
|
Loading…
Reference in New Issue