# Fonction PCODE ID = 660004265
REGISTRE ENTIER ic_umtsqosinfo

REGISTRE ENTIER deliv_order
ic_umtsqosinfo = depilerENTIER()
deliv_order=(i_get_art_fieldtab(g_iartin, ic_umtsqosinfo, 4)  & 0x18) >> 3
RETOUR deliv_order
