cA257 ;OPHALEN KODES ;%A25* ; [ 04/29/98  5:09 PM ]
 G 1
 ;
 ; input : R='variabele voor index\eerste stuk full reference'
 ; output: @$P(R,D)
 ; intern: %A257
 ;
T0 ;Ophalen codes ;
T1 ;  even geduld ... de selectie via utili-data wordt opnieuw uitgevoerd ;
 ;
T0F ;Chercher codes ;
T1F ;  un instant ... exécution de la sélection Utili-data en cours ;
 ;
T0E ;Ophalen codes ;
T1E ;  even geduld ... de selectie via utili-data wordt opnieuw uitgevoerd ;
 ;
S1 S R3='$L(R1) I 'R3 S R3=$D(@("^"_QS_Q_R2_""""_R1_""")"))
S1Z Q
 ;
S2 I QP,$D(F),$D(F1),$D(F60) S FP=2401+F60 W @F,@F1,$P($T(@("T1"_QT)),U,2)
S2A S %08=$J+.01 D ^cA338 S ^HULP(boot,$J+.01)=%A257
S2B D ^cA600,^cA105,^cA106 S QP=0,PP(2)=^HULP(boot,$J+.01) D ^cTU6
S2C S %08=$J+.01 D ^cA339
S2D I QP,$D(F),$D(F1),$D(F60) S FP=2401+F60 W @F,@F1
S2Z Q
 ;
1 S R1=$P(R,D),R2=$P(R,D,2),R3=0 S:'$D(@R1) @R1="" S R1=@R1 I $G(%A257) G 3
11 I LIM2=" " G 2
13 I LIM2="" S R1=$O(LIM1(R1)) D S1 G Y:R3,13
15 I '$D(%A257) S R1=LIM1 D S1 S %A257=0
17 G Y:R3 S R1=$O(@("^"_QS_Q_R2_""""_R1_""")")) S:R1]LIM2 R1="" D S1 G 17
 ;
2 S %A257=+$P(LIM1," ",2),R3=$D(@("^"_QS_Q_"LIS1(%A257)")) I R3 S %A257=^(%A257),R3=$L(%A257) I R3 S R3=$D(@("^"_QS_Q_"LIS(%A257,0)"))
21 I R3 S R3=R2=$P(^(0),D,3) I R3 S %A257=+$P(^(0),D)
23 I 'R3 S R1="" G Y
25 I $D(PP(3)),PP(3) D S2
27 K PP(1),PP(2),PP(3) S LIM2=""
 ;
3 S LIM2=$O(@("^"_QS_Q_"LIH(%A257,LIM2)")),R1=$S($L(LIM2):^(LIM2),1:"") D S1 G Y:R3,3
 ;
Y S @$P(R,D)=R1 I R1="" K %A257
YZ K R,R1,R2,R3 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84