phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added intrusive maintenance flow logic

Browse Source 
updated headers for nica order request

Added reactor type support to nica checklists. Refactored flow logic to just use NICA_CHECKLISTS table.

added feature flag support

gated Feature Flags menu item to supervisors

removed debug

added auto comment for intr maint flows on reactor log, intr maint flow id to react servs form, and cancel order on unsign reactor log

added exceptions for lamp and tc services, added control to edit flow id on react servs form, added auto-reactor log comment, added cancel order on unsign event

removed debug

modified NicaOrdersServices to use env variables for group resource name

added logic to filter out service flow ids for servics with is_intrusive set to false, modified security group for feature flag menu, added ability to clear intr main flow id to react serv form

removed unused equates
This commit is contained in:
Infineon\StieberD
2025-02-25 09:39:41 -07:00
parent 8f339106bd
commit 9d4ae3c5b3
38 changed files with 8351 additions and 13489 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
LSL2/STPROC/DEVELOPMENT_SERVICES.txt
View File

@ -25,6 +25,7 @@ $INSERT RLIST_EQUATES
$INSERT CLEAN_INSP_EQUATES
$INSERT TOOL_PARMS_EQUATES
$INSERT SERVICES_EQUATES
$INSERT FEATURE_FLAGS_EQUATES
EQU COL$QA_MET_PHASE_MIN TO 17
@ -45,7 +46,7 @@ Declare function Work_Order_Services, RetStack, Min, Max, Obj_Prod_Spec, Insert,
Declare function Security_Services, QA_Services, Database_Services, RowExists, Rti_Lh_Info, UNICODE_ANSI, UNICODE_UTF8
Declare function index, Httpclient_Services, SRP_Encode, SRP_Decode, DirList, Obj_Rds_Test, Tool_Parms_Services
Declare function SQL_Services, RDS_Services, Obj_WM_out, Schedule_Services, Obj_Tool, SRP_Sort_Array
Declare function Development_Services
Declare function Development_Services, Datetime
GoToService
@ -632,6 +633,59 @@ Service DeployRoutine(StoredProcNames)
end service
Service GetFeatureFlagArray()
FeatureFlagArray = ''
Open 'FEATURE_FLAGS' to hTable then
Select hTable
RowIndex = 0
EOF = False$
Loop
ReadNext KeyId else EOF = True$
Until EOF
RowIndex += 1
Read Rec from hTable, KeyId then
FeatureFlagArray<RowIndex, 1> = KeyId
FeatureFlagArray<RowIndex, 2> = Rec<FEATURE_FLAGS.FEATURE_DESCRIPTION$>
FeatureFlagArray<RowIndex, 3> = Rec<FEATURE_FLAGS.ENABLED$>
end
Repeat
end
Response = FeatureFlagArray
end service
Service ChangeFeatureState(FeatureId, ModifyState, ModifyUser, ModifyComment)
ErrorMsg = ''
If RowExists('FEATURE_FLAGS', FeatureId) then
If ( (ModifyState NE '') and (ModifyUser NE '') ) then
FeatureRec = Database_Services('ReadDataRow', 'FEATURE_FLAGS', FeatureId)
If Error_Services('NoError') then
FeatureRec<FEATURE_FLAGS.ENABLED$> = ModifyState
FeatureRec<FEATURE_FLAGS.MODIFY_USER$, -1> = ModifyUser
FeatureRec<FEATURE_FLAGS.MODIFY_DTM$, -1> = Datetime()
FeatureRec<FEATURE_FLAGS.MODIFY_STATE$, -1> = ModifyState
FeatureRec<FEATURE_FLAGS.MODIFY_COMMENT$, -1> = ModifyComment
Database_Services('WriteDataRow', 'FEATURE_FLAGS', FeatureId, FeatureRec, True$, False$, False$)
end
end else
ErrorMsg = 'Error in ':Service:' service. Null ModifyState or ModifyUser passed in.'
end
end else
ErrorMsg = 'Error in ':Service:' service. FEATURE_FLAGS "':FeatureId:'" does not exist!'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
Response = False$
end else
Response = True$
end
end service
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Internal GoSubs
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@ -642,4 +696,3 @@ ClearCursors:
Next counter
return