[Home] [Help]
PACKAGE BODY: APPS.PO_RFQ_VENDORS_PKG_S0
Source
1 PACKAGE BODY PO_RFQ_VENDORS_PKG_S0 as
2 /* $Header: POXPIR1B.pls 115.2 2002/11/23 02:53:20 sbull ship $ */
3
4
5 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
6 X_Po_Header_Id NUMBER,
7 X_Sequence_Num NUMBER,
8 X_Last_Update_Date DATE,
9 X_Last_Updated_By NUMBER,
10 X_Last_Update_Login NUMBER,
11 X_Creation_Date DATE,
12 X_Created_By NUMBER,
13 X_Vendor_Id NUMBER,
14 X_Vendor_Site_Id NUMBER,
15 X_Vendor_Contact_Id NUMBER,
16 X_Print_Flag VARCHAR2,
17 X_Print_Count NUMBER,
18 X_Printed_Date DATE,
19 X_Attribute_Category VARCHAR2,
20 X_Attribute1 VARCHAR2,
21 X_Attribute2 VARCHAR2,
22 X_Attribute3 VARCHAR2,
23 X_Attribute4 VARCHAR2,
24 X_Attribute5 VARCHAR2,
25 X_Attribute6 VARCHAR2,
26 X_Attribute7 VARCHAR2,
27 X_Attribute8 VARCHAR2,
28 X_Attribute9 VARCHAR2,
29 X_Attribute10 VARCHAR2,
30 X_Attribute11 VARCHAR2,
31 X_Attribute12 VARCHAR2,
32 X_Attribute13 VARCHAR2,
33 X_Attribute14 VARCHAR2,
34 X_Attribute15 VARCHAR2
35
36 ) IS
37
38 CURSOR C IS SELECT rowid FROM PO_RFQ_VENDORS
39 WHERE sequence_num = X_Sequence_Num
40 AND po_header_id = X_Po_Header_Id;
41
42 BEGIN
43
44
45 INSERT INTO PO_RFQ_VENDORS(
46 po_header_id,
47 sequence_num,
48 last_update_date,
49 last_updated_by,
50 last_update_login,
51 creation_date,
52 created_by,
53 vendor_id,
54 vendor_site_id,
55 vendor_contact_id,
56 print_flag,
57 print_count,
58 printed_date,
59 attribute_category,
60 attribute1,
61 attribute2,
62 attribute3,
63 attribute4,
64 attribute5,
65 attribute6,
66 attribute7,
67 attribute8,
68 attribute9,
69 attribute10,
70 attribute11,
71 attribute12,
72 attribute13,
73 attribute14,
74 attribute15
75 ) VALUES (
76 X_Po_Header_Id,
77 X_Sequence_Num,
78 X_Last_Update_Date,
79 X_Last_Updated_By,
80 X_Last_Update_Login,
81 X_Creation_Date,
82 X_Created_By,
83 X_Vendor_Id,
84 X_Vendor_Site_Id,
85 X_Vendor_Contact_Id,
86 X_Print_Flag,
87 X_Print_Count,
88 X_Printed_Date,
89 X_Attribute_Category,
90 X_Attribute1,
91 X_Attribute2,
92 X_Attribute3,
93 X_Attribute4,
94 X_Attribute5,
95 X_Attribute6,
96 X_Attribute7,
97 X_Attribute8,
98 X_Attribute9,
99 X_Attribute10,
100 X_Attribute11,
101 X_Attribute12,
102 X_Attribute13,
103 X_Attribute14,
104 X_Attribute15
105 );
106
107 OPEN C;
108 FETCH C INTO X_Rowid;
109 if (C%NOTFOUND) then
110 CLOSE C;
111 Raise NO_DATA_FOUND;
112 end if;
113 CLOSE C;
114 END Insert_Row;
115
116 END PO_RFQ_VENDORS_PKG_S0;