36:
37: EXCEPTION
38: WHEN OTHERS THEN
39: IF (SQLCODE <> -20001) THEN
40: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
41: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
42: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
44: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
37: EXCEPTION
38: WHEN OTHERS THEN
39: IF (SQLCODE <> -20001) THEN
40: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
41: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
42: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
44: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
45: END IF;
38: WHEN OTHERS THEN
39: IF (SQLCODE <> -20001) THEN
40: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
41: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
42: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
44: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
45: END IF;
46: APP_EXCEPTION.RAISE_EXCEPTION;
39: IF (SQLCODE <> -20001) THEN
40: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
41: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
42: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
44: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
45: END IF;
46: APP_EXCEPTION.RAISE_EXCEPTION;
47:
40: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
41: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
42: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
44: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
45: END IF;
46: APP_EXCEPTION.RAISE_EXCEPTION;
47:
48: END Update_Row;
74: FETCH C INTO Recinfo;
75: IF (C%NOTFOUND) THEN
76: debug_info := 'Close cursor C - ROW NOTFOUND';
77: CLOSE C;
78: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
79: APP_EXCEPTION.RAISE_EXCEPTION;
80: END IF;
81: debug_info := 'Close cursor C';
82: CLOSE C;
87: AND (X_Description IS NULL)))
88: ) THEN
89: RETURN;
90: ELSE
91: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
92: APP_EXCEPTION.Raise_Exception;
93: END IF;
94:
95: EXCEPTION
95: EXCEPTION
96: WHEN OTHERS THEN
97: IF (SQLCODE <> -20001) THEN
98: IF (SQLCODE = -54) THEN
99: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
100: ELSE
101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
97: IF (SQLCODE <> -20001) THEN
98: IF (SQLCODE = -54) THEN
99: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
100: ELSE
101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
104: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
105: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
98: IF (SQLCODE = -54) THEN
99: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
100: ELSE
101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
104: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
105: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
106: END IF;
99: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
100: ELSE
101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
104: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
105: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
106: END IF;
107: END IF;
100: ELSE
101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
104: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
105: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
106: END IF;
107: END IF;
108: APP_EXCEPTION.RAISE_EXCEPTION;
101: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
102: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
103: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',Current_Calling_Sequence);
104: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid );
105: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
106: END IF;
107: END IF;
108: APP_EXCEPTION.RAISE_EXCEPTION;
109: