--+-----------------------------------------------------------------------------+
--+                        SOHO Project -- Control File
--+                        ----------------------------
--+
--+ Name        : MDI_TH_PAR01
--+ Purpose     : To print MDI currents and temperatures.                                    
--+
--+ Sub_system  : PLM
--+ Drawing No  : 3137-ZA042-SCB  Issue : A/00
--+ Project No  : SH-MAR-SW-70224
--+ Origin      : Fr 
--+ Test Spec   : N/A
--+ Author      : Ph. IATRINO
--+
--+-----------------------------------------------------------------------------+
--+ Principle   :
--+ ---------
--+
--+      This Control File currents and temperatures when it is required.
--+
--+
--+ Passed parameters :
--+ -----------------
--+
--+      NONE.
--+
--+
--+ Sub-Control Files :
--+ -----------------
--+
--+      PLM_CHECK.
--+	
--+
--+ History :
--+ -------
--+   issue SIC Note Time   Date      Name/Updates
--+   +---+ +------+ +---+  +------+ +------------------------------------------+
--+    1.0    495    13:06  16/11/94 Ph. IATRINO   -- Creation for TB/TV.
--+
--------------------------------------------------------------------------------+
Common
  Var
    str(80) !GM_Param(52)                -- Parameter array
    int     !GM_ParIx = 0                -- Index to get Parameter from array
    int     !GM_MaxItem  = 52            -- Maximun number of array item
    int     !GM_MaxRetry = -1            -- maximum number of retry allowed
End common
--------------------------------------------------------------------------------+
Extern
     Cfile   PLM_CHECK
End Extern
--------------------------------------------------------------------------------+
Program MDI_TH_PAR01, Unique

  Main

    Cflog
    @PutP("Title |Monitoring parameters of : MDI, Set 1 ")

    @PutP("Check |MIPWA   |A|MDI A CURRENT   |A    |5.3f||")  -- No Cond. 
    @PutP("Check |MIPWB   |A|MDI B CURRENT   |A    |5.3f||")  -- No Cond. 
    @PutP("Check |MTEPTS1 |A|Outside Struc   |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTEPTS2 |A|Red CV 2        |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTEPTS3 |A|Primary CV 2    |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTEPTS4 |A|Out Side Rad    |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS1 |A|Ft Wind MT Ring |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS10|A|PA Calib Wheel  |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS11|A|Outside MLI     |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS12|A|Wir Harn/OP Str |DegC |6.2f||")  -- No Cond. 

    @PutP("Check |MTOPTS13|A|OP Struc Ins Top|DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS14|A|OP Struc Ov Ctrl|DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS15|A|OP Struc In Frt |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS16|A|Beam Dist. Hous |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS2 |A|Primary Lens    |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS3 |A|Secondary Lens  |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS4 |A|Filter Oven     |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS5 |A|Filter Oven     |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS6 |A|CCD Stp/Head(P) |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS7 |A|CCD Electronics |DegC |6.2f||")  -- No Cond. 

    @PutP("Check |MTOPTS8 |A|OP CCD Rad(P)   |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTOPTS9 |A|Rear Leg/Str I/F|DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTSQOPT1|A|Front Wind Temp |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTSQOPT4|A|Oven Temperature|DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTSQOPT5|A|Oven Temperature|DegC |6.2f||")  -- No Cond. 
    @PutP("Check |MTSQOPT6|A|CCD Temp        |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |QTMI1A  |A|MDI SU TH1      |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |QTMI1B  |A|MDI SU TH2      |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |QTMI1C  |A|MDI SU TH3      |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |QTMI1D  |A|MDI SU TH4      |DegC |6.2f||")  -- No Cond. 

    @PutP("Check |QTMI2   |A|MDI EL TH5      |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |QTMR1   |A|MDI SU TRP1     |DegC |6.2f||")  -- No Cond. 
    @PutP("Check |QTMR2   |A|MDI ENICS TRP2  |DegC |6.2f||")  -- No Cond. 

    @PutP("End ")
    @Check()

    Cflog
    Return !Rstat

End Program
--------------------------------------------------------------------------------+
Procedure Check()
--.
--.     Calls the PLM_CHECK Control File, using the GM_Param array
--.     previously set up by PutP (see above), and the maximum retry
--.     value set up in the main section of this Control File. On
--.     completion, the array pointer is reset to zero.
--.
  Main

    Perform/No PLM_CHECK, !GM_Param()

    !GM_ParIx = 0
        
  Return
End Procedure
--------------------------------------------------------------------------------+
Procedure PutP( str(80) !Info )
--.
--.     Copies the data in !Info into the next position in the GM_Param
--.     array, then increments the array pointer. If the result points
--.     beyond the end of the array, it is reset to zero, so causing
--.     the buffer to wrap around, although this should never happen,
--.     provided the calling sequence of "Title", "Check" (50 times
--.     maximum), "End" is properly observed.
--.
  Main
    !GM_Param(!GM_ParIx)   = !Info
    If (!GM_ParIx < (!GM_MaxItem-1)) Then
      !GM_ParIx  = !GM_ParIx + 1
    Else
      !GM_ParIx = 0
    End If
  Return
End Procedure
--------------------------------------------------------------------------------+