[Home] [Help]
PACKAGE BODY: APPS.FND_OAM_BF_WIT_PKG
Source
1 package body FND_OAM_BF_WIT_PKG as
2 /* $Header: AFOAMFWB.pls 120.1 2005/07/02 03:04:11 appldev noship $ */
3
4
5 procedure LOAD_ROW (
6 X_BIZ_FLOW_KEY in VARCHAR2,
7 X_ITEM_TYPE in VARCHAR2,
8 X_MONITORED_FLAG in VARCHAR2,
9 X_DISPLAY_ORDER in NUMBER,
10 X_OWNER in VARCHAR2)
11 is
12 begin
13 fnd_oam_bf_wit_pkg.LOAD_ROW (
14 X_BIZ_FLOW_KEY => X_BIZ_FLOW_KEY,
15 X_ITEM_TYPE => X_ITEM_TYPE,
16 X_MONITORED_FLAG => X_MONITORED_FLAG,
17 X_DISPLAY_ORDER => X_DISPLAY_ORDER,
18 X_OWNER => X_OWNER,
19 x_custom_mode => '',
20 x_last_update_date => '');
21 end LOAD_ROW;
22
23 procedure LOAD_ROW (
24 X_BIZ_FLOW_KEY in VARCHAR2,
25 X_ITEM_TYPE in VARCHAR2,
26 X_MONITORED_FLAG in VARCHAR2,
27 X_DISPLAY_ORDER in NUMBER,
28 X_OWNER in VARCHAR2,
29 x_custom_mode in varchar2,
30 x_last_update_date in varchar2)
31 is
32 row_id varchar2(64);
33 f_luby number; -- entity owner in file
34 f_ludate date; -- entity update date in file
35 db_luby number; -- entity owner in db
36 db_ludate date; -- entity update date in db
37 begin
38 -- Translate owner to file_last_updated_by
39 f_luby := fnd_load_util.owner_id(x_owner);
40
41 -- Translate char last_update_date to date
42 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
43
44 begin
45 select LAST_UPDATED_BY, LAST_UPDATE_DATE
46 into db_luby, db_ludate
47 from fnd_oam_bf_wit
48 where biz_flow_key = X_BIZ_FLOW_KEY
49 and item_type = X_ITEM_TYPE;
50
51 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
52 db_ludate, X_CUSTOM_MODE)) then
53 fnd_oam_bf_wit_pkg.UPDATE_ROW (
54 X_BIZ_FLOW_KEY => X_BIZ_FLOW_KEY,
55 X_ITEM_TYPE => X_ITEM_TYPE,
56 X_MONITORED_FLAG => X_MONITORED_FLAG,
57 X_DISPLAY_ORDER => X_DISPLAY_ORDER,
58 X_LAST_UPDATE_DATE => f_ludate,
59 X_LAST_UPDATED_BY => f_luby,
60 X_LAST_UPDATE_LOGIN => 0 );
61 end if;
62 exception
63 when NO_DATA_FOUND then
64
65 fnd_oam_bf_wit_pkg.INSERT_ROW (
66 X_ROWID => row_id,
67 X_BIZ_FLOW_KEY => X_BIZ_FLOW_KEY,
68 X_ITEM_TYPE => X_ITEM_TYPE,
69 X_MONITORED_FLAG => X_MONITORED_FLAG,
70 X_DISPLAY_ORDER => X_DISPLAY_ORDER,
71 X_CREATION_DATE => f_ludate,
72 X_CREATED_BY => f_luby,
73 X_LAST_UPDATE_DATE => f_ludate,
74 X_LAST_UPDATED_BY => f_luby,
75 X_LAST_UPDATE_LOGIN => 0 );
76 end;
77 END LOAD_ROW;
78
79 procedure INSERT_ROW (
80 X_ROWID in out nocopy VARCHAR2,
81 X_BIZ_FLOW_KEY in VARCHAR2,
82 X_ITEM_TYPE in VARCHAR2,
83 X_MONITORED_FLAG in VARCHAR2,
84 X_DISPLAY_ORDER in NUMBER,
85 X_CREATION_DATE in DATE,
86 X_CREATED_BY in NUMBER,
87 X_LAST_UPDATE_DATE in DATE,
88 X_LAST_UPDATED_BY in NUMBER,
89 X_LAST_UPDATE_LOGIN in NUMBER)
90 is
91 cursor C is select ROWID from FND_OAM_BF_WIT
92 where BIZ_FLOW_KEY = X_BIZ_FLOW_KEY
93 and item_type = X_ITEM_TYPE;
94 begin
95 insert into fnd_oam_bf_wit (
96 BIZ_FLOW_KEY,
97 ITEM_TYPE,
98 MONITORED_FLAG,
99 DISPLAY_ORDER,
100 CREATION_DATE,
101 CREATED_BY,
102 LAST_UPDATE_DATE,
103 LAST_UPDATED_BY,
104 LAST_UPDATE_LOGIN
105 ) values (
106 X_BIZ_FLOW_KEY,
107 X_ITEM_TYPE,
108 X_MONITORED_FLAG,
109 X_DISPLAY_ORDER,
110 X_CREATION_DATE,
111 X_CREATED_BY,
112 X_LAST_UPDATE_DATE,
113 X_LAST_UPDATED_BY,
114 X_LAST_UPDATE_LOGIN
115 );
116
117 open c;
118 fetch c into X_ROWID;
119 if (c%notfound) then
120 close c;
121 raise no_data_found;
122 end if;
123 close c;
124 end INSERT_ROW;
125
126 procedure UPDATE_ROW (
127 X_BIZ_FLOW_KEY in VARCHAR2,
128 X_ITEM_TYPE in VARCHAR2,
129 X_MONITORED_FLAG in VARCHAR2,
130 X_DISPLAY_ORDER in NUMBER,
131 X_LAST_UPDATE_DATE in DATE,
132 X_LAST_UPDATED_BY in NUMBER,
133 X_LAST_UPDATE_LOGIN in NUMBER
134 ) is
135 begin
136 update FND_OAM_BF_WIT set
137 monitored_flag = x_monitored_flag,
138 display_order = x_display_order,
139 last_update_date = x_last_update_date,
140 last_updated_by = x_last_updated_by,
141 last_update_login = x_last_update_login
142 where biz_flow_key = x_biz_flow_key
143 and item_type = x_item_type;
144
145 if (sql%notfound) then
146 raise no_data_found;
147 end if;
148 end UPDATE_ROW;
149
150 procedure DELETE_ROW (
151 X_BIZ_FLOW_KEY in VARCHAR2,
152 X_ITEM_TYPE in VARCHAR2
153 ) is
154 begin
155 delete from fnd_oam_bf_wit
156 where biz_flow_key = X_BIZ_FLOW_KEY
157 and item_type = X_ITEM_TYPE;
158
159 if (sql%notfound) then
160 raise no_data_found;
161 end if;
162 end DELETE_ROW;
163
164 end FND_OAM_BF_WIT_PKG;