From b8443b2f9f3b12d6855f130dececd39769d010a1 Mon Sep 17 00:00:00 2001
From: Heng Sin Low <hengsin@gmail.com>
Date: Sat, 2 Feb 2008 05:03:52 +0000
Subject: [PATCH] [ 1883270 ] Enhance Document No Formatting

---
 .../oracle/procedures/NextIDByYear.sql        | 27 +++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 db/ddlutils/oracle/procedures/NextIDByYear.sql

diff --git a/db/ddlutils/oracle/procedures/NextIDByYear.sql b/db/ddlutils/oracle/procedures/NextIDByYear.sql
new file mode 100644
index 0000000000..dbb2d73a46
--- /dev/null
+++ b/db/ddlutils/oracle/procedures/NextIDByYear.sql
@@ -0,0 +1,27 @@
+CREATE or REPLACE PROCEDURE NextIDByYear
+(
+    p_AD_Sequence_ID    	IN  NUMBER,
+    p_IncrementNo           IN  NUMBER,
+    p_CalendarYear          IN  CHAR,
+    o_NextID                OUT NUMBER
+)
+AS
+BEGIN
+   SELECT CurrentNext
+		INTO o_NextID
+	FROM AD_Sequence_No
+	WHERE AD_Sequence_ID=p_AD_Sequence_ID 
+	AND CalendarYear = p_CalendarYear 
+	FOR UPDATE OF CurrentNext;
+	--
+	UPDATE AD_Sequence_No
+	  SET CurrentNext = CurrentNext + p_IncrementNo
+	WHERE AD_Sequence_ID=p_AD_Sequence_ID
+	AND CalendarYear = p_CalendarYear;
+EXCEPTION
+    WHEN  OTHERS THEN
+    	DBMS_OUTPUT.PUT_LINE(SQLERRM);
+END NextIDByYear;
+/
+
+