[Home] [Help]
PACKAGE BODY: APPS.PO_ACCEPTANCES_INS_PVT
Source
1 PACKAGE BODY PO_ACCEPTANCES_INS_PVT AS
2 /* $Header: POXVIACB.pls 115.4 2004/05/09 15:49:40 jmojnida noship $*/
3
4 -- Bug 2850566
5 -- Modified the parameters of the procedure to accomodate new columns
6 -- and defaulted the parameters to Null.
7 PROCEDURE insert_row(
8 x_rowid IN OUT NOCOPY ROWID,
9 x_acceptance_id IN OUT NOCOPY NUMBER,
10 x_last_update_date IN OUT NOCOPY DATE,
11 x_last_updated_by IN OUT NOCOPY NUMBER,
12 x_last_update_login IN OUT NOCOPY NUMBER,
13 p_creation_date IN DATE DEFAULT NULL,
14 p_created_by IN NUMBER DEFAULT NULL,
15 p_po_header_id IN NUMBER DEFAULT NULL,
16 p_po_release_id IN NUMBER DEFAULT NULL,
17 p_action IN VARCHAR2 DEFAULT NULL,
18 p_action_date IN DATE DEFAULT NULL,
19 p_employee_id IN NUMBER DEFAULT NULL,
20 p_revision_num IN NUMBER DEFAULT NULL,
21 p_accepted_flag IN VARCHAR2 DEFAULT NULL,
22 p_acceptance_lookup_code IN VARCHAR2 DEFAULT NULL,
23 p_note IN LONG DEFAULT NULL,
24 p_accepting_party IN VARCHAR2 DEFAULT NULL,
25 p_signature_flag IN VARCHAR2 DEFAULT NULL,
26 p_erecord_id IN NUMBER DEFAULT NULL,
27 p_role IN VARCHAR2 DEFAULT NULL,
28 p_attribute_category IN VARCHAR2 DEFAULT NULL,
29 p_attribute1 IN VARCHAR2 DEFAULT NULL,
30 p_attribute2 IN VARCHAR2 DEFAULT NULL,
31 p_attribute3 IN VARCHAR2 DEFAULT NULL,
32 p_attribute4 IN VARCHAR2 DEFAULT NULL,
33 p_attribute5 IN VARCHAR2 DEFAULT NULL,
34 p_attribute6 IN VARCHAR2 DEFAULT NULL,
35 p_attribute7 IN VARCHAR2 DEFAULT NULL,
36 p_attribute8 IN VARCHAR2 DEFAULT NULL,
37 p_attribute9 IN VARCHAR2 DEFAULT NULL,
38 p_attribute10 IN VARCHAR2 DEFAULT NULL,
39 p_attribute11 IN VARCHAR2 DEFAULT NULL,
40 p_attribute12 IN VARCHAR2 DEFAULT NULL,
41 p_attribute13 IN VARCHAR2 DEFAULT NULL,
42 p_attribute14 IN VARCHAR2 DEFAULT NULL,
43 p_attribute15 IN VARCHAR2 DEFAULT NULL,
44 p_request_id IN NUMBER DEFAULT NULL,
45 p_program_application_id IN NUMBER DEFAULT NULL,
46 p_program_id IN NUMBER DEFAULT NULL,
47 p_program_update_date IN DATE DEFAULT NULL,
48 p_po_line_location_id IN NUMBER DEFAULT NULL) IS
49
50 l_id NUMBER;
51
52 -- Bug 2850566 RBAIRRAJ
53 -- SQL What :selects the rowid from the acceptances table
54 -- SQL Why :To set the output parameter x_rowid
55 -- SQL Join :Acceptance_id
56 CURSOR c_rowid IS
57 SELECT rowid
58 FROM PO_ACCEPTANCES
59 WHERE acceptance_id = l_id;
60
61 -- Bug 2850566 RBAIRRAJ
62 -- SQL What :selects the next avaiable sequence number from PO_ACCEPTANCES_S sequence
63 -- SQL Why :To insert it as Acceptance_Id in the PO_ACCEPTANCES table
64 CURSOR c_next_id IS
65 SELECT PO_ACCEPTANCES_S.nextval
66 FROM SYS.DUAL;
67
68 BEGIN
69
70 IF (x_acceptance_id IS NULL) THEN
71 SELECT PO_ACCEPTANCES_S.nextval
72 INTO l_id
73 FROM SYS.DUAL;
74 ELSE
75 l_id := x_acceptance_id;
76 END IF;
77
78 -- Bug 2850566
79 -- Added this If condition as iSP needs this for carry over acknowledgements
80 IF (x_last_updated_by IS NULL) THEN
81 x_last_updated_by := fnd_global.user_id;
82 END IF;
83
84 x_last_update_date := SYSDATE;
85 if (x_last_update_login is null) then
86 x_last_update_login := fnd_global.login_id;
87 end if;
88
89 -- Bug 2850566 RBAIRRAJ
90 -- SQL What :Inserts a record into PO_ACCEPTANCES table
91 -- SQL Why :This acts as a rowhandler for the PO_ACCEPTANCES table
92 INSERT INTO PO_ACCEPTANCES(
93 ACCEPTANCE_ID,
94 LAST_UPDATE_DATE,
95 LAST_UPDATED_BY,
96 LAST_UPDATE_LOGIN,
97 CREATION_DATE,
98 CREATED_BY,
99 PO_HEADER_ID,
100 PO_RELEASE_ID,
101 ACTION,
102 ACTION_DATE,
103 EMPLOYEE_ID,
104 REVISION_NUM,
105 ACCEPTED_FLAG,
106 ACCEPTANCE_LOOKUP_CODE,
107 NOTE,
108 ACCEPTING_PARTY,
109 SIGNATURE_FLAG,
110 ERECORD_ID,
111 ROLE,
112 ATTRIBUTE_CATEGORY,
113 ATTRIBUTE1,
114 ATTRIBUTE2,
115 ATTRIBUTE3,
116 ATTRIBUTE4,
117 ATTRIBUTE5,
118 ATTRIBUTE6,
119 ATTRIBUTE7,
120 ATTRIBUTE8,
121 ATTRIBUTE9,
122 ATTRIBUTE10,
123 ATTRIBUTE11,
124 ATTRIBUTE12,
125 ATTRIBUTE13,
126 ATTRIBUTE14,
127 ATTRIBUTE15,
128 PO_LINE_LOCATION_ID,
129 REQUEST_ID,
130 PROGRAM_APPLICATION_ID,
131 PROGRAM_ID,
132 PROGRAM_UPDATE_DATE)
133 VALUES (
134 l_id,
135 x_last_update_date,
136 x_last_updated_by,
137 x_last_update_login,
138 p_creation_date,
139 p_created_by,
140 p_po_header_id,
141 p_po_release_id,
142 p_action,
143 p_action_date,
144 p_employee_id,
145 p_revision_num,
146 p_accepted_flag,
147 p_acceptance_lookup_code,
148 p_note,
149 p_accepting_party,
150 p_signature_flag,
151 p_erecord_id,
152 p_role,
153 p_attribute_category,
154 p_attribute1,
155 p_attribute2,
156 p_attribute3,
157 p_attribute4,
158 p_attribute5,
159 p_attribute6,
160 p_attribute7,
161 p_attribute8,
162 p_attribute9,
163 p_attribute10,
164 p_attribute11,
165 p_attribute12,
166 p_attribute13,
167 p_attribute14,
168 p_attribute15,
169 p_po_line_location_id,
170 p_request_id,
171 p_program_application_id,
172 p_program_id,
173 p_program_update_date);
174
175 x_acceptance_id := l_id;
176
177 OPEN c_rowid;
178 FETCH c_rowid INTO x_rowid;
179 if (c_rowid%NOTFOUND) then
180 CLOSE c_rowid;
181 Raise NO_DATA_FOUND;
182 end if;
183 CLOSE c_rowid;
184
185 EXCEPTION
186 WHEN OTHERS THEN
187 RAISE;
188 END insert_row;
189
190 END PO_ACCEPTANCES_INS_PVT;