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

Modified REACTOR_MAINT_TODO form to include scrubbers

Browse Source
This commit is contained in:
Infineon\Ouellette
2024-11-27 14:06:40 -07:00
committed by Ouellette Jonathan (CSC FI SPS MESLEO)
parent 47a4257d95
commit 8716caf86c
3 changed files with 1025 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
LSL2/STPROC/PM_SERVICES.txt
View File

@ -1047,3 +1047,35 @@ Service CompleteScrubberPM(ScrubberID)
end service
Service GetActivePMsByToolId(ToolId)
ErrorMessage = ''
ActivePMIdList = ''
If ToolId NE '' then
Open 'DICT.PM_SPEC' to @DICT then
Option = ''
Flag = ''
PMSpecList = ''
SearchStr = 'TOOL_ID':@VM:ToolId:@FM
SearchStr := 'ARCHIVED':@VM:'#1':@FM
Btree.Extract(SearchStr, 'PM_SPEC', @DICT, PMSpecList, '', Flag)
If Flag EQ 0 AND PMSpecList NE '' then
for each PMSpecId in PMSpecList using @VM
ActivePMKeys = Database_Services('ReadDataColumn', 'PM_SPEC', PMSpecId, PM_SPEC_PM_KEYS$, True$, 0, False$)
If ActivePMKeys NE '' then
ActivePMIdList<1,-1> = ActivePMKeys
end
Next PMSpecId
end else
ErrorMessage = 'Error in PM_Services -> GetActivePMsByToolIdAndType, unable to find active PM Specs for this tool id'
end
end else
ErrorMessage = 'Error in PM_Services -> GetActivePMsByToolIdAndType, error opening PM_SPEC dictionary'
end
end else
ErrorMessage = 'Error in PM_Services -> GetActivePMsByToolIdAndType, null tool id passed to routine'
end
Response = ActivePMIdList
end service