DEFINITION ic_appli_800009854 2
REGISTRE ENTIER type_appli_800009854
REGISTRE ENTIER type_appli_ok_800009854
REGISTRE ENTIER erreur_800009854
REGISTRE POINTEUR pt_domaine_800009854
type_appli_800009854    = i_get_art_field(g_iartin,ic_appli_800009854)
type_appli_ok_800009854 = 0

SI (type_appli_800009854 == 0x60)
ALORS
	i_strcpy(pt_domaine_800009854,"Dtnn")
# VerifPcode - RHE # pt_domaine = "Dtnn"
	type_appli_ok_800009854 = 1
SINON
	SI (type_appli_800009854 == 0x62)
	ALORS
		i_strcpy(pt_domaine_800009854,"Dpam")
# VerifPcode - RHE # pt_domaine = "Dpam"
		type_appli_ok_800009854 = 1
	SINON
		SI (type_appli_800009854 == 0x29)
		ALORS
			i_strcpy(pt_domaine_800009854,"Dpcv")
# VerifPcode - RHE # pt_domaine = "Dpcv"
			type_appli_ok_800009854 = 1
		SINON
# FO1085 : Dfcp traite par Txxbloc3.src
		
# FO1090 (EV4.1) type_appli prend la valeur de 2A au lieu de 42
			SI (type_appli_800009854 == 0x2A)
			ALORS 
				i_strcpy(pt_domaine_800009854,"Dtop")
# VerifPcode - RHE # pt_domaine = "Dtop"
				type_appli_ok_800009854 = 1
			FINSI
		FINSI
	FINSI
FINSI

SI ( type_appli_ok_800009854 == 1 )
ALORS
	trace2( "Changement de domaine en %s", pt_domaine_800009854, "" )
	i_strcpy( g_idomain, pt_domaine_800009854 )
FINSI
