PACKAGE BODY: APPS.AHL_OSP_RCV_PVT_W

Source

1 package body ahl_osp_rcv_pvt_w as
2   /* $Header: AHLWORCB.pls 120.0 2008/02/05 16:17:10 mpothuku noship $ */
3   procedure receive_against_rma(p_api_version  NUMBER
4     , p_init_msg_list  VARCHAR2
5     , p_commit  VARCHAR2
6     , p_validation_level  NUMBER
7     , p_module_type  VARCHAR2
8     , x_return_status out nocopy  VARCHAR2
9     , x_msg_count out nocopy  NUMBER
10     , x_msg_data out nocopy  VARCHAR2
11     , p8_a0  NUMBER
12     , p8_a1  NUMBER
13     , p8_a2  VARCHAR2
14     , p8_a3  NUMBER
15     , p8_a4  NUMBER
16     , p8_a5  VARCHAR2
17     , p8_a6  DATE
18     , p8_a7  NUMBER
19     , p8_a8  VARCHAR2
20     , p8_a9  VARCHAR2
21     , p8_a10  VARCHAR2
22     , p8_a11  VARCHAR2
23     , p8_a12  NUMBER
24     , p8_a13  VARCHAR2
25     , p8_a14  VARCHAR2
26     , x_request_id out nocopy  NUMBER
27     , x_return_line_id out nocopy  NUMBER
28   )
29 
30   as
31     ddp_rma_receipt_rec ahl_osp_rcv_pvt.rma_receipt_rec_type;
32     ddindx binary_integer; indx binary_integer;
33   begin
34 
35     -- copy data to the local IN or IN-OUT args, if any
36 
37 
38 
39 
40 
41 
42 
43 
44     ddp_rma_receipt_rec.return_line_id := p8_a0;
45     ddp_rma_receipt_rec.receiving_org_id := p8_a1;
46     ddp_rma_receipt_rec.receiving_subinventory := p8_a2;
47     ddp_rma_receipt_rec.receiving_locator_id := p8_a3;
48     ddp_rma_receipt_rec.receipt_quantity := p8_a4;
49     ddp_rma_receipt_rec.receipt_uom_code := p8_a5;
50     ddp_rma_receipt_rec.receipt_date := p8_a6;
51     ddp_rma_receipt_rec.new_item_id := p8_a7;
52     ddp_rma_receipt_rec.new_serial_number := p8_a8;
53     ddp_rma_receipt_rec.new_serial_tag_code := p8_a9;
54     ddp_rma_receipt_rec.new_lot_number := p8_a10;
55     ddp_rma_receipt_rec.new_item_rev_number := p8_a11;
56     ddp_rma_receipt_rec.exchange_item_id := p8_a12;
57     ddp_rma_receipt_rec.exchange_serial_number := p8_a13;
58     ddp_rma_receipt_rec.exchange_lot_number := p8_a14;
59 
60 
61 
62     -- here's the delegated call to the old PL/SQL routine
63     ahl_osp_rcv_pvt.receive_against_rma(p_api_version,
64       p_init_msg_list,
65       p_commit,
66       p_validation_level,
67       p_module_type,
68       x_return_status,
69       x_msg_count,
70       x_msg_data,
71       ddp_rma_receipt_rec,
72       x_request_id,
73       x_return_line_id);
74 
75     -- copy data back from the local variables to OUT or IN-OUT args, if any
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86   end;
87 
88 end ahl_osp_rcv_pvt_w;