cI61 ;UITG. VERW. LE ;GO NAAR %I62 [ 12/08/92  6:10 PM ]
 G 1
 ;
T1 ;\UL\F\1\\S COM="NOG "_$P(@("^"_QQ_UGL_"(0,US,""UDUO"")"),D)_" VOOR DEZE KLANT" 
T3 ;\PL\\1\\S COM="ER ZIJN NOG PRODUKTEN MET DEZE LEVERANCIER" 
T4 ;\PRI\\1\\S COM="NOG INDICES VOOR DEZE LEVERANCIER" 
T7 ;PL;;22\TO;F;107\TO;M;107\TOL;F;107\PRI;;101
 ;
 ; AANKOOPKANT
1 S US="",NR=0 S ^WAV("%A",3,"LE",0)="D ^cA274"
12 S US=$O(^ETOL(0,US)) G 2:US="" S NR=NR+1
14 S R=$P($T(T1)," ",2,999),$P(R,D,2)="TOL",$P(R,D,3)=US,^WAV("%A",3,"LE",NR)=R
16 G 12
 ;
2 S US=""
22 S US=$O(^ETO(0,US)) G 5:US="" S NR=NR+1
24 S R=$P($T(T1)," ",2,999),$P(R,D,2)="TO",$P(R,D,3)=US S:US="M" $P(R,D,4)=101 S ^WAV("%A",3,"LE",NR)=R
26 G 22
 ;
5 S NR=NR+1 S ^WAV("%A",3,"LE",NR)=$P($T(T3)," ",2,999)
51 S NR=NR+1 S ^WAV("%A",3,"LE",NR)=$P($T(T4)," ",2,999)
 ;
6 S ^WAV("%A",5,"LE",1)=$P($T(T7)," ",2,999)
 ;
7 G ^cI62
 ;
YZ Q
 ;
Z X ^cZ
ZZ ; 08.12.92 - 16 u 23 *