150: BEGIN
151:
152: if( FND_LOG.LEVEL_UNEXPECTED >=
153: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
154: FND_MESSAGE.SET_NAME('AZ', 'AZ_R12_PLSQL_EXCEPTION'); -- Seeded Message
155: -- Runtime Information
156: FND_MESSAGE.SET_TOKEN('ERROR_CODE', ErrCode);
157: FND_MESSAGE.SET_TOKEN('ERROR_MESG', ErrMsg);
158: FND_MESSAGE.SET_TOKEN('ERROR_PROC', 'az_comp_reporter.' || ProcedureName);
152: if( FND_LOG.LEVEL_UNEXPECTED >=
153: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
154: FND_MESSAGE.SET_NAME('AZ', 'AZ_R12_PLSQL_EXCEPTION'); -- Seeded Message
155: -- Runtime Information
156: FND_MESSAGE.SET_TOKEN('ERROR_CODE', ErrCode);
157: FND_MESSAGE.SET_TOKEN('ERROR_MESG', ErrMsg);
158: FND_MESSAGE.SET_TOKEN('ERROR_PROC', 'az_comp_reporter.' || ProcedureName);
159: IF (Statement IS NOT NULL) THEN
160: FND_MESSAGE.SET_TOKEN('ERROR_STMT', Statement);
153: FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
154: FND_MESSAGE.SET_NAME('AZ', 'AZ_R12_PLSQL_EXCEPTION'); -- Seeded Message
155: -- Runtime Information
156: FND_MESSAGE.SET_TOKEN('ERROR_CODE', ErrCode);
157: FND_MESSAGE.SET_TOKEN('ERROR_MESG', ErrMsg);
158: FND_MESSAGE.SET_TOKEN('ERROR_PROC', 'az_comp_reporter.' || ProcedureName);
159: IF (Statement IS NOT NULL) THEN
160: FND_MESSAGE.SET_TOKEN('ERROR_STMT', Statement);
161: ELSE
154: FND_MESSAGE.SET_NAME('AZ', 'AZ_R12_PLSQL_EXCEPTION'); -- Seeded Message
155: -- Runtime Information
156: FND_MESSAGE.SET_TOKEN('ERROR_CODE', ErrCode);
157: FND_MESSAGE.SET_TOKEN('ERROR_MESG', ErrMsg);
158: FND_MESSAGE.SET_TOKEN('ERROR_PROC', 'az_comp_reporter.' || ProcedureName);
159: IF (Statement IS NOT NULL) THEN
160: FND_MESSAGE.SET_TOKEN('ERROR_STMT', Statement);
161: ELSE
162: FND_MESSAGE.SET_TOKEN('ERROR_STMT', 'none');
156: FND_MESSAGE.SET_TOKEN('ERROR_CODE', ErrCode);
157: FND_MESSAGE.SET_TOKEN('ERROR_MESG', ErrMsg);
158: FND_MESSAGE.SET_TOKEN('ERROR_PROC', 'az_comp_reporter.' || ProcedureName);
159: IF (Statement IS NOT NULL) THEN
160: FND_MESSAGE.SET_TOKEN('ERROR_STMT', Statement);
161: ELSE
162: FND_MESSAGE.SET_TOKEN('ERROR_STMT', 'none');
163: END IF;
164: raise_application_error(-20001, FND_MESSAGE.GET);
158: FND_MESSAGE.SET_TOKEN('ERROR_PROC', 'az_comp_reporter.' || ProcedureName);
159: IF (Statement IS NOT NULL) THEN
160: FND_MESSAGE.SET_TOKEN('ERROR_STMT', Statement);
161: ELSE
162: FND_MESSAGE.SET_TOKEN('ERROR_STMT', 'none');
163: END IF;
164: raise_application_error(-20001, FND_MESSAGE.GET);
165: end if;
166: END raise_error_msg;
160: FND_MESSAGE.SET_TOKEN('ERROR_STMT', Statement);
161: ELSE
162: FND_MESSAGE.SET_TOKEN('ERROR_STMT', 'none');
163: END IF;
164: raise_application_error(-20001, FND_MESSAGE.GET);
165: end if;
166: END raise_error_msg;
167:
168: