6050b346a5
## Background Currently when a mode change sub mode is an ABORT/ALARM sub mode, operators must refer to an Excel spreadsheet matrix of which paper checklists to complete. This feature is part of an effort to further digitize work instructions and streamline the process of determining which checklists should be completed depending on the reason why a reactor alarmed / aborted. ## Description of Change NICA_ORDERS_SERVICES (and the NICA Integration Service) now support an order type "ABORT_ALARM", which may be triggered when a reactor mode change occurs and the sub mode contains "ABORT/ALARM". Whether or not a NICA order is created depends on if the NICA checklist defined in OpenInsight applies to that reactor type (EpiPro is excluded for now). The "flows" of checklists to prescribe are defined in the REACT_PROB_CAT records for the ABORT/ALARM sub modes. Furthermore, NICA checklists defined in OpenInsight can now feature a property of whether or not they should _not_ be re-prescribed if a new NICA order is created of the same type while one is already active. ## Testing - Local testing - UAT by Jonathon Sperling ## Notes In the previous NICA integration feature, Intrusive Maintenance, the MonA group resource name was stored in environment variables instead of in ENVIRONMENT_SERVICES. After further testing, this turned out to be an unviable option as environment variables that are picked up are from the user's client or the terminal server they are running OpenInsight from. Setting environment variables on all clients and the terminal servers is not practical, so this was removed in a previous PR. Related work items: #175188
59 lines
2.3 KiB
Plaintext
59 lines
2.3 KiB
Plaintext
Compile function React_Prob_Cat_Services(@Service, @Params)
|
|
/***********************************************************************************************************************
|
|
|
|
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
|
|
permission from SRP Computer Solutions, Inc.
|
|
|
|
Name : React_Prob_Cat_Services
|
|
|
|
Description : Handler program for all module related services.
|
|
|
|
Notes : The generic parameters should contain all the necessary information to process the services. Often
|
|
this will be information like the data Record and Key ID.
|
|
|
|
Parameters :
|
|
Service [in] -- Name of the service being requested
|
|
Param1-10 [in/out] -- Additional request parameter holders
|
|
Response [out] -- Response to be sent back to the Controller (MCP) or requesting procedure
|
|
|
|
Metadata :
|
|
|
|
History : (Date, Initials, Notes)
|
|
|
|
***********************************************************************************************************************/
|
|
#pragma precomp SRP_PreCompiler
|
|
|
|
$Insert SERVICE_SETUP
|
|
$Insert APP_INSERTS
|
|
$insert REACT_PROB_CAT_EQUATES
|
|
|
|
Declare Function NextKey
|
|
Declare Subroutine Database_Services, Error_Services
|
|
|
|
GoToService
|
|
|
|
Return Response or ""
|
|
|
|
//----------------------------------------------------------------------------------------------------------------------
|
|
// SERVICES
|
|
//----------------------------------------------------------------------------------------------------------------------
|
|
|
|
Service Create(ReactProbCatName, ReactProbCat)
|
|
|
|
Response = ''
|
|
If ReactProbCatName NE '' then
|
|
RPRec = ''
|
|
NewCatKey = NextKey('REACT_PROB_CAT')
|
|
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$> = ''
|
|
Database_Services('WriteDataRow', 'REACT_PROB_CAT', NewCatKey, RPRec, True$, False$, False$)
|
|
Response = NewCatKey
|
|
end else
|
|
Error_Services('Add', 'Error in ':Service:' service. Null ReactProbCatName passed into service.')
|
|
end
|
|
|
|
End Service
|
|
|