cPE100 G 1 ;OPENEN PRODUKTEN ;;OVERLAY VAN %P10 [ 03/06/2002  4:44 PM ]
 ;
T1 ;[] = ok
T2 ;[] = opening ok   ,[] = hernemen   xx[] = wijzigen rubriek xx : 
 ;
1 S SW5=0,U1=SW2*100 L:SW2=1  G 15
 ;
13 S U1=U1-2 S:U1#100<3 K="" G 67:U1<-1
15 S U1=$N(A(U1)) G 67:U1=-1 S U1S=U1,U2=A(U1),U7=$P(U2,U,16),B(U7)="" S:K'="-" K=""
17 I $L($P(U2,U,4)),@$P(U2,U,4) S U3="" G 33:K'="-",13
19 I K'="-",$L($P(U2,U,7)),@$P(U2,U,14) X "S K="_$P(U2,U,7) G 55
21 I $L($P(U2,U,17)),@$P(U2,U,18) X $P(U2,U,17) S (U3,B(U7))=K G 51
23 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 55
25 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9)) W:$L($P(U2,U,10)) !,?2,$P(U2,U,10)
27 S FP=2200+F60+$L($P(U2,U,1))+6 W @F,@F0 R K G 25:K?.E1C.E I K="-" G YZ:U1=101,13
29 I K="," S U1=SW2*100 G YZ
31 S X=$P(U2,U,11) S:'$L(X) X=1 S X=X_"&'(K[D)&($L(K)'>$P(U2,U,9))"
33 S:$L($P(U2,U,21)) X="("_X_")&("_$P($T(@$P(U2,U,21)),U,2,99)_")" G 25:$P(X,",",1)="$L(K)"&(K="") I @X S B(U7)=K,U3=K G 57:'(U7=101&(K'=""))
35 E  G 25
 ;
37 S PCC="" F Y=1:1:$L(K) I $E(K,Y)'?1P S PCC=PCC_$E(K,Y)
39 S PCC=PCC_" "
 ;
41 I $D(@Q1) X ^cTXT(0,"N",67) R K G 1:U1>0,17
43 L @Q1:2 E  X ^cTXT(0,"N",14) R K G 1:U1>0,17
45 G 57
 ;
51 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9))
53 S FP=2200+F60+($L($P(U2,U,1))+6) W @F,K,!,?2,$P($T(T1),U,2) S FP=2206+F60+$L($P(U2,U,1)) W @F,@F0 R K G 51:K?.E1C.E,57:K=""
55 S (U3,B(U7))=K G 29:K="," I K="-" G YZ:U1=101,13
 ;
57 X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3
59 S X=U7\100,Y=U7#100 S:'$D(B(X)) B(X)=BS S:(Y-1) B(U7)=D_B(U7) S B(X)=$P(B(X),D,1,Y-1)_B(U7)_D_$P(B(X),D,Y+1,99)
61 K B(U7) G 15:U1>0
 ;
67 S FP=2203+F60 W @F,@F1,$P($T(T2),U,2),@F0 R K
69 G 67:K?.E1C.E,29:K=",",71:K?.N&K,YZ:K="",67:K'="-" S U1=U1S-1 G 15
71 S K=SW2*100+K G 67:'$D(A(K)) S U2=A(K),U7=$P(U2,U,16),(B(U7),K)="" G 17
 ;
YZ S U4=K Q
 ;
BRCTR ;($E(K,1,5)#97*100000+$E(K,6,10)#97-$E(K,11,12)=0!($E(K,1,5)#97*100000+$E(K,6,10)#97-$E(K,11,12)=-97)&(K?12N))!(K="")!'($P(B(1),D,6)?4N)
 ;
BNCTR ;(97-($E(K,1,7)#97)=+$E(K,8,9)&(K?9N))!(K="")!(K="000000000")!'($P(B(1),D,6)?4N)
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;