//////////////////// Включенные функции многострочные 
Usr(var,time)	; 
 $$$Usr
CmdValue(Win,Element,Value) ;
 $$$CmdValue
SetVar(var,val) ;
 $$$SetVar
Timer(number,pres) ;
 $$$Timer
StartTimer(number) ; 
 $$$StartTimer
SetStep(alg,step) ;
 $$$SetStep
Step(alg) 
 $$$Step
SetPrTeg(prot,teg,val)  
 $$$SetPrTeg
SetPrTxt(prot,teg,val,Cond=0)
 $$$SetPrTxt
FormProt(tampl)   
 $$$FormProt
Print(prot) 
 $$$Print
BazaProtocol(Bazprot)
 $$$BazaProtocol
StopTimer(number)
 $$$StopTimer
 //////////////////// Конец Включенные функции многострочные 

 #include Alg
Alg1005 //Алгоритм Ложного Запуска двигателя
  //Переход по текущему шагу
  Do $Case($Get(^SPR("Alg",1005,"step")),1:Step1,
                                         2:Step2,
                                         3:Step3,
                                         4:Step4,                                  
                                    "INIT":INIT,
                                     "END":END,
                                          :NoStep)
  Quit  //Выход из алгоритма    
 
NoStep //Выход по неопределенному шагу 
  Set ^LogErrorTA("Error",$ZHorolog)="Ошибка при исполнении алгоритма Alg1005: Неопределенный шаг"
      //вставка реакции на ошибку
  Set ^SPR("Alg",1005,"step")="INIT" //Установить шаг исполнения INIT для алг 1005
  Set ^SPR("Alg",1005.1,"step")=1 //Установить шаг исполнения 1 для алг 1005.1
  Set ^SPR("Alg",1005.2,"step")=1 //Установить шаг исполнения 1 для алг 1005.2
  Quit
 
INIT // шаг инициализации исполняется однократно и безусловно
  //Установка следующего шага
  Do SetStep(1005,1) //Установить шаг исполнения 1 для алг 1005
  Quit
 
END //шаг остановки алгоритма из этого шага выход только принудительный
  Quit
  
Step1 
  $$$ClearProtokol("Prot15")
  $$$ClearProtokol("Shapka15")
  if $$$SV(7041)
  {
    Do SetPrTeg("Prot15", "text01", $zt($p($h,",",2)))
    Do SetStep(1005.1,1) //Установить шаг исполнения 1 для алг 1005.1
    Do SetStep(1005.2,1) //Установить шаг исполнения 1 для алг 1005.2
    Do SetStep(1005,3) 
    quit //
  }  
  if $$$SV(2351){Do SetStep(1005,2) quit}
  Do SetStep(1005,1) 
  quit
 
Step2 // шаг 2
  Do StartTimer(1005)
  Do SetPrTeg("Prot15", "text01", $zt($p($h,",",2)))    // время
  Do SetPrTxt("Prot15", "text02", 1031)                 // режим
  Do SetPrTeg("Prot15", "Teg01", $$Usr(1301,2))  
  Do SetPrTeg("Prot15", "Teg02", $$Usr(1214,2))  
  Do SetPrTeg("Prot15", "Teg03", $$Usr(1103,2))  
  Do SetPrTeg("Prot15", "Teg04", $$Usr(1220,2))  
  Do SetPrTeg("Prot15", "Teg05", $$Usr(1318,2))  
  Do SetStep(1005,3)    //Установить шаг исполнения 3 для алг 1005
  Do SetStep(1005.1,1) //Установить шаг исполнения 1 для алг 1005.1
  Do SetStep(1005.2,1) //Установить шаг исполнения 1 для алг 1005.2
  quit
 
Step3 // шаг 2
  Do Alg1005V1 //Алг ЛЗ ветка 1
  Do Alg1005V2 //Алг ЛЗ ветка 2
  If (($$Step(1005.1)="END") && ($$Step(1005.2)="END"))
  {Do SetStep(1005,4)} //Установить шаг исполнения 3 для алг 1005
  quit
 
Step4
  Do StopTimer(1005)
  Do FormProt("Shapka15") ; Сформировать выбранный протокол
  Do Print("Shapka15") ; Печатать выбранный протокол
  Do FormProt("Prot15") ; Сформировать выбранный протокол
  Do Print("Prot15") ; Печатать выбранный протокол
  Do SetVar(516,"ЛЗ") //
  Do SetVar(517,"Протокол ЛЗ") //
  Do BazaProtocol("Prot15") ;
  Do SetVar(1, 1)
  Do SetVar(26, 3)  
  quit
 
 //--------------------------------------------------------------------------------------------
Alg1005V1 //ветка 1
  //Переход по текущему шагу
  Do $Case($Get(^SPR("Alg",1005.1,"step")), 1:Step1V1,
                                        "END":ENDV1,
                                             :NoStep)
  Quit  //Выход из ветки 1    
 
Step1V1
  if ($$$SV(7041) || ($$$SV(2351)=0))
   {Do SetStep(1005.1,"END") Quit}
  if ($$Usr(1118,2)>0.5)
  {
    Do SetPrTeg("Prot15", "Teg21", $$Usr(1303,2))  
    Do SetStep(1005.1,"END")
  }
  Quit
 
ENDV1 
  Quit
 
 //--------------------------------------------------------------------------------------------
Alg1005V2 //Алг Запуска ветка 2
  //Переход по текущему шагу
  Do $Case($Get(^SPR("Alg",1005.2,"step")),1:Step1V2,
                                           2:Step2V2,
                                           3:Step3V2,
                                           4:Step4V2,
                                           5:Step5V2,
                                       "END":ENDV2,
                                            :NoStep)
  Quit  //Выход из ветки 2    
 
Step1V2
  if ($$$SV(7041) || ($$$SV(2351)=0))
   {Do SetStep(1005.2,4) Quit}
  if ($$Timer(1005,3)>25)
   {
    Do SetVar(5, 0)  
    Do SetVar(6, 0)  
    Do SetPrTeg("Prot15", "Teg06", $$$TxtVal(25,1389))  
    Do SetPrTeg("Prot15", "Teg07", $$$TxtVal(25,1394))  
    Do SetStep(1005.2,2)
   }
  Quit
 
Step2V2
  if ($$$SV(7041) || ($$$SV(2351)=0))
   {Do SetStep(1005.2,4) Quit}
  if ($$Timer(1005,3)>50)
   {
    Do SetVar(7, 0)
    Do SetVar(8, 0)
    Do SetVar(27, 0)
    Do SetPrTeg("Prot15", "Teg08", $$$TxtVal(25,1387))
    Do SetPrTeg("Prot15", "Teg09", $$Usr(1304,2))
    Do SetPrTeg("Prot15", "Teg10", $$$TxtVal(25,1386))
    Do SetPrTeg("Prot15", "Teg12", $$$TxtVal(25,1388))  
    Do SetStep(1005.2,3)
  }
  Quit
 
Step3V2
  if ($$$SV(7041) || ($$$SV(2351)=0))
   {Do SetStep(1005.2,4) Quit}
  Quit
 
Step4V2
  set tmp=$$Timer(1005,1)
  Do CmdValue(25,1395,tmp)
  Do SetPrTeg("Prot15", "Teg11", tmp)
  if ($$Step(1004)="END") {Do SetStep(1004,1)} 
  Do SetStep(1005.2,5)
  quit
 
Step5V2
  Do ^Alg1004   //1004
  if ($$Step(1004)="END")
  {
    Do SetPrTeg("Prot15", "Teg13", $$$SV(4))
    Do CmdValue(25,1397,$$$SV(3))
    Do SetPrTeg("Prot15", "Teg14", $$$SV(3))
    Do CmdValue(25,1398,$$$SV(4))
    Do SetPrTeg("Prot15", "Teg15", $$Usr(1318,2))
    Do SetStep(1005.2,"END")
  }
  quit
 
ENDV2 
  Quit
  
 
 //////////////////// Включенные функции многострочные 
Usr(var,time)	; 
 $$$Usr
CmdValue(Win,Element,Value) ;
 $$$CmdValue
SetVar(var,val) ;
 $$$SetVar
Timer(number,pres) ;
 $$$Timer
StartTimer(number) ; 
 $$$StartTimer
SetStep(alg,step) ;
 $$$SetStep
Step(alg) 
 $$$Step
SetPrTeg(prot,teg,val)  
 $$$SetPrTeg
SetPrTxt(prot,teg,val,Cond=0)
 $$$SetPrTxt
FormProt(tampl)   
 $$$FormProt
Print(prot) 
 $$$Print
BazaProtocol(Bazprot)
 $$$BazaProtocol
StopTimer(number)
 $$$StopTimer
 //////////////////// Конец Включенные функции многострочные 
 
 
  

#define Usr If +var'=var Quit 0 //##continue
 If $Data(^SystemVars(var))=0 Quit 0 //##continue
	Quit:$Data(USR("WORK",var))=0 ^SystemVars(var) //##continue
	Set:time>USR("SPR",var,"TIMEMAX") time=USR("SPR",var,"TIMEMAX") //##continue
	Quit:$Data(USR("TMP",var,time)) USR("TMP",var,time) //##continue
	Set countusr=time*20 //20 //countiter //##continue
	Set cell=USR("SPR",var,"TEK") //##continue
	Set max=USR("SPR",var,"MAX") //##continue
	Set pres=USR("SPR",var,"PRES") //##continue
	Set summ=0 //##continue
	For i=1:1:countusr //##continue
	 { //##continue
	  Set cell=cell-1 //##continue
	  Set:cell=0 cell=max //##continue
	  Set summ=summ+USR("WORK",var,cell) //##continue
	 } //##continue
	Set usr=$Justify(summ/countusr,"",pres) //##continue
	Set USR("TMP",var,time)=usr //##continue
	Quit usr //##continue

CmdValue(Win,Element,Value) ;
 $$$CmdValue
...
 Do CmdValue(25,1395,tmp)

#define CmdValue(%1, %2, %3)
...
...
 $$$CmdValue(25,1395,tmp)

CmdValue(Win,Element,Value) ;

$$$CmdValue(25,1395,tmp)