KPSELU G 1 ;SELEKTIE VOOR LISTINGS ;KPSEL; Go van KPSELF [ 10/26/2001  11:49 AM ]
 ;
T1 ;DE SELECTIE
T2 ;SELECTIE
T3 ;LAATSTE SELECTIE OP ;ER WAREN ER ; GESELECTEERD OP DE ;DE SELECTIE DUURDE 
 ;
1 I '$D(@("^"_Q_"LI(Q1)")) S K="-" G 2
11 S LST="U",R="K\2000\"_$P($T(T1),U,2)_"\LIS\LIS1" D R1 G 2:K="-"
13 S K=^(K,0),X1=+K,X2=$P(K,D,2) G 11:$P(K,D,3)'=Q1 S FP=403 W @F,@F1,$P($T(T2),U,2)," ",X1,"   ",X2 G 11:'$P(K,D,11)
15 S I=$T(T3),FP=803 W @F,$P(I,U,2),$P(K,D,9)," - ",$P(K,D,10)
17 S FP=903 W @F,$P(I,U,3),$P(K,D,11),$P(I,U,4),$P(K,D,12) S FP=1003 W @F,$P(I,U,5),$P(K,D,8)
18 S K=$P(K,D,4) S:'K K=1 S K=@("^"_Q_"LI(Q1,K)"),FP=1103 W @F,$P(K,D,1)
19 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),Q1="UTN",@Q1=0,@(Q1_"X")=999999,Q0="^"_Q_"LIH(X1,"_Q1_")" G YZ
 ;
2 G 12^KPSELF
 ;
YZ Q
 ;
R1 D ^cA101 Q
 ;