cPE11 G 500 ;OPENEN PRODUKTEN - DEELPRODUKTEN ;OVERLAY VAN %P10 [ 11/08/2003  3:26 PM ]
 ;
T1 ;VOLGNUMMER OF 
T2 ;  [] = vervolg
T3 ;OPENEN DEELPRODUKTEN 
T4 ;PRODUKTKODE
T5 ;DEELPRODUKT : 
T6 ;AANTAL : 
T7 ;AANTAL ONBEKENDE DEELPRODUKTEN = 
T8 ;U KAN HIER DE OPENING VAN HET PRODUKT AFBREKEN : .
T9 ;[] = openen   N[] = niet openen
 ;
S7 S S4=$P(R,D,2)+1+F60,S0=0,SA=$P(R,D,3),S8="^"_Q_$P(R,D,4),S9="^"_Q_$P(R,D,5),FP=S4 W @F,@F1
S7A S FP=2403+F60 W @F,@F1 W:$D(ST) $P($T(T1),U,2) W SA W:S0 $P($T(T2),U,2) W " : ",@F0
S7B R K G S7A:K?.E1C.E S:$L(K) S0=0 S FP=S4,S10=0 W @F,@F1 G S7Z:K="-",S7D:K=""&('S0) I K="" K ST S S1=S4 G S7H
S7C G S7D:'$D(ST(K)) S S3=ST(K) G S7M
S7D K ST S S6="" F S7=1:1:99 I $E(K,S7)'?1P S S6=S6_$E(K,S7)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S S1=S4,(S2,S3)=S5 G S7M:$D(@(S9_"(S2_"" "")")) S:S5?.N S5=S5_" " S (S2,S3)=$N(@(S9_"(S5)")) G S7K:S2=-1 S S2=$N(^(S2))
S7F I $E(S2,1,$L(S6))'=S6&'S0&($E(S3,1,$L(S6))=S6) S S7=$D(@(S8_"(S3)")) G S7M
S7G S S2=S5
S7H S S2=$N(@(S9_"(S2)")) G S7K:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7L:S2=-1 I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7I S FP=S1,S10=S10+1,ST(S10)=S2 W @F,$C(13),?2,S10,". ",?6,$P(^(S2),D,2),?37,$E($P(@(S8_"($P(@(S9_""(S2)""),D,1),0)"),D,2),1,30)
S7J S S1=S1+100 G S7H:S1<(2300+F60) S S0=1 G S7A
S7K S O=O+1,T(O)=K X ^cTXT(0,"N",156) R K
S7L S (S2,S0)=0 G S7A
S7M S:$E(S3,$L(S3))'=" " S3=S3_" " S (@$P(R,D,1),K)=S3
S7Z K S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,SA,ST Q
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
500 K A,B S O=0,FP=255 W @F,@F2 S FP=478 W @F,@F5 S FP=455 W @F,@F4,$P($T(T3),U,2),@F5 S FP=601 W @F,@F1
510 S VN=0,LN=602,IN2="D"
520 S R="R\1800\"_$P($T(T4),U,2)_"\PR\PR1" D S7 G 560:K="-" S DP=$P(@("^"_Q_"PR1(R)"),D,1),R=$P(^(R),D,2) G 520:DP=PR!($D(@("^"_Q_"PR(PR,IN2_DP)")))
530 S FP=2203+F60 W @F,@F1,$P($T(T5),U,2),R,"   ",$E($P(@("^"_Q_"PR(DP,0)"),D,2),1,30)
540 S FP=2308+F60 W @F,@F2,$P($T(T6),U,2),@F0 R K G 530:K?.E1C.E,520:K="-",530:K'?.N!(K<1)!(K>9999)
550 S (FP,LN)=LN+100,VN=VN+1 S:(LN\100)=17 (FP,LN)=702 W:FP=702 @F,@F1 W @F,$J(VN,2),". ",R
555 S FP=LN+36-$L(K) W @F,"x",K,"   ",$E($P(^(0),D,2),1,30) S ^("E")="",^("E"_PR)=K_BS,@("^"_Q_"PR(PR,IN2)")="",^(IN2_DP)=K_BS
556 S PDC="" F Y=1:1:$L(R) I $E(R,Y)'?1P S PDC=PDC_$E(R,Y)
557 S PDC=PDC_" ",@("^"_Q_"PD(PCC,PDC)")=PR_D_DP G 520
560 G YZ:'O S FP=702 W @F,@F1,$P($T(T7),U,2),O
570 S FP=902 F X=1:1 G 580:'$D(T(X)) S:FP=1902 FP=942 S:FP=1942 FP=902 W @F W $J(X,2),". ",T(X) S FP=FP+100+F60
580 K T S FP=2203+F60 W @F,$P($T(T8),U,2)
585 S FP=2303+F60 W @F,$P($T(T9),U,2) S FP=2252 W @F,@F0 R K
590 G 580:K?.E1C.E,YZ:K="",580:K'="N" S X=IN2
600 S X=$N(@("^"_Q_"PR(PR,X)")) G 610:X=-1!($E(X,1)'=IN2) S DP=$E(X,2,99) K @("^"_Q_"PR(DP,""E""_PR)") S Y=$N(^("E")) K:$E(Y,1)'="E" ^("E") G 600
610 K @("^"_Q_"PR(PR)"),@("^"_Q_"PR1(PCC)")
 ;
YZ K A,B,IN2,LN,T,VN Q
Z X ^cZ Q
ZZ ; 31.05.85 - 15 u 50