1: PACKAGE BODY igf_ap_housing_map_pkg AS
2: /* $Header: IGFWI71B.pls 120.0 2005/06/01 12:53:48 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_housing_map%ROWTYPE;
1: PACKAGE BODY igf_ap_housing_map_pkg AS
2: /* $Header: IGFWI71B.pls 120.0 2005/06/01 12:53:48 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_housing_map%ROWTYPE;
6: new_references igf_ap_housing_map%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI71B.pls 120.0 2005/06/01 12:53:48 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_housing_map%ROWTYPE;
6: new_references igf_ap_housing_map%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igf_ap_housing_map
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
167: x_last_update_login := -1;
168: END IF;
169: ELSE
170: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
171: fnd_message.set_token ('ROUTINE', 'IGF_AP_HOUSING_MAP_PKG.INSERT_ROW');
172: igs_ge_msg_stack.add;
173: app_exception.raise_exception;
174: END IF;
175:
186: x_last_updated_by => x_last_updated_by,
187: x_last_update_login => x_last_update_login
188: );
189:
190: INSERT INTO igf_ap_housing_map (
191: ci_cal_type,
192: ci_sequence_number,
193: housing_stat_code,
194: ap_house_plan_code,
233: ci_cal_type,
234: ci_sequence_number,
235: housing_stat_code,
236: ap_house_plan_code
237: FROM igf_ap_housing_map
238: WHERE rowid = x_rowid
239: FOR UPDATE NOWAIT;
240:
241: tlinfo c1%ROWTYPE;
308: x_last_update_login := -1;
309: END IF;
310: ELSE
311: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
312: fnd_message.set_token ('ROUTINE', 'IGF_AP_HOUSING_MAP_PKG.UPDATE_ROW');
313: igs_ge_msg_stack.add;
314: app_exception.raise_exception;
315: END IF;
316:
327: x_last_updated_by => x_last_updated_by,
328: x_last_update_login => x_last_update_login
329: );
330:
331: UPDATE igf_ap_housing_map
332: SET
333: ci_cal_type = new_references.ci_cal_type,
334: ci_sequence_number = new_references.ci_sequence_number,
335: housing_stat_code = new_references.housing_stat_code,
364: || (reverse chronological order - newest change first)
365: */
366: CURSOR c1 IS
367: SELECT rowid
368: FROM igf_ap_housing_map
369: WHERE ci_cal_type = x_ci_cal_type
370: AND ci_sequence_number = x_ci_sequence_number
371: AND housing_stat_code = x_housing_stat_code;
372:
419: p_action => 'DELETE',
420: x_rowid => x_rowid
421: );
422:
423: DELETE FROM igf_ap_housing_map
424: WHERE rowid = x_rowid;
425:
426: IF (SQL%NOTFOUND) THEN
427: RAISE NO_DATA_FOUND;
444: || (reverse chronological order - newest change first)
445: */
446: CURSOR cur_rowid IS
447: SELECT rowid
448: FROM igf_ap_housing_map
449: WHERE ci_cal_type = x_ci_cal_type
450: AND ci_sequence_number = x_ci_sequence_number
451: AND housing_stat_code = x_housing_stat_code
452: FOR UPDATE NOWAIT;
468: END get_pk_for_validation;
469:
470:
471:
472: END igf_ap_housing_map_pkg;