DEFINITION C_Article_800009411 "Tbticsip"
REGISTRE ENTIER Indicator_800009411
REGISTRE ENTIER RoleNode_800009411
REGISTRE ENTIER erreur_800009411
REGISTRE ENTIER code_rejet_800009411
#####################################################################
# TRAITEMENT Tbticsip : DC de facturation flux issus de la 
#					   premediation CGW-IMS
#####################################################################
#	HISTORIQUE
# 22/06/2011 - DRE - Creation
#####################################################################
# Constantes

# Variables fonctionnelles

# DECLARATION POINTEUR


# Initialisation
Indicator_800009411 = -1 
RoleNode_800009411 = -1 
erreur_800009411  = 0   
code_rejet_800009411 = 0


trace("[Tbticsip_tr] Traitement - Tbticsip")

################################################################
#
#	Controle unitaire
#
################################################################
#==============================================================
#champ AnswerIndic
SI (i_valid_field_n(g_iartin, $Tbticsip::AnswerIndicator))
ALORS
	Indicator_800009411 = i_get_art_field(g_iartin, $Tbticsip::AnswerIndicator)
	SI (Indicator_800009411 != 0 && Indicator_800009411 != 1 && Indicator_800009411 != 2)
	ALORS
		code_rejet_800009411 = 0x5042
		erreur_800009411 = i_PlvMessEmettre(7325,2,g_iartin,"",3,code_rejet_800009411,C_Article_800009411,Indicator_800009411)	
		SAUT STOCKE_ERRONE
	FINSI
FINSI


########################################
#champ RoleNode  
# RoleNode = 0 appel sortant (ORIGINATING)
# RoleNode = 1 appel entrant (TERMINATING)
########################################

RoleNode_800009411 = i_get_art_field(g_iartin, $Tbticsip::RoleNode)
SI (RoleNode_800009411 != 0 && RoleNode_800009411 != 1)
ALORS
	code_rejet_800009411 = 0x5042
	erreur_800009411 = i_PlvMessEmettre(7326,2,g_iartin,"",3,code_rejet_800009411,C_Article_800009411,RoleNode_800009411)	
	SAUT STOCKE_ERRONE
FINSI

######################################
# Stockage OK
######################################

erreur_800009411 = i_stocke_art(g_iartin, 0, PT_OK, 0)
RETOUR TRAIT_OK

############################################
#  POINT de branchement : stockage ERRONE  #
############################################

POINT STOCKE_ERRONE

#trace("Stockage en ERRONE ")
erreur_800009411 = i_make_art_rej(g_iartin,g_iartout,code_rejet_800009411)
erreur_800009411 = i_stocke_art(g_iartout, 0, PT_ERRONE,0)

RETOUR TRAIT_OK


