Set statement=##class(%SQL.Statement).%New() Set status=statement.%PrepareClassQuery("%SYS.Audit","List") Set rs=statement.%Execute() Set tab = $char(9) While rs.%Next() { Write rs.%Get("TimeStamp")_tab_rs.%Get("Event")_tab_rs.%Get("Username"),! }
SecTest(user,pass) // user1のパスワードがuser1の場合、認証OKのログを作成 if user="user1",pass="user1" { set ^sqllog($i(^sqllog))="認証OK;"_$horolog_";"_user quit user } // 認証できなかった場合、認証NGのログを作成 set ^sqllog($i(^sqllog))="認証NG;"_$horolog_";"_user quit ""