1283: --
1284: l_proc varchar2(80) := c_package||'load_validate';
1285: --
1286: xml xmltype;
1287: xml_doc dbms_xmldom.domdocument;
1288: --
1289: doc_nodelist dbms_xmldom.domnodelist;
1290: doc_node dbms_xmldom.domnode;
1291: year_nodelist dbms_xmldom.domnodelist;
1285: --
1286: xml xmltype;
1287: xml_doc dbms_xmldom.domdocument;
1288: --
1289: doc_nodelist dbms_xmldom.domnodelist;
1290: doc_node dbms_xmldom.domnode;
1291: year_nodelist dbms_xmldom.domnodelist;
1292: year_node dbms_xmldom.domnode;
1293: --
1286: xml xmltype;
1287: xml_doc dbms_xmldom.domdocument;
1288: --
1289: doc_nodelist dbms_xmldom.domnodelist;
1290: doc_node dbms_xmldom.domnode;
1291: year_nodelist dbms_xmldom.domnodelist;
1292: year_node dbms_xmldom.domnode;
1293: --
1294: l_doc_cnt number;
1287: xml_doc dbms_xmldom.domdocument;
1288: --
1289: doc_nodelist dbms_xmldom.domnodelist;
1290: doc_node dbms_xmldom.domnode;
1291: year_nodelist dbms_xmldom.domnodelist;
1292: year_node dbms_xmldom.domnode;
1293: --
1294: l_doc_cnt number;
1295: l_year_cnt number;
1288: --
1289: doc_nodelist dbms_xmldom.domnodelist;
1290: doc_node dbms_xmldom.domnode;
1291: year_nodelist dbms_xmldom.domnodelist;
1292: year_node dbms_xmldom.domnode;
1293: --
1294: l_doc_cnt number;
1295: l_year_cnt number;
1296: --
1295: l_year_cnt number;
1296: --
1297: l_year varchar2(4);
1298: --
1299: form_nodelist dbms_xmldom.domnodelist;
1300: form_node dbms_xmldom.domnode;
1301: man_nodelist dbms_xmldom.domnodelist;
1302: man_node dbms_xmldom.domnode;
1303: --
1296: --
1297: l_year varchar2(4);
1298: --
1299: form_nodelist dbms_xmldom.domnodelist;
1300: form_node dbms_xmldom.domnode;
1301: man_nodelist dbms_xmldom.domnodelist;
1302: man_node dbms_xmldom.domnode;
1303: --
1304: l_form_cnt number;
1297: l_year varchar2(4);
1298: --
1299: form_nodelist dbms_xmldom.domnodelist;
1300: form_node dbms_xmldom.domnode;
1301: man_nodelist dbms_xmldom.domnodelist;
1302: man_node dbms_xmldom.domnode;
1303: --
1304: l_form_cnt number;
1305: l_man_cnt number;
1298: --
1299: form_nodelist dbms_xmldom.domnodelist;
1300: form_node dbms_xmldom.domnode;
1301: man_nodelist dbms_xmldom.domnodelist;
1302: man_node dbms_xmldom.domnode;
1303: --
1304: l_form_cnt number;
1305: l_man_cnt number;
1306: --
1317: --
1318: if nvl(g_skip_validate,'N') = 'N' then
1319: --
1320: xml := xmltype.createxml(p_xml);
1321: xml_doc := dbms_xmldom.newdomdocument(xml);
1322: --
1323: doc_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'doc');
1324: l_doc_cnt := dbms_xmldom.getlength(doc_nodelist);
1325: --
1319: --
1320: xml := xmltype.createxml(p_xml);
1321: xml_doc := dbms_xmldom.newdomdocument(xml);
1322: --
1323: doc_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'doc');
1324: l_doc_cnt := dbms_xmldom.getlength(doc_nodelist);
1325: --
1326: -- validation year
1327: -- looks isnull have bug in 9i so need cnt chk
1320: xml := xmltype.createxml(p_xml);
1321: xml_doc := dbms_xmldom.newdomdocument(xml);
1322: --
1323: doc_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'doc');
1324: l_doc_cnt := dbms_xmldom.getlength(doc_nodelist);
1325: --
1326: -- validation year
1327: -- looks isnull have bug in 9i so need cnt chk
1328: if not dbms_xmldom.isnull(doc_nodelist)
1324: l_doc_cnt := dbms_xmldom.getlength(doc_nodelist);
1325: --
1326: -- validation year
1327: -- looks isnull have bug in 9i so need cnt chk
1328: if not dbms_xmldom.isnull(doc_nodelist)
1329: and l_doc_cnt > 0 then
1330: --
1331: doc_node := dbms_xmldom.item(doc_nodelist,0);
1332: year_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(doc_node),'att_year');
1327: -- looks isnull have bug in 9i so need cnt chk
1328: if not dbms_xmldom.isnull(doc_nodelist)
1329: and l_doc_cnt > 0 then
1330: --
1331: doc_node := dbms_xmldom.item(doc_nodelist,0);
1332: year_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(doc_node),'att_year');
1333: l_year_cnt := dbms_xmldom.getlength(year_nodelist);
1334: --
1335: if not dbms_xmldom.isnull(year_nodelist)
1328: if not dbms_xmldom.isnull(doc_nodelist)
1329: and l_doc_cnt > 0 then
1330: --
1331: doc_node := dbms_xmldom.item(doc_nodelist,0);
1332: year_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(doc_node),'att_year');
1333: l_year_cnt := dbms_xmldom.getlength(year_nodelist);
1334: --
1335: if not dbms_xmldom.isnull(year_nodelist)
1336: and l_year_cnt > 0 then
1329: and l_doc_cnt > 0 then
1330: --
1331: doc_node := dbms_xmldom.item(doc_nodelist,0);
1332: year_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(doc_node),'att_year');
1333: l_year_cnt := dbms_xmldom.getlength(year_nodelist);
1334: --
1335: if not dbms_xmldom.isnull(year_nodelist)
1336: and l_year_cnt > 0 then
1337: --
1331: doc_node := dbms_xmldom.item(doc_nodelist,0);
1332: year_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(doc_node),'att_year');
1333: l_year_cnt := dbms_xmldom.getlength(year_nodelist);
1334: --
1335: if not dbms_xmldom.isnull(year_nodelist)
1336: and l_year_cnt > 0 then
1337: --
1338: year_node := dbms_xmldom.item(year_nodelist,0);
1339: l_year := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(year_node));
1334: --
1335: if not dbms_xmldom.isnull(year_nodelist)
1336: and l_year_cnt > 0 then
1337: --
1338: year_node := dbms_xmldom.item(year_nodelist,0);
1339: l_year := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(year_node));
1340: --
1341: if l_year <> to_char(g_target_yyyy) then
1342: --
1335: if not dbms_xmldom.isnull(year_nodelist)
1336: and l_year_cnt > 0 then
1337: --
1338: year_node := dbms_xmldom.item(year_nodelist,0);
1339: l_year := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(year_node));
1340: --
1341: if l_year <> to_char(g_target_yyyy) then
1342: --
1343: l_ora_code := 202; /* Invalid Year */
1361: end if;
1362: --
1363: if l_ora_code = 0 then
1364: --
1365: form_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'form');
1366: l_form_cnt := dbms_xmldom.getlength(form_nodelist);
1367: --
1368: if not dbms_xmldom.isnull(form_nodelist)
1369: and l_form_cnt > 0 then
1362: --
1363: if l_ora_code = 0 then
1364: --
1365: form_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'form');
1366: l_form_cnt := dbms_xmldom.getlength(form_nodelist);
1367: --
1368: if not dbms_xmldom.isnull(form_nodelist)
1369: and l_form_cnt > 0 then
1370: --
1364: --
1365: form_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'form');
1366: l_form_cnt := dbms_xmldom.getlength(form_nodelist);
1367: --
1368: if not dbms_xmldom.isnull(form_nodelist)
1369: and l_form_cnt > 0 then
1370: --
1371: -- check only first node only for performance reason
1372: form_node := dbms_xmldom.item(form_nodelist,0);
1368: if not dbms_xmldom.isnull(form_nodelist)
1369: and l_form_cnt > 0 then
1370: --
1371: -- check only first node only for performance reason
1372: form_node := dbms_xmldom.item(form_nodelist,0);
1373: --
1374: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(form_node),'man');
1375: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1376: --
1370: --
1371: -- check only first node only for performance reason
1372: form_node := dbms_xmldom.item(form_nodelist,0);
1373: --
1374: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(form_node),'man');
1375: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1376: --
1377: if not dbms_xmldom.isnull(man_nodelist)
1378: and l_man_cnt > 0 then
1371: -- check only first node only for performance reason
1372: form_node := dbms_xmldom.item(form_nodelist,0);
1373: --
1374: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(form_node),'man');
1375: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1376: --
1377: if not dbms_xmldom.isnull(man_nodelist)
1378: and l_man_cnt > 0 then
1379: --
1373: --
1374: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(form_node),'man');
1375: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1376: --
1377: if not dbms_xmldom.isnull(man_nodelist)
1378: and l_man_cnt > 0 then
1379: --
1380: -- need to check by finding employee info
1381: <
1380: -- need to check by finding employee info
1381: <
1382: for l_man_ind in 0..l_man_cnt - 1 loop
1383: --
1384: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1385: --
1386: if nvl(dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid'),'X') = cnv_ni(p_ni_num) then
1387: --
1388: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1382: for l_man_ind in 0..l_man_cnt - 1 loop
1383: --
1384: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1385: --
1386: if nvl(dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid'),'X') = cnv_ni(p_ni_num) then
1387: --
1388: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1389: l_emp_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1390: --
1384: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1385: --
1386: if nvl(dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid'),'X') = cnv_ni(p_ni_num) then
1387: --
1388: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1389: l_emp_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1390: --
1391: exit man_loop;
1392: --
1385: --
1386: if nvl(dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid'),'X') = cnv_ni(p_ni_num) then
1387: --
1388: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1389: l_emp_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1390: --
1391: exit man_loop;
1392: --
1393: end if;
1473: -- -------------------------------------------------------------------------
1474: -- get_item_values_in_form
1475: -- -------------------------------------------------------------------------
1476: function get_item_values_in_form(
1477: p_form_node in dbms_xmldom.domnode,
1478: p_form_type in varchar2,
1479: p_data_type in varchar2,
1480: p_item_name in varchar2)
1481: return t_char_tbl
1482: is
1483: --
1484: l_proc varchar2(80) := c_package||'get_item_values_in_form';
1485: --
1486: man_nodelist dbms_xmldom.domnodelist;
1487: man_node dbms_xmldom.domnode;
1488: data_nodelist dbms_xmldom.domnodelist;
1489: data_node dbms_xmldom.domnode;
1490: item_nodelist dbms_xmldom.domnodelist;
1483: --
1484: l_proc varchar2(80) := c_package||'get_item_values_in_form';
1485: --
1486: man_nodelist dbms_xmldom.domnodelist;
1487: man_node dbms_xmldom.domnode;
1488: data_nodelist dbms_xmldom.domnodelist;
1489: data_node dbms_xmldom.domnode;
1490: item_nodelist dbms_xmldom.domnodelist;
1491: item_node dbms_xmldom.domnode;
1484: l_proc varchar2(80) := c_package||'get_item_values_in_form';
1485: --
1486: man_nodelist dbms_xmldom.domnodelist;
1487: man_node dbms_xmldom.domnode;
1488: data_nodelist dbms_xmldom.domnodelist;
1489: data_node dbms_xmldom.domnode;
1490: item_nodelist dbms_xmldom.domnodelist;
1491: item_node dbms_xmldom.domnode;
1492: --
1485: --
1486: man_nodelist dbms_xmldom.domnodelist;
1487: man_node dbms_xmldom.domnode;
1488: data_nodelist dbms_xmldom.domnodelist;
1489: data_node dbms_xmldom.domnode;
1490: item_nodelist dbms_xmldom.domnodelist;
1491: item_node dbms_xmldom.domnode;
1492: --
1493: l_man_cnt number;
1486: man_nodelist dbms_xmldom.domnodelist;
1487: man_node dbms_xmldom.domnode;
1488: data_nodelist dbms_xmldom.domnodelist;
1489: data_node dbms_xmldom.domnode;
1490: item_nodelist dbms_xmldom.domnodelist;
1491: item_node dbms_xmldom.domnode;
1492: --
1493: l_man_cnt number;
1494: l_data_cnt number;
1487: man_node dbms_xmldom.domnode;
1488: data_nodelist dbms_xmldom.domnodelist;
1489: data_node dbms_xmldom.domnode;
1490: item_nodelist dbms_xmldom.domnodelist;
1491: item_node dbms_xmldom.domnode;
1492: --
1493: l_man_cnt number;
1494: l_data_cnt number;
1495: l_item_cnt number;
1502: if g_debug then
1503: hr_utility.set_location(l_proc,0);
1504: end if;
1505: --
1506: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
1507: --
1508: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1509: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1510: --
1504: end if;
1505: --
1506: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
1507: --
1508: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1509: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1510: --
1511: if not dbms_xmldom.isnull(man_nodelist)
1512: and l_man_cnt > 0 then
1505: --
1506: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
1507: --
1508: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1509: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1510: --
1511: if not dbms_xmldom.isnull(man_nodelist)
1512: and l_man_cnt > 0 then
1513: --
1507: --
1508: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1509: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1510: --
1511: if not dbms_xmldom.isnull(man_nodelist)
1512: and l_man_cnt > 0 then
1513: --
1514: for l_man_ind in 0..l_man_cnt - 1 loop
1515: --
1512: and l_man_cnt > 0 then
1513: --
1514: for l_man_ind in 0..l_man_cnt - 1 loop
1515: --
1516: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1517: --
1518: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1519: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1520: --
1514: for l_man_ind in 0..l_man_cnt - 1 loop
1515: --
1516: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1517: --
1518: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1519: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1520: --
1521: if not dbms_xmldom.isnull(data_nodelist)
1522: and l_data_cnt > 0 then
1515: --
1516: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1517: --
1518: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1519: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1520: --
1521: if not dbms_xmldom.isnull(data_nodelist)
1522: and l_data_cnt > 0 then
1523: --
1517: --
1518: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1519: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1520: --
1521: if not dbms_xmldom.isnull(data_nodelist)
1522: and l_data_cnt > 0 then
1523: --
1524: for l_data_ind in 0..l_data_cnt - 1 loop
1525: --
1522: and l_data_cnt > 0 then
1523: --
1524: for l_data_ind in 0..l_data_cnt - 1 loop
1525: --
1526: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1527: --
1528: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1529: --
1530: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1524: for l_data_ind in 0..l_data_cnt - 1 loop
1525: --
1526: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1527: --
1528: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1529: --
1530: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1531: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1532: --
1526: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1527: --
1528: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1529: --
1530: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1531: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1532: --
1533: if not dbms_xmldom.isnull(item_nodelist)
1534: and l_item_cnt > 0 then
1527: --
1528: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1529: --
1530: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1531: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1532: --
1533: if not dbms_xmldom.isnull(item_nodelist)
1534: and l_item_cnt > 0 then
1535: --
1529: --
1530: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1531: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1532: --
1533: if not dbms_xmldom.isnull(item_nodelist)
1534: and l_item_cnt > 0 then
1535: --
1536: item_node := dbms_xmldom.item(item_nodelist,0);
1537: --
1532: --
1533: if not dbms_xmldom.isnull(item_nodelist)
1534: and l_item_cnt > 0 then
1535: --
1536: item_node := dbms_xmldom.item(item_nodelist,0);
1537: --
1538: l_value_tbl(l_value_ind) := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
1539: l_value_ind := l_value_ind + 1;
1540: --
1534: and l_item_cnt > 0 then
1535: --
1536: item_node := dbms_xmldom.item(item_nodelist,0);
1537: --
1538: l_value_tbl(l_value_ind) := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
1539: l_value_ind := l_value_ind + 1;
1540: --
1541: end if;
1542: --
1565: -- -------------------------------------------------------------------------
1566: -- get_item_values_in_form
1567: -- -------------------------------------------------------------------------
1568: function get_item_values_in_form(
1569: p_form_node in dbms_xmldom.domnode,
1570: p_form_type in varchar2,
1571: p_man_key in varchar2,
1572: p_data_type in varchar2,
1573: p_item_name in varchar2)
1575: is
1576: --
1577: l_proc varchar2(80) := c_package||'get_item_values_in_form';
1578: --
1579: man_nodelist dbms_xmldom.domnodelist;
1580: man_node dbms_xmldom.domnode;
1581: data_nodelist dbms_xmldom.domnodelist;
1582: data_node dbms_xmldom.domnode;
1583: item_nodelist dbms_xmldom.domnodelist;
1576: --
1577: l_proc varchar2(80) := c_package||'get_item_values_in_form';
1578: --
1579: man_nodelist dbms_xmldom.domnodelist;
1580: man_node dbms_xmldom.domnode;
1581: data_nodelist dbms_xmldom.domnodelist;
1582: data_node dbms_xmldom.domnode;
1583: item_nodelist dbms_xmldom.domnodelist;
1584: item_node dbms_xmldom.domnode;
1577: l_proc varchar2(80) := c_package||'get_item_values_in_form';
1578: --
1579: man_nodelist dbms_xmldom.domnodelist;
1580: man_node dbms_xmldom.domnode;
1581: data_nodelist dbms_xmldom.domnodelist;
1582: data_node dbms_xmldom.domnode;
1583: item_nodelist dbms_xmldom.domnodelist;
1584: item_node dbms_xmldom.domnode;
1585: --
1578: --
1579: man_nodelist dbms_xmldom.domnodelist;
1580: man_node dbms_xmldom.domnode;
1581: data_nodelist dbms_xmldom.domnodelist;
1582: data_node dbms_xmldom.domnode;
1583: item_nodelist dbms_xmldom.domnodelist;
1584: item_node dbms_xmldom.domnode;
1585: --
1586: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
1579: man_nodelist dbms_xmldom.domnodelist;
1580: man_node dbms_xmldom.domnode;
1581: data_nodelist dbms_xmldom.domnodelist;
1582: data_node dbms_xmldom.domnode;
1583: item_nodelist dbms_xmldom.domnodelist;
1584: item_node dbms_xmldom.domnode;
1585: --
1586: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
1587: --
1580: man_node dbms_xmldom.domnode;
1581: data_nodelist dbms_xmldom.domnodelist;
1582: data_node dbms_xmldom.domnode;
1583: item_nodelist dbms_xmldom.domnodelist;
1584: item_node dbms_xmldom.domnode;
1585: --
1586: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
1587: --
1588: l_man_cnt number;
1597: if g_debug then
1598: hr_utility.set_location(l_proc,0);
1599: end if;
1600: --
1601: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
1602: --
1603: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1604: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1605: --
1599: end if;
1600: --
1601: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
1602: --
1603: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1604: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1605: --
1606: if not dbms_xmldom.isnull(man_nodelist)
1607: and l_man_cnt > 0 then
1600: --
1601: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
1602: --
1603: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1604: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1605: --
1606: if not dbms_xmldom.isnull(man_nodelist)
1607: and l_man_cnt > 0 then
1608: --
1602: --
1603: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1604: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1605: --
1606: if not dbms_xmldom.isnull(man_nodelist)
1607: and l_man_cnt > 0 then
1608: --
1609: for l_man_ind in 0..l_man_cnt - 1 loop
1610: --
1607: and l_man_cnt > 0 then
1608: --
1609: for l_man_ind in 0..l_man_cnt - 1 loop
1610: --
1611: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1612: --
1613: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
1614: --
1615: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1609: for l_man_ind in 0..l_man_cnt - 1 loop
1610: --
1611: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1612: --
1613: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
1614: --
1615: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1616: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1617: --
1611: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1612: --
1613: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
1614: --
1615: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1616: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1617: --
1618: if not dbms_xmldom.isnull(data_nodelist)
1619: and l_data_cnt > 0 then
1612: --
1613: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
1614: --
1615: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1616: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1617: --
1618: if not dbms_xmldom.isnull(data_nodelist)
1619: and l_data_cnt > 0 then
1620: --
1614: --
1615: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1616: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1617: --
1618: if not dbms_xmldom.isnull(data_nodelist)
1619: and l_data_cnt > 0 then
1620: --
1621: for l_data_ind in 0..l_data_cnt - 1 loop
1622: --
1619: and l_data_cnt > 0 then
1620: --
1621: for l_data_ind in 0..l_data_cnt - 1 loop
1622: --
1623: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1624: --
1625: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1626: --
1627: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1621: for l_data_ind in 0..l_data_cnt - 1 loop
1622: --
1623: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1624: --
1625: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1626: --
1627: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1628: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1629: --
1623: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1624: --
1625: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1626: --
1627: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1628: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1629: --
1630: if not dbms_xmldom.isnull(item_nodelist)
1631: and l_item_cnt > 0 then
1624: --
1625: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1626: --
1627: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1628: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1629: --
1630: if not dbms_xmldom.isnull(item_nodelist)
1631: and l_item_cnt > 0 then
1632: --
1626: --
1627: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1628: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1629: --
1630: if not dbms_xmldom.isnull(item_nodelist)
1631: and l_item_cnt > 0 then
1632: --
1633: item_node := dbms_xmldom.item(item_nodelist,0);
1634: --
1629: --
1630: if not dbms_xmldom.isnull(item_nodelist)
1631: and l_item_cnt > 0 then
1632: --
1633: item_node := dbms_xmldom.item(item_nodelist,0);
1634: --
1635: l_values_tbl(l_value_ind).key := l_man_key;
1636: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
1637: l_value_ind := l_value_ind + 1;
1632: --
1633: item_node := dbms_xmldom.item(item_nodelist,0);
1634: --
1635: l_values_tbl(l_value_ind).key := l_man_key;
1636: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
1637: l_value_ind := l_value_ind + 1;
1638: --
1639: end if;
1640: --
1663: -- -------------------------------------------------------------------------
1664: -- get_item_values_in_form
1665: -- -------------------------------------------------------------------------
1666: function get_item_values_in_form(
1667: p_form_node in dbms_xmldom.domnode,
1668: p_form_type in varchar2,
1669: p_data_type in varchar2,
1670: p_item_key in varchar2,
1671: p_item_name in varchar2)
1673: is
1674: --
1675: l_proc varchar2(80) := c_package||'get_item_values_in_form';
1676: --
1677: man_nodelist dbms_xmldom.domnodelist;
1678: man_node dbms_xmldom.domnode;
1679: data_nodelist dbms_xmldom.domnodelist;
1680: data_node dbms_xmldom.domnode;
1681: item_key_nodelist dbms_xmldom.domnodelist;
1674: --
1675: l_proc varchar2(80) := c_package||'get_item_values_in_form';
1676: --
1677: man_nodelist dbms_xmldom.domnodelist;
1678: man_node dbms_xmldom.domnode;
1679: data_nodelist dbms_xmldom.domnodelist;
1680: data_node dbms_xmldom.domnode;
1681: item_key_nodelist dbms_xmldom.domnodelist;
1682: item_key_node dbms_xmldom.domnode;
1675: l_proc varchar2(80) := c_package||'get_item_values_in_form';
1676: --
1677: man_nodelist dbms_xmldom.domnodelist;
1678: man_node dbms_xmldom.domnode;
1679: data_nodelist dbms_xmldom.domnodelist;
1680: data_node dbms_xmldom.domnode;
1681: item_key_nodelist dbms_xmldom.domnodelist;
1682: item_key_node dbms_xmldom.domnode;
1683: item_nodelist dbms_xmldom.domnodelist;
1676: --
1677: man_nodelist dbms_xmldom.domnodelist;
1678: man_node dbms_xmldom.domnode;
1679: data_nodelist dbms_xmldom.domnodelist;
1680: data_node dbms_xmldom.domnode;
1681: item_key_nodelist dbms_xmldom.domnodelist;
1682: item_key_node dbms_xmldom.domnode;
1683: item_nodelist dbms_xmldom.domnodelist;
1684: item_node dbms_xmldom.domnode;
1677: man_nodelist dbms_xmldom.domnodelist;
1678: man_node dbms_xmldom.domnode;
1679: data_nodelist dbms_xmldom.domnodelist;
1680: data_node dbms_xmldom.domnode;
1681: item_key_nodelist dbms_xmldom.domnodelist;
1682: item_key_node dbms_xmldom.domnode;
1683: item_nodelist dbms_xmldom.domnodelist;
1684: item_node dbms_xmldom.domnode;
1685: --
1678: man_node dbms_xmldom.domnode;
1679: data_nodelist dbms_xmldom.domnodelist;
1680: data_node dbms_xmldom.domnode;
1681: item_key_nodelist dbms_xmldom.domnodelist;
1682: item_key_node dbms_xmldom.domnode;
1683: item_nodelist dbms_xmldom.domnodelist;
1684: item_node dbms_xmldom.domnode;
1685: --
1686: l_item_key per_kr_assignment_yea_info.ayi_information1%type;
1679: data_nodelist dbms_xmldom.domnodelist;
1680: data_node dbms_xmldom.domnode;
1681: item_key_nodelist dbms_xmldom.domnodelist;
1682: item_key_node dbms_xmldom.domnode;
1683: item_nodelist dbms_xmldom.domnodelist;
1684: item_node dbms_xmldom.domnode;
1685: --
1686: l_item_key per_kr_assignment_yea_info.ayi_information1%type;
1687: --
1680: data_node dbms_xmldom.domnode;
1681: item_key_nodelist dbms_xmldom.domnodelist;
1682: item_key_node dbms_xmldom.domnode;
1683: item_nodelist dbms_xmldom.domnodelist;
1684: item_node dbms_xmldom.domnode;
1685: --
1686: l_item_key per_kr_assignment_yea_info.ayi_information1%type;
1687: --
1688: l_man_cnt number;
1698: if g_debug then
1699: hr_utility.set_location(l_proc,0);
1700: end if;
1701: --
1702: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
1703: --
1704: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1705: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1706: --
1700: end if;
1701: --
1702: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
1703: --
1704: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1705: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1706: --
1707: if not dbms_xmldom.isnull(man_nodelist)
1708: and l_man_cnt > 0 then
1701: --
1702: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
1703: --
1704: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1705: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1706: --
1707: if not dbms_xmldom.isnull(man_nodelist)
1708: and l_man_cnt > 0 then
1709: --
1703: --
1704: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1705: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1706: --
1707: if not dbms_xmldom.isnull(man_nodelist)
1708: and l_man_cnt > 0 then
1709: --
1710: for l_man_ind in 0..l_man_cnt - 1 loop
1711: --
1708: and l_man_cnt > 0 then
1709: --
1710: for l_man_ind in 0..l_man_cnt - 1 loop
1711: --
1712: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1713: --
1714: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1715: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1716: --
1710: for l_man_ind in 0..l_man_cnt - 1 loop
1711: --
1712: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1713: --
1714: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1715: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1716: --
1717: if not dbms_xmldom.isnull(data_nodelist)
1718: and l_data_cnt > 0 then
1711: --
1712: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1713: --
1714: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1715: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1716: --
1717: if not dbms_xmldom.isnull(data_nodelist)
1718: and l_data_cnt > 0 then
1719: --
1713: --
1714: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1715: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1716: --
1717: if not dbms_xmldom.isnull(data_nodelist)
1718: and l_data_cnt > 0 then
1719: --
1720: for l_data_ind in 0..l_data_cnt - 1 loop
1721: --
1718: and l_data_cnt > 0 then
1719: --
1720: for l_data_ind in 0..l_data_cnt - 1 loop
1721: --
1722: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1723: --
1724: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1725: --
1726: l_item_key := null;
1720: for l_data_ind in 0..l_data_cnt - 1 loop
1721: --
1722: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1723: --
1724: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1725: --
1726: l_item_key := null;
1727: --
1728: item_key_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_key);
1724: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
1725: --
1726: l_item_key := null;
1727: --
1728: item_key_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_key);
1729: l_item_key_cnt := dbms_xmldom.getlength(item_key_nodelist);
1730: --
1731: if not dbms_xmldom.isnull(item_key_nodelist)
1732: and l_item_key_cnt > 0 then
1725: --
1726: l_item_key := null;
1727: --
1728: item_key_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_key);
1729: l_item_key_cnt := dbms_xmldom.getlength(item_key_nodelist);
1730: --
1731: if not dbms_xmldom.isnull(item_key_nodelist)
1732: and l_item_key_cnt > 0 then
1733: --
1727: --
1728: item_key_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_key);
1729: l_item_key_cnt := dbms_xmldom.getlength(item_key_nodelist);
1730: --
1731: if not dbms_xmldom.isnull(item_key_nodelist)
1732: and l_item_key_cnt > 0 then
1733: --
1734: item_key_node := dbms_xmldom.item(item_key_nodelist,0);
1735: --
1730: --
1731: if not dbms_xmldom.isnull(item_key_nodelist)
1732: and l_item_key_cnt > 0 then
1733: --
1734: item_key_node := dbms_xmldom.item(item_key_nodelist,0);
1735: --
1736: l_item_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_key_node));
1737: --
1738: end if;
1732: and l_item_key_cnt > 0 then
1733: --
1734: item_key_node := dbms_xmldom.item(item_key_nodelist,0);
1735: --
1736: l_item_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_key_node));
1737: --
1738: end if;
1739: --
1740: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1736: l_item_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_key_node));
1737: --
1738: end if;
1739: --
1740: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1741: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1742: --
1743: if not dbms_xmldom.isnull(item_nodelist)
1744: and l_item_cnt > 0 then
1737: --
1738: end if;
1739: --
1740: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1741: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1742: --
1743: if not dbms_xmldom.isnull(item_nodelist)
1744: and l_item_cnt > 0 then
1745: --
1739: --
1740: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
1741: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
1742: --
1743: if not dbms_xmldom.isnull(item_nodelist)
1744: and l_item_cnt > 0 then
1745: --
1746: item_node := dbms_xmldom.item(item_nodelist,0);
1747: --
1742: --
1743: if not dbms_xmldom.isnull(item_nodelist)
1744: and l_item_cnt > 0 then
1745: --
1746: item_node := dbms_xmldom.item(item_nodelist,0);
1747: --
1748: l_values_tbl(l_value_ind).key := l_item_key;
1749: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
1750: l_value_ind := l_value_ind + 1;
1745: --
1746: item_node := dbms_xmldom.item(item_nodelist,0);
1747: --
1748: l_values_tbl(l_value_ind).key := l_item_key;
1749: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
1750: l_value_ind := l_value_ind + 1;
1751: --
1752: end if;
1753: --
1776: -- -------------------------------------------------------------------------
1777: -- get_donate_values
1778: -- -------------------------------------------------------------------------
1779: function get_donate_values(
1780: p_form_node in dbms_xmldom.domnode)
1781: return t_don_tbl
1782: is
1783: --
1784: l_proc varchar2(80) := c_package||'get_donate_values';
1782: is
1783: --
1784: l_proc varchar2(80) := c_package||'get_donate_values';
1785: --
1786: man_nodelist dbms_xmldom.domnodelist;
1787: man_node dbms_xmldom.domnode;
1788: data_nodelist dbms_xmldom.domnodelist;
1789: data_node dbms_xmldom.domnode;
1790: sum_nodelist dbms_xmldom.domnodelist;
1783: --
1784: l_proc varchar2(80) := c_package||'get_donate_values';
1785: --
1786: man_nodelist dbms_xmldom.domnodelist;
1787: man_node dbms_xmldom.domnode;
1788: data_nodelist dbms_xmldom.domnodelist;
1789: data_node dbms_xmldom.domnode;
1790: sum_nodelist dbms_xmldom.domnodelist;
1791: sum_node dbms_xmldom.domnode;
1784: l_proc varchar2(80) := c_package||'get_donate_values';
1785: --
1786: man_nodelist dbms_xmldom.domnodelist;
1787: man_node dbms_xmldom.domnode;
1788: data_nodelist dbms_xmldom.domnodelist;
1789: data_node dbms_xmldom.domnode;
1790: sum_nodelist dbms_xmldom.domnodelist;
1791: sum_node dbms_xmldom.domnode;
1792: amt_nodelist dbms_xmldom.domnodelist;
1785: --
1786: man_nodelist dbms_xmldom.domnodelist;
1787: man_node dbms_xmldom.domnode;
1788: data_nodelist dbms_xmldom.domnodelist;
1789: data_node dbms_xmldom.domnode;
1790: sum_nodelist dbms_xmldom.domnodelist;
1791: sum_node dbms_xmldom.domnode;
1792: amt_nodelist dbms_xmldom.domnodelist;
1793: amt_node dbms_xmldom.domnode;
1786: man_nodelist dbms_xmldom.domnodelist;
1787: man_node dbms_xmldom.domnode;
1788: data_nodelist dbms_xmldom.domnodelist;
1789: data_node dbms_xmldom.domnode;
1790: sum_nodelist dbms_xmldom.domnodelist;
1791: sum_node dbms_xmldom.domnode;
1792: amt_nodelist dbms_xmldom.domnodelist;
1793: amt_node dbms_xmldom.domnode;
1794: --
1787: man_node dbms_xmldom.domnode;
1788: data_nodelist dbms_xmldom.domnodelist;
1789: data_node dbms_xmldom.domnode;
1790: sum_nodelist dbms_xmldom.domnodelist;
1791: sum_node dbms_xmldom.domnode;
1792: amt_nodelist dbms_xmldom.domnodelist;
1793: amt_node dbms_xmldom.domnode;
1794: --
1795: l_man_cnt number;
1788: data_nodelist dbms_xmldom.domnodelist;
1789: data_node dbms_xmldom.domnode;
1790: sum_nodelist dbms_xmldom.domnodelist;
1791: sum_node dbms_xmldom.domnode;
1792: amt_nodelist dbms_xmldom.domnodelist;
1793: amt_node dbms_xmldom.domnode;
1794: --
1795: l_man_cnt number;
1796: l_data_cnt number;
1789: data_node dbms_xmldom.domnode;
1790: sum_nodelist dbms_xmldom.domnodelist;
1791: sum_node dbms_xmldom.domnode;
1792: amt_nodelist dbms_xmldom.domnodelist;
1793: amt_node dbms_xmldom.domnode;
1794: --
1795: l_man_cnt number;
1796: l_data_cnt number;
1797: l_sum_cnt number;
1814: if g_debug then
1815: hr_utility.set_location(l_proc,0);
1816: end if;
1817: --
1818: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = 'L101Y' then
1819: --
1820: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1821: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1822: --
1816: end if;
1817: --
1818: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = 'L101Y' then
1819: --
1820: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1821: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1822: --
1823: if not dbms_xmldom.isnull(man_nodelist)
1824: and l_man_cnt > 0 then
1817: --
1818: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = 'L101Y' then
1819: --
1820: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1821: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1822: --
1823: if not dbms_xmldom.isnull(man_nodelist)
1824: and l_man_cnt > 0 then
1825: --
1819: --
1820: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1821: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1822: --
1823: if not dbms_xmldom.isnull(man_nodelist)
1824: and l_man_cnt > 0 then
1825: --
1826: for l_man_ind in 0..l_man_cnt - 1 loop
1827: --
1824: and l_man_cnt > 0 then
1825: --
1826: for l_man_ind in 0..l_man_cnt - 1 loop
1827: --
1828: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1829: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1830: l_don_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1831: --
1832: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1825: --
1826: for l_man_ind in 0..l_man_cnt - 1 loop
1827: --
1828: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1829: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1830: l_don_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1831: --
1832: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1833: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1826: for l_man_ind in 0..l_man_cnt - 1 loop
1827: --
1828: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1829: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1830: l_don_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1831: --
1832: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1833: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1834: --
1828: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1829: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1830: l_don_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1831: --
1832: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1833: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1834: --
1835: if not dbms_xmldom.isnull(data_nodelist)
1836: and l_data_cnt > 0 then
1829: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1830: l_don_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1831: --
1832: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1833: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1834: --
1835: if not dbms_xmldom.isnull(data_nodelist)
1836: and l_data_cnt > 0 then
1837: --
1831: --
1832: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1833: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1834: --
1835: if not dbms_xmldom.isnull(data_nodelist)
1836: and l_data_cnt > 0 then
1837: --
1838: for l_data_ind in 0..l_data_cnt - 1 loop
1839: --
1836: and l_data_cnt > 0 then
1837: --
1838: for l_data_ind in 0..l_data_cnt - 1 loop
1839: --
1840: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1841: --
1842: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = 'L01' then
1843: --
1844: l_don_code := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'donation_cd');
1838: for l_data_ind in 0..l_data_cnt - 1 loop
1839: --
1840: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1841: --
1842: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = 'L01' then
1843: --
1844: l_don_code := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'donation_cd');
1845: l_rec_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'trade_nm');
1846: l_rec_bg_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'busnid');
1840: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1841: --
1842: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = 'L01' then
1843: --
1844: l_don_code := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'donation_cd');
1845: l_rec_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'trade_nm');
1846: l_rec_bg_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'busnid');
1847: l_sum := null;
1848: --
1841: --
1842: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = 'L01' then
1843: --
1844: l_don_code := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'donation_cd');
1845: l_rec_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'trade_nm');
1846: l_rec_bg_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'busnid');
1847: l_sum := null;
1848: --
1849: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
1842: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = 'L01' then
1843: --
1844: l_don_code := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'donation_cd');
1845: l_rec_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'trade_nm');
1846: l_rec_bg_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'busnid');
1847: l_sum := null;
1848: --
1849: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
1850: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
1845: l_rec_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'trade_nm');
1846: l_rec_bg_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'busnid');
1847: l_sum := null;
1848: --
1849: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
1850: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
1851: --
1852: if not dbms_xmldom.isnull(sum_nodelist)
1853: and l_sum_cnt > 0 then
1846: l_rec_bg_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'busnid');
1847: l_sum := null;
1848: --
1849: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
1850: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
1851: --
1852: if not dbms_xmldom.isnull(sum_nodelist)
1853: and l_sum_cnt > 0 then
1854: --
1848: --
1849: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
1850: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
1851: --
1852: if not dbms_xmldom.isnull(sum_nodelist)
1853: and l_sum_cnt > 0 then
1854: --
1855: for l_sum_ind in 0..l_sum_cnt - 1 loop
1856: --
1853: and l_sum_cnt > 0 then
1854: --
1855: for l_sum_ind in 0..l_sum_cnt - 1 loop
1856: --
1857: sum_node := dbms_xmldom.item(sum_nodelist,l_sum_ind);
1858: --
1859: l_sum := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(sum_node));
1860: --
1861: end loop;
1855: for l_sum_ind in 0..l_sum_cnt - 1 loop
1856: --
1857: sum_node := dbms_xmldom.item(sum_nodelist,l_sum_ind);
1858: --
1859: l_sum := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(sum_node));
1860: --
1861: end loop;
1862: --
1863: end if;
1861: end loop;
1862: --
1863: end if;
1864: --
1865: amt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'amt');
1866: l_amt_cnt := dbms_xmldom.getlength(amt_nodelist);
1867: --
1868: if not dbms_xmldom.isnull(amt_nodelist)
1869: and l_amt_cnt > 0 then
1862: --
1863: end if;
1864: --
1865: amt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'amt');
1866: l_amt_cnt := dbms_xmldom.getlength(amt_nodelist);
1867: --
1868: if not dbms_xmldom.isnull(amt_nodelist)
1869: and l_amt_cnt > 0 then
1870: --
1864: --
1865: amt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'amt');
1866: l_amt_cnt := dbms_xmldom.getlength(amt_nodelist);
1867: --
1868: if not dbms_xmldom.isnull(amt_nodelist)
1869: and l_amt_cnt > 0 then
1870: --
1871: for l_amt_ind in 0..l_amt_cnt - 1 loop
1872: --
1869: and l_amt_cnt > 0 then
1870: --
1871: for l_amt_ind in 0..l_amt_cnt - 1 loop
1872: --
1873: amt_node := dbms_xmldom.item(amt_nodelist,l_amt_ind);
1874: --
1875: IF l_don_code <> '30' THEN
1876: l_values_tbl(l_value_ind).ni_num := l_ni_num;
1877: l_values_tbl(l_value_ind).donator_name := l_don_name;
1876: l_values_tbl(l_value_ind).ni_num := l_ni_num;
1877: l_values_tbl(l_value_ind).donator_name := l_don_name;
1878: l_values_tbl(l_value_ind).donation_code := l_don_code;
1879: l_values_tbl(l_value_ind).sum := l_sum;
1880: l_values_tbl(l_value_ind).donated_amount := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(amt_node));
1881: l_values_tbl(l_value_ind).donated_date := dbms_xmldom.getattribute(dbms_xmldom.makeelement(amt_node),'dd');
1882: l_values_tbl(l_value_ind).recipient_name := l_rec_name;
1883: l_values_tbl(l_value_ind).recipient_registration_number := l_rec_bg_num;
1884: l_value_ind := l_value_ind + 1;
1877: l_values_tbl(l_value_ind).donator_name := l_don_name;
1878: l_values_tbl(l_value_ind).donation_code := l_don_code;
1879: l_values_tbl(l_value_ind).sum := l_sum;
1880: l_values_tbl(l_value_ind).donated_amount := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(amt_node));
1881: l_values_tbl(l_value_ind).donated_date := dbms_xmldom.getattribute(dbms_xmldom.makeelement(amt_node),'dd');
1882: l_values_tbl(l_value_ind).recipient_name := l_rec_name;
1883: l_values_tbl(l_value_ind).recipient_registration_number := l_rec_bg_num;
1884: l_value_ind := l_value_ind + 1;
1885: END IF;
1925: -- -------------------------------------------------------------------------
1926: -- get_dep_eduction_values
1927: -- -------------------------------------------------------------------------
1928: function get_dep_eduction_values(
1929: p_form_node in dbms_xmldom.domnode,
1930: p_ni_num in varchar2)
1931: return t_educ_tbl
1932: is
1933: --
1932: is
1933: --
1934: l_proc varchar2(80) := c_package||'get_dep_eduction_values';
1935: --
1936: man_nodelist dbms_xmldom.domnodelist;
1937: man_node dbms_xmldom.domnode;
1938: data_nodelist dbms_xmldom.domnodelist;
1939: data_node dbms_xmldom.domnode;
1940: sum_nodelist dbms_xmldom.domnodelist;
1933: --
1934: l_proc varchar2(80) := c_package||'get_dep_eduction_values';
1935: --
1936: man_nodelist dbms_xmldom.domnodelist;
1937: man_node dbms_xmldom.domnode;
1938: data_nodelist dbms_xmldom.domnodelist;
1939: data_node dbms_xmldom.domnode;
1940: sum_nodelist dbms_xmldom.domnodelist;
1941: sum_node dbms_xmldom.domnode;
1934: l_proc varchar2(80) := c_package||'get_dep_eduction_values';
1935: --
1936: man_nodelist dbms_xmldom.domnodelist;
1937: man_node dbms_xmldom.domnode;
1938: data_nodelist dbms_xmldom.domnodelist;
1939: data_node dbms_xmldom.domnode;
1940: sum_nodelist dbms_xmldom.domnodelist;
1941: sum_node dbms_xmldom.domnode;
1942: --
1935: --
1936: man_nodelist dbms_xmldom.domnodelist;
1937: man_node dbms_xmldom.domnode;
1938: data_nodelist dbms_xmldom.domnodelist;
1939: data_node dbms_xmldom.domnode;
1940: sum_nodelist dbms_xmldom.domnodelist;
1941: sum_node dbms_xmldom.domnode;
1942: --
1943: l_man_cnt number;
1936: man_nodelist dbms_xmldom.domnodelist;
1937: man_node dbms_xmldom.domnode;
1938: data_nodelist dbms_xmldom.domnodelist;
1939: data_node dbms_xmldom.domnode;
1940: sum_nodelist dbms_xmldom.domnodelist;
1941: sum_node dbms_xmldom.domnode;
1942: --
1943: l_man_cnt number;
1944: l_data_cnt number;
1937: man_node dbms_xmldom.domnode;
1938: data_nodelist dbms_xmldom.domnodelist;
1939: data_node dbms_xmldom.domnode;
1940: sum_nodelist dbms_xmldom.domnodelist;
1941: sum_node dbms_xmldom.domnode;
1942: --
1943: l_man_cnt number;
1944: l_data_cnt number;
1945: l_sum_cnt number;
1957: if g_debug then
1958: hr_utility.set_location(l_proc,0);
1959: end if;
1960: --
1961: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = 'C101Y' then
1962: --
1963: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1964: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1965: --
1959: end if;
1960: --
1961: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = 'C101Y' then
1962: --
1963: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1964: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1965: --
1966: if not dbms_xmldom.isnull(man_nodelist)
1967: and l_man_cnt > 0 then
1960: --
1961: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = 'C101Y' then
1962: --
1963: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1964: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1965: --
1966: if not dbms_xmldom.isnull(man_nodelist)
1967: and l_man_cnt > 0 then
1968: --
1962: --
1963: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
1964: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
1965: --
1966: if not dbms_xmldom.isnull(man_nodelist)
1967: and l_man_cnt > 0 then
1968: --
1969: for l_man_ind in 0..l_man_cnt - 1 loop
1970: --
1967: and l_man_cnt > 0 then
1968: --
1969: for l_man_ind in 0..l_man_cnt - 1 loop
1970: --
1971: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1972: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1973: l_dpnt_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1974: --
1975: -- capture only dependent info
1968: --
1969: for l_man_ind in 0..l_man_cnt - 1 loop
1970: --
1971: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1972: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1973: l_dpnt_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1974: --
1975: -- capture only dependent info
1976: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid') <> p_ni_num then
1969: for l_man_ind in 0..l_man_cnt - 1 loop
1970: --
1971: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
1972: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1973: l_dpnt_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1974: --
1975: -- capture only dependent info
1976: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid') <> p_ni_num then
1977: --
1972: l_ni_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid');
1973: l_dpnt_name := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
1974: --
1975: -- capture only dependent info
1976: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid') <> p_ni_num then
1977: --
1978: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1979: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1980: --
1974: --
1975: -- capture only dependent info
1976: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid') <> p_ni_num then
1977: --
1978: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1979: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1980: --
1981: if not dbms_xmldom.isnull(data_nodelist)
1982: and l_data_cnt > 0 then
1975: -- capture only dependent info
1976: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'resid') <> p_ni_num then
1977: --
1978: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1979: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1980: --
1981: if not dbms_xmldom.isnull(data_nodelist)
1982: and l_data_cnt > 0 then
1983: --
1977: --
1978: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
1979: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
1980: --
1981: if not dbms_xmldom.isnull(data_nodelist)
1982: and l_data_cnt > 0 then
1983: --
1984: for l_data_ind in 0..l_data_cnt - 1 loop
1985: --
1984: for l_data_ind in 0..l_data_cnt - 1 loop
1985: --
1986: l_exp := null;
1987: --
1988: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1989: --
1990: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
1991: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
1992: --
1986: l_exp := null;
1987: --
1988: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1989: --
1990: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
1991: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
1992: --
1993: if not dbms_xmldom.isnull(sum_nodelist)
1994: and l_sum_cnt > 0 then
1987: --
1988: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
1989: --
1990: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
1991: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
1992: --
1993: if not dbms_xmldom.isnull(sum_nodelist)
1994: and l_sum_cnt > 0 then
1995: --
1989: --
1990: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
1991: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
1992: --
1993: if not dbms_xmldom.isnull(sum_nodelist)
1994: and l_sum_cnt > 0 then
1995: --
1996: for l_sum_ind in 0..l_sum_cnt - 1 loop
1997: --
1994: and l_sum_cnt > 0 then
1995: --
1996: for l_sum_ind in 0..l_sum_cnt - 1 loop
1997: --
1998: sum_node := dbms_xmldom.item(sum_nodelist,l_sum_ind);
1999: --
2000: l_exp := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(sum_node));
2001: --
2002: end loop;
1996: for l_sum_ind in 0..l_sum_cnt - 1 loop
1997: --
1998: sum_node := dbms_xmldom.item(sum_nodelist,l_sum_ind);
1999: --
2000: l_exp := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(sum_node));
2001: --
2002: end loop;
2003: --
2004: end if;
2002: end loop;
2003: --
2004: end if;
2005: --
2006: l_school_type := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'edu_tp');
2007:
2008: -- Mapping the school types to the 'D','H','P','U'
2009: if l_school_type IN ('1','8','F','G') THEN
2010: l_school_type := 'P';
2048: -- -------------------------------------------------------------------------
2049: -- get_saving_values
2050: -- -------------------------------------------------------------------------
2051: function get_saving_values(
2052: p_form_node in dbms_xmldom.domnode,
2053: p_form_type in varchar2,
2054: p_data_type in varchar2,
2055: p_item_type in varchar2 default null,
2056: p_lts_type in varchar2 default null)
2058: is
2059: --
2060: l_proc varchar2(80) := c_package||'get_saving_values';
2061: --
2062: man_nodelist dbms_xmldom.domnodelist;
2063: man_node dbms_xmldom.domnode;
2064: data_nodelist dbms_xmldom.domnodelist;
2065: data_node dbms_xmldom.domnode;
2066: type_nodelist dbms_xmldom.domnodelist;
2059: --
2060: l_proc varchar2(80) := c_package||'get_saving_values';
2061: --
2062: man_nodelist dbms_xmldom.domnodelist;
2063: man_node dbms_xmldom.domnode;
2064: data_nodelist dbms_xmldom.domnodelist;
2065: data_node dbms_xmldom.domnode;
2066: type_nodelist dbms_xmldom.domnodelist;
2067: type_node dbms_xmldom.domnode;
2060: l_proc varchar2(80) := c_package||'get_saving_values';
2061: --
2062: man_nodelist dbms_xmldom.domnodelist;
2063: man_node dbms_xmldom.domnode;
2064: data_nodelist dbms_xmldom.domnodelist;
2065: data_node dbms_xmldom.domnode;
2066: type_nodelist dbms_xmldom.domnodelist;
2067: type_node dbms_xmldom.domnode;
2068: sum_nodelist dbms_xmldom.domnodelist;
2061: --
2062: man_nodelist dbms_xmldom.domnodelist;
2063: man_node dbms_xmldom.domnode;
2064: data_nodelist dbms_xmldom.domnodelist;
2065: data_node dbms_xmldom.domnode;
2066: type_nodelist dbms_xmldom.domnodelist;
2067: type_node dbms_xmldom.domnode;
2068: sum_nodelist dbms_xmldom.domnodelist;
2069: sum_node dbms_xmldom.domnode;
2062: man_nodelist dbms_xmldom.domnodelist;
2063: man_node dbms_xmldom.domnode;
2064: data_nodelist dbms_xmldom.domnodelist;
2065: data_node dbms_xmldom.domnode;
2066: type_nodelist dbms_xmldom.domnodelist;
2067: type_node dbms_xmldom.domnode;
2068: sum_nodelist dbms_xmldom.domnodelist;
2069: sum_node dbms_xmldom.domnode;
2070: --
2063: man_node dbms_xmldom.domnode;
2064: data_nodelist dbms_xmldom.domnodelist;
2065: data_node dbms_xmldom.domnode;
2066: type_nodelist dbms_xmldom.domnodelist;
2067: type_node dbms_xmldom.domnode;
2068: sum_nodelist dbms_xmldom.domnodelist;
2069: sum_node dbms_xmldom.domnode;
2070: --
2071: l_man_cnt number;
2064: data_nodelist dbms_xmldom.domnodelist;
2065: data_node dbms_xmldom.domnode;
2066: type_nodelist dbms_xmldom.domnodelist;
2067: type_node dbms_xmldom.domnode;
2068: sum_nodelist dbms_xmldom.domnodelist;
2069: sum_node dbms_xmldom.domnode;
2070: --
2071: l_man_cnt number;
2072: l_data_cnt number;
2065: data_node dbms_xmldom.domnode;
2066: type_nodelist dbms_xmldom.domnodelist;
2067: type_node dbms_xmldom.domnode;
2068: sum_nodelist dbms_xmldom.domnodelist;
2069: sum_node dbms_xmldom.domnode;
2070: --
2071: l_man_cnt number;
2072: l_data_cnt number;
2073: l_type_cnt number;
2086: if g_debug then
2087: hr_utility.set_location(l_proc,0);
2088: end if;
2089: --
2090: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2091: --
2092: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2093: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2094: --
2088: end if;
2089: --
2090: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2091: --
2092: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2093: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2094: --
2095: if not dbms_xmldom.isnull(man_nodelist)
2096: and l_man_cnt > 0 then
2089: --
2090: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2091: --
2092: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2093: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2094: --
2095: if not dbms_xmldom.isnull(man_nodelist)
2096: and l_man_cnt > 0 then
2097: --
2091: --
2092: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2093: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2094: --
2095: if not dbms_xmldom.isnull(man_nodelist)
2096: and l_man_cnt > 0 then
2097: --
2098: for l_man_ind in 0..l_man_cnt - 1 loop
2099: --
2096: and l_man_cnt > 0 then
2097: --
2098: for l_man_ind in 0..l_man_cnt - 1 loop
2099: --
2100: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2101: --
2102: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2103: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2104: --
2098: for l_man_ind in 0..l_man_cnt - 1 loop
2099: --
2100: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2101: --
2102: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2103: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2104: --
2105: if not dbms_xmldom.isnull(data_nodelist)
2106: and l_data_cnt > 0 then
2099: --
2100: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2101: --
2102: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2103: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2104: --
2105: if not dbms_xmldom.isnull(data_nodelist)
2106: and l_data_cnt > 0 then
2107: --
2101: --
2102: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2103: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2104: --
2105: if not dbms_xmldom.isnull(data_nodelist)
2106: and l_data_cnt > 0 then
2107: --
2108: for l_data_ind in 0..l_data_cnt - 1 loop
2109: --
2106: and l_data_cnt > 0 then
2107: --
2108: for l_data_ind in 0..l_data_cnt - 1 loop
2109: --
2110: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2111: --
2112: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2113: --
2114: l_type := null;
2108: for l_data_ind in 0..l_data_cnt - 1 loop
2109: --
2110: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2111: --
2112: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2113: --
2114: l_type := null;
2115: l_sum := null;
2116: -- l_sum_y2 := null;
2117: l_sum_y3 := null;
2118: --
2119: if p_item_type is not null then
2120: --
2121: type_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_type);
2122: l_type_cnt := dbms_xmldom.getlength(type_nodelist);
2123: --
2124: if not dbms_xmldom.isnull(type_nodelist)
2125: and l_type_cnt > 0 then
2118: --
2119: if p_item_type is not null then
2120: --
2121: type_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_type);
2122: l_type_cnt := dbms_xmldom.getlength(type_nodelist);
2123: --
2124: if not dbms_xmldom.isnull(type_nodelist)
2125: and l_type_cnt > 0 then
2126: --
2120: --
2121: type_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_type);
2122: l_type_cnt := dbms_xmldom.getlength(type_nodelist);
2123: --
2124: if not dbms_xmldom.isnull(type_nodelist)
2125: and l_type_cnt > 0 then
2126: --
2127: for l_type_ind in 0..l_type_cnt - 1 loop
2128: --
2125: and l_type_cnt > 0 then
2126: --
2127: for l_type_ind in 0..l_type_cnt - 1 loop
2128: --
2129: type_node := dbms_xmldom.item(type_nodelist,l_type_ind);
2130: --
2131: l_type := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(type_node));
2132: --
2133: end loop;
2127: for l_type_ind in 0..l_type_cnt - 1 loop
2128: --
2129: type_node := dbms_xmldom.item(type_nodelist,l_type_ind);
2130: --
2131: l_type := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(type_node));
2132: --
2133: end loop;
2134: --
2135: end if;
2135: end if;
2136: --
2137: end if;
2138: --
2139: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
2140: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
2141: --
2142: if not dbms_xmldom.isnull(sum_nodelist)
2143: and l_sum_cnt > 0 then
2136: --
2137: end if;
2138: --
2139: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
2140: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
2141: --
2142: if not dbms_xmldom.isnull(sum_nodelist)
2143: and l_sum_cnt > 0 then
2144: --
2138: --
2139: sum_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'sum');
2140: l_sum_cnt := dbms_xmldom.getlength(sum_nodelist);
2141: --
2142: if not dbms_xmldom.isnull(sum_nodelist)
2143: and l_sum_cnt > 0 then
2144: --
2145: for l_sum_ind in 0..l_sum_cnt - 1 loop
2146: --
2143: and l_sum_cnt > 0 then
2144: --
2145: for l_sum_ind in 0..l_sum_cnt - 1 loop
2146: --
2147: sum_node := dbms_xmldom.item(sum_nodelist,l_sum_ind);
2148: --
2149: l_sum := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(sum_node));
2150: --
2151: if nvl(p_lts_type,'N') = 'Y' then
2145: for l_sum_ind in 0..l_sum_cnt - 1 loop
2146: --
2147: sum_node := dbms_xmldom.item(sum_nodelist,l_sum_ind);
2148: --
2149: l_sum := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(sum_node));
2150: --
2151: if nvl(p_lts_type,'N') = 'Y' then
2152: --
2153: -- l_sum_y2 := dbms_xmldom.getattribute(dbms_xmldom.makeelement(sum_node),'sum_y2');
2149: l_sum := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(sum_node));
2150: --
2151: if nvl(p_lts_type,'N') = 'Y' then
2152: --
2153: -- l_sum_y2 := dbms_xmldom.getattribute(dbms_xmldom.makeelement(sum_node),'sum_y2');
2154: l_sum_y3 := dbms_xmldom.getattribute(dbms_xmldom.makeelement(sum_node),'sum_y3');
2155: --
2156: end if;
2157: --
2150: --
2151: if nvl(p_lts_type,'N') = 'Y' then
2152: --
2153: -- l_sum_y2 := dbms_xmldom.getattribute(dbms_xmldom.makeelement(sum_node),'sum_y2');
2154: l_sum_y3 := dbms_xmldom.getattribute(dbms_xmldom.makeelement(sum_node),'sum_y3');
2155: --
2156: end if;
2157: --
2158: end loop;
2159: --
2160: end if;
2161: --
2162: l_values_tbl(l_value_ind).type := l_type;
2163: l_values_tbl(l_value_ind).financial_inst := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'trade_nm');
2164: l_values_tbl(l_value_ind).account_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'acc_no');
2165: l_values_tbl(l_value_ind).contributed_amt := l_sum;
2166: l_values_tbl(l_value_ind).cont_amt_y2 := 0;
2167: l_values_tbl(l_value_ind).cont_amt_y3 := l_sum_y3;
2160: end if;
2161: --
2162: l_values_tbl(l_value_ind).type := l_type;
2163: l_values_tbl(l_value_ind).financial_inst := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'trade_nm');
2164: l_values_tbl(l_value_ind).account_num := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'acc_no');
2165: l_values_tbl(l_value_ind).contributed_amt := l_sum;
2166: l_values_tbl(l_value_ind).cont_amt_y2 := 0;
2167: l_values_tbl(l_value_ind).cont_amt_y3 := l_sum_y3;
2168: l_value_ind := l_value_ind + 1;
2192: -- -------------------------------------------------------------------------
2193: -- get_card_values 2012 Changes
2194: -- -------------------------------------------------------------------------
2195: function get_card_values(
2196: p_form_node in dbms_xmldom.domnode,
2197: p_form_type in varchar2,
2198: p_man_key in varchar2,
2199: p_data_type in varchar2,
2200: p_item_name in varchar2)
2202: is
2203: --
2204: l_proc varchar2(80) := c_package||'get_item_values_in_form';
2205: --
2206: man_nodelist dbms_xmldom.domnodelist;
2207: man_node dbms_xmldom.domnode;
2208: data_nodelist dbms_xmldom.domnodelist;
2209: data_node dbms_xmldom.domnode;
2210: item_nodelist dbms_xmldom.domnodelist;
2203: --
2204: l_proc varchar2(80) := c_package||'get_item_values_in_form';
2205: --
2206: man_nodelist dbms_xmldom.domnodelist;
2207: man_node dbms_xmldom.domnode;
2208: data_nodelist dbms_xmldom.domnodelist;
2209: data_node dbms_xmldom.domnode;
2210: item_nodelist dbms_xmldom.domnodelist;
2211: item_node dbms_xmldom.domnode;
2204: l_proc varchar2(80) := c_package||'get_item_values_in_form';
2205: --
2206: man_nodelist dbms_xmldom.domnodelist;
2207: man_node dbms_xmldom.domnode;
2208: data_nodelist dbms_xmldom.domnodelist;
2209: data_node dbms_xmldom.domnode;
2210: item_nodelist dbms_xmldom.domnodelist;
2211: item_node dbms_xmldom.domnode;
2212: --
2205: --
2206: man_nodelist dbms_xmldom.domnodelist;
2207: man_node dbms_xmldom.domnode;
2208: data_nodelist dbms_xmldom.domnodelist;
2209: data_node dbms_xmldom.domnode;
2210: item_nodelist dbms_xmldom.domnodelist;
2211: item_node dbms_xmldom.domnode;
2212: --
2213: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
2206: man_nodelist dbms_xmldom.domnodelist;
2207: man_node dbms_xmldom.domnode;
2208: data_nodelist dbms_xmldom.domnodelist;
2209: data_node dbms_xmldom.domnode;
2210: item_nodelist dbms_xmldom.domnodelist;
2211: item_node dbms_xmldom.domnode;
2212: --
2213: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
2214: --
2207: man_node dbms_xmldom.domnode;
2208: data_nodelist dbms_xmldom.domnodelist;
2209: data_node dbms_xmldom.domnode;
2210: item_nodelist dbms_xmldom.domnodelist;
2211: item_node dbms_xmldom.domnode;
2212: --
2213: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
2214: --
2215: l_man_cnt number;
2224: if g_debug then
2225: hr_utility.set_location(l_proc,0);
2226: end if;
2227: --
2228: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2229: --
2230: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2231: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2232: --
2226: end if;
2227: --
2228: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2229: --
2230: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2231: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2232: --
2233: if not dbms_xmldom.isnull(man_nodelist)
2234: and l_man_cnt > 0 then
2227: --
2228: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2229: --
2230: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2231: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2232: --
2233: if not dbms_xmldom.isnull(man_nodelist)
2234: and l_man_cnt > 0 then
2235: --
2229: --
2230: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2231: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2232: --
2233: if not dbms_xmldom.isnull(man_nodelist)
2234: and l_man_cnt > 0 then
2235: --
2236: for l_man_ind in 0..l_man_cnt - 1 loop
2237: --
2234: and l_man_cnt > 0 then
2235: --
2236: for l_man_ind in 0..l_man_cnt - 1 loop
2237: --
2238: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2239: --
2240: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2241: --
2242: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2236: for l_man_ind in 0..l_man_cnt - 1 loop
2237: --
2238: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2239: --
2240: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2241: --
2242: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2243: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2244: --
2238: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2239: --
2240: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2241: --
2242: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2243: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2244: --
2245: if not dbms_xmldom.isnull(data_nodelist)
2246: and l_data_cnt > 0 then
2239: --
2240: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2241: --
2242: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2243: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2244: --
2245: if not dbms_xmldom.isnull(data_nodelist)
2246: and l_data_cnt > 0 then
2247: --
2241: --
2242: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2243: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2244: --
2245: if not dbms_xmldom.isnull(data_nodelist)
2246: and l_data_cnt > 0 then
2247: --
2248: for l_data_ind in 0..l_data_cnt - 1 loop
2249: --
2246: and l_data_cnt > 0 then
2247: --
2248: for l_data_ind in 0..l_data_cnt - 1 loop
2249: --
2250: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2251: --
2252: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2253: --
2254: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2248: for l_data_ind in 0..l_data_cnt - 1 loop
2249: --
2250: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2251: --
2252: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2253: --
2254: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2255: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2256: --
2250: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2251: --
2252: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2253: --
2254: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2255: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2256: --
2257: if not dbms_xmldom.isnull(item_nodelist)
2258: and l_item_cnt > 0 then
2251: --
2252: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2253: --
2254: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2255: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2256: --
2257: if not dbms_xmldom.isnull(item_nodelist)
2258: and l_item_cnt > 0 then
2259: --
2253: --
2254: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2255: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2256: --
2257: if not dbms_xmldom.isnull(item_nodelist)
2258: and l_item_cnt > 0 then
2259: --
2260: item_node := dbms_xmldom.item(item_nodelist,0);
2261: --
2256: --
2257: if not dbms_xmldom.isnull(item_nodelist)
2258: and l_item_cnt > 0 then
2259: --
2260: item_node := dbms_xmldom.item(item_nodelist,0);
2261: --
2262: l_values_tbl(l_value_ind).key := l_man_key;
2263: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
2264: l_values_tbl(l_value_ind).use_place_cd := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'use_place_cd');
2259: --
2260: item_node := dbms_xmldom.item(item_nodelist,0);
2261: --
2262: l_values_tbl(l_value_ind).key := l_man_key;
2263: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
2264: l_values_tbl(l_value_ind).use_place_cd := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'use_place_cd');
2265: l_value_ind := l_value_ind + 1;
2266: --
2267: end if;
2260: item_node := dbms_xmldom.item(item_nodelist,0);
2261: --
2262: l_values_tbl(l_value_ind).key := l_man_key;
2263: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
2264: l_values_tbl(l_value_ind).use_place_cd := dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'use_place_cd');
2265: l_value_ind := l_value_ind + 1;
2266: --
2267: end if;
2268: --
2291: -- -------------------------------------------------------------------------
2292: -- get_uniform_values
2293: -- ------------------------------------------------------------------------
2294: function get_uniform_values(
2295: p_form_node in dbms_xmldom.domnode,
2296: p_form_type in varchar2,
2297: p_man_key in varchar2,
2298: p_data_type in varchar2,
2299: p_item_name in varchar2)
2301: is
2302: --
2303: l_proc varchar2(80) := c_package||'get_item_values_in_form';
2304: --
2305: man_nodelist dbms_xmldom.domnodelist;
2306: man_node dbms_xmldom.domnode;
2307: data_nodelist dbms_xmldom.domnodelist;
2308: data_node dbms_xmldom.domnode;
2309: item_nodelist dbms_xmldom.domnodelist;
2302: --
2303: l_proc varchar2(80) := c_package||'get_item_values_in_form';
2304: --
2305: man_nodelist dbms_xmldom.domnodelist;
2306: man_node dbms_xmldom.domnode;
2307: data_nodelist dbms_xmldom.domnodelist;
2308: data_node dbms_xmldom.domnode;
2309: item_nodelist dbms_xmldom.domnodelist;
2310: item_node dbms_xmldom.domnode;
2303: l_proc varchar2(80) := c_package||'get_item_values_in_form';
2304: --
2305: man_nodelist dbms_xmldom.domnodelist;
2306: man_node dbms_xmldom.domnode;
2307: data_nodelist dbms_xmldom.domnodelist;
2308: data_node dbms_xmldom.domnode;
2309: item_nodelist dbms_xmldom.domnodelist;
2310: item_node dbms_xmldom.domnode;
2311: --
2304: --
2305: man_nodelist dbms_xmldom.domnodelist;
2306: man_node dbms_xmldom.domnode;
2307: data_nodelist dbms_xmldom.domnodelist;
2308: data_node dbms_xmldom.domnode;
2309: item_nodelist dbms_xmldom.domnodelist;
2310: item_node dbms_xmldom.domnode;
2311: --
2312: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
2305: man_nodelist dbms_xmldom.domnodelist;
2306: man_node dbms_xmldom.domnode;
2307: data_nodelist dbms_xmldom.domnodelist;
2308: data_node dbms_xmldom.domnode;
2309: item_nodelist dbms_xmldom.domnodelist;
2310: item_node dbms_xmldom.domnode;
2311: --
2312: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
2313: --
2306: man_node dbms_xmldom.domnode;
2307: data_nodelist dbms_xmldom.domnodelist;
2308: data_node dbms_xmldom.domnode;
2309: item_nodelist dbms_xmldom.domnodelist;
2310: item_node dbms_xmldom.domnode;
2311: --
2312: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
2313: --
2314: l_man_cnt number;
2323: if g_debug then
2324: hr_utility.set_location(l_proc,0);
2325: end if;
2326: --
2327: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2328: --
2329: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2330: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2331: --
2325: end if;
2326: --
2327: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2328: --
2329: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2330: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2331: --
2332: if not dbms_xmldom.isnull(man_nodelist)
2333: and l_man_cnt > 0 then
2326: --
2327: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2328: --
2329: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2330: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2331: --
2332: if not dbms_xmldom.isnull(man_nodelist)
2333: and l_man_cnt > 0 then
2334: --
2328: --
2329: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2330: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2331: --
2332: if not dbms_xmldom.isnull(man_nodelist)
2333: and l_man_cnt > 0 then
2334: --
2335: for l_man_ind in 0..l_man_cnt - 1 loop
2336: --
2333: and l_man_cnt > 0 then
2334: --
2335: for l_man_ind in 0..l_man_cnt - 1 loop
2336: --
2337: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2338: --
2339: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2340:
2341: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2335: for l_man_ind in 0..l_man_cnt - 1 loop
2336: --
2337: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2338: --
2339: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2340:
2341: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2342: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2343: --
2337: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2338: --
2339: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2340:
2341: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2342: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2343: --
2344: if not dbms_xmldom.isnull(data_nodelist)
2345: and l_data_cnt > 0 then
2338: --
2339: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2340:
2341: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2342: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2343: --
2344: if not dbms_xmldom.isnull(data_nodelist)
2345: and l_data_cnt > 0 then
2346: --
2340:
2341: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2342: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2343: --
2344: if not dbms_xmldom.isnull(data_nodelist)
2345: and l_data_cnt > 0 then
2346: --
2347: for l_data_ind in 0..l_data_cnt - 1 loop
2348: --
2345: and l_data_cnt > 0 then
2346: --
2347: for l_data_ind in 0..l_data_cnt - 1 loop
2348: --
2349: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2350: --
2351: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2352: --
2353: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2347: for l_data_ind in 0..l_data_cnt - 1 loop
2348: --
2349: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2350: --
2351: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2352: --
2353: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2354: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2355: --
2349: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2350: --
2351: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2352: --
2353: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2354: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2355: --
2356: if not dbms_xmldom.isnull(item_nodelist)
2357: and l_item_cnt > 0 then
2350: --
2351: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2352: --
2353: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2354: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2355: --
2356: if not dbms_xmldom.isnull(item_nodelist)
2357: and l_item_cnt > 0 then
2358: --
2352: --
2353: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2354: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2355: --
2356: if not dbms_xmldom.isnull(item_nodelist)
2357: and l_item_cnt > 0 then
2358: --
2359: item_node := dbms_xmldom.item(item_nodelist,0);
2360: --
2355: --
2356: if not dbms_xmldom.isnull(item_nodelist)
2357: and l_item_cnt > 0 then
2358: --
2359: item_node := dbms_xmldom.item(item_nodelist,0);
2360: --
2361: l_values_tbl(l_value_ind).key := l_man_key;
2362: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
2363: l_values_tbl(l_value_ind).empname := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
2358: --
2359: item_node := dbms_xmldom.item(item_nodelist,0);
2360: --
2361: l_values_tbl(l_value_ind).key := l_man_key;
2362: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
2363: l_values_tbl(l_value_ind).empname := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
2364: l_value_ind := l_value_ind + 1;
2365: --
2366: end if;
2359: item_node := dbms_xmldom.item(item_nodelist,0);
2360: --
2361: l_values_tbl(l_value_ind).key := l_man_key;
2362: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
2363: l_values_tbl(l_value_ind).empname := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),'name');
2364: l_value_ind := l_value_ind + 1;
2365: --
2366: end if;
2367: --
2389: -- -------------------------------------------------------------------------
2390: -- get_long_term_house_values
2391: -- -------------------------------------------------------------------------
2392: function get_long_term_house_values(
2393: p_form_node in dbms_xmldom.domnode,
2394: p_form_type in varchar2,
2395: p_data_type in varchar2,
2396: p_item_key in varchar2,
2397: p_item_name in varchar2)
2399: is
2400: --
2401: l_proc varchar2(80) := c_package||'get_item_values_in_form';
2402: --
2403: man_nodelist dbms_xmldom.domnodelist;
2404: man_node dbms_xmldom.domnode;
2405: data_nodelist dbms_xmldom.domnodelist;
2406: data_node dbms_xmldom.domnode;
2407: item_key_nodelist dbms_xmldom.domnodelist;
2400: --
2401: l_proc varchar2(80) := c_package||'get_item_values_in_form';
2402: --
2403: man_nodelist dbms_xmldom.domnodelist;
2404: man_node dbms_xmldom.domnode;
2405: data_nodelist dbms_xmldom.domnodelist;
2406: data_node dbms_xmldom.domnode;
2407: item_key_nodelist dbms_xmldom.domnodelist;
2408: item_key_node dbms_xmldom.domnode;
2401: l_proc varchar2(80) := c_package||'get_item_values_in_form';
2402: --
2403: man_nodelist dbms_xmldom.domnodelist;
2404: man_node dbms_xmldom.domnode;
2405: data_nodelist dbms_xmldom.domnodelist;
2406: data_node dbms_xmldom.domnode;
2407: item_key_nodelist dbms_xmldom.domnodelist;
2408: item_key_node dbms_xmldom.domnode;
2409: item_nodelist dbms_xmldom.domnodelist;
2402: --
2403: man_nodelist dbms_xmldom.domnodelist;
2404: man_node dbms_xmldom.domnode;
2405: data_nodelist dbms_xmldom.domnodelist;
2406: data_node dbms_xmldom.domnode;
2407: item_key_nodelist dbms_xmldom.domnodelist;
2408: item_key_node dbms_xmldom.domnode;
2409: item_nodelist dbms_xmldom.domnodelist;
2410: item_node dbms_xmldom.domnode;
2403: man_nodelist dbms_xmldom.domnodelist;
2404: man_node dbms_xmldom.domnode;
2405: data_nodelist dbms_xmldom.domnodelist;
2406: data_node dbms_xmldom.domnode;
2407: item_key_nodelist dbms_xmldom.domnodelist;
2408: item_key_node dbms_xmldom.domnode;
2409: item_nodelist dbms_xmldom.domnodelist;
2410: item_node dbms_xmldom.domnode;
2411: date_key_node dbms_xmldom.domnode;
2404: man_node dbms_xmldom.domnode;
2405: data_nodelist dbms_xmldom.domnodelist;
2406: data_node dbms_xmldom.domnode;
2407: item_key_nodelist dbms_xmldom.domnodelist;
2408: item_key_node dbms_xmldom.domnode;
2409: item_nodelist dbms_xmldom.domnodelist;
2410: item_node dbms_xmldom.domnode;
2411: date_key_node dbms_xmldom.domnode;
2412: date_nodelist dbms_xmldom.domnodelist;
2405: data_nodelist dbms_xmldom.domnodelist;
2406: data_node dbms_xmldom.domnode;
2407: item_key_nodelist dbms_xmldom.domnodelist;
2408: item_key_node dbms_xmldom.domnode;
2409: item_nodelist dbms_xmldom.domnodelist;
2410: item_node dbms_xmldom.domnode;
2411: date_key_node dbms_xmldom.domnode;
2412: date_nodelist dbms_xmldom.domnodelist;
2413:
2406: data_node dbms_xmldom.domnode;
2407: item_key_nodelist dbms_xmldom.domnodelist;
2408: item_key_node dbms_xmldom.domnode;
2409: item_nodelist dbms_xmldom.domnodelist;
2410: item_node dbms_xmldom.domnode;
2411: date_key_node dbms_xmldom.domnode;
2412: date_nodelist dbms_xmldom.domnodelist;
2413:
2414: debt_key_node dbms_xmldom.domnode;
2407: item_key_nodelist dbms_xmldom.domnodelist;
2408: item_key_node dbms_xmldom.domnode;
2409: item_nodelist dbms_xmldom.domnodelist;
2410: item_node dbms_xmldom.domnode;
2411: date_key_node dbms_xmldom.domnode;
2412: date_nodelist dbms_xmldom.domnodelist;
2413:
2414: debt_key_node dbms_xmldom.domnode;
2415: debt_nodelist dbms_xmldom.domnodelist;
2408: item_key_node dbms_xmldom.domnode;
2409: item_nodelist dbms_xmldom.domnodelist;
2410: item_node dbms_xmldom.domnode;
2411: date_key_node dbms_xmldom.domnode;
2412: date_nodelist dbms_xmldom.domnodelist;
2413:
2414: debt_key_node dbms_xmldom.domnode;
2415: debt_nodelist dbms_xmldom.domnodelist;
2416:
2410: item_node dbms_xmldom.domnode;
2411: date_key_node dbms_xmldom.domnode;
2412: date_nodelist dbms_xmldom.domnodelist;
2413:
2414: debt_key_node dbms_xmldom.domnode;
2415: debt_nodelist dbms_xmldom.domnodelist;
2416:
2417: fixed_key_node dbms_xmldom.domnode;
2418: fixed_nodelist dbms_xmldom.domnodelist;
2411: date_key_node dbms_xmldom.domnode;
2412: date_nodelist dbms_xmldom.domnodelist;
2413:
2414: debt_key_node dbms_xmldom.domnode;
2415: debt_nodelist dbms_xmldom.domnodelist;
2416:
2417: fixed_key_node dbms_xmldom.domnode;
2418: fixed_nodelist dbms_xmldom.domnodelist;
2419:
2413:
2414: debt_key_node dbms_xmldom.domnode;
2415: debt_nodelist dbms_xmldom.domnodelist;
2416:
2417: fixed_key_node dbms_xmldom.domnode;
2418: fixed_nodelist dbms_xmldom.domnodelist;
2419:
2420: not_debt_key_node dbms_xmldom.domnode;
2421: not_debt_nodelist dbms_xmldom.domnodelist;
2414: debt_key_node dbms_xmldom.domnode;
2415: debt_nodelist dbms_xmldom.domnodelist;
2416:
2417: fixed_key_node dbms_xmldom.domnode;
2418: fixed_nodelist dbms_xmldom.domnodelist;
2419:
2420: not_debt_key_node dbms_xmldom.domnode;
2421: not_debt_nodelist dbms_xmldom.domnodelist;
2422:
2416:
2417: fixed_key_node dbms_xmldom.domnode;
2418: fixed_nodelist dbms_xmldom.domnodelist;
2419:
2420: not_debt_key_node dbms_xmldom.domnode;
2421: not_debt_nodelist dbms_xmldom.domnodelist;
2422:
2423: yr_rede_key_node dbms_xmldom.domnode;
2424: yr_rede_amt_nodelst dbms_xmldom.domnodelist;
2417: fixed_key_node dbms_xmldom.domnode;
2418: fixed_nodelist dbms_xmldom.domnodelist;
2419:
2420: not_debt_key_node dbms_xmldom.domnode;
2421: not_debt_nodelist dbms_xmldom.domnodelist;
2422:
2423: yr_rede_key_node dbms_xmldom.domnode;
2424: yr_rede_amt_nodelst dbms_xmldom.domnodelist;
2425: --
2419:
2420: not_debt_key_node dbms_xmldom.domnode;
2421: not_debt_nodelist dbms_xmldom.domnodelist;
2422:
2423: yr_rede_key_node dbms_xmldom.domnode;
2424: yr_rede_amt_nodelst dbms_xmldom.domnodelist;
2425: --
2426: l_item_key per_kr_assignment_yea_info.ayi_information1%type;
2427: l_date_key per_kr_assignment_yea_info.ayi_information1%type;
2420: not_debt_key_node dbms_xmldom.domnode;
2421: not_debt_nodelist dbms_xmldom.domnodelist;
2422:
2423: yr_rede_key_node dbms_xmldom.domnode;
2424: yr_rede_amt_nodelst dbms_xmldom.domnodelist;
2425: --
2426: l_item_key per_kr_assignment_yea_info.ayi_information1%type;
2427: l_date_key per_kr_assignment_yea_info.ayi_information1%type;
2428: l_debt_key per_kr_assignment_yea_info.ayi_information1%type;
2449: if g_debug then
2450: hr_utility.set_location(l_proc,0);
2451: end if;
2452: --
2453: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2454: --
2455: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2456: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2457: --
2451: end if;
2452: --
2453: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2454: --
2455: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2456: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2457: --
2458: if not dbms_xmldom.isnull(man_nodelist)
2459: and l_man_cnt > 0 then
2452: --
2453: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2454: --
2455: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2456: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2457: --
2458: if not dbms_xmldom.isnull(man_nodelist)
2459: and l_man_cnt > 0 then
2460: --
2454: --
2455: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2456: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2457: --
2458: if not dbms_xmldom.isnull(man_nodelist)
2459: and l_man_cnt > 0 then
2460: --
2461: for l_man_ind in 0..l_man_cnt - 1 loop
2462: --
2459: and l_man_cnt > 0 then
2460: --
2461: for l_man_ind in 0..l_man_cnt - 1 loop
2462: --
2463: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2464: --
2465: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2466: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2467: --
2461: for l_man_ind in 0..l_man_cnt - 1 loop
2462: --
2463: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2464: --
2465: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2466: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2467: --
2468: if not dbms_xmldom.isnull(data_nodelist)
2469: and l_data_cnt > 0 then
2462: --
2463: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2464: --
2465: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2466: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2467: --
2468: if not dbms_xmldom.isnull(data_nodelist)
2469: and l_data_cnt > 0 then
2470: --
2464: --
2465: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2466: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2467: --
2468: if not dbms_xmldom.isnull(data_nodelist)
2469: and l_data_cnt > 0 then
2470: --
2471: for l_data_ind in 0..l_data_cnt - 1 loop
2472: --
2469: and l_data_cnt > 0 then
2470: --
2471: for l_data_ind in 0..l_data_cnt - 1 loop
2472: --
2473: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2474: --
2475: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2476: --
2477: l_item_key := null;
2471: for l_data_ind in 0..l_data_cnt - 1 loop
2472: --
2473: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2474: --
2475: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2476: --
2477: l_item_key := null;
2478: --
2479: item_key_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_key);
2475: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2476: --
2477: l_item_key := null;
2478: --
2479: item_key_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_key);
2480: l_item_key_cnt := dbms_xmldom.getlength(item_key_nodelist);
2481: --
2482: date_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'start_dt');
2483: l_date_key_cnt := dbms_xmldom.getlength(date_nodelist);
2476: --
2477: l_item_key := null;
2478: --
2479: item_key_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_key);
2480: l_item_key_cnt := dbms_xmldom.getlength(item_key_nodelist);
2481: --
2482: date_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'start_dt');
2483: l_date_key_cnt := dbms_xmldom.getlength(date_nodelist);
2484:
2478: --
2479: item_key_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_key);
2480: l_item_key_cnt := dbms_xmldom.getlength(item_key_nodelist);
2481: --
2482: date_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'start_dt');
2483: l_date_key_cnt := dbms_xmldom.getlength(date_nodelist);
2484:
2485: debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'debt');
2486: l_debt_key_cnt := dbms_xmldom.getlength(debt_nodelist);
2479: item_key_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_key);
2480: l_item_key_cnt := dbms_xmldom.getlength(item_key_nodelist);
2481: --
2482: date_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'start_dt');
2483: l_date_key_cnt := dbms_xmldom.getlength(date_nodelist);
2484:
2485: debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'debt');
2486: l_debt_key_cnt := dbms_xmldom.getlength(debt_nodelist);
2487:
2481: --
2482: date_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'start_dt');
2483: l_date_key_cnt := dbms_xmldom.getlength(date_nodelist);
2484:
2485: debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'debt');
2486: l_debt_key_cnt := dbms_xmldom.getlength(debt_nodelist);
2487:
2488: fixed_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'fixed_rate_debt');
2489: l_fixed_key_cnt := dbms_xmldom.getlength(fixed_nodelist);
2482: date_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'start_dt');
2483: l_date_key_cnt := dbms_xmldom.getlength(date_nodelist);
2484:
2485: debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'debt');
2486: l_debt_key_cnt := dbms_xmldom.getlength(debt_nodelist);
2487:
2488: fixed_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'fixed_rate_debt');
2489: l_fixed_key_cnt := dbms_xmldom.getlength(fixed_nodelist);
2490:
2484:
2485: debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'debt');
2486: l_debt_key_cnt := dbms_xmldom.getlength(debt_nodelist);
2487:
2488: fixed_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'fixed_rate_debt');
2489: l_fixed_key_cnt := dbms_xmldom.getlength(fixed_nodelist);
2490:
2491: not_debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'not_defer_debt');
2492: l_not_debt_key_cnt := dbms_xmldom.getlength(not_debt_nodelist);
2485: debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'debt');
2486: l_debt_key_cnt := dbms_xmldom.getlength(debt_nodelist);
2487:
2488: fixed_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'fixed_rate_debt');
2489: l_fixed_key_cnt := dbms_xmldom.getlength(fixed_nodelist);
2490:
2491: not_debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'not_defer_debt');
2492: l_not_debt_key_cnt := dbms_xmldom.getlength(not_debt_nodelist);
2493:
2487:
2488: fixed_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'fixed_rate_debt');
2489: l_fixed_key_cnt := dbms_xmldom.getlength(fixed_nodelist);
2490:
2491: not_debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'not_defer_debt');
2492: l_not_debt_key_cnt := dbms_xmldom.getlength(not_debt_nodelist);
2493:
2494: yr_rede_amt_nodelst := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'this_year_rede_amt');
2495: l_yr_amt_key_cnt := dbms_xmldom.getlength(yr_rede_amt_nodelst);
2488: fixed_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'fixed_rate_debt');
2489: l_fixed_key_cnt := dbms_xmldom.getlength(fixed_nodelist);
2490:
2491: not_debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'not_defer_debt');
2492: l_not_debt_key_cnt := dbms_xmldom.getlength(not_debt_nodelist);
2493:
2494: yr_rede_amt_nodelst := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'this_year_rede_amt');
2495: l_yr_amt_key_cnt := dbms_xmldom.getlength(yr_rede_amt_nodelst);
2496:
2490:
2491: not_debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'not_defer_debt');
2492: l_not_debt_key_cnt := dbms_xmldom.getlength(not_debt_nodelist);
2493:
2494: yr_rede_amt_nodelst := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'this_year_rede_amt');
2495: l_yr_amt_key_cnt := dbms_xmldom.getlength(yr_rede_amt_nodelst);
2496:
2497: if not dbms_xmldom.isnull(item_key_nodelist)
2498: and l_item_key_cnt > 0 then
2491: not_debt_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'not_defer_debt');
2492: l_not_debt_key_cnt := dbms_xmldom.getlength(not_debt_nodelist);
2493:
2494: yr_rede_amt_nodelst := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'this_year_rede_amt');
2495: l_yr_amt_key_cnt := dbms_xmldom.getlength(yr_rede_amt_nodelst);
2496:
2497: if not dbms_xmldom.isnull(item_key_nodelist)
2498: and l_item_key_cnt > 0 then
2499: --
2493:
2494: yr_rede_amt_nodelst := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),'this_year_rede_amt');
2495: l_yr_amt_key_cnt := dbms_xmldom.getlength(yr_rede_amt_nodelst);
2496:
2497: if not dbms_xmldom.isnull(item_key_nodelist)
2498: and l_item_key_cnt > 0 then
2499: --
2500: item_key_node := dbms_xmldom.item(item_key_nodelist,0);
2501: --
2496:
2497: if not dbms_xmldom.isnull(item_key_nodelist)
2498: and l_item_key_cnt > 0 then
2499: --
2500: item_key_node := dbms_xmldom.item(item_key_nodelist,0);
2501: --
2502: l_item_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_key_node));
2503: --
2504: end if;
2498: and l_item_key_cnt > 0 then
2499: --
2500: item_key_node := dbms_xmldom.item(item_key_nodelist,0);
2501: --
2502: l_item_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_key_node));
2503: --
2504: end if;
2505:
2506: if not dbms_xmldom.isnull(date_nodelist)
2502: l_item_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_key_node));
2503: --
2504: end if;
2505:
2506: if not dbms_xmldom.isnull(date_nodelist)
2507: and l_date_key_cnt > 0 then
2508: --
2509: date_key_node := dbms_xmldom.item(date_nodelist,0);
2510: --
2505:
2506: if not dbms_xmldom.isnull(date_nodelist)
2507: and l_date_key_cnt > 0 then
2508: --
2509: date_key_node := dbms_xmldom.item(date_nodelist,0);
2510: --
2511: l_date_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(date_key_node));
2512: --
2513: end if;
2507: and l_date_key_cnt > 0 then
2508: --
2509: date_key_node := dbms_xmldom.item(date_nodelist,0);
2510: --
2511: l_date_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(date_key_node));
2512: --
2513: end if;
2514: --
2515: if not dbms_xmldom.isnull(debt_nodelist)
2511: l_date_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(date_key_node));
2512: --
2513: end if;
2514: --
2515: if not dbms_xmldom.isnull(debt_nodelist)
2516: and l_debt_key_cnt > 0 then
2517: --
2518: debt_key_node := dbms_xmldom.item(debt_nodelist,0);
2519: --
2514: --
2515: if not dbms_xmldom.isnull(debt_nodelist)
2516: and l_debt_key_cnt > 0 then
2517: --
2518: debt_key_node := dbms_xmldom.item(debt_nodelist,0);
2519: --
2520: l_debt_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(debt_key_node));
2521: --
2522: end if;
2516: and l_debt_key_cnt > 0 then
2517: --
2518: debt_key_node := dbms_xmldom.item(debt_nodelist,0);
2519: --
2520: l_debt_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(debt_key_node));
2521: --
2522: end if;
2523:
2524: if not dbms_xmldom.isnull(fixed_nodelist)
2520: l_debt_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(debt_key_node));
2521: --
2522: end if;
2523:
2524: if not dbms_xmldom.isnull(fixed_nodelist)
2525: and l_fixed_key_cnt > 0 then
2526: --
2527: fixed_key_node := dbms_xmldom.item(fixed_nodelist,0);
2528: --
2523:
2524: if not dbms_xmldom.isnull(fixed_nodelist)
2525: and l_fixed_key_cnt > 0 then
2526: --
2527: fixed_key_node := dbms_xmldom.item(fixed_nodelist,0);
2528: --
2529: l_fixed_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(date_key_node));
2530: --
2531: end if;
2525: and l_fixed_key_cnt > 0 then
2526: --
2527: fixed_key_node := dbms_xmldom.item(fixed_nodelist,0);
2528: --
2529: l_fixed_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(date_key_node));
2530: --
2531: end if;
2532:
2533: if not dbms_xmldom.isnull(not_debt_nodelist)
2529: l_fixed_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(date_key_node));
2530: --
2531: end if;
2532:
2533: if not dbms_xmldom.isnull(not_debt_nodelist)
2534: and l_not_debt_key_cnt > 0 then
2535: --
2536: not_debt_key_node := dbms_xmldom.item(not_debt_nodelist,0);
2537: --
2532:
2533: if not dbms_xmldom.isnull(not_debt_nodelist)
2534: and l_not_debt_key_cnt > 0 then
2535: --
2536: not_debt_key_node := dbms_xmldom.item(not_debt_nodelist,0);
2537: --
2538: l_not_debt_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(not_debt_key_node));
2539: --
2540: end if;
2534: and l_not_debt_key_cnt > 0 then
2535: --
2536: not_debt_key_node := dbms_xmldom.item(not_debt_nodelist,0);
2537: --
2538: l_not_debt_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(not_debt_key_node));
2539: --
2540: end if;
2541:
2542: if not dbms_xmldom.isnull(yr_rede_amt_nodelst)
2538: l_not_debt_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(not_debt_key_node));
2539: --
2540: end if;
2541:
2542: if not dbms_xmldom.isnull(yr_rede_amt_nodelst)
2543: and l_yr_amt_key_cnt > 0 then
2544: --
2545: yr_rede_key_node := dbms_xmldom.item(yr_rede_amt_nodelst,0);
2546: --
2541:
2542: if not dbms_xmldom.isnull(yr_rede_amt_nodelst)
2543: and l_yr_amt_key_cnt > 0 then
2544: --
2545: yr_rede_key_node := dbms_xmldom.item(yr_rede_amt_nodelst,0);
2546: --
2547: l_yr_rede_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(yr_rede_key_node));
2548: --
2549: end if;
2543: and l_yr_amt_key_cnt > 0 then
2544: --
2545: yr_rede_key_node := dbms_xmldom.item(yr_rede_amt_nodelst,0);
2546: --
2547: l_yr_rede_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(yr_rede_key_node));
2548: --
2549: end if;
2550:
2551: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2547: l_yr_rede_key := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(yr_rede_key_node));
2548: --
2549: end if;
2550:
2551: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2552: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2553: --
2554: if not dbms_xmldom.isnull(item_nodelist)
2555: and l_item_cnt > 0 then
2548: --
2549: end if;
2550:
2551: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2552: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2553: --
2554: if not dbms_xmldom.isnull(item_nodelist)
2555: and l_item_cnt > 0 then
2556: --
2550:
2551: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2552: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2553: --
2554: if not dbms_xmldom.isnull(item_nodelist)
2555: and l_item_cnt > 0 then
2556: --
2557: item_node := dbms_xmldom.item(item_nodelist,0);
2558: --
2553: --
2554: if not dbms_xmldom.isnull(item_nodelist)
2555: and l_item_cnt > 0 then
2556: --
2557: item_node := dbms_xmldom.item(item_nodelist,0);
2558: --
2559: l_values_tbl(l_value_ind).key := l_item_key;
2560: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
2561: l_values_tbl(l_value_ind).start_date := l_date_key;
2556: --
2557: item_node := dbms_xmldom.item(item_nodelist,0);
2558: --
2559: l_values_tbl(l_value_ind).key := l_item_key;
2560: l_values_tbl(l_value_ind).val := dbms_xmldom.getnodevalue(dbms_xmldom.getfirstchild(item_node));
2561: l_values_tbl(l_value_ind).start_date := l_date_key;
2562: l_values_tbl(l_value_ind).debt := l_debt_key;
2563: l_values_tbl(l_value_ind).fixed_rate := l_fixed_key;
2564: l_values_tbl(l_value_ind).defer_debt := l_not_debt_key;
2592: -- -------------------------------------------------------------------------
2593: -- get_item_attribute_in_data
2594: -- -------------------------------------------------------------------------
2595: function get_item_attribute_in_data(
2596: p_form_node in dbms_xmldom.domnode,
2597: p_form_type in varchar2,
2598: p_man_key in varchar2,
2599: p_data_type in varchar2,
2600: p_item_name in varchar2,
2603: is
2604: --
2605: l_proc varchar2(80) := c_package||'get_item_attribute_in_data';
2606: --
2607: man_nodelist dbms_xmldom.domnodelist;
2608: man_node dbms_xmldom.domnode;
2609: data_nodelist dbms_xmldom.domnodelist;
2610: data_node dbms_xmldom.domnode;
2611: item_nodelist dbms_xmldom.domnodelist;
2604: --
2605: l_proc varchar2(80) := c_package||'get_item_attribute_in_data';
2606: --
2607: man_nodelist dbms_xmldom.domnodelist;
2608: man_node dbms_xmldom.domnode;
2609: data_nodelist dbms_xmldom.domnodelist;
2610: data_node dbms_xmldom.domnode;
2611: item_nodelist dbms_xmldom.domnodelist;
2612: item_node dbms_xmldom.domnode;
2605: l_proc varchar2(80) := c_package||'get_item_attribute_in_data';
2606: --
2607: man_nodelist dbms_xmldom.domnodelist;
2608: man_node dbms_xmldom.domnode;
2609: data_nodelist dbms_xmldom.domnodelist;
2610: data_node dbms_xmldom.domnode;
2611: item_nodelist dbms_xmldom.domnodelist;
2612: item_node dbms_xmldom.domnode;
2613: --
2606: --
2607: man_nodelist dbms_xmldom.domnodelist;
2608: man_node dbms_xmldom.domnode;
2609: data_nodelist dbms_xmldom.domnodelist;
2610: data_node dbms_xmldom.domnode;
2611: item_nodelist dbms_xmldom.domnodelist;
2612: item_node dbms_xmldom.domnode;
2613: --
2614: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
2607: man_nodelist dbms_xmldom.domnodelist;
2608: man_node dbms_xmldom.domnode;
2609: data_nodelist dbms_xmldom.domnodelist;
2610: data_node dbms_xmldom.domnode;
2611: item_nodelist dbms_xmldom.domnodelist;
2612: item_node dbms_xmldom.domnode;
2613: --
2614: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
2615: --
2608: man_node dbms_xmldom.domnode;
2609: data_nodelist dbms_xmldom.domnodelist;
2610: data_node dbms_xmldom.domnode;
2611: item_nodelist dbms_xmldom.domnodelist;
2612: item_node dbms_xmldom.domnode;
2613: --
2614: l_man_key per_kr_assignment_yea_info.ayi_information1%type;
2615: --
2616: l_man_cnt number;
2625: if g_debug then
2626: hr_utility.set_location(l_proc,0);
2627: end if;
2628: --
2629: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2630: --
2631: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2632: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2633: --
2627: end if;
2628: --
2629: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2630: --
2631: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2632: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2633: --
2634: if not dbms_xmldom.isnull(man_nodelist)
2635: and l_man_cnt > 0 then
2628: --
2629: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(p_form_node),'form_cd') = p_form_type then
2630: --
2631: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2632: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2633: --
2634: if not dbms_xmldom.isnull(man_nodelist)
2635: and l_man_cnt > 0 then
2636: --
2630: --
2631: man_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(p_form_node),'man');
2632: l_man_cnt := dbms_xmldom.getlength(man_nodelist);
2633: --
2634: if not dbms_xmldom.isnull(man_nodelist)
2635: and l_man_cnt > 0 then
2636: --
2637: for l_man_ind in 0..l_man_cnt - 1 loop
2638: --
2635: and l_man_cnt > 0 then
2636: --
2637: for l_man_ind in 0..l_man_cnt - 1 loop
2638: --
2639: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2640: --
2641: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2642: --
2643: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2637: for l_man_ind in 0..l_man_cnt - 1 loop
2638: --
2639: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2640: --
2641: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2642: --
2643: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2644: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2645: --
2639: man_node := dbms_xmldom.item(man_nodelist,l_man_ind);
2640: --
2641: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2642: --
2643: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2644: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2645: --
2646: if not dbms_xmldom.isnull(data_nodelist)
2647: and l_data_cnt > 0 then
2640: --
2641: l_man_key := dbms_xmldom.getattribute(dbms_xmldom.makeelement(man_node),p_man_key);
2642: --
2643: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2644: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2645: --
2646: if not dbms_xmldom.isnull(data_nodelist)
2647: and l_data_cnt > 0 then
2648: --
2642: --
2643: data_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(man_node),'data');
2644: l_data_cnt := dbms_xmldom.getlength(data_nodelist);
2645: --
2646: if not dbms_xmldom.isnull(data_nodelist)
2647: and l_data_cnt > 0 then
2648: --
2649: for l_data_ind in 0..l_data_cnt - 1 loop
2650: --
2647: and l_data_cnt > 0 then
2648: --
2649: for l_data_ind in 0..l_data_cnt - 1 loop
2650: --
2651: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2652: --
2653: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2654: --
2655: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2649: for l_data_ind in 0..l_data_cnt - 1 loop
2650: --
2651: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2652: --
2653: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2654: --
2655: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2656: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2657: --
2651: data_node := dbms_xmldom.item(data_nodelist,l_data_ind);
2652: --
2653: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2654: --
2655: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2656: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2657: --
2658: if not dbms_xmldom.isnull(item_nodelist)
2659: and l_item_cnt > 0 then
2652: --
2653: if dbms_xmldom.getattribute(dbms_xmldom.makeelement(data_node),'dat_cd') = p_data_type then
2654: --
2655: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2656: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2657: --
2658: if not dbms_xmldom.isnull(item_nodelist)
2659: and l_item_cnt > 0 then
2660: --
2654: --
2655: item_nodelist := dbms_xmldom.getelementsbytagname(dbms_xmldom.makeelement(data_node),p_item_name);
2656: l_item_cnt := dbms_xmldom.getlength(item_nodelist);
2657: --
2658: if not dbms_xmldom.isnull(item_nodelist)
2659: and l_item_cnt > 0 then
2660: --
2661: item_node := dbms_xmldom.item(item_nodelist,0);
2662: --
2657: --
2658: if not dbms_xmldom.isnull(item_nodelist)
2659: and l_item_cnt > 0 then
2660: --
2661: item_node := dbms_xmldom.item(item_nodelist,0);
2662: --
2663: l_values_tbl(l_value_ind).key := l_man_key;
2664: l_values_tbl(l_value_ind).val := dbms_xmldom.getattribute(dbms_xmldom.makeelement(item_node),p_item_type);
2665: l_value_ind := l_value_ind + 1;
2660: --
2661: item_node := dbms_xmldom.item(item_nodelist,0);
2662: --
2663: l_values_tbl(l_value_ind).key := l_man_key;
2664: l_values_tbl(l_value_ind).val := dbms_xmldom.getattribute(dbms_xmldom.makeelement(item_node),p_item_type);
2665: l_value_ind := l_value_ind + 1;
2666: --
2667: end if;
2668: --
4041: --
4042: l_ni_num per_all_people_f.national_identifier%type;
4043: --
4044: xml xmltype;
4045: xml_doc dbms_xmldom.domdocument;
4046: --
4047: form_nodelist dbms_xmldom.domnodelist;
4048: form_node dbms_xmldom.domnode;
4049: --
4043: --
4044: xml xmltype;
4045: xml_doc dbms_xmldom.domdocument;
4046: --
4047: form_nodelist dbms_xmldom.domnodelist;
4048: form_node dbms_xmldom.domnode;
4049: --
4050: l_form_cnt number;
4051: --
4044: xml xmltype;
4045: xml_doc dbms_xmldom.domdocument;
4046: --
4047: form_nodelist dbms_xmldom.domnodelist;
4048: form_node dbms_xmldom.domnode;
4049: --
4050: l_form_cnt number;
4051: --
4052: l_value_tbl t_char_tbl;
4399: -- *************************************
4400: -- capture data from xml
4401: -- *************************************
4402: xml := xmltype.createxml(p_xml);
4403: xml_doc := dbms_xmldom.newdomdocument(xml);
4404: --
4405: form_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'form');
4406: l_form_cnt := dbms_xmldom.getlength(form_nodelist);
4407: --
4401: -- *************************************
4402: xml := xmltype.createxml(p_xml);
4403: xml_doc := dbms_xmldom.newdomdocument(xml);
4404: --
4405: form_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'form');
4406: l_form_cnt := dbms_xmldom.getlength(form_nodelist);
4407: --
4408: if not dbms_xmldom.isnull(form_nodelist)
4409: and l_form_cnt > 0 then
4402: xml := xmltype.createxml(p_xml);
4403: xml_doc := dbms_xmldom.newdomdocument(xml);
4404: --
4405: form_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'form');
4406: l_form_cnt := dbms_xmldom.getlength(form_nodelist);
4407: --
4408: if not dbms_xmldom.isnull(form_nodelist)
4409: and l_form_cnt > 0 then
4410: --
4404: --
4405: form_nodelist := dbms_xmldom.getelementsbytagname(xml_doc,'form');
4406: l_form_cnt := dbms_xmldom.getlength(form_nodelist);
4407: --
4408: if not dbms_xmldom.isnull(form_nodelist)
4409: and l_form_cnt > 0 then
4410: --
4411: l_med_ind := 0;
4412: l_med_tbl.delete;
4437: l_dpnt_ind_tbl.delete;
4438: --
4439: for i in 0..l_form_cnt - 1 loop
4440: --
4441: form_node := dbms_xmldom.item(form_nodelist,i);
4442: --
4443: -- --------------------------------------------------
4444: -- Special Tax Exemptions
4445: -- --------------------------------------------------