//DDB-FileStart
//DDB-HeaderStart

// File Name : CODETYPE.DD
// Class Name: Codetype_DataDictionary
// Revision  : 5
// Version   : 2

Use  Windows           // Basic Definitions
Use  DataDict.pkg          // DataDictionary Class Definition
Use  DDvalTbl          // Validation Table Class Definitions

Open Codetype

//DDB-HeaderEnd
//DDB-SelectionStart
//DDB/ ExternalSelectionList codetype_sl  CODETYPE.SL
Register_Object codetype_sl
//DDB-SelectionEnd
// The DD files for codetype and codemnt must be manually
// maintained. The DD reader in dbBldr expects these two
// files to be available as utility files and so they are
// already open. In addition, we must open these with
// "open as" and not open.

//DDB-FileStart

class Codetype_DataDictionary Is A DataDictionary
    procedure Define_Fields
        Forward Send Define_Fields
        //DDB-Generated-Code-Location
        //DDB-DefineFieldStart

        Set Main_File            To Codetype.File_Number


        // Field-based properties.......................

        // Codetype.Type
        Set Field_Options          Field Codetype.Type To DD_AUTOFIND    DD_REQUIRED    DD_CAPSLOCK   
        Set Field_Prompt_Object    Field Codetype.Type To (codetype_sl(Self))
        Set Status_Help            Field Codetype.Type To "Code type or 'category'. Each type contains multiple codes."

        // Codetype.Description
        Set Status_Help            Field Codetype.Description To "A description of the code type."

        // Codetype.Comment
        Set Status_Help            Field Codetype.Comment To "An extended description of the code category."

        //DDB-DefineFieldEnd
    end_procedure // Construct_Object

    // Disallow blank keys
    function Validate_Save Returns Integer
        If CodeType.type Eq '' begin
            Error 300 'Blank TYPE values are not allowed.'
            Function_Return 1
        end
    end_function // Validate_Save

    // Field_Defaults:
    // This procedure is used to establish default field values.

    procedure Field_Defaults
        Forward Send Field_Defaults
        //DDB-Generated-Code-Location
        //DDB-FieldDefaultStart
        //DDB-FieldDefaultEnd
    end_procedure    // Field_Defaults
end_class    //  Codetype_DataDictionary
//DDB-Selection-pkg-Start
#IFDEF Is$WebApp
#ELSE

Use CODETYPE.SL      // codetype_sl

#ENDIF
//DDB-Selection-pkg-End
//DDB-FileEnd