DBA Data[Home] [Help]

PACKAGE BODY: APPS.CE_BA_SIGNATORY_HISTORY

Source


1 PACKAGE BODY CE_BA_SIGNATORY_HISTORY as
2 /* $Header: cebasighisb.pls 120.0 2005/03/31 14:06:36 svali noship $ */
3 --
4 -- Package
5 --  ce_ba_signatory_history
6 -- Purpose
7 --   To contain validation and insertion routines for ce_ba_signatory_history
8 -- History
9 --   15-dec-2004   Shaik Vali           Created
10 
11   FUNCTION body_revision RETURN VARCHAR2 IS
12   BEGIN
13 
14     RETURN '$Revision: 120.0 $';
15 
16   END body_revision;
17 
18   FUNCTION spec_revision RETURN VARCHAR2 IS
19   BEGIN
20 
21     RETURN G_spec_revision;
22 
23   END spec_revision;
24 
25 
26   --
27   -- Procedure
28   --  Insert_Row
29   -- Purpose
30   --   Inserts a row into ce_ba_signatory_history
31   -- History
32   --   15-Dec-2004  Shaik Vali           Created
33   -- Arguments
34   -- all the columns of the table CE_BA_SIGNATORY_HISTORY
35   -- Example
36   --   CE_BA_SIGNATORY_HISTORY.Insert_Row(....;
37   -- Notes
38   --
39 
40 PROCEDURE Insert_Row( 	 X_rowid	IN OUT NOCOPY VARCHAR2,
41 				 X_Signatory_Id     IN OUT NOCOPY NUMBER,
42                          X_Signatory_History_Id   IN OUT NOCOPY NUMBER,
43 				 X_Approver_Person_Id		NUMBER,
44 				 X_Action			VARCHAR2,
45 				 X_current_record_flag		VARCHAR2,
46                          X_Last_Updated_By          NUMBER,
47                          X_Last_Update_Date               DATE,
48                          X_Last_Update_Login              NUMBER,
49                          X_Created_By                     NUMBER,
50                          X_Creation_Date                  DATE,
51 				 X_Attribute_category		VARCHAR2,
52 				 X_Attribute1		VARCHAR2,
53 				 X_Attribute2		VARCHAR2,
54 				 X_Attribute3		VARCHAR2,
55 				 X_Attribute4		VARCHAR2,
56 				 X_Attribute5		VARCHAR2,
57 				 X_Attribute6		VARCHAR2,
58 				 X_Attribute7		VARCHAR2,
59 				 X_Attribute8		VARCHAR2,
60 				 X_Attribute9		VARCHAR2,
61 				 X_Attribute10		VARCHAR2,
62 				 X_Attribute11		VARCHAR2,
63 				 X_Attribute12		VARCHAR2,
64 				 X_Attribute13		VARCHAR2,
65 				 X_Attribute14		VARCHAR2,
66 				 X_Attribute15		VARCHAR2
67   ) IS
68     CURSOR C IS SELECT rowid FROM CE_BA_SIGNATORY_HIST_H
69                  WHERE signatory_history_id = X_signatory_history_id;
70 
71   CURSOR C2 IS SELECT ce_ba_signatory_hist_h_s.nextval FROM sys.dual;
72    --
73    BEGIN
74      --   cep_standard.debug('open c2 ');
75 
76        OPEN C2;
77        FETCH C2 INTO X_Signatory_history_id;
78        CLOSE C2;
79        --
80 
81        INSERT INTO CE_BA_SIGNATORY_HIST_H(
82 	      signatory_id,
83 	      signatory_history_id,
84 	      approver_person_id,
85 	      action,
86 	      current_record_flag,
87    	      Last_Updated_By,
88               Last_Update_Date,
89               Last_Update_Login,
90               Created_By,
91               Creation_Date,
92               attribute_category,
93               attribute1,
94               attribute2,
95               attribute3,
96               attribute4,
97               attribute5,
98               attribute6,
99               attribute7,
100               attribute8,
101               attribute9,
102               attribute10,
103               attribute11,
104               attribute12,
105               attribute13,
106               attribute14,
107               attribute15
108              ) VALUES (
109               X_Signatory_Id,
110 	      X_signatory_history_id,
111 	      X_approver_person_id,
112 	      X_action,
113 	      X_current_record_flag,
114               X_Last_Updated_By ,
115               X_Last_Update_Date,
116               X_Last_Update_Login,
117               X_Created_By   ,
118               X_Creation_Date,
119 	      X_Attribute_category,
120  		X_Attribute1,
121 		X_Attribute2,
122 		X_Attribute3,
123 		X_Attribute4,
124 		X_Attribute5,
125 		X_Attribute6,
126 		X_Attribute7,
127 		X_Attribute8,
128 		X_Attribute9,
129 		X_Attribute10,
130 		X_Attribute11,
131 		X_Attribute12,
132 		X_Attribute13,
133 		X_Attribute14,
134 		X_Attribute15
135              );
136     --
137     OPEN C;
138     FETCH C INTO X_Rowid;
139     if (C%NOTFOUND) then
140       CLOSE C;
141       Raise NO_DATA_FOUND;
142     end if;
143     CLOSE C;
144   END Insert_Row;
145 
146 END CE_BA_SIGNATORY_HISTORY;