[Home] [Help]
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;
62: END IF;
63: Close cur_old_ref_values;
64: -- Populate New Values.
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
135: p_adv_stnd_trans = 'N') THEN
136: Fnd_Message.Set_Name('IGS','IGS_AV_STATUS_MUSTBE_APPROVED');
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;
141: -- Validate that the advanced standing recognition type is open.
142: IF p_inserting OR
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;
154: -- Validate Advanced Standing Unit Approved Date
155: IF (new_references.approved_dt IS NOT NULL) AND
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;
170: -- On update, the granting status cannot be set to 'Granted' from anything
171: -- other than 'Approved'/'Transferred'.
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');
181: Igs_Ge_Msg_Stack.Add;
182: App_Exception.Raise_Exception;
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');
185: Igs_Ge_Msg_Stack.Add;
186: App_Exception.Raise_Exception;
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;
189: -- Validate Advanced Standing Unit Granted Date
190: IF (new_references.granted_dt IS NOT NULL) AND
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;
205: -- Validate expiry date is greater than current date and approved date.
206: IF (new_references.expiry_dt IS NOT NULL) AND
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;
220: -- Validate Advanced Standing Unit Cancelled Date
221: IF (new_references.cancelled_dt IS NOT NULL) AND
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;
244: -- Validate Advanced Standing Unit Revoked Date
245: IF (new_references.revoked_dt IS NOT NULL) AND
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;
268: -- Validate that related date is set for the granting status.
269: IF p_inserting OR (p_updating AND (new_references.s_adv_stnd_granting_status <>
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
283: IF igs_av_val_asu.advp_val_status_dts (
284: 'REVOKED',
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
293: IF igs_av_val_asu.advp_val_status_dts (
294: 'CANCELLED',
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
303: IF igs_av_val_asu.advp_val_status_dts (
304: 'EXPIRED',
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
313: IF igs_av_val_asu.advp_val_status_dts (
314: 'APPROVED',
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;
324: END IF;
325: -- Validate Advanced Standing Unit Authorising Person 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 (
339: new_references.authorising_person_id,
340: v_message_name) = FALSE THEN
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;
346: END IF;
347: IF p_updating AND ((new_references.s_adv_stnd_granting_status <>
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;
362: -- Validate that exemption institution code is valid.
363: IF p_inserting OR (p_updating AND (new_references.exemption_institution_cd <>
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;
373: IF p_inserting OR p_updating THEN
374: v_Person_id := new_references.person_id;
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
394: -- been altered in a way which could affect the outcome of a unit rule.
395: --
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
509: IF IGS_AV_GEN_001.ADVP_UPD_AS_TOTALS (
510: old_references.person_id,
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;
520: END AfterRowInsertUpdateDelete2;
521:
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;
561:
562: IF upper(column_name) = 'S_ADV_STND_GRANTING_STATUS' OR
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;
607: IF upper(column_name) = 'CRS_GROUP_IND' OR
608: column_name is null Then
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;
615: IF upper(column_name) = 'S_ADV_STND_TYPE' OR
616: column_name is null Then
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;
623:
624: --Start addition for Bug no. 1960126
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
633: new_references.tst_rslt_dtls_id IS NULL) THEN
634: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
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;
648:
649:
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;
658:
659:
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;
668: --End of addition for Bug no. 1960126
669:
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;
689: IF (((old_references.person_id = new_references.person_id) AND
690: (old_references.as_course_cd = new_references.as_course_cd) AND
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;
705: IF (((old_references.authorising_person_id = new_references.authorising_person_id)) OR
706: ((new_references.authorising_person_id IS NULL))) THEN
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;
715: IF (((old_references.s_adv_stnd_granting_status = new_references.s_adv_stnd_granting_status)) OR
716: ((new_references.s_adv_stnd_granting_status IS NULL))) THEN
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;
726: IF (((old_references.unit_cd = new_references.unit_cd) AND
727: (old_references.version_number = new_references.version_number)) OR
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;
738:
739: --Start of addition for Bug no. 1960126
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;
754:
755: IF (((old_references.grading_schema_cd = new_references.grading_schema_cd) AND
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;
771:
772: --End of addition for Bug no. 1960126
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 ;
805:
806: PROCEDURE Check_Child_Existance AS
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;
908: END IF;
909: Close cur_rowid;
910: END GET_FK_IGS_LOOKUPS_VIEW_1;
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;
935: END IF;
936: Close cur_rowid;
937: END GET_FK_IGS_AV_ADV_STANDING;
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;
957: END IF;
958: Close cur_rowid;
959: END get_fk_igs_ad_term_unitdtls;
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;
978: END IF;
979: Close cur_rowid;
980: END get_fk_igs_ad_tst_rslt_dtls;
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;
1000: END IF;
1001: Close cur_rowid;
1002: END GET_FK_IGS_PE_PERSON;
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;
1021: END IF;
1022: Close cur_rowid;
1023: END GET_FK_IGS_LOOKUPS_VIEW_2;
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;
1044: END IF;
1045: Close cur_rowid;
1046: END GET_FK_IGS_PS_UNIT_VER;
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;
1068: END IF;
1069: Close cur_rowid;
1070: END GET_FK_IGS_CA_INST;
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;
1093: END IF;
1094: Close cur_rowid;
1095: END GET_FK_IGS_AS_GRD_SCH_GRADE;
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: ---
1191: check_uniqueness;
1192: Check_Constraints;
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;
1214: Check_Constraints;
1215: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
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:
1325: SELECT IGS_AV_STND_UNIT_S.NEXTVAL INTO X_AV_STND_UNIT_ID FROM DUAL;
1326:
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
1477: igs_sc_gen_001.unset_ctx('R');
1478: RAISE;
1479: END IF;
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;
1552: end if;
1553: close c1;
1554: if (
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;
1584: end LOCK_ROW;
1585:
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(
1647: p_action=>'UPDATE',
1648: x_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;
1738: IF (x_mode = 'S') THEN
1739: igs_sc_gen_001.unset_ctx('R');
1740: END IF;
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
1755: igs_sc_gen_001.unset_ctx('R');
1756: RAISE;
1757: END IF;
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;
1893: IF (x_mode = 'S') THEN
1894: igs_sc_gen_001.unset_ctx('R');
1895: END IF;