[Home] [Help]
58: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
59: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
60: Igs_Ge_Msg_Stack.Add;
61: Close cur_old_ref_values;
62: App_Exception.Raise_Exception;
63: Return;
64: END IF;
65: Close cur_old_ref_values;
66:
121: IF p_inserting THEN
122: IF new_references.s_adv_stnd_type <> 'LEVEL' THEN
123: Fnd_Message.Set_Name('IGS', 'IGS_AV_TYPE_MUSTBE_LEVEL');
124: Igs_Ge_Msg_Stack.Add;
125: App_Exception.Raise_Exception;
126: END IF;
127: IF new_references.s_adv_stnd_granting_status <> 'APPROVED' AND
128: p_adv_stnd_trans = 'N' THEN
129: Fnd_Message.Set_Name('IGS', 'IGS_AV_STATUS_MUSTBE_APPROVED');
127: IF new_references.s_adv_stnd_granting_status <> 'APPROVED' AND
128: p_adv_stnd_trans = 'N' THEN
129: Fnd_Message.Set_Name('IGS', 'IGS_AV_STATUS_MUSTBE_APPROVED');
130: Igs_Ge_Msg_Stack.Add;
131: App_Exception.Raise_Exception;
132: END IF;
133: END IF;
134: -- Validate Unit Level closed indicator.
135: IF p_inserting OR p_updating THEN
137: new_references.UNIT_LEVEL,
138: v_message_name) = FALSE THEN
139: Fnd_Message.Set_Name('IGS', v_message_name);
140: Igs_Ge_Msg_Stack.Add;
141: App_Exception.Raise_Exception;
142: END IF;
143: END IF;
144: -- Validate Advanced Standing Unit Level Approved Date
145: IF (new_references.approved_dt IS NOT NULL) AND
152: v_message_name,
153: p_adv_stnd_trans) = FALSE THEN
154: Fnd_Message.Set_Name('IGS', v_message_name);
155: Igs_Ge_Msg_Stack.Add;
156: App_Exception.Raise_Exception;
157: END IF;
158: END IF;
159: -- On update, the granting status cannot be set to 'Granted' from anything
160: -- other than 'Approved'.
163: (old_references.s_adv_stnd_granting_status <> new_references.s_adv_stnd_granting_status) THEN
164: IF old_references.s_adv_stnd_granting_status = 'REVOKED' THEN
165: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_REVOKED_APPROVED');
166: Igs_Ge_Msg_Stack.Add;
167: App_Exception.Raise_Exception;
168: ELSIF old_references.s_adv_stnd_granting_status = 'CANCELLED' THEN
169: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_CANCELLED_APPROVED');
170: Igs_Ge_Msg_Stack.Add;
171: App_Exception.Raise_Exception;
167: App_Exception.Raise_Exception;
168: ELSIF old_references.s_adv_stnd_granting_status = 'CANCELLED' THEN
169: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_CANCELLED_APPROVED');
170: Igs_Ge_Msg_Stack.Add;
171: App_Exception.Raise_Exception;
172: ELSIF old_references.s_adv_stnd_granting_status = 'EXPIRED' THEN
173: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_EXPIRED_APPROVED');
174: Igs_Ge_Msg_Stack.Add;
175: App_Exception.Raise_Exception;
171: App_Exception.Raise_Exception;
172: ELSIF old_references.s_adv_stnd_granting_status = 'EXPIRED' THEN
173: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_EXPIRED_APPROVED');
174: Igs_Ge_Msg_Stack.Add;
175: App_Exception.Raise_Exception;
176: END IF;
177: END IF;
178: -- Validate Advanced Standing Unit Level Granted Date
179: IF (new_references.granted_dt IS NOT NULL) AND
186: v_message_name,
187: p_adv_stnd_trans) = FALSE THEN
188: Fnd_Message.Set_Name('IGS', v_message_name);
189: Igs_Ge_Msg_Stack.Add;
190: App_Exception.Raise_Exception;
191: END IF;
192: END IF;
193: -- Validate expiry date is greater than current date.
194: IF (new_references.expiry_dt IS NOT NULL) AND
200: v_message_name,
201: p_adv_stnd_trans) = FALSE THEN
202: Fnd_Message.Set_Name('IGS', v_message_name);
203: Igs_Ge_Msg_Stack.Add;
204: App_Exception.Raise_Exception;
205: END IF;
206: END IF;
207: -- Validate Advanced Standing Unit Level Cancelled Date
208: IF (new_references.cancelled_dt IS NOT NULL) AND
214: 'CANCELLED',
215: v_message_name) = FALSE THEN
216: Fnd_Message.Set_Name('IGS', v_message_name);
217: Igs_Ge_Msg_Stack.Add;
218: App_Exception.Raise_Exception;
219: END IF;
220: IF igs_av_val_asu.advp_val_as_aprvd_dt (
221: new_references.approved_dt,
222: new_references.cancelled_dt,
222: new_references.cancelled_dt,
223: v_message_name) = FALSE THEN
224: Fnd_Message.Set_Name('IGS', v_message_name);
225: Igs_Ge_Msg_Stack.Add;
226: App_Exception.Raise_Exception;
227: END IF;
228: END IF;
229: -- Validate Advanced Standing Unit Level Revoked Date
230: IF (new_references.revoked_dt IS NOT NULL) AND
236: 'REVOKED',
237: v_message_name) = FALSE THEN
238: Fnd_Message.Set_Name('IGS', v_message_name);
239: Igs_Ge_Msg_Stack.Add;
240: App_Exception.Raise_Exception;
241: END IF;
242: IF igs_av_val_asu.advp_val_as_aprvd_dt (
243: new_references.approved_dt,
244: new_references.revoked_dt,
244: new_references.revoked_dt,
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;
251: -- Validate that related date is set for the granting status.
252: IF p_inserting OR (p_updating AND (new_references.s_adv_stnd_granting_status <>
259: p_adv_stnd_trans
260: ) = 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: ELSIF new_references.s_adv_stnd_granting_status = 'REVOKED' THEN
266: IF igs_av_val_asu.advp_val_status_dts (
267: 'REVOKED',
269: v_message_name
270: ) = FALSE THEN
271: Fnd_Message.Set_Name('IGS', v_message_name);
272: Igs_Ge_Msg_Stack.Add;
273: App_Exception.Raise_Exception;
274: END IF;
275: ELSIF new_references.s_adv_stnd_granting_status = 'CANCELLED' THEN
276: IF igs_av_val_asu.advp_val_status_dts (
277: 'CANCELLED',
279: v_message_name
280: ) = FALSE THEN
281: Fnd_Message.Set_Name('IGS', v_message_name);
282: Igs_Ge_Msg_Stack.Add;
283: App_Exception.Raise_Exception;
284: END IF;
285: ELSIF new_references.s_adv_stnd_granting_status = 'EXPIRED' THEN
286: IF igs_av_val_asu.advp_val_status_dts (
287: 'EXPIRED',
289: v_message_name
290: ) = FALSE THEN
291: Fnd_Message.Set_Name('IGS', v_message_name);
292: Igs_Ge_Msg_Stack.Add;
293: App_Exception.Raise_Exception;
294: END IF;
295: ELSIF new_references.s_adv_stnd_granting_status = 'APPROVED' THEN
296: IF igs_av_val_asu.advp_val_status_dts (
297: 'APPROVED',
300: p_adv_stnd_trans
301: ) = FALSE THEN
302: Fnd_Message.Set_Name('IGS', v_message_name);
303: Igs_Ge_Msg_Stack.Add;
304: App_Exception.Raise_Exception;
305: END IF;
306: END IF;
307: END IF;
308: -- Validate Advanced Standing Unit Level Authorising Person Id.
315: new_references.authorising_person_id,
316: v_message_name) = FALSE THEN
317: Fnd_Message.Set_Name('IGS', v_message_name);
318: Igs_Ge_Msg_Stack.Add;
319: App_Exception.Raise_Exception;
320: END IF;
321: IF igs_ad_val_acai.genp_val_staff_prsn (
322: new_references.authorising_person_id,
323: v_message_name) = FALSE THEN
322: new_references.authorising_person_id,
323: v_message_name) = FALSE THEN
324: Fnd_Message.Set_Name('IGS', v_message_name);
325: Igs_Ge_Msg_Stack.Add;
326: App_Exception.Raise_Exception;
327: END IF;
328: END IF;
329: END IF;
330: --
339: new_references.granted_dt,
340: v_message_name) = FALSE THEN
341: Fnd_Message.Set_Name('IGS', v_message_name);
342: Igs_Ge_Msg_Stack.Add;
343: App_Exception.Raise_Exception;
344: END IF;
345: END IF;
346: -- Validate that exemption institution code is valid.
347: IF p_inserting OR (p_updating AND (new_references.exemption_institution_cd <>
350: new_references.exemption_institution_cd,
351: v_message_name) = FALSE THEN
352: Fnd_Message.Set_Name('IGS', v_message_name);
353: Igs_Ge_Msg_Stack.Add;
354: App_Exception.Raise_Exception;
355: END IF;
356: END IF;
357: -- Store column values to update Advanced Standing in AS trigger.
358: IF p_inserting OR p_updating THEN
373: v_message_name,
374: v_exemption_institution_cd) = FALSE THEN
375: Fnd_Message.Set_Name('IGS', v_message_name);
376: Igs_Ge_Msg_Stack.Add;
377: App_Exception.Raise_Exception;
378: END IF;
379: -- Process any advanced standing to do records
380: IF p_inserting THEN
381: igs_pr_gen_003.igs_pr_ins_adv_todo (
448: v_message_name,
449: new_references.exemption_institution_cd) = FALSE THEN
450: Fnd_Message.Set_Name('IGS', v_message_name);
451: IGS_GE_MSG_STACK.ADD;
452: App_Exception.Raise_Exception;
453: END IF;
454: ELSE
455: IF IGS_AV_GEN_001.ADVP_UPD_AS_TOTALS (
456: old_references.person_id,
459: v_message_name,
460: old_references.exemption_institution_cd) = FALSE THEN
461: Fnd_Message.Set_Name('IGS', v_message_name);
462: IGS_GE_MSG_STACK.ADD;
463: App_Exception.Raise_Exception;
464: END IF;
465: END IF;
466: END AfterRowInsertUpdateDelete2;
467:
502: IF new_references.S_ADV_STND_TYPE <>
503: UPPER(new_references.S_ADV_STND_TYPE) Then
504: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
505: Igs_Ge_Msg_Stack.Add;
506: App_Exception.Raise_Exception;
507: END IF;
508: END IF;
509: IF upper(column_name) = 'UNIT_LEVEL' OR
510: column_name is null Then
511: IF new_references.UNIT_LEVEL <>
512: UPPER(new_references.UNIT_LEVEL) Then
513: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
514: Igs_Ge_Msg_Stack.Add;
515: App_Exception.Raise_Exception;
516: END IF;
517: END IF;
518: IF upper(column_name) = 'AS_COURSE_CD' OR
519: column_name is null Then
520: IF new_references.AS_COURSE_CD <>
521: UPPER(new_references.AS_COURSE_CD) Then
522: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
523: Igs_Ge_Msg_Stack.Add;
524: App_Exception.Raise_Exception;
525: END IF;
526: END IF;
527: IF upper(column_name) = 'S_ADV_STND_GRANTING_STATUS' OR
528: column_name is null Then
529: IF new_references.S_ADV_STND_GRANTING_STATUS <>
530: UPPER(new_references.S_ADV_STND_GRANTING_STATUS) Then
531: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
532: Igs_Ge_Msg_Stack.Add;
533: App_Exception.Raise_Exception;
534: END IF;
535: END IF;
536: IF upper(column_name) = 'CRS_GROUP_IND' OR
537: column_name is null Then
538: IF new_references.crs_group_ind <>
539: UPPER(new_references.crs_group_ind) Then
540: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
541: Igs_Ge_Msg_Stack.Add;
542: App_Exception.Raise_Exception;
543: END IF;
544: END IF;
545:
546: IF upper(column_name) = 'CREDIT_POINTS' OR
550: IF new_references.credit_points < 0 OR
551: new_references.credit_points > 999.999 Then
552: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
553: Igs_Ge_Msg_Stack.Add;
554: App_Exception.Raise_Exception;
555: END IF;
556: END IF;
557:
558: IF upper(column_name) = 'UNIT_LEVEL_MARK' OR
560: IF new_references.unit_level_mark < 0 OR
561: new_references.unit_level_mark > 100.000 Then
562: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
563: Igs_Ge_Msg_Stack.Add;
564: App_Exception.Raise_Exception;
565: END IF;
566: END IF;
567:
568: IF upper(column_name) = 'CRS_GROUP_IND' OR
569: column_name is null Then
570: IF (new_references.crs_group_ind not in ('Y', 'N')) Then
571: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
572: Igs_Ge_Msg_Stack.Add;
573: App_Exception.Raise_Exception;
574: END IF;
575: END IF;
576: IF upper(column_name) = 'S_ADV_STND_TYPE' OR
577: column_name is null Then
577: column_name is null Then
578: IF (new_references.s_adv_stnd_type <> 'LEVEL') Then
579: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
580: Igs_Ge_Msg_Stack.Add;
581: App_Exception.Raise_Exception;
582: END IF;
583: END IF;
584:
585: -- Start of addition for Bug no. 1960126
587: IF (new_references.institution_cd IS NOT NULL) AND
588: (new_references.unit_details_id IS NULL AND new_references.QUAL_DETS_ID IS NULL ) 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:
594: IF (new_references.institution_cd IS NULL AND
595: new_references.tst_rslt_dtls_id IS NULL) THEN
594: IF (new_references.institution_cd IS NULL AND
595: new_references.tst_rslt_dtls_id IS NULL) THEN
596: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
597: Igs_Ge_Msg_Stack.Add;
598: App_Exception.Raise_Exception;
599: END IF;
600:
601: --Added qual_dets_id in if condition w.r.t. ARCR032 CCR
602: IF ((new_references.unit_details_id IS NULL AND new_references.tst_rslt_dtls_id IS NULL AND new_references.qual_dets_id IS NULL)
607:
608: ) THEN
609: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
610: Igs_Ge_Msg_Stack.Add;
611: App_Exception.Raise_Exception;
612: END IF;
613:
614:
615: IF upper(column_name) = 'CAL_TYPE' OR
616: column_name is null THEN
617: IF (new_references.cal_type IS NULL) THEN
618: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
619: Igs_Ge_Msg_Stack.Add;
620: App_Exception.Raise_Exception;
621: END IF;
622: END IF;
623:
624: IF upper(column_name) = 'CI_SEQUENCE_NUMBER' OR
625: column_name is null THEN
626: IF (new_references.CI_SEQUENCE_NUMBER IS NULL) THEN
627: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
628: Igs_Ge_Msg_Stack.Add;
629: App_Exception.Raise_Exception;
630: END IF;
631: END IF;
632: -- End of addition for Bug no. 1960126
633:
659: new_references.crs_group_ind
660: ) THEN
661: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
662: IGS_GE_MSG_STACK.ADD;
663: app_exception.raise_exception;
664: END IF;
665: END Check_Uniqueness ;
666:
667: PROCEDURE Check_Parent_Existance AS
681: new_references.exemption_institution_cd
682: ) THEN
683: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
684: Igs_Ge_Msg_Stack.Add;
685: App_Exception.Raise_Exception;
686: END IF;
687: END IF;
688: --Added If condition as part of ARCR032 CCR(Enh bug no:2233334)
689: IF ( (old_references.qual_dets_id = new_references.qual_dets_id) OR
703: FOR rec_exists IN c_exists
704: LOOP
705:
706: EXECUTE IMMEDIATE
707: 'BEGIN IF NOT IGS_UC_QUAL_DETS_PKG.Get_PK_For_Validation(:1) THEN Fnd_Message.Set_Name (''FND'', ''FORM_RECORD_DELETED''); Igs_Ge_Msg_Stack.Add; App_Exception.Raise_Exception; END IF; END;'
708: USING
709: new_references.qual_dets_id;
710:
711: END LOOP;
720: new_references.authorising_person_id
721: ) THEN
722: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
723: Igs_Ge_Msg_Stack.Add;
724: App_Exception.Raise_Exception;
725: END IF;
726: END IF;
727: IF (((old_references.s_adv_stnd_granting_status = new_references.s_adv_stnd_granting_status)) OR
728: ((new_references.s_adv_stnd_granting_status IS NULL))) THEN
733: new_references.s_adv_stnd_granting_status
734: ) THEN
735: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
736: Igs_Ge_Msg_Stack.Add;
737: App_Exception.Raise_Exception;
738: END IF;
739: END IF;
740: IF (((old_references.UNIT_LEVEL = new_references.UNIT_LEVEL)) OR
741: ((new_references.UNIT_LEVEL IS NULL))) THEN
745: new_references.UNIT_LEVEL
746: ) THEN
747: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
748: Igs_Ge_Msg_Stack.Add;
749: App_Exception.Raise_Exception;
750: END IF;
751: END IF;
752:
753: -- Added for Bug no. 1960126
760: IF NOT IGS_CA_INST_PKG.Get_PK_For_Validation (new_references.cal_type,
761: new_references.ci_sequence_number) THEN
762: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
763: Igs_Ge_Msg_Stack.Add;
764: App_Exception.Raise_Exception;
765: END IF;
766: END IF;
767:
768: END Check_Parent_Existance;
874: IF (cur_rowid%FOUND) THEN
875: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_AS_FK');
876: Igs_Ge_Msg_Stack.Add;
877: Close cur_rowid;
878: App_Exception.Raise_Exception;
879: Return;
880: END IF;
881: Close cur_rowid;
882: END GET_FK_IGS_AV_ADV_STANDING;
898: IF (cur_rowid%FOUND) THEN
899: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_PE_FK');
900: Igs_Ge_Msg_Stack.Add;
901: Close cur_rowid;
902: App_Exception.Raise_Exception;
903: Return;
904: END IF;
905: Close cur_rowid;
906: END GET_FK_IGS_PE_PERSON;
919: IF (cur_rowid%FOUND) THEN
920: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_SLV_FK');
921: Igs_Ge_Msg_Stack.Add;
922: Close cur_rowid;
923: App_Exception.Raise_Exception;
924: Return;
925: END IF;
926: Close cur_rowid;
927: END GET_FK_IGS_LOOKUPS_VIEW;
944: IF (cur_rowid%FOUND) THEN
945: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_CI_FK');
946: Igs_Ge_Msg_Stack.Add;
947: Close cur_rowid;
948: App_Exception.Raise_Exception;
949: Return;
950: END IF;
951: Close cur_rowid;
952: END GET_FK_IGS_CA_INST;
966: IF (cur_rowid%FOUND) THEN
967: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_UCQD_FK');
968: Igs_Ge_Msg_Stack.Add;
969: Close cur_rowid;
970: App_Exception.Raise_Exception;
971: Return;
972: END IF;
973: Close cur_rowid;
974: END GET_FK_IGS_UC_QUAL_DETS;
988: IF (cur_rowid%FOUND) THEN
989: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_TUD_FK');
990: Igs_Ge_Msg_Stack.Add;
991: Close cur_rowid;
992: App_Exception.Raise_Exception;
993: Return;
994: END IF;
995: Close cur_rowid;
996: END get_fk_igs_ad_term_unitdtls;
1009: IF (cur_rowid%FOUND) THEN
1010: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULE_TRD_FK');
1011: Igs_Ge_Msg_Stack.Add;
1012: Close cur_rowid;
1013: App_Exception.Raise_Exception;
1014: Return;
1015: END IF;
1016: Close cur_rowid;
1017: END get_fk_igs_ad_tst_rslt_dtls;
1102: new_references.av_stnd_unit_lvl_id
1103: ) THEN
1104: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1105: Igs_Ge_Msg_Stack.Add;
1106: App_Exception.Raise_Exception;
1107: END IF;
1108: check_uniqueness;
1109: Check_Constraints;
1110: Check_Parent_Existance;
1130: new_references.av_stnd_unit_lvl_id
1131: ) THEN
1132: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1133: Igs_Ge_Msg_Stack.Add;
1134: App_Exception.Raise_Exception;
1135: END IF;
1136: check_uniqueness;
1137: Check_Constraints;
1138: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
1235: end if ;
1236: else
1237: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1238: Igs_Ge_Msg_Stack.Add;
1239: app_exception.raise_exception;
1240: end if;
1241: select IGS_AV_STND_UNIT_LVL_S.NEXTVAL INTO x_av_stnd_unit_lvl_id FROM DUAL;
1242: Before_DML(
1243: p_action=>'INSERT',
1374: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1375: fnd_message.set_token ('ERR_CD', SQLCODE);
1376: igs_ge_msg_stack.add;
1377: igs_sc_gen_001.unset_ctx('R');
1378: app_exception.raise_exception;
1379: ELSE
1380: igs_sc_gen_001.unset_ctx('R');
1381: RAISE;
1382: END IF;
1440: if (c1%notfound) then
1441: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1442: Igs_Ge_Msg_Stack.Add;
1443: close c1;
1444: app_exception.raise_exception;
1445: return;
1446: end if;
1447: close c1;
1448: if ( (tlinfo.S_ADV_STND_GRANTING_STATUS = X_S_ADV_STND_GRANTING_STATUS)
1492: null;
1493: else
1494: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1495: Igs_Ge_Msg_Stack.Add;
1496: app_exception.raise_exception;
1497: end if;
1498: return;
1499: end LOCK_ROW;
1500:
1551: end if;
1552: else
1553: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1554: Igs_Ge_Msg_Stack.Add;
1555: app_exception.raise_exception;
1556: end if;
1557:
1558: Before_DML(
1559: p_action=>'UPDATE',
1635: if (sql%notfound) then
1636: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1637: igs_ge_msg_stack.add;
1638: igs_sc_gen_001.unset_ctx('R');
1639: app_exception.raise_exception;
1640: end if;
1641: IF (x_mode = 'S') THEN
1642: igs_sc_gen_001.unset_ctx('R');
1643: END IF;
1652: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1653: fnd_message.set_token ('ERR_CD', SQLCODE);
1654: igs_ge_msg_stack.add;
1655: igs_sc_gen_001.unset_ctx('R');
1656: app_exception.raise_exception;
1657: ELSE
1658: igs_sc_gen_001.unset_ctx('R');
1659: RAISE;
1660: END IF;
1782: if (sql%notfound) then
1783: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1784: igs_ge_msg_stack.add;
1785: igs_sc_gen_001.unset_ctx('R');
1786: app_exception.raise_exception;
1787: end if;
1788: IF (x_mode = 'S') THEN
1789: igs_sc_gen_001.unset_ctx('R');
1790: END IF;