493:
494:
495: BEGIN
496:
497: IF (PO_LOG.d_proc) THEN
498: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
499: PO_LOG.proc_begin(d_module, 'p_row_identifier', p_row_identifier);
500: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
501: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
494:
495: BEGIN
496:
497: IF (PO_LOG.d_proc) THEN
498: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
499: PO_LOG.proc_begin(d_module, 'p_row_identifier', p_row_identifier);
500: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
501: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
502: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
495: BEGIN
496:
497: IF (PO_LOG.d_proc) THEN
498: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
499: PO_LOG.proc_begin(d_module, 'p_row_identifier', p_row_identifier);
500: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
501: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
502: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
503: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
496:
497: IF (PO_LOG.d_proc) THEN
498: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
499: PO_LOG.proc_begin(d_module, 'p_row_identifier', p_row_identifier);
500: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
501: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
502: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
503: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
504: PO_LOG.proc_begin(d_module, 'p_attr_group_name', p_attr_group_name);
497: IF (PO_LOG.d_proc) THEN
498: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
499: PO_LOG.proc_begin(d_module, 'p_row_identifier', p_row_identifier);
500: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
501: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
502: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
503: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
504: PO_LOG.proc_begin(d_module, 'p_attr_group_name', p_attr_group_name);
505: PO_LOG.proc_begin(d_module, 'p_attr_name', p_attr_name);
498: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
499: PO_LOG.proc_begin(d_module, 'p_row_identifier', p_row_identifier);
500: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
501: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
502: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
503: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
504: PO_LOG.proc_begin(d_module, 'p_attr_group_name', p_attr_group_name);
505: PO_LOG.proc_begin(d_module, 'p_attr_name', p_attr_name);
506: PO_LOG.proc_begin(d_module, 'p_data_level', p_data_level);
499: PO_LOG.proc_begin(d_module, 'p_row_identifier', p_row_identifier);
500: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
501: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
502: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
503: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
504: PO_LOG.proc_begin(d_module, 'p_attr_group_name', p_attr_group_name);
505: PO_LOG.proc_begin(d_module, 'p_attr_name', p_attr_name);
506: PO_LOG.proc_begin(d_module, 'p_data_level', p_data_level);
507: PO_LOG.proc_begin(d_module, 'p_mod_value', p_mod_value);
500: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
501: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
502: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
503: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
504: PO_LOG.proc_begin(d_module, 'p_attr_group_name', p_attr_group_name);
505: PO_LOG.proc_begin(d_module, 'p_attr_name', p_attr_name);
506: PO_LOG.proc_begin(d_module, 'p_data_level', p_data_level);
507: PO_LOG.proc_begin(d_module, 'p_mod_value', p_mod_value);
508: END IF;
501: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
502: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
503: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
504: PO_LOG.proc_begin(d_module, 'p_attr_group_name', p_attr_group_name);
505: PO_LOG.proc_begin(d_module, 'p_attr_name', p_attr_name);
506: PO_LOG.proc_begin(d_module, 'p_data_level', p_data_level);
507: PO_LOG.proc_begin(d_module, 'p_mod_value', p_mod_value);
508: END IF;
509:
502: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
503: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
504: PO_LOG.proc_begin(d_module, 'p_attr_group_name', p_attr_group_name);
505: PO_LOG.proc_begin(d_module, 'p_attr_name', p_attr_name);
506: PO_LOG.proc_begin(d_module, 'p_data_level', p_data_level);
507: PO_LOG.proc_begin(d_module, 'p_mod_value', p_mod_value);
508: END IF;
509:
510: d_position := 0;
503: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
504: PO_LOG.proc_begin(d_module, 'p_attr_group_name', p_attr_group_name);
505: PO_LOG.proc_begin(d_module, 'p_attr_name', p_attr_name);
506: PO_LOG.proc_begin(d_module, 'p_data_level', p_data_level);
507: PO_LOG.proc_begin(d_module, 'p_mod_value', p_mod_value);
508: END IF;
509:
510: d_position := 0;
511:
519: AND eav.attr_group_type = p_attr_group_type;
520:
521: d_position := 10;
522:
523: IF PO_LOG.d_stmt THEN
524: PO_LOG.stmt(d_module,d_position,'l_attr_display_name',l_attr_display_name);
525: PO_LOG.stmt(d_module,d_position,'l_attr_group_id',l_attr_group_id);
526: PO_LOG.stmt(d_module,d_position,'l_data_type_code',l_data_type_code);
527: END IF;
520:
521: d_position := 10;
522:
523: IF PO_LOG.d_stmt THEN
524: PO_LOG.stmt(d_module,d_position,'l_attr_display_name',l_attr_display_name);
525: PO_LOG.stmt(d_module,d_position,'l_attr_group_id',l_attr_group_id);
526: PO_LOG.stmt(d_module,d_position,'l_data_type_code',l_data_type_code);
527: END IF;
528:
521: d_position := 10;
522:
523: IF PO_LOG.d_stmt THEN
524: PO_LOG.stmt(d_module,d_position,'l_attr_display_name',l_attr_display_name);
525: PO_LOG.stmt(d_module,d_position,'l_attr_group_id',l_attr_group_id);
526: PO_LOG.stmt(d_module,d_position,'l_data_type_code',l_data_type_code);
527: END IF;
528:
529: IF l_data_type_code = 'N'
522:
523: IF PO_LOG.d_stmt THEN
524: PO_LOG.stmt(d_module,d_position,'l_attr_display_name',l_attr_display_name);
525: PO_LOG.stmt(d_module,d_position,'l_attr_group_id',l_attr_group_id);
526: PO_LOG.stmt(d_module,d_position,'l_data_type_code',l_data_type_code);
527: END IF;
528:
529: IF l_data_type_code = 'N'
530: THEN
548: END IF;
549:
550: d_position := 20;
551:
552: IF PO_LOG.d_stmt THEN
553: PO_LOG.stmt(d_module,d_position,'l_attr_value_str',l_attr_value_str);
554: PO_LOG.stmt(d_module,d_position,'l_attr_value_num',l_attr_value_num);
555: PO_LOG.stmt(d_module,d_position,'l_attr_value_date',l_attr_value_date);
556: END IF;
549:
550: d_position := 20;
551:
552: IF PO_LOG.d_stmt THEN
553: PO_LOG.stmt(d_module,d_position,'l_attr_value_str',l_attr_value_str);
554: PO_LOG.stmt(d_module,d_position,'l_attr_value_num',l_attr_value_num);
555: PO_LOG.stmt(d_module,d_position,'l_attr_value_date',l_attr_value_date);
556: END IF;
557:
550: d_position := 20;
551:
552: IF PO_LOG.d_stmt THEN
553: PO_LOG.stmt(d_module,d_position,'l_attr_value_str',l_attr_value_str);
554: PO_LOG.stmt(d_module,d_position,'l_attr_value_num',l_attr_value_num);
555: PO_LOG.stmt(d_module,d_position,'l_attr_value_date',l_attr_value_date);
556: END IF;
557:
558:
551:
552: IF PO_LOG.d_stmt THEN
553: PO_LOG.stmt(d_module,d_position,'l_attr_value_str',l_attr_value_str);
554: PO_LOG.stmt(d_module,d_position,'l_attr_value_num',l_attr_value_num);
555: PO_LOG.stmt(d_module,d_position,'l_attr_value_date',l_attr_value_date);
556: END IF;
557:
558:
559: INSERT INTO po_uda_interface
627: d_position NUMBER ;
628:
629: BEGIN
630:
631: IF (PO_LOG.d_proc) THEN
632: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
633: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
634: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
635: PO_LOG.proc_begin(d_module, 'p_attr_display_name', p_attr_display_name);
628:
629: BEGIN
630:
631: IF (PO_LOG.d_proc) THEN
632: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
633: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
634: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
635: PO_LOG.proc_begin(d_module, 'p_attr_display_name', p_attr_display_name);
636: END IF;
629: BEGIN
630:
631: IF (PO_LOG.d_proc) THEN
632: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
633: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
634: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
635: PO_LOG.proc_begin(d_module, 'p_attr_display_name', p_attr_display_name);
636: END IF;
637:
630:
631: IF (PO_LOG.d_proc) THEN
632: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
633: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
634: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
635: PO_LOG.proc_begin(d_module, 'p_attr_display_name', p_attr_display_name);
636: END IF;
637:
638: SELECT DISTINCT eav.attr_group_type|| To_Char( eagv.attr_group_id)|| To_Char(eav.attr_id) ||'LOVDisp'
631: IF (PO_LOG.d_proc) THEN
632: PO_LOG.proc_begin(d_module, 'p_attr_group_type', p_attr_group_type);
633: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
634: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
635: PO_LOG.proc_begin(d_module, 'p_attr_display_name', p_attr_display_name);
636: END IF;
637:
638: SELECT DISTINCT eav.attr_group_type|| To_Char( eagv.attr_group_id)|| To_Char(eav.attr_id) ||'LOVDisp'
639: BULK collect
708: l_row_identifier NUMBER;
709:
710: BEGIN
711:
712: IF (PO_LOG.d_proc) THEN
713: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
714: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
715: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
716: PO_LOG.proc_begin(d_module, 'p_mod_doc_source_name', p_mod_doc_source_name);
709:
710: BEGIN
711:
712: IF (PO_LOG.d_proc) THEN
713: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
714: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
715: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
716: PO_LOG.proc_begin(d_module, 'p_mod_doc_source_name', p_mod_doc_source_name);
717: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
710: BEGIN
711:
712: IF (PO_LOG.d_proc) THEN
713: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
714: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
715: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
716: PO_LOG.proc_begin(d_module, 'p_mod_doc_source_name', p_mod_doc_source_name);
717: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
718: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
711:
712: IF (PO_LOG.d_proc) THEN
713: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
714: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
715: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
716: PO_LOG.proc_begin(d_module, 'p_mod_doc_source_name', p_mod_doc_source_name);
717: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
718: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
719: PO_LOG.proc_begin(d_module, 'p_header_id', p_header_id);
712: IF (PO_LOG.d_proc) THEN
713: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
714: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
715: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
716: PO_LOG.proc_begin(d_module, 'p_mod_doc_source_name', p_mod_doc_source_name);
717: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
718: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
719: PO_LOG.proc_begin(d_module, 'p_header_id', p_header_id);
720: END IF;
713: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
714: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
715: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
716: PO_LOG.proc_begin(d_module, 'p_mod_doc_source_name', p_mod_doc_source_name);
717: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
718: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
719: PO_LOG.proc_begin(d_module, 'p_header_id', p_header_id);
720: END IF;
721:
714: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
715: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
716: PO_LOG.proc_begin(d_module, 'p_mod_doc_source_name', p_mod_doc_source_name);
717: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
718: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
719: PO_LOG.proc_begin(d_module, 'p_header_id', p_header_id);
720: END IF;
721:
722: po_gen_diff_pkg.mod_pk1 := p_header_id;
715: PO_LOG.proc_begin(d_module, 'p_pk1_value', p_pk1_value);
716: PO_LOG.proc_begin(d_module, 'p_mod_doc_source_name', p_mod_doc_source_name);
717: PO_LOG.proc_begin(d_module, 'p_transaction_id', p_transaction_id);
718: PO_LOG.proc_begin(d_module, 'p_uda_template_id', p_uda_template_id);
719: PO_LOG.proc_begin(d_module, 'p_header_id', p_header_id);
720: END IF;
721:
722: po_gen_diff_pkg.mod_pk1 := p_header_id;
723: po_gen_diff_pkg.mod_pk2 := p_par_draft_id;
744: END IF;
745:
746: d_position :=10;
747:
748: IF PO_LOG.d_stmt THEN
749: PO_LOG.stmt(d_module,d_position,'l_attr_group_type ',l_attr_group_type);
750: PO_LOG.stmt(d_module,d_position,'l_data_level ',l_data_level);
751: END IF;
752:
745:
746: d_position :=10;
747:
748: IF PO_LOG.d_stmt THEN
749: PO_LOG.stmt(d_module,d_position,'l_attr_group_type ',l_attr_group_type);
750: PO_LOG.stmt(d_module,d_position,'l_data_level ',l_data_level);
751: END IF;
752:
753:
746: d_position :=10;
747:
748: IF PO_LOG.d_stmt THEN
749: PO_LOG.stmt(d_module,d_position,'l_attr_group_type ',l_attr_group_type);
750: PO_LOG.stmt(d_module,d_position,'l_data_level ',l_data_level);
751: END IF;
752:
753:
754:
771: FOR i IN 1..l_address_type_tbl.Count() LOOP
772:
773: l_row_identifier_add:= PO_UDA_INTERFACE_S.NEXTVAL;
774:
775: IF PO_LOG.d_stmt THEN
776: PO_LOG.stmt(d_module,d_position,'l_address_type_tbl '||i||' is ',l_address_type_tbl(i));
777: PO_LOG.stmt(d_module,d_position,'l_row_identifier ',l_row_identifier);
778: END IF;
779:
772:
773: l_row_identifier_add:= PO_UDA_INTERFACE_S.NEXTVAL;
774:
775: IF PO_LOG.d_stmt THEN
776: PO_LOG.stmt(d_module,d_position,'l_address_type_tbl '||i||' is ',l_address_type_tbl(i));
777: PO_LOG.stmt(d_module,d_position,'l_row_identifier ',l_row_identifier);
778: END IF;
779:
780: SELECT SubStr(column_name, InStr(column_name, Chr(0))+1) attr_name, mod_value
773: l_row_identifier_add:= PO_UDA_INTERFACE_S.NEXTVAL;
774:
775: IF PO_LOG.d_stmt THEN
776: PO_LOG.stmt(d_module,d_position,'l_address_type_tbl '||i||' is ',l_address_type_tbl(i));
777: PO_LOG.stmt(d_module,d_position,'l_row_identifier ',l_row_identifier);
778: END IF;
779:
780: SELECT SubStr(column_name, InStr(column_name, Chr(0))+1) attr_name, mod_value
781: BULK COLLECT INTO
812: WHERE attr_group_type = l_attr_group_type
813: AND attr_name =l_attr_name
814: AND ATTR_GROUP_NAME = 'addresses';
815:
816: IF PO_LOG.d_stmt THEN
817: PO_LOG.stmt(d_module,d_position,'l_value_set of '||l_attr_group_type||' and '||l_attr_group_type||' is ',l_value_set);
818: END IF;
819: EXCEPTION
820: WHEN no_data_found THEN
813: AND attr_name =l_attr_name
814: AND ATTR_GROUP_NAME = 'addresses';
815:
816: IF PO_LOG.d_stmt THEN
817: PO_LOG.stmt(d_module,d_position,'l_value_set of '||l_attr_group_type||' and '||l_attr_group_type||' is ',l_value_set);
818: END IF;
819: EXCEPTION
820: WHEN no_data_found THEN
821: NULL;
1159: l_par_distribution_id_tbl po_tbl_number := NULL;
1160:
1161: BEGIN
1162:
1163: IF (PO_LOG.d_proc) THEN
1164: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1165: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id_tbl);
1166: END IF;
1167:
1160:
1161: BEGIN
1162:
1163: IF (PO_LOG.d_proc) THEN
1164: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1165: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id_tbl);
1166: END IF;
1167:
1168: IF p_par_line_tbl IS NOT NULL THEN
1161: BEGIN
1162:
1163: IF (PO_LOG.d_proc) THEN
1164: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1165: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id_tbl);
1166: END IF;
1167:
1168: IF p_par_line_tbl IS NOT NULL THEN
1169:
1168: IF p_par_line_tbl IS NOT NULL THEN
1169:
1170: FOR i IN 1..p_par_line_tbl.Count() LOOP
1171:
1172: IF (po_log.d_stmt) THEN
1173: po_log.stmt (d_module, 10, 'p_par_line_tbl '|| p_par_line_tbl(i) );
1174: END IF;
1175:
1176: IF p_par_line_tbl(i) IS NOT NULL THEN
1169:
1170: FOR i IN 1..p_par_line_tbl.Count() LOOP
1171:
1172: IF (po_log.d_stmt) THEN
1173: po_log.stmt (d_module, 10, 'p_par_line_tbl '|| p_par_line_tbl(i) );
1174: END IF;
1175:
1176: IF p_par_line_tbl(i) IS NOT NULL THEN
1177: UPDATE po_lines_draft_all
1269:
1270: BEGIN
1271:
1272: l_return_type := 'Y';
1273: IF (PO_LOG.d_proc) THEN
1274: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1275: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
1276: END IF;
1277:
1270: BEGIN
1271:
1272: l_return_type := 'Y';
1273: IF (PO_LOG.d_proc) THEN
1274: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1275: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
1276: END IF;
1277:
1278: --If some changes are made to complex pricing attributes of a Mod Line, and in PAR/web-service the complex pricing structure is changed,
1271:
1272: l_return_type := 'Y';
1273: IF (PO_LOG.d_proc) THEN
1274: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1275: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
1276: END IF;
1277:
1278: --If some changes are made to complex pricing attributes of a Mod Line, and in PAR/web-service the complex pricing structure is changed,
1279: --then an error should be thrown - changes are incompatible. Similarly, if complex pricing structure is already changed in Mod Line,
1299: WHEN No_Data_Found THEN
1300: l_return_type := 'Y';
1301: END;
1302:
1303: IF (PO_LOG.d_proc) THEN
1304: PO_LOG.proc_begin(d_module, 'l_return_type', l_return_type);
1305: END IF ;
1306:
1307: X_RETURN_TYPE := l_return_type;
1300: l_return_type := 'Y';
1301: END;
1302:
1303: IF (PO_LOG.d_proc) THEN
1304: PO_LOG.proc_begin(d_module, 'l_return_type', l_return_type);
1305: END IF ;
1306:
1307: X_RETURN_TYPE := l_return_type;
1308: END COMPLEX_PRICING_VALIDATION;
1336: d_module CONSTANT VARCHAR2(100) := g_pkg_name || d_api_name || '.';
1337:
1338: BEGIN
1339:
1340: IF (PO_LOG.d_proc) THEN
1341: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
1342: PO_LOG.proc_begin(d_module, 'p_par_line_id', p_par_line_id);
1343: PO_LOG.proc_begin(d_module, 'p_mod_line_id', p_mod_line_id);
1344: END IF;
1337:
1338: BEGIN
1339:
1340: IF (PO_LOG.d_proc) THEN
1341: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
1342: PO_LOG.proc_begin(d_module, 'p_par_line_id', p_par_line_id);
1343: PO_LOG.proc_begin(d_module, 'p_mod_line_id', p_mod_line_id);
1344: END IF;
1345:
1338: BEGIN
1339:
1340: IF (PO_LOG.d_proc) THEN
1341: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
1342: PO_LOG.proc_begin(d_module, 'p_par_line_id', p_par_line_id);
1343: PO_LOG.proc_begin(d_module, 'p_mod_line_id', p_mod_line_id);
1344: END IF;
1345:
1346: UPDATE po_lines_draft_all
1339:
1340: IF (PO_LOG.d_proc) THEN
1341: PO_LOG.proc_begin(d_module, 'p_par_draft_id', p_par_draft_id);
1342: PO_LOG.proc_begin(d_module, 'p_par_line_id', p_par_line_id);
1343: PO_LOG.proc_begin(d_module, 'p_mod_line_id', p_mod_line_id);
1344: END IF;
1345:
1346: UPDATE po_lines_draft_all
1347: SET mod_line_id = p_mod_line_id
1347: SET mod_line_id = p_mod_line_id
1348: WHERE po_line_id = p_par_line_id
1349: AND draft_id = p_par_draft_id;
1350:
1351: IF (po_log.d_stmt) THEN
1352: po_log.stmt (d_module, 10, 'No of lines updated : ' || sql%rowcount );
1353: END IF;
1354:
1355: END UPDATE_MOD_LINE_ID;
1348: WHERE po_line_id = p_par_line_id
1349: AND draft_id = p_par_draft_id;
1350:
1351: IF (po_log.d_stmt) THEN
1352: po_log.stmt (d_module, 10, 'No of lines updated : ' || sql%rowcount );
1353: END IF;
1354:
1355: END UPDATE_MOD_LINE_ID;
1356:
1395: d_module CONSTANT VARCHAR2(100) := g_pkg_name || d_api_name || '.';
1396:
1397: BEGIN
1398:
1399: IF (PO_LOG.d_proc) THEN
1400: PO_LOG.proc_begin(d_module, 'p_par_draft_id_tbl', p_par_draft_id_tbl);
1401: PO_LOG.proc_begin(d_module, 'p_par_line_id_tbl', p_par_line_id_tbl);
1402: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1403: END IF;
1396:
1397: BEGIN
1398:
1399: IF (PO_LOG.d_proc) THEN
1400: PO_LOG.proc_begin(d_module, 'p_par_draft_id_tbl', p_par_draft_id_tbl);
1401: PO_LOG.proc_begin(d_module, 'p_par_line_id_tbl', p_par_line_id_tbl);
1402: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1403: END IF;
1404:
1397: BEGIN
1398:
1399: IF (PO_LOG.d_proc) THEN
1400: PO_LOG.proc_begin(d_module, 'p_par_draft_id_tbl', p_par_draft_id_tbl);
1401: PO_LOG.proc_begin(d_module, 'p_par_line_id_tbl', p_par_line_id_tbl);
1402: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1403: END IF;
1404:
1405: --Fetch the header Id
1398:
1399: IF (PO_LOG.d_proc) THEN
1400: PO_LOG.proc_begin(d_module, 'p_par_draft_id_tbl', p_par_draft_id_tbl);
1401: PO_LOG.proc_begin(d_module, 'p_par_line_id_tbl', p_par_line_id_tbl);
1402: PO_LOG.proc_begin(d_module, 'p_mod_draft_id', p_mod_draft_id);
1403: END IF;
1404:
1405: --Fetch the header Id
1406: SELECT document_id
1408: FROM po_drafts
1409: WHERE draft_id = p_mod_draft_id;
1410:
1411:
1412: IF (po_log.d_stmt) THEN
1413: po_log.stmt (d_module, 1, 'l_po_header_id '|| l_po_header_id );
1414: END IF;
1415:
1416:
1409: WHERE draft_id = p_mod_draft_id;
1410:
1411:
1412: IF (po_log.d_stmt) THEN
1413: po_log.stmt (d_module, 1, 'l_po_header_id '|| l_po_header_id );
1414: END IF;
1415:
1416:
1417: --Copy all header attachments
1449: END LOOP;
1450:
1451: --Copy all line attachments
1452:
1453: IF (po_log.d_stmt) THEN
1454: po_log.stmt (d_module, 5, 'No of Lines '|| p_par_line_id_tbl.count );
1455: po_log.stmt (d_module, 10, 'Processing of line level attachments - START');
1456: END IF;
1457:
1450:
1451: --Copy all line attachments
1452:
1453: IF (po_log.d_stmt) THEN
1454: po_log.stmt (d_module, 5, 'No of Lines '|| p_par_line_id_tbl.count );
1455: po_log.stmt (d_module, 10, 'Processing of line level attachments - START');
1456: END IF;
1457:
1458: --Iterate through each line and copy line and shipment level attachments
1451: --Copy all line attachments
1452:
1453: IF (po_log.d_stmt) THEN
1454: po_log.stmt (d_module, 5, 'No of Lines '|| p_par_line_id_tbl.count );
1455: po_log.stmt (d_module, 10, 'Processing of line level attachments - START');
1456: END IF;
1457:
1458: --Iterate through each line and copy line and shipment level attachments
1459: FOR i IN 1..p_par_line_id_tbl.Count LOOP
1461: IF p_par_line_id_tbl(i) IS NOT NULL THEN
1462:
1463: l_attach_count := get_attachment_count(p_par_line_id_tbl(i), p_par_draft_id_tbl(i), 'PO_LINES') ;
1464:
1465: IF (po_log.d_stmt) THEN
1466: po_log.stmt (d_module, 20, 'Po Line Id is '|| p_par_line_id_tbl(i) );
1467: po_log.stmt (d_module, 30, 'Attachment count is '|| l_attach_count);
1468: END IF;
1469:
1462:
1463: l_attach_count := get_attachment_count(p_par_line_id_tbl(i), p_par_draft_id_tbl(i), 'PO_LINES') ;
1464:
1465: IF (po_log.d_stmt) THEN
1466: po_log.stmt (d_module, 20, 'Po Line Id is '|| p_par_line_id_tbl(i) );
1467: po_log.stmt (d_module, 30, 'Attachment count is '|| l_attach_count);
1468: END IF;
1469:
1470: IF l_attach_count <> 0
1463: l_attach_count := get_attachment_count(p_par_line_id_tbl(i), p_par_draft_id_tbl(i), 'PO_LINES') ;
1464:
1465: IF (po_log.d_stmt) THEN
1466: po_log.stmt (d_module, 20, 'Po Line Id is '|| p_par_line_id_tbl(i) );
1467: po_log.stmt (d_module, 30, 'Attachment count is '|| l_attach_count);
1468: END IF;
1469:
1470: IF l_attach_count <> 0
1471: THEN
1474: FROM po_lines_draft_all
1475: WHERE draft_id =p_par_draft_id_tbl(i)
1476: AND po_line_id = p_par_line_id_tbl(i);
1477:
1478: IF (po_log.d_stmt) THEN
1479: po_log.stmt (d_module, 40, 'l_mod_line_id is '|| l_mod_line_id );
1480: END IF;
1481:
1482: --In case of new line or when there are changes on a line other than attachemnts , mod_line_id
1475: WHERE draft_id =p_par_draft_id_tbl(i)
1476: AND po_line_id = p_par_line_id_tbl(i);
1477:
1478: IF (po_log.d_stmt) THEN
1479: po_log.stmt (d_module, 40, 'l_mod_line_id is '|| l_mod_line_id );
1480: END IF;
1481:
1482: --In case of new line or when there are changes on a line other than attachemnts , mod_line_id
1483: -- is stamped.
1525: END IF;
1526: END IF;
1527: END IF;
1528:
1529: IF (po_log.d_stmt) THEN
1530: po_log.stmt (d_module, 50, 'Processing of line level attachments - END');
1531: END IF;
1532:
1533: --Copy shipments related attachmnets
1526: END IF;
1527: END IF;
1528:
1529: IF (po_log.d_stmt) THEN
1530: po_log.stmt (d_module, 50, 'Processing of line level attachments - END');
1531: END IF;
1532:
1533: --Copy shipments related attachmnets
1534:
1531: END IF;
1532:
1533: --Copy shipments related attachmnets
1534:
1535: IF (po_log.d_stmt) THEN
1536: po_log.stmt (d_module, 60, 'Processing of shipment level attachments - START');
1537: END IF;
1538:
1539: -- Start with shipments that are updated
1532:
1533: --Copy shipments related attachmnets
1534:
1535: IF (po_log.d_stmt) THEN
1536: po_log.stmt (d_module, 60, 'Processing of shipment level attachments - START');
1537: END IF;
1538:
1539: -- Start with shipments that are updated
1540: for shipments_rec in fetch_line_location_ids(p_par_line_id_tbl(i), p_par_draft_id_tbl(i), 'UPDATE') LOOP
1539: -- Start with shipments that are updated
1540: for shipments_rec in fetch_line_location_ids(p_par_line_id_tbl(i), p_par_draft_id_tbl(i), 'UPDATE') LOOP
1541:
1542: l_attach_count := get_attachment_count(shipments_rec.line_location_id, p_par_draft_id_tbl(i), 'PO_SHIPMENTS');
1543: IF (po_log.d_stmt) THEN
1544: po_log.stmt (d_module, 80, 'Line Location Id is '|| shipments_rec.line_location_id);
1545: po_log.stmt (d_module, 90, 'Attachment count is '|| l_attach_count);
1546: END IF;
1547:
1540: for shipments_rec in fetch_line_location_ids(p_par_line_id_tbl(i), p_par_draft_id_tbl(i), 'UPDATE') LOOP
1541:
1542: l_attach_count := get_attachment_count(shipments_rec.line_location_id, p_par_draft_id_tbl(i), 'PO_SHIPMENTS');
1543: IF (po_log.d_stmt) THEN
1544: po_log.stmt (d_module, 80, 'Line Location Id is '|| shipments_rec.line_location_id);
1545: po_log.stmt (d_module, 90, 'Attachment count is '|| l_attach_count);
1546: END IF;
1547:
1548: IF get_attachment_count(shipments_rec.line_location_id, p_par_draft_id_tbl(i), 'PO_SHIPMENTS') <> 0
1541:
1542: l_attach_count := get_attachment_count(shipments_rec.line_location_id, p_par_draft_id_tbl(i), 'PO_SHIPMENTS');
1543: IF (po_log.d_stmt) THEN
1544: po_log.stmt (d_module, 80, 'Line Location Id is '|| shipments_rec.line_location_id);
1545: po_log.stmt (d_module, 90, 'Attachment count is '|| l_attach_count);
1546: END IF;
1547:
1548: IF get_attachment_count(shipments_rec.line_location_id, p_par_draft_id_tbl(i), 'PO_SHIPMENTS') <> 0
1549: THEN
1571:
1572: -- New shipments
1573: for shipments_rec in fetch_line_location_ids(p_par_line_id_tbl(i), p_par_draft_id_tbl(i), 'NEW') LOOP
1574: l_attach_count := get_attachment_count(shipments_rec.line_location_id, p_par_draft_id_tbl(i), 'PO_SHIPMENTS');
1575: IF (po_log.d_stmt) THEN
1576: po_log.stmt (d_module, 110, 'Line Location Id is '|| shipments_rec.line_location_id);
1577: po_log.stmt (d_module, 120, 'Attachment count is '|| l_attach_count);
1578: END IF;
1579:
1572: -- New shipments
1573: for shipments_rec in fetch_line_location_ids(p_par_line_id_tbl(i), p_par_draft_id_tbl(i), 'NEW') LOOP
1574: l_attach_count := get_attachment_count(shipments_rec.line_location_id, p_par_draft_id_tbl(i), 'PO_SHIPMENTS');
1575: IF (po_log.d_stmt) THEN
1576: po_log.stmt (d_module, 110, 'Line Location Id is '|| shipments_rec.line_location_id);
1577: po_log.stmt (d_module, 120, 'Attachment count is '|| l_attach_count);
1578: END IF;
1579:
1580: IF l_attach_count <> 0 THEN
1573: for shipments_rec in fetch_line_location_ids(p_par_line_id_tbl(i), p_par_draft_id_tbl(i), 'NEW') LOOP
1574: l_attach_count := get_attachment_count(shipments_rec.line_location_id, p_par_draft_id_tbl(i), 'PO_SHIPMENTS');
1575: IF (po_log.d_stmt) THEN
1576: po_log.stmt (d_module, 110, 'Line Location Id is '|| shipments_rec.line_location_id);
1577: po_log.stmt (d_module, 120, 'Attachment count is '|| l_attach_count);
1578: END IF;
1579:
1580: IF l_attach_count <> 0 THEN
1581: BEGIN
1595: WHEN No_Data_Found
1596: THEN NULL;
1597: END;
1598:
1599: IF (po_log.d_stmt) THEN
1600: po_log.stmt (d_module, 130, 'Line Location Id on the modifictaion is '|| l_mod_line_location_id);
1601: END IF;
1602:
1603: IF l_mod_line_location_id IS NOT NULL THEN
1596: THEN NULL;
1597: END;
1598:
1599: IF (po_log.d_stmt) THEN
1600: po_log.stmt (d_module, 130, 'Line Location Id on the modifictaion is '|| l_mod_line_location_id);
1601: END IF;
1602:
1603: IF l_mod_line_location_id IS NOT NULL THEN
1604: fnd_attached_documents2_pkg.copy_attachments('PO_SHIPMENTS',
1658: d_module CONSTANT VARCHAR2(100) := g_pkg_name || d_api_name || '.';
1659:
1660: BEGIN
1661:
1662: IF (PO_LOG.d_proc) THEN
1663: PO_LOG.proc_begin(d_module, 'p_pk1_value ', p_pk1_value);
1664: PO_LOG.proc_begin(d_module, 'p_po_draft_id ', p_po_draft_id);
1665: PO_LOG.proc_begin(d_module, 'p_entity_name ', p_entity_name);
1666: END IF;
1659:
1660: BEGIN
1661:
1662: IF (PO_LOG.d_proc) THEN
1663: PO_LOG.proc_begin(d_module, 'p_pk1_value ', p_pk1_value);
1664: PO_LOG.proc_begin(d_module, 'p_po_draft_id ', p_po_draft_id);
1665: PO_LOG.proc_begin(d_module, 'p_entity_name ', p_entity_name);
1666: END IF;
1667:
1660: BEGIN
1661:
1662: IF (PO_LOG.d_proc) THEN
1663: PO_LOG.proc_begin(d_module, 'p_pk1_value ', p_pk1_value);
1664: PO_LOG.proc_begin(d_module, 'p_po_draft_id ', p_po_draft_id);
1665: PO_LOG.proc_begin(d_module, 'p_entity_name ', p_entity_name);
1666: END IF;
1667:
1668:
1661:
1662: IF (PO_LOG.d_proc) THEN
1663: PO_LOG.proc_begin(d_module, 'p_pk1_value ', p_pk1_value);
1664: PO_LOG.proc_begin(d_module, 'p_po_draft_id ', p_po_draft_id);
1665: PO_LOG.proc_begin(d_module, 'p_entity_name ', p_entity_name);
1666: END IF;
1667:
1668:
1669: SELECT Count(*) INTO l_count
1670: FROM FND_ATTACHED_DOCUMENTS
1671: WHERE entity_name = p_entity_name
1672: AND pk1_value = p_pk1_value||'-'|| p_po_draft_id ;
1673:
1674: IF (po_log.d_stmt) THEN
1675: po_log.stmt (d_module, 10, 'Count is is '|| l_count);
1676: END IF;
1677:
1678: RETURN l_count;
1671: WHERE entity_name = p_entity_name
1672: AND pk1_value = p_pk1_value||'-'|| p_po_draft_id ;
1673:
1674: IF (po_log.d_stmt) THEN
1675: po_log.stmt (d_module, 10, 'Count is is '|| l_count);
1676: END IF;
1677:
1678: RETURN l_count;
1679: