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


