settings ;BMI/BI birtns settings routine ;11/26/2023
 Quit
 ;
dictstan() Quit ^ZZBI("dictstan")
 ;
dictglob() Quit ^ZZBI("dictglob")
 ;
ipl() Quit ^ZZBI("ipl")
 ;
logit New logitvar,ipadd,page,X,Y,%DT S X="T" D ^%DT
 Set logitvar=$zcmdline
 Set ipadd=$Translate($Piece(logitvar,"^",1),"_",".")
 Set page=$Piece(logitvar,"^",2)
 Set ^ZZBI("logit",Y)=$Get(^ZZBI("logit",Y))+1
 Set ^ZZBI("logit",Y,ipadd,page)=$Get(^ZZBI("logit",Y,ipadd,page))+1
 Quit