SGL Hexalis - Retransmettre factures Hprim

Devant l'absence de réponse de la hotline, voici un petit script shell qui devrait répondre au besoin. A utiliser avec toute prudence car il peut notamment ne pas fonctionner sous toutes les version d'Hexalis.
Il a été testé dans un environnement Hexalis 3.
Après, il suffit d'aller re-transmettre les factures dans les annexes.

. /opt/hexaflux/VARENV_GLX

if [ "A$1" = "A" ]
then
echo "Usage: retransmettreHprimFacturation.sh [-h nohosp| -n nodemx]" >&2
exit 1
fi

while [ $# -gt 0 ]
do
case $1 in
-h) shift; LNoHosp=$1;;
-n) shift; LNoDemx=$1;;
*) shift;;
esac
done

if [ "A$LNoHosp" = "A" -a "A$LNoDemx" = "A" ]
then
echo "Usage: retransmettreHprimFacturation.sh [-h nohosp| -n nodemx]" >&2
exit 1
fi
if [ "A$LNoHosp" != "A" -a "A$LNoDemx" != "A" ]
then
echo "Usage: retransmettreHprimFacturation.sh [-h nohosp| -n nodemx]" >&2
exit 1
fi

LNoHosp="${LNoHosp}%"
LNoDemx="${LNoDemx}%"

sqlplus -s $SQLUSER/$SQLPASSWD@$NOM_BASE_LABO <<!!

delete from hprimfactures
where (nodem) in (select d.nodem
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
and typetrans=2
/

delete from hprimencours
where (nodem,claboi,claboe) in (select d.nodem, d.clabo, c.ccorr
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
and typetrans=1
/

delete from idx
where (nodemx,tri) in (select d.nodemx, c.ccorr
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
/

insert into idx (select d.clabo, 'HP_FAC', d.nodemx, NULL, 0, NULL,
'20130531', 301,
'FINJOUR', NULL, 0,NULL,9, c.ccorr, 'ATTENTE', NULL,NULL,NULL,
NULL,NULL,NULL,
0,0,0,0,0,0
from demande d, apcorr c
where d.clabo='1'
and d.nohosp like '$LNoHosp'
and d.nodemx like '$LNoDemx'
and d.nodem=c.nodem)
/
commit
/
quit;
!!