Index: BLKALO1.mac.rou =================================================================== diff -u -r29059 -r44377 --- BLKALO1.mac.rou (.../BLKALO1.mac.rou) (revision 29059) +++ BLKALO1.mac.rou (.../BLKALO1.mac.rou) (revision 44377) @@ -46,7 +46,7 @@ LVHBL Q:'$D(^KTO3(ToeNr,$P(RecToe,D,13,14)_D_SortNr)) Set I=1 LVHBL1 Set T=$P(Test,",",I) Goto LVHBL2:T="" - Do:$L(Conf) @$S(T="QTY":"QTY",T="LVW":"LVW",T="ID":"ID",T="PR":"PR",1:"DUMMY") + Do @$S(T="QTY":"QTY",T="LVW":"LVW",T="ID":"ID",T="PR":"PR",1:"DUMMY") S I=I+1 Goto LVHBL1 LVHBL2 If $D(^KTO(5005,ToeNr,SortNr)),$P(RecToe,D,14)'=$P(RecToe,D,34) Set LVHCYB=1 Do ^BLKALAL Q