00010 C ***** RC.PAV.AHU-3.RESET.PPCL *****¶
00020 C¶
00030 C THIS SOFTWARE IS OWNED AND MAINTAINED BY SIEMENS BUILDING TECHNOLOGIES, INC.¶
00040 C ALL RIGHTS RESERVED. ANY MODIFICATIONS WITHOUT THE EXPRESS, WRITTEN¶
00050 C CONSENT FROM SIEMENS BUILDING TECHNOLOGIES, INC. MAY VOID THE WARRANTY.¶
00060 C¶
00070 C PROGRAM NAME:  RC.PAV.AHU-3.RESET.PPCL¶
00080 C PANEL:RC.PAV.PXCM.301¶
00090 C¶
00100 C VER DATE  ENG/SPEC  COMMENTS¶
00110 C  A 03-05-3024 MIC BILKA  ADDED SSR CCX STPT RESET¶
00120 C  1 MM-DD-YYYY¶
00130 C  2 MM-DD-YYYY¶
00140 C  3 MM-DD-YYYY¶
00150 C  4 MM-DD-YYYY¶
00160 C  5 MM-DD-YYYY¶
00170 C¶
00180 C¶
00190 $LOC15 = $LOC15¶
00200 C¶
00680 C LOCAL POINTS¶
00690 C¶
00700 LOCAL(TREQTT,TREQNN,TREQLL,TREQSC,SATSET,BADHUM,MAXHUM,HUM4SC,HUM5SC,HUM6SC,HUM7SC,HUM8SC,HUM9SC,HUM2SC,HUM1SC)¶
00777 LOCAL(PREQTT,PREQNN,PREQLL,PREQSC,SSPSET,SATCON,HUMCON,HUM3SC,HUM01S,HUM02S,HUM03S,HUM04S,HUM05S,HUM06S,HUM07S)¶
00778 LOCAL(TOTHUM,HUMSUP,HUMSDN,HUMSET,HUMDNS,HUMUPS,RHMAXS,RHMINS,HUM08S,HUM09S,HUM10S,HUM11S,HUM12S,HUM13S,HUM14S)¶
00779 LOCAL(HWLOOP,HWSTPT,HUM15S,HUM16S,HUM17S)¶
00780 C¶
00785 C SYSTEM ENABLE¶
00790 IF("RC.PAV.AHU-3.ENABLE" .EQ. OFF) THEN GOTO 10000¶
02280 C¶
02290 C STATIC PRESSURE RESET¶
02300 C¶
02310 SAMPLE(5) "$PREQSC" = "$PREQSC" + 6¶
02320 IF("$PREQSC" .GT. 60 * "RC.PAV.AHU-3.PREQ.DLY") THEN GOTO 2350¶
02340 GOTO 3580¶
02350 "$PREQSC" = 0.0¶
02360 "$SSPSET" = "RC.PAV.AHU-3.SSP.STPT"¶
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"¶
02380 IF("RC.PAV.AHU-3.PREQ" .GE. "RC.PAV.AHU-3.PREQ.MAX") THEN "$SSPSET" = "$SSPSET" + "RC.PAV.AHU-3.SSP.INC.LRG"¶
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"¶
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")¶
02410 C¶
02420 C PRESSURE REQUEST POLLING¶
02430 C¶
02440 "$PREQTT" = 0.0¶
02450 IF("CAV 086:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02460 IF("CAV 056:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02470 IF("CAV 057A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02480 IF("CAV 056B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02490 IF("CAV 056A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02500 IF("CAV 056B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02510 IF("CAV 057A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02515 IF("CAV 057B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN $PREQTT = $PREQTT + 1¶
02520 IF("CAV 061:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02530 IF("CAV 060:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02540 IF("CAV 071:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02550 IF("CAV 059:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02560 IF("CAV 058:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02570 IF("CAV 062:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02580 IF("CAV 065:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02590 IF("CAV 064:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02600 IF("CAV 063:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02610 IF("CAV 082:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02620 IF("CAV 070:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02630 IF("CAV 067:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02640 IF("CAV 066:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02650 IF("CAV 083:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02660 IF("CAV 069:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02670 IF("CAV 068:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02680 IF("CAV 081:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02690 IF("CAV 079:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02700 IF("CAV 075:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02710 IF("CAV 074:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02720 IF("CAV 078:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02730 IF("CAV 080:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02740 IF("CAV 076:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02750 IF("CAV 072:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02760 IF("CAV 084:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02770 IF("CAV 087A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02780 IF("CAV 077:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SSP.INC.SP") THEN "$PREQTT" = "$PREQTT" + 1¶
02790 "RC.PAV.AHU-3.PREQ" = "$PREQTT"¶
02800 C¶
02810 "$PREQLL" = 0.0¶
02820 IF("CAV 086:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02830 IF("CAV 056:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02840 IF("CAV 057A:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02850 IF("CAV 056B:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02860 IF("CAV 056A:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02870 IF("CAV 056B:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02880 IF("CAV 057A:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02885 IF("CAV 057B:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN $PREQLL = $PREQLL + 1¶
02890 IF("CAV 061:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02900 IF("CAV 060:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02910 IF("CAV 071:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02920 IF("CAV 059:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02930 IF("CAV 058:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02940 IF("CAV 062:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02950 IF("CAV 065:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02960 IF("CAV 064:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02970 IF("CAV 063:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02980 IF("CAV 082:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
02990 IF("CAV 070:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03000 IF("CAV 067:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03010 IF("CAV 066:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03020 IF("CAV 083:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03030 IF("CAV 069:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03040 IF("CAV 068:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03050 IF("CAV 081:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03060 IF("CAV 079:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03070 IF("CAV 075:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03080 IF("CAV 074:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03090 IF("CAV 078:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03100 IF("CAV 080:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03110 IF("CAV 076:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03120 IF("CAV 072:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03130 IF("CAV 084:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03140 IF("CAV 087A:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03150 IF("CAV 077:CLG LOOPOUT" .LT. "RC.PAV.AHU-3.SSP.DEC.SP") THEN "$PREQLL" = "$PREQLL" + 1¶
03160 C¶
03170 "$PREQNN" = 0.0¶
03180 IF("CAV 086:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03190 IF("CAV 056:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03200 IF("CAV 057A:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03210 IF("CAV 056B:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03220 IF("CAV 056A:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03230 IF("CAV 056B:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03240 IF("CAV 057A:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03245 IF("CAV 057B:CLG LOOPOUT" .NE. FAILED) THEN $PREQNN = $PREQNN + 1¶
03250 IF("CAV 061:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03260 IF("CAV 060:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03270 IF("CAV 071:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03280 IF("CAV 059:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03290 IF("CAV 058:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03300 IF("CAV 062:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03310 IF("CAV 065:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03320 IF("CAV 064:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03330 IF("CAV 063:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03340 IF("CAV 082:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03350 IF("CAV 070:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03360 IF("CAV 067:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03370 IF("CAV 066:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03380 IF("CAV 083:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03390 IF("CAV 069:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03400 IF("CAV 068:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03410 IF("CAV 081:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03420 IF("CAV 079:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03430 IF("CAV 075:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03440 IF("CAV 074:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03450 IF("CAV 078:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03460 IF("CAV 080:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03470 IF("CAV 076:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03480 IF("CAV 072:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03490 IF("CAV 084:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03500 IF("CAV 087A:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03510 IF("CAV 077:CLG LOOPOUT" .NE. FAILED) THEN "$PREQNN" = "$PREQNN" + 1¶
03520 C¶
03530 "RC.PAV.AHU-3.PREQ.DEC.PCT" = "$PREQLL" / "$PREQNN" * 100¶
03540 "RC.PAV.AHU-3.TOT.VAVS" = "$PREQNN"¶
03550 C¶
03560 C TEMPERATURE RESET¶
03570 C¶
03580 SAMPLE(5) "$TREQSC" = "$TREQSC" + 6¶
03590 C¶
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")¶
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")¶
03620 C¶
03630 IF("$TREQSC" .GT. 60 * "RC.PAV.AHU-3.TREQ.DLY") THEN GOTO 3650¶
03640 GOTO 4310¶
03650 "$TREQSC" = 0.0¶
03660 "$SATSET" = "RC.PAV.AHU-3.SAT.STPT"¶
03670 C¶
03680 OFF("$HUMCON")¶
03690 IF("HB12.RMRH" .GT. "HB14.RMRH.STPT") THEN ON("$HUMCON")¶
03700 IF("HB13.1.RMRH" .GT. "HB15.RMRH.STPT") THEN ON("$HUMCON")¶
03710 IF("HB13.2.RMRH" .GT. "HB16.1.RMRH.STPT") THEN ON("$HUMCON")¶
03720 IF("HB13.3.RMRH" .GT. "HB16.2.RMRH.STPT") THEN ON("$HUMCON")¶
03730 IF("HB13.4.RMRH" .GT. "HB16.3.RMRH.STPT") THEN ON("$HUMCON")¶
03740 IF("HB13.5.RMRH" .GT. "HB16.4.RMRH.STPT") THEN ON("$HUMCON")¶
03750 IF("HB13.6.RMRH" .GT. "HB17.1.RMRH.STPT") THEN ON("$HUMCON")¶
03760 IF("HB13.7.RMRH" .GT. "HB17.2.RMRH.STPT") THEN ON("$HUMCON")¶
03770 C¶
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"¶
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")¶
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"¶
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")¶
03820 C¶
03830 C TEMPERATURE REQUEST POLLING¶
03840 C¶
03850 $TREQTT = 0.0¶
03860 IF("CAV 086:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03870 IF("CAV 056:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03880 IF("CAV 057A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03890 IF("CAV 056B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03900 IF("CAV 056A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03910 IF("CAV 056B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03920 IF("CAV 057A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03925 IF("CAV 057B:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03930 IF("CAV 061:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03940 IF("CAV 060:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03950 IF("CAV 071:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03960 IF("CAV 059:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03970 IF("CAV 058:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03980 IF("CAV 062:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
03990 IF("CAV 065:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04000 IF("CAV 064:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04010 IF("CAV 063:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04020 IF("CAV 082:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04030 IF("CAV 070:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04040 IF("CAV 067:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04050 IF("CAV 066:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04060 IF("CAV 083:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04070 IF("CAV 069:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04080 IF("CAV 068:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04090 IF("CAV 081:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04100 IF("CAV 079:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04110 IF("CAV 075:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04120 IF("CAV 074:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04130 IF("CAV 078:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04140 IF("CAV 080:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04150 IF("CAV 076:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04160 IF("CAV 072:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04170 IF("CAV 084:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04180 IF("CAV 087A:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04190 IF("CAV 077:CLG LOOPOUT" .GT. "RC.PAV.AHU-3.SAT.INC.SP") THEN $TREQTT = $TREQTT + 1¶
04200 "RC.PAV.AHU-3.TREQ" = $TREQTT¶
04210 C¶
04220 "HB12.RMRH" = "HB 12:RM RH"¶
04230 "HB13.1.RMRH" = "BAC_730833_AI_1"¶
04240 "HB13.2.RMRH" = "BAC_730833_AI_2"¶
04250 "HB13.3.RMRH" = "BAC_730833_AI_3"¶
04260 "HB13.4.RMRH" = "BAC_730833_AI_4"¶
04270 "HB13.5.RMRH" = "BAC_730833_AI_5"¶
04280 "HB13.6.RMRH" = "BAC_730833_AI_6"¶
04290 "HB13.7.RMRH" = "BAC_730833_AI_7"¶
04300 C¶
04310 SAMPLE(5) IF("HB12.RMRH" .GT. ("HB12.RMRH" + "RC.PAV.AHU-3.RMHUM.OFST")) THEN $HUM01S = $HUM01S + 6 ELSE $HUM01S = 0¶
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¶
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¶
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¶
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¶
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¶
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¶
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¶
04390 C¶
04400 MAX($RHMAXS,$HUM4SC,$HUM5SC,$HUM6SC,$HUM8SC,$HUM9SC,$HUM2SC,$HUM1SC,$HUM3SC)¶
04410 MIN($RHMINS,$HUM4SC,$HUM5SC,$HUM6SC,$HUM8SC,$HUM9SC,$HUM2SC,$HUM1SC,$HUM3SC)¶
04420 C¶
04430 IF($RHMAXS .GE. "RC.PAV.AHU-3.RMHUM.DLY" * 60) THEN ON($BADHUM) ELSE OFF($BADHUM)¶
04440 "RC.PAV.AHU-3.BAD.HUM" = $BADHUM¶
09999 C¶
10000 GOTO 190