PACKAGE BODY: APPS.WMS_WP_PARAMETERS_LOV_PKG

Source

1 package body WMS_WP_PARAMETERS_LOV_PKG as
2 /* $Header: WMSPLTHB.pls 120.1.12010000.1 2009/03/25 09:55:13 shrmitra noship $ */
3 
4 procedure INSERT_ROW (
5   x_object_id  in NUMBER,
6   x_object_name in VARCHAR2,
7   x_object_description in VARCHAR2,
8   x_parameter_id  in NUMBER,
9   x_parameter_name in VARCHAR2,
10   x_parameter_description in VARCHAR2
11 ) is
12 
13 
14 begin
15 
16   insert into wms_wp_parameters_lov (
17   object_id,
18   object_name,
19   object_description,
20   parameter_id,
21   parameter_name,
22   parameter_description
23   ) values (
24   x_object_id,
25   x_object_name,
26   x_object_description,
27   x_parameter_id,
28   x_parameter_name,
29   x_parameter_description
30   );
31 
32 end INSERT_ROW;
33 
34 
35 
36 procedure UPDATE_ROW (
37   x_object_id  in NUMBER,
38   x_object_name in VARCHAR2,
39   x_object_description in VARCHAR2,
40   x_parameter_id  in NUMBER,
41   x_parameter_name in VARCHAR2,
42   x_parameter_description in VARCHAR2
43 ) is
44 begin
45   update wms_wp_parameters_lov set
46     object_id = x_object_id,
47     object_name = x_object_name,
48     object_description = x_object_description,
49     parameter_id = x_parameter_id,
50     parameter_name = x_parameter_name,
51     parameter_description = x_parameter_description
52   where parameter_id = x_parameter_id;
53 
54   if (sql%notfound) then
55     raise no_data_found;
56   end if;
57 
58 
59 end UPDATE_ROW;
60 
61 PROCEDURE LOAD_ROW(
62  x_object_id  in NUMBER,
63   x_object_name in VARCHAR2,
64   x_object_description in VARCHAR2,
65   x_parameter_id  in NUMBER,
66   x_parameter_name in VARCHAR2,
67   x_parameter_description in VARCHAR2) is
68 
69    l_parameter_id number;
70 begin
71 
72     select parameter_id into l_parameter_id
73     from wms_wp_parameters_lov
74     where parameter_id = x_parameter_id;
75 
76       -- Update existing row
77       WMS_WP_PARAMETERS_LOV_PKG.UPDATE_ROW(
78      x_object_id,
79           x_object_name,
80           x_object_description,
81 	     x_parameter_id,
82           x_parameter_name,
83           x_parameter_Description);
84 
85   exception
86     when no_data_found then
87       -- Record doesn't exist - insert in all cases
88         WMS_WP_PARAMETERS_LOV_PKG.INSERT_ROW (
89      x_object_id,
90           x_object_name,
91           x_object_description,
92 	     x_parameter_id,
93           x_parameter_name,
94           x_parameter_Description);
95 
96 end LOAD_ROW;
97 
98 end WMS_WP_PARAMETERS_LOV_PKG;