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

restored supplement notifications

Browse Source
This commit is contained in:
Infineon\StieberD 2024-10-10 13:02:36 -07:00 committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 403559fe19
commit ce21313054
3 changed files with 293 additions and 276 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
LSL2/STPROC/NDW_RDS_SUPPLEMENT_EVENTS.txt
View File

@ -366,22 +366,28 @@ return
SaveSupps: SaveSupps:
ChangeCount = Dcount(OrigSelPos, @FM) Instructions = ''
For I =1 to ChangeCount RDSNotifyList = ''
ChangeCount = Dcount(OrigSelPos, @FM)
For I = 1 to ChangeCount
CurrRowNum = OrigSelPos<I> CurrRowNum = OrigSelPos<I>
CurrRow = RDSList<CurrRowNum> CurrRow = RDSList<CurrRowNum>
LotSupps = CurrRow<1,15> LotSupps = CurrRow<1,15>
Swap CRLF with @FM in LotSupps Swap CRLF with @FM in LotSupps
SuppCount = Dcount(LotSupps, @FM) SuppCount = Dcount(LotSupps, @FM)
For J = 1 to SuppCount For J = 1 to SuppCount
ThisLot = CurrRow<1,5> ThisLot = CurrRow<1,5>
ThisStage = Field(LotSupps<J>, ':', 1) RDSNotifyList<-1> = ThisLot
ThisSupp = Field(LotSupps<J>, ': ', 2) ThisStage = Field(LotSupps<J>, ':', 1)
ThisSupp = TrimF(ThisSupp) ThisSupp = Field(LotSupps<J>, ': ', 2)
ret = Supplement_Services('CreateSupplement', 'RDS', ThisLot, ThisStage, ThisSupp, @USER4) ThisSupp = TrimF(ThisSupp)
ret = Supplement_Services('CreateSupplement', 'RDS', ThisLot, ThisStage, ThisSupp, @User4)
Instructions = ThisSupp
Next J Next J
Next I Next I
If RDSNotifyList NE '' then Supplement_Services('SendNotifications', RDSNotifyList, 'Created', Instructions, @User4)
return return
@ -404,4 +410,3 @@ EnableButtons:
return return

380
LSL2/STPROC/NDW_REMOVE_SUPPLEMENTS_EVENTS.txt
View File

@ -1,189 +1,191 @@
Function NDW_Remove_Supplements_Events(CtrlEntId, Event, @PARAMS) Function NDW_Remove_Supplements_Events(CtrlEntId, Event, @PARAMS)
/*********************************************************************************************************************** /***********************************************************************************************************************
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
permission from Infineon. permission from Infineon.
Name : NDW_Remove_Supplements_Events Name : NDW_Remove_Supplements_Events
Description : This function acts as a commuter module for all events related to this window. Description : This function acts as a commuter module for all events related to this window.
Notes : Commuter Modules are automatically called from the Promoted_Events function which is called by the Notes : Commuter Modules are automatically called from the Promoted_Events function which is called by the
application-specific promoted event handler. This makes it possible to add QuickEvents that need to application-specific promoted event handler. This makes it possible to add QuickEvents that need to
execute Basic+ logic without having use the Form Designer to make the association, although this is execute Basic+ logic without having use the Form Designer to make the association, although this is
limited to the events which are currently promoted. limited to the events which are currently promoted.
If the form needs to call the commuter module directly then the QuickEvent parameters should be If the form needs to call the commuter module directly then the QuickEvent parameters should be
formatted like this: formatted like this:
'@SELF','@EVENT',['@PARAM1','@PARAMx'] '@SELF','@EVENT',['@PARAM1','@PARAMx']
Parameters : Parameters :
CtrlEntId [in] -- The fully qualified name of the control calling the promoted event CtrlEntId [in] -- The fully qualified name of the control calling the promoted event
Event [in] -- The event being executed. See the Notes section regarding "PRE" events Event [in] -- The event being executed. See the Notes section regarding "PRE" events
Param1-15 [in] -- Additional event parameter holders Param1-15 [in] -- Additional event parameter holders
EventFlow [out] -- Set to 1 or 0 so the calling event knows whether or not to chain forward. See comments in EventFlow [out] -- Set to 1 or 0 so the calling event knows whether or not to chain forward. See comments in
EVENT_SETUP insert EVENT_SETUP insert
History : (Date, Initials, Notes) History : (Date, Initials, Notes)
05/24/18 djs Created initial commuter module. 05/24/18 djs Created initial commuter module.
***********************************************************************************************************************/ ***********************************************************************************************************************/
#pragma precomp SRP_PreCompiler #pragma precomp SRP_PreCompiler
#Window NDW_ADD_SUPPLEMENT #Window NDW_ADD_SUPPLEMENT
$insert APP_INSERTS $insert APP_INSERTS
$insert EVENT_SETUP $insert EVENT_SETUP
$insert MSG_EQUATES $insert MSG_EQUATES
$Insert SUPPLEMENTS_EQUATES $Insert SUPPLEMENTS_EQUATES
Declare subroutine SRP_Show_Window, Supplement_Services Declare subroutine SRP_Show_Window, Supplement_Services
Declare function SRP_Array, Supplement_Services Declare function SRP_Array, Supplement_Services
SubclassInfo = Form_Services('FindSubclassControl') SubclassInfo = Form_Services('FindSubclassControl')
Subclass = SubclassInfo<1> Subclass = SubclassInfo<1>
// Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler. // Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler.
If Event EQ 'OLE' then If Event EQ 'OLE' then
Transfer Event to OIEvent Transfer Event to OIEvent
Transfer Param1 to Event Transfer Param1 to Event
Transfer Param2 to Param1 Transfer Param2 to Param1
Transfer Param3 to Param2 Transfer Param3 to Param2
* Transfer Param4 to Param3 * Transfer Param4 to Param3
* Transfer Param5 to Param4 * Transfer Param5 to Param4
* Transfer Param6 to Param5 * Transfer Param6 to Param5
* Transfer Param7 to Param6 * Transfer Param7 to Param6
* Transfer Param8 to Param7 * Transfer Param8 to Param7
end end
GoToEvent Event for CtrlEntID GoToEvent Event for CtrlEntID
Return EventFlow else EVENT_CONTINUE$ Return EventFlow else EVENT_CONTINUE$
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Events // Events
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Event WINDOW.CREATE(CreateParam) Event WINDOW.CREATE(CreateParam)
Result = '' Result = ''
SupplInst = '' SupplInst = ''
GoSub Setup_OLE_Controls GoSub Setup_OLE_Controls
If CreateParam NE '' then If CreateParam NE '' then
Gosub PopulateStages Gosub PopulateStages
Set_Property(@Window : '.CMB_STAGE', 'LIST', StageList) Set_Property(@Window : '.CMB_STAGE', 'LIST', StageList)
Set_Property(@Window : '.CMB_STAGE', 'SELPOS', 1) Set_Property(@Window : '.CMB_STAGE', 'SELPOS', 1)
Set_Property(@Window : '.PUB_OK', 'ENABLED', True$) Set_Property(@Window : '.PUB_OK', 'ENABLED', True$)
end end
Gosub CheckForSupplements Gosub CheckForSupplements
SRP_Show_Window(@Window, '', 'C', 'C', 1, '', False$, False$, FormSize) SRP_Show_Window(@Window, '', 'C', 'C', 1, '', False$, False$, FormSize)
end event end event
Event WINDOW.CLOSE(CancelFlag) Event WINDOW.CLOSE(CancelFlag)
Result = '' Result = ''
Result<1> = False$ Result<1> = False$
End_Dialog(@Window, Result) End_Dialog(@Window, Result)
end event end event
Event CMB_STAGE.CHANGED(CreateParam)
Event CMB_STAGE.CHANGED(CreateParam)
Gosub CheckForSupplements
Gosub CheckForSupplements
end event
end event
Event PUB_OK.CLICK() Event PUB_OK.CLICK()
Removal = '' Removal = ''
StageSel = Get_Property(@Window : '.CMB_STAGE', 'TEXT') StageSel = Get_Property(@Window : '.CMB_STAGE', 'TEXT')
StageSel = Field(StageSel, '-', 2) StageSel = Field(StageSel, '-', 2)
For Each RDSKey in @ReCur1 Using @VM For Each RDSKey in @ReCur1 Using @VM
Removal = Supplement_Services('DeleteSupplementByLotStage', @USER4, 'RDS', RDSKey, StageSel) Removal = Supplement_Services('DeleteSupplementByLotStage', @USER4, 'RDS', RDSKey, StageSel)
Next RDSKey Next RDSKey
If Error_Services('NoError') then RDSNotifyList = @ReCur1
Result = True$ Swap @VM with @FM in RDSNotifyList
End else If RDSNotifyList NE '' then Supplement_Services('SendNotifications', RDSNotifyList, 'Deleted', '', @User4)
End If Error_Services('NoError') then
End_Dialog(@Window, Result) Result = True$
End else
end event Result = ''
End
End_Dialog(@Window, Result)
Event PUB_CANCEL.CLICK()
end event
Result = ''
Result<1> = False$
End_Dialog(@Window, Result) Event PUB_CANCEL.CLICK()
end event Result = ''
Result<1> = False$
End_Dialog(@Window, Result)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Internal GoSubs end event
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Setup_OLE_Controls: ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Internal GoSubs
Qualify = '' ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Qualify<1> = 1
Qualify<4> = 0 Setup_OLE_Controls:
return Qualify = ''
Qualify<1> = 1
PopulateStages: Qualify<4> = 0
DraftStageList = '' return
PlainTextStages = ''
RDSList = SRP_Array("Rotate", CreateParam)
@ReCur1 = RDSList<5> PopulateStages:
For Each RDSKey in @ReCur1 Using @VM DraftStageList = ''
RDSStageList = Supplement_Services('GetStagesForLot', 'RDS', RDSKey) PlainTextStages = ''
RDSStageList2 = RDSStageList<2> :@FM: RDSStageList<1> RDSList = SRP_Array("Rotate", CreateParam)
RDSStageList3 = SRP_Array("Rotate", RDSStageList2) @ReCur1 = RDSList<5>
DraftStageList := RDSStageList3 :@FM
Next RDSKey For Each RDSKey in @ReCur1 Using @VM
Swap @VM with ' -' in DraftStageList RDSStageList = Supplement_Services('GetStagesForLot', 'RDS', RDSKey)
StageList = SRP_Array('Clean', DraftStageList, "TrimAndMakeUnique", @FM) RDSStageList2 = RDSStageList<2> :@FM: RDSStageList<1>
return RDSStageList3 = SRP_Array("Rotate", RDSStageList2)
DraftStageList := RDSStageList3 :@FM
Next RDSKey
Swap @VM with ' -' in DraftStageList
CheckForSupplements: StageList = SRP_Array('Clean', DraftStageList, "TrimAndMakeUnique", @FM)
SuppFound = '' return
StageSel = Get_Property(@Window : '.CMB_STAGE', 'TEXT')
Stage = Field(StageSel, '-', 2)
For Each RDSKey in @ReCur1 Using @VM CheckForSupplements:
SuppFound = Supplement_Services('GetSupplementsForLot', 'RDS', RDSKey, Stage)
Until SuppFound NE False$ SuppFound = ''
Next RDSKey StageSel = Get_Property(@Window : '.CMB_STAGE', 'TEXT')
If SuppFound NE False$ then Stage = Field(StageSel, '-', 2)
SuppText = Xlate('SUPPLEMENTS', SuppFound, SUPPLEMENTS_SUPPL_TEXT$, 'X', '') For Each RDSKey in @ReCur1 Using @VM
If SuppText NE '' then SuppFound = Supplement_Services('GetSupplementsForLot', 'RDS', RDSKey, Stage)
Set_Property(@Window : '.EDL_SUPPL_INST', 'TEXT', SuppText) Until SuppFound NE False$
Set_Property(@Window : '.PUB_OK', 'ENABLED', True$) Next RDSKey
end else If SuppFound NE False$ then
Set_Property(@Window : '.EDL_SUPPL_INST', 'TEXT', '') SuppText = Xlate('SUPPLEMENTS', SuppFound, SUPPLEMENTS_SUPPL_TEXT$, 'X', '')
Set_Property(@Window : '.PUB_OK', 'ENABLED', False$) If SuppText NE '' then
end Set_Property(@Window : '.EDL_SUPPL_INST', 'TEXT', SuppText)
end else Set_Property(@Window : '.PUB_OK', 'ENABLED', True$)
Set_Property(@Window : '.EDL_SUPPL_INST', 'TEXT', '') end else
Set_Property(@Window : '.PUB_OK', 'ENABLED', False$) Set_Property(@Window : '.EDL_SUPPL_INST', 'TEXT', '')
end Set_Property(@Window : '.PUB_OK', 'ENABLED', False$)
end
return end else
Set_Property(@Window : '.EDL_SUPPL_INST', 'TEXT', '')
Set_Property(@Window : '.PUB_OK', 'ENABLED', False$)
end
return

168
LSL2/STPROC/SUPPLEMENT_SERVICES.txt
View File

@ -50,13 +50,15 @@ Compile function Supplement_Services(@Service, @Params)
$insert APP_INSERTS $insert APP_INSERTS
$Insert SERVICE_SETUP $Insert SERVICE_SETUP
$Insert SUPPLEMENTS_EQUATES $Insert SUPPLEMENTS_EQUATES
$Insert RDS_EQUATES
$Insert NOTIFICATION_EQUATES
Equ COMMA$ to ',' Equ COMMA$ to ','
Declare function Database_Services, Supplement_Services, Rti_Createguid, SRP_Array, Datetime, Signature_Services Declare function Database_Services, Supplement_Services, Rti_Createguid, SRP_Array, Datetime, Signature_Services
Declare function Environment_Services, Logging_Services, Select_Into Declare function Environment_Services, Logging_Services, Select_Into
Declare subroutine Database_Services, Rds_Services, Supplement_Services, Logging_Services, Set_Status, SRP_Stopwatch Declare subroutine Database_Services, Rds_Services, Supplement_Services, Logging_Services, Set_Status, SRP_Stopwatch
Declare subroutine Btree.Extract Declare subroutine Btree.Extract, obj_Notes
GoToService else GoToService else
Error_Services('Add', Service : ' is not a valid service request within the ' : ServiceModule : ' module.') Error_Services('Add', Service : ' is not a valid service request within the ' : ServiceModule : ' module.')
@ -92,6 +94,7 @@ Options STAGES = 'VER', 'PREC','PREI', 'PRES', 'LOAD', 'FWII', 'FWIS', 'UNLOAD',
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
Service CreateSupplement(LotType=LOTTYPES, LotID, Stage=STAGES, SupplText, EntryUser) Service CreateSupplement(LotType=LOTTYPES, LotID, Stage=STAGES, SupplText, EntryUser)
EditEvent = ''
WriteNeeded = True$ WriteNeeded = True$
Stages = Supplement_Services('GetStagesForLot', LotType, LotID) Stages = Supplement_Services('GetStagesForLot', LotType, LotID)
If Stages NE False$ then If Stages NE False$ then
@ -99,14 +102,14 @@ Service CreateSupplement(LotType=LOTTYPES, LotID, Stage=STAGES, SupplText, Entry
If LotType NE '' AND LotID NE '' AND SupplText NE '' AND EntryUser NE '' then If LotType NE '' AND LotID NE '' AND SupplText NE '' AND EntryUser NE '' then
Existing = Supplement_Services('GetSupplementsForLot', LotType, LotID, Stage) Existing = Supplement_Services('GetSupplementsForLot', LotType, LotID, Stage)
If StageCheck NE 0 Then If StageCheck NE 0 Then
If Existing EQ FALSE$ then If Existing EQ False$ then
SupplID = Rti_Createguid() SupplID = Rti_Createguid()
end else end else
SupplID = Existing SupplID = Existing
OrigText = Xlate("SUPPLEMENTS", SupplID, SUPPLEMENTS_SUPPL_TEXT$, 'X', '') OrigText = Xlate("SUPPLEMENTS", SupplID, SUPPLEMENTS_SUPPL_TEXT$, 'X', '')
If OrigText EQ SupplText then If OrigText EQ SupplText then
WriteNeeded = FALSE$ WriteNeeded = False$
Response = FALSE$ Response = False$
end end
end end
end end
@ -121,22 +124,23 @@ Service CreateSupplement(LotType=LOTTYPES, LotID, Stage=STAGES, SupplText, Entry
Database_Services('WriteDataRow', 'SUPPLEMENTS', SupplID, NewSupRec, True$, False$, False$) Database_Services('WriteDataRow', 'SUPPLEMENTS', SupplID, NewSupRec, True$, False$, False$)
If Error_Services('NoError') then If Error_Services('NoError') then
Response = SupplID Response = SupplID
If Existing EQ FALSE$ then If Existing EQ False$ then
Supplement_Services('LogSupplementChange', NewSupRec, 'Created', EntryUser) EditEvent = 'Created'
end else end else
Supplement_Services('LogSupplementChange', NewSupRec, 'Edited', EntryUser) EditEvent = 'Edited'
end end
Supplement_Services('LogSupplementChange', NewSupRec, EditEvent, EntryUser)
end else end else
Response = FALSE$ Response = False$
Error_Services('Add', 'Error creating Supplement record.') Error_Services('Add', 'Error creating Supplement record.')
end end
end end
end else end else
Response = FALSE$ Response = False$
Error_Services('Add', 'LotType, LotID, Stage, SupplText or EntryUser was missing in the ' : Service : ' service.') Error_Services('Add', 'LotType, LotID, Stage, SupplText or EntryUser was missing in the ' : Service : ' service.')
end end
end else end else
Response = FALSE$ Response = False$
Error_Services('Add', 'Supplements can only be added to stages associated with the specified lot.') Error_Services('Add', 'Supplements can only be added to stages associated with the specified lot.')
end end
@ -293,43 +297,6 @@ Service GetSupplementsForLot(LotType=LOTTYPES, LotID, Stage=STAGES)
end service end service
//----------------------------------------------------------------------------------------------------------------------
// UpdateSupplementText
//
// SupplID - [Required]
// NewText - [Required]
// EntryUser - [Required]
//
// Modify the text of an existing Supplement.
//
//----------------------------------------------------------------------------------------------------------------------
Service UpdateSupplementText(SupplID, NewText, EntryUser)
Response = False$
If ( (SupplID NE '') and (NewText NE '') ) then
OldRec = Xlate('SUPPLEMENTS', SupplID, '', 'X', '')
If OldRec NE '' then
NewRec = OldRec
NewRec<SUPPLEMENTS_SUPPL_TEXT$> = NewText
NewRec<SUPPLEMENTS_ENTRY_USER$> = EntryUser
NewRec<SUPPLEMENTS_ENTRY_DATETIME$> = Datetime()
Database_Services('WriteDataRow', 'SUPPLEMENTS', SupplID, NewRec, True$, False$, False$)
If Error_Services('NoError') then
Response = SupplID
Supplement_Services('LogSupplementChange', OldRec, 'Edited', EntryUser)
end else
Error_Services('Add', 'Error editing Supplement record.')
end
end else
Error_Services('Add', 'Record does not exist.')
end
end else
Error_Services('Add', 'SupplID or NewText was missing in the ' : Service : ' service.')
end
end service
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
// DeleteSupplementByByLotStage // DeleteSupplementByByLotStage
// //
@ -352,7 +319,7 @@ Service DeleteSupplementByLotStage(EntryUser, LotType=LOTTYPES, LotID, Stage=STA
Database_Services('DeleteDataRow', 'SUPPLEMENTS', SupplID, True$, False$) Database_Services('DeleteDataRow', 'SUPPLEMENTS', SupplID, True$, False$)
If Error_Services('NoError') then If Error_Services('NoError') then
Supplement_Services('LogSupplementChange', SupplRec, 'Deleted', EntryUser) Supplement_Services('LogSupplementChange', SupplRec, 'Deleted', EntryUser)
Response = TRUE$ Response = True$
end else end else
Error_Services('Add', 'Error deleting Supplement record.') Error_Services('Add', 'Error deleting Supplement record.')
end end
@ -367,37 +334,6 @@ Service DeleteSupplementByLotStage(EntryUser, LotType=LOTTYPES, LotID, Stage=STA
end service end service
//----------------------------------------------------------------------------------------------------------------------
// DeleteSupplementByID
//
// SupplID - [Required]
// EntryUser - [Required]
//
// Delete an existing Supplement.
//
//----------------------------------------------------------------------------------------------------------------------
Service DeleteSupplementByID(SupplID, EntryUser)
Response = False$
If SupplID NE '' then
If RowExists('SUPPLEMENTS', SupplID) then
Database_Services('DeleteDataRow', 'SUPPLEMENTS', SupplID, True$, False$)
If Error_Services('NoError') then
Supplement_Services('LogSupplementChange', TestRec, 'Deleted', EntryUser)
Response = TRUE$
end else
Error_Services('Add', 'Error deleting Supplement record.')
end
end else
Error_Services('Add', 'Record does not exist.')
end
end else
Error_Services('Add', 'SupplID was missing in the ' : Service : ' service.')
end
end service
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
// GetStagesForLot // GetStagesForLot
// //
@ -603,3 +539,77 @@ Service FileLogSuccessfulSupp(LogText, EntryUser, EditEvent)
end service end service
Service SendNotifications(RDSList, EditEvent, Instructions, EntryUser)
Response = True$
ErrorMsg = ''
If RowExists('RDS', RDSList) then
Begin Case
Case ( (EditEvent _EQC 'Created') or (EditEvent _EQC 'Edited') )
PSN = Xlate('RDS', RDSList<1>, RDS_PROD_SPEC_ID$, 'X')
WoNo = Xlate('RDS', RDSList<1>, RDS_WO$, 'X')
ReactorNo = Xlate('RDS', RDSList<1>, RDS_REACTOR$, 'X');
Message = 'This Supplement was created or updated by ':OConv( EntryUser, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':OConv( Date(), 'D2/' ):' at ':OConv( Time(), 'MTH' ):'.' : CRLF$
Message := 'WO# : ' : WoNo : CRLF$
Message := 'PSN : ' : PSN : CRLF$
Message := 'Reactor No : ' : ReactorNo : CRLF$
Message := CRLF$
Message := 'RDS #s : ' : CRLF$
For each RDSNo in RDSList using @FM
Message := RDSNo : ' - ': Instructions :CRLF$
Next RDSNo
Recipients = XLATE('NOTIFICATION','SUPPLEMENTS',NOTIFICATION_USER_ID$,'X')
SendFrom = 'System'
Subject = 'New or Updated Supplement Created for WO# ': WoNo
AttachWindow = ''
AttachKey = ''
SendToGroup = ''
Parms = Recipients:@RM:SendFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
Case (EditEvent _EQC 'Deleted')
PSN = XLATE('RDS', RDSList<1>, RDS_PROD_SPEC_ID$, 'X')
WoNo = XLATE('RDS', RDSList<1>, RDS_WO$, 'X')
ReactorNo = XLATE('RDS', RDSList<1>, RDS_REACTOR$, 'X');
Message = 'This Supplement was removed by ':OConv( EntryUser, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' ):' on ':OConv( Date(), 'D2/' ):' at ':OConv( Time(), 'MTH' ):'.' : CRLF$
Message := 'WO# : ' : WoNo : CRLF$
Message := 'PSN : ' : PSN : CRLF$
Message := 'Reactor No : ' : ReactorNo : CRLF$
Message := CRLF$
Message := 'RDS #s : ' : CRLF$
For each RDSNo in RDSList using @FM
Message := RDSNo :CRLF$
Next RDSNo
Recipients = XLATE('NOTIFICATION','SUPPLEMENTS',NOTIFICATION_USER_ID$,'X')
SendFrom = 'System'
Subject = 'Supplement Removed for WO# ': WoNo
AttachWindow = ''
AttachKey = ''
SendToGroup = ''
Parms = Recipients:@RM:SendFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
Case Otherwise$
ErrorMsg = 'Error in ':Service:' service. Invalid EditEvent "':EditEvent:'" passed in.'
End Case
end else
ErrorMsg = 'Error in ':Service:' service. Invalid RDS record passed in.'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
Response = False$
end
end service