814: -- :po_header_id is a place holder for foreign key value.
815: -- A PL/SQL table (list of values) will be used to store data.
816: -- Procedure ece_flatfile_pvt.Find_pos will be used to locate the specific
817: -- data value in the PL/SQL table.
818: -- dbms_sql (Native Oracle db functions that come with every Oracle Apps)
819: -- dbms_sql.bind_variable will be used to assign data value to :transaction_id.
820: --
821: -- Let's use the above example:
822: --
815: -- A PL/SQL table (list of values) will be used to store data.
816: -- Procedure ece_flatfile_pvt.Find_pos will be used to locate the specific
817: -- data value in the PL/SQL table.
818: -- dbms_sql (Native Oracle db functions that come with every Oracle Apps)
819: -- dbms_sql.bind_variable will be used to assign data value to :transaction_id.
820: --
821: -- Let's use the above example:
822: --
823: -- 1. Execute dynamic SQL 1 for headers (A) data
929: -- ***
930: -- ***************************************************
931:
932: xProgress := 'SPSOB-10-1110';
933: Header_sel_c := dbms_sql.open_cursor;
934:
935: xProgress := 'SPSOB-10-1120';
936: Item_sel_c := dbms_sql.open_cursor;
937:
932: xProgress := 'SPSOB-10-1110';
933: Header_sel_c := dbms_sql.open_cursor;
934:
935: xProgress := 'SPSOB-10-1120';
936: Item_sel_c := dbms_sql.open_cursor;
937:
938: -- ***************************************************
939: --
940: -- Parse each of the SELECT statement
943: -- ***************************************************
944:
945: xProgress := 'SPSOB-10-1130';
946: BEGIN
947: dbms_sql.parse ( Header_sel_c,
948: cHeader_select,
949: dbms_sql.native );
950: EXCEPTION
951: WHEN OTHERS THEN
945: xProgress := 'SPSOB-10-1130';
946: BEGIN
947: dbms_sql.parse ( Header_sel_c,
948: cHeader_select,
949: dbms_sql.native );
950: EXCEPTION
951: WHEN OTHERS THEN
952: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
953: cHeader_select );
948: cHeader_select,
949: dbms_sql.native );
950: EXCEPTION
951: WHEN OTHERS THEN
952: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
953: cHeader_select );
954: app_exception.raise_exception;
955: END;
956:
955: END;
956:
957: xProgress := 'SPSOB-10-1140';
958: BEGIN
959: dbms_sql.parse ( Item_sel_c,
960: cItem_select,
961: dbms_sql.native );
962: EXCEPTION
963: WHEN OTHERS THEN
957: xProgress := 'SPSOB-10-1140';
958: BEGIN
959: dbms_sql.parse ( Item_sel_c,
960: cItem_select,
961: dbms_sql.native );
962: EXCEPTION
963: WHEN OTHERS THEN
964: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
965: cItem_select );
960: cItem_select,
961: dbms_sql.native );
962: EXCEPTION
963: WHEN OTHERS THEN
964: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
965: cItem_select );
966: app_exception.raise_exception;
967: END;
968:
991:
992: xProgress := 'SPSOB-10-1170';
993: FOR k IN 1..iHeader_count
994: LOOP
995: dbms_sql.define_column ( Header_sel_c,
996: k,
997: cHeader_select,
998: ece_extract_utils_PUB.G_MaxColWidth );
999: END LOOP;
1001:
1002: xProgress := 'SPSOB-10-1180';
1003: FOR k IN 1..iItem_count
1004: LOOP
1005: dbms_sql.define_column ( Item_sel_c,
1006: k,
1007: cItem_select,
1008: ece_extract_utils_PUB.G_MaxColWidth );
1009: END LOOP;
1120: 'ST_POSTAL_CODE' );
1121: ec_debug.pl ( 3, 'n_st_postal_pos: ',n_st_postal_pos );
1122:
1123: xProgress := 'SPSOB-10-1371';
1124: dbms_sql.bind_variable(Header_sel_c,'l_cCommunication_Method',cCommunication_Method);
1125:
1126: xProgress := 'SPSOB-10-1372';
1127: dbms_sql.bind_variable(Header_sel_c,'l_p_schedule_id',p_schedule_id);
1128:
1123: xProgress := 'SPSOB-10-1371';
1124: dbms_sql.bind_variable(Header_sel_c,'l_cCommunication_Method',cCommunication_Method);
1125:
1126: xProgress := 'SPSOB-10-1372';
1127: dbms_sql.bind_variable(Header_sel_c,'l_p_schedule_id',p_schedule_id);
1128:
1129: xProgress := 'SPSOB-10-1373';
1130: if (p_batch_id <>0) then
1131: dbms_sql.bind_variable(Header_sel_c,'l_p_batch_id',p_batch_id);
1127: dbms_sql.bind_variable(Header_sel_c,'l_p_schedule_id',p_schedule_id);
1128:
1129: xProgress := 'SPSOB-10-1373';
1130: if (p_batch_id <>0) then
1131: dbms_sql.bind_variable(Header_sel_c,'l_p_batch_id',p_batch_id);
1132: end if;
1133: -- EXECUTE the SELECT statement
1134:
1135: xProgress := 'SPSOB-10-1380';
1132: end if;
1133: -- EXECUTE the SELECT statement
1134:
1135: xProgress := 'SPSOB-10-1380';
1136: dummy := dbms_sql.execute ( Header_sel_c );
1137:
1138: -- ***************************************************
1139: --
1140: -- The model is:
1148: -- ***************************************************
1149:
1150:
1151: xProgress := 'SPSOB-10-1390';
1152: WHILE dbms_sql.fetch_rows ( Header_sel_c ) > 0
1153: LOOP -- Header
1154:
1155: -- ***************************************************
1156: --
1160:
1161: xProgress := 'SPSOB-10-1400';
1162: FOR i IN 1..iHeader_count
1163: LOOP
1164: dbms_sql.column_value ( Header_sel_c,
1165: i,
1166: l_header_tbl(i).value );
1167:
1168: dbms_sql.column_value ( Header_sel_c,
1164: dbms_sql.column_value ( Header_sel_c,
1165: i,
1166: l_header_tbl(i).value );
1167:
1168: dbms_sql.column_value ( Header_sel_c,
1169: i,
1170: l_key_tbl(i).value );
1171: END LOOP;
1172:
1274: -- ***************************************************
1275:
1276: -- use the following bind_variable feature as you see fit.
1277:
1278: dbms_sql.bind_variable ( Item_sel_c,
1279: 'schedule_id',
1280: l_header_tbl(n_schedule_id_pos).value );
1281:
1282: xProgress := 'SPSOB-10-1470';
1279: 'schedule_id',
1280: l_header_tbl(n_schedule_id_pos).value );
1281:
1282: xProgress := 'SPSOB-10-1470';
1283: dummy := dbms_sql.execute ( Item_sel_c );
1284:
1285: -- ***************************************************
1286: --
1287: -- item loop starts here
1288: --
1289: -- ***************************************************
1290:
1291: xProgress := 'SPSOB-10-1480';
1292: WHILE dbms_sql.fetch_rows ( Item_sel_c ) > 0
1293: LOOP --- Item
1294:
1295: -- ***************************************************
1296: --
1301:
1302: xProgress := 'SPSOB-10-1490';
1303: FOR j IN 1..iItem_count
1304: LOOP
1305: dbms_sql.column_value ( Item_sel_c,
1306: j,
1307: l_item_tbl(j).value );
1308:
1309: dbms_sql.column_value ( Item_sel_c,
1305: dbms_sql.column_value ( Item_sel_c,
1306: j,
1307: l_item_tbl(j).value );
1308:
1309: dbms_sql.column_value ( Item_sel_c,
1310: j,
1311: l_key_tbl(j+iHeader_count).value );
1312: END LOOP;
1313:
1657: END IF;
1658: END LOOP;
1659:
1660: xProgress := 'SPSOB-10-1583';
1661: IF ( dbms_sql.last_row_count = 0 )
1662: THEN
1663: v_LevelProcessed := 'ITEM';
1664: ec_debug.pl ( 1,
1665: 'EC',
1674: END IF;
1675: END LOOP;
1676:
1677: xProgress := 'SPSOB-10-1586';
1678: IF ( dbms_sql.last_row_count = 0 )
1679: THEN
1680: v_LevelProcessed := 'HEADER';
1681: ec_debug.pl ( 0,
1682: 'EC',
1689: cTransaction_Type );
1690: END IF;
1691:
1692: xProgress := 'SPSOB-10-1590';
1693: dbms_sql.close_cursor ( Header_sel_c );
1694:
1695: xProgress := 'SPSOB-10-1600';
1696: dbms_sql.close_cursor ( Item_sel_c );
1697:
1692: xProgress := 'SPSOB-10-1590';
1693: dbms_sql.close_cursor ( Header_sel_c );
1694:
1695: xProgress := 'SPSOB-10-1600';
1696: dbms_sql.close_cursor ( Item_sel_c );
1697:
1698: ec_debug.pop ( 'ECE_SPSO_TRANS1.populate_supplier_sched_api1' );
1699:
1700: EXCEPTION
2717: :schedule_id is a place holder for foreign key value.
2718: A PL/SQL table (list of values) will be used to store data.
2719: Procedure ece_flatfile_pvt.Find_pos will be used to locate the specific
2720: data value in the PL/SQL table.
2721: dbms_sql (Native Oracle db functions that come with every Oracle Apps)
2722: dbms_sql.bind_variable will be used to assign data value to :schedule_id
2723:
2724: Let's use the above example:
2725:
2718: A PL/SQL table (list of values) will be used to store data.
2719: Procedure ece_flatfile_pvt.Find_pos will be used to locate the specific
2720: data value in the PL/SQL table.
2721: dbms_sql (Native Oracle db functions that come with every Oracle Apps)
2722: dbms_sql.bind_variable will be used to assign data value to :schedule_id
2723:
2724: Let's use the above example:
2725:
2726: 1. Execute dynamic SQL 1 for headers (A) data
2953: --*** Open a cursor for each of the SELECT calls **
2954: --***************************************************
2955:
2956: xProgress := 'SPSOB-50-1180';
2957: v_header_sel_c := dbms_sql.open_cursor;
2958:
2959: xProgress := 'SPSOB-50-1190';
2960: v_item_sel_c := dbms_sql.open_cursor;
2961:
2956: xProgress := 'SPSOB-50-1180';
2957: v_header_sel_c := dbms_sql.open_cursor;
2958:
2959: xProgress := 'SPSOB-50-1190';
2960: v_item_sel_c := dbms_sql.open_cursor;
2961:
2962: xProgress := 'SPSOB-50-1200';
2963: v_item_d_sel_c := dbms_sql.open_cursor;
2964:
2959: xProgress := 'SPSOB-50-1190';
2960: v_item_sel_c := dbms_sql.open_cursor;
2961:
2962: xProgress := 'SPSOB-50-1200';
2963: v_item_d_sel_c := dbms_sql.open_cursor;
2964:
2965: xProgress := 'SPSOB-50-1205';
2966: if (p_transaction_type = 'SSSO') then
2967: v_ship_d_sel_c := dbms_sql.open_cursor;
2963: v_item_d_sel_c := dbms_sql.open_cursor;
2964:
2965: xProgress := 'SPSOB-50-1205';
2966: if (p_transaction_type = 'SSSO') then
2967: v_ship_d_sel_c := dbms_sql.open_cursor;
2968: end if;
2969: xProgress := 'SPSOB-50-1210';
2970: v_header_del_c1 := dbms_sql.open_cursor;
2971:
2966: if (p_transaction_type = 'SSSO') then
2967: v_ship_d_sel_c := dbms_sql.open_cursor;
2968: end if;
2969: xProgress := 'SPSOB-50-1210';
2970: v_header_del_c1 := dbms_sql.open_cursor;
2971:
2972: xProgress := 'SPSOB-50-1220';
2973: v_item_del_c1 := dbms_sql.open_cursor;
2974:
2969: xProgress := 'SPSOB-50-1210';
2970: v_header_del_c1 := dbms_sql.open_cursor;
2971:
2972: xProgress := 'SPSOB-50-1220';
2973: v_item_del_c1 := dbms_sql.open_cursor;
2974:
2975: xProgress := 'SPSOB-50-1230';
2976: v_item_d_del_c1 := dbms_sql.open_cursor;
2977:
2972: xProgress := 'SPSOB-50-1220';
2973: v_item_del_c1 := dbms_sql.open_cursor;
2974:
2975: xProgress := 'SPSOB-50-1230';
2976: v_item_d_del_c1 := dbms_sql.open_cursor;
2977:
2978: xProgress := 'SPSOB-50-1235';
2979: if (p_transaction_type = 'SSSO') then
2980: v_ship_d_del_c1 := dbms_sql.open_cursor;
2976: v_item_d_del_c1 := dbms_sql.open_cursor;
2977:
2978: xProgress := 'SPSOB-50-1235';
2979: if (p_transaction_type = 'SSSO') then
2980: v_ship_d_del_c1 := dbms_sql.open_cursor;
2981: end if;
2982:
2983: xProgress := 'SPSOB-50-1240';
2984: v_header_del_c2 := dbms_sql.open_cursor;
2980: v_ship_d_del_c1 := dbms_sql.open_cursor;
2981: end if;
2982:
2983: xProgress := 'SPSOB-50-1240';
2984: v_header_del_c2 := dbms_sql.open_cursor;
2985:
2986: xProgress := 'SPSOB-50-1250';
2987: v_item_del_c2 := dbms_sql.open_cursor;
2988:
2983: xProgress := 'SPSOB-50-1240';
2984: v_header_del_c2 := dbms_sql.open_cursor;
2985:
2986: xProgress := 'SPSOB-50-1250';
2987: v_item_del_c2 := dbms_sql.open_cursor;
2988:
2989: xProgress := 'SPSOB-50-1260';
2990: v_item_d_del_c2 := dbms_sql.open_cursor;
2991:
2986: xProgress := 'SPSOB-50-1250';
2987: v_item_del_c2 := dbms_sql.open_cursor;
2988:
2989: xProgress := 'SPSOB-50-1260';
2990: v_item_d_del_c2 := dbms_sql.open_cursor;
2991:
2992: xProgress := 'SPSOB-50-1265';
2993: if (p_transaction_type = 'SSSO') then
2994: v_ship_d_del_c2 := dbms_sql.open_cursor;
2990: v_item_d_del_c2 := dbms_sql.open_cursor;
2991:
2992: xProgress := 'SPSOB-50-1265';
2993: if (p_transaction_type = 'SSSO') then
2994: v_ship_d_del_c2 := dbms_sql.open_cursor;
2995: end if;
2996: --******************************************************
2997: --*** Parse each of the SELECT and DELETE statement **
2998: --******************************************************
2998: --******************************************************
2999:
3000: xProgress := 'SPSOB-50-1270';
3001: BEGIN
3002: dbms_sql.parse ( v_header_sel_c,
3003: x_header_select,
3004: dbms_sql.native );
3005: EXCEPTION
3006: WHEN OTHERS THEN
3000: xProgress := 'SPSOB-50-1270';
3001: BEGIN
3002: dbms_sql.parse ( v_header_sel_c,
3003: x_header_select,
3004: dbms_sql.native );
3005: EXCEPTION
3006: WHEN OTHERS THEN
3007: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3008: x_header_select );
3003: x_header_select,
3004: dbms_sql.native );
3005: EXCEPTION
3006: WHEN OTHERS THEN
3007: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3008: x_header_select );
3009: app_exception.raise_exception;
3010: END;
3011:
3010: END;
3011:
3012: xProgress := 'SPSOB-50-1280';
3013: BEGIN
3014: dbms_sql.parse ( v_item_sel_c,
3015: x_item_select,
3016: dbms_sql.native );
3017: EXCEPTION
3018: WHEN OTHERS THEN
3012: xProgress := 'SPSOB-50-1280';
3013: BEGIN
3014: dbms_sql.parse ( v_item_sel_c,
3015: x_item_select,
3016: dbms_sql.native );
3017: EXCEPTION
3018: WHEN OTHERS THEN
3019: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3020: x_item_select );
3015: x_item_select,
3016: dbms_sql.native );
3017: EXCEPTION
3018: WHEN OTHERS THEN
3019: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3020: x_item_select );
3021: app_exception.raise_exception;
3022: END;
3023:
3022: END;
3023:
3024: xProgress := 'SPSOB-50-1290';
3025: BEGIN
3026: dbms_sql.parse ( v_item_d_sel_c,
3027: x_item_d_select,
3028: dbms_sql.native );
3029: EXCEPTION
3030: WHEN OTHERS THEN
3024: xProgress := 'SPSOB-50-1290';
3025: BEGIN
3026: dbms_sql.parse ( v_item_d_sel_c,
3027: x_item_d_select,
3028: dbms_sql.native );
3029: EXCEPTION
3030: WHEN OTHERS THEN
3031: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3032: x_item_d_select );
3027: x_item_d_select,
3028: dbms_sql.native );
3029: EXCEPTION
3030: WHEN OTHERS THEN
3031: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3032: x_item_d_select );
3033: app_exception.raise_exception;
3034: END;
3035:
3035:
3036: xProgress := 'SPSOB-50-1295';
3037: if (p_transaction_type = 'SSSO') then
3038: BEGIN
3039: dbms_sql.parse ( v_ship_d_sel_c,
3040: x_ship_d_select,
3041: dbms_sql.native );
3042: EXCEPTION
3043: WHEN OTHERS THEN
3037: if (p_transaction_type = 'SSSO') then
3038: BEGIN
3039: dbms_sql.parse ( v_ship_d_sel_c,
3040: x_ship_d_select,
3041: dbms_sql.native );
3042: EXCEPTION
3043: WHEN OTHERS THEN
3044: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3045: x_ship_d_select );
3040: x_ship_d_select,
3041: dbms_sql.native );
3042: EXCEPTION
3043: WHEN OTHERS THEN
3044: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3045: x_ship_d_select );
3046: app_exception.raise_exception;
3047: END;
3048: end if;
3047: END;
3048: end if;
3049: xProgress := 'SPSOB-50-1300';
3050: BEGIN
3051: dbms_sql.parse ( v_header_del_c1,
3052: x_header_delete1,
3053: dbms_sql.native );
3054: EXCEPTION
3055: WHEN OTHERS THEN
3049: xProgress := 'SPSOB-50-1300';
3050: BEGIN
3051: dbms_sql.parse ( v_header_del_c1,
3052: x_header_delete1,
3053: dbms_sql.native );
3054: EXCEPTION
3055: WHEN OTHERS THEN
3056: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3057: x_header_delete1 );
3052: x_header_delete1,
3053: dbms_sql.native );
3054: EXCEPTION
3055: WHEN OTHERS THEN
3056: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3057: x_header_delete1 );
3058: app_exception.raise_exception;
3059: END;
3060:
3059: END;
3060:
3061: xProgress := 'SPSOB-50-1310';
3062: BEGIN
3063: dbms_sql.parse ( v_item_del_c1,
3064: x_item_delete1,
3065: dbms_sql.native );
3066: EXCEPTION
3067: WHEN OTHERS THEN
3061: xProgress := 'SPSOB-50-1310';
3062: BEGIN
3063: dbms_sql.parse ( v_item_del_c1,
3064: x_item_delete1,
3065: dbms_sql.native );
3066: EXCEPTION
3067: WHEN OTHERS THEN
3068: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3069: x_item_delete1 );
3064: x_item_delete1,
3065: dbms_sql.native );
3066: EXCEPTION
3067: WHEN OTHERS THEN
3068: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3069: x_item_delete1 );
3070: app_exception.raise_exception;
3071: END;
3072:
3071: END;
3072:
3073: xProgress := 'SPSOB-50-1320';
3074: BEGIN
3075: dbms_sql.parse ( v_item_d_del_c1,
3076: x_item_d_delete1,
3077: dbms_sql.native );
3078: EXCEPTION
3079: WHEN OTHERS THEN
3073: xProgress := 'SPSOB-50-1320';
3074: BEGIN
3075: dbms_sql.parse ( v_item_d_del_c1,
3076: x_item_d_delete1,
3077: dbms_sql.native );
3078: EXCEPTION
3079: WHEN OTHERS THEN
3080: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3081: x_item_d_delete1 );
3076: x_item_d_delete1,
3077: dbms_sql.native );
3078: EXCEPTION
3079: WHEN OTHERS THEN
3080: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3081: x_item_d_delete1 );
3082: app_exception.raise_exception;
3083: END;
3084:
3084:
3085: xProgress := 'SPSOB-50-1325';
3086: if (p_transaction_type = 'SSSO') then
3087: BEGIN
3088: dbms_sql.parse ( v_ship_d_del_c1,
3089: x_ship_d_delete1,
3090: dbms_sql.native );
3091: EXCEPTION
3092: WHEN OTHERS THEN
3086: if (p_transaction_type = 'SSSO') then
3087: BEGIN
3088: dbms_sql.parse ( v_ship_d_del_c1,
3089: x_ship_d_delete1,
3090: dbms_sql.native );
3091: EXCEPTION
3092: WHEN OTHERS THEN
3093: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3094: x_ship_d_delete1 );
3089: x_ship_d_delete1,
3090: dbms_sql.native );
3091: EXCEPTION
3092: WHEN OTHERS THEN
3093: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3094: x_ship_d_delete1 );
3095: app_exception.raise_exception;
3096: END;
3097: end if;
3097: end if;
3098:
3099: xProgress := 'SPSOB-50-1330';
3100: BEGIN
3101: dbms_sql.parse ( v_header_del_c2,
3102: x_header_delete2,
3103: dbms_sql.native );
3104: EXCEPTION
3105: WHEN OTHERS THEN
3099: xProgress := 'SPSOB-50-1330';
3100: BEGIN
3101: dbms_sql.parse ( v_header_del_c2,
3102: x_header_delete2,
3103: dbms_sql.native );
3104: EXCEPTION
3105: WHEN OTHERS THEN
3106: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3107: x_header_delete2 );
3102: x_header_delete2,
3103: dbms_sql.native );
3104: EXCEPTION
3105: WHEN OTHERS THEN
3106: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3107: x_header_delete2 );
3108: app_exception.raise_exception;
3109: END;
3110:
3109: END;
3110:
3111: xProgress := 'SPSOB-50-1340';
3112: BEGIN
3113: dbms_sql.parse ( v_item_del_c2,
3114: x_item_delete2,
3115: dbms_sql.native );
3116: EXCEPTION
3117: WHEN OTHERS THEN
3111: xProgress := 'SPSOB-50-1340';
3112: BEGIN
3113: dbms_sql.parse ( v_item_del_c2,
3114: x_item_delete2,
3115: dbms_sql.native );
3116: EXCEPTION
3117: WHEN OTHERS THEN
3118: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3119: x_item_delete2 );
3114: x_item_delete2,
3115: dbms_sql.native );
3116: EXCEPTION
3117: WHEN OTHERS THEN
3118: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3119: x_item_delete2 );
3120: app_exception.raise_exception;
3121: END;
3122:
3121: END;
3122:
3123: xProgress := 'SPSOB-50-1350';
3124: BEGIN
3125: dbms_sql.parse ( v_item_d_del_c2,
3126: x_item_d_delete2,
3127: dbms_sql.native );
3128: EXCEPTION
3129: WHEN OTHERS THEN
3123: xProgress := 'SPSOB-50-1350';
3124: BEGIN
3125: dbms_sql.parse ( v_item_d_del_c2,
3126: x_item_d_delete2,
3127: dbms_sql.native );
3128: EXCEPTION
3129: WHEN OTHERS THEN
3130: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3131: x_item_d_delete2 );
3126: x_item_d_delete2,
3127: dbms_sql.native );
3128: EXCEPTION
3129: WHEN OTHERS THEN
3130: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3131: x_item_d_delete2 );
3132: app_exception.raise_exception;
3133: END;
3134:
3134:
3135: xProgress := 'SPSOB-50-1355';
3136: if (p_transaction_type = 'SSSO') then
3137: BEGIN
3138: dbms_sql.parse ( v_ship_d_del_c2,
3139: x_ship_d_delete2,
3140: dbms_sql.native );
3141: EXCEPTION
3142: WHEN OTHERS THEN
3136: if (p_transaction_type = 'SSSO') then
3137: BEGIN
3138: dbms_sql.parse ( v_ship_d_del_c2,
3139: x_ship_d_delete2,
3140: dbms_sql.native );
3141: EXCEPTION
3142: WHEN OTHERS THEN
3143: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3144: x_ship_d_delete2 );
3139: x_ship_d_delete2,
3140: dbms_sql.native );
3141: EXCEPTION
3142: WHEN OTHERS THEN
3143: ece_error_handling_pvt.print_parse_error ( dbms_sql.last_error_position,
3144: x_ship_d_delete2 );
3145: app_exception.raise_exception;
3146: END;
3147: end if;
3176: xProgress := 'SPSOB-50-1400';
3177: FOR k IN 1..x_header_count
3178: LOOP
3179:
3180: dbms_sql.define_column ( v_header_sel_c,
3181: k,
3182: x_header_select,
3183: ece_flatfile_pvt.G_MaxColWidth );
3184: END LOOP;
3187: --*** Need rowid for delete (Header Level) **
3188: --********************************************
3189:
3190: xProgress := 'SPSOB-50-1410';
3191: dbms_sql.define_column_rowid ( v_header_sel_c,
3192: x_header_count + 1,
3193: x_header_rowid);
3194:
3195: xProgress := 'SPSOB-50-1420';
3192: x_header_count + 1,
3193: x_header_rowid);
3194:
3195: xProgress := 'SPSOB-50-1420';
3196: dbms_sql.define_column_rowid ( v_header_sel_c,
3197: x_header_count + 2,
3198: x_header_x_rowid);
3199:
3200: xProgress := 'SPSOB-50-1430';
3197: x_header_count + 2,
3198: x_header_x_rowid);
3199:
3200: xProgress := 'SPSOB-50-1430';
3201: dbms_sql.define_column ( v_header_sel_c,
3202: x_header_count + 3,
3203: x_schedule_id);
3204:
3205: xProgress := 'SPSOB-50-1440';
3205: xProgress := 'SPSOB-50-1440';
3206: FOR k IN 1..x_item_count
3207: LOOP
3208:
3209: dbms_sql.define_column ( v_item_sel_c,
3210: k,
3211: x_item_select,
3212: ece_flatfile_pvt.G_MaxColWidth );
3213: END LOOP;
3217: --*** Need rowid for delete (Item Level) **
3218: --*******************************************
3219:
3220: xProgress := 'SPSOB-50-1450';
3221: dbms_sql.define_column_rowid ( v_item_sel_c,
3222: x_item_count + 1,
3223: x_item_rowid );
3224:
3225: xProgress := 'SPSOB-50-1460';
3222: x_item_count + 1,
3223: x_item_rowid );
3224:
3225: xProgress := 'SPSOB-50-1460';
3226: dbms_sql.define_column_rowid ( v_item_sel_c,
3227: x_item_count + 2,
3228: x_item_x_rowid );
3229:
3230: xProgress := 'SPSOB-50-1470';
3227: x_item_count + 2,
3228: x_item_x_rowid );
3229:
3230: xProgress := 'SPSOB-50-1470';
3231: dbms_sql.define_column ( v_item_sel_c,
3232: x_item_count + 3,
3233: x_schedule_item_id );
3234:
3235: xProgress := 'SPSOB-50-1480';
3235: xProgress := 'SPSOB-50-1480';
3236: FOR k IN 1..x_item_d_count
3237: LOOP
3238:
3239: dbms_sql.define_column (v_item_d_sel_c,
3240: k,
3241: x_item_d_select,
3242: ece_flatfile_pvt.G_MaxColWidth );
3243: END LOOP;
3247: --*** Need rowid for delete (Item details Level) **
3248: --**************************************************
3249:
3250: xProgress := 'SPSOB-50-1490';
3251: dbms_sql.define_column_rowid ( v_item_d_sel_c,
3252: x_item_d_count + 1,
3253: x_item_d_rowid);
3254:
3255: xProgress := 'SPSOB-50-1500';
3252: x_item_d_count + 1,
3253: x_item_d_rowid);
3254:
3255: xProgress := 'SPSOB-50-1500';
3256: dbms_sql.define_column_rowid ( v_item_d_sel_c,
3257: x_item_d_count + 2,
3258: x_item_d_x_rowid );
3259:
3260: xProgress := 'SPSOB-50-1501';
3257: x_item_d_count + 2,
3258: x_item_d_x_rowid );
3259:
3260: xProgress := 'SPSOB-50-1501';
3261: dbms_sql.define_column ( v_item_d_sel_c,
3262: (x_item_d_count+3),
3263: x_sch_item_detail_seq);
3264:
3265:
3264:
3265:
3266: if (p_transaction_type = 'SSSO') then
3267: For k IN 1..x_ship_d_count loop
3268: dbms_sql.define_column ( v_ship_d_sel_c,
3269: k,
3270: x_ship_d_select,
3271: ece_flatfile_pvt.G_MaxColWidth);
3272: End Loop;
3272: End Loop;
3273:
3274:
3275: xProgress := 'SPSOB-50-1502';
3276: dbms_sql.define_column_rowid ( v_ship_d_sel_c,
3277: (x_ship_d_count+1),
3278: x_ship_d_rowid);
3279: xProgress := 'SPSOB-50-1505';
3280: dbms_sql.define_column_rowid ( v_ship_d_sel_c,
3276: dbms_sql.define_column_rowid ( v_ship_d_sel_c,
3277: (x_ship_d_count+1),
3278: x_ship_d_rowid);
3279: xProgress := 'SPSOB-50-1505';
3280: dbms_sql.define_column_rowid ( v_ship_d_sel_c,
3281: (x_ship_d_count+2),
3282: x_ship_d_x_rowid);
3283: end if;
3284:
3329: ec_debug.pl ( 3, 'nShip_d_key_pos: ',nShip_d_key_pos );
3330: end if;
3331:
3332: xProgress := 'SPSOB-50-1541';
3333: dbms_sql.bind_variable(v_header_sel_c,'l_p_run_id',p_run_id);
3334:
3335: xProgress := 'SPSOB-50-1542';
3336: dbms_sql.bind_variable(v_item_sel_c,'l_p_run_id',p_run_id);
3337:
3332: xProgress := 'SPSOB-50-1541';
3333: dbms_sql.bind_variable(v_header_sel_c,'l_p_run_id',p_run_id);
3334:
3335: xProgress := 'SPSOB-50-1542';
3336: dbms_sql.bind_variable(v_item_sel_c,'l_p_run_id',p_run_id);
3337:
3338: xProgress := 'SPSOB-50-1543';
3339: dbms_sql.bind_variable(v_item_d_sel_c,'l_p_run_id',p_run_id);
3340:
3335: xProgress := 'SPSOB-50-1542';
3336: dbms_sql.bind_variable(v_item_sel_c,'l_p_run_id',p_run_id);
3337:
3338: xProgress := 'SPSOB-50-1543';
3339: dbms_sql.bind_variable(v_item_d_sel_c,'l_p_run_id',p_run_id);
3340:
3341: xProgress := 'SPSOB-50-1544';
3342: if (p_transaction_type = 'SSSO') then
3343: dbms_sql.bind_variable(v_ship_d_sel_c,'l_p_run_id',p_run_id);
3339: dbms_sql.bind_variable(v_item_d_sel_c,'l_p_run_id',p_run_id);
3340:
3341: xProgress := 'SPSOB-50-1544';
3342: if (p_transaction_type = 'SSSO') then
3343: dbms_sql.bind_variable(v_ship_d_sel_c,'l_p_run_id',p_run_id);
3344: end if;
3345: --**************************************
3346: --*** EXECUTE the SELECT statement **
3347: --**************************************
3346: --*** EXECUTE the SELECT statement **
3347: --**************************************
3348:
3349: xProgress := 'SPSOB-50-1550';
3350: x_dummy := dbms_sql.execute(v_header_sel_c);
3351:
3352:
3353: --***********************************************************************
3354: --*** With data for each HEADER line, populate the ECE_OUTPUT table **
3357: --*** ITEM DETAILS that belongs to the ITEM. **
3358: --***********************************************************************
3359:
3360: xProgress := 'SPSOB-50-1560';
3361: WHILE dbms_sql.fetch_rows ( v_header_sel_c ) > 0
3362: LOOP -- Header
3363:
3364: --***********************************
3365: --*** store values in pl/sql table **
3368: xProgress := 'SPSOB-50-1570';
3369: FOR i IN 1..x_header_count
3370: LOOP
3371:
3372: dbms_sql.column_value ( v_header_sel_c,
3373: i,
3374: l_header_tbl(i).value );
3375:
3376: END LOOP;
3376: END LOOP;
3377:
3378:
3379: xProgress := 'SPSOB-50-1580';
3380: dbms_sql.column_value ( v_header_sel_c,
3381: x_header_count + 1,
3382: x_header_rowid );
3383:
3384: xProgress := 'SPSOB-50-1590';
3381: x_header_count + 1,
3382: x_header_rowid );
3383:
3384: xProgress := 'SPSOB-50-1590';
3385: dbms_sql.column_value ( v_header_sel_c,
3386: x_header_count + 2,
3387: x_header_x_rowid );
3388:
3389:
3387: x_header_x_rowid );
3388:
3389:
3390: xProgress := 'SPSOB-50-1600';
3391: dbms_sql.column_value ( v_header_sel_c,
3392: x_header_count + 3,
3393: x_schedule_id );
3394:
3395: xProgress := 'SPSOB-50-1610';
3427:
3428: -- These following commented lines are reserved for Rel11
3429:
3430: xProgress := 'SPSOB-50-1640';
3431: dbms_sql.bind_variable ( v_item_sel_c,
3432: 'SCHEDULE_ID',
3433: x_schedule_id );
3434:
3435: xProgress := 'SPSOB-50-1650';
3432: 'SCHEDULE_ID',
3433: x_schedule_id );
3434:
3435: xProgress := 'SPSOB-50-1650';
3436: dbms_sql.bind_variable ( v_item_d_sel_c,
3437: 'SCHEDULE_ID',
3438: x_schedule_id );
3439:
3440: xProgress := 'SPSOB-50-1655';
3438: x_schedule_id );
3439:
3440: xProgress := 'SPSOB-50-1655';
3441: if (p_transaction_type = 'SSSO') then
3442: dbms_sql.bind_variable ( v_ship_d_sel_c,
3443: 'SCHEDULE_ID',
3444: x_schedule_id );
3445: end if;
3446:
3444: x_schedule_id );
3445: end if;
3446:
3447: xProgress := 'SPSOB-50-1660';
3448: x_dummy := dbms_sql.execute ( v_item_sel_c );
3449:
3450:
3451: --****************************
3452: --** Item loop starts here **
3452: --** Item loop starts here **
3453: --****************************
3454:
3455: xProgress := 'SPSOB-50-1670';
3456: WHILE dbms_sql.fetch_rows ( v_item_sel_c ) > 0
3457: LOOP --- Line
3458:
3459: --***********************************
3460: --** store values in pl/sql table **
3463: xProgress := 'SPSOB-50-1680';
3464: FOR j IN 1..x_item_count
3465: LOOP
3466:
3467: dbms_sql.column_value ( v_item_sel_c,
3468: j,
3469: l_item_tbl(j).value );
3470:
3471: END LOOP;
3471: END LOOP;
3472:
3473:
3474: xProgress := 'SPSOB-50-1690';
3475: dbms_sql.column_value ( v_item_sel_c,
3476: x_item_count + 1,
3477: x_item_rowid );
3478:
3479: xProgress := 'SPSOB-50-1700';
3476: x_item_count + 1,
3477: x_item_rowid );
3478:
3479: xProgress := 'SPSOB-50-1700';
3480: dbms_sql.column_value ( v_item_sel_c,
3481: x_item_count + 2,
3482: x_item_x_rowid );
3483:
3484: xProgress := 'SPSOB-50-1710';
3481: x_item_count + 2,
3482: x_item_x_rowid );
3483:
3484: xProgress := 'SPSOB-50-1710';
3485: dbms_sql.column_value ( v_item_sel_c,
3486: x_item_count + 3,
3487: x_schedule_item_id );
3488:
3489: xProgress := 'SPSOB-50-1720';
3513: --** set SCHEDULE_ITEM_ID values **
3514: --***********************************
3515:
3516: xProgress := 'SPSOB-50-1740';
3517: dbms_sql.bind_variable ( v_item_d_sel_c,
3518: 'SCHEDULE_ITEM_ID',
3519: x_schedule_item_id);
3520:
3521: xProgress := 'SPSOB-50-1745';
3519: x_schedule_item_id);
3520:
3521: xProgress := 'SPSOB-50-1745';
3522: if (p_transaction_type = 'SSSO') then
3523: dbms_sql.bind_variable ( v_ship_d_sel_c,
3524: 'SCHEDULE_ITEM_ID',
3525: x_schedule_item_id);
3526: end if;
3527:
3525: x_schedule_item_id);
3526: end if;
3527:
3528: xProgress := 'SPSOB-50-1750';
3529: x_dummy := dbms_sql.execute ( v_item_d_sel_c );
3530:
3531:
3532: --***********************************
3533: --** item detail loop starts here **
3533: --** item detail loop starts here **
3534: --***********************************
3535:
3536: xProgress := 'SPSOB-50-1760';
3537: WHILE dbms_sql.fetch_rows ( v_item_d_sel_c ) > 0
3538: LOOP --- Line Detail
3539:
3540:
3541: --************************************
3545: xProgress := 'SPSOB-50-1770';
3546: FOR k IN 1..x_item_d_count
3547: LOOP
3548:
3549: dbms_sql.column_value ( v_item_d_sel_c,
3550: k,
3551: l_item_d_tbl(k).value );
3552:
3553: END LOOP;
3553: END LOOP;
3554:
3555:
3556: xProgress := 'SPSOB-50-1780';
3557: dbms_sql.column_value ( v_item_d_sel_c,
3558: x_item_d_count + 1,
3559: x_item_d_rowid );
3560:
3561: xProgress := 'SPSOB-50-1790';
3558: x_item_d_count + 1,
3559: x_item_d_rowid );
3560:
3561: xProgress := 'SPSOB-50-1790';
3562: dbms_sql.column_value ( v_item_d_sel_c,
3563: x_item_d_count + 2,
3564: x_item_d_x_rowid );
3565:
3566: xProgress := 'SPSOB-50-1795';
3563: x_item_d_count + 2,
3564: x_item_d_x_rowid );
3565:
3566: xProgress := 'SPSOB-50-1795';
3567: dbms_sql.column_value(v_item_d_sel_c,
3568: x_item_d_count+3,
3569: x_sch_item_detail_seq);
3570:
3571: xProgress := 'SPSOB-50-1800';
3597: --***********************************
3598:
3599: xProgress := 'SPSOB-50-1820';
3600: if (p_transaction_type = 'SSSO') then
3601: dbms_sql.bind_variable(v_ship_d_sel_c, 'SCHEDULE_ITEM_DETAIL_SEQUENCE',
3602: x_sch_item_detail_seq);
3603:
3604: xProgress := 'SPSOB-50-1822';
3605: x_dummy := dbms_sql.execute(v_ship_d_sel_c);
3601: dbms_sql.bind_variable(v_ship_d_sel_c, 'SCHEDULE_ITEM_DETAIL_SEQUENCE',
3602: x_sch_item_detail_seq);
3603:
3604: xProgress := 'SPSOB-50-1822';
3605: x_dummy := dbms_sql.execute(v_ship_d_sel_c);
3606: --***********************************
3607: --** ship detail loop starts here **
3608: --***********************************
3609:
3607: --** ship detail loop starts here **
3608: --***********************************
3609:
3610: xProgress := 'SPSOB-50-1823';
3611: WHILE dbms_sql.fetch_rows(v_ship_d_sel_c) > 0 LOOP --- Ship Detail
3612:
3613: xProgress := 'SPSOB-50-1825';
3614: for k in 1..x_ship_d_count loop
3615:
3612:
3613: xProgress := 'SPSOB-50-1825';
3614: for k in 1..x_ship_d_count loop
3615:
3616: dbms_sql.column_value(v_ship_d_sel_c, k, l_ship_d_tbl(k).value);
3617:
3618: end loop;
3619: xProgress := 'SPSOB-50-1830';
3620: dbms_sql.column_value(v_ship_d_sel_c, x_ship_d_count+1,
3616: dbms_sql.column_value(v_ship_d_sel_c, k, l_ship_d_tbl(k).value);
3617:
3618: end loop;
3619: xProgress := 'SPSOB-50-1830';
3620: dbms_sql.column_value(v_ship_d_sel_c, x_ship_d_count+1,
3621: x_ship_d_rowid);
3622: xProgress := 'SPSOB-50-1835';
3623: dbms_sql.column_value(v_ship_d_sel_c, x_ship_d_count+2,
3624: x_ship_d_x_rowid);
3619: xProgress := 'SPSOB-50-1830';
3620: dbms_sql.column_value(v_ship_d_sel_c, x_ship_d_count+1,
3621: x_ship_d_rowid);
3622: xProgress := 'SPSOB-50-1835';
3623: dbms_sql.column_value(v_ship_d_sel_c, x_ship_d_count+2,
3624: x_ship_d_x_rowid);
3625:
3626: xProgress := 'SPSOB-50-1840';
3627: c_file_common_key := rpad(substr(nvl(l_header_tbl(nTrans_code_pos).value,' '), 1, 25), 25)
3634: p_transaction_type, p_communication_method, p_ship_d_interface,
3635: l_ship_d_tbl, p_output_width, p_run_id, c_file_common_key);
3636:
3637: xProgress := 'SPSOB-50-1850';
3638: dbms_sql.bind_variable(v_ship_d_del_c1, 'col_rowid',x_ship_d_rowid);
3639:
3640: xProgress := 'SPSOB-50-1855';
3641: dbms_sql.bind_variable(v_ship_d_del_c2, 'col_rowid',
3642: x_ship_d_x_rowid);
3637: xProgress := 'SPSOB-50-1850';
3638: dbms_sql.bind_variable(v_ship_d_del_c1, 'col_rowid',x_ship_d_rowid);
3639:
3640: xProgress := 'SPSOB-50-1855';
3641: dbms_sql.bind_variable(v_ship_d_del_c2, 'col_rowid',
3642: x_ship_d_x_rowid);
3643: xProgress := 'SPSOB-50-1856';
3644: x_dummy := dbms_sql.execute(v_ship_d_del_c1);
3645:
3640: xProgress := 'SPSOB-50-1855';
3641: dbms_sql.bind_variable(v_ship_d_del_c2, 'col_rowid',
3642: x_ship_d_x_rowid);
3643: xProgress := 'SPSOB-50-1856';
3644: x_dummy := dbms_sql.execute(v_ship_d_del_c1);
3645:
3646: xProgress := 'SPSOB-50-1857';
3647: x_dummy := dbms_sql.execute(v_ship_d_del_c2);
3648:
3643: xProgress := 'SPSOB-50-1856';
3644: x_dummy := dbms_sql.execute(v_ship_d_del_c1);
3645:
3646: xProgress := 'SPSOB-50-1857';
3647: x_dummy := dbms_sql.execute(v_ship_d_del_c2);
3648:
3649: END LOOP;
3650: end if;
3651:
3652: --********************************
3653: --** Ship detail loop ends here **
3654: --********************************
3655: xProgress := 'SPSOB-50-1820';
3656: dbms_sql.bind_variable ( v_item_d_del_c1,
3657: 'col_rowid',
3658: x_item_d_rowid );
3659:
3660: xProgress := 'SPSOB-50-1830';
3657: 'col_rowid',
3658: x_item_d_rowid );
3659:
3660: xProgress := 'SPSOB-50-1830';
3661: dbms_sql.bind_variable ( v_item_d_del_c2,
3662: 'col_rowid',
3663: x_item_d_x_rowid );
3664:
3665: xProgress := 'SPSOB-50-1840';
3662: 'col_rowid',
3663: x_item_d_x_rowid );
3664:
3665: xProgress := 'SPSOB-50-1840';
3666: x_dummy := dbms_sql.execute ( v_item_d_del_c1 );
3667:
3668: xProgress := 'SPSOB-50-1850';
3669: x_dummy := dbms_sql.execute ( v_item_d_del_c2 );
3670:
3665: xProgress := 'SPSOB-50-1840';
3666: x_dummy := dbms_sql.execute ( v_item_d_del_c1 );
3667:
3668: xProgress := 'SPSOB-50-1850';
3669: x_dummy := dbms_sql.execute ( v_item_d_del_c2 );
3670:
3671: END LOOP;
3672:
3673: --********************************
3675: --********************************
3676:
3677:
3678: xProgress := 'SPSOB-50-1860';
3679: dbms_sql.bind_variable ( v_item_del_c1,
3680: 'col_rowid',
3681: x_item_rowid );
3682:
3683: xProgress := 'SPSOB-50-1870';
3680: 'col_rowid',
3681: x_item_rowid );
3682:
3683: xProgress := 'SPSOB-50-1870';
3684: dbms_sql.bind_variable ( v_item_del_c2,
3685: 'col_rowid',
3686: x_item_x_rowid );
3687:
3688: xProgress := 'SPSOB-50-1880';
3685: 'col_rowid',
3686: x_item_x_rowid );
3687:
3688: xProgress := 'SPSOB-50-1880';
3689: x_dummy := dbms_sql.execute ( v_item_del_c1 );
3690:
3691: xProgress := 'SPSOB-50-1890';
3692: x_dummy := dbms_sql.execute ( v_item_del_c2 );
3693:
3688: xProgress := 'SPSOB-50-1880';
3689: x_dummy := dbms_sql.execute ( v_item_del_c1 );
3690:
3691: xProgress := 'SPSOB-50-1890';
3692: x_dummy := dbms_sql.execute ( v_item_del_c2 );
3693:
3694: END LOOP;
3695:
3696: --***************************
3698: --***************************
3699:
3700:
3701: xProgress := 'SPSOB-50-1900';
3702: dbms_sql.bind_variable ( v_header_del_c1,
3703: 'col_rowid',
3704: x_header_rowid );
3705:
3706: xProgress := 'SPSOB-50-1910';
3703: 'col_rowid',
3704: x_header_rowid );
3705:
3706: xProgress := 'SPSOB-50-1910';
3707: dbms_sql.bind_variable ( v_header_del_c2,
3708: 'col_rowid',
3709: x_header_x_rowid );
3710:
3711: xProgress := 'SPSOB-50-1920';
3708: 'col_rowid',
3709: x_header_x_rowid );
3710:
3711: xProgress := 'SPSOB-50-1920';
3712: x_dummy := dbms_sql.execute ( v_header_del_c1 );
3713:
3714: xProgress := 'SPSOB-50-1930';
3715: x_dummy := dbms_sql.execute ( v_header_del_c2 );
3716:
3711: xProgress := 'SPSOB-50-1920';
3712: x_dummy := dbms_sql.execute ( v_header_del_c1 );
3713:
3714: xProgress := 'SPSOB-50-1930';
3715: x_dummy := dbms_sql.execute ( v_header_del_c2 );
3716:
3717: END LOOP;
3718:
3719: --*****************************
3720: --** header loop ends here **
3721: --*****************************
3722:
3723: xProgress := 'SPSOB-50-1940';
3724: dbms_sql.close_cursor ( v_header_sel_c );
3725:
3726: xProgress := 'SPSOB-50-1950';
3727: dbms_sql.close_cursor ( v_item_sel_c );
3728:
3723: xProgress := 'SPSOB-50-1940';
3724: dbms_sql.close_cursor ( v_header_sel_c );
3725:
3726: xProgress := 'SPSOB-50-1950';
3727: dbms_sql.close_cursor ( v_item_sel_c );
3728:
3729: xProgress := 'SPSOB-50-1960';
3730: dbms_sql.close_cursor ( v_item_d_sel_c );
3731:
3726: xProgress := 'SPSOB-50-1950';
3727: dbms_sql.close_cursor ( v_item_sel_c );
3728:
3729: xProgress := 'SPSOB-50-1960';
3730: dbms_sql.close_cursor ( v_item_d_sel_c );
3731:
3732: xProgress := 'SPSOB-50-1966';
3733: if (p_transaction_type = 'SSSO') then
3734: dbms_sql.close_cursor ( v_ship_d_sel_c );
3730: dbms_sql.close_cursor ( v_item_d_sel_c );
3731:
3732: xProgress := 'SPSOB-50-1966';
3733: if (p_transaction_type = 'SSSO') then
3734: dbms_sql.close_cursor ( v_ship_d_sel_c );
3735: end if;
3736:
3737: xProgress := 'SPSOB-50-1970';
3738: dbms_sql.close_cursor ( v_header_del_c1 );
3734: dbms_sql.close_cursor ( v_ship_d_sel_c );
3735: end if;
3736:
3737: xProgress := 'SPSOB-50-1970';
3738: dbms_sql.close_cursor ( v_header_del_c1 );
3739:
3740: xProgress := 'SPSOB-50-1980';
3741: dbms_sql.close_cursor ( v_item_del_c1 );
3742:
3737: xProgress := 'SPSOB-50-1970';
3738: dbms_sql.close_cursor ( v_header_del_c1 );
3739:
3740: xProgress := 'SPSOB-50-1980';
3741: dbms_sql.close_cursor ( v_item_del_c1 );
3742:
3743: xProgress := 'SPSOB-50-1990';
3744: dbms_sql.close_cursor ( v_item_d_del_c1 );
3745:
3740: xProgress := 'SPSOB-50-1980';
3741: dbms_sql.close_cursor ( v_item_del_c1 );
3742:
3743: xProgress := 'SPSOB-50-1990';
3744: dbms_sql.close_cursor ( v_item_d_del_c1 );
3745:
3746: xProgress := 'SPSOB-50-1990';
3747: if (p_transaction_type = 'SSSO') then
3748: dbms_sql.close_cursor ( v_ship_d_del_c1 );
3744: dbms_sql.close_cursor ( v_item_d_del_c1 );
3745:
3746: xProgress := 'SPSOB-50-1990';
3747: if (p_transaction_type = 'SSSO') then
3748: dbms_sql.close_cursor ( v_ship_d_del_c1 );
3749: end if;
3750:
3751: ec_debug.pop ( 'ece_spso_trans1.Put_Data_To_Output_Table' );
3752: