1 package body hz_param_tab_pkg as
2 /*$Header: ARHPRMTB.pls 120.1 2005/06/16 21:14:42 jhuang noship $ */
3
4 ---------------------------------------------------------------------------------------------------------------------------------------
5 -- In TCA API V1 FND_API.G_MISS_<type> represent a Null Value => Test of Null value is based on FND_API.G_MISS_<type> before insertions
6 -- In TCA API V2 NULL represent a Null Value => Test of Null value is based on NULL before insertions
7 -- if value = G_MISS_<TYPE> then insert NULL end if;
8 ---------------------------------------------------------------------------------------------------------------------------------------
9 -- This is the V1 version
10 ---------------------------------------------------------------------------------------------------------------------------------------
11 /**************************
12 **** Insert statement ****
13 **************************/
14 PROCEDURE insert_row (
15 x_item_key in varchar2,
16 x_param_name in varchar2,
17 x_param_value in varchar2,
18 x_param_indicator in varchar2
19 ) is
20 l_param_value varchar2(4000) := x_param_value;
21 begin
22 l_param_value := trim(x_param_value);
23 IF l_param_value IS NOT NULL THEN
24 IF l_param_value = FND_API.G_MISS_CHAR THEN
25 l_param_value := NULL;
26 END IF;
27 insert into hz_param_tab (
28 item_key ,
29 param_name ,
30 param_char ,
31 param_indicator ) values (
32 x_item_key ,
33 x_param_name ,
34 l_param_value ,
35 x_param_indicator );
36 END IF;
37 END;
38
39 PROCEDURE insert_row (
40 x_item_key in varchar2,
41 x_param_name in varchar2,
42 x_param_value in number,
43 x_param_indicator in varchar2
44 ) is
45 l_param_value number := x_param_value;
46 BEGIN
47 IF l_param_value IS NOT NULL THEN
48 IF l_param_value = FND_API.G_MISS_NUM THEN
49 l_param_value := NULL;
50 END IF;
51 insert into hz_param_tab (
52 item_key ,
53 param_name ,
54 param_num ,
55 param_indicator ) values (
56 x_item_key ,
57 x_param_name ,
58 l_param_value ,
59 x_param_indicator );
60 END IF;
61 END;
62
63 PROCEDURE insert_row (
64 x_item_key in varchar2,
65 x_param_name in varchar2,
66 x_param_value in date,
67 x_param_indicator in varchar2
68 ) is
69 l_param_value date := x_param_value;
70 begin
71 IF l_param_value IS NOT NULL THEN
72 IF l_param_value = FND_API.G_MISS_DATE THEN
73 l_param_value := NULL;
74 END IF;
75 insert into hz_param_tab (
76 item_key ,
77 param_name ,
78 param_date ,
79 param_indicator ) values (
80 x_item_key ,
81 x_param_name ,
82 l_param_value ,
83 x_param_indicator );
84 END IF;
85 end;
86
87
88
89 procedure delete_row (
90 x_item_key in varchar2
91 ) is
92 begin
93 delete from hz_param_tab
94 where item_key = x_item_key;
95 end;
96 end;