[Home] [Help]
53: -- Populate Old Values.
54: Open cur_old_ref_values;
55: Fetch cur_old_ref_values INTO old_references;
56: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
57: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
58: Igs_Ge_Msg_Stack.Add;
59: Close cur_old_ref_values;
60: App_Exception.Raise_Exception;
61: Return;
126: BEGIN
127: -- Validate conditions on insert (these apply to the trigger only).
128: IF p_inserting THEN
129: IF new_references.s_adv_stnd_type <> 'UNIT' THEN
130: Fnd_Message.Set_Name('IGS','IGS_AV_TYPE_MUSTBE_UNIT');
131: Igs_Ge_Msg_Stack.Add;
132: App_Exception.Raise_Exception;
133: END IF;
134: IF (new_references.s_adv_stnd_granting_status <> 'APPROVED' AND
132: App_Exception.Raise_Exception;
133: END IF;
134: IF (new_references.s_adv_stnd_granting_status <> 'APPROVED' AND
135: p_adv_stnd_trans = 'N') THEN
136: Fnd_Message.Set_Name('IGS','IGS_AV_STATUS_MUSTBE_APPROVED');
137: Igs_Ge_Msg_Stack.Add;
138: App_Exception.Raise_Exception;
139: END IF;
140: END IF;
145: IF igs_av_val_asu.advp_val_asrt_closed (
146: new_references.s_adv_stnd_recognition_type,
147: v_message_name
148: ) = FALSE THEN
149: Fnd_Message.Set_Name('IGS', v_message_name);
150: Igs_Ge_Msg_Stack.Add;
151: App_Exception.Raise_Exception;
152: END IF;
153: END IF;
161: 'APPROVED',
162: v_message_name,
163: p_adv_stnd_trans
164: ) = FALSE THEN
165: Fnd_Message.Set_Name('IGS', v_message_name);
166: Igs_Ge_Msg_Stack.Add;
167: App_Exception.Raise_Exception;
168: END IF;
169: END IF;
172: IF p_updating AND
173: (new_references.s_adv_stnd_granting_status = 'GRANTED') AND
174: (old_references.s_adv_stnd_granting_status <> new_references.s_adv_stnd_granting_status) THEN
175: IF old_references.s_adv_stnd_granting_status = 'REVOKED' THEN
176: Fnd_Message.Set_Name('IGS','IGS_AV_CHG_REVOKED_APPROVED');
177: Igs_Ge_Msg_Stack.Add;
178: App_Exception.Raise_Exception;
179: ELSIF old_references.s_adv_stnd_granting_status = 'CANCELLED' THEN
180: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_CANCELLED_APPROVED');
176: Fnd_Message.Set_Name('IGS','IGS_AV_CHG_REVOKED_APPROVED');
177: Igs_Ge_Msg_Stack.Add;
178: App_Exception.Raise_Exception;
179: ELSIF old_references.s_adv_stnd_granting_status = 'CANCELLED' THEN
180: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_CANCELLED_APPROVED');
181: Igs_Ge_Msg_Stack.Add;
182: App_Exception.Raise_Exception;
183: ELSIF old_references.s_adv_stnd_granting_status = 'EXPIRED' THEN
184: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_EXPIRED_APPROVED');
180: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_CANCELLED_APPROVED');
181: Igs_Ge_Msg_Stack.Add;
182: App_Exception.Raise_Exception;
183: ELSIF old_references.s_adv_stnd_granting_status = 'EXPIRED' THEN
184: Fnd_Message.Set_Name('IGS', 'IGS_AV_CHG_EXPIRED_APPROVED');
185: Igs_Ge_Msg_Stack.Add;
186: App_Exception.Raise_Exception;
187: END IF;
188: END IF;
196: 'GRANTED',
197: v_message_name,
198: p_adv_stnd_trans
199: ) = FALSE THEN
200: Fnd_Message.Set_Name('IGS', v_message_name);
201: Igs_Ge_Msg_Stack.Add;
202: App_Exception.Raise_Exception;
203: END IF;
204: END IF;
211: new_references.expiry_dt,
212: v_message_name,
213: p_adv_stnd_trans
214: ) = FALSE THEN
215: Fnd_Message.Set_Name('IGS', v_message_name);
216: Igs_Ge_Msg_Stack.Add;
217: App_Exception.Raise_Exception;
218: END IF;
219: END IF;
226: new_references.cancelled_dt,
227: 'CANCELLED',
228: v_message_name
229: ) = FALSE THEN
230: Fnd_Message.Set_Name('IGS', v_message_name);
231: Igs_Ge_Msg_Stack.Add;
232: App_Exception.Raise_Exception;
233: END IF;
234: IF igs_av_val_asu.advp_val_as_aprvd_dt (
235: new_references.approved_dt,
236: new_references.cancelled_dt,
237: v_message_name
238: ) = FALSE THEN
239: Fnd_Message.Set_Name('IGS', v_message_name);
240: Igs_Ge_Msg_Stack.Add;
241: App_Exception.Raise_Exception;
242: END IF;
243: END IF;
250: new_references.revoked_dt,
251: 'REVOKED',
252: v_message_name
253: ) = FALSE THEN
254: Fnd_Message.Set_Name('IGS', v_message_name);
255: Igs_Ge_Msg_Stack.Add;
256: App_Exception.Raise_Exception;
257: END IF;
258: IF igs_av_val_asu.advp_val_as_aprvd_dt (
259: new_references.approved_dt,
260: new_references.revoked_dt,
261: v_message_name
262: ) = FALSE THEN
263: Fnd_Message.Set_Name('IGS', v_message_name);
264: Igs_Ge_Msg_Stack.Add;
265: App_Exception.Raise_Exception;
266: END IF;
267: END IF;
274: new_references.granted_dt,
275: v_message_name,
276: p_adv_stnd_trans
277: ) = FALSE THEN
278: Fnd_Message.Set_Name('IGS', v_message_name);
279: Igs_Ge_Msg_Stack.Add;
280: App_Exception.Raise_Exception;
281: END IF;
282: ELSIF new_references.s_adv_stnd_granting_status = 'REVOKED' THEN
284: 'REVOKED',
285: new_references.revoked_dt,
286: v_message_name
287: ) = FALSE THEN
288: Fnd_Message.Set_Name('IGS', v_message_name);
289: Igs_Ge_Msg_Stack.Add;
290: App_Exception.Raise_Exception;
291: END IF;
292: ELSIF new_references.s_adv_stnd_granting_status = 'CANCELLED' THEN
294: 'CANCELLED',
295: new_references.cancelled_dt,
296: v_message_name
297: ) = FALSE THEN
298: Fnd_Message.Set_Name('IGS', v_message_name);
299: Igs_Ge_Msg_Stack.Add;
300: App_Exception.Raise_Exception;
301: END IF;
302: ELSIF new_references.s_adv_stnd_granting_status = 'EXPIRED' THEN
304: 'EXPIRED',
305: new_references.expiry_dt,
306: v_message_name
307: ) = FALSE THEN
308: Fnd_Message.Set_Name('IGS', v_message_name);
309: Igs_Ge_Msg_Stack.Add;
310: App_Exception.Raise_Exception;
311: END IF;
312: ELSIF new_references.s_adv_stnd_granting_status = 'APPROVED' THEN
315: new_references.approved_dt,
316: v_message_name,
317: p_adv_stnd_trans
318: ) = FALSE THEN
319: Fnd_Message.Set_Name('IGS', v_message_name);
320: Igs_Ge_Msg_Stack.Add;
321: App_Exception.Raise_Exception;
322: END IF;
323: END IF;
330: (p_updating AND (new_references.authorising_person_id <> old_references.authorising_person_id)) THEN
331: IF igs_co_val_oc.genp_val_prsn_id (
332: new_references.authorising_person_id,
333: v_message_name) = FALSE THEN
334: Fnd_Message.Set_Name('IGS', v_message_name);
335: Igs_Ge_Msg_Stack.Add;
336: App_Exception.Raise_Exception;
337: END IF;
338: IF igs_ad_val_acai.genp_val_staff_prsn (
337: END IF;
338: IF igs_ad_val_acai.genp_val_staff_prsn (
339: new_references.authorising_person_id,
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;
353: new_references.person_id,
354: new_references.as_course_cd,
355: new_references.granted_dt,
356: v_message_name) = FALSE THEN
357: Fnd_Message.Set_Name('IGS', v_message_name);
358: Igs_Ge_Msg_Stack.Add;
359: App_Exception.Raise_Exception;
360: END IF;
361: END IF;
364: old_references.exemption_institution_cd)) THEN
365: IF igs_av_val_asu.advp_val_asu_inst (
366: new_references.exemption_institution_cd,
367: v_message_name) = FALSE THEN
368: Fnd_Message.Set_Name('IGS', v_message_name);
369: Igs_Ge_Msg_Stack.Add;
370: App_Exception.Raise_Exception;
371: END IF;
372: END IF;
385: v_course_cd,
386: v_version_number,
387: v_message_name,
388: v_exemption_institution_cd) = FALSE THEN
389: Fnd_Message.Set_Name('IGS', v_message_name);
390: Igs_Ge_Msg_Stack.Add;
391: App_Exception.Raise_Exception;
392: END IF;
393: -- Insert todo entry for re-checking of unit rules if a granted unit has has
500: new_references.as_course_cd,
501: new_references.as_version_number,
502: v_message_name,
503: new_references.exemption_institution_cd) = FALSE THEN
504: Fnd_Message.Set_Name('IGS', v_message_name);
505: IGS_GE_MSG_STACK.ADD;
506: App_Exception.Raise_Exception;
507: END IF;
508: ELSE
511: old_references.as_course_cd,
512: old_references.as_version_number,
513: v_message_name,
514: old_references.exemption_institution_cd) = FALSE THEN
515: Fnd_Message.Set_Name('IGS', v_message_name);
516: IGS_GE_MSG_STACK.ADD;
517: App_Exception.Raise_Exception;
518: END IF;
519: END IF;
552: IF upper(column_name) = 'AS_COURSE_CD' OR
553: column_name is null Then
554: IF new_references.AS_COURSE_CD <>
555: UPPER(new_references.AS_COURSE_CD) Then
556: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
557: Igs_Ge_Msg_Stack.Add;
558: App_Exception.Raise_Exception;
559: END IF;
560: END IF;
562: IF upper(column_name) = 'S_ADV_STND_GRANTING_STATUS' OR
563: column_name is null Then
564: IF new_references.S_ADV_STND_GRANTING_STATUS <>
565: UPPER(new_references.S_ADV_STND_GRANTING_STATUS) Then
566: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
567: Igs_Ge_Msg_Stack.Add;
568: App_Exception.Raise_Exception;
569: END IF;
570: END IF;
571: IF upper(column_name) = 'S_ADV_STND_RECOGNITION_TYPE' OR
572: column_name is null Then
573: IF new_references.S_ADV_STND_RECOGNITION_TYPE <>
574: UPPER(new_references.S_ADV_STND_RECOGNITION_TYPE) Then
575: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
576: Igs_Ge_Msg_Stack.Add;
577: App_Exception.Raise_Exception;
578: END IF;
579: END IF;
580: IF upper(column_name) = 'S_ADV_STND_TYPE' OR
581: column_name is null Then
582: IF new_references.S_ADV_STND_TYPE <>
583: UPPER(new_references.S_ADV_STND_TYPE) Then
584: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
585: Igs_Ge_Msg_Stack.Add;
586: App_Exception.Raise_Exception;
587: END IF;
588: END IF;
589: IF upper(column_name) = 'UNIT_CD' OR
590: column_name is null Then
591: IF new_references.UNIT_CD <>
592: UPPER(new_references.UNIT_CD) Then
593: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
594: Igs_Ge_Msg_Stack.Add;
595: App_Exception.Raise_Exception;
596: END IF;
597: END IF;
598: IF upper(column_name) = 'CRS_GROUP_IND' OR
599: column_name is null Then
600: IF new_references.CRS_GROUP_IND <>
601: UPPER(new_references.CRS_GROUP_IND) Then
602: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
603: Igs_Ge_Msg_Stack.Add;
604: App_Exception.Raise_Exception;
605: END IF;
606: END IF;
606: END IF;
607: IF upper(column_name) = 'CRS_GROUP_IND' OR
608: column_name is null Then
609: IF (new_references.crs_group_ind not in ('Y', 'N')) Then
610: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
611: Igs_Ge_Msg_Stack.Add;
612: App_Exception.Raise_Exception;
613: END IF;
614: END IF;
614: END IF;
615: IF upper(column_name) = 'S_ADV_STND_TYPE' OR
616: column_name is null Then
617: IF (new_references.s_adv_stnd_type <> 'UNIT') 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;
624: --Start addition for Bug no. 1960126
625: IF column_name IS NULL THEN
626: IF (new_references.institution_cd IS NOT NULL AND
627: new_references.unit_details_id IS NULL ) THEN
628: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
629: Igs_Ge_Msg_Stack.Add;
630: App_Exception.Raise_Exception;
631: END IF;
632: IF (new_references.institution_cd IS NULL AND
630: App_Exception.Raise_Exception;
631: END IF;
632: IF (new_references.institution_cd IS NULL AND
633: new_references.tst_rslt_dtls_id IS NULL) THEN
634: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
635: Igs_Ge_Msg_Stack.Add;
636: App_Exception.Raise_Exception;
637: END IF;
638:
639: IF ((new_references.unit_details_id IS NULL AND
640: new_references.tst_rslt_dtls_id IS NULL) OR
641: (new_references.unit_details_id IS NOT NULL AND
642: new_references.tst_rslt_dtls_id IS NOT NULL)) THEN
643: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
644: Igs_Ge_Msg_Stack.Add;
645: App_Exception.Raise_Exception;
646: END IF;
647: END IF;
649:
650: IF upper(column_name) = 'CAL_TYPE' OR
651: column_name is null THEN
652: IF (new_references.cal_type IS NULL) THEN
653: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
654: Igs_Ge_Msg_Stack.Add;
655: App_Exception.Raise_Exception;
656: END IF;
657: END IF;
659:
660: IF upper(column_name) = 'CI_SEQUENCE_NUMBER' OR
661: column_name is null THEN
662: IF (new_references.CI_SEQUENCE_NUMBER IS NULL) THEN
663: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
664: Igs_Ge_Msg_Stack.Add;
665: App_Exception.Raise_Exception;
666: END IF;
667: END IF;
680: ELSE
681: --
682: IF NOT IGS_LOOKUPS_VIEW_Pkg.Get_PK_For_Validation ('ADV_STND_RECOGNITION_TYPE',
683: new_references.s_adv_stnd_recognition_type) THEN
684: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
685: Igs_Ge_Msg_Stack.Add;
686: App_Exception.Raise_Exception;
687: END IF;
688: END IF;
696: ELSE
697: IF NOT IGS_AV_ADV_STANDING_PKG.Get_PK_For_Validation (new_references.person_id,
698: new_references.as_course_cd, new_references.as_version_number,
699: new_references.exemption_institution_cd) THEN
700: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
701: Igs_Ge_Msg_Stack.Add;
702: App_Exception.Raise_Exception;
703: END IF;
704: END IF;
706: ((new_references.authorising_person_id IS NULL))) THEN
707: NULL;
708: ELSE
709: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (new_references.authorising_person_id) THEN
710: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
711: Igs_Ge_Msg_Stack.Add;
712: App_Exception.Raise_Exception;
713: END IF;
714: END IF;
717: NULL;
718: ELSE
719: IF NOT IGS_LOOKUPS_VIEW_Pkg.Get_PK_For_Validation ('ADV_STND_GRANTING_STATUS',
720: new_references.s_adv_stnd_granting_status) THEN
721: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
722: Igs_Ge_Msg_Stack.Add;
723: App_Exception.Raise_Exception;
724: END IF;
725: END IF;
729: (new_references.version_number IS NULL))) THEN
730: NULL;
731: ELSE
732: IF NOT IGS_PS_UNIT_VER_PKG.Get_PK_For_Validation (new_references.unit_cd, new_references.version_number) THEN
733: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
734: Igs_Ge_Msg_Stack.Add;
735: App_Exception.Raise_Exception;
736: END IF;
737: END IF;
745: NULL;
746: ELSE
747: IF NOT IGS_CA_INST_PKG.Get_PK_For_Validation (new_references.cal_type,
748: new_references.ci_sequence_number) THEN
749: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
750: Igs_Ge_Msg_Stack.Add;
751: App_Exception.Raise_Exception;
752: END IF;
753: END IF;
762: ELSE
763: IF NOT IGS_AS_GRD_SCH_GRADE_PKG.Get_PK_For_Validation (new_references.grading_schema_cd,
764: new_references.grd_sch_version_number,
765: new_references.grade ) THEN
766: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
767: Igs_Ge_Msg_Stack.Add;
768: App_Exception.Raise_Exception;
769: END IF;
770: END IF;
796: new_references.version_number,
797: new_references.s_adv_stnd_type
798:
799: ) THEN
800: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
801: IGS_GE_MSG_STACK.ADD;
802: app_exception.raise_exception;
803: END IF;
804: END Check_Uniqueness ;
899: BEGIN
900: Open cur_rowid;
901: Fetch cur_rowid INTO lv_rowid;
902: IF (cur_rowid%FOUND) THEN
903: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASU_SLV_FK');
904: Igs_Ge_Msg_Stack.Add;
905: Close cur_rowid;
906: App_Exception.Raise_Exception;
907: Return;
926: BEGIN
927: Open cur_rowid;
928: Fetch cur_rowid INTO lv_rowid;
929: IF (cur_rowid%FOUND) THEN
930: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASU_AS_FK');
931: Igs_Ge_Msg_Stack.Add;
932: Close cur_rowid;
933: App_Exception.Raise_Exception;
934: Return;
948: BEGIN
949: Open cur_rowid;
950: Fetch cur_rowid INTO l_rowid;
951: IF (cur_rowid%FOUND) THEN
952: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASU_TUD_FK');
953: Igs_Ge_Msg_Stack.Add;
954: Close cur_rowid;
955: App_Exception.Raise_Exception;
956: Return;
969: BEGIN
970: Open cur_rowid;
971: Fetch cur_rowid INTO l_rowid;
972: IF (cur_rowid%FOUND) THEN
973: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASU_TRD_FK');
974: Igs_Ge_Msg_Stack.Add;
975: Close cur_rowid;
976: App_Exception.Raise_Exception;
977: Return;
991: BEGIN
992: Open cur_rowid;
993: Fetch cur_rowid INTO lv_rowid;
994: IF (cur_rowid%FOUND) THEN
995: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASU_PE_FK');
996: Igs_Ge_Msg_Stack.Add;
997: Close cur_rowid;
998: App_Exception.Raise_Exception;
999: Return;
1012: BEGIN
1013: Open cur_rowid;
1014: Fetch cur_rowid INTO lv_rowid;
1015: IF (cur_rowid%FOUND) THEN
1016: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASU_SLV_FK');
1017: Igs_Ge_Msg_Stack.Add;
1018: Close cur_rowid;
1019: App_Exception.Raise_Exception;
1020: Return;
1035: BEGIN
1036: Open cur_rowid;
1037: Fetch cur_rowid INTO lv_rowid;
1038: IF (cur_rowid%FOUND) THEN
1039: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASU_UV_FK');
1040: Igs_Ge_Msg_Stack.Add;
1041: Close cur_rowid;
1042: App_Exception.Raise_Exception;
1043: Return;
1059: BEGIN
1060: Open cur_rowid;
1061: Fetch cur_rowid INTO lv_rowid;
1062: IF (cur_rowid%FOUND) THEN
1063: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASU_CI_FK');
1064: Igs_Ge_Msg_Stack.Add;
1065: Close cur_rowid;
1066: App_Exception.Raise_Exception;
1067: Return;
1084: BEGIN
1085: Open cur_rowid;
1086: Fetch cur_rowid INTO lv_rowid;
1087: IF (cur_rowid%FOUND) THEN
1088: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASU_GSG_FK');
1089: Igs_Ge_Msg_Stack.Add;
1090: Close cur_rowid;
1091: App_Exception.Raise_Exception;
1092: Return;
1182: ---
1183: IF Get_PK_For_Validation (
1184: new_references.av_stnd_unit_id
1185: ) THEN
1186: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1187: Igs_Ge_Msg_Stack.Add;
1188: App_Exception.Raise_Exception;
1189: END IF;
1190: ---
1205: ---
1206: IF Get_PK_For_Validation (
1207: new_references.av_stnd_unit_id
1208: ) THEN
1209: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1210: Igs_Ge_Msg_Stack.Add;
1211: App_Exception.Raise_Exception;
1212: END IF;
1213: check_uniqueness;
1316: else
1317: X_PROGRAM_UPDATE_DATE := SYSDATE ;
1318: end if ;
1319: else
1320: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1321: Igs_Ge_Msg_Stack.Add;
1322: app_exception.raise_exception;
1323: end if;
1324:
1467: );
1468: EXCEPTION
1469: WHEN OTHERS THEN
1470: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
1471: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1472: fnd_message.set_token ('ERR_CD', SQLCODE);
1473: igs_ge_msg_stack.add;
1474: igs_sc_gen_001.unset_ctx('R');
1475: app_exception.raise_exception;
1468: EXCEPTION
1469: WHEN OTHERS THEN
1470: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
1471: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1472: fnd_message.set_token ('ERR_CD', SQLCODE);
1473: igs_ge_msg_stack.add;
1474: igs_sc_gen_001.unset_ctx('R');
1475: app_exception.raise_exception;
1476: ELSE
1543: begin
1544: open c1;
1545: fetch c1 into tlinfo;
1546: if (c1%notfound) then
1547: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1548: Igs_Ge_Msg_Stack.Add;
1549: close c1;
1550: app_exception.raise_exception;
1551: return;
1575: AND ((tlinfo.DEG_AUD_DETAIL_ID = X_DEG_AUD_DETAIL_ID) OR ((tlinfo.DEG_AUD_DETAIL_ID is null) AND (X_DEG_AUD_DETAIL_ID is null)))
1576: ) then
1577: null;
1578: else
1579: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1580: Igs_Ge_Msg_Stack.Add;
1581: app_exception.raise_exception;
1582: end if;
1583: return;
1638: if X_LAST_UPDATE_LOGIN is NULL then
1639: X_LAST_UPDATE_LOGIN := -1;
1640: end if;
1641: else
1642: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1643: Igs_Ge_Msg_Stack.Add;
1644: app_exception.raise_exception;
1645: end if;
1646: before_DML(
1729: PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE,
1730: DEG_AUD_DETAIL_ID = X_DEG_AUD_DETAIL_ID
1731: where ROWID = X_ROWID ;
1732: if (sql%notfound) then
1733: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1734: igs_ge_msg_stack.add;
1735: igs_sc_gen_001.unset_ctx('R');
1736: app_exception.raise_exception;
1737: end if;
1745: );
1746: EXCEPTION
1747: WHEN OTHERS THEN
1748: IF (SQLCODE = (-28115)) THEN
1749: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1750: fnd_message.set_token ('ERR_CD', SQLCODE);
1751: igs_ge_msg_stack.add;
1752: igs_sc_gen_001.unset_ctx('R');
1753: app_exception.raise_exception;
1746: EXCEPTION
1747: WHEN OTHERS THEN
1748: IF (SQLCODE = (-28115)) THEN
1749: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1750: fnd_message.set_token ('ERR_CD', SQLCODE);
1751: igs_ge_msg_stack.add;
1752: igs_sc_gen_001.unset_ctx('R');
1753: app_exception.raise_exception;
1754: ELSE
1884: END IF;
1885: delete from IGS_AV_STND_UNIT_ALL
1886: where ROWID = X_ROWID ;
1887: if (sql%notfound) then
1888: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1889: igs_ge_msg_stack.add;
1890: igs_sc_gen_001.unset_ctx('R');
1891: app_exception.raise_exception;
1892: end if;