phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
open-insight/LSL2/STPROC/LSL_USERS_SERVICES.txt
Ouellette Jonathan (CSC FI SPS MESLEO) 4037b2fa45 Merged PR 15668: Refactored Lot Event 
Refactored Lot Event methods.
1. Moved all lot event methods to a new LOT_EVENT_SERVICES service module.
2. Simplified CreateLotEvent routine
3. Updated all calling stored procedures.
2025-04-28 21:02:24 +02:00

552 lines
19 KiB
Plaintext
Raw Blame History

Function LSL_USERS_SERVICES(@Service, @Params)
/***********************************************************************************************************************
Name : LSL_USERS_Services
Description : Handler program for all module related services.
Notes : Service module to support environmental state issues. Environmental refers to the state of the
operating system, which includes version, client vs. server, and path to critical systems.
Parameters :
Service [in] -- Name of the service being requested
Param1-10 [in/out] -- Additional request parameter holders
Response [out] -- Response to be sent back to the Controller (MCP) or requesting procedure
Metadata :
History : (Date, Initials, Notes)
04/27/2020 jro Original programmer.
***********************************************************************************************************************/
#pragma precomp SRP_PreCompiler
$insert LOGICAL
$insert SERVICE_SETUP
$Insert LSL_USERS_EQU
$Insert RLIST_EQUATES
$Insert NOTIFICATION_EQUATES
$Insert SEC_GROUPS_EQUATES
equ crlf$ to \0D0A\
equ tab$ to char(09)
equ comma$ to char(44)
equ space$ to char(32)
equ record$ to char(00)
equ scolon$ to char(59)
EQU MONDAY$ to 1
EQU TUESDAY$ to 2
EQU WEDNESDAY$ to 3
EQU THURSDAY$ to 4
EQU FRIDAY$ to 5
EQU SATURDAY$ to 6
EQU SUNDAY$ to 7
Declare Function Get.RecCount, SRP_Datetime, Datetime, SRP_MATH, Lsl_Users_Services, Active_Directory_Services
Declare Function DCount, Database_Services, Environment_Services, SRP_Array, Logging_Services
Declare subroutine Btree.Extract, Logging_Services
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\LSLUsers'
LogDate = Oconv(Date(), 'D4/')
LogTime = Oconv(Time(), 'MTS')
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Notification Groups Update Log.csv'
Headers = 'Logging DTM' : @FM : 'Notification ID' : @FM : 'Notes'
objNotificationLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Security Groups Update Log.csv'
Headers = 'Logging DTM' : @FM : 'Notification ID' : @FM : 'Notes'
objSecGroupsLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, Comma$, Headers, '', False$, False$)
LoggingDTM = LogDate : ' ' : LogTime ; // Logging DTM
GoToService else
Error_Services('Add', Service : ' is not a valid service request within the ' : ServiceModule : ' services module.')
userFileName = "C:\users\mesouellette\Desktop\user.csv"
OSOpen userFileName To hUserFile then
OSBWrite 'test failed' On hUserFile at 0
OSClose hUserFile
end
end
Return Response OR ''
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Services
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//----------------------------------------------------------------------------------------------------------------------
// Export Users
//----------------------------------------------------------------------------------------------------------------------
Service ExportUsers()
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
Lock hSysLists, ServiceKeyID then
userFileName = '\\10.95.104.24\App_Data\user.csv'
OSOpen userFileName To hUserFile then
Open "APP_INFO" To USER_AD_TABLE Else
status = Set_FSError()
Return
End
lastByte = 0
ReadV ADNames FROM USER_AD_TABLE, "AD_TO_LSL_USER_MAP",1 then
Count = count(ADNames, @VM) + 1
ReadV OINames FROM USER_AD_TABLE, "AD_TO_LSL_USER_MAP",2 then
For index = 1 To Count
ADName = Field(ADNames, @VM, index)
OIName = Field(OINames, @VM, index)
fNAME = Xlate("LSL_USERS", OIName, "FIRST", "X")
lNAME = Xlate("LSL_USERS", OIName, "LAST", "X")
ActiveStatus = Xlate("LSL_USERS", OIName, "Active", "X")
Groups = Xlate("LSL_USERS", OIName, "GROUPS", "X")
Tables = Xlate("LSL_USERS", OIName, "Tables", "X")
swap @vm with scolon$ in Groups
swap @vm with scolon$ in Tables
line = ADName:",":OIName:",":fNAME:",":lNAME:",":ActiveStatus:",":Groups:",":Tables : CRLF$
OSBWrite line On hUserFile At lastByte
lastByte = lastByte + Len(line)
Next
end
end
osclose hUserFile
end
Unlock hSysLists, ServiceKeyID else Null
end
end service
Service GetGroups()
Groups = ''
Sentence = 'SELECT SEC_GROUPS BY GROUP'
rv = Set_Status(0)
RList(Sentence, TARGET_ACTIVELIST$, '', '', '')
If (@List_Active EQ 3) AND (@RecCount GT 0) then
EOF = False$
Loop
Readnext GroupID else EOF = True$
Until EOF EQ True$
Groups := GroupID : @FM
Repeat
end
Groups[-1, 1] = ''
Response = Groups
end service
Service GetMembersInGroup(GroupList)
Members = ''
If GroupList NE '' then
GroupsToSearch = 'GROUPS'
for each Group in GroupList using @FM
GroupsToSearch := @VM : Group
Next Group
GroupsToSearch := @FM
Keys = ''
Table = 'LSL_USERS'
DictVar = Database_Services('GetTableHandle', 'DICT.LSL_USERS')
Btree.Extract(GroupsToSearch, Table, DictVar, Keys, '', Flag)
IF Flag EQ 0 then
for each UserName in Keys using @VM
UserRec = Database_Services('ReadDataRow', 'LSL_USERS', UserName)
FullName = UserRec<LSL_USERS_FIRST$> : ' ' : UserRec<LSL_USERS_LAST$>
Members := UserName : @VM : FullName : @FM
Next Key
Members[-1,1] = ''
end else
Error_Services('Add', 'Error calling Btree Extract in ' : Service : ' service.')
end
end else
Error_Services('Add', 'GroupList was missing in the ' : Service : ' service.')
end
response = Members
end service
Service GetOnShiftUsersByClass(Class, IncludeNextShift)
DatetimeNow = OConv(SRP_DateTime("Now"), 'DT')
NextShiftTime = OConv(SRP_Datetime('AddHours', Datetime(), 12) , 'DT')
CurrentShift = Lsl_Users_Services('GetShiftByDate', DatetimeNow)
IF IncludeNextShift then
CurrentShift := @VM : Lsl_Users_Services('GetShiftByDate', NextShiftTime)
end
Open 'DICT.LSL_USERS' to DictLSLUsers then
SearchString = ''
SearchString := 'CLASSIFICATION':@VM:Class:@FM
SearchString := 'SHIFT'
For each Shift in CurrentShift using @VM setting vPos
SearchString := @VM : Shift
Next Shift
SearchString := @VM : '' : @FM ; // Include office personnel (i.e. no shift assigned)
SearchString := 'ACTIVE' : @VM : True$ : @FM
LSLUsersKeys = ''
Btree.Extract(SearchString, 'LSL_USERS', DictLSLUsers, LSLUsersKeys, '', '')
ErrCode = ''
IF Get_Status(ErrCode) then
ErrorMsg = 'Error in ':Service:' service. Error calling Btree.Extract. Error code ':ErrCode:'.'
end
Response = LSLUsersKeys
end else
ErrorMsg = 'Error in ':Service:' service. Error opening LSL_USERS dictionary.'
end
end service
Service GetOnShiftUsers()
DatetimeNow = OConv(SRP_DateTime("Now"), 'DT')
CurrentShift = Lsl_Users_Services('GetShiftByDate', DatetimeNow)
Open 'DICT.LSL_USERS' to DictLSLUsers then
SearchString = ''
SearchString := 'SHIFT' : @VM : CurrentShift : @VM : '' : @FM ; // Include office personnel (i.e. no shift assigned)
SearchString := 'ACTIVE' : @VM : True$ : @FM
LSLUsersKeys = ''
Btree.Extract(SearchString, 'LSL_USERS', DictLSLUsers, LSLUsersKeys, '', '')
ErrCode = ''
IF Get_Status(ErrCode) then
ErrorMsg = 'Error in ':Service:' service. Error calling Btree.Extract. Error code ':ErrCode:'.'
end
Response = LSLUsersKeys
end else
ErrorMsg = 'Error in ':Service:' service. Error opening LSL_USERS dictionary.'
end
end service
Service GetShiftByDate(Date, GenerateFlag)
OnShift = ''; *Return Value
if Date EQ '' then
Error_Services('Add', 'Error in LSL_USERS_SERVICES. No Date Supplied.')
return
end
DateConv = Iconv(Date, "DT")
CalStartDate = 19005; *Arbitrary Start Date to base calendar off of. Jan 12, 2020 Beginning of short shift 1
DaysSinceStart = SRP_DateTime("DaySpan", CalStartDate, DateConv, 0)
WeeksSinceStart = SRP_Math("FLOOR", DaysSinceStart / 7)
WeekType = ''
/*
There are two different types of week the pattern goes 1 week is a long week for shift 1 and the next is a long
week for shift 3(The two day shifts)
*/
if SRP_Math("EVEN", WeeksSinceStart) AND WeeksSinceStart GE 1 then
WeekType = 'Long1'
end else
WeekType = 'Long3'
end
WeekDay = SRP_DateTime("DayOfWeek", DateConv)
ShiftTime = SRP_DateTime("Time", DateConv)
IF ShiftTime GE 21600 AND ShiftTime LT 64800 then; //6AM and 6PM
DayOrNight = 'Day'
end else
DayOrNight = 'Night'
end
/*
We set up profiles for what a long 1 week has for shift schedules and what a long 3 week has for shift schedules.
This does not change.
*/
Begin Case
Case WeekType = 'Long1'
Begin Case
Case Weekday EQ SUNDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'A'
Case DayOrNight EQ 'Night'
OnShift = 'B'
End Case
Case Weekday EQ MONDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'A'
Case DayOrNight EQ 'Night'
OnShift = 'B'
End Case
Case Weekday EQ TUESDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'A'
Case DayOrNight EQ 'Night'
OnShift = 'B'
End Case
Case Weekday EQ WEDNESDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'A'
Case DayOrNight EQ 'Night'
if ShiftTime LT 21600 then
OnShift = 'B'
end else
OnShift = 'D'
end
End Case
Case Weekday EQ THURSDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'C'
Case DayOrNight EQ 'Night'
OnShift = 'D'
End Case
Case Weekday EQ FRIDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'C'
Case DayOrNight EQ 'Night'
OnShift = 'D'
End Case
Case Weekday EQ SATURDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'C'
Case DayOrNight EQ 'Night'
OnShift = 'D'
End Case
End Case
Case WeekType = 'Long3'
Begin Case
Case Weekday EQ SUNDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'A'
Case DayOrNight EQ 'Night'
if ShiftTime LT 21600 then
OnShift = 'D'
end else
OnShift = 'B'
end
End Case
Case Weekday EQ MONDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'A'
Case DayOrNight EQ 'Night'
OnShift = 'B'
End Case
Case Weekday EQ TUESDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'A'
Case DayOrNight EQ 'Night'
OnShift = 'B'
End Case
Case Weekday EQ WEDNESDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'C'
Case DayOrNight EQ 'Night'
if ShiftTime LT 21600 then
OnShift = 'B'
end else
OnShift = 'D'
end
End Case
Case Weekday EQ THURSDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'C'
Case DayOrNight EQ 'Night'
OnShift = 'D'
End Case
Case Weekday EQ FRIDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'C'
Case DayOrNight EQ 'Night'
OnShift = 'D'
End Case
Case Weekday EQ SATURDAY$
Begin Case
Case DayOrNight EQ 'Day'
OnShift = 'C'
Case DayOrNight EQ 'Night'
if ShiftTime LT 21600 then
OnShift = 'D'
end else
OnShift = 'B'
end
End Case
End Case
End Case
Response = OnShift
end service
Service UpdateNotificationGroups()
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
Lock hSysLists, ServiceKeyID then
Open 'NOTIFICATION' to hTable then
EOF = False$
Select hTable
Loop
ReadNext KeyId else EOF = True$
Until EOF
Lock hTable, KeyId then
Read Rec from hTable, KeyId then
UseAD = Rec<NOTIFICATION_USE_ACTIVE_DIRECTORY$>
If UseAD then
LSLUserList = ''
// Update LSL_User list based on current members in Active Directory groups
ADGroups = Rec<NOTIFICATION_ACTIVE_DIRECTORY_GROUPS$>
For each GroupName in ADGroups using @VM
MemberList = Active_Directory_Services('GetADGroupMembersByGroupName', GroupName, 'INFINEON')
MemberList = SRP_Array('Rotate', MemberList, @FM, @VM)
ADUserNames = MemberList<1>
LSLUserNames = ''
LSLNames = ''
Open 'DICT.LSL_USERS' to hDict then
For each ADUserName in ADUserNames using @VM setting vPos
Query = 'DOMAIN_USERNAME':@VM:ADUserName:@FM:'ACTIVE':@VM:True$:@FM
Flag = ''
LSLUsername = ''
Btree.Extract(Query, 'LSL_USERS', hDict, LSLUsername, '', Flag)
If Flag EQ 0 then
If LSLUsername NE '' then
LSLUserList<0, -1> = LSLUsername
end else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'No LSL_USERS record found for active directory member "':ADUserName:'".'
Logging_Services('AppendLog', objNotficationLog, LogData, @RM, @FM)
end
end else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'Btree.Extract call failed for DOMAIN_USERNAME "':ADUserName:'".'
Logging_Services('AppendLog', objNotficationLog, LogData, @RM, @FM)
end
Next ADUserName
end
Next GroupName
LSLUserList = SRP_Array('Clean', LSLUserList, 'TrimAndMakeUnique', @VM)
LSLUserList = SRP_Array('SortSimpleList', LSLUserList, 'AscendingText', @VM)
Rec<NOTIFICATION_USER_ID$> = LSLUserList
Write Rec on hTable, KeyId else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'Failed to write record during update.'
Logging_Services('AppendLog', objNotficationLog, LogData, @RM, @FM)
end
end
end else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'Failed to read record during update.'
Logging_Services('AppendLog', objNotficationLog, LogData, @RM, @FM)
end
Unlock hTable, KeyId else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'Failed to unlock record during update.'
Logging_Services('AppendLog', objNotficationLog, LogData, @RM, @FM)
end
end
Repeat
end
Unlock hSysLists, ServiceKeyID else Null
end
end service
Service UpdateSecurityGroups()
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
Lock hSysLists, ServiceKeyID then
Open 'SEC_GROUPS' to hTable then
EOF = False$
Select hTable
Loop
ReadNext KeyId else EOF = True$
Until EOF
Lock hTable, KeyId then
Read Rec from hTable, KeyId then
UseAD = Rec<SEC_GROUPS_USE_ACTIVE_DIRECTORY$>
If UseAD then
LSLUserList = ''
// Update LSL_User list based on current members in Active Directory groups
ADGroups = Rec<SEC_GROUPS_ACTIVE_DIRECTORY_GROUPS$>
For each GroupName in ADGroups using @VM
MemberList = Active_Directory_Services('GetADGroupMembersByGroupName', GroupName, 'INFINEON')
MemberList = SRP_Array('Rotate', MemberList, @FM, @VM)
ADUserNames = MemberList<1>
LSLUserNames = ''
LSLNames = ''
Open 'DICT.LSL_USERS' to hDict then
For each ADUserName in ADUserNames using @VM setting vPos
Query = 'DOMAIN_USERNAME':@VM:ADUserName:@FM:'ACTIVE':@VM:True$:@FM
Flag = ''
LSLUsername = ''
Btree.Extract(Query, 'LSL_USERS', hDict, LSLUsername, '', Flag)
If Flag EQ 0 then
If LSLUsername NE '' then
LSLUserList<0, -1> = LSLUsername
end else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'No LSL_USERS record found for active directory member "':ADUserName:'".'
Logging_Services('AppendLog', objSecGroupsLog, LogData, @RM, @FM)
end
end else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'Btree.Extract call failed for DOMAIN_USERNAME "':ADUserName:'".'
Logging_Services('AppendLog', objSecGroupsLog, LogData, @RM, @FM)
end
Next ADUserName
end
Next GroupName
LSLUserList = SRP_Array('Clean', LSLUserList, 'TrimAndMakeUnique', @VM)
LSLUserList = SRP_Array('SortSimpleList', LSLUserList, 'AscendingText', @VM)
Rec<SEC_GROUPS_USER$> = LSLUserList
Write Rec on hTable, KeyId else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'Failed to write record during update.'
Logging_Services('AppendLog', objSecGroupsLog, LogData, @RM, @FM)
end
end
end else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'Failed to read record during update.'
Logging_Services('AppendLog', objSecGroupsLog, LogData, @RM, @FM)
end
Unlock hTable, KeyId else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = KeyId
LogData<3> = 'Failed to unlock record during update.'
Logging_Services('AppendLog', objSecGroupsLog, LogData, @RM, @FM)
end
end
Repeat
end
Unlock hSysLists, ServiceKeyID else Null
end
end service
Reference in New Issue View Git Blame Copy Permalink