1: PACKAGE BODY igs_da_cnfg_req_typ_pkg AS
2: /* $Header: IGSKI46B.pls 120.0 2005/07/05 12:55:39 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_da_cnfg_req_typ%ROWTYPE;
1: PACKAGE BODY igs_da_cnfg_req_typ_pkg AS
2: /* $Header: IGSKI46B.pls 120.0 2005/07/05 12:55:39 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_da_cnfg_req_typ%ROWTYPE;
6: new_references igs_da_cnfg_req_typ%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSKI46B.pls 120.0 2005/07/05 12:55:39 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_da_cnfg_req_typ%ROWTYPE;
6: new_references igs_da_cnfg_req_typ%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
67: */
68:
69: CURSOR cur_old_ref_values IS
70: SELECT *
71: FROM igs_da_cnfg_req_typ
72: WHERE rowid = x_rowid;
73:
74: BEGIN
75:
163: || (reverse chronological order - newest change first)
164: */
165: CURSOR cur_rowid IS
166: SELECT rowid
167: FROM igs_da_cnfg_req_typ
168: WHERE request_name = x_request_name
169: AND request_type = x_request_type
170: AND request_mode = x_request_mode
171: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
263: || (reverse chronological order - newest change first)
264: */
265: BEGIN
266:
267: igs_da_cnfg_pkg.get_fk_igs_da_cnfg_req_typ (
268: old_references.request_type_id
269: );
270:
271: igs_da_cnfg_ftr_pkg.get_fk_igs_da_cnfg_req_typ (
267: igs_da_cnfg_pkg.get_fk_igs_da_cnfg_req_typ (
268: old_references.request_type_id
269: );
270:
271: igs_da_cnfg_ftr_pkg.get_fk_igs_da_cnfg_req_typ (
272: old_references.request_type_id
273: );
274:
275: igs_da_cnfg_stat_pkg.get_fk_igs_da_cnfg_req_typ (
271: igs_da_cnfg_ftr_pkg.get_fk_igs_da_cnfg_req_typ (
272: old_references.request_type_id
273: );
274:
275: igs_da_cnfg_stat_pkg.get_fk_igs_da_cnfg_req_typ (
276: old_references.request_type_id
277: );
278:
279: igs_da_rqst_pkg.get_fk_igs_da_cnfg_req_typ (
275: igs_da_cnfg_stat_pkg.get_fk_igs_da_cnfg_req_typ (
276: old_references.request_type_id
277: );
278:
279: igs_da_rqst_pkg.get_fk_igs_da_cnfg_req_typ (
280: old_references.request_type_id );
281:
282:
283: END check_child_existance;
296: || (reverse chronological order - newest change first)
297: */
298: CURSOR cur_rowid IS
299: SELECT rowid
300: FROM igs_da_cnfg_req_typ
301: WHERE request_type_id = x_request_type_id
302: FOR UPDATE NOWAIT;
303:
304: lv_rowid cur_rowid%RowType;
331: || (reverse chronological order - newest change first)
332: */
333: CURSOR cur_rowid IS
334: SELECT rowid
335: FROM igs_da_cnfg_req_typ
336: WHERE ((wif_program_code = x_course_cd));
337:
338: lv_rowid cur_rowid%RowType;
339:
342: OPEN cur_rowid;
343: FETCH cur_rowid INTO lv_rowid;
344: IF (cur_rowid%FOUND) THEN
345: CLOSE cur_rowid;
346: fnd_message.set_name ('IGS', 'IGS_DA_CNFG_PSC_FK');
347: igs_ge_msg_stack.add;
348: app_exception.raise_exception;
349: RETURN;
350: END IF;
367: || (reverse chronological order - newest change first)
368: */
369: CURSOR cur_rowid IS
370: SELECT rowid
371: FROM igs_da_cnfg_req_typ
372: WHERE ((wif_catalog_cal_type = x_cal_type) AND
373: (wif_catalog_ci_seq_num = x_sequence_number));
374:
375: lv_rowid cur_rowid%RowType;
379: OPEN cur_rowid;
380: FETCH cur_rowid INTO lv_rowid;
381: IF (cur_rowid%FOUND) THEN
382: CLOSE cur_rowid;
383: fnd_message.set_name ('IGS', 'IGS_DA_CNFG_CAI_FK');
384: igs_ge_msg_stack.add;
385: app_exception.raise_exception;
386: RETURN;
387: END IF;
618: x_last_update_login := -1;
619: END IF;
620: ELSE
621: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
622: fnd_message.set_token ('ROUTINE', 'IGS_DA_CNFG_REQ_TYP_PKG.INSERT_ROW');
623: igs_ge_msg_stack.add;
624: app_exception.raise_exception;
625: END IF;
626:
677: x_last_updated_by => x_last_updated_by,
678: x_last_update_login => x_last_update_login
679: );
680:
681: INSERT INTO igs_da_cnfg_req_typ (
682: request_type_id,
683: request_name,
684: request_type,
685: request_mode,
726: last_update_date,
727: last_updated_by,
728: last_update_login
729: ) VALUES (
730: igs_da_cnfg_req_typ_s.NEXTVAL,
731: new_references.request_name,
732: new_references.request_type,
733: new_references.request_mode,
734: new_references.closed_ind,
875: attribute19,
876: attribute20,
877: spa_complete_ind,
878: susa_complete_ind
879: FROM igs_da_cnfg_req_typ
880: WHERE rowid = x_rowid
881: FOR UPDATE NOWAIT;
882:
883: tlinfo c1%ROWTYPE;
1025: x_last_update_login := -1;
1026: END IF;
1027: ELSE
1028: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
1029: fnd_message.set_token ('ROUTINE', 'IGS_DA_CNFG_REQ_TYP_PKG.UPDATE_ROW');
1030: igs_ge_msg_stack.add;
1031: app_exception.raise_exception;
1032: END IF;
1033:
1084: x_last_updated_by => x_last_updated_by,
1085: x_last_update_login => x_last_update_login
1086: );
1087:
1088: UPDATE igs_da_cnfg_req_typ
1089: SET
1090: request_name = new_references.request_name,
1091: request_type = new_references.request_type,
1092: request_mode = new_references.request_mode,
1196: || (reverse chronological order - newest change first)
1197: */
1198: CURSOR c1 IS
1199: SELECT rowid
1200: FROM igs_da_cnfg_req_typ
1201: WHERE request_type_id = x_request_type_id;
1202:
1203: BEGIN
1204:
1322:
1323: CURSOR cur_parent_table IS
1324: SELECT
1325: request_type_id
1326: FROM igs_da_cnfg_req_typ_v
1327: WHERE row_id = x_rowid;
1328:
1329: CURSOR cur_igs_da_cnfg_ftr (cp_request_type_id igs_da_cnfg_ftr.request_type_id%TYPE) IS
1330: SELECT
1325: request_type_id
1326: FROM igs_da_cnfg_req_typ_v
1327: WHERE row_id = x_rowid;
1328:
1329: CURSOR cur_igs_da_cnfg_ftr (cp_request_type_id igs_da_cnfg_ftr.request_type_id%TYPE) IS
1330: SELECT
1331: rowid
1332: FROM igs_da_cnfg_ftr
1333: WHERE request_type_id = cp_request_type_id;
1328:
1329: CURSOR cur_igs_da_cnfg_ftr (cp_request_type_id igs_da_cnfg_ftr.request_type_id%TYPE) IS
1330: SELECT
1331: rowid
1332: FROM igs_da_cnfg_ftr
1333: WHERE request_type_id = cp_request_type_id;
1334:
1335:
1336: CURSOR cur_igs_da_cnfg_stat (cp_request_type_id igs_da_cnfg_ftr.request_type_id%TYPE) IS
1332: FROM igs_da_cnfg_ftr
1333: WHERE request_type_id = cp_request_type_id;
1334:
1335:
1336: CURSOR cur_igs_da_cnfg_stat (cp_request_type_id igs_da_cnfg_ftr.request_type_id%TYPE) IS
1337: SELECT
1338: rowid
1339: FROM igs_da_cnfg_stat
1340: WHERE request_type_id = cp_request_type_id;
1335:
1336: CURSOR cur_igs_da_cnfg_stat (cp_request_type_id igs_da_cnfg_ftr.request_type_id%TYPE) IS
1337: SELECT
1338: rowid
1339: FROM igs_da_cnfg_stat
1340: WHERE request_type_id = cp_request_type_id;
1341:
1342: CURSOR cur_igs_da_cnfg (cp_request_type_id igs_da_cnfg_ftr.request_type_id%TYPE) IS
1343: SELECT
1338: rowid
1339: FROM igs_da_cnfg_stat
1340: WHERE request_type_id = cp_request_type_id;
1341:
1342: CURSOR cur_igs_da_cnfg (cp_request_type_id igs_da_cnfg_ftr.request_type_id%TYPE) IS
1343: SELECT
1344: rowid
1345: FROM igs_da_cnfg
1346: WHERE request_type_id = cp_request_type_id;
1341:
1342: CURSOR cur_igs_da_cnfg (cp_request_type_id igs_da_cnfg_ftr.request_type_id%TYPE) IS
1343: SELECT
1344: rowid
1345: FROM igs_da_cnfg
1346: WHERE request_type_id = cp_request_type_id;
1347:
1348:
1349: l_cur_parent_table cur_parent_table%ROWTYPE;
1346: WHERE request_type_id = cp_request_type_id;
1347:
1348:
1349: l_cur_parent_table cur_parent_table%ROWTYPE;
1350: l_cur_igs_da_cnfg_ftr cur_igs_da_cnfg_ftr%ROWTYPE;
1351: l_cur_igs_da_cnfg_stat cur_igs_da_cnfg_stat%ROWTYPE;
1352: l_cur_igs_da_cnfg cur_igs_da_cnfg%ROWTYPE;
1353:
1354:
1347:
1348:
1349: l_cur_parent_table cur_parent_table%ROWTYPE;
1350: l_cur_igs_da_cnfg_ftr cur_igs_da_cnfg_ftr%ROWTYPE;
1351: l_cur_igs_da_cnfg_stat cur_igs_da_cnfg_stat%ROWTYPE;
1352: l_cur_igs_da_cnfg cur_igs_da_cnfg%ROWTYPE;
1353:
1354:
1355: BEGIN
1348:
1349: l_cur_parent_table cur_parent_table%ROWTYPE;
1350: l_cur_igs_da_cnfg_ftr cur_igs_da_cnfg_ftr%ROWTYPE;
1351: l_cur_igs_da_cnfg_stat cur_igs_da_cnfg_stat%ROWTYPE;
1352: l_cur_igs_da_cnfg cur_igs_da_cnfg%ROWTYPE;
1353:
1354:
1355: BEGIN
1356:
1367: FETCH cur_parent_table INTO l_cur_parent_table;
1368: CLOSE cur_parent_table;
1369:
1370:
1371: FOR l_cur_igs_da_cnfg_ftr IN cur_igs_da_cnfg_ftr(l_cur_parent_table.request_type_id) LOOP
1372:
1373:
1374: igs_da_cnfg_ftr_pkg.delete_row (
1375: x_rowid => l_cur_igs_da_cnfg_ftr.rowid
1370:
1371: FOR l_cur_igs_da_cnfg_ftr IN cur_igs_da_cnfg_ftr(l_cur_parent_table.request_type_id) LOOP
1372:
1373:
1374: igs_da_cnfg_ftr_pkg.delete_row (
1375: x_rowid => l_cur_igs_da_cnfg_ftr.rowid
1376: );
1377: END LOOP;
1378:
1371: FOR l_cur_igs_da_cnfg_ftr IN cur_igs_da_cnfg_ftr(l_cur_parent_table.request_type_id) LOOP
1372:
1373:
1374: igs_da_cnfg_ftr_pkg.delete_row (
1375: x_rowid => l_cur_igs_da_cnfg_ftr.rowid
1376: );
1377: END LOOP;
1378:
1379:
1377: END LOOP;
1378:
1379:
1380:
1381: FOR l_cur_igs_da_cnfg_stat IN cur_igs_da_cnfg_stat(l_cur_parent_table.request_type_id) LOOP
1382:
1383: igs_da_cnfg_stat_pkg.delete_row (
1384: x_rowid => l_cur_igs_da_cnfg_stat.rowid
1385: );
1379:
1380:
1381: FOR l_cur_igs_da_cnfg_stat IN cur_igs_da_cnfg_stat(l_cur_parent_table.request_type_id) LOOP
1382:
1383: igs_da_cnfg_stat_pkg.delete_row (
1384: x_rowid => l_cur_igs_da_cnfg_stat.rowid
1385: );
1386: END LOOP;
1387:
1380:
1381: FOR l_cur_igs_da_cnfg_stat IN cur_igs_da_cnfg_stat(l_cur_parent_table.request_type_id) LOOP
1382:
1383: igs_da_cnfg_stat_pkg.delete_row (
1384: x_rowid => l_cur_igs_da_cnfg_stat.rowid
1385: );
1386: END LOOP;
1387:
1388:
1385: );
1386: END LOOP;
1387:
1388:
1389: FOR l_cur_igs_da_cnfg IN cur_igs_da_cnfg(l_cur_parent_table.request_type_id) LOOP
1390:
1391:
1392: igs_da_cnfg_pkg.delete_row (
1393: x_rowid => l_cur_igs_da_cnfg.rowid
1388:
1389: FOR l_cur_igs_da_cnfg IN cur_igs_da_cnfg(l_cur_parent_table.request_type_id) LOOP
1390:
1391:
1392: igs_da_cnfg_pkg.delete_row (
1393: x_rowid => l_cur_igs_da_cnfg.rowid
1394: );
1395:
1396: END LOOP;
1389: FOR l_cur_igs_da_cnfg IN cur_igs_da_cnfg(l_cur_parent_table.request_type_id) LOOP
1390:
1391:
1392: igs_da_cnfg_pkg.delete_row (
1393: x_rowid => l_cur_igs_da_cnfg.rowid
1394: );
1395:
1396: END LOOP;
1397:
1395:
1396: END LOOP;
1397:
1398:
1399: DELETE FROM igs_da_cnfg_req_typ
1400: WHERE rowid = x_rowid;
1401:
1402:
1403: IF (SQL%NOTFOUND) THEN
1408:
1409: END delete_row;
1410:
1411:
1412: END igs_da_cnfg_req_typ_pkg;