pre cutover push
This commit is contained in:
Infineon\StieberD
@ -47,8 +47,9 @@ Compile function WM_Out_Services(@Service, @Params)
|
||||
|
||||
***********************************************************************************************************************/
|
||||
#pragma precomp SRP_PreCompiler
|
||||
$insert LOGICAL
|
||||
|
||||
$Insert SERVICE_SETUP
|
||||
$Insert LOGICAL
|
||||
$Insert MSG_EQUATES
|
||||
$Insert DICT_EQUATES
|
||||
$Insert WM_OUT_EQUATES
|
||||
@ -130,17 +131,18 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
|
||||
If Record EQ '' then Record = Database_Services('ReadDataRow', 'WM_OUT', KeyID)
|
||||
If Error_Services('NoError') then
|
||||
@DICT = Database_Services('GetTableHandle', 'DICT.WM_OUT')
|
||||
@ID = KeyID
|
||||
@RECORD = Record
|
||||
@DICT = Database_Services('GetTableHandle', 'DICT.WM_OUT')
|
||||
@ID = KeyID
|
||||
@RECORD = Record
|
||||
objJSON = ''
|
||||
If SRP_JSON(objJSON, 'New', 'Object') then
|
||||
|
||||
objWMOut = ''
|
||||
If SRP_JSON(objWMOut, 'New', 'Object') then
|
||||
SRP_JSON(objWMOut, 'SetValue', 'keyId', @ID)
|
||||
SRP_JSON(objWMOut, 'SetValue', 'workOrder', {WO_NO})
|
||||
SRP_JSON(objWMOut, 'SetValue', 'outCassNo', {OUT_CASS_NO})
|
||||
WoMatKey = {WO_NO} : '*' : {OUT_CASS_NO}
|
||||
CurrWfrQty = XLATE('WO_MAT', WoMatKey, 'CURR_WFR_CNT', 'X')
|
||||
WoMatKey = {WO_NO} : '*' : {OUT_CASS_NO}
|
||||
CurrWfrQty = XLATE('WO_MAT', WoMatKey, 'CURR_WFR_CNT', 'X')
|
||||
SRP_JSON(objWMOut, 'SetValue', 'CURR_WFR_CNT', CurrWfrQty)
|
||||
SRP_JSON(objWMOut, 'SetValue', 'PSN', {PS_NO})
|
||||
SRP_JSON(objWMOut, 'SetValue', 'partNo', {PART_NO})
|
||||
@ -148,23 +150,24 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
SRP_JSON(objWMOut, 'SetValue', 'postEpiSigDtm', OConv({POST_EPI_SIG_DTM}, 'DT/^1HS'))
|
||||
SRP_JSON(objWMOut, 'SetValue', 'supVerSig', {SUP_VER_SIG})
|
||||
SRP_JSON(objWMOut, 'SetValue', 'supVerSigDtm', OConv({SUP_VER_SIG_DTM}, 'DT/^1HS'))
|
||||
CINos = {EPO_CI_NO}
|
||||
|
||||
CINos = {EPO_CI_NO}
|
||||
// Add a PSN object
|
||||
ProdSpecJSON = PSN_Services('ConvertRecordToJSON', {PS_NO})
|
||||
ProdSpecJSON = PSN_Services('ConvertRecordToJSON', {PS_NO})
|
||||
objProdSpecResponse = ''
|
||||
If SRP_JSON(objProdSpecResponse, 'Parse', ProdSpecJSON) EQ '' then
|
||||
objProdSpec = SRP_JSON(objProdSpecResponse, 'Get', 'prodSpec')
|
||||
SRP_JSON(objWMOut, 'Set', 'prodSpec', objProdSpec)
|
||||
SRP_JSON(objProdSpec, 'Release')
|
||||
SRP_JSON(objProdSpecResponse, 'Release')
|
||||
end
|
||||
|
||||
// Add CLEAN_INSP object(s)
|
||||
If CINos NE '' then
|
||||
objCleanInspArray = ''
|
||||
If SRP_JSON(objCleanInspArray, 'New', 'Array') then
|
||||
For each CINo in CINos using @VM setting vPos
|
||||
If CINo NE '' then
|
||||
CleanInspJSON = Clean_Insp_Services('ConvertRecordToJSON', CINo)
|
||||
objCleanInsp = ''
|
||||
If SRP_JSON(objCleanInsp, 'Parse', CleanInspJSON) EQ '' then
|
||||
objTemp = SRP_JSON(objCleanInsp, 'Get', 'cleanInsp')
|
||||
SRP_JSON(objCleanInspArray, 'Add', objTemp)
|
||||
@ -181,6 +184,7 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
// Add WO_MAT_QA object
|
||||
WOMatQAKey = Field(KeyID, '*', 1):'*':Field(KeyID, '*', 3)
|
||||
WOMatQAJSON = WO_Mat_QA_Services('ConvertRecordToJSON', WOMatQAKey)
|
||||
objWOMatQA = ''
|
||||
If SRP_JSON(objWOMatQA, 'Parse', WOMatQAJSON) EQ '' then
|
||||
objTemp = SRP_JSON(objWOMatQA, 'Get', 'woMatQa')
|
||||
SRP_JSON(objWMOut, 'Set', 'woMatQA', objTemp)
|
||||
@ -194,10 +198,11 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
|
||||
If itemURL NE '' then
|
||||
// The itemURL was passed in so add HAL+JSON properties.
|
||||
|
||||
// Create the _links property and then all link objects needed for this resource.
|
||||
objLinks = ''
|
||||
If SRP_JSON(objLinks, 'New', 'Object') then
|
||||
// Create a self link.
|
||||
objLink = ''
|
||||
If SRP_JSON(objLink, 'New', 'Object') then
|
||||
SRP_JSON(objLink, 'SetValue', 'href', ItemURL, 'String')
|
||||
SRP_JSON(objLink, 'SetValue', 'title', 'Self', 'String')
|
||||
@ -207,7 +212,6 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
SRP_JSON(objJSON, 'Set', '_links', objLinks)
|
||||
SRP_JSON(objLinks, 'Release')
|
||||
end
|
||||
|
||||
// Create the _class property for this resource.
|
||||
SRP_JSON(objJSON, 'SetValue', '_class', 'resource')
|
||||
end
|
||||
@ -299,4 +303,44 @@ Service GetWMOData(WorkOrderNo, Columns, ShowGasGauge, WMOOverrideList)
|
||||
end service
|
||||
|
||||
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
// GetWaferMap
|
||||
//
|
||||
// Returns a @VM delimited array of boolean values, which represents which slots are filled.
|
||||
// Note: The response is in the slot order 25, 24, ..., 2, 1.
|
||||
//----------------------------------------------------------------------------------------------------------------------
|
||||
Service GetWaferMap(WMOKey)
|
||||
|
||||
WaferMap = ''
|
||||
ErrorMsg = ''
|
||||
If WMOKey NE '' then
|
||||
If RowExists('WM_OUT', WMOKey) then
|
||||
WOMatKey = Xlate('WM_OUT', WMOKey, 'WO_MAT_KEY', 'X')
|
||||
ReactType = Xlate('WO_MAT', WOMatKey, 'REACTOR_TYPE', 'X')
|
||||
If ReactType EQ 'EPP' then
|
||||
RDSNos = Xlate('WM_OUT', WMOKey, 'RDS', 'X')
|
||||
WaferMap = ''
|
||||
For SlotIndex = 1 to 25
|
||||
RDSNo = RDSNos<0, SlotIndex>
|
||||
WaferMap = Insert(WaferMap, 0, 1, 0, (RDSNo NE '') )
|
||||
Next SlotIndex
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Non-EpiPro is not supported by this service. Use WO_MAT_SERVICES instead.'
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. WM_OUT record ':WMOKey:' does not exist.'
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Null WMOKey passed in.'
|
||||
end
|
||||
|
||||
If ErrorMsg EQ '' then
|
||||
Response = WaferMap
|
||||
end else
|
||||
Error_Services('Add', ErrorMsg)
|
||||
Response = False$
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user