subs.txt

Collection of subroutines for havc

AC_OBX2RHSO3_FF_SP = Scale ('AC_Master Outside Air Temp', 0, - 12, 80, 10, 40)
AC_OBX2RHSO2_ADMIN_SP = Scale ('AC_Master Outside Air Temp', 0, - 12, 70, 10, 30)
AC_OBX2RHSO1_POOL_SP = Scale ('AC_Master Outside Air Temp', 0, - 12, 70, 10, 30)
AC_OBX2RHSOO_MAIN_SP = Scale ('AC_Master Outside Air Temp', 0, - 12, 80, 10, 40)
                
AC_OBX2CHP_FF_PRIMARY_BV = Switch ( AC_OBX2CHP_FF_PRIMARY_BV, 'AC_Master Outside Air Temp', 12, 14)
AC_OBX2CHP_ADMIN_PRIMARY_BV = Switch ( AC_OBX2CHP_ADMIN_PRIMARY_BV, 'AC_Master Outside Air Temp', 12, 14)
AC_OBX2CHP_POOL_PRIMARY_BV = Switch ( AC_OBX2CHP_POOL_PRIMARY_BV, 'AC_Master Outside Air Temp', 12, 14)

If AC_OBX2SHP_FF_PRIMARY_BV = On Then
   AC_OBX2RHSO3_FF = Scale (AC_OBX2RHS00_FF_CO, 0, 0, 100, 50, 0)
Else
   AC_OBX2RHSO3_FF = 0
End If

If AC_OBX2SHP_ADMIN_PRIMARY_BV = On Then
   AC_OBX2RHSOO2_ADMIN = Scale (AC_OBX2RHS00_ADMIN_CO, 0, 0, 100, 50, 0)
Else
   AC_OBX2RHSOO2_ADMIN = 0
End If

If AC_OBX2SHP_POOL_PRIMARY_BV = On Then
   AC_OBX2RHSOO1_POOL = Scale (AC_OBX2RHS00_POOL_CO, 0, 0, 100, 50, 0)
Else
   AC_OBX2RHSOO1_POOL = 0
End If


AC_OBX2SHP01_FF_BV = Switch ( AC_OBX2SHP01_FF_BV, AC_OBX2IHPO1_FF, 0.5, 0.2)
AC_OBX2SHP02_FF_BV = Switch ( AC_OBX2SHP02_FF_BV, AC_OBX2IHPO2_FF, 0.5, 0.2)
AC_OBX2SHP03_ADMIN_BV = Switch ( AC_OBX2SHP03_ADMIN_BV, AC_OBX2IHPO3_ADMIN, 0.5, 0.2)
AC_OBX2SHP04_ADMIN_BV = Switch ( AC_OBX2SHP04_ADMIN_BV, AC_OBX2IHPO4_ADMIN, 0.5, 0.2)
AC_OBX2SHP05_POOL_BV = Switch ( AC_OBX2SHP05_POOL_BV, AC_OBX2IHPO5_POOL, 0.5, 0.2)
AC_OBX2SHP06_POOL_BV = Switch ( AC_OBX2SHP06_POOL_BV, AC_OBX2IHPO6_POOL, 0.5, 0.2)

//PUMP CYCLE 
IfOnce Weekday = 2 And Time = 900 Then
  //FORCE FLOW PUMPS
   If AC_OBX2SHP01_FF_BT < AC_OBX2SHP02_FF_BT And AC_OBX2XHP01_FF_EV = Normal Then
      PRIMARY_FF_PUMP_BV = Pump_1
   ElseIf  AC_OBX2SHP02_FF_BT < AC_OBX2SHP01_FF_BT And AC_OBX2XHP02_FF_EV = Normal Then
      PRIMARY_FF_PUMP_BV = Pump_2
   Else
      PRIMARY_FF_PUMP_BV = PRIMARY_FF_PUMP_BV
   End If
  //ADMINISTRATION PUMPS
   If AC_OBX2SHP03_ADMIN_BT < AC_OBX2SHP04_ADMIN_BT And AC_OBX2XHP03_ADMIN_EV = Normal Then
      PRIMARY_ADMIN_PUMP_BV = Pump_1
   ElseIf  AC_OBX2SHP04_ADMIN_BT < AC_OBX2SHP03_ADMIN_BT And AC_OBX2XHP04_ADMIN_EV = Normal Then
      PRIMARY_ADMIN_PUMP_BV = Pump_2
   Else
      PRIMARY_ADMIN_PUMP_BV = PRIMARY_ADMIN_PUMP_BV
   End If
  //POOL PUMPS 
   If AC_OBX2SHP05_POOL_BT < AC_OBX2SHP06_POOL_BT And AC_OBX2XHP05_POOL_EV = Normal Then
      PRIMARY_POOL_PUMP_BV = Pump_1
   ElseIf  AC_OBX2SHP06_POOL_BT < AC_OBX2SHP05_POOL_BT And AC_OBX2XHP06_POOL_EV = Normal Then
      PRIMARY_POOL_PUMP_BV = Pump_2
   Else
      PRIMARY_POOL_PUMP_BV = PRIMARY_POOL_PUMP_BV
   End If
End If

If PRIMARY_FF_PUMP_BV = Pump_1 And AC_OBX2XHP01_FF_EV = Fault Then
   PRIMARY_FF_PUMP_BV = Pump_2
End If
If PRIMARY_FF_PUMP_BV = Pump_2 And AC_OBX2XHP02_FF_EV = Fault Then
   PRIMARY_FF_PUMP_BV = Pump_1
End If
If PRIMARY_ADMIN_PUMP_BV = Pump_1 And AC_OBX2XHP03_ADMIN_EV = Fault Then
   PRIMARY_ADMIN_PUMP_BV = Pump_2
End If
If PRIMARY_ADMIN_PUMP_BV = Pump_2 And AC_OBX2XHP04_ADMIN_EV = Fault Then
   PRIMARY_ADMIN_PUMP_BV = Pump_1
End If
If PRIMARY_POOL_PUMP_BV = Pump_1 And AC_OBX2XHP05_POOL_EV = Fault Then
   PRIMARY_POOL_PUMP_BV = Pump_2
End If


//PUMP BINARY STATUS
AC_OBX2SHP01_FF_BV = Switch ( AC_OBX2SHP01_FF_BV, AC_OBX2IHPO1_FF, 0.5, 0.2)
AC_OBX2SHP02_FF_BV = Switch ( AC_OBX2SHP02_FF_BV, AC_OBX2IHPO2_FF, 0.5, 0.2)
AC_OBX2SHP03_ADMIN_BV = Switch ( AC_OBX2SHP03_ADMIN_BV, AC_OBX2IHPO3_ADMIN, 0.5, 0.2)
AC_OBX2SHP04_ADMIN_BV = Switch ( AC_OBX2SHP04_ADMIN_BV, AC_OBX2IHPO4_ADMIN, 0.5, 0.2)
AC_OBX2SHP05_POOL_BV = Switch ( AC_OBX2SHP05_POOL_BV, AC_OBX2IHPO5_POOL, 0.5, 0.2)
AC_OBX2SHP06_POOL_BV = Switch ( AC_OBX2SHP06_POOL_BV, AC_OBX2IHPO6_POOL, 0.5, 0.2)

//PUMP CYCLE 
IfOnce Weekday = 2 And Time = 900 Then
  //FORCE FLOW PUMPS
   If AC_OBX2SHP01_FF_BT < AC_OBX2SHP02_FF_BT And AC_OBX2XHP01_FF_EV = Normal Then
      PRIMARY_FF_PUMP_BV = Pump_1
   ElseIf  AC_OBX2SHP02_FF_BT < AC_OBX2SHP01_FF_BT And AC_OBX2XHP02_FF_EV = Normal Then
      PRIMARY_FF_PUMP_BV = Pump_2
   Else
      PRIMARY_FF_PUMP_BV = PRIMARY_FF_PUMP_BV
   End If
  //ADMINISTRATION PUMPS
   If AC_OBX2SHP03_ADMIN_BT < AC_OBX2SHP04_ADMIN_BT And AC_OBX2XHP03_ADMIN_EV = Normal Then
      PRIMARY_ADMIN_PUMP_BV = Pump_1
   ElseIf  AC_OBX2SHP04_ADMIN_BT < AC_OBX2SHP03_ADMIN_BT And AC_OBX2XHP04_ADMIN_EV = Normal Then
      PRIMARY_ADMIN_PUMP_BV = Pump_2
   Else
      PRIMARY_ADMIN_PUMP_BV = PRIMARY_ADMIN_PUMP_BV
   End If
  //POOL PUMPS 
   If AC_OBX2SHP05_POOL_BT < AC_OBX2SHP06_POOL_BT And AC_OBX2XHP05_POOL_EV = Normal Then
      PRIMARY_POOL_PUMP_BV = Pump_1
   ElseIf  AC_OBX2SHP06_POOL_BT < AC_OBX2SHP05_POOL_BT And AC_OBX2XHP06_POOL_EV = Normal Then
      PRIMARY_POOL_PUMP_BV = Pump_2
   Else
      PRIMARY_POOL_PUMP_BV = PRIMARY_POOL_PUMP_BV
   End If
End If

If PRIMARY_FF_PUMP_BV = Pump_1 And AC_OBX2XHP01_FF_EV = Fault Then
   PRIMARY_FF_PUMP_BV = Pump_2
End If
If PRIMARY_FF_PUMP_BV = Pump_2 And AC_OBX2XHP02_FF_EV = Fault Then
   PRIMARY_FF_PUMP_BV = Pump_1
End If
If PRIMARY_ADMIN_PUMP_BV = Pump_1 And AC_OBX2XHP03_ADMIN_EV = Fault Then
   PRIMARY_ADMIN_PUMP_BV = Pump_2
End If
If PRIMARY_ADMIN_PUMP_BV = Pump_2 And AC_OBX2XHP04_ADMIN_EV = Fault Then
   PRIMARY_ADMIN_PUMP_BV = Pump_1
End If
If PRIMARY_POOL_PUMP_BV = Pump_1 And AC_OBX2XHP05_POOL_EV = Fault Then
   PRIMARY_POOL_PUMP_BV = Pump_2
End If
If PRIMARY_POOL_PUMP_BV = Pump_2 And AC_OBX2XHP06_POOL_EV = Fault Then
   PRIMARY_POOL_PUMP_BV = Pump_1
End If

If PRIMARY_FF_PUMP_BV = Pump_1 Then
   AC_OBX2CHPO1_FF = AC_OBX2CHP_FF_PRIMARY_BV
   AC_OBX2CHPO2_FF = Off
   AC_OBX2SHP_FF_PRIMARY_BV = AC_OBX2SHP01_FF_BV
Else
   AC_OBX2CHPO1_FF = Off
   AC_OBX2CHPO2_FF = AC_OBX2CHP_FF_PRIMARY_BV
   AC_OBX2SHP_FF_PRIMARY_BV = AC_OBX2SHP02_FF_BV
End If
If PRIMARY_ADMIN_PUMP_BV = Pump_1 Then
   AC_OBX2CHPO3_ADMIN = PRIMARY_ADMIN_PUMP_BV
   AC_OBX2CHPO4_ADMIN = Off
   AC_OBX2SHP_ADMIN_PRIMARY_BV = AC_OBX2SHP03_ADMIN_BV
Else
   AC_OBX2CHPO3_ADMIN = Off
   AC_OBX2CHPO4_ADMIN = PRIMARY_ADMIN_PUMP_BV
   AC_OBX2SHP_ADMIN_PRIMARY_BV = AC_OBX2SHP04_ADMIN_BV
End If
If PRIMARY_POOL_PUMP_BV = Pump_1 Then
   AC_OBX2CHPO5_POOL = PRIMARY_POOL_PUMP_BV
   AC_OBX2CHPO6_POOL = Off
   AC_OBX2SHP_POOL_PRIMARY_BV = AC_OBX2SHP05_POOL_BV
Else
   AC_OBX2CHPO5_POOL = Off
   AC_OBX2CHPO6_POOL = PRIMARY_POOL_PUMP_BV
   AC_OBX2SHP_POOL_PRIMARY_BV = AC_OBX2SHP06_POOL_BV
End If

/PUMP BINARY STATUS
AC_03VVCCP01_BV = Switch ( AC_03VVCCP01_BV, AC_03VVICP01, 0.5, 0.2)
AC_03VVCCP02_BV = Switch ( AC_03VVCCP02_BV,AC_03VVICP02, 0.5, 0.2)

//PUMP CYCLE 
IfOnce Weekday = 2 And Time = 900 Then
  //FORCE FLOW PUMPS
   If AC_0BX2SHP01_FF_BT < AC_03AHSRP02_BT And AC_03VVCCP01_EV = Normal Then
      PRIMARY_FF_PUMP_BV = Pump_1
   ElseIf  AC_03AHSRP02_BT < AC_03AHSRP01_BT And AC_03AHCRP02_EV = Normal Then
      PRIMARY_FF_PUMP_BV = Pump_2
   Else
      PRIMARY_FF_PUMP_BV = PRIMARY_FF_PUMP_BV
   End If
  
End If

If PRIMARY_FF_PUMP_BV = Pump_1 And AC_03VVCCP01_EV = Fault Then
   PRIMARY_FF_PUMP_BV = Pump_2
End If
If PRIMARY_FF_PUMP_BV = Pump_2 And AC_03AHCRP02_EV = Fault Then
   PRIMARY_FF_PUMP_BV = Pump_1
End If



If PRIMARY_FF_PUMP_BV = Pump_1 Then
   AC_0BX2CHPO1_FF = AC_0BX2CHP_FF_PRIMARY_BV
   AC_0BX2CHPO2_FF = Off
   AC_0BX2SHP_FF_PRIMARY_BV = AC_03VVCCP01_BV
Else
   AC_0BX2CHPO1_FF = Off
   AC_0BX2CHPO2_FF = AC_0BX2CHP_FF_PRIMARY_BV
   AC_0BX2SHP_FF_PRIMARY_BV = AC_03VVCCP02_BV
End If
AC_OBX2RHSO3_FF_SP = Scale ('AC_Master Outside Air Temp', 0, - 12, 80, 10, 40)
AC_OBX2RHSO2_ADMIN_SP = Scale ('AC_Master Outside Air Temp', 0, - 12, 70, 10, 30)
AC_OBX2RHSO1_POOL_SP = Scale ('AC_Master Outside Air Temp', 0, - 12, 70, 10, 30)
AC_OBX2RHSOO_MAIN_SP = Scale ('AC_Master Outside Air Temp', 0, - 12, 80, 10, 40)
 


               
AC_OBX2CHP_FF_PRIMARY_BV = Switch ( AC_OBX2CHP_FF_PRIMARY_BV, 'AC_Master Outside Air Temp', 12, 14)
AC_OBX2CHP_ADMIN_PRIMARY_BV = Switch ( AC_OBX2CHP_ADMIN_PRIMARY_BV, 'AC_Master Outside Air Temp', 12, 14)
AC_OBX2CHP_POOL_PRIMARY_BV = Switch ( AC_OBX2CHP_POOL_PRIMARY_BV, 'AC_Master Outside Air Temp', 12, 14)

If AC_OBX2SHP_FF_PRIMARY_BV = On Then
   AC_OBX2RHSO3_FF = Scale (AC_OBX2RHS00_FF_CO, 0, 0, 100, 50, 0)
Else
   AC_OBX2RHSO3_FF = 0
End If

If AC_OBX2SHP_ADMIN_PRIMARY_BV = On Then
   AC_OBX2RHSOO2_ADMIN = Scale (AC_OBX2RHS00_ADMIN_CO, 0, 0, 100, 50, 0)
Else
   AC_OBX2RHSOO2_ADMIN = 0
End If

If AC_OBX2SHP_POOL_PRIMARY_BV = On Then
   AC_OBX2RHSOO1_POOL = Scale (AC_OBX2RHS00_POOL_CO, 0, 0, 100, 50, 0)
Else
   AC_OBX2RHSOO1_POOL = 0
End If