CREATE OR REPLACE VIEW obj_packages AS
WITH s AS (
    SELECT /*+ MATERIALIZE */
        s.name                  AS package_name,
        COUNT(s.line)           AS count_lines
    FROM user_source s
    JOIN (
        SELECT m.package_name
        FROM obj_modules m
        GROUP BY m.package_name
    ) m
        ON m.package_name       = s.name
    WHERE s.type                = 'PACKAGE BODY'
    GROUP BY s.name
),
f AS (
    SELECT /*+ MATERIALIZE */
        a.package_name,
        SUM(CASE WHEN a.position = 0 THEN 1 ELSE 0 END) AS count_functions
    FROM s
    LEFT JOIN user_arguments a
        ON a.package_name       = s.package_name
    GROUP BY a.package_name
)
SELECT
    p.object_name               AS package_name,
    --
    CASE
        WHEN REGEXP_LIKE(p.object_name, '^A\d+$')           THEN 'CORE - Application roles...'
        WHEN REGEXP_LIKE(p.object_name, '^S\d+$')           THEN 'CORE - Application settings'
        WHEN p.object_name IN ('APP', 'APP_ACTIONS', 'GEN') THEN 'CORE'
        END AS package_group,
    --
    NULLIF(COUNT(p.procedure_name) - MIN(f.count_functions), 0) AS count_procedures,
    --
    NULLIF(MIN(f.count_functions), 0)   AS count_functions,
    MAX(s.count_lines)                  AS count_lines,
    MAX(o.last_ddl_time)                AS last_ddl_time,
    --
    -- @TODO: dependencies?
    -- @TODO: references?
    --
    NULL                        AS desc_        -- @TODO: get from specification
FROM user_objects o
JOIN user_procedures p
    ON p.object_name            = o.object_name
    AND o.object_type           = 'PACKAGE'
JOIN s
    ON s.package_name           = p.object_name
JOIN f
    ON f.package_name           = p.object_name
GROUP BY p.object_name;
--
COMMENT ON TABLE obj_packages IS 'List of packages';