[Home] [Help]
1: PACKAGE BODY oe_oe_form_line AS
2: /* $Header: OEXFLINB.pls 120.31.12020000.5 2013/04/01 09:21:42 srpasuma ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXFLINB.pls 120.31.12020000.5 2013/04/01 09:21:42 srpasuma ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'Oe_Oe_Form_Line';
7:
8: -- Global variables holding cached record.
9:
10: g_line_rec OE_Order_PUB.Line_Rec_Type;
86: --
87: BEGIN
88:
89: IF l_debug_level > 0 THEN
90: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.DEFAULT_ATTRIBUTES' , 1 ) ;
91: END IF;
92:
93: l_error := 1;
94: -- Set UI flag to TRUE
305: , p_data => x_msg_data
306: );
307:
308: IF l_debug_level > 0 THEN
309: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.DEFAULT_ATTRIBUTES' , 1 ) ;
310: END IF;
311:
312: EXCEPTION
313:
362:
363: PROCEDURE Copy_Attribute_To_Rec
364: ( p_attr_id IN NUMBER
365: , p_attr_value IN VARCHAR2
366: , p_line_dff_rec IN OE_OE_FORM_LINE.line_dff_rec_type
367: , p_date_format_mask IN VARCHAR2 DEFAULT 'DD-MON-YYYY HH24:MI:SS'
368: , x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
369: , x_old_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type
370: )
1150: , p_attr_id_tbl IN Number_Tbl_Type
1151: , p_attr_value_tbl IN Varchar2_Tbl_Type
1152: , p_reason IN VARCHAR2
1153: , p_comments IN VARCHAR2
1154: , p_line_dff_rec IN OE_OE_FORM_LINE.line_dff_rec_type
1155: , p_default_cache_line_rec IN OE_ORDER_PUB.Line_Rec_Type
1156: , p_date_format_mask IN VARCHAR2 DEFAULT 'DD-MON-YYYY HH24:MI:SS'
1157: , x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type
1158: , x_old_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type
1189: --bug16574638
1190: BEGIN
1191:
1192: IF l_debug_level > 0 THEN
1193: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.CHANGE_ATTRIBUTES' , 1 ) ;
1194: END IF;
1195:
1196: -- Set UI flag to TRUE
1197: OE_GLOBALS.G_UI_FLAG := TRUE;
2249: , p_data => x_msg_data
2250: );
2251:
2252: IF l_debug_level > 0 THEN
2253: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.CHANGE_ATTRIBUTE' , 1 ) ;
2254: END IF;
2255:
2256: EXCEPTION
2257:
2335:
2336: SAVEPOINT Line_Validate_And_Write;
2337:
2338: IF l_debug_level > 0 THEN
2339: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.VALIDATE_AND_WRITE' , 1 ) ;
2340: END IF;
2341:
2342: -- Set UI flag to TRUE
2343: OE_GLOBALS.G_UI_FLAG := TRUE;
2719: , p_data => x_msg_data
2720: );
2721:
2722: IF l_debug_level > 0 THEN
2723: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.VALIDATE_AND_WRITE' , 1 ) ;
2724: END IF;
2725:
2726:
2727: EXCEPTION
2827: --
2828: BEGIN
2829: SAVEPOINT LINE_DELETE;
2830: IF l_debug_level > 0 THEN
2831: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.DELETE_ROW' , 1 ) ;
2832: END IF;
2833:
2834: -- Set UI flag to TRUE
2835: OE_GLOBALS.G_UI_FLAG := TRUE;
2905: , p_data => x_msg_data
2906: );
2907:
2908: IF l_debug_level > 0 THEN
2909: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.DELETE_ROW' , 1 ) ;
2910: END IF;
2911:
2912: EXCEPTION
2913:
3001: --
3002: BEGIN
3003:
3004: IF l_debug_level > 0 THEN
3005: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.PROCESS_ENTITY' , 1 ) ;
3006: END IF;
3007:
3008: -- Set UI flag to TRUE
3009: OE_GLOBALS.G_UI_FLAG := TRUE;
3077: , p_data => x_msg_data
3078: );
3079:
3080: IF l_debug_level > 0 THEN
3081: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.PROCESS_ENTITY' , 1 ) ;
3082: END IF;
3083:
3084: EXCEPTION
3085:
3151: --
3152: BEGIN
3153:
3154: IF l_debug_level > 0 THEN
3155: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.LOCK_ROW' , 1 ) ;
3156: END IF;
3157:
3158: -- Load line record
3159:
3176: -- Set DB flag and write record to cache.
3177:
3178: l_x_line_rec.db_flag := FND_API.G_TRUE;
3179: IF l_debug_level > 0 THEN
3180: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.LOCK_ROW'||L_X_LINE_REC.LINE_ID , 1 ) ;
3181: END IF;
3182:
3183: Write_line
3184: ( p_line_rec => l_x_line_rec
3203: , p_data => x_msg_data
3204: );
3205:
3206: IF l_debug_level > 0 THEN
3207: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.LOCK_ROW' , 1 ) ;
3208: END IF;
3209:
3210: EXCEPTION
3211: WHEN FND_API.G_EXC_ERROR THEN
3269: --
3270: BEGIN
3271:
3272: IF l_debug_level > 0 THEN
3273: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.WRITE_LINE' , 1 ) ;
3274: END IF;
3275: g_line_rec := p_line_rec;
3276:
3277: IF p_db_record THEN
3280:
3281: END IF;
3282:
3283: IF l_debug_level > 0 THEN
3284: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.WRITE_LINE' , 1 ) ;
3285: END IF;
3286:
3287: END Write_Line;
3288:
3297: --
3298: BEGIN
3299:
3300: IF l_debug_level > 0 THEN
3301: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.GET_LINE'||P_LINE_ID , 1 ) ;
3302: END IF;
3303: --reverting back the fix made for bug 2103000 as the problem
3304: --is fixed in file OEXOEFRM.pld(version 115.251)
3305: --Fixes the issue reported in bug 2150247
3307: THEN
3308:
3309: -- Query row from DB
3310: IF l_debug_level > 0 THEN
3311: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.GET_LINE QUERY '||P_LINE_ID , 1 ) ;
3312: END IF;
3313:
3314: OE_Line_Util.Query_Row
3315: ( p_line_id => p_line_id,
3324:
3325: END IF;
3326:
3327: IF l_debug_level > 0 THEN
3328: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.GET_LINE' , 1 ) ;
3329: END IF;
3330:
3331: IF p_db_record THEN
3332: --Added for bug3911285
3352: --
3353: BEGIN
3354:
3355: IF l_debug_level > 0 THEN
3356: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.CLEAR_LINE' , 1 ) ;
3357: END IF;
3358:
3359: g_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
3360: g_db_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
3359: g_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
3360: g_db_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
3361:
3362: IF l_debug_level > 0 THEN
3363: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.CLEAR_LINE' , 1 ) ;
3364: END IF;
3365:
3366: END Clear_Line;
3367:
6693: OE_GLOBALS.G_CALCULATE_LINE_TOTAL := TRUE;
6694: END Reset_Calculate_line_Total;
6695: --for 5331980 end**
6696:
6697: END oe_oe_form_line;