cI62 ;UITG. VERWIJDEREN AR ;GO NAAR %I63 [ 12/08/92  6:13 PM ]
 G 1
T1 ;\UL\F\LNT\128\S COM="GEDEFINIEERD ALS REKENING VOORAFBETAALDE BONS BIJ "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2)
T2 ;\UL\M\\101#111#128\S COM="REKENING WORDT NOG GEBRUIKT OP "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2)_" "_UR 
T3 ;\UL\M\\101#111\S COM="REKENING WORDT NOG GEBRUIKT OP "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D,2)_" "_UR 
T4 ;\BA\\\\S COM="REKENING KOMT NOG VOOR BIJ O-KODE "_Z3\D S4^cA275
T5 ;\BA\\\\S COM="REKENING KOMT NOG VOOR BIJ K-KODE "_Z1\D S6^cA275
T6 ;\BA\\\\S COM="REKENING KOMT NOG VOOR BIJ I-KODE "_Z1\D S5^cA275
T7 ;\UT\\\124#125\S COM="REKENING KOMT NOG VOOR BIJ AUTOMATISCHE TEKST "_$P(Z1," ")\D S1^cA275
T8 ;\LE\\\221\S COM="REKENING DIENT NOG ALS VENTILATIEREKENING BIJ LEVERANCIER "_$P(UR," ",2) 
T9 ;\FIA\\\101\S COM="REKENING NOG BIJ AUTOMATISCHE BOEKINGSREEKS "_Z1\D S3^cA275
 ;
1 S US="",NR=0 S ^WAV("%A",3,"AR",0)="D ^cA274"
12 S US=$O(^EUL(0,US)) G 2:US="" S NR=NR+1
14 S R=$P($T(T1)," ",2,999),$P(R,D,2)="UL",$P(R,D,3)=US,^WAV("%A",3,"AR",NR)=R
16 G 12
 ;
2 S US=""
22 S US=$O(^EOD(0,US)) G 3:US="" S NR=NR+1
24 S R=$P($T(T1)," ",2,999),$P(R,D,2)="OD",$P(R,D,3)=US,^WAV("%A",3,"AR",NR)=R
26 G 22
 ;
3 S US=""
32 S US=$O(^EUL(0,US)) G 4:US="" S NR=NR+1
34 S R=$P($T(T2)," ",2,999),$P(R,D,2)="UL",$P(R,D,3)=US,^WAV("%A",3,"AR",NR)=R
36 G 32
 ;
4 S US=""
42 S US=$O(^EOD(0,US)) G 5:US="" S NR=NR+1
44 S R=$P($T(T2)," ",2,999),$P(R,D,2)="OD",$P(R,D,3)=US,^WAV("%A",3,"AR",NR)=R
46 G 42
 ;
5 S US=""
52 S US=$O(^ETOL(0,US)) G 6:US="" S NR=NR+1
54 S R=$P($T(T3)," ",2,999),$P(R,D,2)="TOL",$P(R,D,3)=US,^WAV("%A",3,"AR",NR)=R
56 G 52
 ;
6 S US=""
62 S US=$O(^ETO(0,US)) G 7:US="" S NR=NR+1
64 S R=$P($T(T3)," ",2,999),$P(R,D,2)="TO",$P(R,D,3)=US,^WAV("%A",3,"AR",NR)=R
66 G 62
 ;
7 S NR=NR+1 S ^WAV("%A",3,"AR",NR)=$P($T(T4)," ",2,999)
71 S NR=NR+1 S ^WAV("%A",3,"AR",NR)=$P($T(T5)," ",2,999)
72 S NR=NR+1 S ^WAV("%A",3,"AR",NR)=$P($T(T6)," ",2,999)
73 S NR=NR+1 S ^WAV("%A",3,"AR",NR)=$P($T(T7)," ",2,999)
74 S NR=NR+1 S ^WAV("%A",3,"AR",NR)=$P($T(T8)," ",2,999)
75 S NR=NR+1 S ^WAV("%A",3,"AR",NR)=$P($T(T9)," ",2,999)
 ;
8 G ^cI63
 ;
YZ Q
 ;
Z X ^cZ
ZZ ; 08.12.92 - 16 u 23 *