cA512 ;RAADPLEGEN FIRMA'S ;%A512 ; [ 11/13/95  4:39 PM ]
 ;
T0 ;Raadplegen firma's ;
 ;
T0F ;Consultation firmes;
 ;
T0E ;Raadplegen firma's ;
 ;
1 D MASTER^cQ5
11 N R,R1,R2,RSORT
13 S R=$P(^cLOG(boot,"Q"),D,2,999)
 ;
 ; toekennen ^HULP
2 L +^HULP("SORT",0)
21 S RSORT=$G(^HULP("SORT",0),1),^(0)=RSORT+1
23 L -^HULP("SORT",0)
 ;
 ; sorteren in ^HULP
3 F R1=1:1 S R2=$P(R,D),R=$P(R,D,2,99) Q:R2=""  D
 . I $D(@("^"_R2_"BA(99,1)")) S ^HULP("SORT",RSORT,R2)=^(1)
 ;
 ; scroll in selektie
4 D ^cAN103("K",16,0,"Q.TST",K)
 ;
 ; verwijderen ^HULP
5 L +^HULP("SORT",0)
51 K ^HULP("SORT",RSORT) I $O(^(RSORT))="" S ^(0)=RSORT I $O(^(0))="" S ^(0)=1
53 L -^HULP("SORT",0)
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84