[Home] [Help]
PACKAGE BODY: APPS.PO_RELEASES_PKG_S2
Source
1 PACKAGE BODY PO_RELEASES_PKG_S2 as
2 /* $Header: POXP3PLB.pls 120.5 2005/09/30 08:50:33 nipagarw noship $ */
3
4 /*===========================================================================
5
6 PROCEDURE NAME: update_row()
7
8 =============================================================================*/
9
10 PROCEDURE Update_Row(X_Rowid VARCHAR2,
11 X_Po_Release_Id NUMBER,
12 X_Last_Update_Date DATE,
13 X_Last_Updated_By NUMBER,
14 X_Po_Header_Id NUMBER,
15 X_Release_Num NUMBER,
16 X_Agent_Id NUMBER,
17 X_Release_Date DATE,
18 X_Last_Update_Login NUMBER,
19 X_Revision_Num NUMBER,
20 -- Bug 902976, zxzhang, 10/04/99
21 -- Change REVISED_DATE from VarChar(25) to Date.
22 -- X_Revised_Date VARCHAR2,
23 X_Revised_Date DATE,
24 X_Approved_Flag VARCHAR2,
25 X_Approved_Date DATE,
26 X_Print_Count NUMBER,
27 X_Printed_Date DATE,
28 X_Acceptance_Required_Flag VARCHAR2,
29 X_Acceptance_Due_Date DATE,
30 X_Hold_By NUMBER,
31 X_Hold_Date DATE,
32 X_Hold_Reason VARCHAR2,
33 X_Hold_Flag VARCHAR2,
34 X_Cancel_Flag VARCHAR2,
35 X_Cancelled_By NUMBER,
36 X_Cancel_Date DATE,
37 X_Cancel_Reason VARCHAR2,
38 X_Firm_Status_Lookup_Code VARCHAR2,
39 X_Pay_On_Code VARCHAR2,
40 X_Attribute_Category VARCHAR2,
41 X_Attribute1 VARCHAR2,
42 X_Attribute2 VARCHAR2,
43 X_Attribute3 VARCHAR2,
44 X_Attribute4 VARCHAR2,
45 X_Attribute5 VARCHAR2,
46 X_Attribute6 VARCHAR2,
47 X_Attribute7 VARCHAR2,
48 X_Attribute8 VARCHAR2,
49 X_Attribute9 VARCHAR2,
50 X_Attribute10 VARCHAR2,
51 X_Attribute11 VARCHAR2,
52 X_Attribute12 VARCHAR2,
53 X_Attribute13 VARCHAR2,
54 X_Attribute14 VARCHAR2,
55 X_Attribute15 VARCHAR2,
56 X_Authorization_Status VARCHAR2,
57 X_Ussgl_Transaction_Code VARCHAR2,
58 X_Government_Context VARCHAR2,
59 X_Closed_Code VARCHAR2,
60 X_Frozen_Flag VARCHAR2,
61 X_Release_Type VARCHAR2,
62 X_Need_To_Approve IN OUT NOCOPY NUMBER,
63 X_Global_Attribute_Category VARCHAR2,
64 X_Global_Attribute1 VARCHAR2,
65 X_Global_Attribute2 VARCHAR2,
66 X_Global_Attribute3 VARCHAR2,
67 X_Global_Attribute4 VARCHAR2,
68 X_Global_Attribute5 VARCHAR2,
69 X_Global_Attribute6 VARCHAR2,
70 X_Global_Attribute7 VARCHAR2,
74 X_Global_Attribute11 VARCHAR2,
71 X_Global_Attribute8 VARCHAR2,
72 X_Global_Attribute9 VARCHAR2,
73 X_Global_Attribute10 VARCHAR2,
75 X_Global_Attribute12 VARCHAR2,
76 X_Global_Attribute13 VARCHAR2,
77 X_Global_Attribute14 VARCHAR2,
78 X_Global_Attribute15 VARCHAR2,
79 X_Global_Attribute16 VARCHAR2,
80 X_Global_Attribute17 VARCHAR2,
81 X_Global_Attribute18 VARCHAR2,
82 X_Global_Attribute19 VARCHAR2,
83 X_Global_Attribute20 VARCHAR2,
84 p_shipping_control IN VARCHAR2 -- <INBOUND LOGISTICS FPJ>
85 ) IS
86 BEGIN
87 /* Bug 1181957
88 ** Change the Authorization status to REQUIRES REAPPROVAL, only
89 ** if it is APPROVEd.
90 ** POXPOERL.fmb(Release) PO_RELEASES.ON-UPDATE trigger updates
91 ** the authorization_status if X_Need_To_Approve > 0.
92 ** X_Need_To_Approve is initialized and IF statement is added.
93 */
94
95 X_Need_To_Approve := 0;
96
97 IF X_Approved_Flag = 'Y' THEN
98
99 IF po_releases_sv4.val_approval_status(
100 X_po_release_id,
101 X_release_num,
102 X_agent_id,
103 X_release_date,
104 X_acceptance_required_flag,
105 X_acceptance_due_date,
106 p_shipping_control) -- <INBOUND LOGISTICS FPJ>
107 THEN
108 X_Need_To_Approve := 0;
109 ELSE
110 X_Need_To_Approve := 2;
111 END IF;
112 END IF;
113
114 UPDATE PO_RELEASES
115 SET
116 po_release_id = X_Po_Release_Id,
117 last_update_date = X_Last_Update_Date,
118 last_updated_by = X_Last_Updated_By,
119 po_header_id = X_Po_Header_Id,
120 release_num = X_Release_Num,
121 agent_id = X_Agent_Id,
122 release_date = X_Release_Date,
123 last_update_login = X_Last_Update_Login,
124 revision_num = X_Revision_Num,
125 revised_date = X_Revised_Date,
126 approved_flag = X_Approved_Flag,
127 approved_date = X_Approved_Date,
128 print_count = X_Print_Count,
129 printed_date = X_Printed_Date,
130 acceptance_required_flag = X_Acceptance_Required_Flag,
131 acceptance_due_date = X_Acceptance_Due_Date,
132 hold_by = X_Hold_By,
133 hold_date = X_Hold_Date,
134 hold_reason = X_Hold_Reason,
135 hold_flag = X_Hold_Flag,
136 cancel_flag = X_Cancel_Flag,
137 cancelled_by = X_Cancelled_By,
138 cancel_date = X_Cancel_Date,
139 cancel_reason = X_Cancel_Reason,
140 firm_status_lookup_code = X_Firm_Status_Lookup_Code,
141 pay_on_code = X_Pay_On_Code,
142 attribute_category = X_Attribute_Category,
143 attribute1 = X_Attribute1,
144 attribute2 = X_Attribute2,
145 attribute3 = X_Attribute3,
146 attribute4 = X_Attribute4,
147 attribute5 = X_Attribute5,
148 attribute6 = X_Attribute6,
149 attribute7 = X_Attribute7,
150 attribute8 = X_Attribute8,
151 attribute9 = X_Attribute9,
152 attribute10 = X_Attribute10,
153 attribute11 = X_Attribute11,
154 attribute12 = X_Attribute12,
155 attribute13 = X_Attribute13,
156 attribute14 = X_Attribute14,
157 attribute15 = X_Attribute15,
158 authorization_status = X_Authorization_Status,
159 government_context = X_Government_Context,
160 closed_code = X_Closed_Code,
161 frozen_flag = X_Frozen_Flag,
162 release_type = X_Release_Type,
163 global_attribute_category = X_Global_Attribute_Category,
164 global_attribute1 = X_Global_Attribute1,
165 global_attribute2 = X_Global_Attribute2,
166 global_attribute3 = X_Global_Attribute3,
167 global_attribute4 = X_Global_Attribute4,
168 global_attribute5 = X_Global_Attribute5,
169 global_attribute6 = X_Global_Attribute6,
170 global_attribute7 = X_Global_Attribute7,
171 global_attribute8 = X_Global_Attribute8,
172 global_attribute9 = X_Global_Attribute9,
173 global_attribute10 = X_Global_Attribute10,
174 global_attribute11 = X_Global_Attribute11,
175 global_attribute12 = X_Global_Attribute12,
179 global_attribute16 = X_Global_Attribute16,
176 global_attribute13 = X_Global_Attribute13,
177 global_attribute14 = X_Global_Attribute14,
178 global_attribute15 = X_Global_Attribute15,
180 global_attribute17 = X_Global_Attribute17,
181 global_attribute18 = X_Global_Attribute18,
182 global_attribute19 = X_Global_Attribute19,
183 global_attribute20 = X_Global_Attribute20,
184 shipping_control = p_shipping_control -- <INBOUND LOGISTICS FPJ>
185 WHERE rowid = X_rowid;
186
187 if (SQL%NOTFOUND) then
188 Raise NO_DATA_FOUND;
189 end if;
190
191 END Update_Row;
192
193 /*===========================================================================
194
195 PROCEDURE NAME: delete_row()
196
197 =============================================================================*/
198
199
200 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
201 BEGIN
202 DELETE FROM PO_RELEASES
203 WHERE rowid = X_Rowid;
204
205 if (SQL%NOTFOUND) then
206 Raise NO_DATA_FOUND;
207 end if;
208 END Delete_Row;
209
210 END PO_RELEASES_PKG_S2;