1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
CREATE OR REPLACE PROCEDURE p_analyse(p_codsoc IN NUMBER)
IS
wa_xmldiagnostic xmldom.domdocument;
wa_listenode xmldom.domnodelist;
wa_siteid VARCHAR2 (10);
wa_passwd VARCHAR2 (20);
BEGIN
wa_xmldiagnostic :=
f_gl_demandereponse(p_codsoc, wa_siteid, wa_passwd);
wa_listenode := xpath.selectnodes (wa_xmldiagnostic, '/stack/result');
FOR i IN 1 .. xmldom.getlength (wa_listenode)
LOOP
BEGIN
INSERT INTO vad_fianet_tmp
(numeve,
retour,
avancement,
dateeval,
eval,
info,
cosoc
)
VALUES (xpath.valueof (xmldom.item (wa_listenode, i - 1),
'@refid'
),
xpath.valueof (xmldom.item (wa_listenode, i - 1),
'@retour'
),
xpath.valueof (xmldom.item (wa_listenode, i - 1),
'/transaction@avancement'
),
xpath.valueof (xmldom.item (wa_listenode, i - 1),
'/transaction/analyse/eval@date'
),
xpath.valueof (xmldom.item (wa_listenode, i - 1),
'/transaction/analyse/eval'
),
xpath.valueof (xmldom.item (wa_listenode, i - 1),
'/transaction/analyse/eval@info'
),
p_codsoc
);
COMMIT;
END;
END LOOP;
END; |
Partager