1. 00010 C ***** RC.PAV.AHU-3.RESET.PPCL *****¶
2. 00020 C¶
3. 00030 C THIS SOFTWARE IS OWNED AND MAINTAINED BY SIEMENS BUILDING TECHNOLOGIES, INC.¶
4. 00040 C ALL RIGHTS RESERVED. ANY MODIFICATIONS WITHOUT THE EXPRESS, WRITTEN¶
5. 00050 C CONSENT FROM SIEMENS BUILDING TECHNOLOGIES, INC. MAY VOID THE WARRANTY.¶
6. 00060 C¶
7. 00070 C PROGRAM NAME:  RC.PAV.AHU-3.RESET.PPCL¶
8. 00080 C PANEL:RC.PAV.PXCM.301¶
9. 00090 C¶
10. 00100 C VER DATE  ENG/SPEC  COMMENTS¶
11. 00110 C  A 03-05-3024 MIC BILKA  ADDED SSR CCX STPT RESET¶
12. 00120 C  1 MM-DD-YYYY¶
13. 00130 C  2 MM-DD-YYYY¶
14. 00140 C  3 MM-DD-YYYY¶
15. 00150 C  4 MM-DD-YYYY¶
16. 00160 C  5 MM-DD-YYYY¶
17. 00170 C¶
18. 00180 C¶
19. 00190 $LOC15 = $LOC15¶
20. 00200 C¶
21. 00680 C LOCAL POINTS¶
22. 00690 C¶
23. 00700 LOCAL(TREQTT,TREQNN,TREQLL,TREQSC,SATSET,BADHUM,MAXHUM,HUM4SC,HUM5SC,HUM6SC,HUM7SC,HUM8SC,HUM9SC,HUM2SC,HUM1SC)¶
24. 00777 LOCAL(PREQTT,PREQNN,PREQLL,PREQSC,SSPSET,SATCON,HUMCON,HUM3SC,HUM01S,HUM02S,HUM03S,HUM04S,HUM05S,HUM06S,HUM07S)¶
25. 00778 LOCAL(TOTHUM,HUMSUP,HUMSDN,HUMSET,HUMDNS,HUMUPS,RHMAXS,RHMINS,HUM08S,HUM09S,HUM10S,HUM11S,HUM12S,HUM13S,HUM14S)¶
26. 00779 LOCAL(HWLOOP,HWSTPT,HUM15S,HUM16S,HUM17S)¶
27. 00780 C¶
28. 00785 C SYSTEM ENABLE¶
29. 00790 IF("RC.PAV.AHU-3.ENABLE" .EQ. OFF) THEN GOTO 10000¶
30. 02280 C¶
31. 02290 C STATIC PRESSURE RESET¶
32. 02300 C¶
33. 02310 SAMPLE(5) "$PREQSC" = "$PREQSC" + 6¶
34. 02320 IF("$PREQSC" .GT. 60 * "RC.PAV.AHU-3.PREQ.DLY") THEN GOTO 2350¶
35. 02340 GOTO 3580¶
36. 02350 "$PREQSC" = 0.0¶
37. 02360 "$SSPSET" = "RC.PAV.AHU-3.SSP.STPT"¶
38. 02370 IF("RC.PAV.AHU-3.PREQ" .GE. "RC.PAV.AHU-3.PREQ.MIN" .AND. "RC.PAV.AHU-3.PREQ" .LT. "RC.PAV.AHU-3.PREQ.MAX") THEN "$SSPSET" = "$SSPSET" + "RC.PAV.AHU-3.SSP.INC.SM"¶
39. 02380 IF("RC.PAV.AHU-3.PREQ" .GE. "RC.PAV.AHU-3.PREQ.MAX") THEN "$SSPSET" = "$SSPSET" + "RC.PAV.AHU-3.SSP.INC.LRG"¶
40. 02390 IF("RC.PAV.AHU-3.PREQ" .LT. "RC.PAV.AHU-3.PREQ.MIN" .AND. "RC.PAV.AHU-3.PREQ.DEC.PCT" .GT. "RC.PAV.AHU-3.PREQ.DEC.SP") THEN "$SSPSET" = "$SSPSET" - "RC.PAV.AHU-3.SSP.DEC"¶
41. 02400 TABLE("$SSPSET","RC.PAV.AHU-3.SSP.STPT","RC.PAV.AHU-3.SSP.SP.MIN","RC.PAV.AHU-3.SSP.SP.MIN","RC.PAV.AHU-3.SSP.SP.MAX","RC.PAV.AHU-3.SSP.SP.MAX")¶
42. 02410 C¶
43. 02420 C PRESSURE REQUEST POLLING¶
44. 02430 C¶
45. 02440 "$PREQTT" = 0.0¶
46. 02450 IF("CAV 086:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
47. 02460 IF("CAV 056:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
48. 02470 IF("CAV 057A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
49. 02480 IF("CAV 056B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
50. 02490 IF("CAV 056A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
51. 02500 IF("CAV 056B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
52. 02510 IF("CAV 057A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
53. 02515 IF("CAV 057B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN $PREQTT = $PREQTT + 1¶
54. 02520 IF("CAV 061:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
55. 02530 IF("CAV 060:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
56. 02540 IF("CAV 071:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
57. 02550 IF("CAV 059:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
58. 02560 IF("CAV 058:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
59. 02570 IF("CAV 062:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
60. 02580 IF("CAV 065:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
61. 02590 IF("CAV 064:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
62. 02600 IF("CAV 063:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
63. 02610 IF("CAV 082:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
64. 02620 IF("CAV 070:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
65. 02630 IF("CAV 067:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
66. 02640 IF("CAV 066:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
67. 02650 IF("CAV 083:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
68. 02660 IF("CAV 069:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
69. 02670 IF("CAV 068:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
70. 02680 IF("CAV 081:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
71. 02690 IF("CAV 079:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
72. 02700 IF("CAV 075:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
73. 02710 IF("CAV 074:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
74. 02720 IF("CAV 078:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
75. 02730 IF("CAV 080:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
76. 02740 IF("CAV 076:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
77. 02750 IF("CAV 072:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
78. 02760 IF("CAV 084:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
79. 02770 IF("CAV 087A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
80. 02780 IF("CAV 077:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
81. 02790 "RC.PAV.AHU-3.PREQ" = "$PREQTT"¶
82. 02800 C¶
83. 02810 "$PREQLL" = 0.0¶
84. 02820 IF("CAV 086:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
85. 02830 IF("CAV 056:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
86. 02840 IF("CAV 057A:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
87. 02850 IF("CAV 056B:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
88. 02860 IF("CAV 056A:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
89. 02870 IF("CAV 056B:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
90. 02880 IF("CAV 057A:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
91. 02885 IF("CAV 057B:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN $PREQLL = $PREQLL + 1¶
92. 02890 IF("CAV 061:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
93. 02900 IF("CAV 060:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
94. 02910 IF("CAV 071:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
95. 02920 IF("CAV 059:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
96. 02930 IF("CAV 058:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
97. 02940 IF("CAV 062:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
98. 02950 IF("CAV 065:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
99. 02960 IF("CAV 064:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
100. 02970 IF("CAV 063:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
101. 02980 IF("CAV 082:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
102. 02990 IF("CAV 070:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
103. 03000 IF("CAV 067:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
104. 03010 IF("CAV 066:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
105. 03020 IF("CAV 083:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
106. 03030 IF("CAV 069:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
107. 03040 IF("CAV 068:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
108. 03050 IF("CAV 081:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
109. 03060 IF("CAV 079:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
110. 03070 IF("CAV 075:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
111. 03080 IF("CAV 074:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
112. 03090 IF("CAV 078:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
113. 03100 IF("CAV 080:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
114. 03110 IF("CAV 076:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
115. 03120 IF("CAV 072:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
116. 03130 IF("CAV 084:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
117. 03140 IF("CAV 087A:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
118. 03150 IF("CAV 077:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
119. 03160 C¶
120. 03170 "$PREQNN" = 0.0¶
121. 03180 IF("CAV 086:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
122. 03190 IF("CAV 056:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
123. 03200 IF("CAV 057A:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
124. 03210 IF("CAV 056B:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
125. 03220 IF("CAV 056A:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
126. 03230 IF("CAV 056B:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
127. 03240 IF("CAV 057A:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
128. 03245 IF("CAV 057B:CLG LOOPOUT" .NE. FAILED) THEN $PREQNN = $PREQNN + 1¶
129. 03250 IF("CAV 061:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
130. 03260 IF("CAV 060:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
131. 03270 IF("CAV 071:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
132. 03280 IF("CAV 059:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
133. 03290 IF("CAV 058:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
134. 03300 IF("CAV 062:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
135. 03310 IF("CAV 065:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
136. 03320 IF("CAV 064:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
137. 03330 IF("CAV 063:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
138. 03340 IF("CAV 082:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
139. 03350 IF("CAV 070:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
140. 03360 IF("CAV 067:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
141. 03370 IF("CAV 066:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
142. 03380 IF("CAV 083:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
143. 03390 IF("CAV 069:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
144. 03400 IF("CAV 068:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
145. 03410 IF("CAV 081:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
146. 03420 IF("CAV 079:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
147. 03430 IF("CAV 075:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
148. 03440 IF("CAV 074:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
149. 03450 IF("CAV 078:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
150. 03460 IF("CAV 080:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
151. 03470 IF("CAV 076:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
152. 03480 IF("CAV 072:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
153. 03490 IF("CAV 084:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
154. 03500 IF("CAV 087A:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
155. 03510 IF("CAV 077:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
156. 03520 C¶
157. 03530 "RC.PAV.AHU-3.PREQ.DEC.PCT" = "$PREQLL" / "$PREQNN" * 100¶
158. 03540 "RC.PAV.AHU-3.TOT.VAVS" = "$PREQNN"¶
159. 03550 C¶
160. 03560 C TEMPERATURE RESET¶
161. 03570 C¶
162. 03580 SAMPLE(5) "$TREQSC" = "$TREQSC" + 6¶
163. 03590 C¶
164. 03600 IF("RC.PAV.AHU-3.OA.DEW.TEMP" .GT. "RC.PAV.AHU-3.OA.DEW.ENA") THEN SET(@PDL,"RC.PAV.AHU-3.SAT.DEW.STPT","RC.PAV.AHU-3.SAT.STPT")¶
165. 03610 IF("RC.PAV.AHU-3.OA.DEW.TEMP" .LT. "RC.PAV.AHU-3.OA.DEW.DIS") THEN RELEAS(@PDL,"RC.PAV.AHU-3.SAT.STPT")¶
166. 03620 C¶
167. 03630 IF("$TREQSC" .GT. 60 * "RC.PAV.AHU-3.TREQ.DLY") THEN GOTO 3650¶
168. 03640 GOTO 4310¶
169. 03650 "$TREQSC" = 0.0¶
170. 03660 "$SATSET" = "RC.PAV.AHU-3.SAT.STPT"¶
171. 03670 C¶
172. 03680 OFF("$HUMCON")¶
173. 03690 IF("HB12.RMRH" .GT. "HB14.RMRH.STPT") THEN ON("$HUMCON")¶
174. 03700 IF("HB13.1.RMRH" .GT. "HB15.RMRH.STPT") THEN ON("$HUMCON")¶
175. 03710 IF("HB13.2.RMRH" .GT. "HB16.1.RMRH.STPT") THEN ON("$HUMCON")¶
176. 03720 IF("HB13.3.RMRH" .GT. "HB16.2.RMRH.STPT") THEN ON("$HUMCON")¶
177. 03730 IF("HB13.4.RMRH" .GT. "HB16.3.RMRH.STPT") THEN ON("$HUMCON")¶
178. 03740 IF("HB13.5.RMRH" .GT. "HB16.4.RMRH.STPT") THEN ON("$HUMCON")¶
179. 03750 IF("HB13.6.RMRH" .GT. "HB17.1.RMRH.STPT") THEN ON("$HUMCON")¶
180. 03760 IF("HB13.7.RMRH" .GT. "HB17.2.RMRH.STPT") THEN ON("$HUMCON")¶
181. 03770 C¶
182. 03780 IF("$BADHUM" .EQ. ON .OR. "RC.PAV.AHU-3.TREQ" .GE. "RC.PAV.AHU-3.TREQ.MIN") THEN "$SATSET" = "$SATSET" - "RC.PAV.AHU-3.SAT.DEC"¶
183. 03790 IF("$BADHUM" .EQ. OFF .AND. "$HUMCON" .EQ. OFF .AND. "RC.PAV.AHU-3.TREQ" .LT. "RC.PAV.AHU-3.TREQ.MIN") THEN ON("$SATCON") ELSE OFF("$SATCON")¶
184. 03800 IF("$SATCON" .EQ. ON .AND. "RC.PAV.AHU-3.TREQ.DEC.PCT" .GT. "RC.PAV.AHU-3.TREQ.DEC.SP") THEN "$SATSET" = "$SATSET" + "RC.PAV.AHU-3.SAT.INC.SM"¶
185. 03810 TABLE("$SATSET","RC.PAV.AHU-3.SAT.STPT","RC.PAV.AHU-3.SAT.MIN","RC.PAV.AHU-3.SAT.MIN","RC.PAV.AHU-3.SAT.MAX","RC.PAV.AHU-3.SAT.MAX")¶
186. 03820 C¶
187. 03830 C TEMPERATURE REQUEST POLLING¶
188. 03840 C¶
189. 03850 $TREQTT = 0.0¶
190. 03860 IF("CAV 086:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
191. 03870 IF("CAV 056:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
192. 03880 IF("CAV 057A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
193. 03890 IF("CAV 056B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
194. 03900 IF("CAV 056A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
195. 03910 IF("CAV 056B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
196. 03920 IF("CAV 057A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
197. 03925 IF("CAV 057B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
198. 03930 IF("CAV 061:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
199. 03940 IF("CAV 060:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
200. 03950 IF("CAV 071:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
201. 03960 IF("CAV 059:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
202. 03970 IF("CAV 058:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
203. 03980 IF("CAV 062:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
204. 03990 IF("CAV 065:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
205. 04000 IF("CAV 064:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
206. 04010 IF("CAV 063:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
207. 04020 IF("CAV 082:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
208. 04030 IF("CAV 070:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
209. 04040 IF("CAV 067:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
210. 04050 IF("CAV 066:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
211. 04060 IF("CAV 083:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
212. 04070 IF("CAV 069:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
213. 04080 IF("CAV 068:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
214. 04090 IF("CAV 081:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
215. 04100 IF("CAV 079:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
216. 04110 IF("CAV 075:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
217. 04120 IF("CAV 074:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
218. 04130 IF("CAV 078:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
219. 04140 IF("CAV 080:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
220. 04150 IF("CAV 076:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
221. 04160 IF("CAV 072:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
222. 04170 IF("CAV 084:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
223. 04180 IF("CAV 087A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
224. 04190 IF("CAV 077:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
225. 04200 "RC.PAV.AHU-3.TREQ" = $TREQTT¶
226. 04210 C¶
227. 04220 "HB12.RMRH" = "HB 12:RM RH"¶
228. 04230 "HB13.1.RMRH" = "BAC_730833_AI_1"¶
229. 04240 "HB13.2.RMRH" = "BAC_730833_AI_2"¶
230. 04250 "HB13.3.RMRH" = "BAC_730833_AI_3"¶
231. 04260 "HB13.4.RMRH" = "BAC_730833_AI_4"¶
232. 04270 "HB13.5.RMRH" = "BAC_730833_AI_5"¶
233. 04280 "HB13.6.RMRH" = "BAC_730833_AI_6"¶
234. 04290 "HB13.7.RMRH" = "BAC_730833_AI_7"¶
235. 04300 C¶
236. 04310 SAMPLE(5) IF("HB12.RMRH" .GT. ("HB12.RMRH" + "RC.PAV.AHU-3.RMHUM.OFST")) THEN $HUM01S = $HUM01S + 6 ELSE $HUM01S = 0¶
237. 04320 SAMPLE(5) IF("HB13.1.RMRH" .GT. ("HB13.1.RMRH.STPT" + "RC.PAV.AHU-3.RMHUM.OFST")) THEN $HUM02S = $HUM02S + 6 ELSE $HUM02S = 0¶
238. 04330 SAMPLE(5) IF("HB13.2.RMRH" .GT. ("HB13.2.RMRH.STPT" + "RC.PAV.AHU-3.RMHUM.OFST")) THEN $HUM03S = $HUM03S + 6 ELSE $HUM03S = 0¶
239. 04340 SAMPLE(5) IF("HB13.3.RMRH" .GT. ("HB13.3.RMRH.STPT" + "RC.PAV.AHU-3.RMHUM.OFST")) THEN $HUM04S = $HUM04S + 6 ELSE $HUM04S = 0¶
240. 04350 SAMPLE(5) IF("HB13.4.RMRH" .GT. ("HB13.4.RMRH.STPT" + "RC.PAV.AHU-3.RMHUM.OFST")) THEN $HUM05S = $HUM05S + 6 ELSE $HUM05S = 0¶
241. 04360 SAMPLE(5) IF("HB13.5.RMRH" .GT. ("HB13.5.RMRH.STPT" + "RC.PAV.AHU-3.RMHUM.OFST")) THEN $HUM06S = $HUM06S + 6 ELSE $HUM06S = 0¶
242. 04370 SAMPLE(5) IF("HB13.6.RMRH" .GT. ("HB13.6.RMRH.STPT" + "RC.PAV.AHU-3.RMHUM.OFST")) THEN $HUM07S = $HUM07S + 6 ELSE $HUM07S = 0¶
243. 04380 SAMPLE(5) IF("HB13.7.RMRH" .GT. ("HB13.7.RMRH.STPT" + "RC.PAV.AHU-3.RMHUM.OFST")) THEN $HUM08S = $HUM08S + 6 ELSE $HUM08S = 0¶
244. 04390 C¶
245. 04400 MAX($RHMAXS,$HUM4SC,$HUM5SC,$HUM6SC,$HUM8SC,$HUM9SC,$HUM2SC,$HUM1SC,$HUM3SC)¶
246. 04410 MIN($RHMINS,$HUM4SC,$HUM5SC,$HUM6SC,$HUM8SC,$HUM9SC,$HUM2SC,$HUM1SC,$HUM3SC)¶
247. 04420 C¶
248. 04430 IF($RHMAXS .GE. "RC.PAV.AHU-3.RMHUM.DLY" * 60) THEN ON($BADHUM) ELSE OFF($BADHUM)¶
249. 04440 "RC.PAV.AHU-3.BAD.HUM" = $BADHUM¶
250. 09999 C¶
251. 10000 GOTO 190