ÿþ 
 	 v a r   M E S S A G E _ T I M E O U T   =   4 0 0 0 ;  
  
 	 v a r   g _ M e s s a g e A c t i v e   =   0 ;  
 	 v a r   g _ T i m e r I D ;  
 	 v a r   g _ H i t C o u n t e r   =   0 ;  
  
 	 f u n c t i o n   I n i t i a l i z e ( )  
 	 {  
 	 	 / / n o t i f i c a t i o n A r e a   =   f r a m e s . n o t i f i c a t i o n A r e a . c o n t e n t W i n d o w . d o c u m e n t . g e t E l e m e n t B y I d ( ' n o t i f i c a t i o n B o x ' ) ;  
 	 }  
  
 	 f u n c t i o n   M e s s a g e ( m e s s a g e )  
 	 {  
 	 	 g _ H i t C o u n t e r   + =   1 ;  
 	 	  
 	 	 i f   ( g _ M e s s a g e A c t i v e   = =   1 )  
 	 	 {  
 	 	 	 w i n d o w . c l e a r T i m e o u t ( g _ T i m e r I D ) ;  
 	 	 }  
 	 	  
 	 	 f r a m e s . s t a t u s A r e a . S e t M e s s a g e ( m e s s a g e ) ;  
 	 	  
 	 	 g _ M e s s a g e A c t i v e   =   1 ;  
 	 	  
 	 	 g _ T i m e r I D   =   w i n d o w . s e t T i m e o u t ( " C l e a r M e s s a g e ( ) " ,   M E S S A G E _ T I M E O U T ) ;  
 	 }  
  
 	 f u n c t i o n   S e t G U I ( s t a r t P a g e ,   n a v i g a t i o n V i s i b l e ,   m e s s a g e ,   u s e r I n f o ,   i s A d m i n i s t r a t o r ,   i s P h y s i c i a n ,   i s U s e r A d m i n i s t r a t o r )  
 	 {  
 	 	 i f   ( s t a r t P a g e   ! =   n u l l )  
 	 	 {  
 	 	 	 O p e n W i n d o w ( s t a r t P a g e ) ;  
 	 	 }  
 	 	  
 	 	 i f   ( n a v i g a t i o n V i s i b l e   ! =   n u l l )  
 	 	 {  
 	 	 	 S e t N a v i g a t i o n ( n a v i g a t i o n V i s i b l e ,   i s A d m i n i s t r a t o r ,   i s P h y s i c i a n ,   i s U s e r A d m i n i s t r a t o r ) ;  
 	 	 }  
 	 	  
 	 	 i f   ( m e s s a g e   ! =   n u l l )  
 	 	 {  
 	 	 	 M e s s a g e ( m e s s a g e ) ;  
 	 	 }  
 	 	  
 	 	 i f   ( u s e r I n f o   ! =   n u l l )  
 	 	 {  
 	 	 	 S e t U s e r I n f o ( u s e r I n f o ) ;  
 	 	 }  
 	 }  
  
 	 f u n c t i o n   S e t N a v i g a t i o n ( v a l u e ,   i s A d m i n i s t r a t o r ,   i s P h y s i c i a n ,   i s U s e r A d m i n i s t r a t o r )  
 	 {  
 	 	 f r a m e s . n a v i g a t i o n A r e a . S e t V i s i b i l i t y ( v a l u e ,   i s A d m i n i s t r a t o r ,   i s P h y s i c i a n ,   i s U s e r A d m i n i s t r a t o r ) ;  
 	 }  
 	  
 	 f u n c t i o n   S e t U s e r I n f o ( m e s s a g e )  
 	 {  
 	 	 f r a m e s . s t a t u s A r e a . S e t U s e r I n f o ( m e s s a g e ) ;  
 	 }  
 	  
 	 f u n c t i o n   C l e a r M e s s a g e ( )  
 	 {  
 	 	 g _ M e s s a g e A c t i v e   =   0 ;  
 	 	  
 	 	 f r a m e s . s t a t u s A r e a . S e t M e s s a g e ( ' ' ) ;  
 	 }  
  
 	 f u n c t i o n   O p e n W i n d o w ( t a r g e t W i n d o w )  
 	 {  
 	 	 d o c u m e n t . a l l . m a i n . s r c   =   t a r g e t W i n d o w ;  
 	 } 
