KF1 G 1 ;MODULE VERWIJDEREN ORDERLIJNEN;Quit naar %F10 [ 03/18/2002  10:32 AM ]
 ;
M1 S MSG="PRODUKT IN GEBRUIK" G MY
MY S SW12=1,FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
 ;
S1 G S1H:PR="" Do PRCOUNT^FLOW("-","KOD")
 S UA=$P(U2,D,3),TR=$P(U2,D,27),TUZ=$P($P(U2,D,28),";")
 D KWNODE^FLOWORD(KC,UR,UVNN)
S1B G S1H:'TR S U2=^KPR(PR,0),^KPR(PR,0)=$P(U2,D,1,16)_D_($P($P(U2,D,17),"#",1)-UA)_"#"_$P($P(U2,D,17),"#",2)_"#"_($P($P(U2,D,17),"#",3)-UA)_D_$P(U2,D,18,99)
 K @Q16 K:$E($N(^("W")),1)'="W" ^("W")
S1C S LC=$P(@("^"_Q_"TO1(TR)"),D,1)
S1D L (@("^"_Q_UGL_"(KC,US,UR)"),@("^"_Q_"TO(LC,TR)")):2 E  S FP=2403+F60 W @F,@F2,@F4,"TOELEVERING ",TR," IS IN GEBRUIK [] = OK ",@F5,@F0 R K G S1D
S1E S BLLN=$P(@("^"_Q_"TO(LC,TR,TUZ)"),D,13,14) K ^(TUZ)
S1F I $N(^(100))'=-1 G S1G:'$D(@("^"_Q_"TO(0,3)")) S TRLC=TR D @^(3) G S1G
 New ABNr
 Set ABNr=$P(^KTO(LC,TR,1),D,10)
 Do KILLAB^FLOWTOE3(LC,TR,ABNr)
 K @("^"_Q_"TO(LC,TR)"),@("^"_Q_"TOB(TR)"),@("^"_Q_"TO1(TR)"),@("^"_Q_"TO2(LC,TR)"),^BLBeri("Z",TR)
 I $D(@("^"_Q_"TO(0,4)")) S TRLC=TR D @^(4)
S1G K ^KTO3(TR,BLLN_D_TUZ),@("^"_Q_"TOK(LC,TR,TUZ)")
S1H S U2=@("^"_Q_UGL_"(KC,US,UR,UVNN)")
S1I K ^(UVNN)
S1J G S1Z:PR="",S1Z:'TR S UVNN=100
S1K S UVNN=$N(^(UVNN)) I UVNN'=-1 G S1K:'$L($P(^(UVNN),D,27))
S1L I UVNN=-1 S U2=^(1),$P(U2,D,22)=1,^(1)=U2
S1Z K UVNN Q
 ;
1 S SW12=1,U2=@("^"_Q_UGL_"(KC,US,UR,1)")
 S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(U2,D,2)),"DS"),D,"")
 S UOR=$P("R\O",D,$P(U2,D,17)+1)
 S UTYP=$P(U2,D,25) G YZ:UTYP="L"
10 S Q15="^(""W    0.0""_UOR_UOD_$J(UR,6,0)_$J(UZ,3,0))",Q16="^(""W    0.0T""_UOD_$J(TR,6,0)_$J((TUZ-100),3,0))"
2 S FP=$P(UD,D,2)+1*100+1 W @F,@F1
3 G 2:K?.E1C.E!(K=""),YZ:K="-",15:K=",",2:K'?.N S UZ=K,(UVN,UVNN)=K+100 G 7
7 S U2=@("^"_Q_UGL_"(KC,US,UR,UVN)"),PR=$P(U2,D,2),UO=$P(U2,D,5),UMC=$P(U2,D,22) G 11:'$L(UMC),74:'PR L (@("^"_Q_UGL_"(KC,US,UR)"),@("^"_Q_"PR(PR)")):2 E  G M1
72 S UO=$P(@("^"_Q_"PR(PR,0)"),D,1)
74 S UN=$P(U2,D,9) I KV="MTL" S UPAR=$$MUNT^vhRtn1(UMC,,12),UN=$J(UN*UPAR/LPAR,1,2)
11 I $L(UMC) S UTOT=UTOT-UN D SHOWTOT^KFTOT(UTOT)
12 S FP=$P(UD,D,2)+1*100+1 W @F,@F1 D S1
15 S K="-"
 ;
YZ K LC,TR,TUZ,PR,UA,UO,UOD,UOR,UN,UPAR,UMC,U2,Q15,Q16,TRLC,UTYP L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;
SCROL(UVN) 
 S K=UVN-100 G 1
 ;