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

Add logging for signatures and activations.

Browse Source
This commit is contained in:
Infineon\Mitchem 2024-10-22 10:08:34 -07:00 committed by Mitchem Dakota (CSC FI SPS MESLEO External)
parent d90a685b44
commit aff7a9efd3
1 changed files with 99 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

133
LSL2/STPROC/COMM_PROD_SPEC.txt
View File

@ -16,10 +16,10 @@ COMPILE FUNCTION Comm_Prod_Spec(Instruction, Parm1,Parm2)
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window, Post_Event, obj_Tables DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, Center_Window, Post_Event, obj_Tables
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow, Make.List DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow, Make.List
DECLARE SUBROUTINE Database_Services, Error_Services, Dialog_Box, Start_Window, Unlock, Utility DECLARE SUBROUTINE Database_Services, Error_Services, Dialog_Box, Start_Window, Unlock, Utility
DECLARE SUBROUTINE Psn_Services DECLARE SUBROUTINE Psn_Services, Logging_Services
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Collect.Ixvals, Error_Services DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Collect.Ixvals, Error_Services
DECLARE FUNCTION Send_Message, obj_PR_Spec, Msg, Security_Check, obj_Tables, obj_Popup, MemberOf, Database_Services DECLARE FUNCTION Send_Message, obj_PR_Spec, Msg, Security_Check, obj_Tables, obj_Popup, MemberOf, Database_Services
DECLARE FUNCTION RowExists, Repository DECLARE FUNCTION RowExists, Repository, Logging_Services, Environment_Services
$INSERT POPUP_EQUATES $INSERT POPUP_EQUATES
$INSERT LOGICAL $INSERT LOGICAL
@ -140,8 +140,16 @@ ErrCode = ''
ErrorMsg = '' ErrorMsg = ''
ErrTitle = 'Error in Comm_Prod_Spec' ErrTitle = 'Error in Comm_Prod_Spec'
Result = '' Result = ''
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\PROD_SPEC'
LogDate = Oconv(Date(), 'D4/')
LogTime = Oconv(Time(), 'MTS')
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' ProdSpecLog.csv'
Headers = 'Logging DTM' : @FM : 'User' : @FM : 'PSN Key' : @FM : 'Action'
objPSNLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ',', Headers, '', False$, False$)
BEGIN CASE BEGIN CASE
CASE Instruction = 'Create' ; GOSUB Create CASE Instruction = 'Create' ; GOSUB Create
@ -235,21 +243,21 @@ Refresh:
END CASE END CASE
IF NextMode = '' THEN * IF NextMode = '' THEN
Set_Property(@WINDOW:'.SIGN_MODE','ENABLED',0) * Set_Property(@WINDOW:'.SIGN_MODE','ENABLED',0)
Set_Property(@WINDOW:'.SIGN_MODE','TEXT','Signed') * Set_Property(@WINDOW:'.SIGN_MODE','TEXT','Signed')
END ELSE * END ELSE
Set_Property(@WINDOW:'.SIGN_MODE','ENABLED',1) * Set_Property(@WINDOW:'.SIGN_MODE','ENABLED',1)
Set_Property(@WINDOW:'.SIGN_MODE','TEXT','Sign ':NextMode) * Set_Property(@WINDOW:'.SIGN_MODE','TEXT','Sign ':NextMode)
END * END
*
IF UnsignMode = '' THEN * IF UnsignMode = '' THEN
Set_Property(@WINDOW:'.UNSIGN_MODE','ENABLED',0) * Set_Property(@WINDOW:'.UNSIGN_MODE','ENABLED',0)
Set_Property(@WINDOW:'.UNSIGN_MODE','TEXT','None Signed') * Set_Property(@WINDOW:'.UNSIGN_MODE','TEXT','None Signed')
END ELSE * END ELSE
Set_Property(@WINDOW:'.UNSIGN_MODE','ENABLED',1) * Set_Property(@WINDOW:'.UNSIGN_MODE','ENABLED',1)
Set_Property(@WINDOW:'.UNSIGN_MODE','TEXT','Unsign ':UnsignMode) * Set_Property(@WINDOW:'.UNSIGN_MODE','TEXT','Unsign ':UnsignMode)
END * END
CurrStatus = Get_Property(@WINDOW:'.STATUS','DEFPROP') CurrStatus = Get_Property(@WINDOW:'.STATUS','DEFPROP')
@ -826,7 +834,6 @@ StatusClick:
Error_Services('Add', 'Both the Pre Qual and the Qual signatures must be signed in order for the PSN to be activated.') Error_Services('Add', 'Both the Pre Qual and the Qual signatures must be signed in order for the PSN to be activated.')
END CASE END CASE
IF PSNo = '' THEN RETURN IF PSNo = '' THEN RETURN
If NewStatus NE OldStatus then If NewStatus NE OldStatus then
IF NewStatus = 'I' THEN IF NewStatus = 'I' THEN
@ -867,7 +874,17 @@ StatusClick:
Error = Error_Services('GetMessage') Error = Error_Services('GetMessage')
ErrMsg(ErrorMessage : PSNo : @SVM : 'Please notify OpenInsight administrator. Error message:':Error) ErrMsg(ErrorMessage : PSNo : @SVM : 'Please notify OpenInsight administrator. Error message:':Error)
end end
CurrDate = OCONV(Date(),'D4/')
CurrTime = OCONV(Time(),'MTHS')
CurrDTM = CurrDate:' ':CurrTime
LogData = ''
LogData<1> = CurrDTM
LogData<2> = @USER4
LogData<3> = PSNo
LogData<4> = 'Inactivate PSN ' : PSNo
Logging_Services('AppendLog', objPSNLog, LogData, @RM, @FM, False$)
END ELSE END ELSE
If OldStatus EQ 'A' then If OldStatus EQ 'A' then
Set_Property(@WINDOW:'.STATUS','VALUE','A') Set_Property(@WINDOW:'.STATUS','VALUE','A')
@ -948,6 +965,17 @@ StatusClick:
end end
If Error_Services('NoError') then If Error_Services('NoError') then
GoSub StageVerification GoSub StageVerification
CurrDate = OCONV(Date(),'D4/')
CurrTime = OCONV(Time(),'MTHS')
CurrDTM = CurrDate:' ':CurrTime
LogData = ''
LogData<1> = CurrDTM
LogData<2> = @USER4
LogData<3> = PSNo
LogData<4> = 'Activate PSN ' : PSNo
Logging_Services('AppendLog', objPSNLog, LogData, @RM, @FM, False$)
end end
end else end else
Set_Property(@WINDOW:'.STATUS','DEFPROP', OldStatus) Set_Property(@WINDOW:'.STATUS','DEFPROP', OldStatus)
@ -1217,9 +1245,9 @@ BEGIN CASE
CASE MetTest = 'LW_RHO' CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup) Units = 'ê/Ãœ' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X') EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ãœ' THEN
DefProp = EpiProps<PRS_PROP_RAW_MIN$> DefProp = EpiProps<PRS_PROP_RAW_MIN$>
END END
@ -1238,9 +1266,9 @@ BEGIN CASE
DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X') DefProp = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*THICK',PRS_PROP_RAW_MAX$,'X')
CASE MetTest = 'LW_RHO' CASE MetTest = 'LW_RHO'
Units = 'ê/Ü' ;* Resistivity units for 'ohms square' (see Metrology_Units popup) Units = 'ê/Ãœ' ;* Resistivity units for 'ohms square' (see Metrology_Units popup)
EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X') EpiProps = XLATE('PRS_PROP',PSNo:'*':LayerNo:'*RES','','X')
IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ü' THEN IF EpiProps<PRS_PROP_UNITS_ORG$> = 'ê/Ãœ' THEN
DefProp = EpiProps<PRS_PROP_RAW_MAX$> DefProp = EpiProps<PRS_PROP_RAW_MAX$>
END END
@ -1457,12 +1485,19 @@ SignNextMode:
CASE 1 ; NextSigPos = 1 ; NextMode = ModeArray<COL$MODE_CODE,1> CASE 1 ; NextSigPos = 1 ; NextMode = ModeArray<COL$MODE_CODE,1>
END CASE END CASE
BEGIN CASE BEGIN CASE
CASE NextSigPos = 4 ; Qualified = (MemberOf(@USER4,'PSN_PROD')) CASE NextSigPos = 4
CASE NextSigPos = 3 ; Qualified = (MemberOf(@USER4,'PSN_PRE_PROD')) SigStage = 'PSN_PROD'
CASE NextSigPos = 2 ; Qualified = (MemberOf(@USER4,'PSN_QUAL')) Qualified = (MemberOf(@USER4,SigStage))
CASE NextSigPos = 1 ; Qualified = (MemberOf(@USER4,'PSN_PRE_QUAL')) CASE NextSigPos = 3
SigStage = 'PSN_PRE_PROD'
Qualified = (MemberOf(@USER4,SigStage))
CASE NextSigPos = 2
SigStage = 'PSN_QUAL'
Qualified = (MemberOf(@USER4,SigStage))
CASE NextSigPos = 1
SigStage = 'PSN_PRE_QUAL'
Qualified = (MemberOf(@USER4,SigStage))
CASE 1 ; Qualified = FALSE$ CASE 1 ; Qualified = FALSE$
END CASE END CASE
@ -1482,14 +1517,20 @@ SignNextMode:
Set_Property(CtrlID,'CELLPOS',@USER4,COL$MODE_SIG:@FM:NextSigPos) Set_Property(CtrlID,'CELLPOS',@USER4,COL$MODE_SIG:@FM:NextSigPos)
Set_Property(CtrlID,'CELLPOS',CurrDTM,COL$MODE_SIG_DTM:@FM:NextSigPos) Set_Property(CtrlID,'CELLPOS',CurrDTM,COL$MODE_SIG_DTM:@FM:NextSigPos)
END
PSNo = Get_Property(@WINDOW:'.PROD_SPEC_ID','DEFPROP') PSNo = Get_Property(@WINDOW:'.PROD_SPEC_ID','DEFPROP')
Send_Event(@WINDOW,'WRITE') Send_Event(@WINDOW,'WRITE')
obj_Appwindow('LUValReturn',PSNo:@RM:@WINDOW:'.PROD_SPEC_ID') obj_Appwindow('LUValReturn',PSNo:@RM:@WINDOW:'.PROD_SPEC_ID')
LogData = ''
LogData<1> = CurrDTM
LogData<2> = @USER4
LogData<3> = PSNo
LogData<4> = 'Sign ' : SigStage
Logging_Services('AppendLog', objPSNLog, LogData, @RM, @FM, False$)
End
RETURN RETURN
@ -1512,12 +1553,19 @@ UnsignCurrMode:
CASE 1 ; UnsigPos = '' CASE 1 ; UnsigPos = ''
END CASE END CASE
BEGIN CASE BEGIN CASE
CASE UnsigPos = 4 ; Qualified = (MemberOf(@USER4,'PSN_PROD')) CASE UnSigPos = 4
CASE UnsigPos = 3 ; Qualified = (MemberOf(@USER4,'PSN_PRE_PROD')) SigStage = 'PSN_PROD'
CASE UnsigPos = 2 ; Qualified = (MemberOf(@USER4,'PSN_QUAL')) Qualified = (MemberOf(@USER4,SigStage))
CASE UnsigPos = 1 ; Qualified = (MemberOf(@USER4,'PSN_PRE_QUAL')) CASE UnSigPos = 3
SigStage = 'PSN_PRE_PROD'
Qualified = (MemberOf(@USER4,SigStage))
CASE UnSigPos = 2
SigStage = 'PSN_QUAL'
Qualified = (MemberOf(@USER4,SigStage))
CASE UnSigPos = 1
SigStage = 'PSN_PRE_QUAL'
Qualified = (MemberOf(@USER4,SigStage))
CASE 1 ; Qualified = FALSE$ CASE 1 ; Qualified = FALSE$
END CASE END CASE
@ -1531,12 +1579,20 @@ UnsignCurrMode:
IF Valid = 1 THEN IF Valid = 1 THEN
PSNo = Get_Property(@WINDOW:'.PROD_SPEC_ID','DEFPROP')
CurrDate = OCONV(Date(),'D4/') CurrDate = OCONV(Date(),'D4/')
CurrTime = OCONV(Time(),'MTHS') CurrTime = OCONV(Time(),'MTHS')
CurrDTM = CurrDate:' ':CurrTime CurrDTM = CurrDate:' ':CurrTime
Set_Property(CtrlID,'CELLPOS','',COL$MODE_SIG:@FM:UnsigPos) Set_Property(CtrlID,'CELLPOS','',COL$MODE_SIG:@FM:UnsigPos)
Set_Property(CtrlID,'CELLPOS','',COL$MODE_SIG_DTM:@FM:UnsigPos) Set_Property(CtrlID,'CELLPOS','',COL$MODE_SIG_DTM:@FM:UnsigPos)
LogData = ''
LogData<1> = CurrDTM
LogData<2> = @USER4
LogData<3> = PSNo
LogData<4> = 'UnSign ' : SigStage
Logging_Services('AppendLog', objPSNLog, LogData, @RM, @FM, False$)
END END
PSNo = Get_Property(@WINDOW:'.PROD_SPEC_ID','DEFPROP') PSNo = Get_Property(@WINDOW:'.PROD_SPEC_ID','DEFPROP')
@ -1545,6 +1601,7 @@ UnsignCurrMode:
obj_Appwindow('LUValReturn',PSNo:@RM:@WINDOW:'.PROD_SPEC_ID') obj_Appwindow('LUValReturn',PSNo:@RM:@WINDOW:'.PROD_SPEC_ID')
RETURN RETURN
@ -2615,5 +2672,3 @@ ReactorVerification:
return return