[Home] [Help]
PACKAGE BODY: APPS.PO_PB_PRICEBREAK_1
Source
1 PACKAGE BODY PO_PB_PRICEBREAK_1 as
2 /* $Header: POPBPBKB.pls 120.0 2005/06/01 13:31:06 appldev noship $*/
3
4 PROCEDURE insert_po_pricebreak
5 (X_Rowid IN OUT NOCOPY VARCHAR2,
6 X_Line_Location_Id IN OUT NOCOPY NUMBER,
7 X_Po_Header_Id NUMBER,
8 X_Po_Line_Id NUMBER,
9 X_Last_Update_Login NUMBER,
10 X_Creation_Date DATE,
11 X_Created_By NUMBER,
12 X_Quantity NUMBER,
13 X_Unit_Meas_Lookup_Code VARCHAR2,
14 X_Ship_To_Location_Id NUMBER,
15 X_Price_Override NUMBER,
16 X_Price_Discount NUMBER,
17 X_Shipment_Num NUMBER,
18 X_Ship_To_Organization_Id NUMBER,
19 p_org_id NUMBER -- <R12.MOAC>
20 ) IS
21
22 X_revised_date DATE;
23 X_item_status VARCHAR2(20) :=null;
24 X_progress VARCHAR2(3) :='000';
25
26 l_value_basis PO_LINES_ALL.order_type_lookup_code%TYPE; -- <Complex Work R12>
27
28 BEGIN
29
30
31 X_revised_date:=null;
32
33 -- <Complex Work R12 Start>
34 -- Get value basis from line
35
36 SELECT pol.order_type_lookup_code
37 INTO l_value_basis
38 FROM po_lines_all pol
39 WHERE pol.po_line_id = X_Po_Line_Id;
40
41 X_progress :='010';
42
43 -- <Complex Work R12 End>
44
45 po_shipments_sv6.insert_po_shipment(
46 X_Rowid,
47 X_Line_Location_Id,
48 X_Creation_Date,
49 X_Created_By,
50 X_Po_Header_Id,
51 X_Po_Line_Id,
52 X_Last_Update_Login,
53 X_Creation_Date,
54 X_Created_By,
55 X_Quantity,
56 0,
57 0,
58 0,
59 0,
60 0,
61 X_Unit_Meas_Lookup_Code,
62 null,
63 X_Ship_To_Location_Id,
64 null,
65 null,
66 null,
67 null,
68 X_Price_Override,
69 'N',
70 null,
71 null,
72 null,
73 'N', --X_Taxable_Flag
74 null,
75 null,
76 null,
77 null,
78 null,
79 null,
80 null,
81 null,
82 null,
83 null,
84 X_Price_Discount,
85 null,
86 null,
87 null,
88 null,
89 'N',
90 null,
91 null,
92 null,
93 'N',
94 null,
95 null,
96 null,
97 null,
98 null,
99 null, --attribute5
100 null,
101 null,
102 null,
103 null,
104 null,
105 null,
106 null,
107 null,
108 null,
109 null,
110 null,
111 null,
112 null,
113 null,
114 'NONE',
115 null,
116 null,
117 null,
118 'NONE',
119 null,
120 null,
121 X_Ship_To_Organization_Id,
122 X_Shipment_Num,
123 null,
124 'PRICE BREAK',
125 'OPEN',
126 null,
127 null,
128 null,
129 'N',
130 null, --X_Closed_Reason
131 null,
132 null,
133 null,
134 null,
135 null,
136 null,
137 null,
138 X_revised_date,
139 X_item_status,
140 null,
141 null,
142 null,
143 null,
144 null,
145 null,
146 null,
147 null,
148 null,
149 null,
150 null,
151 null,
152 null,
153 null,
154 null,
155 null,
156 null,
157 null,
158 null,
159 null,
160 null, -- X_Global_Attribute20
161 null,
162 null,
163 l_value_basis, -- <Complex Work R12>
164 null, -- <Complex Work R12>: matching_basis
165 null,
166 null,
167 null,
168 null,
169 null,
170 null,
171 null,
172 null,
173 null,
174 null,
175 null,
176 p_org_id -- <R12.MOAC>
177 );
178
179 EXCEPTION
180 WHEN OTHERS THEN
181 -- dbms_output.put_line('In exception');
182 po_message_s.sql_error('insert_po_pricebreak', X_progress, sqlcode);
183 raise;
184 END insert_po_pricebreak;
185
186 END PO_PB_PRICEBREAK_1;