added LSL2 stored procedures

2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions
--- a/LSL2/STPROC/SVC_REACTOR_LIST.txt
+++ b/LSL2/STPROC/SVC_REACTOR_LIST.txt
@ -0,0 +1,117 @@
+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