[Home] [Help]
823: /* statement. */
824: /* */
825:
826: xProgress := 'GASNOB-10-1370';
827: v_SHP_Cursor := dbms_sql.open_cursor;
828:
829: xProgress := 'GASNOB-10-1372';
830: v_STX_Cursor := dbms_sql.open_cursor;
831:
826: xProgress := 'GASNOB-10-1370';
827: v_SHP_Cursor := dbms_sql.open_cursor;
828:
829: xProgress := 'GASNOB-10-1372';
830: v_STX_Cursor := dbms_sql.open_cursor;
831:
832: xProgress := 'GASNOB-10-1374';
833: v_ORD_Cursor := dbms_sql.open_cursor;
834:
829: xProgress := 'GASNOB-10-1372';
830: v_STX_Cursor := dbms_sql.open_cursor;
831:
832: xProgress := 'GASNOB-10-1374';
833: v_ORD_Cursor := dbms_sql.open_cursor;
834:
835: xProgress := 'GASNOB-10-1376';
836: v_OAC_Cursor := dbms_sql.open_cursor;
837:
832: xProgress := 'GASNOB-10-1374';
833: v_ORD_Cursor := dbms_sql.open_cursor;
834:
835: xProgress := 'GASNOB-10-1376';
836: v_OAC_Cursor := dbms_sql.open_cursor;
837:
838: xProgress := 'GASNOB-10-1378';
839: v_OTX_Cursor := dbms_sql.open_cursor;
840:
835: xProgress := 'GASNOB-10-1376';
836: v_OAC_Cursor := dbms_sql.open_cursor;
837:
838: xProgress := 'GASNOB-10-1378';
839: v_OTX_Cursor := dbms_sql.open_cursor;
840:
841: xProgress := 'GASNOB-10-1380';
842: v_DTL_Cursor := dbms_sql.open_cursor;
843:
838: xProgress := 'GASNOB-10-1378';
839: v_OTX_Cursor := dbms_sql.open_cursor;
840:
841: xProgress := 'GASNOB-10-1380';
842: v_DTL_Cursor := dbms_sql.open_cursor;
843:
844: xProgress := 'GASNOB-10-1382';
845: v_DAC_Cursor := dbms_sql.open_cursor;
846:
841: xProgress := 'GASNOB-10-1380';
842: v_DTL_Cursor := dbms_sql.open_cursor;
843:
844: xProgress := 'GASNOB-10-1382';
845: v_DAC_Cursor := dbms_sql.open_cursor;
846:
847: xProgress := 'GASNOB-10-1384';
848: v_DTX_Cursor := dbms_sql.open_cursor;
849:
844: xProgress := 'GASNOB-10-1382';
845: v_DAC_Cursor := dbms_sql.open_cursor;
846:
847: xProgress := 'GASNOB-10-1384';
848: v_DTX_Cursor := dbms_sql.open_cursor;
849:
850: xProgress := 'GASNOB-10-1386';
851: v_ALL_Cursor := dbms_sql.open_cursor;
852:
847: xProgress := 'GASNOB-10-1384';
848: v_DTX_Cursor := dbms_sql.open_cursor;
849:
850: xProgress := 'GASNOB-10-1386';
851: v_ALL_Cursor := dbms_sql.open_cursor;
852:
853: /* */
854: /* Parse each SELECT statement so the database understands the */
855: /* command. */
856: /* */
857:
858: xProgress := 'GASNOB-10-1390';
859: BEGIN
860: dbms_sql.parse ( v_SHP_Cursor,
861: v_SHP_Select,
862: dbms_sql.native );
863: EXCEPTION
864: WHEN OTHERS THEN
858: xProgress := 'GASNOB-10-1390';
859: BEGIN
860: dbms_sql.parse ( v_SHP_Cursor,
861: v_SHP_Select,
862: dbms_sql.native );
863: EXCEPTION
864: WHEN OTHERS THEN
865: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
866: v_SHP_Select );
861: v_SHP_Select,
862: dbms_sql.native );
863: EXCEPTION
864: WHEN OTHERS THEN
865: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
866: v_SHP_Select );
867: app_exception.raise_exception;
868: END;
869:
868: END;
869:
870: xProgress := 'GASNOB-10-1400';
871: BEGIN
872: dbms_sql.parse ( v_STX_Cursor,
873: v_STX_Select,
874: dbms_sql.native );
875: EXCEPTION
876: WHEN OTHERS THEN
870: xProgress := 'GASNOB-10-1400';
871: BEGIN
872: dbms_sql.parse ( v_STX_Cursor,
873: v_STX_Select,
874: dbms_sql.native );
875: EXCEPTION
876: WHEN OTHERS THEN
877: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
878: v_STX_Select );
873: v_STX_Select,
874: dbms_sql.native );
875: EXCEPTION
876: WHEN OTHERS THEN
877: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
878: v_STX_Select );
879: app_exception.raise_exception;
880: END;
881:
882: /* dbms_output.put_line( ' Length of ORD Select = ' || length( v_ORD_Select)); */
883:
884: xProgress := 'GASNOB-10-1410';
885: BEGIN
886: dbms_sql.parse ( v_ORD_Cursor,
887: v_ORD_Select,
888: dbms_sql.native );
889: EXCEPTION
890: WHEN OTHERS THEN
884: xProgress := 'GASNOB-10-1410';
885: BEGIN
886: dbms_sql.parse ( v_ORD_Cursor,
887: v_ORD_Select,
888: dbms_sql.native );
889: EXCEPTION
890: WHEN OTHERS THEN
891: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
892: v_ORD_Select );
887: v_ORD_Select,
888: dbms_sql.native );
889: EXCEPTION
890: WHEN OTHERS THEN
891: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
892: v_ORD_Select );
893: app_exception.raise_exception;
894: END;
895:
894: END;
895:
896: xProgress := 'GASNOB-10-1420';
897: BEGIN
898: dbms_sql.parse ( v_OAC_Cursor,
899: v_OAC_Select,
900: dbms_sql.native );
901: EXCEPTION
902: WHEN OTHERS THEN
896: xProgress := 'GASNOB-10-1420';
897: BEGIN
898: dbms_sql.parse ( v_OAC_Cursor,
899: v_OAC_Select,
900: dbms_sql.native );
901: EXCEPTION
902: WHEN OTHERS THEN
903: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
904: v_OAC_Select );
899: v_OAC_Select,
900: dbms_sql.native );
901: EXCEPTION
902: WHEN OTHERS THEN
903: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
904: v_OAC_Select );
905: app_exception.raise_exception;
906: END;
907:
906: END;
907:
908: xProgress := 'GASNOB-10-1430';
909: BEGIN
910: dbms_sql.parse ( v_OTX_Cursor,
911: v_OTX_Select,
912: dbms_sql.native );
913: EXCEPTION
914: WHEN OTHERS THEN
908: xProgress := 'GASNOB-10-1430';
909: BEGIN
910: dbms_sql.parse ( v_OTX_Cursor,
911: v_OTX_Select,
912: dbms_sql.native );
913: EXCEPTION
914: WHEN OTHERS THEN
915: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
916: v_OTX_Select );
911: v_OTX_Select,
912: dbms_sql.native );
913: EXCEPTION
914: WHEN OTHERS THEN
915: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
916: v_OTX_Select );
917: app_exception.raise_exception;
918: END;
919:
954: */
955:
956: xProgress := 'GASNOB-10-1440';
957: BEGIN
958: dbms_sql.parse ( v_DTL_Cursor,
959: v_DTL_Select,
960: dbms_sql.native );
961: EXCEPTION
962: WHEN OTHERS THEN
956: xProgress := 'GASNOB-10-1440';
957: BEGIN
958: dbms_sql.parse ( v_DTL_Cursor,
959: v_DTL_Select,
960: dbms_sql.native );
961: EXCEPTION
962: WHEN OTHERS THEN
963: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
964: v_DTL_Select );
959: v_DTL_Select,
960: dbms_sql.native );
961: EXCEPTION
962: WHEN OTHERS THEN
963: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
964: v_DTL_Select );
965: app_exception.raise_exception;
966: END;
967:
966: END;
967:
968: xProgress := 'GASNOB-10-1450';
969: BEGIN
970: dbms_sql.parse ( v_DAC_Cursor,
971: v_DAC_Select,
972: dbms_sql.native );
973: EXCEPTION
974: WHEN OTHERS THEN
968: xProgress := 'GASNOB-10-1450';
969: BEGIN
970: dbms_sql.parse ( v_DAC_Cursor,
971: v_DAC_Select,
972: dbms_sql.native );
973: EXCEPTION
974: WHEN OTHERS THEN
975: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
976: v_DAC_Select );
971: v_DAC_Select,
972: dbms_sql.native );
973: EXCEPTION
974: WHEN OTHERS THEN
975: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
976: v_DAC_Select );
977: app_exception.raise_exception;
978: END;
979:
978: END;
979:
980: xProgress := 'GASNOB-10-1451';
981: BEGIN
982: dbms_sql.parse ( v_DTX_Cursor,
983: v_DTX_Select,
984: dbms_sql.native );
985: EXCEPTION
986: WHEN OTHERS THEN
980: xProgress := 'GASNOB-10-1451';
981: BEGIN
982: dbms_sql.parse ( v_DTX_Cursor,
983: v_DTX_Select,
984: dbms_sql.native );
985: EXCEPTION
986: WHEN OTHERS THEN
987: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
988: v_DTX_Select );
983: v_DTX_Select,
984: dbms_sql.native );
985: EXCEPTION
986: WHEN OTHERS THEN
987: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
988: v_DTX_Select );
989: app_exception.raise_exception;
990: END;
991:
990: END;
991:
992: xProgress := 'GASNOB-10-1452';
993: BEGIN
994: dbms_sql.parse ( v_ALL_Cursor,
995: v_ALL_Select,
996: dbms_sql.native );
997: EXCEPTION
998: WHEN OTHERS THEN
992: xProgress := 'GASNOB-10-1452';
993: BEGIN
994: dbms_sql.parse ( v_ALL_Cursor,
995: v_ALL_Select,
996: dbms_sql.native );
997: EXCEPTION
998: WHEN OTHERS THEN
999: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
1000: v_ALL_Select );
995: v_ALL_Select,
996: dbms_sql.native );
997: EXCEPTION
998: WHEN OTHERS THEN
999: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
1000: v_ALL_Select );
1001: app_exception.raise_exception;
1002: END;
1003:
1048: xProgress := 'GASNOB-10-1466';
1049: FOR v_LoopCount IN 1..v_SHP_Count
1050: LOOP
1051: xProgress := 'GASNOB-10-1470';
1052: dbms_sql.define_column ( v_SHP_Cursor,
1053: v_LoopCount,
1054: v_SHP_Select,
1055: ece_extract_utils_pub.G_MaxColWidth );
1056: END LOOP;
1058: xProgress := 'GASNOB-10-1480';
1059: FOR v_LoopCount IN 1..v_STX_Count
1060: LOOP
1061: xProgress := 'GASNOB-10-1490';
1062: dbms_sql.define_column ( v_STX_Cursor,
1063: v_LoopCount,
1064: v_STX_Select,
1065: ece_extract_utils_pub.G_MaxColWidth );
1066: END LOOP;
1068: xProgress := 'GASNOB-10-1500';
1069: FOR v_LoopCount IN 1..v_ORD_Count
1070: LOOP
1071: xProgress := 'GASNOB-10-1510';
1072: dbms_sql.define_column ( v_ORD_Cursor,
1073: v_LoopCount,
1074: v_ORD_Select,
1075: ece_extract_utils_pub.G_MaxColWidth );
1076: END LOOP;
1078: xProgress := 'GASNOB-10-1520';
1079: FOR v_LoopCount IN 1..v_OAC_Count
1080: LOOP
1081: xProgress := 'GASNOB-10-1530';
1082: dbms_sql.define_column ( v_OAC_Cursor,
1083: v_LoopCount,
1084: v_OAC_Select,
1085: ece_extract_utils_pub.G_MaxColWidth );
1086: END LOOP;
1088: xProgress := 'GASNOB-10-1540';
1089: FOR v_LoopCount IN 1..v_OTX_Count
1090: LOOP
1091: xProgress := 'GASNOB-10-1550';
1092: dbms_sql.define_column ( v_OTX_Cursor,
1093: v_LoopCount,
1094: v_OTX_Select,
1095: ece_extract_utils_pub.G_MaxColWidth );
1096: END LOOP;
1098: xProgress := 'GASNOB-10-1560';
1099: FOR v_LoopCount IN 1..v_DTL_Count
1100: LOOP
1101: xProgress := 'GASNOB-10-1570';
1102: dbms_sql.define_column ( v_DTL_Cursor,
1103: v_LoopCount,
1104: v_DTL_Select,
1105: ece_extract_utils_pub.G_MaxColWidth );
1106: END LOOP;
1108: xProgress := 'GASNOB-10-1580';
1109: FOR v_LoopCount IN 1..v_DAC_Count
1110: LOOP
1111: xProgress := 'GASNOB-10-1590';
1112: dbms_sql.define_column ( v_DAC_Cursor,
1113: v_LoopCount,
1114: v_DAC_Select,
1115: ece_extract_utils_pub.G_MaxColWidth );
1116: END LOOP;
1118: xProgress := 'GASNOB-10-1580';
1119: FOR v_LoopCount IN 1..v_DTX_Count
1120: LOOP
1121: xProgress := 'GASNOB-10-1590';
1122: dbms_sql.define_column ( v_DTX_Cursor,
1123: v_LoopCount,
1124: v_DTX_Select,
1125: ece_extract_utils_pub.G_MaxColWidth );
1126: END LOOP;
1128: xProgress := 'GASNOB-10-1580';
1129: FOR v_LoopCount IN 1..v_ALL_Count
1130: LOOP
1131: xProgress := 'GASNOB-10-1590';
1132: dbms_sql.define_column ( v_ALL_Cursor,
1133: v_LoopCount,
1134: v_ALL_Select,
1135: ece_extract_utils_pub.G_MaxColWidth );
1136: END LOOP;
1140: /* Bind the variables in the Delivery level SELECT clause. */
1141: /* */
1142:
1143: xProgress := 'GASNOB-10-1600';
1144: dbms_sql.bind_variable ( v_SHP_Cursor,
1145: 'Orgn_Code',
1146: v_Orgn_Code );
1147:
1148: If v_BOL_No_From is not NULL Then
1146: v_Orgn_Code );
1147:
1148: If v_BOL_No_From is not NULL Then
1149: xProgress := 'GASNOB-10-1601';
1150: dbms_sql.bind_variable ( v_SHP_Cursor,
1151: 'BOL_No_From',
1152: v_BOL_No_From );
1153: If v_BOL_No_To is not NULL Then
1154: xProgress := 'GASNOB-10-1602';
1151: 'BOL_No_From',
1152: v_BOL_No_From );
1153: If v_BOL_No_To is not NULL Then
1154: xProgress := 'GASNOB-10-1602';
1155: dbms_sql.bind_variable ( v_SHP_Cursor,
1156: 'BOL_No_To',
1157: v_BOL_No_To );
1158: End If;
1159: End If;
1159: End If;
1160:
1161: If v_Creation_Date_From is not NULL Then
1162: xProgress := 'GASNOB-10-1603';
1163: dbms_sql.bind_variable ( v_SHP_Cursor,
1164: 'Creation_Date_From',
1165: v_Creation_Date_From );
1166: If v_Creation_Date_To is not NULL Then
1167: xProgress := 'GASNOB-10-1604';
1164: 'Creation_Date_From',
1165: v_Creation_Date_From );
1166: If v_Creation_Date_To is not NULL Then
1167: xProgress := 'GASNOB-10-1604';
1168: dbms_sql.bind_variable ( v_SHP_Cursor,
1169: 'Creation_Date_To',
1170: v_Creation_Date_To );
1171: End If;
1172: End If;
1172: End If;
1173:
1174: If v_Customer_Name is not NULL Then
1175: xProgress := 'GASNOB-10-1705';
1176: dbms_sql.bind_variable ( v_SHP_Cursor,
1177: 'Customer_Name',
1178: v_Customer_Name );
1179: End If;
1180:
1182: /* Execute the SHP level SELECT statement. */
1183: /* */
1184:
1185: xProgress := 'GASNOB-10-1610';
1186: v_Dummy := dbms_sql.execute ( v_SHP_Cursor );
1187:
1188: /* */
1189: /* Begin the SHP level loop. */
1190: /* */
1189: /* Begin the SHP level loop. */
1190: /* */
1191:
1192: xProgress := 'GASNOB-10-1620';
1193: WHILE dbms_sql.fetch_rows ( v_SHP_Cursor ) > 0
1194: LOOP
1195:
1196: /* */
1197: /* Store the returned values in the PL/SQL table. */
1200: xProgress := 'GASNOB-10-1630';
1201: FOR v_LoopCount IN 1..v_SHP_Count
1202: LOOP
1203: xProgress := 'GASNOB-10-1640';
1204: dbms_sql.column_value ( v_SHP_Cursor,
1205: v_LoopCount,
1206: v_SHP_Table(v_LoopCount).value );
1207: END LOOP;
1208:
1279: /* Execute the Ship Text level SELECT statement. */
1280: /* */
1281:
1282: xProgress := 'GASNOB-10-1670';
1283: dbms_sql.bind_variable ( v_STX_Cursor,
1284: 'BOL_ID',
1285: v_BOL_ID );
1286:
1287: xProgress := 'GASNOB-10-1840';
1284: 'BOL_ID',
1285: v_BOL_ID );
1286:
1287: xProgress := 'GASNOB-10-1840';
1288: v_Dummy := dbms_sql.execute ( v_STX_Cursor );
1289:
1290: /* */
1291: /* Begin the STX level loop. */
1292: /* */
1291: /* Begin the STX level loop. */
1292: /* */
1293:
1294: xProgress := 'GASNOB-10-1850';
1295: WHILE dbms_sql.fetch_rows ( v_STX_Cursor ) > 0
1296: LOOP
1297:
1298: /* */
1299: /* Store the returned values in the PL/SQL table. */
1302: xProgress := 'GASNOB-10-1860';
1303: FOR v_LoopCount IN 1..v_STX_Count
1304: LOOP
1305: xProgress := 'GASNOB-10-1870';
1306: dbms_sql.column_value ( v_STX_Cursor,
1307: v_LoopCount,
1308: v_STX_Table(v_LoopCount).value );
1309: END LOOP;
1310:
1347:
1348: END LOOP; /* while stx */
1349:
1350: xProgress := 'GASNOB-10-1690';
1351: dbms_sql.bind_variable ( v_ORD_Cursor,
1352: 'BOL_ID',
1353: v_BOL_ID );
1354:
1355: /* */
1356: /* Execute the Order level SELECT statement. */
1357: /* */
1358:
1359: xProgress := 'GASNOB-10-1900';
1360: v_Dummy := dbms_sql.execute ( v_ORD_Cursor );
1361:
1362: /* */
1363: /* Begin the Order level loop. */
1364: /* */
1363: /* Begin the Order level loop. */
1364: /* */
1365:
1366: xProgress := 'GASNOB-10-1910';
1367: WHILE dbms_sql.fetch_rows ( v_ORD_Cursor ) > 0
1368: LOOP
1369:
1370: /* */
1371: /* Store the returned values in the PL/SQL table. */
1374: xProgress := 'GASNOB-10-1920';
1375: FOR v_LoopCount IN 1..v_ORD_Count
1376: LOOP
1377: xProgress := 'GASNOB-10-1930';
1378: dbms_sql.column_value ( v_ORD_Cursor,
1379: v_LoopCount,
1380: v_ORD_Table(v_LoopCount).value );
1381: END LOOP;
1382:
1447: /* */
1448: /* Execute the Charge/Allowance level SELECT statement. */
1449: /* */
1450: xProgress := 'GASNOB-10-1710';
1451: dbms_sql.bind_variable ( v_OAC_Cursor,
1452: 'Order_ID',
1453: v_Order_ID );
1454:
1455: xProgress := 'GASNOB-10-1980';
1452: 'Order_ID',
1453: v_Order_ID );
1454:
1455: xProgress := 'GASNOB-10-1980';
1456: v_Dummy := dbms_sql.execute ( v_OAC_Cursor );
1457:
1458: /* */
1459: /* Begin the Order DAC level loop. */
1460: /* */
1459: /* Begin the Order DAC level loop. */
1460: /* */
1461:
1462: xProgress := 'GASNOB-10-1990';
1463: WHILE dbms_sql.fetch_rows ( v_OAC_Cursor ) > 0
1464: LOOP
1465:
1466: /* */
1467: /* Store the returned values in the PL/SQL table. */
1470: xProgress := 'GASNOB-10-2000';
1471: FOR v_LoopCount IN 1..v_OAC_Count
1472: LOOP
1473: xProgress := 'GASNOB-10-2010';
1474: dbms_sql.column_value ( v_OAC_Cursor,
1475: v_LoopCount,
1476: v_OAC_Table(v_LoopCount).value );
1477: END LOOP;
1478:
1513:
1514: END LOOP; /* while oac */
1515:
1516: xProgress := 'GASNOB-10-1730';
1517: dbms_sql.bind_variable ( v_OTX_Cursor,
1518: 'Order_ID',
1519: v_Order_ID );
1520:
1521: xProgress := 'GASNOB-10-2060';
1518: 'Order_ID',
1519: v_Order_ID );
1520:
1521: xProgress := 'GASNOB-10-2060';
1522: v_Dummy := dbms_sql.execute ( v_OTX_Cursor );
1523:
1524: /* */
1525: /* Begin the Order level loop. */
1526: /* */
1525: /* Begin the Order level loop. */
1526: /* */
1527:
1528: xProgress := 'GASNOB-10-2070';
1529: WHILE dbms_sql.fetch_rows ( v_OTX_Cursor ) > 0
1530: LOOP
1531:
1532: /* */
1533: /* Store the returned values in the PL/SQL table. */
1536: xProgress := 'GASNOB-10-2080';
1537: FOR v_LoopCount IN 1..v_OTX_Count
1538: LOOP
1539: xProgress := 'GASNOB-10-2090';
1540: dbms_sql.column_value ( v_OTX_Cursor,
1541: v_LoopCount,
1542: v_OTX_Table(v_LoopCount).value );
1543: END LOOP;
1544:
1580: END LOOP; /* while otx */
1581:
1582:
1583: xProgress := 'GASNOB-10-1740';
1584: dbms_sql.bind_variable ( v_DTL_Cursor,
1585: 'BOL_ID',
1586: v_BOL_ID );
1587:
1588: xProgress := 'GASNOB-10-1750';
1585: 'BOL_ID',
1586: v_BOL_ID );
1587:
1588: xProgress := 'GASNOB-10-1750';
1589: dbms_sql.bind_variable ( v_DTL_Cursor,
1590: 'Order_ID',
1591: v_Order_ID );
1592:
1593: /* */
1594: /* Execute the Detail level SELECT statement. */
1595: /* */
1596:
1597: xProgress := 'GASNOB-10-2140';
1598: v_Dummy := dbms_sql.execute ( v_DTL_Cursor );
1599:
1600: /* */
1601: /* Begin the Item level loop. */
1602: /* */
1601: /* Begin the Item level loop. */
1602: /* */
1603:
1604: xProgress := 'GASNOB-10-2150';
1605: WHILE dbms_sql.fetch_rows ( v_DTL_Cursor ) > 0
1606: LOOP
1607:
1608: /* */
1609: /* Store the returned values in the PL/SQL table. */
1612: xProgress := 'GASNOB-10-2160';
1613: FOR v_LoopCount IN 1..v_DTL_Count
1614: LOOP
1615: xProgress := 'GASNOB-10-2170';
1616: dbms_sql.column_value ( v_DTL_Cursor,
1617: v_LoopCount,
1618: v_DTL_Table(v_LoopCount).value );
1619: END LOOP;
1620:
1680: /* Execute the Detail Charge/Allowance level SELECT statement. */
1681: /* */
1682:
1683: xProgress := 'GASNOB-10-1760';
1684: dbms_sql.bind_variable ( v_DAC_Cursor,
1685: 'Line_ID',
1686: v_Line_ID );
1687:
1688: xProgress := 'GASNOB-10-2220';
1685: 'Line_ID',
1686: v_Line_ID );
1687:
1688: xProgress := 'GASNOB-10-2220';
1689: v_Dummy := dbms_sql.execute ( v_DAC_Cursor );
1690:
1691: /* */
1692: /* Begin the Detail DAC level loop. */
1693: /* */
1692: /* Begin the Detail DAC level loop. */
1693: /* */
1694:
1695: xProgress := 'GASNOB-10-2230';
1696: WHILE dbms_sql.fetch_rows ( v_DAC_Cursor ) > 0
1697: LOOP
1698:
1699: /* */
1700: /* Store the returned values in the PL/SQL table. */
1703: xProgress := 'GASNOB-10-2240';
1704: FOR v_LoopCount IN 1..v_DAC_Count
1705: LOOP
1706: xProgress := 'GASNOB-10-2250';
1707: dbms_sql.column_value ( v_DAC_Cursor,
1708: v_LoopCount,
1709: v_DAC_Table(v_LoopCount).value );
1710: END LOOP;
1711:
1752: /* Execute the Detail Text level SELECT statement. */
1753: /* */
1754:
1755: xProgress := 'GASNOB-10-2300';
1756: dbms_sql.bind_variable ( v_DTX_Cursor,
1757: 'Line_ID',
1758: v_Line_ID );
1759:
1760: xProgress := 'GASNOB-10-2310';
1757: 'Line_ID',
1758: v_Line_ID );
1759:
1760: xProgress := 'GASNOB-10-2310';
1761: v_Dummy := dbms_sql.execute ( v_DTX_Cursor );
1762:
1763: /* */
1764: /* Begin the Detail Text level loop. */
1765: /* */
1764: /* Begin the Detail Text level loop. */
1765: /* */
1766:
1767: xProgress := 'GASNOB-10-2320';
1768: WHILE dbms_sql.fetch_rows ( v_DTX_Cursor ) > 0
1769: LOOP
1770:
1771: /* */
1772: /* Store the returned values in the PL/SQL table. */
1775: xProgress := 'GASNOB-10-2330';
1776: FOR v_LoopCount IN 1..v_DTX_Count
1777: LOOP
1778: xProgress := 'GASNOB-10-2340';
1779: dbms_sql.column_value ( v_DTX_Cursor,
1780: v_LoopCount,
1781: v_DTX_Table(v_LoopCount).value );
1782: END LOOP;
1783:
1823: /* Execute the Allocations level SELECT statement. */
1824: /* */
1825:
1826: xProgress := 'GASNOB-10-2380';
1827: dbms_sql.bind_variable ( v_ALL_Cursor,
1828: 'Line_ID',
1829: v_Line_ID );
1830:
1831: xProgress := 'GASNOB-10-2390';
1828: 'Line_ID',
1829: v_Line_ID );
1830:
1831: xProgress := 'GASNOB-10-2390';
1832: v_Dummy := dbms_sql.execute ( v_ALL_Cursor );
1833:
1834: /* */
1835: /* Begin the Allocations level loop. */
1836: /* */
1835: /* Begin the Allocations level loop. */
1836: /* */
1837:
1838: xProgress := 'GASNOB-10-2400';
1839: WHILE dbms_sql.fetch_rows ( v_ALL_Cursor ) > 0
1840: LOOP
1841:
1842: /* */
1843: /* Store the returned values in the PL/SQL table. */
1846: xProgress := 'GASNOB-10-2410';
1847: FOR v_LoopCount IN 1..v_ALL_Count
1848: LOOP
1849: xProgress := 'GASNOB-10-2420';
1850: dbms_sql.column_value ( v_ALL_Cursor,
1851: v_LoopCount,
1852: v_ALL_Table(v_LoopCount).value );
1853: END LOOP;
1854:
1907: /* Close all open cursors. */
1908: /* */
1909:
1910: xProgress := 'GASNOB-10-2310';
1911: dbms_sql.close_cursor ( v_SHP_Cursor );
1912: xProgress := 'GASNOB-10-2312';
1913: dbms_sql.close_cursor ( v_STX_Cursor );
1914: xProgress := 'GASNOB-10-2314';
1915: dbms_sql.close_cursor ( v_ORD_Cursor);
1909:
1910: xProgress := 'GASNOB-10-2310';
1911: dbms_sql.close_cursor ( v_SHP_Cursor );
1912: xProgress := 'GASNOB-10-2312';
1913: dbms_sql.close_cursor ( v_STX_Cursor );
1914: xProgress := 'GASNOB-10-2314';
1915: dbms_sql.close_cursor ( v_ORD_Cursor);
1916: xProgress := 'GASNOB-10-2316';
1917: dbms_sql.close_cursor ( v_OAC_Cursor );
1911: dbms_sql.close_cursor ( v_SHP_Cursor );
1912: xProgress := 'GASNOB-10-2312';
1913: dbms_sql.close_cursor ( v_STX_Cursor );
1914: xProgress := 'GASNOB-10-2314';
1915: dbms_sql.close_cursor ( v_ORD_Cursor);
1916: xProgress := 'GASNOB-10-2316';
1917: dbms_sql.close_cursor ( v_OAC_Cursor );
1918: xProgress := 'GASNOB-10-2318';
1919: dbms_sql.close_cursor ( v_OTX_Cursor );
1913: dbms_sql.close_cursor ( v_STX_Cursor );
1914: xProgress := 'GASNOB-10-2314';
1915: dbms_sql.close_cursor ( v_ORD_Cursor);
1916: xProgress := 'GASNOB-10-2316';
1917: dbms_sql.close_cursor ( v_OAC_Cursor );
1918: xProgress := 'GASNOB-10-2318';
1919: dbms_sql.close_cursor ( v_OTX_Cursor );
1920: xProgress := 'GASNOB-10-2320';
1921: dbms_sql.close_cursor ( v_DTL_Cursor );
1915: dbms_sql.close_cursor ( v_ORD_Cursor);
1916: xProgress := 'GASNOB-10-2316';
1917: dbms_sql.close_cursor ( v_OAC_Cursor );
1918: xProgress := 'GASNOB-10-2318';
1919: dbms_sql.close_cursor ( v_OTX_Cursor );
1920: xProgress := 'GASNOB-10-2320';
1921: dbms_sql.close_cursor ( v_DTL_Cursor );
1922: xProgress := 'GASNOB-10-2322';
1923: dbms_sql.close_cursor ( v_DAC_Cursor );
1917: dbms_sql.close_cursor ( v_OAC_Cursor );
1918: xProgress := 'GASNOB-10-2318';
1919: dbms_sql.close_cursor ( v_OTX_Cursor );
1920: xProgress := 'GASNOB-10-2320';
1921: dbms_sql.close_cursor ( v_DTL_Cursor );
1922: xProgress := 'GASNOB-10-2322';
1923: dbms_sql.close_cursor ( v_DAC_Cursor );
1924: xProgress := 'GASNOB-10-2323';
1925: dbms_sql.close_cursor ( v_DTX_Cursor );
1919: dbms_sql.close_cursor ( v_OTX_Cursor );
1920: xProgress := 'GASNOB-10-2320';
1921: dbms_sql.close_cursor ( v_DTL_Cursor );
1922: xProgress := 'GASNOB-10-2322';
1923: dbms_sql.close_cursor ( v_DAC_Cursor );
1924: xProgress := 'GASNOB-10-2323';
1925: dbms_sql.close_cursor ( v_DTX_Cursor );
1926: xProgress := 'GASNOB-10-2324';
1927: dbms_sql.close_cursor ( v_ALL_Cursor );
1921: dbms_sql.close_cursor ( v_DTL_Cursor );
1922: xProgress := 'GASNOB-10-2322';
1923: dbms_sql.close_cursor ( v_DAC_Cursor );
1924: xProgress := 'GASNOB-10-2323';
1925: dbms_sql.close_cursor ( v_DTX_Cursor );
1926: xProgress := 'GASNOB-10-2324';
1927: dbms_sql.close_cursor ( v_ALL_Cursor );
1928:
1929: ec_debug.pop ( 'GML_GASNO.Populate_Interface_Tables' );
1923: dbms_sql.close_cursor ( v_DAC_Cursor );
1924: xProgress := 'GASNOB-10-2323';
1925: dbms_sql.close_cursor ( v_DTX_Cursor );
1926: xProgress := 'GASNOB-10-2324';
1927: dbms_sql.close_cursor ( v_ALL_Cursor );
1928:
1929: ec_debug.pop ( 'GML_GASNO.Populate_Interface_Tables' );
1930:
1931: EXCEPTION
2653: /* SELECT and DELETE statements. */
2654: /* */
2655:
2656: xProgress := 'GASNOB-40-1120';
2657: v_SHP_SelectCursor := dbms_sql.open_cursor;
2658: xProgress := 'GASNOB-40-1122';
2659: v_STX_SelectCursor := dbms_sql.open_cursor;
2660: xProgress := 'GASNOB-40-1124';
2661: v_ORD_SelectCursor := dbms_sql.open_cursor;
2655:
2656: xProgress := 'GASNOB-40-1120';
2657: v_SHP_SelectCursor := dbms_sql.open_cursor;
2658: xProgress := 'GASNOB-40-1122';
2659: v_STX_SelectCursor := dbms_sql.open_cursor;
2660: xProgress := 'GASNOB-40-1124';
2661: v_ORD_SelectCursor := dbms_sql.open_cursor;
2662: xProgress := 'GASNOB-40-1126';
2663: v_OAC_SelectCursor := dbms_sql.open_cursor;
2657: v_SHP_SelectCursor := dbms_sql.open_cursor;
2658: xProgress := 'GASNOB-40-1122';
2659: v_STX_SelectCursor := dbms_sql.open_cursor;
2660: xProgress := 'GASNOB-40-1124';
2661: v_ORD_SelectCursor := dbms_sql.open_cursor;
2662: xProgress := 'GASNOB-40-1126';
2663: v_OAC_SelectCursor := dbms_sql.open_cursor;
2664: xProgress := 'GASNOB-40-1128';
2665: v_OTX_SelectCursor := dbms_sql.open_cursor;
2659: v_STX_SelectCursor := dbms_sql.open_cursor;
2660: xProgress := 'GASNOB-40-1124';
2661: v_ORD_SelectCursor := dbms_sql.open_cursor;
2662: xProgress := 'GASNOB-40-1126';
2663: v_OAC_SelectCursor := dbms_sql.open_cursor;
2664: xProgress := 'GASNOB-40-1128';
2665: v_OTX_SelectCursor := dbms_sql.open_cursor;
2666: xProgress := 'GASNOB-40-1130';
2667: v_DTL_SelectCursor := dbms_sql.open_cursor;
2661: v_ORD_SelectCursor := dbms_sql.open_cursor;
2662: xProgress := 'GASNOB-40-1126';
2663: v_OAC_SelectCursor := dbms_sql.open_cursor;
2664: xProgress := 'GASNOB-40-1128';
2665: v_OTX_SelectCursor := dbms_sql.open_cursor;
2666: xProgress := 'GASNOB-40-1130';
2667: v_DTL_SelectCursor := dbms_sql.open_cursor;
2668: xProgress := 'GASNOB-40-1132';
2669: v_DAC_SelectCursor := dbms_sql.open_cursor;
2663: v_OAC_SelectCursor := dbms_sql.open_cursor;
2664: xProgress := 'GASNOB-40-1128';
2665: v_OTX_SelectCursor := dbms_sql.open_cursor;
2666: xProgress := 'GASNOB-40-1130';
2667: v_DTL_SelectCursor := dbms_sql.open_cursor;
2668: xProgress := 'GASNOB-40-1132';
2669: v_DAC_SelectCursor := dbms_sql.open_cursor;
2670: xProgress := 'GASNOB-40-1134';
2671: v_DTX_SelectCursor := dbms_sql.open_cursor;
2665: v_OTX_SelectCursor := dbms_sql.open_cursor;
2666: xProgress := 'GASNOB-40-1130';
2667: v_DTL_SelectCursor := dbms_sql.open_cursor;
2668: xProgress := 'GASNOB-40-1132';
2669: v_DAC_SelectCursor := dbms_sql.open_cursor;
2670: xProgress := 'GASNOB-40-1134';
2671: v_DTX_SelectCursor := dbms_sql.open_cursor;
2672: xProgress := 'GASNOB-40-1135';
2673: v_ALL_SelectCursor := dbms_sql.open_cursor;
2667: v_DTL_SelectCursor := dbms_sql.open_cursor;
2668: xProgress := 'GASNOB-40-1132';
2669: v_DAC_SelectCursor := dbms_sql.open_cursor;
2670: xProgress := 'GASNOB-40-1134';
2671: v_DTX_SelectCursor := dbms_sql.open_cursor;
2672: xProgress := 'GASNOB-40-1135';
2673: v_ALL_SelectCursor := dbms_sql.open_cursor;
2674:
2675: xProgress := 'GASNOB-40-1136';
2669: v_DAC_SelectCursor := dbms_sql.open_cursor;
2670: xProgress := 'GASNOB-40-1134';
2671: v_DTX_SelectCursor := dbms_sql.open_cursor;
2672: xProgress := 'GASNOB-40-1135';
2673: v_ALL_SelectCursor := dbms_sql.open_cursor;
2674:
2675: xProgress := 'GASNOB-40-1136';
2676: v_SHP_DeleteCursor := dbms_sql.open_cursor;
2677: xProgress := 'GASNOB-40-1138';
2672: xProgress := 'GASNOB-40-1135';
2673: v_ALL_SelectCursor := dbms_sql.open_cursor;
2674:
2675: xProgress := 'GASNOB-40-1136';
2676: v_SHP_DeleteCursor := dbms_sql.open_cursor;
2677: xProgress := 'GASNOB-40-1138';
2678: v_STX_DeleteCursor := dbms_sql.open_cursor;
2679: xProgress := 'GASNOB-40-1140';
2680: v_ORD_DeleteCursor := dbms_sql.open_cursor;
2674:
2675: xProgress := 'GASNOB-40-1136';
2676: v_SHP_DeleteCursor := dbms_sql.open_cursor;
2677: xProgress := 'GASNOB-40-1138';
2678: v_STX_DeleteCursor := dbms_sql.open_cursor;
2679: xProgress := 'GASNOB-40-1140';
2680: v_ORD_DeleteCursor := dbms_sql.open_cursor;
2681: xProgress := 'GASNOB-40-1142';
2682: v_OAC_DeleteCursor := dbms_sql.open_cursor;
2676: v_SHP_DeleteCursor := dbms_sql.open_cursor;
2677: xProgress := 'GASNOB-40-1138';
2678: v_STX_DeleteCursor := dbms_sql.open_cursor;
2679: xProgress := 'GASNOB-40-1140';
2680: v_ORD_DeleteCursor := dbms_sql.open_cursor;
2681: xProgress := 'GASNOB-40-1142';
2682: v_OAC_DeleteCursor := dbms_sql.open_cursor;
2683: xProgress := 'GASNOB-40-1144';
2684: v_OTX_DeleteCursor := dbms_sql.open_cursor;
2678: v_STX_DeleteCursor := dbms_sql.open_cursor;
2679: xProgress := 'GASNOB-40-1140';
2680: v_ORD_DeleteCursor := dbms_sql.open_cursor;
2681: xProgress := 'GASNOB-40-1142';
2682: v_OAC_DeleteCursor := dbms_sql.open_cursor;
2683: xProgress := 'GASNOB-40-1144';
2684: v_OTX_DeleteCursor := dbms_sql.open_cursor;
2685: xProgress := 'GASNOB-40-1146';
2686: v_DTL_DeleteCursor := dbms_sql.open_cursor;
2680: v_ORD_DeleteCursor := dbms_sql.open_cursor;
2681: xProgress := 'GASNOB-40-1142';
2682: v_OAC_DeleteCursor := dbms_sql.open_cursor;
2683: xProgress := 'GASNOB-40-1144';
2684: v_OTX_DeleteCursor := dbms_sql.open_cursor;
2685: xProgress := 'GASNOB-40-1146';
2686: v_DTL_DeleteCursor := dbms_sql.open_cursor;
2687: xProgress := 'GASNOB-40-1148';
2688: v_DAC_DeleteCursor := dbms_sql.open_cursor;
2682: v_OAC_DeleteCursor := dbms_sql.open_cursor;
2683: xProgress := 'GASNOB-40-1144';
2684: v_OTX_DeleteCursor := dbms_sql.open_cursor;
2685: xProgress := 'GASNOB-40-1146';
2686: v_DTL_DeleteCursor := dbms_sql.open_cursor;
2687: xProgress := 'GASNOB-40-1148';
2688: v_DAC_DeleteCursor := dbms_sql.open_cursor;
2689: xProgress := 'GASNOB-40-1150';
2690: v_DTX_DeleteCursor := dbms_sql.open_cursor;
2684: v_OTX_DeleteCursor := dbms_sql.open_cursor;
2685: xProgress := 'GASNOB-40-1146';
2686: v_DTL_DeleteCursor := dbms_sql.open_cursor;
2687: xProgress := 'GASNOB-40-1148';
2688: v_DAC_DeleteCursor := dbms_sql.open_cursor;
2689: xProgress := 'GASNOB-40-1150';
2690: v_DTX_DeleteCursor := dbms_sql.open_cursor;
2691: xProgress := 'GASNOB-40-1151';
2692: v_ALL_DeleteCursor := dbms_sql.open_cursor;
2686: v_DTL_DeleteCursor := dbms_sql.open_cursor;
2687: xProgress := 'GASNOB-40-1148';
2688: v_DAC_DeleteCursor := dbms_sql.open_cursor;
2689: xProgress := 'GASNOB-40-1150';
2690: v_DTX_DeleteCursor := dbms_sql.open_cursor;
2691: xProgress := 'GASNOB-40-1151';
2692: v_ALL_DeleteCursor := dbms_sql.open_cursor;
2693:
2694: xProgress := 'GASNOB-40-1152';
2688: v_DAC_DeleteCursor := dbms_sql.open_cursor;
2689: xProgress := 'GASNOB-40-1150';
2690: v_DTX_DeleteCursor := dbms_sql.open_cursor;
2691: xProgress := 'GASNOB-40-1151';
2692: v_ALL_DeleteCursor := dbms_sql.open_cursor;
2693:
2694: xProgress := 'GASNOB-40-1152';
2695: v_SHP_XDeleteCursor := dbms_sql.open_cursor;
2696: xProgress := 'GASNOB-40-1154';
2691: xProgress := 'GASNOB-40-1151';
2692: v_ALL_DeleteCursor := dbms_sql.open_cursor;
2693:
2694: xProgress := 'GASNOB-40-1152';
2695: v_SHP_XDeleteCursor := dbms_sql.open_cursor;
2696: xProgress := 'GASNOB-40-1154';
2697: v_STX_XDeleteCursor := dbms_sql.open_cursor;
2698: xProgress := 'GASNOB-40-1156';
2699: v_ORD_XDeleteCursor := dbms_sql.open_cursor;
2693:
2694: xProgress := 'GASNOB-40-1152';
2695: v_SHP_XDeleteCursor := dbms_sql.open_cursor;
2696: xProgress := 'GASNOB-40-1154';
2697: v_STX_XDeleteCursor := dbms_sql.open_cursor;
2698: xProgress := 'GASNOB-40-1156';
2699: v_ORD_XDeleteCursor := dbms_sql.open_cursor;
2700: xProgress := 'GASNOB-40-1158';
2701: v_OAC_XDeleteCursor := dbms_sql.open_cursor;
2695: v_SHP_XDeleteCursor := dbms_sql.open_cursor;
2696: xProgress := 'GASNOB-40-1154';
2697: v_STX_XDeleteCursor := dbms_sql.open_cursor;
2698: xProgress := 'GASNOB-40-1156';
2699: v_ORD_XDeleteCursor := dbms_sql.open_cursor;
2700: xProgress := 'GASNOB-40-1158';
2701: v_OAC_XDeleteCursor := dbms_sql.open_cursor;
2702: xProgress := 'GASNOB-40-1160';
2703: v_OTX_XDeleteCursor := dbms_sql.open_cursor;
2697: v_STX_XDeleteCursor := dbms_sql.open_cursor;
2698: xProgress := 'GASNOB-40-1156';
2699: v_ORD_XDeleteCursor := dbms_sql.open_cursor;
2700: xProgress := 'GASNOB-40-1158';
2701: v_OAC_XDeleteCursor := dbms_sql.open_cursor;
2702: xProgress := 'GASNOB-40-1160';
2703: v_OTX_XDeleteCursor := dbms_sql.open_cursor;
2704: xProgress := 'GASNOB-40-1162';
2705: v_DTL_XDeleteCursor := dbms_sql.open_cursor;
2699: v_ORD_XDeleteCursor := dbms_sql.open_cursor;
2700: xProgress := 'GASNOB-40-1158';
2701: v_OAC_XDeleteCursor := dbms_sql.open_cursor;
2702: xProgress := 'GASNOB-40-1160';
2703: v_OTX_XDeleteCursor := dbms_sql.open_cursor;
2704: xProgress := 'GASNOB-40-1162';
2705: v_DTL_XDeleteCursor := dbms_sql.open_cursor;
2706: xProgress := 'GASNOB-40-1164';
2707: v_DAC_XDeleteCursor := dbms_sql.open_cursor;
2701: v_OAC_XDeleteCursor := dbms_sql.open_cursor;
2702: xProgress := 'GASNOB-40-1160';
2703: v_OTX_XDeleteCursor := dbms_sql.open_cursor;
2704: xProgress := 'GASNOB-40-1162';
2705: v_DTL_XDeleteCursor := dbms_sql.open_cursor;
2706: xProgress := 'GASNOB-40-1164';
2707: v_DAC_XDeleteCursor := dbms_sql.open_cursor;
2708: xProgress := 'GASNOB-40-1166';
2709: v_DTX_XDeleteCursor := dbms_sql.open_cursor;
2703: v_OTX_XDeleteCursor := dbms_sql.open_cursor;
2704: xProgress := 'GASNOB-40-1162';
2705: v_DTL_XDeleteCursor := dbms_sql.open_cursor;
2706: xProgress := 'GASNOB-40-1164';
2707: v_DAC_XDeleteCursor := dbms_sql.open_cursor;
2708: xProgress := 'GASNOB-40-1166';
2709: v_DTX_XDeleteCursor := dbms_sql.open_cursor;
2710: xProgress := 'GASNOB-40-1166';
2711: v_ALL_XDeleteCursor := dbms_sql.open_cursor;
2705: v_DTL_XDeleteCursor := dbms_sql.open_cursor;
2706: xProgress := 'GASNOB-40-1164';
2707: v_DAC_XDeleteCursor := dbms_sql.open_cursor;
2708: xProgress := 'GASNOB-40-1166';
2709: v_DTX_XDeleteCursor := dbms_sql.open_cursor;
2710: xProgress := 'GASNOB-40-1166';
2711: v_ALL_XDeleteCursor := dbms_sql.open_cursor;
2712:
2713: /* */
2707: v_DAC_XDeleteCursor := dbms_sql.open_cursor;
2708: xProgress := 'GASNOB-40-1166';
2709: v_DTX_XDeleteCursor := dbms_sql.open_cursor;
2710: xProgress := 'GASNOB-40-1166';
2711: v_ALL_XDeleteCursor := dbms_sql.open_cursor;
2712:
2713: /* */
2714: /* Parse each SELECT and DELETE statement so the database understands */
2715: /* the command. */
2716: /* */
2717:
2718: xProgress := 'GASNOB-40-1170';
2719: BEGIN
2720: dbms_sql.parse ( v_SHP_SelectCursor,
2721: v_SHP_Select,
2722: dbms_sql.native );
2723: EXCEPTION
2724: WHEN OTHERS THEN
2718: xProgress := 'GASNOB-40-1170';
2719: BEGIN
2720: dbms_sql.parse ( v_SHP_SelectCursor,
2721: v_SHP_Select,
2722: dbms_sql.native );
2723: EXCEPTION
2724: WHEN OTHERS THEN
2725: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2726: v_SHP_Select) ;
2721: v_SHP_Select,
2722: dbms_sql.native );
2723: EXCEPTION
2724: WHEN OTHERS THEN
2725: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2726: v_SHP_Select) ;
2727: app_exception.raise_exception;
2728: END;
2729:
2728: END;
2729:
2730: xProgress := 'GASNOB-40-1180';
2731: BEGIN
2732: dbms_sql.parse ( v_STX_SelectCursor,
2733: v_STX_Select,
2734: dbms_sql.native );
2735: EXCEPTION
2736: WHEN OTHERS THEN
2730: xProgress := 'GASNOB-40-1180';
2731: BEGIN
2732: dbms_sql.parse ( v_STX_SelectCursor,
2733: v_STX_Select,
2734: dbms_sql.native );
2735: EXCEPTION
2736: WHEN OTHERS THEN
2737: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2738: v_STX_Select) ;
2733: v_STX_Select,
2734: dbms_sql.native );
2735: EXCEPTION
2736: WHEN OTHERS THEN
2737: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2738: v_STX_Select) ;
2739: app_exception.raise_exception;
2740: END;
2741:
2740: END;
2741:
2742: xProgress := 'GASNOB-40-1190';
2743: BEGIN
2744: dbms_sql.parse ( v_ORD_SelectCursor,
2745: v_ORD_Select,
2746: dbms_sql.native );
2747: EXCEPTION
2748: WHEN OTHERS THEN
2742: xProgress := 'GASNOB-40-1190';
2743: BEGIN
2744: dbms_sql.parse ( v_ORD_SelectCursor,
2745: v_ORD_Select,
2746: dbms_sql.native );
2747: EXCEPTION
2748: WHEN OTHERS THEN
2749: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2750: v_ORD_Select) ;
2745: v_ORD_Select,
2746: dbms_sql.native );
2747: EXCEPTION
2748: WHEN OTHERS THEN
2749: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2750: v_ORD_Select) ;
2751: app_exception.raise_exception;
2752: END;
2753:
2752: END;
2753:
2754: xProgress := 'GASNOB-40-1200';
2755: BEGIN
2756: dbms_sql.parse ( v_OAC_SelectCursor,
2757: v_OAC_Select,
2758: dbms_sql.native );
2759: EXCEPTION
2760: WHEN OTHERS THEN
2754: xProgress := 'GASNOB-40-1200';
2755: BEGIN
2756: dbms_sql.parse ( v_OAC_SelectCursor,
2757: v_OAC_Select,
2758: dbms_sql.native );
2759: EXCEPTION
2760: WHEN OTHERS THEN
2761: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2762: v_OAC_Select) ;
2757: v_OAC_Select,
2758: dbms_sql.native );
2759: EXCEPTION
2760: WHEN OTHERS THEN
2761: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2762: v_OAC_Select) ;
2763: app_exception.raise_exception;
2764: END;
2765:
2764: END;
2765:
2766: xProgress := 'GASNOB-40-1210';
2767: BEGIN
2768: dbms_sql.parse ( v_OTX_SelectCursor,
2769: v_OTX_Select,
2770: dbms_sql.native );
2771: EXCEPTION
2772: WHEN OTHERS THEN
2766: xProgress := 'GASNOB-40-1210';
2767: BEGIN
2768: dbms_sql.parse ( v_OTX_SelectCursor,
2769: v_OTX_Select,
2770: dbms_sql.native );
2771: EXCEPTION
2772: WHEN OTHERS THEN
2773: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2774: v_OTX_Select) ;
2769: v_OTX_Select,
2770: dbms_sql.native );
2771: EXCEPTION
2772: WHEN OTHERS THEN
2773: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2774: v_OTX_Select) ;
2775: app_exception.raise_exception;
2776: END;
2777:
2776: END;
2777:
2778: xProgress := 'GASNOB-40-1220';
2779: BEGIN
2780: dbms_sql.parse ( v_DTL_SelectCursor,
2781: v_DTL_Select,
2782: dbms_sql.native );
2783: EXCEPTION
2784: WHEN OTHERS THEN
2778: xProgress := 'GASNOB-40-1220';
2779: BEGIN
2780: dbms_sql.parse ( v_DTL_SelectCursor,
2781: v_DTL_Select,
2782: dbms_sql.native );
2783: EXCEPTION
2784: WHEN OTHERS THEN
2785: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2786: v_DTL_Select) ;
2781: v_DTL_Select,
2782: dbms_sql.native );
2783: EXCEPTION
2784: WHEN OTHERS THEN
2785: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2786: v_DTL_Select) ;
2787: app_exception.raise_exception;
2788: END;
2789:
2788: END;
2789:
2790: xProgress := 'GASNOB-40-1230';
2791: BEGIN
2792: dbms_sql.parse ( v_DAC_SelectCursor,
2793: v_DAC_Select,
2794: dbms_sql.native );
2795: EXCEPTION
2796: WHEN OTHERS THEN
2790: xProgress := 'GASNOB-40-1230';
2791: BEGIN
2792: dbms_sql.parse ( v_DAC_SelectCursor,
2793: v_DAC_Select,
2794: dbms_sql.native );
2795: EXCEPTION
2796: WHEN OTHERS THEN
2797: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2798: v_DAC_Select) ;
2793: v_DAC_Select,
2794: dbms_sql.native );
2795: EXCEPTION
2796: WHEN OTHERS THEN
2797: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2798: v_DAC_Select) ;
2799: app_exception.raise_exception;
2800: END;
2801:
2800: END;
2801:
2802: xProgress := 'GASNOB-40-1240';
2803: BEGIN
2804: dbms_sql.parse ( v_DTX_SelectCursor,
2805: v_DTX_Select,
2806: dbms_sql.native );
2807: EXCEPTION
2808: WHEN OTHERS THEN
2802: xProgress := 'GASNOB-40-1240';
2803: BEGIN
2804: dbms_sql.parse ( v_DTX_SelectCursor,
2805: v_DTX_Select,
2806: dbms_sql.native );
2807: EXCEPTION
2808: WHEN OTHERS THEN
2809: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2810: v_DTX_Select) ;
2805: v_DTX_Select,
2806: dbms_sql.native );
2807: EXCEPTION
2808: WHEN OTHERS THEN
2809: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2810: v_DTX_Select) ;
2811: app_exception.raise_exception;
2812: END;
2813:
2812: END;
2813:
2814: xProgress := 'GASNOB-40-1245';
2815: BEGIN
2816: dbms_sql.parse ( v_ALL_SelectCursor,
2817: v_ALL_Select,
2818: dbms_sql.native );
2819: EXCEPTION
2820: WHEN OTHERS THEN
2814: xProgress := 'GASNOB-40-1245';
2815: BEGIN
2816: dbms_sql.parse ( v_ALL_SelectCursor,
2817: v_ALL_Select,
2818: dbms_sql.native );
2819: EXCEPTION
2820: WHEN OTHERS THEN
2821: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2822: v_ALL_Select) ;
2817: v_ALL_Select,
2818: dbms_sql.native );
2819: EXCEPTION
2820: WHEN OTHERS THEN
2821: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2822: v_ALL_Select) ;
2823: app_exception.raise_exception;
2824: END;
2825:
2824: END;
2825:
2826: xProgress := 'GASNOB-40-1250';
2827: BEGIN
2828: dbms_sql.parse ( v_SHP_DeleteCursor,
2829: v_SHP_Delete,
2830: dbms_sql.native );
2831: EXCEPTION
2832: WHEN OTHERS THEN
2826: xProgress := 'GASNOB-40-1250';
2827: BEGIN
2828: dbms_sql.parse ( v_SHP_DeleteCursor,
2829: v_SHP_Delete,
2830: dbms_sql.native );
2831: EXCEPTION
2832: WHEN OTHERS THEN
2833: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2834: v_SHP_Delete) ;
2829: v_SHP_Delete,
2830: dbms_sql.native );
2831: EXCEPTION
2832: WHEN OTHERS THEN
2833: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2834: v_SHP_Delete) ;
2835: app_exception.raise_exception;
2836: END;
2837:
2836: END;
2837:
2838: xProgress := 'GASNOB-40-1260';
2839: BEGIN
2840: dbms_sql.parse ( v_STX_DeleteCursor,
2841: v_STX_Delete,
2842: dbms_sql.native );
2843: EXCEPTION
2844: WHEN OTHERS THEN
2838: xProgress := 'GASNOB-40-1260';
2839: BEGIN
2840: dbms_sql.parse ( v_STX_DeleteCursor,
2841: v_STX_Delete,
2842: dbms_sql.native );
2843: EXCEPTION
2844: WHEN OTHERS THEN
2845: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2846: v_STX_Delete) ;
2841: v_STX_Delete,
2842: dbms_sql.native );
2843: EXCEPTION
2844: WHEN OTHERS THEN
2845: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2846: v_STX_Delete) ;
2847: app_exception.raise_exception;
2848: END;
2849:
2848: END;
2849:
2850: xProgress := 'GASNOB-40-1270';
2851: BEGIN
2852: dbms_sql.parse ( v_ORD_DeleteCursor,
2853: v_ORD_Delete,
2854: dbms_sql.native );
2855: EXCEPTION
2856: WHEN OTHERS THEN
2850: xProgress := 'GASNOB-40-1270';
2851: BEGIN
2852: dbms_sql.parse ( v_ORD_DeleteCursor,
2853: v_ORD_Delete,
2854: dbms_sql.native );
2855: EXCEPTION
2856: WHEN OTHERS THEN
2857: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2858: v_ORD_Delete) ;
2853: v_ORD_Delete,
2854: dbms_sql.native );
2855: EXCEPTION
2856: WHEN OTHERS THEN
2857: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2858: v_ORD_Delete) ;
2859: app_exception.raise_exception;
2860: END;
2861:
2860: END;
2861:
2862: xProgress := 'GASNOB-40-1280';
2863: BEGIN
2864: dbms_sql.parse ( v_OAC_DeleteCursor,
2865: v_OAC_Delete,
2866: dbms_sql.native );
2867: EXCEPTION
2868: WHEN OTHERS THEN
2862: xProgress := 'GASNOB-40-1280';
2863: BEGIN
2864: dbms_sql.parse ( v_OAC_DeleteCursor,
2865: v_OAC_Delete,
2866: dbms_sql.native );
2867: EXCEPTION
2868: WHEN OTHERS THEN
2869: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2870: v_OAC_Delete) ;
2865: v_OAC_Delete,
2866: dbms_sql.native );
2867: EXCEPTION
2868: WHEN OTHERS THEN
2869: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2870: v_OAC_Delete) ;
2871: app_exception.raise_exception;
2872: END;
2873:
2872: END;
2873:
2874: xProgress := 'GASNOB-40-1290';
2875: BEGIN
2876: dbms_sql.parse ( v_OTX_DeleteCursor,
2877: v_OTX_Delete,
2878: dbms_sql.native );
2879: EXCEPTION
2880: WHEN OTHERS THEN
2874: xProgress := 'GASNOB-40-1290';
2875: BEGIN
2876: dbms_sql.parse ( v_OTX_DeleteCursor,
2877: v_OTX_Delete,
2878: dbms_sql.native );
2879: EXCEPTION
2880: WHEN OTHERS THEN
2881: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2882: v_OTX_Delete) ;
2877: v_OTX_Delete,
2878: dbms_sql.native );
2879: EXCEPTION
2880: WHEN OTHERS THEN
2881: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2882: v_OTX_Delete) ;
2883: app_exception.raise_exception;
2884: END;
2885:
2884: END;
2885:
2886: xProgress := 'GASNOB-40-1300';
2887: BEGIN
2888: dbms_sql.parse ( v_DTL_DeleteCursor,
2889: v_DTL_Delete,
2890: dbms_sql.native );
2891: EXCEPTION
2892: WHEN OTHERS THEN
2886: xProgress := 'GASNOB-40-1300';
2887: BEGIN
2888: dbms_sql.parse ( v_DTL_DeleteCursor,
2889: v_DTL_Delete,
2890: dbms_sql.native );
2891: EXCEPTION
2892: WHEN OTHERS THEN
2893: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2894: v_DTL_Delete) ;
2889: v_DTL_Delete,
2890: dbms_sql.native );
2891: EXCEPTION
2892: WHEN OTHERS THEN
2893: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2894: v_DTL_Delete) ;
2895: app_exception.raise_exception;
2896: END;
2897:
2896: END;
2897:
2898: xProgress := 'GASNOB-40-1310';
2899: BEGIN
2900: dbms_sql.parse ( v_DAC_DeleteCursor,
2901: v_DAC_Delete,
2902: dbms_sql.native );
2903: EXCEPTION
2904: WHEN OTHERS THEN
2898: xProgress := 'GASNOB-40-1310';
2899: BEGIN
2900: dbms_sql.parse ( v_DAC_DeleteCursor,
2901: v_DAC_Delete,
2902: dbms_sql.native );
2903: EXCEPTION
2904: WHEN OTHERS THEN
2905: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2906: v_DAC_Delete) ;
2901: v_DAC_Delete,
2902: dbms_sql.native );
2903: EXCEPTION
2904: WHEN OTHERS THEN
2905: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2906: v_DAC_Delete) ;
2907: app_exception.raise_exception;
2908: END;
2909:
2908: END;
2909:
2910: xProgress := 'GASNOB-40-1320';
2911: BEGIN
2912: dbms_sql.parse ( v_DTX_DeleteCursor,
2913: v_DTX_Delete,
2914: dbms_sql.native );
2915: EXCEPTION
2916: WHEN OTHERS THEN
2910: xProgress := 'GASNOB-40-1320';
2911: BEGIN
2912: dbms_sql.parse ( v_DTX_DeleteCursor,
2913: v_DTX_Delete,
2914: dbms_sql.native );
2915: EXCEPTION
2916: WHEN OTHERS THEN
2917: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2918: v_DTX_Delete) ;
2913: v_DTX_Delete,
2914: dbms_sql.native );
2915: EXCEPTION
2916: WHEN OTHERS THEN
2917: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2918: v_DTX_Delete) ;
2919: app_exception.raise_exception;
2920: END;
2921:
2920: END;
2921:
2922: xProgress := 'GASNOB-40-1325';
2923: BEGIN
2924: dbms_sql.parse ( v_ALL_DeleteCursor,
2925: v_ALL_Delete,
2926: dbms_sql.native );
2927: EXCEPTION
2928: WHEN OTHERS THEN
2922: xProgress := 'GASNOB-40-1325';
2923: BEGIN
2924: dbms_sql.parse ( v_ALL_DeleteCursor,
2925: v_ALL_Delete,
2926: dbms_sql.native );
2927: EXCEPTION
2928: WHEN OTHERS THEN
2929: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2930: v_ALL_Delete) ;
2925: v_ALL_Delete,
2926: dbms_sql.native );
2927: EXCEPTION
2928: WHEN OTHERS THEN
2929: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2930: v_ALL_Delete) ;
2931: app_exception.raise_exception;
2932: END;
2933:
2932: END;
2933:
2934: xProgress := 'GASNOB-40-1330';
2935: BEGIN
2936: dbms_sql.parse ( v_SHP_XDeleteCursor,
2937: v_SHP_XDelete,
2938: dbms_sql.native );
2939: EXCEPTION
2940: WHEN OTHERS THEN
2934: xProgress := 'GASNOB-40-1330';
2935: BEGIN
2936: dbms_sql.parse ( v_SHP_XDeleteCursor,
2937: v_SHP_XDelete,
2938: dbms_sql.native );
2939: EXCEPTION
2940: WHEN OTHERS THEN
2941: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2942: v_SHP_XDelete) ;
2937: v_SHP_XDelete,
2938: dbms_sql.native );
2939: EXCEPTION
2940: WHEN OTHERS THEN
2941: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2942: v_SHP_XDelete) ;
2943: app_exception.raise_exception;
2944: END;
2945:
2944: END;
2945:
2946: xProgress := 'GASNOB-40-1340';
2947: BEGIN
2948: dbms_sql.parse ( v_STX_XDeleteCursor,
2949: v_STX_XDelete,
2950: dbms_sql.native );
2951: EXCEPTION
2952: WHEN OTHERS THEN
2946: xProgress := 'GASNOB-40-1340';
2947: BEGIN
2948: dbms_sql.parse ( v_STX_XDeleteCursor,
2949: v_STX_XDelete,
2950: dbms_sql.native );
2951: EXCEPTION
2952: WHEN OTHERS THEN
2953: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2954: v_STX_XDelete) ;
2949: v_STX_XDelete,
2950: dbms_sql.native );
2951: EXCEPTION
2952: WHEN OTHERS THEN
2953: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2954: v_STX_XDelete) ;
2955: app_exception.raise_exception;
2956: END;
2957:
2956: END;
2957:
2958: xProgress := 'GASNOB-40-1350';
2959: BEGIN
2960: dbms_sql.parse ( v_ORD_XDeleteCursor,
2961: v_ORD_XDelete,
2962: dbms_sql.native );
2963: EXCEPTION
2964: WHEN OTHERS THEN
2958: xProgress := 'GASNOB-40-1350';
2959: BEGIN
2960: dbms_sql.parse ( v_ORD_XDeleteCursor,
2961: v_ORD_XDelete,
2962: dbms_sql.native );
2963: EXCEPTION
2964: WHEN OTHERS THEN
2965: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2966: v_ORD_XDelete) ;
2961: v_ORD_XDelete,
2962: dbms_sql.native );
2963: EXCEPTION
2964: WHEN OTHERS THEN
2965: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2966: v_ORD_XDelete) ;
2967: app_exception.raise_exception;
2968: END;
2969:
2968: END;
2969:
2970: xProgress := 'GASNOB-40-1360';
2971: BEGIN
2972: dbms_sql.parse ( v_OAC_XDeleteCursor,
2973: v_OAC_XDelete,
2974: dbms_sql.native );
2975: EXCEPTION
2976: WHEN OTHERS THEN
2970: xProgress := 'GASNOB-40-1360';
2971: BEGIN
2972: dbms_sql.parse ( v_OAC_XDeleteCursor,
2973: v_OAC_XDelete,
2974: dbms_sql.native );
2975: EXCEPTION
2976: WHEN OTHERS THEN
2977: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2978: v_OAC_XDelete) ;
2973: v_OAC_XDelete,
2974: dbms_sql.native );
2975: EXCEPTION
2976: WHEN OTHERS THEN
2977: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2978: v_OAC_XDelete) ;
2979: app_exception.raise_exception;
2980: END;
2981:
2980: END;
2981:
2982: xProgress := 'GASNOB-40-1370';
2983: BEGIN
2984: dbms_sql.parse ( v_OTX_XDeleteCursor,
2985: v_OTX_XDelete,
2986: dbms_sql.native );
2987: EXCEPTION
2988: WHEN OTHERS THEN
2982: xProgress := 'GASNOB-40-1370';
2983: BEGIN
2984: dbms_sql.parse ( v_OTX_XDeleteCursor,
2985: v_OTX_XDelete,
2986: dbms_sql.native );
2987: EXCEPTION
2988: WHEN OTHERS THEN
2989: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2990: v_OTX_XDelete) ;
2985: v_OTX_XDelete,
2986: dbms_sql.native );
2987: EXCEPTION
2988: WHEN OTHERS THEN
2989: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
2990: v_OTX_XDelete) ;
2991: app_exception.raise_exception;
2992: END;
2993:
2992: END;
2993:
2994: xProgress := 'GASNOB-40-1380';
2995: BEGIN
2996: dbms_sql.parse ( v_DTL_XDeleteCursor,
2997: v_DTL_XDelete,
2998: dbms_sql.native );
2999: EXCEPTION
3000: WHEN OTHERS THEN
2994: xProgress := 'GASNOB-40-1380';
2995: BEGIN
2996: dbms_sql.parse ( v_DTL_XDeleteCursor,
2997: v_DTL_XDelete,
2998: dbms_sql.native );
2999: EXCEPTION
3000: WHEN OTHERS THEN
3001: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3002: v_DTL_XDelete) ;
2997: v_DTL_XDelete,
2998: dbms_sql.native );
2999: EXCEPTION
3000: WHEN OTHERS THEN
3001: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3002: v_DTL_XDelete) ;
3003: app_exception.raise_exception;
3004: END;
3005:
3004: END;
3005:
3006: xProgress := 'GASNOB-40-1390';
3007: BEGIN
3008: dbms_sql.parse ( v_DAC_XDeleteCursor,
3009: v_DAC_XDelete,
3010: dbms_sql.native );
3011: EXCEPTION
3012: WHEN OTHERS THEN
3006: xProgress := 'GASNOB-40-1390';
3007: BEGIN
3008: dbms_sql.parse ( v_DAC_XDeleteCursor,
3009: v_DAC_XDelete,
3010: dbms_sql.native );
3011: EXCEPTION
3012: WHEN OTHERS THEN
3013: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3014: v_DAC_XDelete) ;
3009: v_DAC_XDelete,
3010: dbms_sql.native );
3011: EXCEPTION
3012: WHEN OTHERS THEN
3013: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3014: v_DAC_XDelete) ;
3015: app_exception.raise_exception;
3016: END;
3017:
3016: END;
3017:
3018: xProgress := 'GASNOB-40-1400';
3019: BEGIN
3020: dbms_sql.parse ( v_DTX_XDeleteCursor,
3021: v_DTX_XDelete,
3022: dbms_sql.native );
3023: EXCEPTION
3024: WHEN OTHERS THEN
3018: xProgress := 'GASNOB-40-1400';
3019: BEGIN
3020: dbms_sql.parse ( v_DTX_XDeleteCursor,
3021: v_DTX_XDelete,
3022: dbms_sql.native );
3023: EXCEPTION
3024: WHEN OTHERS THEN
3025: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3026: v_DTX_XDelete) ;
3021: v_DTX_XDelete,
3022: dbms_sql.native );
3023: EXCEPTION
3024: WHEN OTHERS THEN
3025: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3026: v_DTX_XDelete) ;
3027: app_exception.raise_exception;
3028: END;
3029:
3028: END;
3029:
3030: xProgress := 'GASNOB-40-1405';
3031: BEGIN
3032: dbms_sql.parse ( v_ALL_XDeleteCursor,
3033: v_ALL_XDelete,
3034: dbms_sql.native );
3035: EXCEPTION
3036: WHEN OTHERS THEN
3030: xProgress := 'GASNOB-40-1405';
3031: BEGIN
3032: dbms_sql.parse ( v_ALL_XDeleteCursor,
3033: v_ALL_XDelete,
3034: dbms_sql.native );
3035: EXCEPTION
3036: WHEN OTHERS THEN
3037: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3038: v_SHP_Delete) ;
3033: v_ALL_XDelete,
3034: dbms_sql.native );
3035: EXCEPTION
3036: WHEN OTHERS THEN
3037: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3038: v_SHP_Delete) ;
3039: app_exception.raise_exception;
3040: END;
3041:
3089: xProgress := 'GASNOB-40-1430';
3090: FOR v_LoopCount IN 1..v_SHP_Count
3091: LOOP
3092: xProgress := 'GASNOB-40-1440';
3093: dbms_sql.define_column ( v_SHP_SelectCursor,
3094: v_LoopCount,
3095: v_SHP_Select,
3096: ece_extract_utils_pub.G_MaxColWidth );
3097: END LOOP;
3100: /* Define the ROWIDs for the DELETE statements. */
3101: /* */
3102:
3103: xProgress := 'GASNOB-40-1450';
3104: dbms_sql.define_column_rowid ( v_SHP_SelectCursor,
3105: v_SHP_Count + 1,
3106: v_SHP_RowID );
3107:
3108: xProgress := 'GASNOB-40-1460';
3105: v_SHP_Count + 1,
3106: v_SHP_RowID );
3107:
3108: xProgress := 'GASNOB-40-1460';
3109: dbms_sql.define_column_rowid ( v_SHP_SelectCursor,
3110: v_SHP_Count + 2,
3111: v_SHP_XRowID );
3112:
3113: /* */
3114: /* Define the internal ID columns. */
3115: /* */
3116:
3117: xProgress := 'GASNOB-40-1480';
3118: dbms_sql.define_column ( v_SHP_SelectCursor,
3119: v_SHP_Count + 3,
3120: v_TransactionRecordID );
3121:
3122: xPRogress := 'GASNOB-40-1490';
3122: xPRogress := 'GASNOB-40-1490';
3123: FOR v_LoopCount IN 1..v_STX_Count
3124: LOOP
3125: xProgress := 'GASNOB-40-1500';
3126: dbms_sql.define_column ( v_STX_SelectCursor,
3127: v_LoopCount,
3128: v_STX_Select,
3129: ece_extract_utils_pub.G_MaxColWidth );
3130: END LOOP;
3133: /* Define the ROWID for the DELETE statements. */
3134: /* */
3135:
3136: xProgress := 'GASNOB-40-1510';
3137: dbms_sql.define_column_rowid ( v_STX_SelectCursor,
3138: v_STX_Count + 1,
3139: v_STX_RowID );
3140:
3141: xProgress := 'GASNOB-40-1520';
3138: v_STX_Count + 1,
3139: v_STX_RowID );
3140:
3141: xProgress := 'GASNOB-40-1520';
3142: dbms_sql.define_column_rowid ( v_STX_SelectCursor,
3143: v_STX_Count + 2,
3144: v_STX_XRowID );
3145:
3146: /* */
3147: /* Define the internal ID columns. */
3148: /* */
3149:
3150: xProgress := 'GASNOB-40-1525';
3151: dbms_sql.define_column ( v_STX_SelectCursor,
3152: v_STX_Count + 3,
3153: v_TransactionRecordID );
3154:
3155: xProgress := 'GASNOB-40-1530';
3155: xProgress := 'GASNOB-40-1530';
3156: FOR v_LoopCount IN 1..v_ORD_Count
3157: LOOP
3158: xProgress := 'GASNOB-40-1540';
3159: dbms_sql.define_column ( v_ORD_SelectCursor,
3160: v_LoopCount,
3161: v_ORD_Select,
3162: ece_extract_utils_pub.G_MaxColWidth );
3163: END LOOP;
3166: /* Define the ROWIDs for the DELETE statements. */
3167: /* */
3168:
3169: xProgress := 'GASNOB-40-1550';
3170: dbms_sql.define_column_rowid ( v_ORD_SelectCursor,
3171: v_ORD_Count + 1,
3172: v_ORD_RowID );
3173:
3174: xProgress := 'GASNOB-40-1560';
3171: v_ORD_Count + 1,
3172: v_ORD_RowID );
3173:
3174: xProgress := 'GASNOB-40-1560';
3175: dbms_sql.define_column_rowid ( v_ORD_SelectCursor,
3176: v_ORD_Count + 2,
3177: v_ORD_XRowID );
3178: /* */
3179: /* Define the internal ID columns. */
3179: /* Define the internal ID columns. */
3180: /* */
3181:
3182: xProgress := 'GASNOB-40-1565';
3183: dbms_sql.define_column ( v_ORD_SelectCursor,
3184: v_ORD_Count + 3,
3185: v_TransactionRecordID );
3186:
3187: xPRogress := 'GASNOB-40-1570';
3187: xPRogress := 'GASNOB-40-1570';
3188: FOR v_LoopCount IN 1..v_OAC_Count
3189: LOOP
3190: xProgress := 'GASNOB-40-1580';
3191: dbms_sql.define_column ( v_OAC_SelectCursor,
3192: v_LoopCount,
3193: v_OAC_Select,
3194: ece_extract_utils_pub.G_MaxColWidth );
3195: END LOOP;
3198: /* Define the ROWIDs for the DELETE statements. */
3199: /* */
3200:
3201: xProgress := 'GASNOB-40-1590';
3202: dbms_sql.define_column_rowid ( v_OAC_SelectCursor,
3203: v_OAC_Count + 1,
3204: v_OAC_RowID );
3205:
3206: xProgress := 'GASNOB-40-1600';
3203: v_OAC_Count + 1,
3204: v_OAC_RowID );
3205:
3206: xProgress := 'GASNOB-40-1600';
3207: dbms_sql.define_column_rowid ( v_OAC_SelectCursor,
3208: v_OAC_Count + 2,
3209: v_OAC_XRowID );
3210:
3211: /* */
3212: /* Define the internal ID columns. */
3213: /* */
3214:
3215: xProgress := 'GASNOB-40-1605';
3216: dbms_sql.define_column ( v_OAC_SelectCursor,
3217: v_OAC_Count + 3,
3218: v_TransactionRecordID );
3219:
3220: xProgress := 'GASNOB-40-1610';
3220: xProgress := 'GASNOB-40-1610';
3221: FOR v_LoopCount IN 1..v_OTX_Count
3222: LOOP
3223: xPRogress := 'GASNOB-40-1620';
3224: dbms_sql.define_column ( v_OTX_SelectCursor,
3225: v_LoopCount,
3226: v_OTX_Select,
3227: ece_extract_utils_pub.G_MaxColWidth );
3228: END LOOP;
3231: /* Define the ROWIDs for the DELETE statements. */
3232: /* */
3233:
3234: xProgress := 'GASNOB-40-1630';
3235: dbms_sql.define_column_rowid ( v_OTX_SelectCursor,
3236: v_OTX_Count + 1,
3237: v_OTX_RowID );
3238:
3239: xProgress := 'GASNOB-40-1640';
3236: v_OTX_Count + 1,
3237: v_OTX_RowID );
3238:
3239: xProgress := 'GASNOB-40-1640';
3240: dbms_sql.define_column_rowid ( v_OTX_SelectCursor,
3241: v_OTX_Count + 2,
3242: v_OTX_XRowID );
3243:
3244: /* */
3245: /* Define the internal ID columns. */
3246: /* */
3247:
3248: xProgress := 'GASNOB-40-1650';
3249: dbms_sql.define_column ( v_OTX_SelectCursor,
3250: v_OTX_Count + 3,
3251: v_TransactionRecordID );
3252:
3253: xProgress := 'GASNOB-40-1660';
3253: xProgress := 'GASNOB-40-1660';
3254: FOR v_LoopCount IN 1..v_DTL_Count
3255: LOOP
3256: xProgress := 'GASNOB-40-1670';
3257: dbms_sql.define_column ( v_DTL_SelectCursor,
3258: v_LoopCount,
3259: v_DTL_Select,
3260: ece_extract_utils_pub.G_MaxColWidth );
3261: END LOOP;
3264: /* Define the ROWIDs for the DELETE statements. */
3265: /* */
3266:
3267: xProgress := 'GASNOB-40-1680';
3268: dbms_sql.define_column_rowid ( v_DTL_SelectCursor,
3269: v_DTL_Count + 1,
3270: v_DTL_RowID );
3271:
3272: xProgress := 'GASNOB-40-1690';
3269: v_DTL_Count + 1,
3270: v_DTL_RowID );
3271:
3272: xProgress := 'GASNOB-40-1690';
3273: dbms_sql.define_column_rowid ( v_DTL_SelectCursor,
3274: v_DTL_Count + 2,
3275: v_DTL_XRowID );
3276:
3277: /* */
3278: /* Define the internal ID columns. */
3279: /* */
3280:
3281: xProgress := 'GASNOB-40-1700';
3282: dbms_sql.define_column ( v_DTL_SelectCursor,
3283: v_DTL_Count + 3,
3284: v_TransactionRecordID );
3285:
3286: xProgress := 'GASNOB-40-1710';
3286: xProgress := 'GASNOB-40-1710';
3287: FOR v_LoopCount IN 1..v_DAC_Count
3288: LOOP
3289: xProgress := 'GASNOB-40-1720';
3290: dbms_sql.define_column ( v_DAC_SelectCursor,
3291: v_LoopCount,
3292: v_DAC_Select,
3293: ece_extract_utils_pub.G_MaxColWidth );
3294: END LOOP;
3297: /* Define the ROWIDs for the DELETE statements. */
3298: /* */
3299:
3300: xProgress := 'GASNOB-40-1730';
3301: dbms_sql.define_column_rowid ( v_DAC_SelectCursor,
3302: v_DAC_Count + 1,
3303: v_DAC_RowID );
3304:
3305: xProgress := 'GASNOB-40-1740';
3302: v_DAC_Count + 1,
3303: v_DAC_RowID );
3304:
3305: xProgress := 'GASNOB-40-1740';
3306: dbms_sql.define_column_rowid ( v_DAC_SelectCursor,
3307: v_DAC_Count + 2,
3308: v_DAC_XRowID );
3309:
3310: /* */
3311: /* Define the internal ID columns. */
3312: /* */
3313:
3314: xProgress := 'GASNO-40-1750';
3315: dbms_sql.define_column ( v_DAC_SelectCursor,
3316: v_DAC_Count + 3,
3317: v_TransactionRecordID );
3318:
3319: xProgress := 'GASNOB-40-1770';
3319: xProgress := 'GASNOB-40-1770';
3320: FOR v_LoopCount IN 1..v_DTX_Count
3321: LOOP
3322: xProgress := 'GASNOB-40-1780';
3323: dbms_sql.define_column ( v_DTX_SelectCursor,
3324: v_LoopCount,
3325: v_DTX_Select,
3326: ece_extract_utils_pub.G_MaxColWidth );
3327: END LOOP;
3330: /* Define the ROWIDs for the DELETE statements. */
3331: /* */
3332:
3333: xProgress := 'GASNOB-40-1790';
3334: dbms_sql.define_column_rowid ( v_DTX_SelectCursor,
3335: v_DTX_Count + 1,
3336: v_DTX_RowID );
3337:
3338: xPRogress := 'GASNOB-40-1800';
3335: v_DTX_Count + 1,
3336: v_DTX_RowID );
3337:
3338: xPRogress := 'GASNOB-40-1800';
3339: dbms_sql.define_column_rowid ( v_DTX_SelectCursor,
3340: v_DTX_Count + 2,
3341: v_DTX_XRowID );
3342:
3343: /* */
3344: /* Define the internal ID columns. */
3345: /* */
3346:
3347: xProgress := 'GASNOB-40-1805';
3348: dbms_sql.define_column ( v_DTX_SelectCursor,
3349: v_DTX_Count + 3,
3350: v_TransactionRecordID );
3351:
3352: xProgress := 'GASNOB-40-1810';
3352: xProgress := 'GASNOB-40-1810';
3353: FOR v_LoopCount IN 1..v_ALL_Count
3354: LOOP
3355: xProgress := 'GASNOB-40-1811';
3356: dbms_sql.define_column ( v_ALL_SelectCursor,
3357: v_LoopCount,
3358: v_ALL_Select,
3359: ece_extract_utils_pub.G_MaxColWidth );
3360: END LOOP;
3363: /* Define the ROWIDs for the DELETE statements. */
3364: /* */
3365:
3366: xProgress := 'GASNOB-40-1812';
3367: dbms_sql.define_column_rowid ( v_ALL_SelectCursor,
3368: v_ALL_Count + 1,
3369: v_ALL_RowID );
3370:
3371: xProgress := 'GASNOB-40-1813';
3368: v_ALL_Count + 1,
3369: v_ALL_RowID );
3370:
3371: xProgress := 'GASNOB-40-1813';
3372: dbms_sql.define_column_rowid ( v_ALL_SelectCursor,
3373: v_ALL_Count + 2,
3374: v_ALL_XRowID );
3375:
3376: /* */
3377: /* Define the internal ID columns. */
3378: /* */
3379:
3380: xProgress := 'GASNOB-40-1814';
3381: dbms_sql.define_column ( v_ALL_SelectCursor,
3382: v_ALL_Count + 3,
3383: v_TransactionRecordID );
3384:
3385: /* */
3386: /* Bind the variable in the SHP level SELECT clause. */
3387: /* */
3388:
3389: xProgress := 'GASNOB-40-1810';
3390: dbms_sql.bind_variable ( v_SHP_SelectCursor,
3391: 'Run_ID',
3392: p_RunID );
3393:
3394: /* */
3395: /* Execute the Shipment level SELECT statement. */
3396: /* */
3397:
3398: xProgress := 'GASNOB-40-1820';
3399: v_Dummy := dbms_sql.execute ( v_SHP_SelectCursor );
3400:
3401: /* */
3402: /* Begin the Shipment level loop. */
3403: /* */
3402: /* Begin the Shipment level loop. */
3403: /* */
3404:
3405: xProgress := 'GASNOB-40-1830';
3406: WHILE dbms_sql.fetch_rows ( v_SHP_SelectCursor ) > 0
3407: LOOP
3408:
3409: /* */
3410: /* Store the returned values in the PL/SQL table. */
3413: xProgress := 'GASNOB-40-1840';
3414: FOR v_LoopCount IN 1..v_SHP_Count
3415: LOOP
3416: xProgress := 'GASNOB-40-1850';
3417: dbms_sql.column_value ( v_SHP_SelectCursor,
3418: v_LoopCount,
3419: v_SHP_Table(v_LoopCount).value );
3420: END LOOP;
3421:
3423: /* Store the ROWIDs. */
3424: /* */
3425:
3426: xProgress := 'GASNOB-40-1860';
3427: dbms_sql.column_value ( v_SHP_SelectCursor,
3428: v_SHP_Count + 1,
3429: v_SHP_RowID );
3430:
3431: xProgress := 'GASNOB-40-1870';
3428: v_SHP_Count + 1,
3429: v_SHP_RowID );
3430:
3431: xProgress := 'GASNOB-40-1870';
3432: dbms_sql.column_value ( v_SHP_SelectCursor,
3433: v_SHP_Count + 2,
3434: v_SHP_XRowID );
3435:
3436: /* */
3487: /* in the SELECT clauses of the lower levels to come */
3488: /* */
3489:
3490: xProgress := 'GASNOB-40-1940';
3491: dbms_sql.column_value ( v_SHP_SelectCursor,
3492: v_SHP_Count + 3,
3493: v_TransactionRecordID );
3494:
3495:
3504: xProgress := 'GASNOB-40-2025';
3505: v_BOL_Id := TO_NUMBER ( v_SHP_Table(v_BOL_Id_Position).value );
3506:
3507: xProgress := 'GASNOB-40-2028';
3508: dbms_sql.bind_variable ( v_STX_SelectCursor,
3509: 'RUN_ID',
3510: v_RunID );
3511:
3512: dbms_sql.bind_variable ( v_STX_SelectCursor,
3508: dbms_sql.bind_variable ( v_STX_SelectCursor,
3509: 'RUN_ID',
3510: v_RunID );
3511:
3512: dbms_sql.bind_variable ( v_STX_SelectCursor,
3513: 'BOL_ID',
3514: v_BOL_ID );
3515:
3516: xProgress := 'GASNOB-40-2030';
3513: 'BOL_ID',
3514: v_BOL_ID );
3515:
3516: xProgress := 'GASNOB-40-2030';
3517: v_Dummy := dbms_sql.execute ( v_STX_SelectCursor );
3518:
3519: /* */
3520: /* Fetch the (single) row, and store the returned values in the */
3521: /* PL/SQL table. */
3521: /* PL/SQL table. */
3522: /* */
3523:
3524: xProgress := 'GASNOB-40-2050';
3525: WHILE dbms_sql.fetch_rows(v_STX_SelectCursor) > 0
3526: LOOP
3527: FOR v_LoopCount IN 1..v_STX_Count
3528: LOOP
3529: xProgress := 'GASNOB-40-2060';
3526: LOOP
3527: FOR v_LoopCount IN 1..v_STX_Count
3528: LOOP
3529: xProgress := 'GASNOB-40-2060';
3530: dbms_sql.column_value ( v_STX_SelectCursor,
3531: v_LoopCount,
3532: v_STX_Table(v_LoopCount).value );
3533: END LOOP;
3534:
3536: /* Store the ROWIDs. */
3537: /* */
3538:
3539: xProgress := 'GASNOB-40-2070';
3540: dbms_sql.column_value ( v_STX_SelectCursor,
3541: v_STX_Count + 1,
3542: v_STX_RowID );
3543:
3544: xProgress := 'GASNOB-40-2080';
3541: v_STX_Count + 1,
3542: v_STX_RowID );
3543:
3544: xProgress := 'GASNOB-40-2080';
3545: dbms_sql.column_value ( v_STX_SelectCursor,
3546: v_STX_Count + 2,
3547: v_STX_XRowID );
3548:
3549: xProgress := 'GASNOB-40-2082';
3573: p_RunID,
3574: v_FileCommonKey );
3575:
3576: xProgress := 'GASNOB-40-2091';
3577: dbms_sql.bind_variable ( v_STX_DeleteCursor,
3578: 'Row_ID',
3579: v_STX_RowID );
3580:
3581: xProgress := 'GASNOB-40-2092';
3578: 'Row_ID',
3579: v_STX_RowID );
3580:
3581: xProgress := 'GASNOB-40-2092';
3582: dbms_sql.bind_variable ( v_STX_XDeleteCursor,
3583: 'Row_ID',
3584: v_STX_XRowID );
3585:
3586: xProgress := 'GASNOB-40-2093';
3583: 'Row_ID',
3584: v_STX_XRowID );
3585:
3586: xProgress := 'GASNOB-40-2093';
3587: v_Dummy := dbms_sql.execute ( v_STX_DeleteCursor );
3588:
3589: xProgress := 'GASNOB-40-2094';
3590: v_Dummy := dbms_sql.execute ( v_STX_XDeleteCursor );
3591:
3586: xProgress := 'GASNOB-40-2093';
3587: v_Dummy := dbms_sql.execute ( v_STX_DeleteCursor );
3588:
3589: xProgress := 'GASNOB-40-2094';
3590: v_Dummy := dbms_sql.execute ( v_STX_XDeleteCursor );
3591:
3592: END LOOP; /* while stx */
3593:
3594: /* */
3594: /* */
3595: /* Execute the Order level SELECT statement. */
3596: /* */
3597: xProgress := 'GASNOB-40-2095';
3598: dbms_sql.bind_variable ( v_ORD_SelectCursor,
3599: 'RUN_ID',
3600: v_RunID );
3601:
3602: dbms_sql.bind_variable ( v_ORD_SelectCursor,
3598: dbms_sql.bind_variable ( v_ORD_SelectCursor,
3599: 'RUN_ID',
3600: v_RunID );
3601:
3602: dbms_sql.bind_variable ( v_ORD_SelectCursor,
3603: 'BOL_ID',
3604: v_BOL_ID );
3605:
3606: xProgress := 'GASNOB-40-2100';
3603: 'BOL_ID',
3604: v_BOL_ID );
3605:
3606: xProgress := 'GASNOB-40-2100';
3607: v_Dummy := dbms_sql.execute ( v_ORD_SelectCursor );
3608:
3609: /* */
3610: /* Begin the Order level loop. */
3611: /* */
3609: /* */
3610: /* Begin the Order level loop. */
3611: /* */
3612: xProgress := 'GASNOB-40-2110';
3613: WHILE dbms_sql.fetch_rows ( v_ORD_SelectCursor ) > 0
3614: LOOP
3615: xProgress := 'GASNOB-40-2120';
3616: FOR v_LoopCount IN 1..v_ORD_Count
3617: LOOP
3615: xProgress := 'GASNOB-40-2120';
3616: FOR v_LoopCount IN 1..v_ORD_Count
3617: LOOP
3618: xPRogress := 'GASNOB-40-2130';
3619: dbms_sql.column_value ( v_ORD_SelectCursor,
3620: v_LoopCount,
3621: v_ORD_Table(v_LoopCount).value );
3622: END LOOP;
3623:
3625: /* Store the ROWIDs. */
3626: /* */
3627:
3628: xProgress := 'GASNOB-40-2140';
3629: dbms_sql.column_value ( v_ORD_SelectCursor,
3630: v_ORD_Count + 1,
3631: v_ORD_RowID );
3632:
3633: xProgress := 'GASNOB-40-2150';
3630: v_ORD_Count + 1,
3631: v_ORD_RowID );
3632:
3633: xProgress := 'GASNOB-40-2150';
3634: dbms_sql.column_value ( v_ORD_SelectCursor,
3635: v_ORD_Count + 2,
3636: v_ORD_XRowID );
3637:
3638: xProgress := 'GASNOB-40-2151';
3667: /* Bind the variables (ROWIDs) in the DELETE statements. */
3668: /* */
3669:
3670: xProgress := 'GASNOB-40-2170';
3671: dbms_sql.bind_variable ( v_ORD_DeleteCursor,
3672: 'Row_ID',
3673: v_ORD_RowID );
3674:
3675: xProgress := 'GASNOB-40-2180';
3672: 'Row_ID',
3673: v_ORD_RowID );
3674:
3675: xProgress := 'GASNOB-40-2180';
3676: dbms_sql.bind_variable ( v_ORD_XDeleteCursor,
3677: 'Row_ID',
3678: v_ORD_XRowID );
3679:
3680: /* */
3681: /* Delete the rows from the interface table. */
3682: /* */
3683:
3684: xProgress := 'GASNOB-40-2190';
3685: v_Dummy := dbms_sql.execute ( v_ORD_DeleteCursor );
3686:
3687: xProgress := 'GASNOB-40-2200';
3688: v_Dummy := dbms_sql.execute ( v_ORD_XDeleteCursor );
3689:
3684: xProgress := 'GASNOB-40-2190';
3685: v_Dummy := dbms_sql.execute ( v_ORD_DeleteCursor );
3686:
3687: xProgress := 'GASNOB-40-2200';
3688: v_Dummy := dbms_sql.execute ( v_ORD_XDeleteCursor );
3689:
3690: /* */
3691: /* Execute the Order DAC SELECT statement. */
3692: /* */
3698: xProgress := 'GASNOB-40-2206';
3699: v_Order_Id := TO_NUMBER ( v_ORD_Table(v_Order_Id_Position).value );
3700:
3701: xProgress := 'GASNOB-40-2207';
3702: dbms_sql.bind_variable ( v_OAC_SelectCursor,
3703: 'RUN_ID',
3704: v_RunID );
3705:
3706: dbms_sql.bind_variable ( v_OAC_SelectCursor,
3702: dbms_sql.bind_variable ( v_OAC_SelectCursor,
3703: 'RUN_ID',
3704: v_RunID );
3705:
3706: dbms_sql.bind_variable ( v_OAC_SelectCursor,
3707: 'Order_ID',
3708: v_Order_ID );
3709:
3710: xProgress := 'GASNOB-40-2210';
3707: 'Order_ID',
3708: v_Order_ID );
3709:
3710: xProgress := 'GASNOB-40-2210';
3711: v_Dummy := dbms_sql.execute ( v_OAC_SelectCursor );
3712:
3713: /* */
3714: /* Begin the Order DAC loop. */
3715: /* */
3714: /* Begin the Order DAC loop. */
3715: /* */
3716:
3717: xProgress := 'GASNOB-40-2220';
3718: WHILE dbms_sql.fetch_rows ( v_OAC_SelectCursor ) > 0
3719: LOOP
3720: xProgress := 'GASNOB-40-2230';
3721: FOR v_LoopCount IN 1..v_OAC_Count
3722: LOOP
3720: xProgress := 'GASNOB-40-2230';
3721: FOR v_LoopCount IN 1..v_OAC_Count
3722: LOOP
3723: xProgress := 'GASNOB-40-2240';
3724: dbms_sql.column_value ( v_OAC_SelectCursor,
3725: v_LoopCount,
3726: v_OAC_Table(v_LoopCount).value );
3727: END LOOP;
3728:
3730: /* Store the ROWIDs. */
3731: /* */
3732:
3733: xProgress := 'GASNOB-40-2250';
3734: dbms_sql.column_value ( v_OAC_SelectCursor,
3735: v_OAC_Count + 1,
3736: v_OAC_RowID );
3737:
3738: xProgress := 'GASNOB-40-2260';
3735: v_OAC_Count + 1,
3736: v_OAC_RowID );
3737:
3738: xProgress := 'GASNOB-40-2260';
3739: dbms_sql.column_value ( v_OAC_SelectCursor,
3740: v_OAC_Count + 2,
3741: v_OAC_XRowID );
3742:
3743: xProgress := 'GASNOB-40-2270';
3769: p_RunID,
3770: v_FileCommonKey );
3771:
3772: xProgress := 'GASNOB-40-2310';
3773: dbms_sql.bind_variable ( v_OAC_DeleteCursor,
3774: 'Row_ID',
3775: v_OAC_RowID );
3776:
3777: xProgress := 'GASNOB-40-2320';
3774: 'Row_ID',
3775: v_OAC_RowID );
3776:
3777: xProgress := 'GASNOB-40-2320';
3778: dbms_sql.bind_variable ( v_OAC_XDeleteCursor,
3779: 'Row_ID',
3780: v_OAC_XRowID );
3781:
3782: xProgress := 'GASNOB-40-2330';
3779: 'Row_ID',
3780: v_OAC_XRowID );
3781:
3782: xProgress := 'GASNOB-40-2330';
3783: v_Dummy := dbms_sql.execute ( v_OAC_DeleteCursor );
3784:
3785: xProgress := 'GASNOB-40-2340';
3786: v_Dummy := dbms_sql.execute ( v_OAC_XDeleteCursor );
3787: END LOOP; /* while oac */
3782: xProgress := 'GASNOB-40-2330';
3783: v_Dummy := dbms_sql.execute ( v_OAC_DeleteCursor );
3784:
3785: xProgress := 'GASNOB-40-2340';
3786: v_Dummy := dbms_sql.execute ( v_OAC_XDeleteCursor );
3787: END LOOP; /* while oac */
3788:
3789: /* */
3790: /* Execute the Order Text SELECT statement. */
3789: /* */
3790: /* Execute the Order Text SELECT statement. */
3791: /* */
3792: xProgress := 'GASNOB-40-2350';
3793: dbms_sql.bind_variable ( v_OTX_SelectCursor,
3794: 'RUN_ID',
3795: v_RunID );
3796:
3797: dbms_sql.bind_variable ( v_OTX_SelectCursor,
3793: dbms_sql.bind_variable ( v_OTX_SelectCursor,
3794: 'RUN_ID',
3795: v_RunID );
3796:
3797: dbms_sql.bind_variable ( v_OTX_SelectCursor,
3798: 'Order_ID',
3799: v_Order_ID );
3800:
3801: xProgress := 'GASNOB-40-2360';
3798: 'Order_ID',
3799: v_Order_ID );
3800:
3801: xProgress := 'GASNOB-40-2360';
3802: v_Dummy := dbms_sql.execute ( v_OTX_SelectCursor );
3803:
3804: /* */
3805: /* Begin the Order Text loop. */
3806: /* */
3805: /* Begin the Order Text loop. */
3806: /* */
3807:
3808: xProgress := 'GASNOB-40-2370';
3809: WHILE dbms_sql.fetch_rows ( v_OTX_SelectCursor ) > 0
3810: LOOP
3811: xProgress := 'GASNOB-40-2380';
3812: FOR v_LoopCount IN 1..v_OTX_Count
3813: LOOP
3811: xProgress := 'GASNOB-40-2380';
3812: FOR v_LoopCount IN 1..v_OTX_Count
3813: LOOP
3814: xProgress := 'GASNOB-40-2390';
3815: dbms_sql.column_value ( v_OTX_SelectCursor,
3816: v_LoopCount,
3817: v_OTX_Table(v_LoopCount).value );
3818: END LOOP;
3819:
3821: /* Store the ROWIDs. */
3822: /* */
3823:
3824: xProgress := 'GASNOB-40-2400';
3825: dbms_sql.column_value ( v_OTX_SelectCursor,
3826: v_OTX_Count + 1,
3827: v_OTX_RowID );
3828:
3829: xProgress := 'GASNOB-40-2410';
3826: v_OTX_Count + 1,
3827: v_OTX_RowID );
3828:
3829: xProgress := 'GASNOB-40-2410';
3830: dbms_sql.column_value ( v_OTX_SelectCursor,
3831: v_OTX_Count + 2,
3832: v_OTX_XRowID );
3833:
3834: xProgress := 'GASNOB-40-2420';
3859: p_RunID,
3860: v_FileCommonKey );
3861:
3862: xProgress := 'GASNOB-40-2460';
3863: dbms_sql.bind_variable ( v_OTX_DeleteCursor,
3864: 'Row_ID',
3865: v_OTX_RowID );
3866:
3867: xProgress := 'GASNOB-40-2470';
3864: 'Row_ID',
3865: v_OTX_RowID );
3866:
3867: xProgress := 'GASNOB-40-2470';
3868: dbms_sql.bind_variable ( v_OTX_XDeleteCursor,
3869: 'Row_ID',
3870: v_OTX_XRowID );
3871:
3872: xProgress := 'GASNOB-40-2480';
3869: 'Row_ID',
3870: v_OTX_XRowID );
3871:
3872: xProgress := 'GASNOB-40-2480';
3873: v_Dummy := dbms_sql.execute ( v_OTX_DeleteCursor );
3874:
3875: xProgress := 'GASNOB-40-2490';
3876: v_Dummy := dbms_sql.execute ( v_OTX_XDeleteCursor );
3877: END LOOP; /* while otx */
3872: xProgress := 'GASNOB-40-2480';
3873: v_Dummy := dbms_sql.execute ( v_OTX_DeleteCursor );
3874:
3875: xProgress := 'GASNOB-40-2490';
3876: v_Dummy := dbms_sql.execute ( v_OTX_XDeleteCursor );
3877: END LOOP; /* while otx */
3878:
3879: /* */
3880: /* Execute the Detail level SELECT statement. */
3879: /* */
3880: /* Execute the Detail level SELECT statement. */
3881: /* */
3882: xProgress := 'GASNOB-40-2500';
3883: dbms_sql.bind_variable ( v_DTL_SelectCursor,
3884: 'RUN_ID',
3885: v_RunID );
3886:
3887: dbms_sql.bind_variable ( v_DTL_SelectCursor,
3883: dbms_sql.bind_variable ( v_DTL_SelectCursor,
3884: 'RUN_ID',
3885: v_RunID );
3886:
3887: dbms_sql.bind_variable ( v_DTL_SelectCursor,
3888: 'BOL_ID',
3889: v_BOL_ID );
3890:
3891: dbms_sql.bind_variable ( v_DTL_SelectCursor,
3887: dbms_sql.bind_variable ( v_DTL_SelectCursor,
3888: 'BOL_ID',
3889: v_BOL_ID );
3890:
3891: dbms_sql.bind_variable ( v_DTL_SelectCursor,
3892: 'Order_ID',
3893: v_Order_ID );
3894:
3895: xProgress := 'GASNOB-40-2510';
3892: 'Order_ID',
3893: v_Order_ID );
3894:
3895: xProgress := 'GASNOB-40-2510';
3896: v_Dummy := dbms_sql.execute ( v_DTL_SelectCursor );
3897:
3898: /* */
3899: /* Begin the Detail level loop. */
3900: /* */
3898: /* */
3899: /* Begin the Detail level loop. */
3900: /* */
3901: xProgress := 'GASNOB-40-2520';
3902: WHILE dbms_sql.fetch_rows ( v_DTL_SelectCursor ) > 0
3903: LOOP
3904: xProgress := 'GASNOB-40-2530';
3905: FOR v_LoopCount IN 1..v_DTL_Count
3906: LOOP
3904: xProgress := 'GASNOB-40-2530';
3905: FOR v_LoopCount IN 1..v_DTL_Count
3906: LOOP
3907: xProgress := 'GASNOB-40-2540';
3908: dbms_sql.column_value ( v_DTL_SelectCursor,
3909: v_LoopCount,
3910: v_DTL_Table(v_LoopCount).value);
3911: END LOOP;
3912:
3914: /* Store the ROWIDs. */
3915: /* */
3916:
3917: xProgress := 'GASNOB-40-2550';
3918: dbms_sql.column_value ( v_DTL_SelectCursor,
3919: v_DTL_Count + 1,
3920: v_DTL_RowID );
3921:
3922: xProgress := 'GASNOB-40-2560';
3919: v_DTL_Count + 1,
3920: v_DTL_RowID );
3921:
3922: xProgress := 'GASNOB-40-2560';
3923: dbms_sql.column_value ( v_DTL_SelectCursor,
3924: v_DTL_Count + 2,
3925: v_DTL_XRowID );
3926:
3927: /* */
3958: p_RunID,
3959: v_FileCommonKey );
3960:
3961: xProgress := 'GASNOB-40-2610';
3962: dbms_sql.bind_variable ( v_DTL_DeleteCursor,
3963: 'Row_ID',
3964: v_DTL_RowID );
3965:
3966: xProgress := 'GASNOB-40-2620';
3963: 'Row_ID',
3964: v_DTL_RowID );
3965:
3966: xProgress := 'GASNOB-40-2620';
3967: dbms_sql.bind_variable ( v_DTL_XDeleteCursor,
3968: 'Row_ID',
3969: v_DTL_XRowID );
3970:
3971: /* */
3972: /* Delete the rows from the interface table. */
3973: /* */
3974:
3975: xProgress := 'GASNOB-40-2630';
3976: v_Dummy := dbms_sql.execute ( v_DTL_DeleteCursor );
3977:
3978: xProgress := 'GASNOB-40-2640';
3979: v_Dummy := dbms_sql.execute ( v_DTL_XDeleteCursor );
3980:
3975: xProgress := 'GASNOB-40-2630';
3976: v_Dummy := dbms_sql.execute ( v_DTL_DeleteCursor );
3977:
3978: xProgress := 'GASNOB-40-2640';
3979: v_Dummy := dbms_sql.execute ( v_DTL_XDeleteCursor );
3980:
3981: /* */
3982: /* Execute the Detail DAC SELECT statement. */
3983: /* */
3990: v_Line_Id := TO_NUMBER ( v_DTL_Table(v_Line_Id_Position).value );
3991: ec_debug.pl ( 3, 'v_Line_Id: ', v_Line_Id );
3992:
3993: xProgress := 'GASNOB-40-2670';
3994: dbms_sql.bind_variable ( v_DAC_SelectCursor,
3995: 'RUN_ID',
3996: v_RunID );
3997:
3998: dbms_sql.bind_variable ( v_DAC_SelectCursor,
3994: dbms_sql.bind_variable ( v_DAC_SelectCursor,
3995: 'RUN_ID',
3996: v_RunID );
3997:
3998: dbms_sql.bind_variable ( v_DAC_SelectCursor,
3999: 'Line_ID',
4000: v_Line_ID );
4001:
4002: xProgress := 'GASNOB-40-2680';
3999: 'Line_ID',
4000: v_Line_ID );
4001:
4002: xProgress := 'GASNOB-40-2680';
4003: v_Dummy := dbms_sql.execute ( v_DAC_SelectCursor );
4004:
4005: /* */
4006: /* Begin the DETAIL DAC loop. */
4007: /* */
4006: /* Begin the DETAIL DAC loop. */
4007: /* */
4008:
4009: xProgress := 'GASNOB-40-2690';
4010: WHILE dbms_sql.fetch_rows ( v_DAC_SelectCursor ) > 0
4011: LOOP
4012: xProgress := 'GASNOB-40-2700';
4013: FOR v_LoopCount IN 1..v_DAC_Count
4014: LOOP
4012: xProgress := 'GASNOB-40-2700';
4013: FOR v_LoopCount IN 1..v_DAC_Count
4014: LOOP
4015: xProgress := 'GASNOB-40-2710';
4016: dbms_sql.column_value ( v_DAC_SelectCursor,
4017: v_LoopCount,
4018: v_DAC_Table(v_LoopCount).value );
4019: END LOOP;
4020:
4022: /* Store the ROWIDs. */
4023: /* */
4024:
4025: xProgress := 'GASNOB-40-2720';
4026: dbms_sql.column_value ( v_DAC_SelectCursor,
4027: v_DAC_Count + 1,
4028: v_DAC_RowID );
4029:
4030: xProgress := 'GASNOB-40-2730';
4027: v_DAC_Count + 1,
4028: v_DAC_RowID );
4029:
4030: xProgress := 'GASNOB-40-2730';
4031: dbms_sql.column_value ( v_DAC_SelectCursor,
4032: v_DAC_Count + 2,
4033: v_DAC_XRowID );
4034:
4035:
4053: p_RunID,
4054: v_FileCommonKey );
4055:
4056: xProgress := 'GASNOB-40-2780';
4057: dbms_sql.bind_variable ( v_DAC_DeleteCursor,
4058: 'Row_ID',
4059: v_DAC_RowID );
4060:
4061: xProgress := 'GASNOB-40-2790';
4058: 'Row_ID',
4059: v_DAC_RowID );
4060:
4061: xProgress := 'GASNOB-40-2790';
4062: dbms_sql.bind_variable ( v_DAC_XDeleteCursor,
4063: 'Row_ID',
4064: v_DAC_XRowID );
4065:
4066: xProgress := 'GASNOB-40-2800';
4063: 'Row_ID',
4064: v_DAC_XRowID );
4065:
4066: xProgress := 'GASNOB-40-2800';
4067: v_Dummy := dbms_sql.execute ( v_DAC_DeleteCursor );
4068:
4069: xProgress := 'GASNOB-40-2810';
4070: v_Dummy := dbms_sql.execute ( v_DAC_XDeleteCursor );
4071: END LOOP; /* while Dac */
4066: xProgress := 'GASNOB-40-2800';
4067: v_Dummy := dbms_sql.execute ( v_DAC_DeleteCursor );
4068:
4069: xProgress := 'GASNOB-40-2810';
4070: v_Dummy := dbms_sql.execute ( v_DAC_XDeleteCursor );
4071: END LOOP; /* while Dac */
4072:
4073: xProgress := 'GASNOB-40-2840';
4074: dbms_sql.bind_variable ( v_DTX_SelectCursor,
4070: v_Dummy := dbms_sql.execute ( v_DAC_XDeleteCursor );
4071: END LOOP; /* while Dac */
4072:
4073: xProgress := 'GASNOB-40-2840';
4074: dbms_sql.bind_variable ( v_DTX_SelectCursor,
4075: 'RUN_ID',
4076: v_RunID );
4077:
4078: dbms_sql.bind_variable ( v_DTX_SelectCursor,
4074: dbms_sql.bind_variable ( v_DTX_SelectCursor,
4075: 'RUN_ID',
4076: v_RunID );
4077:
4078: dbms_sql.bind_variable ( v_DTX_SelectCursor,
4079: 'Line_ID',
4080: v_Line_ID );
4081:
4082: xProgress := 'GASNOB-40-2850';
4079: 'Line_ID',
4080: v_Line_ID );
4081:
4082: xProgress := 'GASNOB-40-2850';
4083: v_Dummy := dbms_sql.execute ( v_DTX_SelectCursor );
4084:
4085: /* */
4086: /* Begin the DETAIL TEXT loop. */
4087: /* */
4086: /* Begin the DETAIL TEXT loop. */
4087: /* */
4088:
4089: xProgress := 'GASNOB-40-2860';
4090: WHILE dbms_sql.fetch_rows ( v_DTX_SelectCursor ) > 0
4091: LOOP
4092: xProgress := 'GASNOB-40-2870';
4093: FOR v_LoopCount IN 1..v_DTX_Count
4094: LOOP
4092: xProgress := 'GASNOB-40-2870';
4093: FOR v_LoopCount IN 1..v_DTX_Count
4094: LOOP
4095: xProgress := 'GASNOB-40-2880';
4096: dbms_sql.column_value ( v_DTX_SelectCursor,
4097: v_LoopCount,
4098: v_DTX_Table(v_LoopCount).value );
4099: END LOOP;
4100:
4102: /* Store the ROWIDs. */
4103: /* */
4104:
4105: xProgress := 'GASNOB-40-2890';
4106: dbms_sql.column_value ( v_DTX_SelectCursor,
4107: v_DTX_Count + 1,
4108: v_DTX_RowID );
4109:
4110: xProgress := 'GASNOB-40-2900';
4107: v_DTX_Count + 1,
4108: v_DTX_RowID );
4109:
4110: xProgress := 'GASNOB-40-2900';
4111: dbms_sql.column_value ( v_DTX_SelectCursor,
4112: v_DTX_Count + 2,
4113: v_DTX_XRowID );
4114:
4115:
4133: p_RunID,
4134: v_FileCommonKey );
4135:
4136: xProgress := 'GASNOB-40-2930';
4137: dbms_sql.bind_variable ( v_DTX_DeleteCursor,
4138: 'Row_ID',
4139: v_DTX_RowID );
4140:
4141: xProgress := 'GASNOB-40-2940';
4138: 'Row_ID',
4139: v_DTX_RowID );
4140:
4141: xProgress := 'GASNOB-40-2940';
4142: dbms_sql.bind_variable ( v_DTX_XDeleteCursor,
4143: 'Row_ID',
4144: v_DTX_XRowID );
4145:
4146: xProgress := 'GASNOB-40-2950';
4143: 'Row_ID',
4144: v_DTX_XRowID );
4145:
4146: xProgress := 'GASNOB-40-2950';
4147: v_Dummy := dbms_sql.execute ( v_DTX_DeleteCursor );
4148:
4149: xProgress := 'GASNOB-40-2960';
4150: v_Dummy := dbms_sql.execute ( v_DTX_XDeleteCursor );
4151: END LOOP; /* while dtx */
4146: xProgress := 'GASNOB-40-2950';
4147: v_Dummy := dbms_sql.execute ( v_DTX_DeleteCursor );
4148:
4149: xProgress := 'GASNOB-40-2960';
4150: v_Dummy := dbms_sql.execute ( v_DTX_XDeleteCursor );
4151: END LOOP; /* while dtx */
4152:
4153: xProgress := 'GASNOB-40-2970';
4154: dbms_sql.bind_variable ( v_ALL_SelectCursor,
4150: v_Dummy := dbms_sql.execute ( v_DTX_XDeleteCursor );
4151: END LOOP; /* while dtx */
4152:
4153: xProgress := 'GASNOB-40-2970';
4154: dbms_sql.bind_variable ( v_ALL_SelectCursor,
4155: 'RUN_ID',
4156: v_RunID );
4157:
4158: dbms_sql.bind_variable ( v_ALL_SelectCursor,
4154: dbms_sql.bind_variable ( v_ALL_SelectCursor,
4155: 'RUN_ID',
4156: v_RunID );
4157:
4158: dbms_sql.bind_variable ( v_ALL_SelectCursor,
4159: 'Line_ID',
4160: v_Line_ID );
4161:
4162: xProgress := 'GASNOB-40-2980';
4159: 'Line_ID',
4160: v_Line_ID );
4161:
4162: xProgress := 'GASNOB-40-2980';
4163: v_Dummy := dbms_sql.execute ( v_ALL_SelectCursor );
4164:
4165: /* */
4166: /* Begin the DETAIL ALOCATIONS loop */
4167: /* */
4166: /* Begin the DETAIL ALOCATIONS loop */
4167: /* */
4168:
4169: xProgress := 'GASNOB-40-2990';
4170: WHILE dbms_sql.fetch_rows ( v_ALL_SelectCursor ) > 0
4171: LOOP
4172: xProgress := 'GASNOB-40-2993';
4173: FOR v_LoopCount IN 1..v_ALL_Count
4174: LOOP
4172: xProgress := 'GASNOB-40-2993';
4173: FOR v_LoopCount IN 1..v_ALL_Count
4174: LOOP
4175: xProgress := 'GASNOB-40-2995';
4176: dbms_sql.column_value ( v_ALL_SelectCursor,
4177: v_LoopCount,
4178: v_ALL_Table(v_LoopCount).value );
4179: END LOOP;
4180:
4182: /* Store the ROWIDs. */
4183: /* */
4184:
4185: xProgress := 'GASNOB-40-3000';
4186: dbms_sql.column_value ( v_ALL_SelectCursor,
4187: v_ALL_Count + 1,
4188: v_ALL_RowID );
4189:
4190: xProgress := 'GASNOB-40-3010';
4187: v_ALL_Count + 1,
4188: v_ALL_RowID );
4189:
4190: xProgress := 'GASNOB-40-3010';
4191: dbms_sql.column_value ( v_ALL_SelectCursor,
4192: v_ALL_Count + 2,
4193: v_ALL_XRowID );
4194:
4195:
4213: p_RunID,
4214: v_FileCommonKey );
4215:
4216: xProgress := 'GASNOB-40-3040';
4217: dbms_sql.bind_variable ( v_ALL_DeleteCursor,
4218: 'Row_ID',
4219: v_ALL_RowID );
4220:
4221: xProgress := 'GASNOB-40-3050';
4218: 'Row_ID',
4219: v_ALL_RowID );
4220:
4221: xProgress := 'GASNOB-40-3050';
4222: dbms_sql.bind_variable ( v_ALL_XDeleteCursor,
4223: 'Row_ID',
4224: v_ALL_XRowID );
4225:
4226: xProgress := 'GASNOB-40-3060';
4223: 'Row_ID',
4224: v_ALL_XRowID );
4225:
4226: xProgress := 'GASNOB-40-3060';
4227: v_Dummy := dbms_sql.execute ( v_ALL_DeleteCursor );
4228:
4229: xProgress := 'GASNOB-40-3070';
4230: v_Dummy := dbms_sql.execute ( v_ALL_XDeleteCursor );
4231: END LOOP; /* while all */
4226: xProgress := 'GASNOB-40-3060';
4227: v_Dummy := dbms_sql.execute ( v_ALL_DeleteCursor );
4228:
4229: xProgress := 'GASNOB-40-3070';
4230: v_Dummy := dbms_sql.execute ( v_ALL_XDeleteCursor );
4231: END LOOP; /* while all */
4232: END LOOP; /* while dtl */
4233: END LOOP; /* while ord */
4234: xProgress := 'GASNOB-40-3140';
4231: END LOOP; /* while all */
4232: END LOOP; /* while dtl */
4233: END LOOP; /* while ord */
4234: xProgress := 'GASNOB-40-3140';
4235: dbms_sql.bind_variable ( v_SHP_DeleteCursor,
4236: 'Row_ID',
4237: v_SHP_RowID );
4238:
4239: xProgress := 'GASNOB-40-3150';
4236: 'Row_ID',
4237: v_SHP_RowID );
4238:
4239: xProgress := 'GASNOB-40-3150';
4240: dbms_sql.bind_variable ( v_SHP_XDeleteCursor,
4241: 'Row_ID',
4242: v_SHP_XRowID );
4243:
4244: xProgress := 'GASNOB-40-3160';
4241: 'Row_ID',
4242: v_SHP_XRowID );
4243:
4244: xProgress := 'GASNOB-40-3160';
4245: v_Dummy := dbms_sql.execute ( v_SHP_DeleteCursor );
4246:
4247: xProgress := 'GASNOB-40-3160';
4248: v_Dummy := dbms_sql.execute ( v_SHP_XDeleteCursor );
4249: END LOOP; /* while shp */
4244: xProgress := 'GASNOB-40-3160';
4245: v_Dummy := dbms_sql.execute ( v_SHP_DeleteCursor );
4246:
4247: xProgress := 'GASNOB-40-3160';
4248: v_Dummy := dbms_sql.execute ( v_SHP_XDeleteCursor );
4249: END LOOP; /* while shp */
4250:
4251: /* */
4252: /* Commit the interface table DELETEs. */
4259: /* Close all open cursors. */
4260: /* */
4261:
4262: xProgress := 'GASNOB-40-3080';
4263: dbms_sql.close_cursor ( v_SHP_SelectCursor );
4264: xProgress := 'GASNOB-40-3081';
4265: dbms_sql.close_cursor ( v_STX_SelectCursor );
4266: xProgress := 'GASNOB-40-3082';
4267: dbms_sql.close_cursor ( v_ORD_SelectCursor );
4261:
4262: xProgress := 'GASNOB-40-3080';
4263: dbms_sql.close_cursor ( v_SHP_SelectCursor );
4264: xProgress := 'GASNOB-40-3081';
4265: dbms_sql.close_cursor ( v_STX_SelectCursor );
4266: xProgress := 'GASNOB-40-3082';
4267: dbms_sql.close_cursor ( v_ORD_SelectCursor );
4268: xProgress := 'GASNOB-40-3083';
4269: dbms_sql.close_cursor ( v_OAC_SelectCursor );
4263: dbms_sql.close_cursor ( v_SHP_SelectCursor );
4264: xProgress := 'GASNOB-40-3081';
4265: dbms_sql.close_cursor ( v_STX_SelectCursor );
4266: xProgress := 'GASNOB-40-3082';
4267: dbms_sql.close_cursor ( v_ORD_SelectCursor );
4268: xProgress := 'GASNOB-40-3083';
4269: dbms_sql.close_cursor ( v_OAC_SelectCursor );
4270: xProgress := 'GASNOB-40-3084';
4271: dbms_sql.close_cursor ( v_OTX_SelectCursor );
4265: dbms_sql.close_cursor ( v_STX_SelectCursor );
4266: xProgress := 'GASNOB-40-3082';
4267: dbms_sql.close_cursor ( v_ORD_SelectCursor );
4268: xProgress := 'GASNOB-40-3083';
4269: dbms_sql.close_cursor ( v_OAC_SelectCursor );
4270: xProgress := 'GASNOB-40-3084';
4271: dbms_sql.close_cursor ( v_OTX_SelectCursor );
4272: xProgress := 'GASNOB-40-3085';
4273: dbms_sql.close_cursor ( v_DTL_SelectCursor );
4267: dbms_sql.close_cursor ( v_ORD_SelectCursor );
4268: xProgress := 'GASNOB-40-3083';
4269: dbms_sql.close_cursor ( v_OAC_SelectCursor );
4270: xProgress := 'GASNOB-40-3084';
4271: dbms_sql.close_cursor ( v_OTX_SelectCursor );
4272: xProgress := 'GASNOB-40-3085';
4273: dbms_sql.close_cursor ( v_DTL_SelectCursor );
4274: xProgress := 'GASNOB-40-3086';
4275: dbms_sql.close_cursor ( v_DAC_SelectCursor );
4269: dbms_sql.close_cursor ( v_OAC_SelectCursor );
4270: xProgress := 'GASNOB-40-3084';
4271: dbms_sql.close_cursor ( v_OTX_SelectCursor );
4272: xProgress := 'GASNOB-40-3085';
4273: dbms_sql.close_cursor ( v_DTL_SelectCursor );
4274: xProgress := 'GASNOB-40-3086';
4275: dbms_sql.close_cursor ( v_DAC_SelectCursor );
4276: xProgress := 'GASNOB-40-3087';
4277: dbms_sql.close_cursor ( v_DTX_SelectCursor );
4271: dbms_sql.close_cursor ( v_OTX_SelectCursor );
4272: xProgress := 'GASNOB-40-3085';
4273: dbms_sql.close_cursor ( v_DTL_SelectCursor );
4274: xProgress := 'GASNOB-40-3086';
4275: dbms_sql.close_cursor ( v_DAC_SelectCursor );
4276: xProgress := 'GASNOB-40-3087';
4277: dbms_sql.close_cursor ( v_DTX_SelectCursor );
4278: xProgress := 'GASNOB-40-3088';
4279: dbms_sql.close_cursor ( v_ALL_SelectCursor );
4273: dbms_sql.close_cursor ( v_DTL_SelectCursor );
4274: xProgress := 'GASNOB-40-3086';
4275: dbms_sql.close_cursor ( v_DAC_SelectCursor );
4276: xProgress := 'GASNOB-40-3087';
4277: dbms_sql.close_cursor ( v_DTX_SelectCursor );
4278: xProgress := 'GASNOB-40-3088';
4279: dbms_sql.close_cursor ( v_ALL_SelectCursor );
4280:
4281: xProgress := 'GASNOB-40-3088';
4275: dbms_sql.close_cursor ( v_DAC_SelectCursor );
4276: xProgress := 'GASNOB-40-3087';
4277: dbms_sql.close_cursor ( v_DTX_SelectCursor );
4278: xProgress := 'GASNOB-40-3088';
4279: dbms_sql.close_cursor ( v_ALL_SelectCursor );
4280:
4281: xProgress := 'GASNOB-40-3088';
4282: dbms_sql.close_cursor ( v_SHP_DeleteCursor );
4283: xProgress := 'GASNOB-40-3089';
4278: xProgress := 'GASNOB-40-3088';
4279: dbms_sql.close_cursor ( v_ALL_SelectCursor );
4280:
4281: xProgress := 'GASNOB-40-3088';
4282: dbms_sql.close_cursor ( v_SHP_DeleteCursor );
4283: xProgress := 'GASNOB-40-3089';
4284: dbms_sql.close_cursor ( v_STX_DeleteCursor );
4285: xProgress := 'GASNOB-40-3090';
4286: dbms_sql.close_cursor ( v_ORD_DeleteCursor );
4280:
4281: xProgress := 'GASNOB-40-3088';
4282: dbms_sql.close_cursor ( v_SHP_DeleteCursor );
4283: xProgress := 'GASNOB-40-3089';
4284: dbms_sql.close_cursor ( v_STX_DeleteCursor );
4285: xProgress := 'GASNOB-40-3090';
4286: dbms_sql.close_cursor ( v_ORD_DeleteCursor );
4287: xProgress := 'GASNOB-40-3091';
4288: dbms_sql.close_cursor ( v_OAC_DeleteCursor );
4282: dbms_sql.close_cursor ( v_SHP_DeleteCursor );
4283: xProgress := 'GASNOB-40-3089';
4284: dbms_sql.close_cursor ( v_STX_DeleteCursor );
4285: xProgress := 'GASNOB-40-3090';
4286: dbms_sql.close_cursor ( v_ORD_DeleteCursor );
4287: xProgress := 'GASNOB-40-3091';
4288: dbms_sql.close_cursor ( v_OAC_DeleteCursor );
4289: xProgress := 'GASNOB-40-3092';
4290: dbms_sql.close_cursor ( v_OTX_DeleteCursor );
4284: dbms_sql.close_cursor ( v_STX_DeleteCursor );
4285: xProgress := 'GASNOB-40-3090';
4286: dbms_sql.close_cursor ( v_ORD_DeleteCursor );
4287: xProgress := 'GASNOB-40-3091';
4288: dbms_sql.close_cursor ( v_OAC_DeleteCursor );
4289: xProgress := 'GASNOB-40-3092';
4290: dbms_sql.close_cursor ( v_OTX_DeleteCursor );
4291: xProgress := 'GASNOB-40-3093';
4292: dbms_sql.close_cursor ( v_DTL_DeleteCursor );
4286: dbms_sql.close_cursor ( v_ORD_DeleteCursor );
4287: xProgress := 'GASNOB-40-3091';
4288: dbms_sql.close_cursor ( v_OAC_DeleteCursor );
4289: xProgress := 'GASNOB-40-3092';
4290: dbms_sql.close_cursor ( v_OTX_DeleteCursor );
4291: xProgress := 'GASNOB-40-3093';
4292: dbms_sql.close_cursor ( v_DTL_DeleteCursor );
4293: xProgress := 'GASNOB-40-3094';
4294: dbms_sql.close_cursor ( v_DAC_DeleteCursor );
4288: dbms_sql.close_cursor ( v_OAC_DeleteCursor );
4289: xProgress := 'GASNOB-40-3092';
4290: dbms_sql.close_cursor ( v_OTX_DeleteCursor );
4291: xProgress := 'GASNOB-40-3093';
4292: dbms_sql.close_cursor ( v_DTL_DeleteCursor );
4293: xProgress := 'GASNOB-40-3094';
4294: dbms_sql.close_cursor ( v_DAC_DeleteCursor );
4295: xProgress := 'GASNOB-40-3095';
4296: dbms_sql.close_cursor ( v_DTX_DeleteCursor );
4290: dbms_sql.close_cursor ( v_OTX_DeleteCursor );
4291: xProgress := 'GASNOB-40-3093';
4292: dbms_sql.close_cursor ( v_DTL_DeleteCursor );
4293: xProgress := 'GASNOB-40-3094';
4294: dbms_sql.close_cursor ( v_DAC_DeleteCursor );
4295: xProgress := 'GASNOB-40-3095';
4296: dbms_sql.close_cursor ( v_DTX_DeleteCursor );
4297: xProgress := 'GASNOB-40-3095';
4298: dbms_sql.close_cursor ( v_ALL_DeleteCursor );
4292: dbms_sql.close_cursor ( v_DTL_DeleteCursor );
4293: xProgress := 'GASNOB-40-3094';
4294: dbms_sql.close_cursor ( v_DAC_DeleteCursor );
4295: xProgress := 'GASNOB-40-3095';
4296: dbms_sql.close_cursor ( v_DTX_DeleteCursor );
4297: xProgress := 'GASNOB-40-3095';
4298: dbms_sql.close_cursor ( v_ALL_DeleteCursor );
4299:
4300: xProgress := 'GASNOB-40-3096';
4294: dbms_sql.close_cursor ( v_DAC_DeleteCursor );
4295: xProgress := 'GASNOB-40-3095';
4296: dbms_sql.close_cursor ( v_DTX_DeleteCursor );
4297: xProgress := 'GASNOB-40-3095';
4298: dbms_sql.close_cursor ( v_ALL_DeleteCursor );
4299:
4300: xProgress := 'GASNOB-40-3096';
4301: dbms_sql.close_cursor ( v_SHP_XDeleteCursor );
4302: xProgress := 'GASNOB-40-3097';
4297: xProgress := 'GASNOB-40-3095';
4298: dbms_sql.close_cursor ( v_ALL_DeleteCursor );
4299:
4300: xProgress := 'GASNOB-40-3096';
4301: dbms_sql.close_cursor ( v_SHP_XDeleteCursor );
4302: xProgress := 'GASNOB-40-3097';
4303: dbms_sql.close_cursor ( v_STX_XDeleteCursor );
4304: xProgress := 'GASNOB-40-3098';
4305: dbms_sql.close_cursor ( v_ORD_XDeleteCursor );
4299:
4300: xProgress := 'GASNOB-40-3096';
4301: dbms_sql.close_cursor ( v_SHP_XDeleteCursor );
4302: xProgress := 'GASNOB-40-3097';
4303: dbms_sql.close_cursor ( v_STX_XDeleteCursor );
4304: xProgress := 'GASNOB-40-3098';
4305: dbms_sql.close_cursor ( v_ORD_XDeleteCursor );
4306: xProgress := 'GASNOB-40-3099';
4307: dbms_sql.close_cursor ( v_OAC_XDeleteCursor );
4301: dbms_sql.close_cursor ( v_SHP_XDeleteCursor );
4302: xProgress := 'GASNOB-40-3097';
4303: dbms_sql.close_cursor ( v_STX_XDeleteCursor );
4304: xProgress := 'GASNOB-40-3098';
4305: dbms_sql.close_cursor ( v_ORD_XDeleteCursor );
4306: xProgress := 'GASNOB-40-3099';
4307: dbms_sql.close_cursor ( v_OAC_XDeleteCursor );
4308: xProgress := 'GASNOB-40-3100';
4309: dbms_sql.close_cursor ( v_OTX_XDeleteCursor );
4303: dbms_sql.close_cursor ( v_STX_XDeleteCursor );
4304: xProgress := 'GASNOB-40-3098';
4305: dbms_sql.close_cursor ( v_ORD_XDeleteCursor );
4306: xProgress := 'GASNOB-40-3099';
4307: dbms_sql.close_cursor ( v_OAC_XDeleteCursor );
4308: xProgress := 'GASNOB-40-3100';
4309: dbms_sql.close_cursor ( v_OTX_XDeleteCursor );
4310: xProgress := 'GASNOB-40-3101';
4311: dbms_sql.close_cursor ( v_DTL_XDeleteCursor );
4305: dbms_sql.close_cursor ( v_ORD_XDeleteCursor );
4306: xProgress := 'GASNOB-40-3099';
4307: dbms_sql.close_cursor ( v_OAC_XDeleteCursor );
4308: xProgress := 'GASNOB-40-3100';
4309: dbms_sql.close_cursor ( v_OTX_XDeleteCursor );
4310: xProgress := 'GASNOB-40-3101';
4311: dbms_sql.close_cursor ( v_DTL_XDeleteCursor );
4312: xProgress := 'GASNOB-40-3102';
4313: dbms_sql.close_cursor ( v_DAC_XDeleteCursor );
4307: dbms_sql.close_cursor ( v_OAC_XDeleteCursor );
4308: xProgress := 'GASNOB-40-3100';
4309: dbms_sql.close_cursor ( v_OTX_XDeleteCursor );
4310: xProgress := 'GASNOB-40-3101';
4311: dbms_sql.close_cursor ( v_DTL_XDeleteCursor );
4312: xProgress := 'GASNOB-40-3102';
4313: dbms_sql.close_cursor ( v_DAC_XDeleteCursor );
4314: xProgress := 'GASNOB-40-3103';
4315: dbms_sql.close_cursor ( v_DTX_XDeleteCursor );
4309: dbms_sql.close_cursor ( v_OTX_XDeleteCursor );
4310: xProgress := 'GASNOB-40-3101';
4311: dbms_sql.close_cursor ( v_DTL_XDeleteCursor );
4312: xProgress := 'GASNOB-40-3102';
4313: dbms_sql.close_cursor ( v_DAC_XDeleteCursor );
4314: xProgress := 'GASNOB-40-3103';
4315: dbms_sql.close_cursor ( v_DTX_XDeleteCursor );
4316: xProgress := 'GASNOB-40-3104';
4317: dbms_sql.close_cursor ( v_ALL_XDeleteCursor );
4311: dbms_sql.close_cursor ( v_DTL_XDeleteCursor );
4312: xProgress := 'GASNOB-40-3102';
4313: dbms_sql.close_cursor ( v_DAC_XDeleteCursor );
4314: xProgress := 'GASNOB-40-3103';
4315: dbms_sql.close_cursor ( v_DTX_XDeleteCursor );
4316: xProgress := 'GASNOB-40-3104';
4317: dbms_sql.close_cursor ( v_ALL_XDeleteCursor );
4318:
4319: EXCEPTION
4313: dbms_sql.close_cursor ( v_DAC_XDeleteCursor );
4314: xProgress := 'GASNOB-40-3103';
4315: dbms_sql.close_cursor ( v_DTX_XDeleteCursor );
4316: xProgress := 'GASNOB-40-3104';
4317: dbms_sql.close_cursor ( v_ALL_XDeleteCursor );
4318:
4319: EXCEPTION
4320: WHEN OTHERS THEN
4321: