//только для дефолтового хранения
 //d checkIndex^checkIndex("Contracts.EPhDogovor","Ab")
 //d checkClass^checkIndex("Payments.EbgPayments")
simplyRebuild(file= 0 ) //перестроить все индексы средствами каше
 d openFile(file)
 s class=$o(^oddCOM("A"))	
 while class'=""
     {s classtype=$g(^oddCOM(class,23))
      if classtype="persistent" 
          {w !,"Перестройка индесов ",class
	       x "d ##class("_class_").%BuildIndices(,1)"
          }
	  s class=$o(^oddCOM(class))	
     }
 q 
checkAll(repair=0,file=0) public
{d openFile(file)
 s class=$o(^oddCOM("A"))	
 while class'=""
     {s classtype=$g(^oddCOM(class, 23 ))
      d:classtype="persistent" checkClass(class,repair)
	  s class=$o(^oddCOM(class))	
     }
 q
} 
 //Комплексная проверка для класса
checkClass(class,repair= 0 ,file= 0 ) public
 {d openFile(file)
  s dataS=$g(^oddCOM(class,"s","Default", 24 ))	
  if dataS="" {w !,"Класс ",class," не существует или имеет нестандартное хранение" q}
  w !,"Проверка индексов для класса:",class
  
  d checkIndexExist(class,repair)
  d checkIndexCorrect(class,repair)  
  q
 }
 
 // проверяет индексные записи на корректность. Пока не проверяет доп-поля                                  
checkIndexCorrect(class,repair= 0 ,file= 0 )[storageIndex] public
 {n storageIndex
  d openFile(file)
  if $d(^oddCOM(class,"s","Default", 24 ))= 0  {w !,"Нестандартное хранение или неверный класс" q}
  s dataStorage=$g(^oddCOM(class,"s","Default", 24 )) 
  s indexStorage=^oddCOM(class,"s","Default", 25 )
  d buildStorageIndex(class)
  
  s index=$o(^oddCOM(class,"i","")) //собираем индексные поля
  while index'=""
      {s indexLength(index)=^oddCOM(class,"i",index,"I")
	   f i=1:1:indexLength(index) s indexField(index,i)=^oddCOM(class,"i",index,"I",i,23)	   
       
       //собираем дата-поля от индекса	   
	   s indexDataList=$p(^oddCOM(class,"i",index,22),"~",4)
	   s indexDataLength(index)=$l(indexDataList,",")
	   s:indexDataList'="" indexDataLength(index)=indexDataLength(index)+ 1 
 
	   s indexData(index, 1 )="%%CLASSNAME"
	   f i= 1 : 1 :indexDataLength(index) s indexData(index,i+ 1 )=$p(indexDataList,",",i)
	   
	   //удалим из списка проверки idkey
	   k:^oddCOM(class,"i",index, 5 )="key" indexLength(index),indexField(index),indexData(index)
	   s index=$o(^oddCOM(class,"i",index))
      }
   
  s indexLine=$q(@indexStorage@(""))
  while indexLine'=""
      {
	   s index=$qs(indexLine,1)
	   g:$d(indexLength(index))=0 skipRecord  //Чужой индекс, возможно от чужого класса
       s id=$qs(indexLine,2+indexLength(index))
       s existDataFlag=$d(@dataStorage@(id)) 
       if existDataFlag=0 
           {w !,indexLine," ;индекс на несуществующую запись"
            k:repair @indexLine
            w:repair " /удаляем"
            g skipRecord
           }       
       f i=1:1:indexLength(index) //проверка основных индексных полей
           {s fieldName=indexField(index,i)
            s fieldType=$lg(storageIndex(fieldName),4)
            s fieldValue(i)=$$getValue(dataStorage,id,fieldName)
	        s fieldValue(i)=$$normalizeData(fieldValue(i),fieldType)
	        if fieldValue(i)'=$qs(indexLine, 1 +i)
	            {w !,indexLine," ;в индексе ",index," неправильное поле:",fieldName,", ожидается:'",fieldValue(i),"'"
                 w:repair ", /удаляем индекс" 
                 k:repair @indexLine 
                 g skipRecord           
	            }
           }
       /**Проверка дата-полей*/
       if indexDataLength(index)= 1   //если поле данных одно, то это имя класса и хранится оно как строка
           {s fieldName=indexData(index, 1 )
            s fieldValue=$$getValue(dataStorage,id,fieldName)
            s indexDataValue=$g(@indexLine)
            s indexDataExist=$d(@indexLine)
 
            if (indexDataValue'=fieldValue)||('indexDataExist)
                {w !,indexLine," ;в индексе ",index," поле данных:",fieldName,", ожидается:'",fieldValue,"' вместо:",$case(indexDataExist, 1 :"'"_indexDataValue_"'",:"~пусто~"),""
                 w:repair ", /исправляем" 
                 s:repair @indexLine=fieldValue
                }
            g skipRecord    
           }
       f i= 1 : 1 :indexDataLength(index)  //если полей данных много, то хранятся они как список
           {s fieldName=indexData(index,i)
            s fieldValue=$$getValue(dataStorage,id,fieldName)
            s indexDataValue=$lg(@indexLine,i)
            s indexDataExist=$ld(@indexLine,i)
 
            if (indexDataValue'=fieldValue)||('indexDataExist)
                {w !,indexLine," ;в индексе ",index," поле данных:",fieldName,", ожидается:'",fieldValue,"' вместо:",$case(indexDataExist, 1 :"'"_indexDataValue_"'",:"~пусто~"),""
                 w:repair ", /исправляем" 
                 s $li(@indexLine,i)=fieldValue
                }
           }     
skipRecord  //метка типа continue
	   s indexLine=$q(@indexLine)
      }
  s res=$lb(count,countMissIndex)
  q 
 }
 /*Проверяет наличие корректных индексов для экземпляров класса*/
checkIndexExist(class,repair= 0 ,file= 0 )[storageIndex] public
 {n storageIndex
  d openFile(file)
  if $d(^oddCOM(class,"s","Default", 24 ))= 0  {w !,"Нестандартное хранение или неверный класс" q}
  s dataStorage=$g(^oddCOM(class,"s","Default", 24 )) 
  s indexStorage=^oddCOM(class,"s","Default", 25 )
  d buildStorageIndex(class)
  s classNameList=$$buildClassnameList(class)
  
  s index=$o(^oddCOM(class,"i",""))
  while index'=""
      {s indexLength(index)=^oddCOM(class,"i",index,"I")
	   f i=1:1:indexLength(index) s indexField(index,i)=^oddCOM(class,"i",index,"I",i,23)
	   
	   //удалим из списка проверки idkey
	   k:^oddCOM(class,"i",index,5)="key" indexLength(index),indexField(index)
	   s index=$o(^oddCOM(class,"i",index))
      }
  s id=$o(@dataStorage@(""))
  while id'=""
      {//если это наследованный класс, но у экземпляра не совпадающее %%CLASSNAME,
       //ставим флаг чужого класса
       s className=$$getValue(dataStorage,id,"%%CLASSNAME")
       s targetClassFlag=classNameList[className
	   s index=$o(indexLength(""))
       while (index'="")&&(targetClassFlag)
           {s indexLength=indexLength(index)
           
	        f i=1:1:indexLength
               {s fieldName=indexField(index,i)
                s fieldType=$lg(storageIndex(fieldName),4)
                s fieldValue(i)=$$getValue(dataStorage,id,fieldName)
	            s fieldValue(i)=$$normalizeData(fieldValue(i),fieldType)
               }
            s flagOK=""
            s:indexLength=1 flagOK=$d(@indexStorage@(index,fieldValue(1),id))
            s:indexLength=2 flagOK=$d(@indexStorage@(index,fieldValue(1),fieldValue(2),id))
 	        s:indexLength=3 flagOK=$d(@indexStorage@(index,fieldValue(1),fieldValue(2),fieldValue(3),id))
 	        s:indexLength=4 flagOK=$d(@indexStorage@(index,fieldValue(1),fieldValue(2),fieldValue(3),fieldValue(4),id))
 	        s:indexLength=5 flagOK=$d(@indexStorage@(index,fieldValue(1),fieldValue(2),fieldValue(3),fieldValue(4),fieldValue(5),id))
            if flagOK'= 1  
                {w !,"index=",index," для id=",id," отсутствует ("
                 f i= 1 : 1 :indexLength w indexField(index,i),"=",fieldValue(i),","
                 w "id=",id,")"
                 if repair
                     {s:indexLength= 1  @indexStorage@(index,fieldValue( 1 ),id)=""
                      s:indexLength= 2  @indexStorage@(index,fieldValue( 1 ),fieldValue( 2 ),id)=""
 	                  s:indexLength= 3  @indexStorage@(index,fieldValue( 1 ),fieldValue( 2 ),fieldValue( 3 ),id)=""
 	                  s:indexLength= 4  @indexStorage@(index,fieldValue( 1 ),fieldValue( 2 ),fieldValue( 3 ),fieldValue( 4 ),id)=""
 	                  s:indexLength= 5  @indexStorage@(index,fieldValue( 1 ),fieldValue( 2 ),fieldValue( 3 ),fieldValue( 4 ),fieldValue( 5 ),id)=""
 	                  w " /строим базовую часть"
                     } 
                } 
	        s index=$o(indexLength(index))
           }
	   s id=$o(@dataStorage@(id))
      }
  q 
 }
 /*Собирает информацию о хранении в специальную переменную storageIndex*/
buildStorageIndex(class)[storageIndex]  
 {k storageIndex
  s storage=$o(^oddCOM(class,"s","Default","D",""))
  while storage'=""
      {
       s storageType=$g(^oddCOM(class,"s","Default","D",storage,22),"listnode")
	   if storageType="listnode"
	       {s i=$o(^oddCOM(class,"s","Default","D",storage,"V",""))
		    while i'=""
               {s field=^oddCOM(class,"s","Default","D",storage,"V",i, 21 )
                s type=$g(^oddCOM(class,"a",field, 40 ))
                s subscript=$g(^oddCOM(class,"s","Default","D",storage, 23 ))
                s storageIndex(field)=$lb(i,subscript,storageType,type)
	            s i=$o(^oddCOM(class,"s","Default","D",storage,"V",i))
               }   
	       }     
	   if (storageType="subnode")||(storageType="node")
	       {s field=^oddCOM(class,"s","Default","D",storage, 21 )
            s type=$g(^oddCOM(class,"a",field, 40 ))
            s subscript=$g(^oddCOM(class,"s","Default","D",storage, 23 ))
            s storageIndex(field)=$lb(i,subscript,storageType,type)
	       }
	   s storage=$o(^oddCOM(class,"s","Default","D",storage))
      }
  q
 }
 /*Переводит данные в формат для хранения в индексах. Пока знает только %String */
normalizeData(value,type)
{q:type="%Library.String" $system.SQL.SQLUPPER(value)
 q:value="" -1e14
 
 q value
} 
 /*Выдергивает значение поля из глобала. Как раз для этого и нужнен был storageIndex*/
getValue(dataStorage,id,fieldName)[storageIndex]
{s storageOffset=$lg(storageIndex(fieldName), 1 )
 s storageSubscript=$lg(storageIndex(fieldName), 2 )
 s storageSubscript=$tr(storageSubscript,"""","")
 s storageType=$lg(storageIndex(fieldName), 3 )
 
 s:storageSubscript="" fieldValue=$g(@dataStorage@(id))
 s:storageSubscript'="" fieldValue=$g(@dataStorage@(id,storageSubscript))
 
 q:storageType="listnode" $lg(fieldValue,storageOffset)
 q fieldValue
}
 /*Строит список имен классов, которые может иметь экземпляр данного класса,
   так как при наследовании имя класса может отличаться   */
buildClassnameList(class1) 
{s classList="~"
 //если класс наследуется напрямую от %Persistent, имя класса может быть пустым
 s:$p($g(^oddCOM(class1,60)),",")="%Library.Persistent" classList=classList_"~"
 s class=$o(^oddCOM("A"))	
 while class'=""
     {//^oddCOM(class, 45 ) - Это вся цепочка наследованных классов
	  s:$f($g(^oddCOM(class, 45 )),"~"_class1_"~") classList=classList_class_"~"
	  s class=$o(^oddCOM(class))	
     }
 q classList
} 
openFile(file)
{q:file= 0 
 c file o file:"NW": 1  
 w:'$test "Файл ",file," не открыт"
 u:$test file 
}

s:indexLength= 4  
flagOK=$d(@indexStorage@(index,fieldValue( 1 ),fieldValue( 2 ),fieldValue( 3 ),fieldValue( 4 ),id))

если бы ты работал в моем отделе - переписывал бы код однозначно.  Т.ч. все это очень спорно...

 s:indexLength= 1 ....    s:indexLength= 2       s:indexLength= 3  

while index'="" {
    continue:$$$comMemberKeyGet(class,$$$cCLASSindex,index,$$$cINDEXidkey)
    /*****/
    s index=$$$comMemberNext(class,$$$cCLASSindex,index)
    }