iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Testing Labs.

This commit is contained in:
george 2008-11-03 02:25:49 +00:00
parent ead7d7fd92
commit e8db763947
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/GPLLABS.m
View File

@ -53,7 +53,7 @@ LTYP(OSEG,OTYP) ;
I 1 D ; RIGHT NOW JUST OBX I 1 D ; RIGHT NOW JUST OBX
. S OI="" ; INDEX INTO SEGS . S OI="" ; INDEX INTO SEGS
. F S OI=$O(@OTAB@(OI)) Q:OI="" D ; FOR EACH ELEMENT OF THE SEGMENT . 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,! . . I OV'="" W OI_": "_$P(@OTAB@(OI),"^",3),": ",OV,!
Q Q
LOBX ; LOBX ;