cA513 ;RAADPLEGEN MENU'S ;%A513 ;[ 11/13/95  4:53 PM ]
 ;
T0 ;Raadplegen menu's ;
 ;
T0F ;Consultation menus;
 ;
T0E ;Raadplegen menu's ;
 ;
1 N R,RSORT
 ;
 ; 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 S R="" F  S R=$O(@("^"_Q_"BA(""MENU"",R)")) Q:R=""  D
 . I $D(^(R,0)) S ^HULP("SORT",RSORT,R)=$P(^(0),D,QTU*10-9)
 ;
 ; scroll in selektie
4 D ^cAN105("K",16,0,"Q.MENU",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