Module: Mod Utilities

Type: Standard
Lines of Code: 2048
Source: ms_access_files\vanadium\Modules\Mod Utilities.bas

Dependencies

Module Dependencies: - RecSet - ActDatabase - MulRecSet - OtherRecSet

Tables Accessed: - If - Product - Qry - Products

Forms Referenced: - Frm

Procedures

ListOpenFrms

Type: Public Function
Lines: 27

Calls: ListOpenFrms

Complexity Notes: - ⚠️ Contains GoTo statements

UpdatePhasesInUse

Type: Public Sub
Lines: 33
Parameters: ProdID As Long

Calls: OpenRecordset, Fields, UpdatePhasesInUse

UpdateDeliveryHours

Type: Public Sub
Lines: 366
Parameters: ProdID As Long

Calls: OpenRecordset, UpdateDeliveryHours, Round, IsLoaded, Fields

Complexity Notes: - ⚠️ Contains GoTo statements - ⚠️ High branching (57 If statements) - ⚠️ Large procedure (366 lines)

UpdateLearningHours

Type: Public Sub
Lines: 221
Parameters: ProdID As Long

Calls: UpdateLearningHours, Fields, OpenRecordset, IsLoaded

Complexity Notes: - ⚠️ Contains GoTo statements - ⚠️ High branching (22 If statements) - ⚠️ Large procedure (221 lines)

UpdateGroupGuidingHours

Type: Public Sub
Lines: 97
Parameters: ProdID As Long

Calls: OpenRecordset, UpdateGroupGuidingHours, Fields, IsLoaded

Complexity Notes: - ⚠️ Contains GoTo statements - ⚠️ High branching (6 If statements)

UpdateIndividualGuidingHours

Type: Public Sub
Lines: 283
Parameters: ProdID As Long

Calls: OpenRecordset, Fields, UpdateIndividualGuidingHours, IsLoaded

Complexity Notes: - ⚠️ Contains GoTo statements - ⚠️ High branching (30 If statements) - ⚠️ Large procedure (283 lines)

Phase1Exists

Type: Public Function
Lines: 13
Returns: Boolean

Calls: IsLoaded, Phase1Exists

Phase2Exists

Type: Public Function
Lines: 13
Returns: Boolean

Calls: IsLoaded, Phase2Exists

Phase3Exists

Type: Public Function
Lines: 13
Returns: Boolean

Calls: IsLoaded, Phase3Exists

DisplayPhases

Type: Public Sub
Lines: 650

Calls: IsLoaded, Pages, OpenRecordset, DisplayPhases

Complexity Notes: - ⚠️ Contains GoTo statements - ⚠️ High branching (69 If statements) - ⚠️ Large procedure (650 lines)

CloseAllEditForms

Type: Public Sub
Lines: 66

Calls: CloseAllEditForms, IsLoaded

Complexity Notes: - ⚠️ Contains GoTo statements - ⚠️ High branching (18 If statements)

SEEDOnlyDivision

Type: Public Sub
Lines: 25
Parameters: ProdID As Long

Calls: OpenRecordset, SEEDOnlyDivision, Fields

IgnitionBoxOther

Type: Public Function
Lines: 23
Parameters: ProdID As Long, PhaseNum As Long
Returns: Boolean

Calls: OpenRecordset, Fields, IgnitionBoxOther

DisplayCateringOptions

Type: Public Sub
Lines: 37
Parameters: ProdID As Long

Calls: OpenRecordset, DisplayCateringOptions

CloseExtraForms

Type: Public Sub
Lines: 23
Parameters: CurrentForm As String

Calls: CloseExtraForms

TruncateTheText

Type: Public Function
Lines: 19
Parameters: TheStr As String
Returns: String

Calls: TruncateTheText

GetXofY

Type: Public Function
Lines: 16
Parameters: f As Form

Calls: GetXofY

Complexity Notes: - ⚠️ Uses On Error Resume Next

IsLoaded

Type: Public Function
Lines: 13
Parameters: ByVal strFormName As String
Returns: Boolean

Calls: IsLoaded, SysCmd, Forms

StringsSameCase

Type: Public Function
Lines: 9
Parameters: X As String, Y As String
Returns: Boolean

Calls: StringsSameCase

CheckForUpper

Type: Public Function
Lines: 13
Parameters: CheckString As String

Calls: Asc, CheckForUpper

CheckForSpecial

Type: Public Function
Lines: 20
Parameters: CheckString As String

Calls: Asc, CheckForSpecial

CheckForNumber

Type: Public Function
Lines: 13
Parameters: CheckString As String

Calls: CheckForNumber, Asc