KF1CC G 1 ;MODULE VERWIJDEREN ORDERLIJNEN;Quit naar %F10 [ 01/03/2001  2:02 PM ]
 ;
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="" 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 D:$N(^(100))=-1
 .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)
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 I $N(^(100))=-1 S X=^(1),X=$P(X,D,1,19)_D_D_$P(X,D,21,99),^(1)=X
S1Z K UVNN Q
 ;
S2 S ULSV=UL G S2B:$N(UTA(UVN-100))=-1 F UL=UTA(UVN-100):1:UTA($N(UTA(UVN-100)))-1 S FP=UL*100+1 W @F,@F2 D:'$L(UMC) S3 X:$L(UMC) UV
S2A G S2C
S2B F UL=UTA(UVN-100):1:ULSV-1 S FP=UL*100+1 W @F,@F2 D:'$L(UMC) S3 X:$L(UMC) UV
S2C S UL=ULSV
S2Z Q
 ;
S3 F I=2,5,45,55,67,71,73,79 S FP=UL*100+I W @F,"|"
S3Z Q
 ;
1 S SW12=1,U2=^(1),UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(U2,D,2)),"DS"),D,"")
 S UOR=$P("R\O",D,$P(U2,D,17)+1)
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 G YZ:'$D(UTA)!($N(UTA(0))=-1) S FP=2403+F60 W @F,"NUMMER v/d LIJN   -[] = TERUG NAAR ",$P(USM,U,3)," : ",@F0 R K
3 G 2:K?.E1C.E!(K=""),YZ:K="-",15:K="," S UZ=K,(UVN,UVNN)=K+100 G 7:$D(UTA(K))
5 S FP=2403+F60 W @F,@F2,@F4,"LIJN ",$P("ONBEKEND\NIET VERWIJDERBAAR",D,$D(@("^"_Q_UGL_"(KC,US,UR,UVN)"))+1)," [] = OK ",@F5,@F0 R K G 2
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 78:'$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)
78 S FP=2103+F60 W @F,"VERWIJDEREN ",K," : ",UO
8 S FP=2303 W @F,@F1,"V[] = VERWIJDEREN   -[] = HERNEMEN : ",@F0 R K G 2:K="-",15:K=",",9:K="V",8
9 S FP=2403 W @F,"V[] = VERWIJDEREN DEFINITIEF   -[] = HERNEMEN : ",@F0 R K G 2:K="-",15:K=",",11:K="V",9
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,S2
13 S FP=2402+F60 W @F,@F2,@F4,"LIJN ",UVN-100," """,$E(UO,1,50),""" IS VERWIJDERD [] = OK ",@F5,@F0 R K K UO,UTA(UVN-100) G 2
15 S K="-"
 ;
YZ K LC,TR,TUZ,PR,UA,UO,UOD,UOR,UN,UPAR,UMC,U2,Q15,Q16,X L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;
 Q
Z X ^cZ Q
ZZ ; 19.04.91 - 14 u 43