[Home] [Help]
35: Open cur_old_ref_values;
36: Fetch cur_old_ref_values INTO old_references;
37: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
38: Close cur_old_ref_values;
39: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
40: IGS_GE_MSG_STACK.ADD;
41: App_Exception.Raise_Exception;
42: Return;
43: END IF;
85:
86: IF upper(column_name) = 'ADM_CAL_TYPE' OR
87: column_name is null Then
88: IF new_references.adm_cal_type <> UPPER(new_references.adm_cal_type) Then
89: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
90: IGS_GE_MSG_STACK.ADD;
91: App_Exception.Raise_Exception;
92: END IF;
93: END IF;
94:
95: IF upper(column_name) = 'ADMISSION_CAT' OR
96: column_name is null Then
97: IF new_references.admission_cat <> UPPER(new_references.admission_cat) Then
98: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
99: IGS_GE_MSG_STACK.ADD;
100: App_Exception.Raise_Exception;
101: END IF;
102: END IF;
103:
104: IF upper(column_name) = 'S_ADMISSION_PROCESS_TYPE' OR
105: column_name is null Then
106: IF new_references.s_admission_process_type <> UPPER(new_references.s_admission_process_type) Then
107: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
108: IGS_GE_MSG_STACK.ADD;
109: App_Exception.Raise_Exception;
110: END IF;
111: END IF;
113: IF upper(column_name) = 'ADM_CI_SEQUENCE_NUMBER' OR
114: column_name is null Then
115: IF new_references.adm_ci_sequence_number < 1 OR
116: new_references.adm_ci_sequence_number > 999999 Then
117: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
118: IGS_GE_MSG_STACK.ADD;
119: App_Exception.Raise_Exception;
120: END IF;
121: END IF;
136: new_references.adm_cal_type,
137: new_references.adm_ci_sequence_number,
138: new_references.admission_cat
139: ) THEN
140: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
141: IGS_GE_MSG_STACK.ADD;
142: App_Exception.Raise_Exception;
143: END IF;
144: END IF;
152: IF NOT IGS_AD_PRCS_CAT_PKG.Get_PK_For_Validation (
153: new_references.admission_cat,
154: new_references.s_admission_process_type ,
155: 'N') THEN
156: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
157: IGS_GE_MSG_STACK.ADD;
158: App_Exception.Raise_Exception;
159: END IF;
160: END IF;
240: Open cur_rowid;
241: Fetch cur_rowid INTO lv_rowid;
242: IF (cur_rowid%FOUND) THEN
243: Close cur_rowid;
244: Fnd_Message.Set_Name ('IGS', 'IGS_AD_APAPC_APAC_FK');
245: IGS_GE_MSG_STACK.ADD;
246: App_Exception.Raise_Exception;
247: Return;
248: END IF;
268: Open cur_rowid;
269: Fetch cur_rowid INTO lv_rowid;
270: IF (cur_rowid%FOUND) THEN
271: Close cur_rowid;
272: Fnd_Message.Set_Name ('IGS', 'IGS_AD_APAPC_APC_FK');
273: IGS_GE_MSG_STACK.ADD;
274: App_Exception.Raise_Exception;
275: Return;
276: END IF;
320: new_references.adm_ci_sequence_number,
321: new_references.admission_cat,
322: new_references.s_admission_process_type
323: ) THEN
324: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
325: IGS_GE_MSG_STACK.ADD;
326: App_Exception.Raise_Exception;
327: END IF;
328: Check_Constraints;
338: new_references.adm_ci_sequence_number,
339: new_references.admission_cat,
340: new_references.s_admission_process_type
341: ) THEN
342: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
343: IGS_GE_MSG_STACK.ADD;
344: App_Exception.Raise_Exception;
345: END IF;
346: Check_Constraints;
356: -- raise the error message saying 'You cannot check the Single Response Rollover
357: -- checkbox without checking the Single Response checkbox'
358: IF p_action IN ('INSERT', 'UPDATE', 'VALIDATE_INSERT', 'VALIDATE_UPDATE') THEN
359: IF NVL(new_references.include_sr_in_rollover_flag,'N') = 'Y' AND NVL(new_references.single_response_flag,'N') = 'N' THEN
360: Fnd_Message.Set_Name ('IGS', 'IGS_AD_SR_CHECK_VALUE'); -- Single Response Rollover checkbox cannot be checked without checking Single Response checkbox.
361: IGS_GE_MSG_STACK.ADD;
362: App_Exception.Raise_Exception;
363: END IF;
364: END IF;
408: IF X_LAST_UPDATE_LOGIN is NULL THEN
409: X_LAST_UPDATE_LOGIN := -1;
410: END IF;
411: ELSE
412: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
413: IGS_GE_MSG_STACK.ADD;
414: app_exception.raise_exception;
415: END IF;
416: Before_DML(p_action =>'INSERT',
499: if X_LAST_UPDATE_LOGIN is NULL then
500: X_LAST_UPDATE_LOGIN := -1;
501: end if;
502: else
503: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
504: IGS_GE_MSG_STACK.ADD;
505: app_exception.raise_exception;
506: end if;
507: Before_DML(p_action =>'UPDATE',
564: OPEN c1;
565: FETCH c1 into tlinfo;
566: IF (c1%NOTFOUND) THEN
567: CLOSE c1;
568: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
569: IGS_GE_MSG_STACK.ADD;
570: app_exception.raise_exception;
571: RETURN;
572: END IF;