BLKALAB G 1 ;INVULLEN AB-NUMMER;BLKALAB; [ 06/27/2000  3:27 PM ]
 ;
1 N FAB
 S LC=$P(R,D,1),TR=$P(R,D,2),REF=$P(R,D,3),OAB=$P(R,D,4),NAB=$P(R,D,5),R=$P(REF,"/",2)
11 G 15:NAB="" S:$E(REF,1,5)="STOCK" R=REF S:$E(REF,1,5)="KOMM." R=$E(REF,7,99)
13 S REF="AB "_$S(LC=5005:$S($L(NAB)>3:$E(NAB,1,$L(NAB)-3)_"."_$E(NAB,$L(NAB)-2,$L(NAB)),1:NAB),1:NAB)_"/"_R G 17
15 S:$L(R) REF=R I $L(REF),$E(REF,1,5)'="STOCK",$E(REF,1,5)'="KOMM." S REF="KOMM. "_REF
17 S X=^KTO(LC,TR,1),$P(X,D,3)=REF,FAB=$P(X,D,10),$P(X,D,10)=NAB,^(1)=X
19 S $P(RecToe,D,3)=REF,$P(RecToe,D,10)=NAB,^BLTO(LC,SoDo,TR,1)=RecToe
 ;
2 S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,""),TZ=100
21 S TZ=$N(^KTO(LC,TR,TZ)) G 3:TZ=-1 S X=^(TZ),PR=$P(X,D,2) G 21:'PR
23 S $P(^KPR(PR,"W    0.0T"_UOD_$J(TR,6,0)_$J((TZ-100),3,0)),D,3)=REF G 21
 ;
3 D KILL^KTO4(LC,TR,OAB) I $L(NAB) D SET^KTO4(LC,TR,NAB)
 D:FAB="" ABT^FLOWLOG(TR)
 ;
YZ Q
 ;