[Home] [Help]
124: -- Populate Old Values.
125: Open cur_old_ref_values;
126: Fetch cur_old_ref_values INTO old_references;
127: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
128: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
129: IGS_GE_MSG_STACK.ADD;
130: App_Exception.Raise_Exception;
131: Close cur_old_ref_values;
132: Return;
208: IF (p_inserting OR p_updating) THEN
209: IF IGS_FI_VAL_CFAR.finp_val_ft_closed (
210: new_references.fee_type,
211: v_message_name) = FALSE THEN
212: Fnd_Message.Set_Name('IGS',v_message_name);
213: IGS_GE_MSG_STACK.ADD;
214: App_Exception.Raise_Exception;
215: END IF;
216: END IF;
219: IF IGS_FI_VAL_FCCI.finp_val_ci_fee (
220: new_references.fee_cal_type,
221: new_references.fee_ci_sequence_number,
222: v_message_name) = FALSE THEN
223: Fnd_Message.Set_Name('IGS',v_message_name);
224: IGS_GE_MSG_STACK.ADD;
225: App_Exception.Raise_Exception;
226: END IF;
227: END IF;
231: IF IGS_FI_VAL_FTCI.finp_val_ftci_ac (
232: new_references.fee_cal_type,
233: new_references.fee_ci_sequence_number,
234: v_message_name) = FALSE THEN
235: Fnd_Message.Set_Name('IGS',v_message_name);
236: IGS_GE_MSG_STACK.ADD;
237: App_Exception.Raise_Exception;
238: END IF;
239: END IF;
242: (new_references.fee_type_ci_status)) THEN
243: IF IGS_FI_VAL_FCCI.finp_val_fss_closed (
244: new_references.fee_type_ci_status,
245: v_message_name) = FALSE THEN
246: Fnd_Message.Set_Name('IGS',v_message_name);
247: IGS_GE_MSG_STACK.ADD;
248: App_Exception.Raise_Exception;
249: END IF;
250: END IF;
257: new_references.fee_ci_sequence_number,
258: new_references.fee_type_ci_status,
259: old_references.fee_type_ci_status,
260: v_message_name) = FALSE THEN
261: Fnd_Message.Set_Name('IGS',v_message_name);
262: IGS_GE_MSG_STACK.ADD;
263: App_Exception.Raise_Exception;
264: END IF;
265: END IF;
269: IF IGS_FI_VAL_FTCI.finp_val_ftci_c_mthd (
270: new_references.fee_type,
271: new_references.s_chg_method_type,
272: v_message_name) = FALSE THEN
273: Fnd_Message.Set_Name('IGS',v_message_name);
274: IGS_GE_MSG_STACK.ADD;
275: App_Exception.Raise_Exception;
276: END IF;
277: END IF;
292: new_references.end_dai_sequence_number,
293: new_references.retro_dt_alias,
294: new_references.retro_dai_sequence_number,
295: v_message_name) = FALSE THEN
296: Fnd_Message.Set_Name('IGS',v_message_name);
297: IGS_GE_MSG_STACK.ADD;
298: App_Exception.Raise_Exception;
299: END IF;
300: END IF;
309: new_references.s_chg_method_type,
310: new_references.rul_sequence_number,
311: new_references.fee_type_ci_status,
312: v_message_name) = FALSE THEN
313: Fnd_Message.Set_Name('IGS',v_message_name);
314: IGS_GE_MSG_STACK.ADD;
315: App_Exception.Raise_Exception;
316: END IF;
317: END IF;
322: new_references.fee_ci_sequence_number);
323: FETCH cur_acct_hier_chrg INTO l_var;
324: IF cur_acct_hier_chrg%FOUND THEN
325: CLOSE cur_acct_hier_chrg;
326: FND_MESSAGE.SET_NAME('IGS','IGS_FI_AC_HI_NT_UPD');
327: IGS_GE_MSG_STACK.ADD;
328: APP_EXCEPTION.RAISE_EXCEPTION;
329: END IF;
330: CLOSE cur_acct_hier_chrg;
468: l_v_rec_installed := igs_fi_gen_005.finp_get_receivables_inst;
469:
470: IF ((UPPER (column_name) = 'END_DT_ALIAS') OR (column_name IS NULL)) THEN
471: IF (new_references.end_dt_alias <> UPPER (new_references.end_dt_alias)) THEN
472: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
473: IGS_GE_MSG_STACK.ADD;
474: App_Exception.Raise_Exception;
475: END IF;
476: END IF;
475: END IF;
476: END IF;
477: IF ((UPPER (column_name) = 'FEE_CAL_TYPE') OR (column_name IS NULL)) THEN
478: IF (new_references.fee_cal_type <> UPPER (new_references.fee_cal_type)) THEN
479: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
480: IGS_GE_MSG_STACK.ADD;
481: App_Exception.Raise_Exception;
482: END IF;
483: END IF;
482: END IF;
483: END IF;
484: IF ((UPPER (column_name) = 'RETRO_DT_ALIAS') OR (column_name IS NULL)) THEN
485: IF (new_references.retro_dt_alias <> UPPER (new_references.retro_dt_alias)) THEN
486: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
487: IGS_GE_MSG_STACK.ADD;
488: App_Exception.Raise_Exception;
489: END IF;
490: END IF;
489: END IF;
490: END IF;
491: IF ((UPPER (column_name) = 'START_DT_ALIAS') OR (column_name IS NULL)) THEN
492: IF (new_references.start_dt_alias <> UPPER (new_references.start_dt_alias)) THEN
493: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
494: IGS_GE_MSG_STACK.ADD;
495: App_Exception.Raise_Exception;
496: END IF;
497: END IF;
496: END IF;
497: END IF;
498: IF ((UPPER (column_name) = 'S_CHG_METHOD_TYPE') OR (column_name IS NULL)) THEN
499: IF (new_references.s_chg_method_type <> UPPER (new_references.s_chg_method_type)) THEN
500: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
501: IGS_GE_MSG_STACK.ADD;
502: App_Exception.Raise_Exception;
503: END IF;
504: END IF;
503: END IF;
504: END IF;
505: IF ((UPPER (column_name) = 'START_DAI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
506: IF ((new_references.start_dai_sequence_number < 1) OR (new_references.start_dai_sequence_number > 999999)) THEN
507: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
508: IGS_GE_MSG_STACK.ADD;
509: App_Exception.Raise_Exception;
510: END IF;
511: END IF;
510: END IF;
511: END IF;
512: IF ((UPPER (column_name) = 'RETRO_DAI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
513: IF ((new_references.retro_dai_sequence_number < 1) OR (new_references.retro_dai_sequence_number > 999999)) THEN
514: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
515: IGS_GE_MSG_STACK.ADD;
516: App_Exception.Raise_Exception;
517: END IF;
518: END IF;
517: END IF;
518: END IF;
519: IF ((UPPER (column_name) = 'END_DAI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
520: IF ((new_references.end_dai_sequence_number < 1) OR (new_references.end_dai_sequence_number >999999)) THEN
521: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
522: IGS_GE_MSG_STACK.ADD;
523: App_Exception.Raise_Exception;
524: END IF;
525: END IF;
526:
527: IF ((UPPER (column_name) = 'RUL_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
528: IF ((new_references.rul_sequence_number < 1) OR (new_references.rul_sequence_number > 999999))
529: THEN
530: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
531: IGS_GE_MSG_STACK.ADD;
532: App_Exception.Raise_Exception;
533: END IF;
534: END IF;
533: END IF;
534: END IF;
535: IF ((UPPER (column_name) = 'FEE_CI_SEQUENCE_NUMBER') OR (column_name IS NULL)) THEN
536: IF ((new_references.fee_ci_sequence_number < 1) OR (new_references.fee_ci_sequence_number > 999999)) THEN
537: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
538: IGS_GE_MSG_STACK.ADD;
539: App_Exception.Raise_Exception;
540: END IF;
541: END IF;
542: --Removed IF related to subaccount_id,as part of Bug 2175865
543:
544: IF ((UPPER (column_name) = 'INITIAL_DEFAULT_AMOUNT') OR (column_name IS NULL)) THEN
545: IF ((new_references.initial_default_amount < 0) OR (new_references.initial_default_amount > 999999.99)) THEN
546: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
547: IGS_GE_MSG_STACK.ADD;
548: App_Exception.Raise_Exception;
549: END IF;
550: END IF;
553: IF l_v_rec_installed = 'Y'
554: AND (UPPER(column_name) = 'ACCT_HIER_ID'
555: OR (column_name IS NULL)) THEN
556: IF new_references.acct_hier_id IS NULL THEN
557: FND_MESSAGE.SET_NAME('IGS', 'IGS_GE_INVALID_VALUE');
558: IGS_GE_MSG_STACK.ADD;
559: APP_EXCEPTION.RAISE_EXCEPTION;
560: END IF;
561: END IF;
561: END IF;
562:
563: IF ((UPPER (column_name) = 'COMPLETE_RET_FLAG') OR (column_name IS NULL)) THEN
564: IF (new_references.complete_ret_flag NOT IN ('Y','N') OR new_references.complete_ret_flag IS NULL) THEN
565: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
566: IGS_GE_MSG_STACK.ADD;
567: App_Exception.Raise_Exception;
568: END IF;
569: END IF;
569: END IF;
570:
571: IF ((UPPER (column_name) = 'NONZERO_BILLABLE_CP_FLAG') OR (column_name IS NULL)) THEN
572: IF (new_references.nonzero_billable_cp_flag NOT IN ('Y','N') OR new_references.nonzero_billable_cp_flag IS NULL) THEN
573: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
574: IGS_GE_MSG_STACK.ADD;
575: App_Exception.Raise_Exception;
576: END IF;
577: END IF;
577: END IF;
578:
579: IF ((UPPER (column_name) = 'scope_rul_sequence_num') OR (column_name IS NULL)) THEN
580: IF ((new_references.scope_rul_sequence_num < 1) OR (new_references.scope_rul_sequence_num > 999999)) THEN
581: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
582: IGS_GE_MSG_STACK.ADD;
583: App_Exception.Raise_Exception;
584: END IF;
585: END IF;
585: END IF;
586:
587: IF ((UPPER (column_name) = 'ELM_RNG_ORDER_NAME') OR (column_name IS NULL)) THEN
588: IF (new_references.elm_rng_order_name <> UPPER (new_references.elm_rng_order_name)) THEN
589: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
590: IGS_GE_MSG_STACK.ADD;
591: App_Exception.Raise_Exception;
592: END IF;
593: END IF;
593: END IF;
594:
595: IF ((UPPER (column_name) = 'MAX_CHG_ELEMENTS') OR (column_name IS NULL)) THEN
596: IF ((new_references.max_chg_elements < 0) OR (new_references.max_chg_elements > 9999999.999)) THEN
597: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
598: IGS_GE_MSG_STACK.ADD;
599: App_Exception.Raise_Exception;
600: END IF;
601: END IF;
619: IF NOT IGS_CA_INST_PKG.Get_PK_For_Validation (
620: new_references.fee_cal_type,
621: new_references.fee_ci_sequence_number
622: ) THEN
623: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
624: IGS_GE_MSG_STACK.ADD;
625: App_Exception.Raise_Exception;
626: END IF;
627: END IF;
632: ELSE
633: IF NOT IGS_FI_ACC_PKG.Get_PK_For_Validation (
634: new_references.rec_account_cd
635: ) THEN
636: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
637: IGS_GE_MSG_STACK.ADD;
638: App_Exception.Raise_Exception;
639: END IF;
640: END IF;
644: ELSE
645: IF NOT IGS_FI_ACC_PKG.Get_PK_For_Validation (
646: new_references.rev_account_cd
647: ) THEN
648: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
649: IGS_GE_MSG_STACK.ADD;
650: App_Exception.Raise_Exception;
651: END IF;
652: END IF;
666: new_references.end_dai_sequence_number,
667: new_references.fee_cal_type,
668: new_references.fee_ci_sequence_number
669: ) THEN
670: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
671: IGS_GE_MSG_STACK.ADD;
672: App_Exception.Raise_Exception;
673: END IF;
674: END IF;
678: ELSE
679: IF NOT IGS_FI_FEE_STR_STAT_PKG.Get_PK_For_Validation (
680: new_references.fee_type_ci_status
681: ) THEN
682: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
683: IGS_GE_MSG_STACK.ADD;
684: App_Exception.Raise_Exception;
685: END IF;
686: END IF;
690: ELSE
691: IF NOT IGS_FI_FEE_TYPE_PKG.Get_PK_For_Validation (
692: new_references.fee_type
693: ) THEN
694: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
695: IGS_GE_MSG_STACK.ADD;
696: App_Exception.Raise_Exception;
697: END IF;
698: END IF;
711: new_references.retro_dai_sequence_number,
712: new_references.fee_cal_type,
713: new_references.fee_ci_sequence_number
714: ) THEN
715: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
716: IGS_GE_MSG_STACK.ADD;
717: App_Exception.Raise_Exception;
718: END IF;
719: END IF;
723: ELSE
724: IF NOT IGS_RU_RULE_PKG.Get_PK_For_Validation (
725: new_references.rul_sequence_number
726: ) THEN
727: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
728: IGS_GE_MSG_STACK.ADD;
729: App_Exception.Raise_Exception;
730: END IF;
731: END IF;
744: new_references.start_dai_sequence_number,
745: new_references.fee_cal_type,
746: new_references.fee_ci_sequence_number
747: ) THEN
748: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
749: IGS_GE_MSG_STACK.ADD;
750: App_Exception.Raise_Exception;
751: END IF;
752: END IF;
759: NULL;
760: ELSE
761: IF NOT IGS_FI_HIER_ACCOUNTS_PKG.get_pk_for_validation(
762: new_references.acct_hier_id) THEN
763: FND_MESSAGE.set_name ('FND', 'FORM_RECORD_DELETED');
764: IGS_GE_MSG_STACK.ADD;
765: App_Exception.Raise_Exception;
766: END IF;
767: END IF;
776: OPEN c_gl_code_combinations_pk;
777: FETCH c_gl_code_combinations_pk INTO l_ccid_temp;
778: IF c_gl_code_combinations_pk%NOTFOUND THEN
779: CLOSE c_gl_code_combinations_pk;
780: FND_MESSAGE.set_name ('FND', 'FORM_RECORD_DELETED');
781: IGS_GE_MSG_STACK.ADD;
782: App_Exception.Raise_Exception;
783: END IF;
784: IF c_gl_code_combinations_pk%ISOPEN THEN
793: ELSE
794: IF NOT IGS_FI_ACC_PKG.Get_PK_For_Validation (
795: new_references.ret_account_cd
796: ) THEN
797: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
798: IGS_GE_MSG_STACK.ADD;
799: App_Exception.Raise_Exception;
800: END IF;
801: END IF;
807: IF NOT IGS_LOOKUPS_VIEW_PKG.Get_PK_For_Validation (
808: 'IGS_FI_RET_LEVEL',
809: new_references.retention_level_code
810: ) THEN
811: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
812: IGS_GE_MSG_STACK.ADD;
813: App_Exception.Raise_Exception;
814: END IF;
815: END IF;
820: ELSE
821: IF NOT IGS_FI_ELM_RNG_ORDS_PKG.Get_PK_For_Validation (
822: new_references.elm_rng_order_name
823: ) THEN
824: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
825: IGS_GE_MSG_STACK.ADD;
826: App_Exception.Raise_Exception;
827: END IF;
828: END IF;
833: ELSE
834: IF NOT IGS_RU_RULE_PKG.Get_PK_For_Validation (
835: new_references.scope_rul_sequence_num
836: ) THEN
837: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
838: IGS_GE_MSG_STACK.ADD;
839: App_Exception.Raise_Exception;
840: END IF;
841: END IF;
889: BEGIN
890: Open cur_rowid;
891: Fetch cur_rowid INTO lv_rowid;
892: IF (cur_rowid%FOUND) THEN
893: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FTCI_CI_FK');
894: IGS_GE_MSG_STACK.ADD;
895: App_Exception.Raise_Exception;
896: Close cur_rowid;
897: Return;
925: BEGIN
926: Open cur_rowid;
927: Fetch cur_rowid INTO lv_rowid;
928: IF (cur_rowid%FOUND) THEN
929: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FTCI_END_DAI_FK');
930: IGS_GE_MSG_STACK.ADD;
931: App_Exception.Raise_Exception;
932: Close cur_rowid;
933: Return;
946: BEGIN
947: Open cur_rowid;
948: Fetch cur_rowid INTO lv_rowid;
949: IF (cur_rowid%FOUND) THEN
950: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FTCI_FSST_FK');
951: IGS_GE_MSG_STACK.ADD;
952: App_Exception.Raise_Exception;
953: Close cur_rowid;
954: Return;
969: BEGIN
970: Open cur_rowid;
971: Fetch cur_rowid INTO lv_rowid;
972: IF (cur_rowid%FOUND) THEN
973: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FTCI_RUL_FK');
974: IGS_GE_MSG_STACK.ADD;
975: App_Exception.Raise_Exception;
976: Close cur_rowid;
977: Return;
990: BEGIN
991: Open cur_rowid;
992: Fetch cur_rowid INTO lv_rowid;
993: IF (cur_rowid%FOUND) THEN
994: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FTCI_SLV_FK');
995: IGS_GE_MSG_STACK.ADD;
996: App_Exception.Raise_Exception;
997: Close cur_rowid;
998: Return;
1011: BEGIN
1012: Open cur_rowid;
1013: Fetch cur_rowid INTO lv_rowid;
1014: IF (cur_rowid%FOUND) THEN
1015: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FERO_FTCI_FK1');
1016: IGS_GE_MSG_STACK.ADD;
1017: App_Exception.Raise_Exception;
1018: Close cur_rowid;
1019: Return;
1032: BEGIN
1033: Open cur_rowid;
1034: Fetch cur_rowid INTO lv_rowid;
1035: IF (cur_rowid%FOUND) THEN
1036: Fnd_Message.Set_Name ('IGS', 'IGS_FI_FERO_FTCI_FK2');
1037: IGS_GE_MSG_STACK.ADD;
1038: App_Exception.Raise_Exception;
1039: Close cur_rowid;
1040: Return;
1137: new_references.fee_type,
1138: new_references.fee_cal_type,
1139: new_references.fee_ci_sequence_number
1140: )) THEN
1141: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1142: IGS_GE_MSG_STACK.ADD;
1143: App_Exception.Raise_Exception;
1144: END IF;
1145: Check_Constraints;
1154: new_references.fee_type,
1155: new_references.fee_cal_type,
1156: new_references.fee_ci_sequence_number
1157: )) THEN
1158: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1159: IGS_GE_MSG_STACK.ADD;
1160: App_Exception.Raise_Exception;
1161: END IF;
1162: Check_Constraints;
1265: else
1266: X_PROGRAM_UPDATE_DATE:=SYSDATE;
1267: end if;
1268: else
1269: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1270: IGS_GE_MSG_STACK.ADD;
1271: app_exception.raise_exception;
1272: end if;
1273: Before_DML(
1462: begin
1463: open c1;
1464: fetch c1 into tlinfo;
1465: if (c1%notfound) then
1466: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1467: IGS_GE_MSG_STACK.ADD;
1468: app_exception.raise_exception;
1469: close c1;
1470: return;
1527: AND (X_max_chg_elements is null)))
1528: ) then
1529: null;
1530: else
1531: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1532: IGS_GE_MSG_STACK.ADD;
1533: app_exception.raise_exception;
1534: end if;
1535: return;
1610: else
1611: X_PROGRAM_UPDATE_DATE:=SYSDATE;
1612: end if;
1613: else
1614: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1615: IGS_GE_MSG_STACK.ADD;
1616: app_exception.raise_exception;
1617: end if;
1618: Before_DML(