KTVV G 1 ;MODULE VERWIJDEREN VOLLEDIGE TOELEVERING;Quit naar %F10 [ 05/05/99  2:23 PM ]
 ;
M1 S MSG="PRODUKT IN GEBRUIK" G MY
M2 S MSG="ORDER "_UR_" IS IN GEBRUIK" G MY
M3 S MSG=TOU_" "_TR_" 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),BLLN=$P(U2,D,13,14),UR=$P(U2,D,27),UUZ=$P($P(U2,D,28),";"),U2=@("^"_Q_"PR(PR,0)")
S1A S ^(0)=$P(U2,D,1,16)_D_($P($P(U2,D,17),"#",1)-UA)_"#"_$S(UR:$P($P(U2,D,17),"#",2),1:($P($P(U2,D,17),"#",2)-UA))_"#"_$S(UR:($P($P(U2,D,17),"#",3)-UA),1:$P($P(U2,D,17),"#",3))_D_$P(U2,D,18,99)
S1AA K @Q15 K:$E($N(^("W")),1)'="W" ^("W")
S1B G S1H:'UR S U2=^(2),^(2)=$P(U2,D,1,8)_D_($P($P(U2,D,9),"#",1)-UA)_"#"_$P($P(U2,D,9),"#",2)_"#"_($P($P(U2,D,9),"#",3)-UA)_D_$P(U2,D,10,99) K @Q16 K:$E($N(^("W")),1)'="W" ^("W")
S1C S KC=$P(@("^"_Q_"O1(UR,""F"")"),D,1)
S1D L (@("^"_Q_UGL_"(LC,TR)"),@("^"_Q_"OD(KC,""F"",UR)")):2 E  D M2 G S1D
S1E K @("^"_Q_"OD(KC,""F"",UR,UUZ)") I $N(^(100))'=-1 S URLC=UR G S1G
S1F K @("^"_Q_"OD(KC,""F"",UR)"),@("^"_Q_"OB(UR,""F"")"),@("^"_Q_"O1(UR,""F"")"),@("^"_Q_"O2(""F"",KC,UR)")
 I $D(@("^"_Q_"OD(0,""F"",4)")) S URLC=UR D @^(4) K URLC
S1G K @("^"_Q_"TOK(LC,TR,UZ)")
S1H K ^KTO3(TR,BLLN_D_UZ)
S1Z Q
 ;
1 S SW12=1,U2=@("^"_Q_UGL_"(LC,TR,1)")
 S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(U2,D,2)),"DS"),D,"")
3 S Q15="^(""W    0.0T""_UOD_$J(TR,6,0)_$J((UZ-100),3,0))",Q16="^(""W    0.0R""_UOD_$J(UR,6,0)_$J((UUZ-100),3,0))"
5 G 11:$G(ScrolToe) S FP=2103+F60 W @F,@F1,"VERWIJDEREN ",TOU," : ",TR,"   ",$P(@("^"_Q_UGL_"(LC,TR,1)"),D,2),"   ",$P(^(1),D,3)
7 S FP=2303+F60 W @F,@F1,"V[] = VERWIJDEREN   -[] = HERNEMEN : ",@F0 R K G 23:K="-"!(K=","),7:K'="V"
9 S FP=2403+F60 W @F,"V[] = VERWIJDEREN DEFINITIEF   -[] = HERNEMEN : ",@F0 R K G 23:K="-"!(K=","),9:K'="V"
11 S UZ=100 K URLC
13 S UZ=$N(@("^"_Q_UGL_"(LC,TR,UZ)")) G 18:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 13:'PR
15 L (@("^"_Q_UGL_"(LC,TR)"),@("^"_Q_"PR(PR)")):2 E  D M1 G 15
17 D S1 G 13
18 I $D(URLC),$D(@("^"_Q_"OD(0,""F"",3)")) S URLC=UR D @^(3)
19 S K=$P(@("^"_Q_UGL_"(LC,TR,1)"),D,10) D KILL^KTO4(LC,TR,K)
20 K @("^"_Q_UG1_"(TR)"),@("^"_Q_UGB_"(TR)"),@("^"_Q_UG2_"(LC,TR)"),@("^"_Q_UGL_"(LC,TR)"),^BLBeri("Z",TR)
 I $D(@("^"_Q_UGL_"(0,4)")) S TRLC=TR D @^(4) K TRLC
21 S SW13=0,FP=$P(UD,D,2)+1*100+1 W @F,@F1 I '$G(ScrolToe) D M3
 S K="," G YZ
23 S K="-"
 ;
YZ K KC,UR,UUZ,PR,UA,UO,UOD,U2,Q15,Q16,URLC L @("^"_Q_UGL_"(LC,TR)") Q
 ;
 Q
Z X ^cZ Q
ZZ ; 24.05.91 - 14 u 33