47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
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
|
|
|
|
|