MENU ;Caché:nieuwe menu's; MENU [ 02/05/01  10:02 AM ]
 ;
T0 ;Caché: nieuwe menu's;
 ;
T0E ;Caché: nieuwe menu's;
 ;
YZ Q
 ;
CACHE ;  Aanpassingen firmaselectie
 I $ZV["MSM" G CACHEZ
 K ^DAMBA("MENU",0,50),^DAMBA("MENU",0,51),^DAMBA("MENU",0,90)
 M ^DAMBA("MENU",0)=^cDAMBA("MENU",0)
 S ^DAMBA("MENU",0,90)="Stoppen admininstratie\18\43\MENU^cQMSMSSD\D\MENU^cQMSMSSD\\\\\Shutdown"
 ;  Aanpassingen menu systeem 
 M ^DAMBA("MENU",1005)=^cDAMBA("MENU",1005)
 M ^DAMBA("MENU",1201)=^cDAMBA("MENU",1201)
 ;  Aanpassen menu Data-M
 M ^DAMBA("MENU",1098)=^cDAMBA("MENU",1098)        
 ;  Aanpassen menu Database
 N qq,i,q
 s qq=^cLOG(boot,"Q",$ZU(5))
 f i=2:1 s q=$p(qq,D,i) q:'$l(q)   K @("^"_q_"BA(""MENU"",18,15)")
CACHEZ Q
 ;
ZZ ; 05.02.01 - 10 u 15 * V7.84