[Home] [Help]
17: begin
18:
19: select max(rct.transaction_id)
20: into x_last_receipt_id
21: from rcv_transactions rct,
22: rcv_shipment_lines rsl,
23: po_headers poh
24: where rct.shipment_line_id = rsl.shipment_line_id
25: and rct.transaction_type = 'RECEIVE'
33: and poh.vendor_site_id = p_vendor_site_id
34: and poh.supply_agreement_flag = 'Y'
35: and rct.transaction_date in
36: (select max(rct2.transaction_date)
37: from rcv_transactions rct2,
38: rcv_shipment_lines rsl2,
39: po_headers poh2
40: where rct2.shipment_line_id = rsl2.shipment_line_id
41: and rct2.transaction_type = 'RECEIVE'
51:
52:
53: select receipt_num
54: into x_last_receipt_num
55: from rcv_transactions rct,
56: rcv_shipment_headers rsh
57: where rct.transaction_id = x_last_receipt_id
58: and rct.shipment_header_id = rsh.shipment_header_id;
59:
78: begin
79:
80: select max(rct.transaction_id)
81: into x_last_receipt_id
82: from rcv_transactions rct,
83: rcv_shipment_lines rsl,
84: po_headers poh
85: where rct.shipment_line_id = rsl.shipment_line_id
86: and rct.transaction_type = 'RECEIVE'
94: and poh.vendor_site_id = p_vendor_site_id
95: and poh.supply_agreement_flag = 'Y'
96: and rct.transaction_date in
97: (select max(rct2.transaction_date)
98: from rcv_transactions rct2,
99: rcv_shipment_lines rsl2,
100: po_headers poh2
101: where rct2.shipment_line_id = rsl2.shipment_line_id
102: and rct2.transaction_type = 'RECEIVE'
112:
113:
114: select transaction_date
115: into x_last_receipt_date
116: from rcv_transactions rct
117: where rct.transaction_id = x_last_receipt_id;
118:
119: return(x_last_receipt_date) ;
120:
143: begin
144:
145: select max(rct.transaction_id)
146: into x_last_receipt_id
147: from rcv_transactions rct,
148: rcv_shipment_lines rsl,
149: po_headers poh
150: where rct.shipment_line_id = rsl.shipment_line_id
151: and rct.transaction_type = 'RECEIVE'
159: and poh.vendor_site_id = p_vendor_site_id
160: and poh.supply_agreement_flag = 'Y'
161: and rct.transaction_date in
162: (select max(rct2.transaction_date)
163: from rcv_transactions rct2,
164: rcv_shipment_lines rsl2,
165: po_headers poh2
166: where rct2.shipment_line_id = rsl2.shipment_line_id
167: and rct2.transaction_type = 'RECEIVE'
179: select primary_quantity,
180: primary_unit_of_measure
181: into x_primary_quantity,
182: x_primary_unit_of_measure
183: from rcv_transactions rct
184: where rct.transaction_id = x_last_receipt_id;
185:
186: BEGIN
187:
265: rct.transaction_id
266: FROM rcv_shipment_lines rsl,
267: po_headers poh,
268: po_lines pol,
269: rcv_transactions rct
270: WHERE rct.shipment_line_id = rsl.shipment_line_id
271: AND rct.transaction_type = 'RECEIVE'
272: AND rsl.po_header_id = poh.po_header_id
273: AND rsl.po_line_id = pol.po_line_id
284: -- the receipt transaction
285: CURSOR C2 IS
286: SELECT rct.primary_quantity,
287: rct.transaction_id
288: FROM rcv_transactions rct
289: WHERE rct.transaction_type = 'RETURN TO VENDOR'
290: AND rct.parent_transaction_id = X_transaction_id;
291:
292: CURSOR C3 IS
304: AND rsl.to_organization_id = X_organization_id
305: AND poh.supply_agreement_flag = 'Y'
306: AND exists
307: (select 1
308: from rcv_transactions rct
309: where rct.transaction_date between x_cum_period_start
310: and x_cum_period_end
311: and rct.shipment_line_id = rsl.shipment_line_id
312: and rct.transaction_type = 'RECEIVE');
459: EXIT WHEN C%notfound;
460:
461: -- Get the uom code since we only have the unit of measure.
462: -- We need to the uom code to execute uom_convert.
463: -- We CANNOT just get the primary quantity from rcv_transactions
464: -- since it will not have the corrections to that quantity.
465: -- The rcv_shipment line includes the quantity received +
466: -- all corrects to that quantity.
467: X_progress := '090';
518: X_progress := '150';
519:
520: SELECT sum(rct.primary_quantity)
521: INTO X_corrtv_primary_quantity
522: FROM rcv_transactions rct
523: WHERE rct.transaction_type = 'CORRECT'
524: AND rct.parent_transaction_id = X_rtv_transaction_id;
525:
526: EXCEPTION