PRIMER
 n o,sql,ok
 s o=##class(%ResultSet).%New("%DynamicQuery:SQL")
 s sql="select fam,name,otch,dr from user.people group by fam,name,otch,dr having count(*)>1"
 s ok=o.Prepare(sql)
 s ok=o.Execute(Id)
 while o.Next() {
    w o.Get("fam")," ",o.Get("im")," ",o.Get("ot")," ",o.Get(dtr")
 }
 d o.Close()
 q

s ^People(fam,im,otch)=datr

s ^People(fam,im,otch,ID)=datr

s ^Dat(ID,"fam")="Иванов"
s ^Dat(ID,"im")="Иван"
s ^Dat(ID,"otch")="Иванович"
s ^Dat(ID,"datr")="01.02.1980"

s key=$lb(fam,im,otch,datr)
s ^ind(key,ID)=""

PRIMER
 n
 s key=$o(^ind(""))
 where key'="" {
    s id=$o(^ind(key,""))
    if id'=$o(^ind(key,""),- 1 ) {
       w $g(^Dat(ID,"fam"))," ",$g(^Dat(ID,"im"))," ",$g(^Dat(ID,"otch"))," ",$g(^Dat(ID,"datr"))
    }
    s key=$o(^ind(key))
 }
 q