added LSL2 stored procedures

LSL2/STPROC/REACT_PROB_CAT_SERVICES.txt

@@ -0,0 +1,46 @@
+Compile function React_Prob_Cat_Services(@Service, @Params)
+Declare Function Next_Key, Date
+Declare Subroutine Msg, Database_Services
+#pragma precomp SRP_PreCompiler
+$insert LOGICAL
+$insert REACT_PROB_CAT_EQUATES
+
+GoToService
+
+Return Response or ""
+
+//-----------------------------------------------------------------------------
+// SERVICES
+//-----------------------------------------------------------------------------
+
+Service Create(ReactProbCatName, ReactProbCat)
+    OPEN 'REACT_PROB_CAT' TO RPTable ELSE
+	    MSG( '', 'Unable to open REACT_PROB_CAT...' )
+	    RETURN
+    END
+    RPRec = ''
+    NewCatKey = Next_Key('REACT_PROB_CAT', RPTable, 'NEXT', '')
+    RPRec<REACT_PROB_CAT_CAT_DESC$> = ReactProbCatName
+    RPRec<REACT_PROB_CAT_ENTRY_ID$> = @User4
+    RPRec<REACT_PROB_CAT_ENTRY_DATE$> = Date()
+    RPRec<REACT_PROB_CAT_REACT_PROB_ID$> = ''
+    //RPRec<5> = 0
+    RPRec<6> = ReactProbCat
+    
+    WRITE RPRec ON RPTable, NewCatKey ELSE
+	    MSG( '', 'Damn')
+	    RETURN
+ 	END
+ 	UNLOCK RPTable, NewCatKey else
+	    MSG( '', 'Damn' )
+	    RETURN
+ 	END
+    Response = NewCatKey
+    
+End Service
+
+Service Delete(ProbCatId)
+    
+end service
+
+