SyteLine EXTGEN Stored Procedure Generator

/* =============================================================
   EXTGEN override of dbo.BaseProcedureNameSp
   Purpose : Block the base action when the customer is on credit hold and show the hold reason.
   Author  : J. Developer
   Ticket  : CHG-2026-114
   Mode    : Copy base logic and modify
   Base modify_date when copied: <fill in from block 3>
   ============================================================= */
CREATE PROCEDURE dbo.EXTGEN_BaseProcedureNameSp (
    @CoNum    CoNumType
  , @Infobar  InfobarType OUTPUT
)
AS
BEGIN
  SET NOCOUNT ON;

  DECLARE @Severity INT = 0;

  -- Copy mode: paste the base body here WITHOUT its extgen redirect block,
  --            then change only what the ticket requires and mark each change.
  -- Replace mode: write the new logic and set every OUTPUT parameter callers expect.

  -- custom logic placeholder

  RETURN @Severity;
END
GO

-- Base procedures that support extension check near the start for a procedure
-- named extgen_<BaseName>. If it exists, the base runs it in place of its own logic.
-- SQL Server matches the name case-insensitively under the usual case-insensitive
-- collation, so EXTGEN_ and extgen_ refer to the same object.
--
-- Your copy must NOT contain that redirect check, or it can call itself.
-- Easiest path: Edit Stored Procedure form > select dbo.BaseProcedureNameSp > Remove To Extgen > Copy Procedure.
-- That copy adds the prefix and removes the redirect code; then edit and submit it.
-- The submitted code must begin with CREATE PROCEDURE.
--
-- After every Infor update, open the EXTGEN Listing form:
--   green  = matches the base method
--   yellow = base changed after your extgen: Edit Stored Procedure > Compare w/ Base, merge, resubmit
--   red    = no base method exists (removed or replaced by an assembly extension):
--            rebuild the change as an IDO extension class.

-- All overrides in this database
SELECT name, create_date, modify_date
FROM sys.procedures
WHERE name LIKE 'EXTGEN[_]%'
ORDER BY name;

-- Override vs base: which bases changed after the override was written
SELECT e.name        AS extgen_proc,
       e.modify_date AS extgen_modified,
       b.name        AS base_proc,
       b.modify_date AS base_modified,
       CASE WHEN b.object_id IS NULL THEN 'Base missing'
            WHEN b.modify_date > e.modify_date THEN 'Base newer: review'
            ELSE 'OK' END AS status
FROM sys.procedures AS e
LEFT JOIN sys.procedures AS b
  ON b.name = SUBSTRING(e.name, 8, 128)
WHERE e.name LIKE 'EXTGEN[_]%'
ORDER BY status, e.name;

-- Does the base still contain the extgen redirect? (0 = not found)
SELECT CHARINDEX('EXTGEN_', UPPER(OBJECT_DEFINITION(OBJECT_ID(N'dbo.BaseProcedureNameSp')))) AS redirect_position;