[Home] [Help]
90: , x_pick_slip_number OUT NOCOPY NUMBER
91: , x_error_message OUT NOCOPY VARCHAR2
92: ) IS
93: BEGIN
94: SELECT wsh_pick_slip_numbers_s.NEXTVAL
95: INTO x_pick_slip_number
96: FROM DUAL;
97:
98: g_pskey_table(l_hash_value) := l_insert_key_rec;
402: -- Bug 2777688: Do not store the pick slip numbers generated when the l_limt value is 1
403: -- as we want to generate a new one for each line
404: -- Bug 5212435: Store the pick slip number even when limit is 1
405: IF (p_ps_mode = 'I' AND l_limit = 1) THEN
406: SELECT wsh_pick_slip_numbers_s.NEXTVAL
407: INTO x_pick_slip_number
408: FROM dual;
409: wsh_pr_pick_slip_number.g_print_ps_table(wsh_pr_pick_slip_number.g_print_ps_table.COUNT + 1) :=
410: x_pick_slip_number;
423:
424: IF ((l_found) AND (g_rule_table(l_rule_index).pick_method = g_cluster_pick_method)) THEN
425: /* Cluster Picking:
426: Do not store the pick slip numbers generated, as a new one is required for each line. */
427: SELECT wsh_pick_slip_numbers_s.NEXTVAL
428: INTO x_pick_slip_number
429: FROM DUAL;
430:
431: x_api_status := fnd_api.g_ret_sts_success;
470:
471: IF (g_rule_table(l_rule_index).pick_method = g_cluster_pick_method) THEN
472: /* Cluster Picking:
473: Do not store the pick slip numbers generated, as a new one is required for each line. */
474: SELECT wsh_pick_slip_numbers_s.NEXTVAL
475: INTO x_pick_slip_number
476: FROM DUAL;
477: ELSE
478: -- Generate a new PickSlip Number and Insert it for future use.
593: , x_pick_slip_number OUT NOCOPY NUMBER
594: , x_error_message OUT NOCOPY VARCHAR2
595: ) IS
596: BEGIN
597: SELECT wsh_pick_slip_numbers_s.NEXTVAL
598: INTO x_pick_slip_number
599: FROM DUAL;
600:
601: g_wip_pskey_table(l_hash_value) := l_insert_key_rec;
833:
834: IF ((l_found) AND (g_rule_table(l_rule_index).pick_method = g_cluster_pick_method)) THEN
835: /* Cluster Picking:
836: Do not store the pick slip numbers generated, as a new one is required for each line. */
837: SELECT wsh_pick_slip_numbers_s.NEXTVAL
838: INTO x_pick_slip_number
839: FROM DUAL;
840:
841: x_api_status := fnd_api.g_ret_sts_success;
873:
874: IF (g_rule_table(l_rule_index).pick_method = g_cluster_pick_method) THEN
875: /* Cluster Picking:
876: Do not store the pick slip numbers generated, as a new one is required for each line. */
877: SELECT wsh_pick_slip_numbers_s.NEXTVAL
878: INTO x_pick_slip_number
879: FROM DUAL;
880: ELSE
881: -- Generate a new PickSlip Number and Insert it for future use.
1251: ) VALUES ( mtl_pick_slip_numbers_s.nextval
1252: , l_batch_id
1253: , l_pick_slip_count
1254: , p_hash_string
1255: , wsh_pick_slip_numbers_s.nextval
1256: , l_pick_slip_status
1257: )
1258: RETURNING pick_slip_number
1259: INTO l_pick_slip_number;
1321: -- }
1322: END LOOP;
1323:
1324: IF (NOT l_success) AND l_pick_slip_number IS NULL THEN
1325: SELECT wsh_pick_slip_numbers_s.nextval
1326: INTO l_pick_slip_number
1327: FROM dual;
1328: l_pick_slip_status := 2;
1329: IF (l_debug = 1) THEN
1487: -- Set ready to print flag to FALSE initially
1488: x_ready_to_print := fnd_api.g_false;
1489:
1490: IF (p_ps_mode = 'I' AND l_limit = 1) THEN
1491: SELECT wsh_pick_slip_numbers_s.NEXTVAL
1492: INTO x_pick_slip_number
1493: FROM dual;
1494: wsh_pr_pick_slip_number.g_print_ps_table(wsh_pr_pick_slip_number.g_print_ps_table.COUNT + 1) :=
1495: x_pick_slip_number;
1535: g_rule_table(l_rule_index).grouping_rule_id := p_pick_grouping_rule_id;
1536: END IF;
1537:
1538: IF (g_rule_table(l_rule_index).pick_method = g_cluster_pick_method) THEN
1539: SELECT wsh_pick_slip_numbers_s.NEXTVAL
1540: INTO x_pick_slip_number
1541: FROM DUAL;
1542:
1543: x_api_status := fnd_api.g_ret_sts_success;