PACKAGE BODY: APPS.AHL_OSP_RCV_PVT_W

Source

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