KTO27 G 1 ;MODULE INBOEKEN LIJN PER LIJN ;Quit naar KT11 [ 08/07/2002   3:34 PM ]
 ;
K1 F I=1:1:3 W:$L($P(TIL,U,I)) !,?2,$P(TIL,U,I)
K1Z Q
 ;
S1 S I=I+1 Q:I>15  S UMA=$P(UMT,D,I) G S1:'$L(UMA) S UO2=UO2_$E(BLA,1,4) G S1:'$D(@Q15)
S1A S PA=$P(@Q19,D,19),PV=$P(@Q19,D,7),PH=$P(@Q15,D,5) G S1:PH=0
S1B S R=DAI_D_PH_D_PA_"\1\"_PV_"\\\"_TR_"\" D ^KTR20 S @Q15=$P(@Q15,D,1,4)_D_USA_D_$P(@Q15,D,6,99) G S1
S1Z Q
 ;
S2 S R=DAI_D_PH_D_PA_"\1\"_PV_"\\\"_TR_"\" D ^KTR20 S @Q15=$P(@Q15,D,1,4)_D_USA_D_$P(@Q15,D,6,99)
S2Z Q
 ;
S3 S USAE(I)="S @Q15=D_LC_D_D_USA(I)_D_USA(I)_D,K=$P(@Q19,D,17)+USA(I),@Q19=$P(@Q19,D,1,16)_D_K_D_$P(@Q19,D,18,99)"
S3Z Q
 ;
S4 S USAE(I)="S K=$P(@Q19,D,17)-$P(@Q15,D,5)+USA(I),@Q19=$P(@Q19,D,1,16)_D_K_D_$P(@Q19,D,18,99)"
S4Z Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
1 S SW12=1,X=100,Q15="^(""W""_WNR_$J(UMA,5,1)_""T""_TR_$J(UZ,3,0))",Q19="^(""W""_WNR_$J(UMA,5,1)_0)"
 
 S DAI=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(DT),"DS"),D,"")_1
10 S X=$N(@("^"_Q_UGL_"(LC,TR,X)")) G 70:X=-1
12 I $P(^(X),D,2)="" S X=$N(^(X)) G 70:X=-1,12
14 I $P(^(X),D,22) S X=$N(^(X)) G 12
20 S X1=^(X),UZ=X-100,PR=$P(X1,D,2)
21 S Y=@("^"_Q_"PR(PR,0)"),PC=$P(Y,D,1),PN=$P(Y,D,2),UMT=$P(^(3),D,2,16)
25 S FP=TD*100+1 W @F,@F1 S FP=TD+5*100+3+F60 W @F,$C(13),?2,PC,?34,PN S UO2=""
26 S FP=FP+100 F I=1:1:15 I $L($P(UMT,D,I)) S UMA=$P(UMT,D,I) W @F,$J(UMA,3,0) S FP=FP+5
27 S FP=TD+7*100-2+F60 F I=1:1:15 I $L($P(UMT,D,I)) S UMA=$P(UMT,D,I),FP=FP+5,UMS=0 S:$D(@Q15) UMS=$P(@Q15,D,5) W @F,$J(UMS,3,0)
30 S R="TMM\"_+TIM_"\3\"_$P(TIM,U,3)_"\K1\"_$P(TIM,U,2)_"\\"_$P(TIM,D,2)_"\\" D R0 G 40:K="M",31:K="N",70:"-,"[K,32:K="V",30
31 S USAL=1 G 10
32 S (I,USA)=0 D S1 S @("^"_Q_UGL_"(LC,TR,X)")=$P(X1,D,1,21)_D_1_D_$P(X1,D,23,99),^(X+1)=$P(^(X+1),D,1,4)_D_UO2_D_$P(^(X+1),D,6,99) G 10
40 K USAE S I=0,FP=2101+F60 W @F,@F1 S FP=2403+F60 W @F,"  [] = JUIST GELEVERD        I[] = REST GELIJK AAN BESTELDE HOEVEELHEID" S FP=TD+9*100+3+F60
41 S I=I+1 G 50:I=16,41:'$L($P(UMT,D,I)) S UMA=$P(UMT,D,I),USA(I)=0
42 W @F,@F2,"...",@F0,@F R K W @F,$J(K,3,0),@F2 G 42:K?.E1C.E,43:K=",",46:K="-",44:K=""!(K>-1&(K<1000)&(K?.N)),47:K="I",42
43 K USA,USD G 25
44 I '$D(@Q15) S USA(I)=+K,FP=FP+5 D:'((K=0)!(K="")) S3 G 41
440 I K="" S USA(I)=$P(@Q15,D,5) W @F,$J(USA(I),3,0) S FP=FP+5 G 41
441 S USA(I)=+K,FP=FP+5 G 41:(USA(I)=$P(@Q15,D,5))
442 I (USA(I)>$P(@Q15,D,5)) D S4 G 41
444 S UFP=FP,FP=2103+F60 W @F,"[] = REST WEGLATEN     1[] = REST BEHOUDEN      KEUZE : "
45 S FP=2159+F60 W @F,".",@F0,@F2,@F R K G 45:K?.E1C.E,46:K="-",450:K=""!(K=1),45
450 S:K=1 USD(I)=1 D:K="" S4 S FP=2101 W @F,@F2 S FP=UFP G 41
46 G 10:I=1 S I=I-1 G 46:'$L($P(UMT,D,I)) S FP=FP-5 K USD(I),USAE(I) S I=I-1 G 41
47 S:$D(@Q15) USA(I)=$P(@Q15,D,5)
48 S I=I+1 G 50:I=16,48:'$L($P(UMT,D,I)) S UMA=$P(UMT,D,I),USA(I)=0 G 48:'$D(@Q15),47
50 S I=0
52 S I=I+1 G 60:I=16,52:'$L($P(UMT,D,I)) S UMA=$P(UMT,D,I) I $D(USAE(I)) X USAE(I) K USAE(I)
54 S:$D(USD(I)) USA=$P(@Q15,D,5)-USA(I) S:'$D(USD(I)) USA=0 S USAA=USA S:USA=0 USAA="" S UO2=UO2_USAA_$E(BLA,1,4-$L(USAA))
56 G 52:USA(I)=0 S PH=USA(I),PV=$P(@Q19,D,7),PA=$P(@Q19,D,19)
58 D S2 G 52
60 S Q16=@("^"_Q_UGL_"(LC,TR,X+1)"),^(X+1)=$P(Q16,D,1,4)_D_UO2_D_$P(Q16,D,6,99) I '$D(USD) K USA S @("^"_Q_UGL_"(LC,TR,X)")=$P(X1,D,1,21)_D_1_D_$P(X1,D,23,99) G 10
62 S USAL=1 K USD,USA G 10
70 G 100:$D(USAL)
72 S X=100
74 S X=$N(@("^"_Q_UGL_"(LC,TR,X)")) G 80:X=-1
76 I $P(^(X),D,2)="" S X=$N(^(X)) G 80:X=-1,76
78 G 100:'$P(^(X),D,22) S X=$N(^(X)) G 76:'(X=-1)
80 S X=100
81 S X=$N(@("^"_Q_UGL_"(LC,TR,X)")) G 90:X=-1,84:$P(^(X),D,22)
82 S X=$N(^(X)) G 90:X=-1,84:$P(^(X),D,22),82
84 S X1=^(X),PR=$P(X1,D,2),UZ=X-100,Y=@("^"_Q_"PR(PR,3)")
86 F I=1:1:15 S UMA=$P(Y,D,I+1) I $L(UMA) K @Q15
88 G 81
90 K @("^"_Q_UGL_"(LC,TR)"),@("^"_Q_UG1_"(TR)"),@("^"_Q_UGB_"(TR)"),@("^"_Q_UG2_"(LC,TR)")
100 K DAI,USAE,USA,USAA,USD,USAL,UO2,X,X1,Y,PA,PH,PV,PN,PC,UMT,UMA,Q15,Q19,Q16 S K=","
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36