KFO16 G 1 ;MODULE VERWIJDEREN VOLLEDIG ORDER;Quit naar %F10 [ 05/05/99  2:12 PM ]
 ;
M1 S MSG="PRODUKT IN GEBRUIK" G MY
M2 S MSG="TOELEVERING "_TR_" IS IN GEBRUIK" G MY
M3 S MSG=UOU_" "_UR_" IS VERWIJDERD" G MY
MY S SW12=1,FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K
MZ K MSG Q
 ;
S1 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 S1Z:'$L(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  D M2 G S1D
S1E S BLLN=$P(@("^"_Q_"TO(LC,TR,TUZ)"),D,13,14) K ^(TUZ)
S1F I $N(^(100))'=-1 S TRLC=TR 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) K TRLC
S1G K ^KTO3(TR,BLLN_D_TUZ),@("^"_Q_"TOK(LC,TR,TUZ)")
S1Z 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"
3 S Q15="^(""W    0.0""_UOR_UOD_$J(UR,6,0)_$J((UZ-100),3,0))",Q16="^(""W    0.0T""_UOD_$J(TR,6,0)_$J((TUZ-100),3,0))"
11 S UZ=100 K TRLC
13 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 18:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 13:'PR
15 L (@("^"_Q_UGL_"(KC,US,UR)"),@("^"_Q_"PR(PR)")):2 E  D M1 G 15
17 D S1 G 13
18 I $D(TRLC),$D(@("^"_Q_"TO(0,3)")) S TRLC=TR D @^(3)
19 K @("^"_Q_UG1_"(UR,US)"),@("^"_Q_UGB_"(UR,US)"),@("^"_Q_UG2_"(US,KC,UR)"),@("^"_Q_UGL_"(KC,US,UR)")
21 S LVHCYB="V",SW13=0,FP=$P(UD,D,2)+1*100+1 W @F,@F1
 S K=",",UTOT=0 D SHOWTOT^KFTOT(UTOT) G YZ
23 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
 ;