danik.js, у меня, например, основной язык вообще по 1-2-м символам понимает, что за команда или функция (из языка) используется...
Т.о. применение 1-2-х буквенных переменных для меня норма.
Пример процедурки
INFO(Urn,Name) ; ~ Записать информацию ~
n i,j,k,key
; Urn - urn гражданина
; Name - имя переменной с текстом
s:$g(Name)="" Name="txt"
s key=$$Index^ASYS("FIO",Urn,,idset)
s i=$o(@info@(key,"Txt",""),-1)
s:i'="" i=i+1
s @info@(key,"Urn")=Urn
i $i(@info@(key,"All"))
s j=""
f k=1:1 s j=$o(@Name@(j)) q:j="" s @info@(key,"Txt",i+k)=@Name@(j)
q
И любой мало-мальски опытный кашевар его запросто поймет...