cABI03	;Hulpprogramma's UGL ;%AB1 ; [ 06/29/01  2:42 PM ]
	G 1
	;
T1	;  1. Raadplegen OD;OD^cABIUGL;
T2	;  2. Raadplegen UL;UL^cABIUGL;
T3	;  3. Raadplegen FA;FA^cABIUGL;
T4	;  4. Raadplegen INTR;INTR^cABIUGL;
T5	; ;ZZ;
T6	; ;ZZ;
T7	; ;ZZ;
T8	; ;ZZ;
T9	; ;ZZ;
T10	; 10. Raadplegen UGL;^cABIUGL;
T11	; 11. Raadplegen TO;TO^cABIUGL;
T12	; 12. Raadplegen TOL;TOL^cABIUGL;
T13	; ;ZZ;
T14	; ;ZZ;
T15	; ;ZZ;
T16	; ;ZZ;
T17	; ;ZZ;
T18	; ;ZZ;
T19	; ;ZZ;
T20	; ;ZZ;
T99	;Nummer element\"Q[] = Q-waarde";
	;
	; Titel
1	D E^cA612,B^cA612
	D T^cA612($P($T(+1),U,2)_"["""_$ZU(5)_"""]",1,0,7,0,1)
	I $G(Q)'?1.3U S K="Q" G 34
	D T^cA612("Q="""_Q_"""",1,2,7,0,0)
	D ^cA604
	;
	; Mogelijkheden
2	F I=1:1:20 S J=$P($T(@("T"_I)),U,2) Q:J=""  W /CUP($S(I<11:I,1:I-10)+2,$S(I<11:1,1:41)),J
	D S2^cAB1
	;
	; Nummer element
3	S R="U1\22\3\"_$P($T(T99),U,2)_"\2",$P(R,D,11)=1 D R0 G YZ:K="-"
34	I K="Q" S R="Q\22\3\Q\""XX[] = Q-waarde""\3\\K?1.3A\\\1" D R0 G 1
	I K,K<21 S I=$T(@("T"_(+K))) D  S:K=""!($ZV["MSM") K=$P(I,U,3) D B^cA612,@K H 1 G 1
	. S K=$P(I,U,4) I $L(K),K'="ZZ",K'["^" S K="^"_K ; %-programma's Caché
39	G 3
	;
YZ	D E^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 29.10.02 - 11 u 38 * V7.93