cABIUGL	;Hulpprogramma's aan- en verkoop ;%AB1 ; [ 06/29/01  2:42 PM ]
	G 1
	;
	; Verkoop
OD	S UGL="OD" G 2
UL	S UGL="UL" G 2
FA	S UGL="FA" G 2
	;
	; Aankoop
TO	S UGL="TO" G 2
TOL	S UGL="TOL" G 2
	;
	; Intrastat
INTR	S UGL="INTR" G 2
	;
	; Vraag UGL
1	D E^cA612
	W !,"UGL>" R UGL
	I $TR(UGL,"-^")="" G YZ
	;
	; Mogelijkheden
2	D RS^cAN210("UGL",0,0,0,0)
	;
	;
YZ	D E^cA612 Q
	;
ZZ	; 29.10.02 - 11 u 38 * V7.93