1: package body PV_BENFT_STATUS_MAPS_PKG as
2: /* $Header: pvxtbnmb.pls 120.1 2011/03/25 21:28:43 hekkiral ship $ */
3: procedure INSERT_ROW (
4: px_benft_status_map_id IN OUT NOCOPY NUMBER,
5: px_object_version_number IN OUT NOCOPY NUMBER,
12: p_last_updated_by IN NUMBER,
13: p_last_update_login IN NUMBER)
14: IS
15: begin
16: insert into PV_BENFT_STATUS_MAPS (
17: benft_status_map_id,
18: object_version_number,
19: benefit_type,
20: vendor_status_code,
51: OBJECT_VERSION_NUMBER,
52: BENEFIT_TYPE,
53: VENDOR_STATUS_CODE,
54: PARTNER_STATUS_CODE
55: from PV_BENFT_STATUS_MAPS
56: where BENFT_STATUS_MAP_ID = p_BENFT_STATUS_MAP_ID
57: for update of BENFT_STATUS_MAP_ID nowait;
58: recinfo c%rowtype;
59:
94: p_last_updated_by IN NUMBER,
95: p_last_update_login IN NUMBER
96: ) is
97: begin
98: UPDATE pv_benft_status_maps SET
99: object_version_number = DECODE ( p_object_version_number,FND_API.g_miss_num,NULL,p_object_version_number+1),
100: benefit_type = DECODE ( p_benefit_type,FND_API.g_miss_char,NULL,p_benefit_type),
101: vendor_status_code = DECODE ( p_vendor_status_code,FND_API.g_miss_char,NULL,p_vendor_status_code),
102: partner_status_code = DECODE ( p_partner_status_code,FND_API.g_miss_char,NULL,p_partner_status_code),
124:
125: CURSOR c_updated_by
126: IS
127: SELECT last_updated_by
128: FROM pv_benft_status_maps
129: WHERE benft_status_map_id = p_benft_status_map_id;
130:
131: l_last_updated_by NUMBER;
132:
157: procedure DELETE_ROW (
158: p_BENFT_STATUS_MAP_ID in NUMBER
159: ) is
160: begin
161: delete from PV_BENFT_STATUS_MAPS
162: where BENFT_STATUS_MAP_ID = p_BENFT_STATUS_MAP_ID;
163:
164: if (sql%notfound) then
165: raise no_data_found;
184: l_benft_status_map_id number := p_benft_status_map_id;
185:
186: cursor c_obj_verno is
187: SELECT object_version_number
188: FROM pv_benft_status_maps
189: WHERE benft_status_map_id = p_benft_status_map_id;
190:
191: cursor c_chk_status_exists is
192: SELECT 'x'
189: WHERE benft_status_map_id = p_benft_status_map_id;
190:
191: cursor c_chk_status_exists is
192: SELECT 'x'
193: FROM pv_benft_status_maps
194: WHERE benft_status_map_id = p_benft_status_map_id;
195:
196: BEGIN
197:
238: END IF;
239: END IF;
240:
241: END LOAD_ROW;
242: end PV_BENFT_STATUS_MAPS_PKG;