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

fixed material track report, Mona_Services HTTP call, and COC file generation

Browse Source
This commit is contained in:
MESOISYSADMIN 2024-09-05 15:06:46 -07:00 committed by Infineon\StieberD
parent 7762b129af
commit a8a9e91d04
83 changed files with 64689 additions and 47974 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LSL2/APPROW/APP_INFO%003AENGINE_HEALTH_THRESHOLD_MINUTES.json
View File

@ -6,7 +6,7 @@
},
"body": {
"record1": {
"<1>": "15"
"<1>": "60"
}
}
}

134
LSL2/APPROW/APP_INFO%003ATOOL_KEYS_BY_TYPE.json
View File

@ -25,75 +25,71 @@
"<1,16>": "TENCOR1",
"<1,17>": "TENCOR2",
"<1,18>": "TENCOR3",
"<1,19>": "ASET",
"<1,20>": "BIORAD2",
"<1,21>": "BIORAD3",
"<1,22>": "BIORAD4",
"<1,23>": "BIORAD5",
"<1,24>": "CDE2",
"<1,25>": "CDE3",
"<1,26>": "CDE4",
"<1,27>": "CDE5",
"<1,28>": "CDE6",
"<1,29>": "FLEXUS",
"<1,30>": "HGCV1",
"<1,31>": "HGCV2",
"<1,32>": "HGCV3",
"<1,33>": "SPV",
"<1,34>": "SRP",
"<1,35>": "BELLJAR",
"<1,36>": "6INLESS",
"<1,37>": "6INLESS2",
"<1,38>": "6MACTRONIX #1",
"<1,39>": "6MACTRONIX #2",
"<1,40>": "6MACTRONIX #3",
"<1,41>": "6MACTRONIX #4",
"<1,42>": "8INLESS",
"<1,43>": "8INLESS2",
"<1,44>": "BAGGER1",
"<1,45>": "BAGGER2",
"<1,46>": "BAGGER3",
"<1,47>": "BAGGER4",
"<1,48>": "6INFF01",
"<1,49>": "6INFF02",
"<1,50>": "6INFF03",
"<1,51>": "6INFF04",
"<1,52>": "6INFF05",
"<1,53>": "6INFF06",
"<1,54>": "6INFF07",
"<1,55>": "6INFF08",
"<1,56>": "6INFF09",
"<1,57>": "6INFF10",
"<1,58>": "8INNF01",
"<1,59>": "8INNF02",
"<1,60>": "8INNF03",
"<1,61>": "8INNF04",
"<1,62>": "8INNF05",
"<1,63>": "8INFF01",
"<1,64>": "8INFF02",
"<1,65>": "8INFF03",
"<1,66>": "8INFF04",
"<1,67>": "MACTRONIX #1",
"<1,68>": "MACTRONIX #2 ",
"<1,69>": "MACTRONIX #3",
"<1,70>": "MACTRONIX #4",
"<1,71>": "MACTRONIX #5",
"<1,72>": "MACTRONIX #6",
"<1,73>": "MACTRONIX #7",
"<1,74>": "TALL_PITCH1",
"<1,75>": "TALL_PITCH2",
"<1,76>": "TALL_PITCH3",
"<1,77>": "TALL_PITCH4",
"<1,78>": "WC6INCH1",
"<1,79>": "WC6INCH2",
"<1,80>": "WC6INCH3",
"<1,81>": "WC6INCH4",
"<1,82>": "WC8INCH1",
"<1,83>": "WC8INCH2",
"<1,84>": "WC8INCH3",
"<1,85>": "ELLP01",
"<1,86>": "LEAKCHK01",
"<1,87>": "LEAKCHK02"
"<1,19>": "BIORAD2",
"<1,20>": "BIORAD3",
"<1,21>": "BIORAD4",
"<1,22>": "BIORAD5",
"<1,23>": "CDE4",
"<1,24>": "CDE5",
"<1,25>": "CDE6",
"<1,26>": "HGCV1",
"<1,27>": "HGCV2",
"<1,28>": "HGCV3",
"<1,29>": "SPV",
"<1,30>": "SRP",
"<1,31>": "BELLJAR",
"<1,32>": "6INLESS",
"<1,33>": "6INLESS2",
"<1,34>": "6MACTRONIX #1",
"<1,35>": "6MACTRONIX #2",
"<1,36>": "6MACTRONIX #3",
"<1,37>": "6MACTRONIX #4",
"<1,38>": "8INLESS",
"<1,39>": "8INLESS2",
"<1,40>": "BAGGER1",
"<1,41>": "BAGGER2",
"<1,42>": "BAGGER3",
"<1,43>": "BAGGER4",
"<1,44>": "6INFF01",
"<1,45>": "6INFF02",
"<1,46>": "6INFF03",
"<1,47>": "6INFF04",
"<1,48>": "6INFF05",
"<1,49>": "6INFF06",
"<1,50>": "6INFF07",
"<1,51>": "6INFF08",
"<1,52>": "6INFF09",
"<1,53>": "6INFF10",
"<1,54>": "8INNF01",
"<1,55>": "8INNF02",
"<1,56>": "8INNF03",
"<1,57>": "8INNF04",
"<1,58>": "8INNF05",
"<1,59>": "8INFF01",
"<1,60>": "8INFF02",
"<1,61>": "8INFF03",
"<1,62>": "8INFF04",
"<1,63>": "MACTRONIX #1",
"<1,64>": "MACTRONIX #2 ",
"<1,65>": "MACTRONIX #3",
"<1,66>": "MACTRONIX #4",
"<1,67>": "MACTRONIX #5",
"<1,68>": "MACTRONIX #6",
"<1,69>": "MACTRONIX #7",
"<1,70>": "TALL_PITCH1",
"<1,71>": "TALL_PITCH2",
"<1,72>": "TALL_PITCH3",
"<1,73>": "TALL_PITCH4",
"<1,74>": "WC6INCH1",
"<1,75>": "WC6INCH2",
"<1,76>": "WC6INCH3",
"<1,77>": "WC6INCH4",
"<1,78>": "WC8INCH1",
"<1,79>": "WC8INCH2",
"<1,80>": "WC8INCH3",
"<1,81>": "ELLP01",
"<1,82>": "LEAKCHK01",
"<1,83>": "LEAKCHK02"
}
}
}

4223
LSL2/OIWIN/NDW_SCHEDULER.json
View File

File diff suppressed because it is too large Load Diff

4359
LSL2/OIWIN/NDW_SCHEDULER_ADD_WO.json
View File

File diff suppressed because it is too large Load Diff

4082
LSL2/OIWIN/NDW_SCHEDULER_CANCEL_WO.json
View File

File diff suppressed because it is too large Load Diff

4084
LSL2/OIWIN/NDW_SCHEDULER_MODIFY_WO.json
View File

File diff suppressed because it is too large Load Diff

4067
LSL2/OIWIN/NDW_SCHEDULER_STOP_WO.json
View File

File diff suppressed because it is too large Load Diff

2399
LSL2/OIWIN/SERVICES.json
View File

File diff suppressed because it is too large Load Diff

1
LSL2/STPROC/DIALOG_EMAIL_SHIPMENT.txt
View File

@ -258,6 +258,7 @@ RETURN
TxShipments:
* * * * * * *
CtrlEntID = @WINDOW:'.TX_SHIP'
ShipNos = Get_Property(@WINDOW:'.TX_SHIP','DEFPROP')<COL$SHIP_NO>

21
LSL2/STPROC/JONATHAN_SERVICES.txt
View File

@ -39,6 +39,27 @@ Return Response or ""
// SERVICES
//-----------------------------------------------------------------------------
Service UpdateYesterdayAvail()
Today = 20702
DataArray = ''
//ASM Reactors
ASMRecordKey = 'ASM*': Today
ASMUptimeRec = Reactor_Services('GetReactorUptimeMetricsByTypeAndTimeSpan', Today, Today + 1, 'ASM')
Database_Services('WriteDataRow', 'REACTOR_DAILY_UPTIME', ASMRecordKey, ASMUptimeRec, True$, False$, True$)
//HTR Reactors
HTRRecordKey = 'HTR*': Today
HTRUptimeRec = Reactor_Services('GetReactorUptimeMetricsByTypeAndTimeSpan', Today, Today + 1, 'HTR')
Database_Services('WriteDataRow', 'REACTOR_DAILY_UPTIME', HTRRecordKey, HTRUptimeRec, True$, False$, True$)
//EPP Reactors
EPPRecordKey = 'EPP*': Today
EPPUptimeRec = Reactor_Services('GetReactorUptimeMetricsByTypeAndTimeSpan', Today, Today + 1, 'EPP')
Database_Services('WriteDataRow', 'REACTOR_DAILY_UPTIME', EPPRecordKey, EPPUptimeRec, True$, False$, True$)
//All Reactors
ALLRecordKey = 'ALL*': Today
ALLUptimeRec = Reactor_Services('GetReactorUptimeMetricsByTypeAndTimeSpan', Today, Today + 1, 'ALL')
Database_Services('WriteDataRow', 'REACTOR_DAILY_UPTIME', ALLRecordKey, ALLUptimeRec, True$, False$, True$)
end service
Service GetReactorNumbersByType()
Debug
test = Reactor_Services('GetReactorNumbers', 'ASM')

5
LSL2/STPROC/MONA_SERVICES.txt
View File

@ -159,7 +159,8 @@ Service SendBufferedAverageMetric(MonaResource, MetricName, MetricValue)
retries = retries - 1
response = Httpclient_Services('SendHTTPRequest', 'POST', ApiUrl, 'Content-Type':@VM:'application/json':@FM:'Accept':@VM:'*/*', RequestBodyJson, '', '', False$, True$, '')
response = Httpclient_Services('SendHTTPRequest', 'POST', ApiUrl, 'Content-Type':@VM:'application/json':@FM:'Accept':@VM:'*/*', RequestBodyJson, '', '', False$, False$, '')
If response EQ '"Request queued for processing"' then
isSuccessful = True$
end
@ -167,5 +168,3 @@ Service SendBufferedAverageMetric(MonaResource, MetricName, MetricValue)
end service

3
LSL2/STPROC/NDW_MAIN_EVENTS.txt
View File

@ -148,8 +148,9 @@ Event WINDOW.CREATE(CreateParam)
If (AccessLevel EQ -1) OR (AccessLevel EQ '') then
Set_Property(@Window, '@CLOSE', 1)
Post_Event(@Window, 'CLOSE')
// This prevents OI from throwing an error message if the cancel button is pressed on the LOGON form.
If (Server EQ 'MESST5201') or (Server EQ 'MESST5202') then Utility("DESTROY", "SYSTEM")
//If (Server EQ 'MESST5201') or (Server EQ 'MESST5202') then Utility("DESTROY", "SYSTEM")
end
If AccessLevel GE 0 then

30
LSL2/STPROC/OBJ_SHIPMENT.txt
View File

@ -429,21 +429,23 @@ SAPCreate:
SendReason = 'Initial Tx (Auto)'
SendDtm = ICONV(OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS'),'DT')
SendUser = @User4
TaskID = RTI_Task_Submit('', 'PRINT_SHIPMENT_DEV', ShipNo, ShipRec, 1, True$)
* TaskID = RTI_Task_Submit('', 'PRINT_SHIPMENT_DEV', ShipNo, ShipRec, 1, True$)
Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' Called PRINT_SHIPMENT_DEV Task. TaskID : ' : TaskID, @RM, @FM, '')
If TaskID NE 0 then
Done = False$
TaskResponse = ''
Loop
Status = RTI_Task_Status(TaskID, TaskResponse)
If (Status EQ 'COMPLETED') OR (Status EQ 'ERROR') then Done = True$
Until Done
Repeat
end else
// Track if task id wasn't created at all.
end
Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' Finished PRINT_SHIPMENT_DEV Task. Status : ' : Status, @RM, @FM, '')
Print_Shipment_Dev(ShipNo, ShipRec, True$, True$)
* Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' Called PRINT_SHIPMENT_DEV Task. TaskID : ' : TaskID, @RM, @FM, '')
* If TaskID NE 0 then
* Done = False$
* TaskResponse = ''
* Loop
* Status = RTI_Task_Status(TaskID, TaskResponse)
* If (Status EQ 'COMPLETED') OR (Status EQ 'ERROR') then Done = True$
* Until Done
* Repeat
* end else
* // Track if task id wasn't created at all.
* end
* Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' Finished PRINT_SHIPMENT_DEV Task. Status : ' : Status, @RM, @FM, '')
StatusError = Get_Status(errCode)
Logging_Services('AppendLog', objLog, LoggingDTM : @FM : WONo : @FM: ShipNo : @FM : ' GetStatus PRINT_SHIPMENT_DEV Task. ErrCode : ' : ErrCode, @RM, @FM, '')
If (Index(errCode, 'SHELLEXECUTE', 1)) NE 0 then StatusError = 0

7
LSL2/STPROC/REACTOR_SERVICES.txt
View File

@ -3287,7 +3287,7 @@ Service CreateReactorProveInOrder(ReactNo, ProveInType)
Retries = Retries - 1
HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'POST', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', '', '', '')
HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'POST', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', False$, False$, '')
If HttpResponseJson NE '' then
ObjResponseJson = ''
If SRP_JSON(ObjResponseJson, 'Parse', HttpResponseJson) EQ '' then
@ -3340,6 +3340,7 @@ Service CreateReactorProveInOrder(ReactNo, ProveInType)
end service
Service GetReactorProveInStatus(ReactNo)
Headers = 'Logging DTM' : @FM : 'Machine' : @FM : 'Log'
ColumnWidths = 20 : @FM : 15 : @FM : 300
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\ReactorProveIn'
@ -3386,7 +3387,7 @@ Service GetReactorProveInStatus(ReactNo)
Retries = Retries - 1
HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'GET', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', '', '', '')
HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'GET', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', False$, False$, '')
If HttpResponseJson NE '' then
ObjResponseJson = ''
If SRP_JSON(ObjResponseJson, 'Parse', HttpResponseJson) EQ '' then
@ -3488,7 +3489,7 @@ Service CancelReactorProveIn(ReactNo, OrderId)
Retries = Retries - 1
HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'PUT', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', '', '', '')
HttpResponseJson = Httpclient_Services('SendHTTPRequest', 'PUT', ProveInUrl, 'Accept':@VM:'*/*', '', '', '', False$, False$, '')
If HttpResponseJson NE '' then
ObjResponseJson = ''
If SRP_JSON(ObjResponseJson, 'Parse', HttpResponseJson) EQ '' then

5
LSL2/STPROC/REPORT_SERVICES_DEV3.txt
View File

@ -77,7 +77,6 @@ Return Response or ""
//-----------------------------------------------------------------------------
Service CalculateMaterialTrackData(RptColumns, LocationFilter, NoMatFlag)
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
Lock hSysLists, ServiceKeyID then
@ -131,7 +130,7 @@ Service CalculateMaterialTrackData(RptColumns, LocationFilter, NoMatFlag)
PrevReactNo = ''
PrevWO = ''
SelectSent = 'SELECT SCHED_DET_NG WITH STOP_DTM GE ':Today:' BY REACT_NO'
SelectSent = 'SELECT SCHED_DET_NG WITH STOP_DTM GE "':OCONV(Today, 'DT'):'" BY REACT_NO'
RList(SelectSent,TARGET_ACTIVELIST$,'','','')
IF Get_Status(errCode) THEN
@ -432,7 +431,7 @@ DETAIL:
WPDAdjusted = Epi_Part_Services('GetAdjustedWafersPerDayScheduler', EpiPartNo, S.React_Type)
If WPDAdjusted NE '' then
CPDAdjusted = SRP_Math('CEILING', (WPDAdjusted/25) )
CassInCR = DCount(KittCassList, ',') + DCount(PTICassList, ',') + DCount(LoadedCassList, ',')
CassInCR = DCount(KitCassList, ',') + DCount(PTICassList, ',') + DCount(LoadedCassList, ',')
CassNeeded = CassInCR - CPDAdjusted
end
end

4
LSL2/STPROC/REPORT_SERVICES_DEV5.txt
View File

@ -149,7 +149,7 @@ Service GetMaterialTrackReport(RptColumns, LocationFilter, NoMatFlag)
PrevReactNo = ''
PrevWO = ''
SelectSent = 'SELECT SCHED_DET_NG WITH STOP_DTM GE ':Today:' BY REACT_NO'
SelectSent = 'SELECT SCHED_DET_NG WITH STOP_DTM GE "':OCONV(Today, 'DT'):'" BY REACT_NO'
RList(SelectSent,TARGET_ACTIVELIST$,'','','')
IF Get_Status(errCode) THEN
@ -461,7 +461,7 @@ DETAIL:
WPDAdjusted = Epi_Part_Services('GetAdjustedWafersPerDayScheduler', EpiPartNo, S.React_Type)
If WPDAdjusted NE '' then
CPDAdjusted = SRP_Math('CEILING', (WPDAdjusted/25) )
CassInCR = DCount(KittCassList, ',') + DCount(PTICassList, ',') + DCount(LoadedCassList, ',')
CassInCR = DCount(KitCassList, ',') + DCount(PTICassList, ',') + DCount(LoadedCassList, ',')
CassNeeded = CassInCR - CPDAdjusted
end
end

12
LSL2/STPROC/TEST_DANIEL2.txt
View File

@ -86,13 +86,13 @@ Testing:
* DebuggerOn = Get_Env(AttributeList)
* DebuggerOn = AttributeList
TickCount = GetTickCount()
Response = 'Hello World2! Ticks: ':TickCount:' Debugger is off'
OSWrite Response on 'D:\tmp\HelloWorld2.txt'
* TickCount = GetTickCount()
* Response = 'Hello World2! Ticks: ':TickCount:' Debugger is off'
* OSWrite Response on 'D:\tmp\HelloWorld2.txt'
*
* Response = Param1
Response = Param1
return Response
return
* Testing:
*

45
LSL2/STPROC/TEST_DANIEL3.txt
View File

@ -94,29 +94,32 @@ $Insert PS_EQUATES
Main:
debug
TaskID = RTI_Task_Submit('', 'TEST_DANIEL2', '', '', '')
* Slots = Xlate('WM_OUT', '173011*1*2', 'SLOT_WAFER_ID', 'X')
* RDSNos = Xlate('WM_OUT', '173011*1*3', 'RDS', 'X')
WONo = 172637
WOStep = 1
CassNo = 30
WMOKey = WONo:'*':WOStep:'*':CassNo
WOMatKey = WONo:'*':CassNo
NCRNos = Xlate('WM_OUT', WMOKey, 'SLOT_NCR', 'X')
NumScrapSlots = 0
If NCRNos NE '' then
For each NCRNo in NCRNos using @VM
NumScrapSlots += (NCRNo NE '')
Next NCRNo
end
SchedCassQty = XLATE('WO_MAT', WOMatKey, 'WAFER_QTY', 'X')
If NumScrapSlots GE SchedCassQty then
FullBoxReject = True$
end else
FullBoxReject = False$
end
* WONo = 172637
* WOStep = 1
* CassNo = 30
* WMOKey = WONo:'*':WOStep:'*':CassNo
* WOMatKey = WONo:'*':CassNo
* NCRNos = Xlate('WM_OUT', WMOKey, 'SLOT_NCR', 'X')
* NumScrapSlots = 0
* If NCRNos NE '' then
* For each NCRNo in NCRNos using @VM
* NumScrapSlots += (NCRNo NE '')
* Next NCRNo
* end
*
* SchedCassQty = XLATE('WO_MAT', WOMatKey, 'WAFER_QTY', 'X')
*
* If NumScrapSlots GE SchedCassQty then
* FullBoxReject = True$
* end else
* FullBoxReject = False$
* end
* Version = ''
* GetEngineVersion(Version)
@ -124,7 +127,7 @@ Main:
* rv = RTI_Xlate_Controller('EnableCache')
* end
return
return TaskID
* Path = Drive()
* UNCPath = SRP_Path("PathToUnc", Path)

2
LSL2/STPROCINS/MESSAGING_EQUATES.txt
View File

@ -20,7 +20,7 @@ Declare function NDW_Messaging_Processor_Events, RetStack, SRP_Encode, SRP_De
Declare subroutine Error_Services, Messaging_Services, Memory_Services, SRP_JSON, SRP_COM
Declare subroutine NDW_Messaging_Processor_Events, SRP_Stopwatch, Send_Event, Send_Message, RTP27
Equ Server.Name$ to 'MESTSA01EC'
Equ Server.Name$ to 'MESSA01EC'
Equ Server.Port$ to 25000
Equ Server.KeepAlive$ to 60000
Equ MessageProcessor$ to 'NDW_MESSAGING_PROCESSOR'