[Home] [Help]
49: OPEN cur_old_ref_values;
50: FETCH cur_old_ref_values INTO old_references;
51: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
52: CLOSE cur_old_ref_values;
53: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
54: IGS_GE_MSG_STACK.ADD;
55: App_Exception.Raise_Exception;
56: RETURN;
57: END IF;
90: --Add a Description Column
91:
92: IF LTRIM(RTRIM(x_description)) IS NULL THEN
93:
94: fnd_message.set_name('IGS','IGS_CA_CALDESC_NOT_AVAILABLE');
95: new_references.description :=fnd_message.get;
96:
97: ELSE
98: new_references.description :=LTRIM(RTRIM(x_description));
91:
92: IF LTRIM(RTRIM(x_description)) IS NULL THEN
93:
94: fnd_message.set_name('IGS','IGS_CA_CALDESC_NOT_AVAILABLE');
95: new_references.description :=fnd_message.get;
96:
97: ELSE
98: new_references.description :=LTRIM(RTRIM(x_description));
99:
124: IF IGS_CA_VAL_CI.calp_val_ci_alt_cd(
125: new_references.cal_type,
126: new_references.alternate_code,
127: v_message_name) = FALSE THEN
128: Fnd_Message.Set_Name('IGS',v_message_name);
129: IGS_GE_MSG_STACK.ADD;
130: APP_EXCEPTION.RAISE_EXCEPTION;
131:
132: END IF;
135: -- Validate calendar status
136: IF IGS_CA_VAL_CI.calp_val_cs_closed(
137: new_references.cal_status,
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;
146: IF p_inserting OR p_updating THEN
147: OPEN alt_code_unique;
148: FETCH alt_code_unique INTO l_count;
149: IF l_count > 0 THEN
150: Fnd_Message.Set_Name('IGS','IGS_CA_UNIQUE_ALT_CODE');
151: IGS_GE_MSG_STACK.ADD;
152: APP_EXCEPTION.RAISE_EXCEPTION;
153: END IF;
154: CLOSE alt_code_unique;
174: p_old_cal_status => old_references.cal_status,
175: p_new_cal_status => new_references.cal_status,
176: p_message_name => v_message_name) = FALSE
177: THEN
178: Fnd_Message.Set_Name('IGS',v_message_name);
179: IGS_GE_MSG_STACK.ADD;
180: APP_EXCEPTION.RAISE_EXCEPTION;
181: END IF;
182: END IF;
183: -- Check that the calendar type is not closed.
184: IF IGS_CA_GEN_001.CALP_GET_CAT_CLOSED (new_references.cal_type,
185: v_message_name) = TRUE
186: THEN
187: Fnd_Message.Set_Name('IGS',v_message_name);
188: IGS_GE_MSG_STACK.ADD;
189: APP_EXCEPTION.RAISE_EXCEPTION;
190: END IF;
191: END AfterRowInsertUpdate2;
209: p_old_cal_status => '',
210: p_new_cal_status => NVL (new_references.cal_status, old_references.cal_status),
211: p_message_name => v_message_name) = FALSE
212: THEN
213: Fnd_Message.Set_Name('IGS',v_message_name);
214: IGS_GE_MSG_STACK.ADD;
215: APP_EXCEPTION.RAISE_EXCEPTION;
216: END IF;
217: END IF;
238:
239: END IF;
240: IF column_name IS NULL THEN
241: IF (new_references.start_dt > new_references.end_dt) THEN
242: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: END IF;
246: END IF;
246: END IF;
247: IF UPPER(Column_Name) = 'PRIOR_CI_SEQUENCE_NUMBER' OR
248: column_name IS NULL THEN
249: IF (new_references.prior_ci_sequence_number < 1 OR new_references.prior_ci_sequence_number > 999999) AND new_references.prior_ci_sequence_number IS NOT NULL THEN
250: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
251: IGS_GE_MSG_STACK.ADD;
252: App_Exception.Raise_Exception;
253: END IF;
254: END IF;
254: END IF;
255: IF UPPER(Column_Name) = 'SUP_CAL_STATUS_DIFFER_IND' OR
256: column_name IS NULL THEN
257: IF new_references.sup_cal_status_differ_ind NOT IN ('Y', 'N') AND new_references.sup_cal_status_differ_ind IS NOT NULL THEN
258: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
259: IGS_GE_MSG_STACK.ADD;
260: App_Exception.Raise_Exception;
261: END IF;
262: END IF;
262: END IF;
263: IF UPPER(Column_Name) = 'ALTERNATE_CODE' OR
264: column_name IS NULL THEN
265: IF new_references.alternate_code <> UPPER(new_references.alternate_code) AND new_references.alternate_code IS NOT NULL THEN
266: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
267: IGS_GE_MSG_STACK.ADD;
268: App_Exception.Raise_Exception;
269: END IF;
270: END IF;
270: END IF;
271: IF UPPER(Column_Name) = 'CAL_STATUS' OR
272: column_name IS NULL THEN
273: IF (new_references.cal_status <> UPPER(new_references.cal_status)) AND new_references.cal_status IS NOT NULL THEN
274: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
275: IGS_GE_MSG_STACK.ADD;
276: App_Exception.Raise_Exception;
277: END IF;
278: END IF;
278: END IF;
279: IF UPPER(Column_Name) = 'CAL_TYPE' OR
280: column_name IS NULL THEN
281: IF new_references.cal_type <> UPPER(new_references.cal_type) AND new_references.cal_type IS NOT NULL THEN
282: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
283: IGS_GE_MSG_STACK.ADD;
284: App_Exception.Raise_Exception;
285: END IF;
286: END IF;
297: new_references.sequence_number ,
298: new_references.start_dt ,
299: new_references.end_dt )
300: THEN
301: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
302: IGS_GE_MSG_STACK.ADD;
303: App_Exception.Raise_Exception;
304: END IF;
305: IF Get_UK2_For_Validation (
306: new_references.cal_type ,
307: new_references.start_dt ,
308: new_references.end_dt )
309: THEN
310: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
311: IGS_GE_MSG_STACK.ADD;
312: App_Exception.Raise_Exception;
313: END IF;
314:
323: NULL;
324: ELSIF NOT IGS_CA_TYPE_PKG.Get_PK_For_Validation (
325: new_references.cal_type
326: ) THEN
327: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
328: IGS_GE_MSG_STACK.ADD;
329: App_Exception.Raise_Exception;
330: END IF;
331:
334: NULL;
335: ELSIF NOT IGS_CA_STAT_PKG.Get_PK_For_Validation (
336: new_references.cal_status
337: ) THEN
338: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
339: IGS_GE_MSG_STACK.ADD;
340: App_Exception.Raise_Exception;
341: END IF;
342:
348: ELSIF NOT IGS_CA_INST_PKG.Get_PK_For_Validation (
349: new_references.cal_type,
350: new_references.prior_ci_sequence_number
351: ) THEN
352: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
353: IGS_GE_MSG_STACK.ADD;
354: App_Exception.Raise_Exception;
355: END IF;
356:
862: OPEN cur_rowid;
863: FETCH cur_rowid INTO lv_rowid;
864: IF (cur_rowid%FOUND) THEN
865: CLOSE cur_rowid;
866: Fnd_Message.Set_Name ('IGS', 'IGS_CA_CI_CAT_FK');
867: IGS_GE_MSG_STACK.ADD;
868: App_Exception.Raise_Exception;
869: RETURN;
870: END IF;
888: OPEN cur_rowid;
889: FETCH cur_rowid INTO lv_rowid;
890: IF (cur_rowid%FOUND) THEN
891: CLOSE cur_rowid;
892: Fnd_Message.Set_Name ('IGS', 'IGS_CA_CI_CS_FK');
893: IGS_GE_MSG_STACK.ADD;
894: App_Exception.Raise_Exception;
895: RETURN;
896: END IF;
916: OPEN cur_rowid;
917: FETCH cur_rowid INTO lv_rowid;
918: IF (cur_rowid%FOUND) THEN
919: CLOSE cur_rowid;
920: Fnd_Message.Set_Name ('IGS', 'IGS_CA_CI_PRIOR_CI_FK');
921: IGS_GE_MSG_STACK.ADD;
922: App_Exception.Raise_Exception;
923: RETURN;
924: END IF;
983: BeforeRowInsertUpdate1 ( p_inserting => TRUE ,p_updating => FALSE , p_deleting => FALSE);
984: IF Get_PK_For_Validation (
985: new_references.cal_type,
986: new_references.sequence_number ) THEN
987: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
988: IGS_GE_MSG_STACK.ADD;
989: App_Exception.Raise_Exception;
990: END IF;
991: Check_Uniqueness;
1007: -- Call all the procedures related to Before Insert.
1008: IF Get_PK_For_Validation (
1009: new_references.cal_type,
1010: new_references.sequence_number ) THEN
1011: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1012: IGS_GE_MSG_STACK.ADD;
1013: App_Exception.Raise_Exception;
1014: END IF;
1015: Check_Uniqueness;
1088: IF X_LAST_UPDATE_LOGIN IS NULL THEN
1089: X_LAST_UPDATE_LOGIN := -1;
1090: END IF;
1091: ELSE
1092: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1093: IGS_GE_MSG_STACK.ADD;
1094: app_exception.raise_exception;
1095: END IF;
1096: Before_DML (
1218: OPEN c1;
1219: FETCH c1 INTO tlinfo;
1220: IF (c1%NOTFOUND) THEN
1221: CLOSE c1;
1222: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1223: IGS_GE_MSG_STACK.ADD;
1224: app_exception.raise_exception;
1225: RETURN;
1226: END IF;
1257:
1258: ) THEN
1259: NULL;
1260: ELSE
1261: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1262: IGS_GE_MSG_STACK.ADD;
1263: app_exception.raise_exception;
1264: END IF;
1265: RETURN;
1304: IF X_LAST_UPDATE_LOGIN IS NULL THEN
1305: X_LAST_UPDATE_LOGIN := -1;
1306: END IF;
1307: ELSE
1308: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1309: IGS_GE_MSG_STACK.ADD;
1310: app_exception.raise_exception;
1311: END IF;
1312:
1350: --Add a Description Column
1351:
1352: IF LTRIM(RTRIM(x_description)) IS NULL THEN
1353:
1354: fnd_message.set_name('IGS','IGS_CA_CALDESC_NOT_AVAILABLE');
1355: l_msg :=fnd_message.get;
1356:
1357: ELSE
1358: l_msg :=LTRIM(RTRIM(x_description));
1351:
1352: IF LTRIM(RTRIM(x_description)) IS NULL THEN
1353:
1354: fnd_message.set_name('IGS','IGS_CA_CALDESC_NOT_AVAILABLE');
1355: l_msg :=fnd_message.get;
1356:
1357: ELSE
1358: l_msg :=LTRIM(RTRIM(x_description));
1359:
1508: OPEN cur_delete (old_references.cal_type,old_references.sequence_number );
1509: FETCH cur_delete INTO l_check;
1510: IF cur_delete%NOTFOUND THEN
1511: close cur_delete;
1512: fnd_message.set_name('IGS','IGS_CA_NO_DELETE_ALLOWED');
1513: igs_ge_msg_stack.add;
1514: app_exception.raise_exception;
1515: END IF;
1516: close cur_delete;
1558: OPEN cur_check_update(old_references.cal_type, old_references.sequence_number);
1559: FETCH cur_check_update INTO l_check;
1560: IF cur_check_update%FOUND THEN
1561: CLOSE cur_check_update;
1562: fnd_message.set_name('IGS','IGS_CA_INACTIVE_NOTCHG_PLANN');
1563: igs_ge_msg_stack.add;
1564: app_exception.raise_exception;
1565: END IF;
1566: CLOSE cur_check_update;
1567: END IF;
1568: ELSE
1569: -- If the calendar status is not found then the record might have been deleted
1570: CLOSE cur_get_status;
1571: fnd_message.set_name('FND','FORM_RECORD_DELETED');
1572: igs_ge_msg_stack.add;
1573: app_exception.raise_exception;
1574: END IF;
1575:
1627: new_references.sequence_number,
1628: l_ret_status,
1629: l_message_name);
1630: IF NOT l_ret_status THEN
1631: Fnd_Message.Set_Name ('IGS', l_message_name);
1632: IGS_GE_MSG_STACK.ADD;
1633: App_Exception.Raise_Exception;
1634: END IF;
1635: END IF;