' Options:
'Date: 2024-10-06 10:32:54
'Version: 8.22
'Tip: To override a DTO option, remove "''" prefix before updating
'BaseUrl: https://data.regent-college.edu
'
'''GlobalNamespace: 
'''MakePartial: True
'''MakeVirtual: True
'''MakeDataContractsExtensible: False
'''AddReturnMarker: True
'''AddDescriptionAsComments: True
'''AddDataContractAttributes: False
'''AddIndexesToDataMembers: False
'''AddGeneratedCodeAttributes: False
'''AddResponseStatus: False
'''AddImplicitVersion: 
'''InitializeCollections: True
'''ExportValueTypes: False
'IncludeTypes: ProgramsRequest.*
'''ExcludeTypes: 
'''AddNamespaces: 
'''AddDefaultXmlNamespace: http://schemas.servicestack.net/types

Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Runtime.Serialization
Imports ServiceStack
Imports ServiceStack.DataAnnotations
Imports regis.ClassLibrary.Responses
Imports regis.ClassLibrary.Requests

Namespace Global

    Namespace regis.ClassLibrary.Requests

        <Route("/Programs", "POST")>
        Public Partial Class ProgramsRequest
            Implements IReturn(Of ProgramsResponse)
        End Class
    End Namespace

    Namespace regis.ClassLibrary.Responses

        Public Partial Class ProgramResponse
            Public Overridable Property ResponseStatus As ResponseStatus
            Public Overridable Property id As Integer
            Public Overridable Property program_code As String
            Public Overridable Property program_pretty_code As String
            Public Overridable Property program_long_name As String
            Public Overridable Property available_concentrations As String
            Public Overridable Property is_active As Boolean
            Public Overridable Property timestamp As Date
        End Class

        Public Partial Class ProgramsResponse
            Public Sub New()
                programs = New List(Of ProgramResponse)
            End Sub

            Public Overridable Property ResponseStatus As ResponseStatus
            Public Overridable Property programs As List(Of ProgramResponse)
        End Class
    End Namespace

    Namespace ServiceStack

        <DataContract>
        Public Partial Class ResponseStatus
            Implements IMeta
            Public Sub New()
                Errors = New List(Of ResponseError)
                Meta = New Dictionary(Of String, String)
            End Sub

            <DataMember(Order:=1)>
            Public Overridable Property ErrorCode As String

            <DataMember(Order:=2)>
            Public Overridable Property Message As String

            <DataMember(Order:=3)>
            Public Overridable Property StackTrace As String

            <DataMember(Order:=4)>
            Public Overridable Property Errors As List(Of ResponseError)

            <DataMember(Order:=5)>
            Public Overridable Property Meta As Dictionary(Of String, String)
        End Class
    End Namespace
End Namespace