PACKAGE BODY: APPS.AHL_OSP_SERV_ITEM_RELS_PVT_W

Source

1 package body ahl_osp_serv_item_rels_pvt_w as
2   /* $Header: AHLWOSRB.pls 120.0 2005/07/06 15:54:20 jeli noship $ */
3   procedure process_serv_itm_rels(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     , p5_a0 in out nocopy  NUMBER
9     , p5_a1 in out nocopy  NUMBER
10     , p5_a2 in out nocopy  NUMBER
11     , p5_a3 in out nocopy  VARCHAR2
12     , p5_a4 in out nocopy  NUMBER
13     , p5_a5 in out nocopy  VARCHAR2
14     , p5_a6 in out nocopy  NUMBER
15     , p5_a7 in out nocopy  VARCHAR2
16     , p5_a8 in out nocopy  NUMBER
17     , p5_a9 in out nocopy  DATE
18     , p5_a10 in out nocopy  DATE
19     , p5_a11 in out nocopy  VARCHAR
20     , p5_a12 in out nocopy  VARCHAR2
21     , x_return_status out nocopy  VARCHAR2
22     , x_msg_count out nocopy  NUMBER
23     , x_msg_data out nocopy  VARCHAR2
24   )
25 
26   as
27     ddp_x_inv_serv_item_rec ahl_osp_serv_item_rels_pvt.inv_serv_item_rels_rec_type;
28     ddindx binary_integer; indx binary_integer;
29   begin
30 
31     -- copy data to the local IN or IN-OUT args, if any
32 
33 
34 
35 
36 
37     ddp_x_inv_serv_item_rec.inv_ser_item_rel_id := p5_a0;
38     ddp_x_inv_serv_item_rec.obj_ver_num := p5_a1;
39     ddp_x_inv_serv_item_rec.inv_item_id := p5_a2;
40     ddp_x_inv_serv_item_rec.inv_item_name := p5_a3;
41     ddp_x_inv_serv_item_rec.inv_org_id := p5_a4;
42     ddp_x_inv_serv_item_rec.inv_org_name := p5_a5;
43     ddp_x_inv_serv_item_rec.service_item_id := p5_a6;
44     ddp_x_inv_serv_item_rec.service_item_name := p5_a7;
45     ddp_x_inv_serv_item_rec.rank := p5_a8;
46     ddp_x_inv_serv_item_rec.active_start_date := p5_a9;
47     ddp_x_inv_serv_item_rec.active_end_date := p5_a10;
48     ddp_x_inv_serv_item_rec.for_all_org_flag := p5_a11;
49     ddp_x_inv_serv_item_rec.operation_flag := p5_a12;
50 
51 
52 
53 
54     -- here's the delegated call to the old PL/SQL routine
55     ahl_osp_serv_item_rels_pvt.process_serv_itm_rels(p_api_version,
56       p_init_msg_list,
57       p_commit,
58       p_validation_level,
59       p_module_type,
60       ddp_x_inv_serv_item_rec,
61       x_return_status,
62       x_msg_count,
63       x_msg_data);
64 
65     -- copy data back from the local variables to OUT or IN-OUT args, if any
66 
67 
68 
69 
70 
71     p5_a0 := ddp_x_inv_serv_item_rec.inv_ser_item_rel_id;
72     p5_a1 := ddp_x_inv_serv_item_rec.obj_ver_num;
73     p5_a2 := ddp_x_inv_serv_item_rec.inv_item_id;
74     p5_a3 := ddp_x_inv_serv_item_rec.inv_item_name;
75     p5_a4 := ddp_x_inv_serv_item_rec.inv_org_id;
76     p5_a5 := ddp_x_inv_serv_item_rec.inv_org_name;
77     p5_a6 := ddp_x_inv_serv_item_rec.service_item_id;
78     p5_a7 := ddp_x_inv_serv_item_rec.service_item_name;
79     p5_a8 := ddp_x_inv_serv_item_rec.rank;
80     p5_a9 := ddp_x_inv_serv_item_rec.active_start_date;
81     p5_a10 := ddp_x_inv_serv_item_rec.active_end_date;
82     p5_a11 := ddp_x_inv_serv_item_rec.for_all_org_flag;
83     p5_a12 := ddp_x_inv_serv_item_rec.operation_flag;
84 
85 
86 
87   end;
88 
89 end ahl_osp_serv_item_rels_pvt_w;