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
743: ---------------------------------
744: BEGIN
745:
746: --debug
747: if inv_pp_debug.is_debug_mode then
748: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
749: p_type_code);
750: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
751: end if;
744: BEGIN
745:
746: --debug
747: if inv_pp_debug.is_debug_mode then
748: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
749: p_type_code);
750: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
751: end if;
752:
746: --debug
747: if inv_pp_debug.is_debug_mode then
748: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
749: p_type_code);
750: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
751: end if;
752:
753: l_pkg_stmt_o := NULL;
754: l_pkg_stmt_f := NULL;
781:
782:
783: l_package_name := l_package_name || l_counter_str;
784:
785: if inv_pp_debug.is_debug_mode then
786: inv_pp_debug.send_long_to_pipe(' Package Name + counter ' ||
787: l_package_name);
788: end if;
789:
782:
783: l_package_name := l_package_name || l_counter_str;
784:
785: if inv_pp_debug.is_debug_mode then
786: inv_pp_debug.send_long_to_pipe(' Package Name + counter ' ||
787: l_package_name);
788: end if;
789:
790:
1108: END LOOP;
1109: END IF ;
1110:
1111:
1112: if inv_pp_debug.is_debug_mode then
1113: inv_pp_debug.send_long_to_pipe('l_rule_id: ' ||
1114: l_rule_id);
1115: end if;
1116:
1109: END IF ;
1110:
1111:
1112: if inv_pp_debug.is_debug_mode then
1113: inv_pp_debug.send_long_to_pipe('l_rule_id: ' ||
1114: l_rule_id);
1115: end if;
1116:
1117: IF (l_rule_id IS NOT NULL) THEN
1114: l_rule_id);
1115: end if;
1116:
1117: IF (l_rule_id IS NOT NULL) THEN
1118: --inv_pp_debug.send_long_to_pipe('l_rule_id NOT NULL ');
1119: l_endif_cl := '
1120: END IF;';
1121: --- Bug #3812503 ----
1122: IF (l_type_code = CG_TYPE and l_new_ctr = 3000 ) THEN
1131: l_endif_cl := ' NULL;';
1132: END IF;
1133:
1134: l_pkg_body_o := l_pkg_body_o || l_endif_cl || l_pkg_open_end ;
1135: --inv_pp_debug.send_long_to_pipe('l_pkg_body_o' || l_pkg_body_o);
1136:
1137: --gmi_reservation_util.println('GENPK , rule_cnt '||rule_cnt);
1138: IF ( rule_cnt >= 1) THEN
1139: j := j + 1;
1148: g_tbl_pkg_body(j) := g_tbl_pkg_body(j) || l_pkg_close_end;
1149: END IF;
1150: END IF;
1151:
1152: --inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c' || l_pkg_stmt_c);
1153: if inv_pp_debug.is_debug_mode then
1154: inv_pp_debug.send_long_to_pipe('BEFORE :Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1155: end if;
1156: --------------------------
1149: END IF;
1150: END IF;
1151:
1152: --inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c' || l_pkg_stmt_c);
1153: if inv_pp_debug.is_debug_mode then
1154: inv_pp_debug.send_long_to_pipe('BEFORE :Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1155: end if;
1156: --------------------------
1157:
1150: END IF;
1151:
1152: --inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c' || l_pkg_stmt_c);
1153: if inv_pp_debug.is_debug_mode then
1154: inv_pp_debug.send_long_to_pipe('BEFORE :Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1155: end if;
1156: --------------------------
1157:
1158: if inv_pp_debug.is_debug_mode then
1154: inv_pp_debug.send_long_to_pipe('BEFORE :Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1155: end if;
1156: --------------------------
1157:
1158: if inv_pp_debug.is_debug_mode then
1159: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
1160: p_type_code);
1161: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1162: end if;
1155: end if;
1156: --------------------------
1157:
1158: if inv_pp_debug.is_debug_mode then
1159: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
1160: p_type_code);
1161: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1162: end if;
1163:
1157:
1158: if inv_pp_debug.is_debug_mode then
1159: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL()...p_type_code: ' ||
1160: p_type_code);
1161: inv_pp_debug.send_long_to_pipe('Begin GenerateSQL : Package Code Type ' || p_pkg_type);
1162: end if;
1163:
1164: IF (p_pkg_type is null or p_pkg_type = 'S') then
1165: gmi_reservation_util.println('GENPK , building spec');
1163:
1164: IF (p_pkg_type is null or p_pkg_type = 'S') then
1165: gmi_reservation_util.println('GENPK , building spec');
1166:
1167: if inv_pp_debug.is_debug_mode then
1168: inv_pp_debug.send_long_to_pipe('Inside ... Spec for creating specs');
1169: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1170:
1171: end if;
1164: IF (p_pkg_type is null or p_pkg_type = 'S') then
1165: gmi_reservation_util.println('GENPK , building spec');
1166:
1167: if inv_pp_debug.is_debug_mode then
1168: inv_pp_debug.send_long_to_pipe('Inside ... Spec for creating specs');
1169: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1170:
1171: end if;
1172:
1165: gmi_reservation_util.println('GENPK , building spec');
1166:
1167: if inv_pp_debug.is_debug_mode then
1168: inv_pp_debug.send_long_to_pipe('Inside ... Spec for creating specs');
1169: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1170:
1171: end if;
1172:
1173: -- Initialize the global variables needed to build package
1175:
1176: -- Calls buildpackage
1177: BuildPackage(l_pkg_hdr_S);
1178: --debug
1179: if inv_pp_debug.is_debug_mode then
1180: inv_pp_debug.send_long_to_pipe('Calls CreatePackage() ...');
1181: end if;
1182: --create the package spec
1183: CreatePackage(x_return_status, l_package_name, FALSE);
1176: -- Calls buildpackage
1177: BuildPackage(l_pkg_hdr_S);
1178: --debug
1179: if inv_pp_debug.is_debug_mode then
1180: inv_pp_debug.send_long_to_pipe('Calls CreatePackage() ...');
1181: end if;
1182: --create the package spec
1183: CreatePackage(x_return_status, l_package_name, FALSE);
1184: if inv_pp_debug.is_debug_mode then
1180: inv_pp_debug.send_long_to_pipe('Calls CreatePackage() ...');
1181: end if;
1182: --create the package spec
1183: CreatePackage(x_return_status, l_package_name, FALSE);
1184: if inv_pp_debug.is_debug_mode then
1185: inv_pp_debug.send_long_to_pipe('x_return_status : '|| x_return_status);
1186: end if;
1187:
1188: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1181: end if;
1182: --create the package spec
1183: CreatePackage(x_return_status, l_package_name, FALSE);
1184: if inv_pp_debug.is_debug_mode then
1185: inv_pp_debug.send_long_to_pipe('x_return_status : '|| x_return_status);
1186: end if;
1187:
1188: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1189: RAISE fnd_api.g_exc_unexpected_error;
1193: END IF ;
1194: --------
1195: ---------
1196:
1197: if inv_pp_debug.is_debug_mode then
1198: inv_pp_debug.send_long_to_pipe('BEFORE ... Body for creating Body');
1199: inv_pp_debug.send_long_to_pipe('BEFORE' || p_pkg_type);
1200: end if;
1201:
1194: --------
1195: ---------
1196:
1197: if inv_pp_debug.is_debug_mode then
1198: inv_pp_debug.send_long_to_pipe('BEFORE ... Body for creating Body');
1199: inv_pp_debug.send_long_to_pipe('BEFORE' || p_pkg_type);
1200: end if;
1201:
1202: IF (p_pkg_type is null or p_pkg_type = 'B') then
1195: ---------
1196:
1197: if inv_pp_debug.is_debug_mode then
1198: inv_pp_debug.send_long_to_pipe('BEFORE ... Body for creating Body');
1199: inv_pp_debug.send_long_to_pipe('BEFORE' || p_pkg_type);
1200: end if;
1201:
1202: IF (p_pkg_type is null or p_pkg_type = 'B') then
1203:
1202: IF (p_pkg_type is null or p_pkg_type = 'B') then
1203:
1204: gmi_reservation_util.println('GENPK , building body');
1205:
1206: if inv_pp_debug.is_debug_mode then
1207: inv_pp_debug.send_long_to_pipe('Inside ... Body for creating Body');
1208: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1209: end if;
1210:
1203:
1204: gmi_reservation_util.println('GENPK , building body');
1205:
1206: if inv_pp_debug.is_debug_mode then
1207: inv_pp_debug.send_long_to_pipe('Inside ... Body for creating Body');
1208: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1209: end if;
1210:
1211: -- ---------------------------------
1204: gmi_reservation_util.println('GENPK , building body');
1205:
1206: if inv_pp_debug.is_debug_mode then
1207: inv_pp_debug.send_long_to_pipe('Inside ... Body for creating Body');
1208: inv_pp_debug.send_long_to_pipe('INSIDE' || p_pkg_type);
1209: end if;
1210:
1211: -- ---------------------------------
1212: -- Create Package Body
1213: -- ---------------------------------
1214: --re initialize global variables
1215: InitBuildPackage;
1216:
1217: if inv_pp_debug.is_debug_mode then
1218: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1219: l_pkg_hdr_B);
1220: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1221: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1214: --re initialize global variables
1215: InitBuildPackage;
1216:
1217: if inv_pp_debug.is_debug_mode then
1218: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1219: l_pkg_hdr_B);
1220: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1221: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1222: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c : ' || l_pkg_stmt_c);
1216:
1217: if inv_pp_debug.is_debug_mode then
1218: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1219: l_pkg_hdr_B);
1220: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1221: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1222: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c : ' || l_pkg_stmt_c);
1223: end if;
1224: BuildPackage(l_pkg_hdr_B);
1217: if inv_pp_debug.is_debug_mode then
1218: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1219: l_pkg_hdr_B);
1220: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1221: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1222: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c : ' || l_pkg_stmt_c);
1223: end if;
1224: BuildPackage(l_pkg_hdr_B);
1225: FOR i in 1..g_tbl_pkg_body.count loop
1218: inv_pp_debug.send_long_to_pipe('Call Build_Package() : ' ||
1219: l_pkg_hdr_B);
1220: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_o : ' || l_pkg_stmt_o);
1221: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_f : ' || l_pkg_stmt_f);
1222: inv_pp_debug.send_long_to_pipe('l_pkg_stmt_c : ' || l_pkg_stmt_c);
1223: end if;
1224: BuildPackage(l_pkg_hdr_B);
1225: FOR i in 1..g_tbl_pkg_body.count loop
1226: IF (g_tbl_pkg_body.EXISTS(i)) THEN
1292: BuildPackage(l_pkg_stmt_f);
1293: BuildPackage(l_pkg_stmt_c);
1294: */
1295: --debug
1296: if inv_pp_debug.is_debug_mode then
1297: inv_pp_debug.send_long_to_pipe('Call CreatePackage() for BODY ..');
1298: inv_pp_debug.send_long_to_pipe(l_package_name);
1299: end if;
1300: --create the package body
1293: BuildPackage(l_pkg_stmt_c);
1294: */
1295: --debug
1296: if inv_pp_debug.is_debug_mode then
1297: inv_pp_debug.send_long_to_pipe('Call CreatePackage() for BODY ..');
1298: inv_pp_debug.send_long_to_pipe(l_package_name);
1299: end if;
1300: --create the package body
1301: CreatePackage(x_return_status, l_package_name, FALSE);
1294: */
1295: --debug
1296: if inv_pp_debug.is_debug_mode then
1297: inv_pp_debug.send_long_to_pipe('Call CreatePackage() for BODY ..');
1298: inv_pp_debug.send_long_to_pipe(l_package_name);
1299: end if;
1300: --create the package body
1301: CreatePackage(x_return_status, l_package_name, FALSE);
1302:
1377: l_no_label_rules := get_rule_count(LABEL_TYPE);
1378: l_no_op_rules := get_rule_count(OP_TYPE);
1379: end if;
1380:
1381: if inv_pp_debug.is_debug_mode then
1382: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1383: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1384: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1385: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1378: l_no_op_rules := get_rule_count(OP_TYPE);
1379: end if;
1380:
1381: if inv_pp_debug.is_debug_mode then
1382: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1383: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1384: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1385: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1386: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1379: end if;
1380:
1381: if inv_pp_debug.is_debug_mode then
1382: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1383: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1384: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1385: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1386: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1387: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1380:
1381: if inv_pp_debug.is_debug_mode then
1382: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1383: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1384: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1385: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1386: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1387: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1388: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1381: if inv_pp_debug.is_debug_mode then
1382: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1383: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1384: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1385: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1386: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1387: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1388: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1389:
1382: inv_pp_debug.send_long_to_pipe('p_pick_code : ' || p_pick_code);
1383: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1384: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1385: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1386: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1387: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1388: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1389:
1390: end if;
1383: inv_pp_debug.send_long_to_pipe('p_put_code : ' || p_put_code);
1384: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1385: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1386: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1387: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1388: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1389:
1390: end if;
1391: --validate P parameters
1384: inv_pp_debug.send_long_to_pipe('p_task_code : ' || p_task_code);
1385: inv_pp_debug.send_long_to_pipe('p_label_code : ' || p_label_code);
1386: inv_pp_debug.send_long_to_pipe('p_CG_code : ' || p_CG_code);
1387: inv_pp_debug.send_long_to_pipe('p_OP_code : ' || p_OP_code);
1388: inv_pp_debug.send_long_to_pipe('Package Code Type ' || p_pkg_type);
1389:
1390: end if;
1391: --validate P parameters
1392: IF (p_pick_code IS NULL ) AND
1680: OPEN c1;
1681: fetch c1 into l_package_name_count;
1682: IF c1%NOTFOUND THEN
1683:
1684: if inv_pp_debug.is_debug_mode then
1685: inv_pp_debug.send_long_to_pipe('Get count not found' || P_RULE_TYPE);
1686: end if;
1687: -- return error;
1688: return(-1);
1681: fetch c1 into l_package_name_count;
1682: IF c1%NOTFOUND THEN
1683:
1684: if inv_pp_debug.is_debug_mode then
1685: inv_pp_debug.send_long_to_pipe('Get count not found' || P_RULE_TYPE);
1686: end if;
1687: -- return error;
1688: return(-1);
1689: ELSIF c1%FOUND THEN
1686: end if;
1687: -- return error;
1688: return(-1);
1689: ELSIF c1%FOUND THEN
1690: if inv_pp_debug.is_debug_mode then
1691: inv_pp_debug.send_long_to_pipe('Get count '|| l_package_name_count);
1692: end if;
1693: RETURN (l_package_name_count);
1694: END IF;
1687: -- return error;
1688: return(-1);
1689: ELSIF c1%FOUND THEN
1690: if inv_pp_debug.is_debug_mode then
1691: inv_pp_debug.send_long_to_pipe('Get count '|| l_package_name_count);
1692: end if;
1693: RETURN (l_package_name_count);
1694: END IF;
1695: CLOSE c1;
1698: IF c1%isopen THEN
1699: close c1;
1700: END IF;
1701:
1702: if inv_pp_debug.is_debug_mode then
1703: inv_pp_debug.send_long_to_pipe('Get count Excepttion '|| SQLERRM);
1704: end if;
1705: RETURN(-1);
1706: END get_count_with_lock;
1699: close c1;
1700: END IF;
1701:
1702: if inv_pp_debug.is_debug_mode then
1703: inv_pp_debug.send_long_to_pipe('Get count Excepttion '|| SQLERRM);
1704: end if;
1705: RETURN(-1);
1706: END get_count_with_lock;
1707: ----