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

Alarm trigger with NICA_ORDERS table

Browse Source 
solution tested and ready for deployment

updated SRP_Git_Services to handle creating local copies of inherited entities

updated HgCV OCAP order trigger to also look for active prove-in orders

moved error services common into sysprog to avoid compilation issues
This commit is contained in:
Infineon\StieberD
2024-12-12 13:24:48 -07:00
parent 3cd56295dc
commit ab8f9d3c24
24 changed files with 3167 additions and 1571 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
LSL2/STPROC/REACTOR_MODES_SERVICES.txt
View File

@ -31,7 +31,8 @@ $Insert REACT_PROB_CAT_EQUATES
$Insert REACTOR_EQUATES
$Insert RLIST_EQUATES
Declare function Database_Services, React_Prob_Cat_Services, Reactor_Modes_Services, Memberof, Error_Services
Declare function Database_Services, React_Prob_Cat_Services, Reactor_Modes_Services, Memberof, Error_Services
Declare function Nica_Orders_Services, Reactor_Services
Declare subroutine Error_Services, Database_Services, delete, RList, Reactor_Services
GoToService
@ -223,17 +224,9 @@ Service AvailableModes(ReactorModesKey, CurrUser, ReactNo)
CurModeReleaseGroups = XLATE('REACTOR_MODES', ReactorModesKey, REACTOR_MODES_GROUPS_RELEASE$, 'X')
CanRelease = 0
IdleStartupRequired = False$
If ReactNo NE '' then
IdleStartupRequired = Xlate('REACTOR', ReactNo, REACTOR_IDLE_STARTUP_REQUIRED$, 'X')
If IdleStartupRequired EQ True$ then
Reactor_Services('GetReactorProveInStatus', ReactNo)
end
IdleStartupRequired = Xlate('REACTOR', ReactNo, REACTOR_IDLE_STARTUP_REQUIRED$, 'X')
If IdleStartupRequired EQ '' then IdleStartupRequired = False$
end
IdleStartupRequired = Reactor_Services('GetIdleStartupRequired', ReactNo)
//Check can release from current mode
// Check can release from current mode
for each ReleaseGroup in CurModeReleaseGroups using @VM
if Memberof(CurrUser, ReleaseGroup) then
CanRelease = 1
@ -267,8 +260,10 @@ Service AvailableModes(ReactorModesKey, CurrUser, ReactNo)
Next mode
end
for each PossibleMode in PossibleModes using @FM
For each PossibleMode in PossibleModes using @FM
AllowMode = True$
If PossibleMode EQ 'IDLE_STARTUP' and IdleStartupRequired EQ False$ then
AllowMode = False$
end
@ -299,5 +294,3 @@ Service AvailableModes(ReactorModesKey, CurrUser, ReactNo)
end service