Function SVC_Reactor_List(Service, Param1, Param2, Param3, Param4, Param5, Param6, Param7)

/******************************************************************************************************** 

    This program is proprietary and is not to be used by or disclosed to others, nor is it to
    be copied without written permission.

    Name        :   SVC Reactor List

    Description :   

    Tags		:	[SRP]

    Parameters  :

    History (Date, Initials, Notes)
        05/05/10    fjt     Initial development

********************************************************************************************************/

$insert SRP_APP_INSERTS
$insert SERVICE_INSERT

Declare subroutine Rlist

Equ Crlf$ to \0D0A\

Begin Case
	Case Service _eqc "Detail"	 ; GoSub Detail
	Case Service _eqc "List"	 ; GoSub List
End Case

If Assigned(Ans) else Ans = Service
Return Ans


!----- SERVICES -----------------------------------------------------------------------------------------


Detail:
	Reactor = Param1
	Open "WO_MAST_SCHED" to hTable else hTable = ""
	
	EOL   = No$
	Stmt  = "SELECT WO_MAST_SCHED "
	Stmt := "WITH REACT_NO EQ ":Quote(Reactor)
	Rlist(Stmt, 5, "", "", "")
	
	Loop
		Readnext Key else EOL = Yes$
	Until EOL EQ Yes$
		Read Appt from hTable, Key then
			Row = Key
			Row<02> = Appt<02>	;// WO
			Row<03> = Appt<14>
			Row<04> = Appt<21>
			Row<05> = Oconv(Appt<20>, "MD1")
			Row<06> = Oconv(Xlate("WO_MAST_SCHED", Key, "TOTAL_PACE", "X"), "MD1")
			
			Row<-1> = Oconv(Xlate("WO_LOG", Appt<02>, "REL_STAMP", "X") GT "", "B")
			Row<-1> = Appt<04>
			Convert @FM to @VM in Row
			Ans := Row :@FM
		end
	Repeat
	If Ans[-1,1] EQ @FM then Ans[-1,1] = ""
return


List:
	Data   = ""
	Colors = ""
	
    For i = 20 to 74
    	
    	* Size = Xlate("REACTOR", i, 27, "X")
    	Size = Xlate("REACTOR", i, 29, "X")
    	Swap "mm " with "mm":Crlf$ in Size
    	
    	Begin Case
    		
    		Case i EQ 44	;// Skipped
    		Case i EQ 46	;// Skipped
    		Case i EQ 67	;// Skipped
			Case i EQ 71	;// Skipped
			Case i EQ 73	;// Skipped
    			
    		Case i EQ 69
*    			ID   = i ; Type = "SC1 + SC2"
*    			Data<-1> = "ENT" :@VM: 1 :@VM: ID :@VM: i :@VM: Type
    			
			Case Otherwise$
				ID   = i
				Type  = Xlate("REACTOR", i, 1, "X")		;// Reactor type
				Escal = Xlate("REACTOR", i, "ACT_ESC_DTM", "X")<0,1>
				Begin Case
					Case Type _eqc "ASM+"	; Type = "ASM+"
					Case Type _eqc "EPP"	; Type = "EpiPro"
					Case Type _eqc "EPS"	; Type = "ASM"
					Case Type _eqc "HTR"	; Type = "HTR"
					Case Type _eqc "SIG"	; Type = "ASM"
					Case Type _eqc ""		; Type = "***"
				End Case
				Data<-1> = "ENT" :@VM: 1 :@VM: ID :@VM: i :@VM: Type :Crlf$:Size
				If Escal GT "" then Colors<-1> = i
				
		End Case
		
	Next i
	
	If @USER4 EQ "SRP_FRANK" then
		Data<-1> = "ENT" :@VM: 1 :@VM: 99 :@VM: 99 :@VM: "Test":Crlf$:"Reactor"
	end

	Param1 = Data
	Param2 = Colors
return
