sub Gmk_Delete_Related_1(byval argParentTable, byval argParentKey, byval argParentKeyID)
	nDepth = nDepth + 1
	Dim mySQL as String
	Dim myHnd as Long
	Dim sChildTable as String
	Dim sChildField as String
	Dim sChildKeys as String
	Dim sKey as String
	Dim sCascadeType as String
	Dim nChildCount
 
	If argParentTable = "" then goto exit_sub
   
	'** Delete any child records
	mySQL = "SELECT FromTable, FromField, CascadeType FROM JOINDATA" & _
		 " WHERE Upper(CascadeType) IN ('D','C','S') AND ToTable='" & argParentTable &"'"
	myHnd = MyDBOpenSQL(mySQL, True)
	'** For each joined table
	While DBEof(myHnd) = False
		sChildTable = DBGetValue(myHnd, "FromTable")
		sChildField = DBGetValue(myHnd, "FromField")
		sCascadeType = DBGetValue(myHnd, "CascadeType")
		sChildKeys = gmk_ChildKeys(sChildTable, sChildField, argParentKeyID)
		'** Process joined table
		Select Case sCascadeType
		Case "D"
			For nChildCount = 1 to CSVCount(sChildKeys)
				sKey = CSVField(sChildKeys,nChildCount)
				Call Gmk_Delete_Related_2(sChildTable, sChildField, sKey)
			Next nChildCount
			If sChildKeys <> "" Then
				DBEXecuteSQL "DELETE FROM " & sChildTable & " where " & sChildField & "='" & argParentKeyID & "'"
			End If
		Case "C"
			If sChildKeys <> "" Then
				MyDBExecuteSQL "UPDATE " & sChildTable & " set " & sChildField & "=NULL where " & sChildField & "='" & argParentKeyID & "'"
			End If
		Case "S"
			If sChildKeys <> "" Then
				MyDBExecuteSQL "DELETE FROM " & sChildTable & " where " & sChildField & "='" & argParentKeyID & "'"
			End If
		End Select
		gsPointer = DBMoveTo(myHnd, "Next")
	Wend
	DBClose myHnd
exit_sub:
	nDepth=nDepth-1 
end sub

' Notes:
'   JOINDATA.CascadeType values:
'	C=The key field linking the record in the secondary table is
'	  cleared out, but not the entire record in the secondary table.
'
'	D=Delete the selected record and any dependent records
'
'	R=When deleting a record, clear out the key field linking the record 
'	  in a secondary table, but not the record itself. 
'	  Replace the key field with another id.
'
'	S=(Stop Cascade)
'	  Delete the selected record, but do not delete any dependent records.
'
'	X=(Don't use in cascade)	
'	  When deleting a record, skip this table as If it did not exist. 

Public Sub CascadeIterate(TableName)
'Sub
' Simple algorithm to iterate the child relationships of a table

'Syntax
' CascadeIterate(TableName)

'Parameters
' TableName as String - Table in the Database
dim objectRecordSet
dim stringSQL
dim stringFromTable, stringFromKeyField, stringToKeyField, stringCascadeType, stringJoinType
dim integerReturn
    On Error Resume Next
    integerReturn = 0
    if (stringTableName <> "") then
        ' Match TableName in JoinData
        stringSQL = "SELECT * FROM JOINDATA WHERE TOTABLE = '" & stringTableName & "' ORDER BY FROMTABLE"
        set objectRecordSet = GetNewRecordSet(stringSQL)
        if (objectRecordSet is nothing) then exit sub
        with objectRecordSet
            while (not (.EOF))
                stringFromTable = .Fields("FROMTABLE").Value
                stringFromKeyField = .Fields("FROMFIELD").Value
                stringToKeyField = .Fields("TOFIELD").Value
                stringCascadeType = .Fields("CASCADETYPE").Value
                stringJoinType = .Fields("JOINTYPE").Value
                select case stringCascadeType
                    case "C"
                    case "D"
                        if (stringToKeyField = stringFromKeyField) then
                            integerReturn = MsgBox(Application.Translator.Localize("Calling: CascadeTraverse " & stringFromTable), vbYes, "Validation")
                            CascadeIterate stringFromTable
                        end if
                    case "R"
                    case "S"
                    case "X"
                    case else
                end select
                .MoveNext
            wend
            .Close
        end with
        set objectRecordSet = nothing
    end if
    ErrorCheck(Application.Translator.Localize("CascadeIterate:"))
    On Error Goto 0
End Sub