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

57
LSL2/STPROC/WO_DAILY_SCHED_ALL_COMM.txt
View File

@ -10,8 +10,8 @@ function wo_daily_sched_all_comm(Branch,CurrParm)
***********************************************************************************************************************/
#pragma precomp SRP_PreCompiler
declare function set_property, fieldcount, get_property, msg, dialog_box, security_check
declare function send_message, utility, key_sort, start_window, entid, repository
declare function set_property, fieldcount, get_property, msg, dialog_box, security_check, Reactor_Log_Services
declare function send_message, utility, key_sort, start_window, entid, repository, Nica_Orders_Services
declare function relational_call, memberof, get_mode_icon, Database_Services, Reactor_Services
declare subroutine extract_si_keys, end_dialog, make.list, security_err_msg, Set_Property, SRP_Stopwatch, Dialog_Box
Declare subroutine Send_Message
@ -67,24 +67,21 @@ ChecklistButton:
Message = ''
ReactorNo = CurrParm[-1, 'B_']
Status_ProveIn = XLATE('REACTOR', ReactorNo, REACTOR_PROVE_IN_ACTIVE$, 'X')
If Status_ProveIn EQ '' Then Status_ProveIn = False$
Status_ProveIn = Reactor_Services('GetProveInActive', ReactorNo)
Status_0311 = XLATE('REACTOR', ReactorNo, REACTOR_0311_ACTIVE$, 'X')
If Status_0311 EQ '' then Status_0311 = False$
CurrModeKey = Xlate('REACTOR_CHILD_KEY_IDS_NG', ReactorNo, REACTOR_CHILD_KEY_IDS_REACT_MODE_KEY_IDS$, 'X')
CurrRLKey = Xlate('REACT_MODE_NG', CurrModeKey, REACT_MODE_NG_START_RL_ID$, 'X')
Status_ReactorPM = Xlate('REACTOR_LOG', CurrRLKey, REACTOR_LOG_CHECKLIST_ACTIVE$, 'X')
If Status_ReactorPM EQ '' then Status_ReactorPM = False$
CurrModeKey = Xlate('REACTOR_CHILD_KEY_IDS_NG', ReactorNo, REACTOR_CHILD_KEY_IDS_REACT_MODE_KEY_IDS$, 'X')
CurrRLKey = Xlate('REACT_MODE_NG', CurrModeKey, REACT_MODE_NG_START_RL_ID$, 'X')
ReactorPmOrderIds = Nica_Orders_Services('GetActiveOrders', 'REACTOR_LOG', CurrRlKey)
HgCVAlarmOrderIds = Nica_Orders_Services('GetActiveOrders', 'REACTOR', I, 'IQS_HGCV_ALARM')
ChecklistInfo = 'The following checklist(s) are active: '
If Status_ProveIn then
// Add each active prove in order
ProveInOrderTypes = Xlate('REACTOR', ReactorNo, REACTOR_PROVE_IN_TYPE$, 'X')
ProveInOrderTypes = Reactor_Services('GetActiveProveInTypes', ReactorNo)
For each ProveInOrderType in ProveInOrderTypes using @VM setting vPos
ChecklistInfo<-1> = ProveInOrderType
Next ProveInOrderType
@ -92,13 +89,18 @@ ChecklistButton:
If Status_0311 then ChecklistInfo<-1> = '0311 OCAP'
If Status_ReactorPM then
// Add each active reactor PM order
RlPmTypes = Xlate('REACTOR_LOG', CurrRLKey, REACTOR_LOG_CHECKLIST_TYPE$, 'X')
For each RlPmType in RlPmTypes using @VM setting vPos
ChecklistInfo<-1> = RlPmType
If ReactorPmOrderIds NE '' then
// Add each active reactor PM checklist order
For each ReactorPmOrderId in ReactorPmOrderIds using @VM setting vPos
ChecklistInfo<-1> = Xlate('NICA_ORDERS', ReactorPmOrderId, 'ORDER_TYPE', 'X')
Next RlPmType
end
If HgCVAlarmOrderIds NE '' then
For each HgCVAlarmOrderId in HgCVAlarmOrderIds using @VM
ChecklistInfo<-1> = Xlate('NICA_ORDERS', HgCVAlarmOrderId, 'ORDER_TYPE', 'X')
Next HgCVAlarmOrder
end
Swap @FM with CRLF$ in ChecklistInfo
@ -246,17 +248,11 @@ FORM_CREATE:
RPanelTitle := ' - PP'
END
Status_ProveIn = XLATE('REACTOR', I, REACTOR_PROVE_IN_ACTIVE$, 'X')
IF Status_ProveIn EQ '' THEN
Status_ProveIn = FALSE$
END
Status_ProveIn = Reactor_Services('GetProveInActive', I)
Status_0311 = XLATE('REACTOR', I, REACTOR_0311_ACTIVE$, 'X')
IF Status_0311 EQ '' THEN
Status_0311 = FALSE$
END
IF Status_0311 EQ '' THEN Status_0311 = FALSE$
Set_Property(Window:'.RPANEL':I, 'TEXT', RpanelTitle ) ;* Display Wafer Size in inches
Set_Property(Window:'.RWO':I, 'TEXT', WO ) ;* Display WO #
@ -271,8 +267,8 @@ FORM_CREATE:
end
CurrModeKey = Xlate('REACTOR_CHILD_KEY_IDS_NG', I, 'REACT_MODE_KEY_IDS', 'X')
CurrRLKey = Xlate('REACT_MODE_NG', CurrModeKey, 'START_RL_ID', 'X')
Status_ReactorPM = Xlate('REACTOR_LOG', CurrRLKey, 'CHECKLIST_ACTIVE', 'X')
CurrRLKey = Xlate('REACT_MODE_NG', CurrModeKey, 'START_RL_ID', 'X')
Status_ReactorPM = Reactor_Log_Services('GetRlChecklistActive', CurrRLKey)
If Status_ReactorPM EQ '' then Status_ReactorPM = False$
@ -280,7 +276,13 @@ FORM_CREATE:
Set_Property(Window:'.OLE_PIC_':I, 'OLE.Image', '.\BMPS\ActiveReactorPM.png')
end
OlePicVisible = ( (Status_ProveIn EQ True$) or (Status_0311 EQ True$) or (Status_ReactorPM EQ True$) )
Status_HgCV_Alarm = (Nica_Orders_Services('GetActiveOrders', 'REACTOR', I, 'IQS_HGCV_ALARM') NE '')
If Status_HgCV_Alarm EQ True$ then
Set_Property(Window:'.OLE_PIC_':I, 'OLE.Image', '.\BMPS\ActiveProveIn.png')
end
OlePicVisible = ( Status_ProveIn or Status_0311 or Status_ReactorPM or Status_HgCV_Alarm)
Set_Property(Window:'.OLE_PIC_':I,'VISIBLE', OlePicVisible)
IQSPicControl = @Window : '.OLE_PIC_IQS_': i
@ -329,3 +331,4 @@ return
*===============================================================================================*