80:
81: EXCEPTION
82: WHEN OTHERS THEN
83: IF (SQLCODE <> -20001) THEN
84: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
85: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
86: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
87: FND_MESSAGE.SET_TOKEN('PARAMETERS',
88: 'org_id = ' || X_org_id ||
81: EXCEPTION
82: WHEN OTHERS THEN
83: IF (SQLCODE <> -20001) THEN
84: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
85: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
86: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
87: FND_MESSAGE.SET_TOKEN('PARAMETERS',
88: 'org_id = ' || X_org_id ||
89: 'rule_id = ' || X_rule_id ||
82: WHEN OTHERS THEN
83: IF (SQLCODE <> -20001) THEN
84: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
85: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
86: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
87: FND_MESSAGE.SET_TOKEN('PARAMETERS',
88: 'org_id = ' || X_org_id ||
89: 'rule_id = ' || X_rule_id ||
90: 'rule_data_id = ' || X_rule_data_id );
83: IF (SQLCODE <> -20001) THEN
84: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
85: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
86: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
87: FND_MESSAGE.SET_TOKEN('PARAMETERS',
88: 'org_id = ' || X_org_id ||
89: 'rule_id = ' || X_rule_id ||
90: 'rule_data_id = ' || X_rule_data_id );
91: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
87: FND_MESSAGE.SET_TOKEN('PARAMETERS',
88: 'org_id = ' || X_org_id ||
89: 'rule_id = ' || X_rule_id ||
90: 'rule_data_id = ' || X_rule_data_id );
91: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
92: END IF;
93: APP_EXCEPTION.RAISE_EXCEPTION;
94:
95: END Insert_Row;
155: FETCH C INTO Recinfo;
156: IF (C%NOTFOUND) THEN
157: debug_info := 'Close CURSOR C - DATA NOTFOUND';
158: CLOSE C;
159: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
160: APP_EXCEPTION.Raise_Exception;
161: END IF;
162:
163: debug_info := 'Close CURSOR C';
191: ((X_created_by IS NULL) AND
192: (Recinfo.created_by IS NULL)))) THEN
193: return;
194: ELSE
195: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
196: APP_EXCEPTION.Raise_Exception;
197: END IF;
198:
199: EXCEPTION
199: EXCEPTION
200: WHEN OTHERS THEN
201: IF (SQLCODE <> -20001) THEN
202: IF (SQLCODE = -54) THEN
203: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
204: ELSE
205: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
201: IF (SQLCODE <> -20001) THEN
202: IF (SQLCODE = -54) THEN
203: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
204: ELSE
205: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
208: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
209: FND_MESSAGE.SET_TOKEN('PARAMETERS',
202: IF (SQLCODE = -54) THEN
203: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
204: ELSE
205: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
208: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
209: FND_MESSAGE.SET_TOKEN('PARAMETERS',
210: 'rule_id = ' || X_rule_id ||
203: FND_MESSAGE.SET_NAME('AR','AR_RESOURCE_BUSY');
204: ELSE
205: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
208: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
209: FND_MESSAGE.SET_TOKEN('PARAMETERS',
210: 'rule_id = ' || X_rule_id ||
211: 'rule_data_id = ' || X_rule_data_id );
204: ELSE
205: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
208: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
209: FND_MESSAGE.SET_TOKEN('PARAMETERS',
210: 'rule_id = ' || X_rule_id ||
211: 'rule_data_id = ' || X_rule_data_id );
212: END IF;
205: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
206: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
207: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
208: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
209: FND_MESSAGE.SET_TOKEN('PARAMETERS',
210: 'rule_id = ' || X_rule_id ||
211: 'rule_data_id = ' || X_rule_data_id );
212: END IF;
213: END IF;
287: AND org_id = X_org_id
288: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
289:
290: IF (dummy >= 1) THEN
291: FND_MESSAGE.SET_NAME ('JL', 'JL_ZZ_AR_TX_ALREADY_EXISTS');
292: FND_MESSAGE.SET_TOKEN('ENTITY', 'Legal Message');
293: APP_EXCEPTION.RAISE_EXCEPTION;
294: END IF;
295: END Check_Unique;
288: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
289:
290: IF (dummy >= 1) THEN
291: FND_MESSAGE.SET_NAME ('JL', 'JL_ZZ_AR_TX_ALREADY_EXISTS');
292: FND_MESSAGE.SET_TOKEN('ENTITY', 'Legal Message');
293: APP_EXCEPTION.RAISE_EXCEPTION;
294: END IF;
295: END Check_Unique;
296: