[Home] [Help]
37: Fetch cur_old_ref_values INTO old_references;
38: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
39: Close cur_old_ref_values;
40: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
41: IGS_GE_MSG_STACK.ADD;
42: App_Exception.Raise_Exception;
43: Return;
44: END IF;
45: Close cur_old_ref_values;
75: IF (p_inserting OR (p_updating AND (old_references.s_admission_step_type <> new_references.s_admission_step_type))) THEN
76: IF NOT IGS_TR_VAL_TRI.TRKP_VAL_TRI_TYPE (new_references.s_admission_step_type,
77: v_message_name) THEN
78: Fnd_Message.Set_Name('IGS', v_message_name);
79: IGS_GE_MSG_STACK.ADD;
80: App_Exception.Raise_Exception;
81: END IF;
82: END IF;
83: END BeforeRowInsertUpdate;
103: IF IGS_AD_VAL_APCS.admp_val_sasty_clsd (
104: new_references.s_admission_step_type,
105: v_message_name) = FALSE THEN
106: Fnd_Message.Set_Name('IGS',v_message_name);
107: IGS_GE_MSG_STACK.ADD;
108: App_Exception.Raise_Exception;
109: END IF;
110: END IF;
111:
120: IF IGS_AD_VAL_ACCT.admp_val_ac_closed (
121: v_admission_cat,
122: v_message_name) = FALSE THEN
123: Fnd_Message.Set_Name('IGS',v_message_name);
124: IGS_GE_MSG_STACK.ADD;
125: App_Exception.Raise_Exception;
126: END IF;
127:
128: IF NVL(new_references.step_group_type,'TRACK') <> 'TRACK' THEN
139: new_references.s_admission_step_type,
140: new_references.mandatory_step_ind,
141: v_message_name) = FALSE THEN
142: Fnd_Message.Set_Name('IGS',v_message_name);
143: IGS_GE_MSG_STACK.ADD;
144: App_Exception.Raise_Exception;
145: END IF;
146: END IF;
147: -- Validate the Step Type Restriction Number.
153: new_references.s_admission_step_type,
154: new_references.step_type_restriction_num,
155: v_message_name) = FALSE THEN
156: Fnd_Message.Set_Name('IGS',v_message_name);
157: IGS_GE_MSG_STACK.ADD;
158: App_Exception.Raise_Exception;
159: END IF;
160: END IF;
161: -- Validate the Step Order Number.
167: new_references.s_admission_step_type,
168: new_references.step_order_num,
169: v_message_name) = FALSE THEN
170: Fnd_Message.Set_Name('IGS',v_message_name);
171: IGS_GE_MSG_STACK.ADD;
172: App_Exception.Raise_Exception;
173: END IF;
174: END IF;
175:
207: IF upper(column_name) = 'MANDATORY_STEP_IND' OR
208: column_name is null Then
209: IF new_references.mandatory_step_ind NOT IN ('Y','N') Then
210: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
211: IGS_GE_MSG_STACK.ADD;
212: App_Exception.Raise_Exception;
213: END IF;
214: END IF;
215:
217: column_name is null Then
218: IF new_references.step_type_restriction_num < 1 OR
219: new_references.step_type_restriction_num > 99 Then
220: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
221: IGS_GE_MSG_STACK.ADD;
222: App_Exception.Raise_Exception;
223: END IF;
224: END IF;
225:
227: column_name is null Then
228: IF new_references.step_order_num < 1 OR
229: new_references.step_order_num > 999 Then
230: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
231: IGS_GE_MSG_STACK.ADD;
232: App_Exception.Raise_Exception;
233: END IF;
234: END IF;
235: IF upper(column_name) = 'ADMISSION_CAT' OR
236: column_name is null Then
237: IF new_references.admission_cat <>
238: UPPER(new_references.admission_cat) Then
239: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
240: IGS_GE_MSG_STACK.ADD;
241: App_Exception.Raise_Exception;
242: END IF;
243: END IF;
244: IF upper(column_name) = 'MANDATORY_STEP_IND' OR
245: column_name is null Then
246: IF new_references.mandatory_step_ind <>
247: UPPER(new_references.mandatory_step_ind) Then
248: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
249: IGS_GE_MSG_STACK.ADD;
250: App_Exception.Raise_Exception;
251: END IF;
252: END IF;
253: IF upper(column_name) = 'S_ADMISSION_PROCESS_TYPE' OR
254: column_name is null Then
255: IF new_references.s_admission_process_type <>
256: UPPER(new_references.s_admission_process_type) Then
257: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
258: IGS_GE_MSG_STACK.ADD;
259: App_Exception.Raise_Exception;
260: END IF;
261: END IF;
262: IF upper(column_name) = 'S_ADMISSION_STEP_TYPE' OR
263: column_name is null Then
264: IF new_references.s_admission_step_type <>
265: UPPER(new_references.s_admission_step_type) 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;
271:
273: column_name is null Then
274: IF new_references.step_group_type <>
275: UPPER(new_references.step_group_type) Then
276: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
277: IGS_GE_MSG_STACK.ADD;
278: App_Exception.Raise_Exception;
279: END IF;
280: END IF;
281:
282: IF upper(column_name) = 'STEP_GROUP_TYPE' OR
283: column_name is null Then
284: IF new_references.step_group_type IS NULL Then
285: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MANDATORY_FLD');
286: IGS_GE_MSG_STACK.ADD;
287: App_Exception.Raise_Exception;
288: END IF;
289: END IF;
290:
319: new_references.s_admission_process_type,
320: 'N'
321: ) THEN
322: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
323: IGS_GE_MSG_STACK.ADD;
324: App_Exception.Raise_Exception;
325: END IF;
326: END IF;
327:
339: new_references.s_admission_step_type
340: ) THEN
341: CLOSE cur_s_tracking_type;
342: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
343: IGS_GE_MSG_STACK.ADD;
344: App_Exception.Raise_Exception;
345: END IF;
346: END IF;
347: CLOSE cur_s_tracking_type;
400: Fetch cur_rowid INTO lv_rowid;
401: IF (cur_rowid%FOUND) THEN
402: Close cur_rowid;
403: Fnd_Message.Set_Name ('IGS', 'IGS_AD_APCS_APC_FK');
404: IGS_GE_MSG_STACK.ADD;
405: App_Exception.Raise_Exception;
406: Return;
407: END IF;
408: Close cur_rowid;
427: Fetch cur_rowid INTO lv_rowid;
428: IF (cur_rowid%FOUND) THEN
429: Close cur_rowid;
430: Fnd_Message.Set_Name ('IGS', 'IGS_AD_APCS_SLV_FK');
431: IGS_GE_MSG_STACK.ADD;
432: App_Exception.Raise_Exception;
433: Return;
434: END IF;
435: Close cur_rowid;
482: new_references.s_admission_step_type,
483: new_references.step_group_type
484: ) THEN
485: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
486: IGS_GE_MSG_STACK.ADD;
487: App_Exception.Raise_Exception;
488: END IF;
489: Check_Constraints;
490: Check_Parent_Existance;
502: new_references.s_admission_step_type,
503: new_references.step_group_type
504: ) THEN
505: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
506: IGS_GE_MSG_STACK.ADD;
507: App_Exception.Raise_Exception;
508: END IF;
509: Check_Constraints;
510: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
565: X_LAST_UPDATE_LOGIN := -1;
566: end if;
567: else
568: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
569: IGS_GE_MSG_STACK.ADD;
570: app_exception.raise_exception;
571: end if;
572: Before_DML(p_action =>'INSERT',
573: x_rowid =>X_ROWID,
652: fetch c1 into tlinfo;
653: if (c1%notfound) then
654: close c1;
655: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
656: IGS_GE_MSG_STACK.ADD;
657: app_exception.raise_exception;
658: return;
659: end if;
660: close c1;
669: ) then
670: null;
671: else
672: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
673: IGS_GE_MSG_STACK.ADD;
674: app_exception.raise_exception;
675: end if;
676: return;
677: end LOCK_ROW;
712: X_LAST_UPDATE_LOGIN := -1;
713: end if;
714: else
715: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
716: IGS_GE_MSG_STACK.ADD;
717: app_exception.raise_exception;
718: end if;
719: Before_DML(p_action =>'UPDATE',
720: x_rowid =>X_ROWID,