[Home] [Help]
1: package body IGS_RE_THS_PNL_MBR_PKG as
2: /* $Header: IGSRI21B.pls 120.1 2005/07/04 00:42:48 appldev ship $ */
3: -------------------------------------------------------------------------------------------
4: --Change History:
5: --Who When What
6: --smadathi 24-AUG-2001 Bug No. 1956374 .The call to igs_re_val_tpm.genp_val_sdtt_sess
7: -- is changed to igs_as_val_suaap.genp_val_sdtt_sess
8: -------------------------------------------------------------------------------------------
9: l_rowid VARCHAR2(25);
10: old_references IGS_RE_THS_PNL_MBR%RowType;
11: new_references IGS_RE_THS_PNL_MBR%RowType;
12:
13: PROCEDURE Set_Column_Values (
14: p_action IN VARCHAR2,
7: -- is changed to igs_as_val_suaap.genp_val_sdtt_sess
8: -------------------------------------------------------------------------------------------
9: l_rowid VARCHAR2(25);
10: old_references IGS_RE_THS_PNL_MBR%RowType;
11: new_references IGS_RE_THS_PNL_MBR%RowType;
12:
13: PROCEDURE Set_Column_Values (
14: p_action IN VARCHAR2,
15: x_rowid IN VARCHAR2 DEFAULT NULL,
34: ) AS
35:
36: CURSOR cur_old_ref_values IS
37: SELECT *
38: FROM IGS_RE_THS_PNL_MBR
39: WHERE rowid = x_rowid;
40:
41: BEGIN
42:
403: AS
404:
405: CURSOR cur_rowid IS
406: SELECT rowid
407: FROM IGS_RE_THS_PNL_MBR
408: WHERE ca_person_id = x_ca_person_id
409: AND ca_sequence_number = x_ca_sequence_number
410: AND the_sequence_number = x_the_sequence_number
411: AND creation_dt = x_creation_dt
433: ) AS
434:
435: CURSOR cur_rowid IS
436: SELECT rowid
437: FROM IGS_RE_THS_PNL_MBR
438: WHERE person_id = x_person_id ;
439:
440: lv_rowid cur_rowid%RowType;
441:
462: ) AS
463:
464: CURSOR cur_rowid IS
465: SELECT rowid
466: FROM IGS_RE_THS_PNL_MBR
467: WHERE ca_person_id = x_person_id
468: AND ca_sequence_number = x_ca_sequence_number
469: AND the_sequence_number = x_the_sequence_number
470: AND creation_dt = x_creation_dt ;
491: ) AS
492:
493: CURSOR cur_rowid IS
494: SELECT rowid
495: FROM IGS_RE_THS_PNL_MBR
496: WHERE thesis_result_cd = x_thesis_result_cd ;
497:
498: lv_rowid cur_rowid%RowType;
499:
517: ) AS
518:
519: CURSOR cur_rowid IS
520: SELECT rowid
521: FROM IGS_RE_THS_PNL_MBR
522: WHERE panel_member_type = x_panel_member_type ;
523:
524: lv_rowid cur_rowid%RowType;
525:
667: X_TRACKING_ID in NUMBER,
668: X_RECOMMENDATION_SUMMARY in VARCHAR2,
669: X_MODE in VARCHAR2 default 'R'
670: ) as
671: cursor C is select ROWID from IGS_RE_THS_PNL_MBR
672: where CA_PERSON_ID = X_CA_PERSON_ID
673: and CA_SEQUENCE_NUMBER = X_CA_SEQUENCE_NUMBER
674: and THE_SEQUENCE_NUMBER = X_THE_SEQUENCE_NUMBER
675: and CREATION_DT = X_CREATION_DT
722:
723: IF (x_mode = 'S') THEN
724: igs_sc_gen_001.set_ctx('R');
725: END IF;
726: insert into IGS_RE_THS_PNL_MBR (
727: CA_PERSON_ID,
728: CA_SEQUENCE_NUMBER,
729: THE_SEQUENCE_NUMBER,
730: CREATION_DT,
820: THESIS_RESULT_CD,
821: PAID_DT,
822: TRACKING_ID,
823: RECOMMENDATION_SUMMARY
824: from IGS_RE_THS_PNL_MBR
825: where ROWID = X_ROWID
826: for update nowait;
827: tlinfo c1%rowtype;
828:
931:
932: IF (x_mode = 'S') THEN
933: igs_sc_gen_001.set_ctx('R');
934: END IF;
935: update IGS_RE_THS_PNL_MBR set
936: PANEL_MEMBER_TYPE = NEW_REFERENCES.PANEL_MEMBER_TYPE,
937: CONFIRMED_DT = NEW_REFERENCES.CONFIRMED_DT,
938: DECLINED_DT = NEW_REFERENCES.DECLINED_DT,
939: ANONYMITY_IND = NEW_REFERENCES.ANONYMITY_IND,
993: X_TRACKING_ID in NUMBER,
994: X_RECOMMENDATION_SUMMARY in VARCHAR2,
995: X_MODE in VARCHAR2 default 'R'
996: ) as
997: cursor c1 is select rowid from IGS_RE_THS_PNL_MBR
998: where CA_PERSON_ID = X_CA_PERSON_ID
999: and CA_SEQUENCE_NUMBER = X_CA_SEQUENCE_NUMBER
1000: and THE_SEQUENCE_NUMBER = X_THE_SEQUENCE_NUMBER
1001: and CREATION_DT = X_CREATION_DT
1056:
1057: IF (x_mode = 'S') THEN
1058: igs_sc_gen_001.set_ctx('R');
1059: END IF;
1060: delete from IGS_RE_THS_PNL_MBR
1061: where ROWID = X_ROWID;
1062: if (sql%notfound) then
1063: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1064: igs_ge_msg_stack.add;
1076: );
1077:
1078: end DELETE_ROW;
1079:
1080: end IGS_RE_THS_PNL_MBR_PKG;