58: l_row NUMBER;
59:
60: BEGIN
61: --debug
62: if inv_pp_debug.is_debug_mode then
63: inv_pp_debug.send_long_to_pipe('Build_Package(). '|| p_package_string);
64: end if;
65:
66: l_cur_start := 1;
59:
60: BEGIN
61: --debug
62: if inv_pp_debug.is_debug_mode then
63: inv_pp_debug.send_long_to_pipe('Build_Package(). '|| p_package_string);
64: end if;
65:
66: l_cur_start := 1;
67: -- get last filled row of table
736: ---------------------------------
737: BEGIN
738:
739: --debug
740: if inv_pp_debug.is_debug_mode then
741: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
742: p_type_code);
743: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
744: end if;
737: BEGIN
738:
739: --debug
740: if inv_pp_debug.is_debug_mode then
741: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
742: p_type_code);
743: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
744: end if;
745:
739: --debug
740: if inv_pp_debug.is_debug_mode then
741: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
742: p_type_code);
743: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
744: end if;
745:
746: l_pkg_stmt_o := NULL;
747: l_pkg_stmt_f := NULL;
774:
775:
776: l_package_name := l_package_name || l_counter_str;
777:
778: if inv_pp_debug.is_debug_mode then
779: inv_pp_debug.send_long_to_pipe(' Package Name + counter ' ||
780: l_package_name);
781: end if;
782:
775:
776: l_package_name := l_package_name || l_counter_str;
777:
778: if inv_pp_debug.is_debug_mode then
779: inv_pp_debug.send_long_to_pipe(' Package Name + counter ' ||
780: l_package_name);
781: end if;
782:
783:
1101: END LOOP;
1102: END IF ;
1103:
1104:
1105: if inv_pp_debug.is_debug_mode then
1106: inv_pp_debug.send_long_to_pipe('l_rule_id: ' ||
1107: l_rule_id);
1108: end if;
1109:
1102: END IF ;
1103:
1104:
1105: if inv_pp_debug.is_debug_mode then
1106: inv_pp_debug.send_long_to_pipe('l_rule_id: ' ||
1107: l_rule_id);
1108: end if;
1109:
1110: IF (l_rule_id IS NOT NULL) THEN
1107: l_rule_id);
1108: end if;
1109:
1110: IF (l_rule_id IS NOT NULL) THEN
1111: --inv_pp_debug.send_long_to_pipe('l_rule_id NOT NULL ');
1112: l_endif_cl := '
1113: END IF;';
1114: --- Bug #3812503 ----
1115: IF (l_type_code = CG_TYPE and l_new_ctr = 3000 ) THEN
1124: l_endif_cl := ' NULL;';
1125: END IF;
1126:
1127: l_pkg_body_o := l_pkg_body_o || l_endif_cl || l_pkg_open_end ;
1128: --inv_pp_debug.send_long_to_pipe('l_pkg_body_o' || l_pkg_body_o);
1129:
1130: --gmi_reservation_util.println('GENPK , rule_cnt '||rule_cnt);
1131: IF ( rule_cnt >= 1) THEN
1132: j := j + 1;
1141: g_tbl_pkg_body(j) := g_tbl_pkg_body(j) || l_pkg_close_end;
1142: END IF;
1143: END IF;
1144:
1145: --inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c' || l_pkg_stmt_c);
1146: if inv_pp_debug.is_debug_mode then
1147: inv_pp_debug.send_long_to_pipe('BEFORE :Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1148: end if;
1149: --------------------------
1142: END IF;
1143: END IF;
1144:
1145: --inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c' || l_pkg_stmt_c);
1146: if inv_pp_debug.is_debug_mode then
1147: inv_pp_debug.send_long_to_pipe('BEFORE :Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1148: end if;
1149: --------------------------
1150:
1143: END IF;
1144:
1145: --inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c' || l_pkg_stmt_c);
1146: if inv_pp_debug.is_debug_mode then
1147: inv_pp_debug.send_long_to_pipe('BEFORE :Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1148: end if;
1149: --------------------------
1150:
1151: if inv_pp_debug.is_debug_mode then
1147: inv_pp_debug.send_long_to_pipe('BEFORE :Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1148: end if;
1149: --------------------------
1150:
1151: if inv_pp_debug.is_debug_mode then
1152: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
1153: p_type_code);
1154: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1155: end if;
1148: end if;
1149: --------------------------
1150:
1151: if inv_pp_debug.is_debug_mode then
1152: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
1153: p_type_code);
1154: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1155: end if;
1156:
1150:
1151: if inv_pp_debug.is_debug_mode then
1152: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
1153: p_type_code);
1154: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1155: end if;
1156:
1157: IF (p_pkg_type is null or p_pkg_type = 'S') then
1158: gmi_reservation_util.println('GENPK , building spec');
1156:
1157: IF (p_pkg_type is null or p_pkg_type = 'S') then
1158: gmi_reservation_util.println('GENPK , building spec');
1159:
1160: if inv_pp_debug.is_debug_mode then
1161: inv_pp_debug.send_long_to_pipe('Inside ... Spec for creating specs');
1162: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1163:
1164: end if;
1157: IF (p_pkg_type is null or p_pkg_type = 'S') then
1158: gmi_reservation_util.println('GENPK , building spec');
1159:
1160: if inv_pp_debug.is_debug_mode then
1161: inv_pp_debug.send_long_to_pipe('Inside ... Spec for creating specs');
1162: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1163:
1164: end if;
1165:
1158: gmi_reservation_util.println('GENPK , building spec');
1159:
1160: if inv_pp_debug.is_debug_mode then
1161: inv_pp_debug.send_long_to_pipe('Inside ... Spec for creating specs');
1162: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1163:
1164: end if;
1165:
1166: -- Initialize the global variables needed to build package
1168:
1169: -- Calls buildpackage
1170: BuildPackage(l_pkg_hdr_S);
1171: --debug
1172: if inv_pp_debug.is_debug_mode then
1173: inv_pp_debug.send_long_to_pipe('Calls CreatePackage() ...');
1174: end if;
1175: --create the package spec
1176: CreatePackage(x_return_status, l_package_name, FALSE);
1169: -- Calls buildpackage
1170: BuildPackage(l_pkg_hdr_S);
1171: --debug
1172: if inv_pp_debug.is_debug_mode then
1173: inv_pp_debug.send_long_to_pipe('Calls CreatePackage() ...');
1174: end if;
1175: --create the package spec
1176: CreatePackage(x_return_status, l_package_name, FALSE);
1177: if inv_pp_debug.is_debug_mode then
1173: inv_pp_debug.send_long_to_pipe('Calls CreatePackage() ...');
1174: end if;
1175: --create the package spec
1176: CreatePackage(x_return_status, l_package_name, FALSE);
1177: if inv_pp_debug.is_debug_mode then
1178: inv_pp_debug.send_long_to_pipe('x_return_status : '|| x_return_status);
1179: end if;
1180:
1181: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1174: end if;
1175: --create the package spec
1176: CreatePackage(x_return_status, l_package_name, FALSE);
1177: if inv_pp_debug.is_debug_mode then
1178: inv_pp_debug.send_long_to_pipe('x_return_status : '|| x_return_status);
1179: end if;
1180:
1181: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1182: RAISE fnd_api.g_exc_unexpected_error;
1186: END IF ;
1187: --------
1188: ---------
1189:
1190: if inv_pp_debug.is_debug_mode then
1191: inv_pp_debug.send_long_to_pipe('BEFORE ... Body for creating Body');
1192: inv_pp_debug.send_long_to_pipe('BEFORE' || p_pkg_type);
1193: end if;
1194:
1187: --------
1188: ---------
1189:
1190: if inv_pp_debug.is_debug_mode then
1191: inv_pp_debug.send_long_to_pipe('BEFORE ... Body for creating Body');
1192: inv_pp_debug.send_long_to_pipe('BEFORE' || p_pkg_type);
1193: end if;
1194:
1195: IF (p_pkg_type is null or p_pkg_type = 'B') then
1188: ---------
1189:
1190: if inv_pp_debug.is_debug_mode then
1191: inv_pp_debug.send_long_to_pipe('BEFORE ... Body for creating Body');
1192: inv_pp_debug.send_long_to_pipe('BEFORE' || p_pkg_type);
1193: end if;
1194:
1195: IF (p_pkg_type is null or p_pkg_type = 'B') then
1196:
1195: IF (p_pkg_type is null or p_pkg_type = 'B') then
1196:
1197: gmi_reservation_util.println('GENPK , building body');
1198:
1199: if inv_pp_debug.is_debug_mode then
1200: inv_pp_debug.send_long_to_pipe('Inside ... Body for creating Body');
1201: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1202: end if;
1203:
1196:
1197: gmi_reservation_util.println('GENPK , building body');
1198:
1199: if inv_pp_debug.is_debug_mode then
1200: inv_pp_debug.send_long_to_pipe('Inside ... Body for creating Body');
1201: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1202: end if;
1203:
1204: -- ---------------------------------
1197: gmi_reservation_util.println('GENPK , building body');
1198:
1199: if inv_pp_debug.is_debug_mode then
1200: inv_pp_debug.send_long_to_pipe('Inside ... Body for creating Body');
1201: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1202: end if;
1203:
1204: -- ---------------------------------
1205: -- Create Package Body
1206: -- ---------------------------------
1207: --re initialize global variables
1208: InitBuildPackage;
1209:
1210: if inv_pp_debug.is_debug_mode then
1211: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1212: l_pkg_hdr_B);
1213: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1214: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1207: --re initialize global variables
1208: InitBuildPackage;
1209:
1210: if inv_pp_debug.is_debug_mode then
1211: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1212: l_pkg_hdr_B);
1213: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1214: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1215: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c : ' || l_pkg_stmt_c);
1209:
1210: if inv_pp_debug.is_debug_mode then
1211: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1212: l_pkg_hdr_B);
1213: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1214: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1215: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c : ' || l_pkg_stmt_c);
1216: end if;
1217: BuildPackage(l_pkg_hdr_B);
1210: if inv_pp_debug.is_debug_mode then
1211: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1212: l_pkg_hdr_B);
1213: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1214: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1215: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c : ' || l_pkg_stmt_c);
1216: end if;
1217: BuildPackage(l_pkg_hdr_B);
1218: FOR i in 1..g_tbl_pkg_body.count loop
1211: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1212: l_pkg_hdr_B);
1213: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1214: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1215: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c : ' || l_pkg_stmt_c);
1216: end if;
1217: BuildPackage(l_pkg_hdr_B);
1218: FOR i in 1..g_tbl_pkg_body.count loop
1219: IF (g_tbl_pkg_body.EXISTS(i)) THEN
1285: BuildPackage(l_pkg_stmt_f);
1286: BuildPackage(l_pkg_stmt_c);
1287: */
1288: --debug
1289: if inv_pp_debug.is_debug_mode then
1290: inv_pp_debug.send_long_to_pipe('Call CreatePackage() for BODY ..');
1291: inv_pp_debug.send_long_to_pipe(l_package_name);
1292: end if;
1293: --create the package body
1286: BuildPackage(l_pkg_stmt_c);
1287: */
1288: --debug
1289: if inv_pp_debug.is_debug_mode then
1290: inv_pp_debug.send_long_to_pipe('Call CreatePackage() for BODY ..');
1291: inv_pp_debug.send_long_to_pipe(l_package_name);
1292: end if;
1293: --create the package body
1294: CreatePackage(x_return_status, l_package_name, FALSE);
1287: */
1288: --debug
1289: if inv_pp_debug.is_debug_mode then
1290: inv_pp_debug.send_long_to_pipe('Call CreatePackage() for BODY ..');
1291: inv_pp_debug.send_long_to_pipe(l_package_name);
1292: end if;
1293: --create the package body
1294: CreatePackage(x_return_status, l_package_name, FALSE);
1295:
1370: l_no_label_rules := get_rule_count(LABEL_TYPE);
1371: l_no_op_rules := get_rule_count(OP_TYPE);
1372: end if;
1373:
1374: if inv_pp_debug.is_debug_mode then
1375: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1376: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1377: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1378: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1371: l_no_op_rules := get_rule_count(OP_TYPE);
1372: end if;
1373:
1374: if inv_pp_debug.is_debug_mode then
1375: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1376: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1377: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1378: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1379: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1372: end if;
1373:
1374: if inv_pp_debug.is_debug_mode then
1375: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1376: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1377: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1378: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1379: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1380: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1373:
1374: if inv_pp_debug.is_debug_mode then
1375: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1376: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1377: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1378: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1379: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1380: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1381: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1374: if inv_pp_debug.is_debug_mode then
1375: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1376: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1377: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1378: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1379: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1380: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1381: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1382:
1375: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1376: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1377: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1378: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1379: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1380: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1381: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1382:
1383: end if;
1376: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1377: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1378: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1379: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1380: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1381: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1382:
1383: end if;
1384: --validate P parameters
1377: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1378: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1379: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1380: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1381: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1382:
1383: end if;
1384: --validate P parameters
1385: IF (p_pick_code IS NULL ) AND
1673: OPEN c1;
1674: fetch c1 into l_package_name_count;
1675: IF c1%NOTFOUND THEN
1676:
1677: if inv_pp_debug.is_debug_mode then
1678: inv_pp_debug.send_long_to_pipe('Get count not found' || P_RULE_TYPE);
1679: end if;
1680: -- return error;
1681: return(-1);
1674: fetch c1 into l_package_name_count;
1675: IF c1%NOTFOUND THEN
1676:
1677: if inv_pp_debug.is_debug_mode then
1678: inv_pp_debug.send_long_to_pipe('Get count not found' || P_RULE_TYPE);
1679: end if;
1680: -- return error;
1681: return(-1);
1682: ELSIF c1%FOUND THEN
1679: end if;
1680: -- return error;
1681: return(-1);
1682: ELSIF c1%FOUND THEN
1683: if inv_pp_debug.is_debug_mode then
1684: inv_pp_debug.send_long_to_pipe('Get count '|| l_package_name_count);
1685: end if;
1686: RETURN (l_package_name_count);
1687: END IF;
1680: -- return error;
1681: return(-1);
1682: ELSIF c1%FOUND THEN
1683: if inv_pp_debug.is_debug_mode then
1684: inv_pp_debug.send_long_to_pipe('Get count '|| l_package_name_count);
1685: end if;
1686: RETURN (l_package_name_count);
1687: END IF;
1688: CLOSE c1;
1691: IF c1%isopen THEN
1692: close c1;
1693: END IF;
1694:
1695: if inv_pp_debug.is_debug_mode then
1696: inv_pp_debug.send_long_to_pipe('Get count Excepttion '|| SQLERRM);
1697: end if;
1698: RETURN(-1);
1699: END get_count_with_lock;
1692: close c1;
1693: END IF;
1694:
1695: if inv_pp_debug.is_debug_mode then
1696: inv_pp_debug.send_long_to_pipe('Get count Excepttion '|| SQLERRM);
1697: end if;
1698: RETURN(-1);
1699: END get_count_with_lock;
1700: ----