DBA Data[Home] [Help]

APPS.IGS_PE_VISA_PKG dependencies on IGS_PE_VISA

Line 1: PACKAGE BODY igs_pe_visa_pkg AS

1: PACKAGE BODY igs_pe_visa_pkg AS
2: /* $Header: IGSNI40B.pls 120.3 2005/10/17 02:20:25 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_visa%ROWTYPE;

Line 5: old_references igs_pe_visa%ROWTYPE;

1: PACKAGE BODY igs_pe_visa_pkg AS
2: /* $Header: IGSNI40B.pls 120.3 2005/10/17 02:20:25 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_visa%ROWTYPE;
6: new_references igs_pe_visa%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,

Line 6: new_references igs_pe_visa%ROWTYPE;

2: /* $Header: IGSNI40B.pls 120.3 2005/10/17 02:20:25 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_visa%ROWTYPE;
6: new_references igs_pe_visa%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,

Line 63: FROM igs_pe_visa

59: */
60:
61: CURSOR cur_old_ref_values IS
62: SELECT *
63: FROM igs_pe_visa
64: WHERE rowid = x_rowid;
65:
66: BEGIN
67:

Line 156: CURSOR overlap_poe_cur(cp_visa_id igs_pe_visa.visa_id%TYPE,

152: SELECT birth_date
153: FROM igs_pe_person_base_v
154: WHERE person_id = cp_person_id;
155:
156: CURSOR overlap_poe_cur(cp_visa_id igs_pe_visa.visa_id%TYPE,
157: cp_issue_date igs_pe_visa.visa_issue_date%TYPE,
158: cp_expiry_date igs_pe_visa.visa_expiry_date%TYPE) IS
159: SELECT 1
160: FROM igs_pe_visit_histry

Line 157: cp_issue_date igs_pe_visa.visa_issue_date%TYPE,

153: FROM igs_pe_person_base_v
154: WHERE person_id = cp_person_id;
155:
156: CURSOR overlap_poe_cur(cp_visa_id igs_pe_visa.visa_id%TYPE,
157: cp_issue_date igs_pe_visa.visa_issue_date%TYPE,
158: cp_expiry_date igs_pe_visa.visa_expiry_date%TYPE) IS
159: SELECT 1
160: FROM igs_pe_visit_histry
161: WHERE visa_id = cp_visa_id AND

Line 158: cp_expiry_date igs_pe_visa.visa_expiry_date%TYPE) IS

154: WHERE person_id = cp_person_id;
155:
156: CURSOR overlap_poe_cur(cp_visa_id igs_pe_visa.visa_id%TYPE,
157: cp_issue_date igs_pe_visa.visa_issue_date%TYPE,
158: cp_expiry_date igs_pe_visa.visa_expiry_date%TYPE) IS
159: SELECT 1
160: FROM igs_pe_visit_histry
161: WHERE visa_id = cp_visa_id AND
162: (visit_start_date < cp_issue_date OR visit_end_date > cp_expiry_date+30);

Line 241: fnd_message.set_name ('IGS', 'IGS_PE_VISA_DUP_EXISTS');

237: new_references.visa_type,
238: new_references.visa_issue_date
239: )
240: ) THEN
241: fnd_message.set_name ('IGS', 'IGS_PE_VISA_DUP_EXISTS');
242: igs_ge_msg_stack.add;
243: app_exception.raise_exception;
244: END IF;
245:

Line 298: igs_pe_visit_histry_pkg.get_fk_igs_pe_visa (

294: || (reverse chronological order - newest change first)
295: */
296: BEGIN
297:
298: igs_pe_visit_histry_pkg.get_fk_igs_pe_visa (
299: old_references.visa_id
300: );
301:
302: END check_child_existance;

Line 319: FROM igs_pe_visa

315: || (reverse chronological order - newest change first)
316: */
317: CURSOR cur_rowid IS
318: SELECT rowid
319: FROM igs_pe_visa
320: WHERE visa_id = x_visa_id
321: FOR UPDATE NOWAIT;
322:
323: lv_rowid cur_rowid%RowType;

Line 356: FROM igs_pe_visa

352: || (reverse chronological order - newest change first)
353: */
354: CURSOR cur_rowid IS
355: SELECT rowid
356: FROM igs_pe_visa
357: WHERE person_id = x_person_id
358: AND visa_type = x_visa_type
359: AND visa_issue_date = x_visa_issue_date
360: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));

Line 393: FROM igs_pe_visa

389: || (reverse chronological order - newest change first)
390: */
391: CURSOR cur_rowid IS
392: SELECT rowid
393: FROM igs_pe_visa
394: WHERE ((passport_id = x_passport_id));
395:
396: lv_rowid cur_rowid%RowType;
397:

Line 569: CURSOR c_visa_overlap(cp_person_id igs_pe_visa.person_id%TYPE) IS

565: --
566: --Change History:
567: --Who When What
568: ----------------------------------------------------------------------------------------------
569: CURSOR c_visa_overlap(cp_person_id igs_pe_visa.person_id%TYPE) IS
570: SELECT count(1)
571: FROM igs_pe_visa a ,igs_pe_visa b
572: WHERE a.person_id = cp_person_id AND
573: a.person_id = b.person_id AND

Line 571: FROM igs_pe_visa a ,igs_pe_visa b

567: --Who When What
568: ----------------------------------------------------------------------------------------------
569: CURSOR c_visa_overlap(cp_person_id igs_pe_visa.person_id%TYPE) IS
570: SELECT count(1)
571: FROM igs_pe_visa a ,igs_pe_visa b
572: WHERE a.person_id = cp_person_id AND
573: a.person_id = b.person_id AND
574: a.rowid <> b.rowid AND
575: a.visa_expiry_date >= b.visa_issue_date AND

Line 585: FND_MESSAGE.SET_NAME('IGS','IGS_PE_VISA_DATE_OVERLAP');

581: FETCH c_visa_overlap INTO l_count;
582: CLOSE c_visa_overlap;
583:
584: IF l_count > 0 THEN
585: FND_MESSAGE.SET_NAME('IGS','IGS_PE_VISA_DATE_OVERLAP');
586: IGS_GE_MSG_STACK.ADD;
587: APP_EXCEPTION.RAISE_EXCEPTION;
588: END IF;
589:

Line 749: INSERT INTO igs_pe_visa (

745:
746: IF (x_mode = 'S') THEN
747: igs_sc_gen_001.set_ctx('R');
748: END IF;
749: INSERT INTO igs_pe_visa (
750: visa_id,
751: person_id,
752: visa_type,
753: visa_number,

Line 790: igs_pe_visa_s.NEXTVAL,

786: last_update_date,
787: last_updated_by,
788: last_update_login
789: ) VALUES (
790: igs_pe_visa_s.NEXTVAL,
791: new_references.person_id,
792: new_references.visa_type,
793: new_references.visa_number,
794: new_references.visa_issue_date,

Line 938: FROM igs_pe_visa

934: attribute18,
935: attribute19,
936: attribute20,
937: visa_issuing_country
938: FROM igs_pe_visa
939: WHERE rowid = x_rowid
940: FOR UPDATE NOWAIT;
941:
942: tlinfo c1%ROWTYPE;

Line 1123: UPDATE igs_pe_visa

1119:
1120: IF (x_mode = 'S') THEN
1121: igs_sc_gen_001.set_ctx('R');
1122: END IF;
1123: UPDATE igs_pe_visa
1124: SET
1125: person_id = new_references.person_id,
1126: visa_type = new_references.visa_type,
1127: visa_number = new_references.visa_number,

Line 1244: FROM igs_pe_visa

1240: || (reverse chronological order - newest change first)
1241: */
1242: CURSOR c1 IS
1243: SELECT rowid
1244: FROM igs_pe_visa
1245: WHERE visa_id = x_visa_id;
1246:
1247: BEGIN
1248:

Line 1361: DELETE FROM igs_pe_visa

1357:
1358: IF (x_mode = 'S') THEN
1359: igs_sc_gen_001.set_ctx('R');
1360: END IF;
1361: DELETE FROM igs_pe_visa
1362: WHERE rowid = x_rowid;
1363:
1364: IF (SQL%NOTFOUND) THEN
1365: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');

Line 1378: END igs_pe_visa_pkg;

1374:
1375: END delete_row;
1376:
1377:
1378: END igs_pe_visa_pkg;