cT137 ;DIVERSE BOEKING INTERNE KOSTEN ;%T137 ; [ 01/03/01  4:44 PM ]
 G 1
 ;
T0 ;Diverse boeking interne kosten ;
T1 ;;
T2 ;Starten doorboeking\"-[] = einde programma   [] = starten doorboeking diverse verrichtingen";
T3 ;- Rekening onbekend\"xxxxxxx[] = andere rekening   .[] = openen rekening";
 ;
T0F ;Inscrire mouvements divers ;
T1F ;;
T2F ;Inscrire mouvements\"-[] = fin du programme   [] = ok";
T3F ;- Compte inconnu\"xxxxxxx[] = autre compte   .[] = création compte";
 ;
T0E ;Registration miscellaneous transactions internal costs ;
T1E ;;
T2E ;Start registration\"-[] = end program   [] = start registration miscellaneous transaction";
T3E ;- Account unknown\"xxxxxxx[] = other account   .[] = open account";
 ;
S0 L (@("^"_Q_"FID"),@("^"_Q_"BA(4,RB)"),@("^"_Q_"AR(I1)"))
S1 S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B S BH=BH\1 D:BPE @BPEC I HIS S S1="B"_RB_"#"_BNR_D G S1D
S1C S S1=BH_"B"_RB,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=NUM_D_DAT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
S1D S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z K S1,S2 S (BC(0),BC(1))=0 Q
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S K=+@("^"_Q_"BA(7)") I '$O(@("^"_Q_"FID(K)")) D TXT^cAFA1(254) G YZ
 ;
2 S R="SRT\D\800" D ^cA336 G YZ:K="-",3:SRT="" S K="D"_$E(1000+SRT,2,4)
29 S FP=403 W @F,$J("",31),@F93,@F,@F92,$P(^(K),D),@F93 S FP=801 W @F,@F1
 ;
3 S RB="D"_SRT,R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-""[K" D R0 G YZ:K="-" 
31 L (@("^"_Q_"FID"),@("^"_Q_"BA(4,RB)")):2 E  D TXT^cAFA1(14) G 3
33 D ^cT164,S1Z G YZ:'OK S BP=@("^"_Q_"BA(7)"),@%Q1=0
 ;
4 S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G YZ:BP-2>DJ,4:'$D(@("^"_Q_"FID(BP)")) S I3=0,R=BP#1*100,FP=503 W @F,BP,@F1 D ^cT163 S BH=1_BP*100 G YZ:'OK
41 S BPE="",K=$D(@("^"_Q_"BA(""SWBP"")")) D:K @^("SWBP")
 ;
5 S I3=$O(@("^"_Q_"FID(BP,""D"",I3)")) G 6:'I3 S A=^(I3),A=$P(A,D,1,9)_D_BPE_D_$P(A,D,5)_D_D_D_SRT_D_$P(A,D,10),DAT=$P(A,D,2)
51 S K=19_$E(DAT,7,8)_$E(DAT,4,5)_$E(DAT,1,2) S:K<19500000 K=K+1E6 S Q93="^"_Q_"BA(4,RB,"_K_")" S:'$D(@Q93) @Q93=K_"0001"
53 S BNR=@Q93,^(K)=BNR+1 G 53:$D(@("^"_Q_"FI(BP,RB,BNR)")) W "."
54 S I1=$P($P(A,D,8),"#")_" ",BC($P(A,D,6)="C")=$P(A,D,5),NUM=$P(A,D,3)
55 I '$D(@("^"_Q_"AR(I1,0)")) S R="K\22\3\"_I1_$P($T(@("T3"_QT)),U,2)_"\7\\K?.N!(K=""."")" D R0 S:K?1N.N I1=K_" " G 55:K'="." S R="K\\\AR\R1" D ^cA220 S:K'="-" I1=$P(K," ",2)_" " G 55
57 S HIS=$P(^(0),D,3),$P(A,D,8)=$P(I1," ")_"#"_$P(^(0),D,2) D S0 S @("^"_Q_"FI(BP,RB,BNR)")=A
59 K @("^"_Q_"FID(BP,""D"",I3)") G 5
 ;
6 I '$O(^(0)) K ^(0)
61 G 4
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84