KSELR G 1 ;SELEKTIE VOOR LISTINGS ;KSEL; Go van KSELF [ 12/10/2003  4:54 PM ]
 ;
T2 ;SELECTIE
T3 ;LAATSTE SELECTIE OP ;ER WAREN ER ; GESELECTEERD OP DE ;DE SELECTIE DUURDE 
 ;
1       
 Set K=$$^cANSYN("SEL")
 Xecute F71
 Goto 12^KSELF:K="-"
 Set X1=K,K=^DATA(Q,"SEL",K,0),X2=$P(K,D)
 Goto 1:$P(K,D,2)'=Q1
 Set FP=403
 Write @F,@F1,$P($T(T2),U,2)," ",X1,"   ",X2
 Goto 1:'$P(K,D,6)
 Set I=$T(T3),FP=803
 Write @F,$P(I,U,2),$P(K,D,9)," - ",$P(K,D,10)
 Set FP=903
 Write @F,$P(I,U,3),$P(K,D,6),$P(I,U,4),$P(K,D,7)
 ;Set FP=1003
 ;Write @F,$P(I,U,5) ;,$P(K,D,8)
 ;Set K=$P(K,D,3) Set:'K K=1 Set K=@("^"_Q_"LI(Q1,K)"),FP=1103
 ;Write @F,$P(K,D,1)
 Set NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),@Q1=0,@(Q1_"X")=999999,Q0="^UTILI(Q,""SEL"",X1,"_Q1_")"
 Quit
 ;