1: PACKAGE BODY igs_ad_adv_placement_pkg AS
2: /* $Header: IGSAI89B.pls 115.13 2003/12/09 11:07:28 akadam ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ad_adv_placement%RowType;
5: new_references igs_ad_adv_placement%RowType;
1: PACKAGE BODY igs_ad_adv_placement_pkg AS
2: /* $Header: IGSAI89B.pls 115.13 2003/12/09 11:07:28 akadam ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ad_adv_placement%RowType;
5: new_references igs_ad_adv_placement%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ad_adv_placement_pkg AS
2: /* $Header: IGSAI89B.pls 115.13 2003/12/09 11:07:28 akadam ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ad_adv_placement%RowType;
5: new_references igs_ad_adv_placement%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
29: ***************************************************************/
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_AD_ADV_PLACEMENT
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
168: ***************************************************************/
169:
170: CURSOR cur_rowid IS
171: SELECT rowid
172: FROM igs_ad_adv_placement
173: WHERE test_exemption_id = x_test_exemption_id
174: FOR UPDATE NOWAIT;
175:
176: lv_rowid cur_rowid%RowType;
205: ***************************************************************/
206:
207: CURSOR cur_rowid IS
208: SELECT rowid
209: FROM igs_ad_adv_placement
210: WHERE exemption_id = x_exemption_id
211: AND person_id = x_person_id and ((l_rowid is null) or (rowid <> l_rowid))
212:
213: ;
241: ***************************************************************/
242:
243: CURSOR cur_rowid IS
244: SELECT rowid
245: FROM igs_ad_adv_placement
246: WHERE person_id = x_person_id ;
247:
248: lv_rowid cur_rowid%RowType;
249:
278: ***************************************************************/
279:
280: CURSOR cur_rowid IS
281: SELECT rowid
282: FROM igs_ad_adv_placement
283: WHERE exemption_id = x_code_id ;
284:
285: lv_rowid cur_rowid%RowType;
286:
427:
428: (reverse chronological order - newest change first)
429: ***************************************************************/
430:
431: cursor C is select ROWID from IGS_AD_ADV_PLACEMENT
432: where TEST_EXEMPTION_ID= X_TEST_EXEMPTION_ID
433: ;
434: X_LAST_UPDATE_DATE DATE ;
435: X_LAST_UPDATED_BY NUMBER ;
465: x_created_by=>X_LAST_UPDATED_BY,
466: x_last_update_date=>X_LAST_UPDATE_DATE,
467: x_last_updated_by=>X_LAST_UPDATED_BY,
468: x_last_update_login=>X_LAST_UPDATE_LOGIN);
469: insert into IGS_AD_ADV_PLACEMENT (
470: TEST_EXEMPTION_ID
471: ,PERSON_ID
472: ,EXEMPTION_ID
473: ,CREATION_DATE
475: ,LAST_UPDATE_DATE
476: ,LAST_UPDATED_BY
477: ,LAST_UPDATE_LOGIN
478: ) values (
479: IGS_AD_ADV_PLACEMENT_S.NEXTVAL
480: ,NEW_REFERENCES.PERSON_ID
481: ,NEW_REFERENCES.EXEMPTION_ID
482: ,X_LAST_UPDATE_DATE
483: ,X_LAST_UPDATED_BY
514:
515: cursor c1 is select
516: PERSON_ID
517: , EXEMPTION_ID
518: from IGS_AD_ADV_PLACEMENT
519: where ROWID = X_ROWID
520: for update nowait;
521: tlinfo c1%rowtype;
522: begin
591: x_created_by=>X_LAST_UPDATED_BY,
592: x_last_update_date=>X_LAST_UPDATE_DATE,
593: x_last_updated_by=>X_LAST_UPDATED_BY,
594: x_last_update_login=>X_LAST_UPDATE_LOGIN);
595: update IGS_AD_ADV_PLACEMENT set
596: PERSON_ID = NEW_REFERENCES.PERSON_ID,
597: EXEMPTION_ID = NEW_REFERENCES.EXEMPTION_ID,
598: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
599: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
625:
626: (reverse chronological order - newest change first)
627: ***************************************************************/
628:
629: cursor c1 is select ROWID from IGS_AD_ADV_PLACEMENT
630: where TEST_EXEMPTION_ID= X_TEST_EXEMPTION_ID
631: ;
632: begin
633: open c1;
668: Before_DML (
669: p_action => 'DELETE',
670: x_rowid => X_ROWID
671: );
672: delete from IGS_AD_ADV_PLACEMENT
673: where ROWID = X_ROWID;
674: if (sql%notfound) then
675: raise no_data_found;
676: end if;
678: p_action => 'DELETE',
679: x_rowid => X_ROWID
680: );
681: end DELETE_ROW;
682: END igs_ad_adv_placement_pkg;