# Fonction PCODE ID = 860026233
REGISTRE ENTIER date_pivot
REGISTRE POINTEUR Code_SGTQS
REGISTRE POINTEUR Service
#
# Nom du fichier: code_apache.src
#
# Fonction:
#   Indique si le code SGTQS est un code pour l'application APACHE
#
# En entree :
#   Service
#   Code_SGTQS
#   date_pivot
#
# En sortie:
#    si OK      : valeur (sous forme de chaine de caracteres)
#    Erreur     : g_inull
#
############################################################################
 
REGISTRE POINTEUR Cle
REGISTRE POINTEUR valeur
REGISTRE ENTIER   erreur
REGISTRE POINTEUR  res

date_pivot = depilerENTIER()
Code_SGTQS = depilerPOINTEUR()
Service = depilerPOINTEUR()
#
# Recuperation des arguments en entree
#
Cle     = "333333333312345"
valeur  = "22222212345"
res     = "11111112345"

trace1("date_pivot: %u>", date_pivot)
trace2("Code_SGTQS:        %s>", Code_SGTQS,"")
trace2("Service:        %s>", Service,"")

#
# Concatenation de Service et Code_SGTQS pour former la cle
#
erreur = i_format_str2(Cle,"%s%s",Service,Code_SGTQS)
trace2("Cle: %s>", Cle,"")

#
# Recherche dans la table externe, de la valeur correspondante a la cle
#
valeur = i_get_tab_field( "code_apache", date_pivot, Cle )
SI( valeur == g_inull )
ALORS
       trace2( "ERREUR: Code_SGTQS %s> non trouve dans la table externe inef",Cle, "" )
       RETOUR 0
FINSI
trace2("Valeur trouvee: %s> : %s", valeur, "")

RETOUR valeur
