1: PACKAGE BODY AMS_MANUAL_LIST_GEN AS
2: /* $Header: amsvlmlb.pls 120.3.12010000.2 2008/08/11 08:52:06 amlal ship $ */
3:
4: g_list_header_id ams_list_headers_all.list_header_id%type;
5: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
6: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
7: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
8:
74:
75: /* batoleti. Bug# 6688996. Added the below cursor */
76: CURSOR cur_get_created_by (x_list_header_id IN NUMBER) IS
77: SELECT created_by
78: FROM ams_list_headers_all
79: WHERE list_header_id= x_list_header_id;
80:
81:
82: begin
377: --- manual entries changes added: musman
378: cursor c_get_max_entries
379: is
380: select no_of_rows_max_requested - no_of_rows_active
381: from ams_list_headers_all
382: where list_header_id = p_list_header_id ;
383:
384: l_no_of_chunks number;
385: l_master_type_id number;
629: */
630:
631: SELECT nvl(no_of_rows_min_requested,0)
632: INTO l_min_rows
633: FROM ams_list_headers_all
634: WHERE list_header_id = p_list_header_id;
635:
636: if l_min_rows > l_no_of_rows_active then
637: l_new_status := 'DRAFT';
640: l_new_status := 'AVAILABLE';
641: l_new_status_id := 303;
642: end if;
643: /* bug:4467062 fix:musman
644: update ams_list_headers_all
645: set no_of_rows_in_list = l_no_of_rows_in_list,
646: no_of_rows_active = l_no_of_rows_active,
647: no_of_rows_inactive = l_no_of_rows_inactive,
648: no_of_rows_in_ctrl_group = l_no_of_rows_in_ctrl_group,
672: );
673:
674: l_no_of_rows_duplicated := sql%rowcount;
675:
676: /*update ams_list_headers_all
677: set no_of_rows_in_list = no_of_rows_in_list + x_added_entry_count,
678: no_of_rows_active = no_of_rows_active + x_added_entry_count,
679: no_of_rows_manually_entered = no_of_rows_manually_entered + x_added_entry_count,
680: status_code = l_new_status,
683: WHERE list_header_id = p_list_header_id; */
684:
685: --Update active rows/duplicate records count based on the no. of rows duplicated.
686:
687: update ams_list_headers_all
688: set no_of_rows_in_list = no_of_rows_in_list + x_added_entry_count,
689: no_of_rows_active = no_of_rows_active + x_added_entry_count - l_no_of_rows_duplicated ,
690: no_of_rows_manually_entered = no_of_rows_manually_entered + x_added_entry_count,
691: status_code = l_new_status,
846:
847: /* batoleti. Bug# 6688996. Added the below cursor */
848: CURSOR cur_get_created_by (x_list_header_id IN NUMBER) IS
849: SELECT created_by
850: FROM ams_list_headers_all
851: WHERE list_header_id= x_list_header_id;
852:
853:
854: BEGIN
961:
962:
963: SELECT nvl(no_of_rows_min_requested,0)
964: INTO l_min_rows
965: FROM ams_list_headers_all
966: WHERE list_header_id = p_list_header_id;
967:
968: if l_min_rows > l_no_of_rows_active then
969: l_new_status := 'DRAFT';
971: else
972: l_new_status := 'AVAILABLE';
973: l_new_status_id := 303;
974: end if;
975: update ams_list_headers_all
976: set no_of_rows_in_list = l_no_of_rows_in_list,
977: no_of_rows_active = l_no_of_rows_active,
978: no_of_rows_inactive = l_no_of_rows_inactive,
979: no_of_rows_in_ctrl_group = l_no_of_rows_in_ctrl_group,