7: -------------------------
8: -- Start of Bug 9131751
9: PROCEDURE Add_Manual_Modifier
10: (
11: p_x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type,
12: p_x_line_adj_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Adj_Tbl_Type,
13: x_ret_stat IN OUT NOCOPY VARCHAR2
14: )
15: IS
167: -- parameters.
168: --
169: PROCEDURE Add_Manual_Modifier_Obj
170: (
171: p_x_line_tbl_obj IN OUT NOCOPY OE_ORDER_PUB_LINE_TBL_TYPE,
172: p_x_line_adj_tbl_obj IN OUT NOCOPY OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
173: p_x_ret_stat IN OUT NOCOPY VARCHAR2
174: )
175: IS
172: p_x_line_adj_tbl_obj IN OUT NOCOPY OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
173: p_x_ret_stat IN OUT NOCOPY VARCHAR2
174: )
175: IS
176: l_line_tbl oe_order_pub.line_tbl_type;
177: l_line_adj_tbl oe_order_pub.line_adj_tbl_type;
178: BEGIN
179:
180: l_line_tbl := Oe_Inbound_Int.SQL_TO_PL12(p_x_line_tbl_obj);
3074:
3075: RETURN aPlsqlItem;
3076: END SQL_TO_PL35;
3077:
3078: FUNCTION PL_TO_SQL12(aPlsqlItem OE_ORDER_PUB.LINE_TBL_TYPE)
3079: RETURN OE_ORDER_PUB_LINE_TBL_TYPE IS
3080: aSqlItem OE_ORDER_PUB_LINE_TBL_TYPE;
3081: BEGIN
3082: aSqlItem := OE_ORDER_PUB_LINE_TBL_TYPE();
3075: RETURN aPlsqlItem;
3076: END SQL_TO_PL35;
3077:
3078: FUNCTION PL_TO_SQL12(aPlsqlItem OE_ORDER_PUB.LINE_TBL_TYPE)
3079: RETURN OE_ORDER_PUB_LINE_TBL_TYPE IS
3080: aSqlItem OE_ORDER_PUB_LINE_TBL_TYPE;
3081: BEGIN
3082: aSqlItem := OE_ORDER_PUB_LINE_TBL_TYPE();
3083: IF aPlsqlItem.COUNT > 0 THEN
3076: END SQL_TO_PL35;
3077:
3078: FUNCTION PL_TO_SQL12(aPlsqlItem OE_ORDER_PUB.LINE_TBL_TYPE)
3079: RETURN OE_ORDER_PUB_LINE_TBL_TYPE IS
3080: aSqlItem OE_ORDER_PUB_LINE_TBL_TYPE;
3081: BEGIN
3082: aSqlItem := OE_ORDER_PUB_LINE_TBL_TYPE();
3083: IF aPlsqlItem.COUNT > 0 THEN
3084: aSqlItem.EXTEND(aPlsqlItem.COUNT);
3078: FUNCTION PL_TO_SQL12(aPlsqlItem OE_ORDER_PUB.LINE_TBL_TYPE)
3079: RETURN OE_ORDER_PUB_LINE_TBL_TYPE IS
3080: aSqlItem OE_ORDER_PUB_LINE_TBL_TYPE;
3081: BEGIN
3082: aSqlItem := OE_ORDER_PUB_LINE_TBL_TYPE();
3083: IF aPlsqlItem.COUNT > 0 THEN
3084: aSqlItem.EXTEND(aPlsqlItem.COUNT);
3085: FOR I IN aPlsqlItem.FIRST..aPlsqlItem.LAST LOOP
3086: aSqlItem(I + 1 - aPlsqlItem.FIRST) := PL_TO_SQL35(aPlsqlItem(I));
3088: END IF;
3089: RETURN aSqlItem;
3090: END PL_TO_SQL12;
3091:
3092: FUNCTION SQL_TO_PL12(aSqlItem OE_ORDER_PUB_LINE_TBL_TYPE)
3093: RETURN OE_ORDER_PUB.LINE_TBL_TYPE IS
3094: aPlsqlItem OE_ORDER_PUB.LINE_TBL_TYPE;
3095: BEGIN
3096: BEGIN
3089: RETURN aSqlItem;
3090: END PL_TO_SQL12;
3091:
3092: FUNCTION SQL_TO_PL12(aSqlItem OE_ORDER_PUB_LINE_TBL_TYPE)
3093: RETURN OE_ORDER_PUB.LINE_TBL_TYPE IS
3094: aPlsqlItem OE_ORDER_PUB.LINE_TBL_TYPE;
3095: BEGIN
3096: BEGIN
3097: FOR I IN 1..aSqlItem.COUNT LOOP
3090: END PL_TO_SQL12;
3091:
3092: FUNCTION SQL_TO_PL12(aSqlItem OE_ORDER_PUB_LINE_TBL_TYPE)
3093: RETURN OE_ORDER_PUB.LINE_TBL_TYPE IS
3094: aPlsqlItem OE_ORDER_PUB.LINE_TBL_TYPE;
3095: BEGIN
3096: BEGIN
3097: FOR I IN 1..aSqlItem.COUNT LOOP
3098: oe_debug_pub.add('Inside SQL_TO_PL12', 1);
5007: P_HEADER_PAYMENT_TBL OE_ORDER_PUB_HEADER_PAYMENT_T,
5008: P_OLD_HEADER_PAYMENT_TBL OE_ORDER_PUB_HEADER_PAYMENT_T,
5009: P_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
5010: P_OLD_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
5011: P_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
5012: P_OLD_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
5013: P_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
5014: P_OLD_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
5015: P_LINE_ADJ_TBL OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
5008: P_OLD_HEADER_PAYMENT_TBL OE_ORDER_PUB_HEADER_PAYMENT_T,
5009: P_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
5010: P_OLD_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
5011: P_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
5012: P_OLD_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
5013: P_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
5014: P_OLD_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
5015: P_LINE_ADJ_TBL OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
5016: P_OLD_LINE_ADJ_TBL OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
5063: P_RTRIM_DATA VARCHAR2
5064: )
5065: IS
5066: l_header_rec_old OE_ORDER_PUB_HEADER_REC_TYPE;
5067: l_line_tab_old OE_ORDER_PUB_LINE_TBL_TYPE;
5068:
5069: l_in_line_tab OE_ORDER_PUB_LINE_TBL_TYPE;
5070: l_in_line_val_tab OE_ORDER_PUB_LINE_VAL_TBL_TYP;
5071:
5065: IS
5066: l_header_rec_old OE_ORDER_PUB_HEADER_REC_TYPE;
5067: l_line_tab_old OE_ORDER_PUB_LINE_TBL_TYPE;
5068:
5069: l_in_line_tab OE_ORDER_PUB_LINE_TBL_TYPE;
5070: l_in_line_val_tab OE_ORDER_PUB_LINE_VAL_TBL_TYP;
5071:
5072: l_action_request_tbl OE_ORDER_PUB_REQUEST_TBL_TYPE;
5073:
5154: -- Pre-Processing specific to O2C25 (for configuration items)
5155: -- If it is a model line and if the mode is UPDATE, just pass only the
5156: -- model line. Nothing else.
5157: --
5158: l_in_line_tab := Oe_Order_Pub_Line_Tbl_Type();
5159: l_in_line_val_tab := Oe_Order_Pub_Line_Val_Tbl_Typ();
5160: DECLARE
5161: l_line_reco OE_ORDER_PUB_LINE_REC_TYPE;
5162: l_line_val_reco OE_ORDER_PUB_LINE_VAL_REC_TYP;
5654: IF l_reprice_flag = 'Y' THEN
5655: oe_debug_pub.ADD(' Yes..... indeed it is required.');
5656: DECLARE
5657: repr_control_rec oe_globals.control_rec_type;
5658: repr_line_tbl oe_order_pub.line_tbl_type;
5659: repr_old_line_tbl oe_order_pub.line_tbl_type;
5660:
5661: repr_line_rec oe_order_pub.line_rec_type;
5662: repr_old_line_rec oe_order_pub.line_rec_type;
5655: oe_debug_pub.ADD(' Yes..... indeed it is required.');
5656: DECLARE
5657: repr_control_rec oe_globals.control_rec_type;
5658: repr_line_tbl oe_order_pub.line_tbl_type;
5659: repr_old_line_tbl oe_order_pub.line_tbl_type;
5660:
5661: repr_line_rec oe_order_pub.line_rec_type;
5662: repr_old_line_rec oe_order_pub.line_rec_type;
5663:
5793: P_HEADER_PAYMENT_TBL OE_ORDER_PUB_HEADER_PAYMENT_T,
5794: P_OLD_HEADER_PAYMENT_TBL OE_ORDER_PUB_HEADER_PAYMENT_T,
5795: P_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
5796: P_OLD_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
5797: P_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
5798: P_OLD_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
5799: P_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
5800: P_OLD_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
5801: P_LINE_ADJ_TBL OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
5794: P_OLD_HEADER_PAYMENT_TBL OE_ORDER_PUB_HEADER_PAYMENT_T,
5795: P_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
5796: P_OLD_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
5797: P_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
5798: P_OLD_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
5799: P_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
5800: P_OLD_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
5801: P_LINE_ADJ_TBL OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
5802: P_OLD_LINE_ADJ_TBL OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
5831: X_HEADER_SCREDIT_TBL OUT NOCOPY OE_ORDER_PUB_HEADER_SCREDIT_T ,
5832: X_HEADER_SCREDIT_VAL_TBL OUT NOCOPY OE_ORDER_PUB_HEADER_SCREDIT_V ,
5833: X_HEADER_PAYMENT_TBL OUT NOCOPY OE_ORDER_PUB_HEADER_PAYMENT_T ,
5834: X_HEADER_PAYMENT_VAL_TBL OUT NOCOPY OE_ORDER_PUB_HEADER_PAYMENT_V ,
5835: X_LINE_TBL OUT NOCOPY OE_ORDER_PUB_LINE_TBL_TYPE ,
5836: X_LINE_VAL_TBL OUT NOCOPY OE_ORDER_PUB_LINE_VAL_TBL_TYP ,
5837: X_LINE_ADJ_TBL OUT NOCOPY OE_ORDER_PUB_LINE_ADJ_TBL_TYP ,
5838: X_LINE_ADJ_VAL_TBL OUT NOCOPY OE_ORDER_PUB_LINE_ADJ_VAL_TBL ,
5839: X_LINE_PRICE_ATT_TBL OUT NOCOPY OE_ORDER_PUB_LINE_PRICE_ATT_T ,
5870: P_HEADER_PAYMENT_TBL_ OE_ORDER_PUB.HEADER_PAYMENT_TBL_TYPE;
5871: P_OLD_HEADER_PAYMENT_TBL_ OE_ORDER_PUB.HEADER_PAYMENT_TBL_TYPE;
5872: P_HEADER_PAYMENT_VAL_TBL_ OE_ORDER_PUB.HEADER_PAYMENT_VAL_TBL_TYPE;
5873: P_OLD_HEADER_PAYMENT_VAL_TBL_ OE_ORDER_PUB.HEADER_PAYMENT_VAL_TBL_TYPE;
5874: P_LINE_TBL_ OE_ORDER_PUB.LINE_TBL_TYPE;
5875: P_OLD_LINE_TBL_ OE_ORDER_PUB.LINE_TBL_TYPE;
5876: P_LINE_VAL_TBL_ OE_ORDER_PUB.LINE_VAL_TBL_TYPE;
5877: P_OLD_LINE_VAL_TBL_ OE_ORDER_PUB.LINE_VAL_TBL_TYPE;
5878: P_LINE_ADJ_TBL_ OE_ORDER_PUB.LINE_ADJ_TBL_TYPE;
5871: P_OLD_HEADER_PAYMENT_TBL_ OE_ORDER_PUB.HEADER_PAYMENT_TBL_TYPE;
5872: P_HEADER_PAYMENT_VAL_TBL_ OE_ORDER_PUB.HEADER_PAYMENT_VAL_TBL_TYPE;
5873: P_OLD_HEADER_PAYMENT_VAL_TBL_ OE_ORDER_PUB.HEADER_PAYMENT_VAL_TBL_TYPE;
5874: P_LINE_TBL_ OE_ORDER_PUB.LINE_TBL_TYPE;
5875: P_OLD_LINE_TBL_ OE_ORDER_PUB.LINE_TBL_TYPE;
5876: P_LINE_VAL_TBL_ OE_ORDER_PUB.LINE_VAL_TBL_TYPE;
5877: P_OLD_LINE_VAL_TBL_ OE_ORDER_PUB.LINE_VAL_TBL_TYPE;
5878: P_LINE_ADJ_TBL_ OE_ORDER_PUB.LINE_ADJ_TBL_TYPE;
5879: P_OLD_LINE_ADJ_TBL_ OE_ORDER_PUB.LINE_ADJ_TBL_TYPE;
5908: X_HEADER_SCREDIT_TBL_ OE_ORDER_PUB.HEADER_SCREDIT_TBL_TYPE;
5909: X_HEADER_SCREDIT_VAL_TBL_ OE_ORDER_PUB.HEADER_SCREDIT_VAL_TBL_TYPE;
5910: X_HEADER_PAYMENT_TBL_ OE_ORDER_PUB.HEADER_PAYMENT_TBL_TYPE;
5911: X_HEADER_PAYMENT_VAL_TBL_ OE_ORDER_PUB.HEADER_PAYMENT_VAL_TBL_TYPE;
5912: X_LINE_TBL_ OE_ORDER_PUB.LINE_TBL_TYPE;
5913: X_LINE_VAL_TBL_ OE_ORDER_PUB.LINE_VAL_TBL_TYPE;
5914: X_LINE_ADJ_TBL_ OE_ORDER_PUB.LINE_ADJ_TBL_TYPE;
5915: X_LINE_ADJ_VAL_TBL_ OE_ORDER_PUB.LINE_ADJ_VAL_TBL_TYPE;
5916: X_LINE_PRICE_ATT_TBL_ OE_ORDER_PUB.LINE_PRICE_ATT_TBL_TYPE;
6413: P_HEADER_PAYMENT_TBL OE_ORDER_PUB_HEADER_PAYMENT_T,
6414: P_OLD_HEADER_PAYMENT_TBL OE_ORDER_PUB_HEADER_PAYMENT_T,
6415: P_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
6416: P_OLD_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
6417: P_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
6418: P_OLD_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
6419: P_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
6420: P_OLD_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
6421: P_LINE_ADJ_TBL OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
6414: P_OLD_HEADER_PAYMENT_TBL OE_ORDER_PUB_HEADER_PAYMENT_T,
6415: P_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
6416: P_OLD_HEADER_PAYMENT_VAL_TBL OE_ORDER_PUB_HEADER_PAYMENT_V,
6417: P_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
6418: P_OLD_LINE_TBL OE_ORDER_PUB_LINE_TBL_TYPE,
6419: P_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
6420: P_OLD_LINE_VAL_TBL OE_ORDER_PUB_LINE_VAL_TBL_TYP,
6421: P_LINE_ADJ_TBL OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
6422: P_OLD_LINE_ADJ_TBL OE_ORDER_PUB_LINE_ADJ_TBL_TYP,
6451: X_HEADER_SCREDIT_TBL OUT NOCOPY OE_ORDER_PUB_HEADER_SCREDIT_T ,
6452: X_HEADER_SCREDIT_VAL_TBL OUT NOCOPY OE_ORDER_PUB_HEADER_SCREDIT_V ,
6453: X_HEADER_PAYMENT_TBL OUT NOCOPY OE_ORDER_PUB_HEADER_PAYMENT_T ,
6454: X_HEADER_PAYMENT_VAL_TBL OUT NOCOPY OE_ORDER_PUB_HEADER_PAYMENT_V ,
6455: X_LINE_TBL OUT NOCOPY OE_ORDER_PUB_LINE_TBL_TYPE ,
6456: X_LINE_VAL_TBL OUT NOCOPY OE_ORDER_PUB_LINE_VAL_TBL_TYP ,
6457: X_LINE_ADJ_TBL OUT NOCOPY OE_ORDER_PUB_LINE_ADJ_TBL_TYP ,
6458: X_LINE_ADJ_VAL_TBL OUT NOCOPY OE_ORDER_PUB_LINE_ADJ_VAL_TBL ,
6459: X_LINE_PRICE_ATT_TBL OUT NOCOPY OE_ORDER_PUB_LINE_PRICE_ATT_T ,