settings ;BMI/BI birtns settings routine ;11/26/2023
 Quit
 ;
dictstan() Quit ^ZZBI("dictstan")
 ;
dictglob() Quit ^ZZBI("dictglob")
 ;
ipl() Quit ^ZZBI("ipl")
 ;
servername() Quit ^ZZBI("servername")
 ;
hitcounts Set X="Now" D ^%DT Set ^ZZBI("hitcounts")=Y,^ZZBI("hitcounts",Y)=$Get(^ZZBI("hitcounts",Y))+1 Quit
 ;
hitslast Write ^ZZBI("hitcounts",^ZZBI("hitcounts")) Quit
 ;
hitsview
 New x,max Set x="",max=0
 Write "<table  style=""width: 100%"">",!
 For  Set x=$Order(^ZZBI("hitcounts",x),-1) Quit:x=""  Do
 . Set:^ZZBI("hitcounts",x)>max max=^ZZBI("hitcounts",x)
 Set max=max/100
 For  Set x=$Order(^ZZBI("hitcounts",x),-1) Quit:x=""  Do
 . Write "<tr>"
 . Write "<td style=""width: 15px;"">",$Extract(x,2,7),"</td>"
 . Write "<td style=""text-align: right; width: 15px;"">",^ZZBI("hitcounts",x),"</td>"
 . Write "<td style=""width: 90%"";><img src=""blue.jpg"" style=""width:",(^ZZBI("hitcounts",x)/max),"%; height:10px;""></td>"
 . Write "</tr>",!
 Write "<table>",!
 Quit