[Home] [Help]
PACKAGE BODY: APPS.PO_RFQ_VENDORS_PKG_S2
Source
1 PACKAGE BODY PO_RFQ_VENDORS_PKG_S2 as
2 /* $Header: POXPIR3B.pls 120.0.12010000.1 2008/09/18 12:20:57 appldev noship $ */
3
4 PROCEDURE Update_Row(X_Rowid VARCHAR2,
5 X_Po_Header_Id NUMBER,
6 X_Sequence_Num NUMBER,
7 X_Last_Update_Date DATE,
8 X_Last_Updated_By NUMBER,
9 X_Last_Update_Login NUMBER,
10 X_Vendor_Id NUMBER,
11 X_Vendor_Site_Id NUMBER,
12 X_Vendor_Contact_Id NUMBER,
13 X_Print_Flag VARCHAR2,
14 X_Print_Count NUMBER,
15 X_Printed_Date DATE,
16 X_Attribute_Category VARCHAR2,
17 X_Attribute1 VARCHAR2,
18 X_Attribute2 VARCHAR2,
19 X_Attribute3 VARCHAR2,
20 X_Attribute4 VARCHAR2,
21 X_Attribute5 VARCHAR2,
22 X_Attribute6 VARCHAR2,
23 X_Attribute7 VARCHAR2,
24 X_Attribute8 VARCHAR2,
25 X_Attribute9 VARCHAR2,
26 X_Attribute10 VARCHAR2,
27 X_Attribute11 VARCHAR2,
28 X_Attribute12 VARCHAR2,
29 X_Attribute13 VARCHAR2,
30 X_Attribute14 VARCHAR2,
31 X_Attribute15 VARCHAR2
32
33 ) IS
34 BEGIN
35 UPDATE PO_RFQ_VENDORS
36 SET
37 po_header_id = X_Po_Header_Id,
38 sequence_num = X_Sequence_Num,
39 last_update_date = X_Last_Update_Date,
40 last_updated_by = X_Last_Updated_By,
41 last_update_login = X_Last_Update_Login,
42 vendor_id = X_Vendor_Id,
43 vendor_site_id = X_Vendor_Site_Id,
44 vendor_contact_id = X_Vendor_Contact_Id,
45 print_flag = X_Print_Flag,
46 print_count = X_Print_Count,
47 printed_date = X_Printed_Date,
48 attribute_category = X_Attribute_Category,
49 attribute1 = X_Attribute1,
50 attribute2 = X_Attribute2,
51 attribute3 = X_Attribute3,
52 attribute4 = X_Attribute4,
53 attribute5 = X_Attribute5,
54 attribute6 = X_Attribute6,
55 attribute7 = X_Attribute7,
56 attribute8 = X_Attribute8,
57 attribute9 = X_Attribute9,
58 attribute10 = X_Attribute10,
59 attribute11 = X_Attribute11,
60 attribute12 = X_Attribute12,
61 attribute13 = X_Attribute13,
62 attribute14 = X_Attribute14,
63 attribute15 = X_Attribute15
64 WHERE rowid = X_rowid;
65
66 if (SQL%NOTFOUND) then
67 Raise NO_DATA_FOUND;
68 end if;
69
70 END Update_Row;
71
72 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
73 BEGIN
74 DELETE FROM PO_RFQ_VENDORS
75 WHERE rowid = X_Rowid;
76
77 if (SQL%NOTFOUND) then
78 Raise NO_DATA_FOUND;
79 end if;
80 END Delete_Row;
81
82 PROCEDURE Delete_All_Vendors(X_po_header_id NUMBER) IS
83 BEGIN
84 DELETE FROM PO_RFQ_VENDORS
85 WHERE po_header_id = X_po_header_id;
86
87 exception
88 when NO_DATA_FOUND then null;
89 when OTHERS then raise;
90 END Delete_All_Vendors;
91
92 END PO_RFQ_VENDORS_PKG_S2;