34: BEGIN
35:
36: X_progress := '010';
37:
38: X_rel_total := po_core_s.get_total('R', X_release_id,FALSE);
39:
40: /* Bug#2567391 : Replaced the following call which gets the release header
41: total with the above call to handle the rounding problem in running
42: total implementation. Commenting the following call
44: po_line_locations_pkg_s3.select_summary(X_release_id); */
45:
46:
47: --
48: PO_CORE_S.should_display_reserved(
49: p_doc_type => PO_CORE_S.g_doc_type_RELEASE
50: , p_doc_level => PO_CORE_S.g_doc_level_HEADER
51: , p_doc_level_id => x_release_id
52: , x_display_reserved_flag => x_encumbered_flag
45:
46:
47: --
48: PO_CORE_S.should_display_reserved(
49: p_doc_type => PO_CORE_S.g_doc_type_RELEASE
50: , p_doc_level => PO_CORE_S.g_doc_level_HEADER
51: , p_doc_level_id => x_release_id
52: , x_display_reserved_flag => x_encumbered_flag
53: );
46:
47: --
48: PO_CORE_S.should_display_reserved(
49: p_doc_type => PO_CORE_S.g_doc_type_RELEASE
50: , p_doc_level => PO_CORE_S.g_doc_level_HEADER
51: , p_doc_level_id => x_release_id
52: , x_display_reserved_flag => x_encumbered_flag
53: );
54:
53: );
54:
55:
56: IF (X_release_type = 'BLANKET') THEN
57: X_rel_total_2 := po_core_s.get_total('B', X_po_header_id);
58: ELSE
59: X_rel_total_2 := po_core_s.get_total('P', X_po_header_id);
60: END IF;
61:
55:
56: IF (X_release_type = 'BLANKET') THEN
57: X_rel_total_2 := po_core_s.get_total('B', X_po_header_id);
58: ELSE
59: X_rel_total_2 := po_core_s.get_total('P', X_po_header_id);
60: END IF;
61:
62: SELECT ship_via_lookup_code
63: INTO X_ship_via_lookup_code
88: NULL;
89: END;
90: END IF; --< if p_ship_to_org_id not null >
91:
92: PO_CORE_S.get_displayed_value
93: (x_lookup_type => 'AUTHORIZATION STATUS',
94: x_lookup_code => NVL(p_po_authorization_status,'INCOMPLETE'),
95: x_disp_value => x_agreement_status);
96:
94: x_lookup_code => NVL(p_po_authorization_status,'INCOMPLETE'),
95: x_disp_value => x_agreement_status);
96:
97: IF (p_freight_terms_lookup_code IS NOT NULL) THEN
98: PO_CORE_S.get_displayed_value
99: (x_lookup_type => 'FREIGHT TERMS',
100: x_lookup_code => p_freight_terms_lookup_code,
101: x_disp_value => x_freight_terms);
102: END IF;
101: x_disp_value => x_freight_terms);
102: END IF;
103:
104: IF (p_fob_lookup_code IS NOT NULL) THEN
105: PO_CORE_S.get_displayed_value
106: (x_lookup_type => 'FOB',
107: x_lookup_code => p_fob_lookup_code,
108: x_disp_value => x_fob);
109: END IF;
108: x_disp_value => x_fob);
109: END IF;
110:
111: IF (p_pay_on_code IS NOT NULL) THEN
112: PO_CORE_S.get_displayed_value
113: (x_lookup_type => 'PAY ON CODE',
114: x_lookup_code => p_pay_on_code,
115: x_disp_value => x_pay_on_dsp);
116: END IF;