'#Language "WWB-COM"

Option Explicit

Const T_XmlNS_PTMA = "http://schemas.iaresearch.com/PTMAddin" ' namespace for PTM addin used to mark dependency types
Const T_XmlAN_CADependencyType = "DependencyType"
Const T_XmlAV_CADependencyType_S2S = "StartToStart"
Const T_XmlAV_CADependencyType_S2F = "StartToFinish"
Const T_XmlAV_CADependencyType_F2S = "FinishToStart"
Const T_XmlAV_CADependencyType_F2F = "FinishToFinish"

Sub Main
	
End Sub

Function DependencyGetType(ByVal m_Relationship As Relationship, ByRef e_Type As MmDependencyType) As Boolean
	' Find dependency type
	' Return true if the relationship is a dependency

	DependencyGetType = False
	e_Type = MmDependencyNone
	If m_Relationship.HasAttributesNamespace(T_XmlNS_PTMA) Then
		If m_Relationship.Attributes(T_XmlNS_PTMA).HasAttribute(T_XmlAN_CADependencyType) Then
			Select Case UCase(m_Relationship.Attributes(T_XmlNS_PTMA).GetAttributeValue(T_XmlAN_CADependencyType))

        		Case UCase(T_XmlAV_CADependencyType_S2S)
        			e_Type =  MmDependencyStartToStart
        			DependencyGetType = True

	            Case UCase(T_XmlAV_CADependencyType_S2F)
	            	e_Type = MmDependencyStartToFinish
	            	DependencyGetType = True

	            Case UCase(T_XmlAV_CADependencyType_F2S)
	            	e_Type = MmDependencyFinishToStart
	            	DependencyGetType = True

	            Case UCase(T_XmlAV_CADependencyType_F2F)
	            	e_Type = MmDependencyFinishToFinish
	            	DependencyGetType = True

			End Select
        End If
    End If

End Function