Gestion des erreurs applicatives Oracle sous Delphi et DOA

FUNCTION F_GET_MSG_ERR
 (P_CODE_ERREUR IN MESSAGES_APPLICATIFS.CODE_ERREUR%TYPE
 ,P_APPLICATION IN MESSAGES_APPLICATIFS.APPLICATION%TYPE
 ,P_SPECIFICATEUR1 IN VARCHAR2 := 'NULL'
 ,P_SPECIFICATEUR2 IN VARCHAR2 := 'NULL'
 ,P_SPECIFICATEUR3 IN VARCHAR2 := 'NULL'
 )
 RETURN VARCHAR2
 IS
--|==================================================
--| F_GET_MSG_ERR :
--|==================================================
--| Objet : Renvoie un numéro d'erreur en remplaçant les spécificateurs présents dans le message associé
--|         Permet d'utiliser des messages en base du type : 
--|         'Erreur %1 dans le fichier %2 de la table %3' 
--|
--| Entrée: P_Code_Erreur    Numéro d'erreur à retrouver
--|         P_Application    Nom de l'application concernée
--|         P_Specificateur1 Chaîne en correspondance avec %1
--|         P_Specificateur2 Chaîne en correspondance avec %2 
--|         P_Specificateur3 Chaîne en correspondance avec %3
--|
--| Sortie: N/A
--|==================================================
--| 30/12/04 -> L.DARDENNE    : original
--|==================================================
 
 v_message MESSAGES_APPLICATIFS.MESSAGE%TYPE;
BEGIN
 v_message:=F_GET_ERR_APPLICATIV(P_Code_Erreur,P_Application);
   -- Récupére dans la table des messages d'erreurs, le message associé au numéro d'erreur
  RETURN ( F_FORMAT_MSG_ERR( v_message,P_Specificateur1,P_Specificateur2,P_Specificateur3)) ;
END;

FUNCTION F_FORMAT_MSG_ERR
 (P_CHAINE IN OUT VARCHAR2
 ,P_SPECIFICATEUR1 IN VARCHAR2 := 'NULL'
 ,P_SPECIFICATEUR2 IN VARCHAR2 := 'NULL'
 ,P_SPECIFICATEUR3 IN VARCHAR2 := 'NULL'
 )
 RETURN VARCHAR2
 IS
--|==================================================
--| F_FORMAT_MSG_ERR :
--|==================================================
--| Objet : Renvoie une chaîne de caractères en remplaçant les spécificateurs %1
--|         Permet d'utiliser des chaînes de message du type : 
--|         'Erreur %1 dans le fichier %2 de la table %3' 
--|
--| Entrée: P_Chaine         Chaîne de caractères contenant des spécificateurs
--|         P_Specificateur1 Chaîne en correspondance avec %1
--|         P_Specificateur2 Chaîne en correspondance avec %2 
--|         P_Specificateur3 Chaîne en correspondance avec %3
--|
--| Sortie: N/A
--|==================================================
--| 12/10/04 -> L.DARDENNE    : original
--|==================================================
BEGIN 
  If P_Specificateur1 IS NOT NULL Then 
    P_Chaine := Replace( P_Chaine, '%1', P_Specificateur1 ) ; 
  End if ; 
  If P_Specificateur2 IS NOT NULL Then 
     P_Chaine := Replace( P_Chaine, '%2', P_Specificateur2 ) ; 
  End if ; 
  If P_Specificateur3 IS NOT NULL Then 
     P_Chaine := Replace( P_Chaine, '%3', P_Specificateur3 ) ; 
  End if ; 
  RETURN (P_Chaine) ; 
END;

FUNCTION F_GET_ERR_APPLICATIV
 (P_NUMERO_ERREUR IN MESSAGES_APPLICATIFS.CODE_ERREUR%TYPE
 ,P_NOM_APPLICATION IN MESSAGES_APPLICATIFS.APPLICATION%TYPE
 )
 RETURN VARCHAR2
 IS
--|==================================================
--| F_GET_ERR_APPLICATIV :
--|==================================================
--| Objet : Renvoie le message d'erreur demandé
--|
--| Entrée: P_NUMERO_ERREUR   Numéro d'erreur applicative concerné ( ex. : -20123)
--|         P_NOM_APPLICATION Nom de l'application concernée ( ex. : MonAppli )
--|
--| Sortie: N/A
--| Retourne : Le message d'erreur correspond au couple ( numErreur,NomAppli) ou 
--|            le message 'Impossible de récupérer les messages d''erreurs.' si la table est vide !
--|==================================================
--| 30/12/04 -> L.DARDENNE    : original
--|==================================================

v_message MESSAGES_APPLICATIFS.MESSAGE%TYPE;
BEGIN
 SELECT MESSAGE INTO v_message FROM MESSAGES_APPLICATIFS ma
   WHERE ma.CODE_ERREUR=P_NUMERO_ERREUR AND ma.APPLICATION=P_NOM_APPLICATION;

 RETURN(v_message);   
 
EXCEPTION
  WHEN NO_DATA_FOUND THEN  
   BEGIN
    SELECT MESSAGE INTO v_message FROM MESSAGES_APPLICATIFS ma
     WHERE ma.CODE_ERREUR=c_ECodeErreur_inexistant AND ma.APPLICATION='ALL'; 
     -- Msg d'erreur de l'erreur !
    RETURN(F_FORMAT_MSG_ERR( v_message,TO_CHAR(P_NUMERO_ERREUR),P_NOM_APPLICATION)); 
     
   EXCEPTION
    WHEN NO_DATA_FOUND THEN  
      v_message:='Impossible de récupérer les messages d''erreurs.';
      RETURN(v_message); -- la table ne contient pas de ligne.
   END;
END;

FUNCTION F_ERREUR_APPLICATIVE
 (P_CODE_ERREUR IN NUMBER
 )
 RETURN BOOLEAN
 IS
--|====================================================
--| F_ERREUR_APPLICATIV :
--|====================================================
--| Objet : indique si le code d'erreur est un code d'erreur applicatif ou non.
--|
--| Entrée: P_CODE_ERREUR Numéro d'erreur à tester ( Cf. SQLCODE )
--|
--|====================================================
--| 11/10/2004 -> L. Dardenne : Création
--|====================================================
BEGIN
 IF (P_CODE_ERREUR<=-20000) and (P_CODE_ERREUR>=-20999)
  THEN RETURN(TRUE);
  ELSE RETURN(FALSE);
 END IF;   
END;

PROCEDURE P_DECLENCHE_ERREUR
 (P_NUMERO_ERREUR IN MESSAGES_APPLICATIFS.CODE_ERREUR%TYPE
 ,P_NOM_APPLICATION MESSAGES_APPLICATIFS.APPLICATION%TYPE
 ,P_SPECIFICATEUR1 IN VARCHAR2 := 'NULL'
 ,P_SPECIFICATEUR2 IN VARCHAR2 := 'NULL'
 ,P_SPECIFICATEUR3 IN VARCHAR2 := 'NULL'
 )
 IS
--|==================================================
--| P_DECLENCHE_ERREUR :
--|==================================================
--|==================================================
--| F_GET_MSG_ERR :
--|==================================================
--| Objet : Déclenche l'instruction Raise_Application_Error
--|         Encapsule la gestion des messages basés.
--|
--| Entrée: P_Numero_Erreur    Numéro d'erreur à retrouver
--|         P_Nom_Application  Nom de l'application concernée
--|         P_Specificateur1   Chaîne en correspondance avec %1
--|         P_Specificateur2   Chaîne en correspondance avec %2 
--|         P_Specificateur3   Chaîne en correspondance avec %3
--|
--| Sortie: N/A
--|==================================================
--| 08/10/04 -> L.DARDENNE    : original
--|==================================================
BEGIN
 RAISE_APPLICATION_ERROR(P_Numero_Erreur, F_GET_MSG_ERR(P_Numero_Erreur,
                          P_Nom_Application,
                         P_Specificateur1,
                         P_Specificateur2,
                         P_Specificateur3));
END;

c_eseq_modification_detail CONSTANT     PLS_INTEGER := -20993;

/* Signale que les détails d'une séquence sont déjà en cours de modification.*/
e_seq_modification_detail     EXCEPTION;

PRAGMA     EXCEPTION_INIT(e_seq_modification_detail, -20993);

c_eresource_busy CONSTANT     PLS_INTEGER := -54;

/* Ligne verrouillée, uniquement pour l'instruction : Select for Update NOWAIT */
 e_resource_busy    EXCEPTION;
 
 PRAGMA        EXCEPTION_INIT(E_RESOURCE_BUSY, -54);