PACKAGE BODY: APPS.PAY_DBITL_UPDATE_ERRORS_PKG

Source

1 package body pay_dbitl_update_errors_pkg as
2 /* $Header: pydbtlue.pkb 120.1 2006/11/10 17:26:54 arashid noship $ */
3 ------------------------------- insert_row -------------------------------
4 procedure insert_row
5 (p_user_name       in varchar2
6 ,p_user_entity_id  in number
7 ,p_translated_name in varchar2
8 ,p_message_text    in varchar2
9 ) is
10 l_rowid varchar2(2000);
11 begin
12   insert_row
13   (p_user_name       => p_user_name
14   ,p_user_entity_id  => p_user_entity_id
15   ,p_translated_name => p_translated_name
16   ,p_message_text    => p_message_text
17   ,p_rowid           => l_rowid
18   );
19 end insert_row;
20 
21 procedure insert_row
22 (p_user_name       in varchar2
23 ,p_user_entity_id  in number
24 ,p_translated_name in varchar2
25 ,p_message_text    in varchar2
26 ,p_rowid              out nocopy varchar2
27 ) is
28 begin
29   insert into pay_dbitl_update_errors
30   (user_name
31   ,user_entity_id
32   ,translated_name
33   ,message_text
34   )
35   values
36   (p_user_name
37   ,p_user_entity_id
38   ,p_translated_name
39   ,p_message_text
40   )
41   returning rowid into p_rowid;
42 end insert_row;
43 
44 
45 ------------------------------ delete_rows -------------------------------
46 procedure delete_rows
47 (p_user_name       in varchar2
48 ,p_user_entity_id  in number
49 ,p_translated_name in varchar2
50 ) is
51 begin
52   delete pay_dbitl_update_errors
53   where  user_name = p_user_name
54   and    user_entity_id = p_user_entity_id
55   and    translated_name = p_translated_name
56   ;
57 end delete_rows;
58 
59 
60 procedure delete_rows
61 (p_rowids in dbms_sql.varchar2s
62 ) is
63 begin
64   if p_rowids.count = 0 then
65     return;
66   end if;
67 
68   forall i in 1 .. p_rowids.count
69     delete pay_dbitl_update_errors
70     where  rowid = p_rowids(i);
71 end delete_rows;
72 
73 ------------------------------- delete_row -------------------------------
74 procedure delete_row
75 (p_rowid in varchar2
76 ) is
77 begin
78   delete pay_dbitl_update_errors
79   where rowid = p_rowid
80   ;
81 end delete_row;
82 
83 ----------------------------- fetch_all_rows -----------------------------
84 procedure fetch_all_rows
85 (p_rowids   out nocopy dbms_sql.varchar2s
86 ,p_messages out nocopy dbms_sql.varchar2_table
87 ) is
88 begin
89   select rowid
90   ,      message_text bulk collect
91   into   p_rowids
92   ,      p_messages
93   from   pay_dbitl_update_errors
94   ;
95 end fetch_all_rows;
96 
97 end pay_dbitl_update_errors_pkg;