[Home] [Help]
1: PACKAGE BODY oe_oe_form_line AS
2: /* $Header: OEXFLINB.pls 120.20.12010000.5 2009/01/22 09:10:35 cpati ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXFLINB.pls 120.20.12010000.5 2009/01/22 09:10:35 cpati 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;
79: --
80: BEGIN
81:
82: IF l_debug_level > 0 THEN
83: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.DEFAULT_ATTRIBUTES' , 1 ) ;
84: END IF;
85:
86: l_error := 1;
87: -- Set UI flag to TRUE
298: , p_data => x_msg_data
299: );
300:
301: IF l_debug_level > 0 THEN
302: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.DEFAULT_ATTRIBUTES' , 1 ) ;
303: END IF;
304:
305: EXCEPTION
306:
355:
356: PROCEDURE Copy_Attribute_To_Rec
357: ( p_attr_id IN NUMBER
358: , p_attr_value IN VARCHAR2
359: , p_line_dff_rec IN OE_OE_FORM_LINE.line_dff_rec_type
360: , p_date_format_mask IN VARCHAR2 DEFAULT 'DD-MON-YYYY HH24:MI:SS'
361: , x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type
362: , x_old_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type
363: )
1131: , p_attr_id_tbl IN Number_Tbl_Type
1132: , p_attr_value_tbl IN Varchar2_Tbl_Type
1133: , p_reason IN VARCHAR2
1134: , p_comments IN VARCHAR2
1135: , p_line_dff_rec IN OE_OE_FORM_LINE.line_dff_rec_type
1136: , p_default_cache_line_rec IN OE_ORDER_PUB.Line_Rec_Type
1137: , p_date_format_mask IN VARCHAR2 DEFAULT 'DD-MON-YYYY HH24:MI:SS'
1138: , x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type
1139: , x_old_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type
1165: --
1166: BEGIN
1167:
1168: IF l_debug_level > 0 THEN
1169: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.CHANGE_ATTRIBUTES' , 1 ) ;
1170: END IF;
1171:
1172: -- Set UI flag to TRUE
1173: OE_GLOBALS.G_UI_FLAG := TRUE;
2189: , p_data => x_msg_data
2190: );
2191:
2192: IF l_debug_level > 0 THEN
2193: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.CHANGE_ATTRIBUTE' , 1 ) ;
2194: END IF;
2195:
2196: EXCEPTION
2197:
2275:
2276: SAVEPOINT Line_Validate_And_Write;
2277:
2278: IF l_debug_level > 0 THEN
2279: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.VALIDATE_AND_WRITE' , 1 ) ;
2280: END IF;
2281:
2282: -- Set UI flag to TRUE
2283: OE_GLOBALS.G_UI_FLAG := TRUE;
2655: , p_data => x_msg_data
2656: );
2657:
2658: IF l_debug_level > 0 THEN
2659: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.VALIDATE_AND_WRITE' , 1 ) ;
2660: END IF;
2661:
2662:
2663: EXCEPTION
2763: --
2764: BEGIN
2765: SAVEPOINT LINE_DELETE;
2766: IF l_debug_level > 0 THEN
2767: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.DELETE_ROW' , 1 ) ;
2768: END IF;
2769:
2770: -- Set UI flag to TRUE
2771: OE_GLOBALS.G_UI_FLAG := TRUE;
2841: , p_data => x_msg_data
2842: );
2843:
2844: IF l_debug_level > 0 THEN
2845: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.DELETE_ROW' , 1 ) ;
2846: END IF;
2847:
2848: EXCEPTION
2849:
2937: --
2938: BEGIN
2939:
2940: IF l_debug_level > 0 THEN
2941: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.PROCESS_ENTITY' , 1 ) ;
2942: END IF;
2943:
2944: -- Set UI flag to TRUE
2945: OE_GLOBALS.G_UI_FLAG := TRUE;
3013: , p_data => x_msg_data
3014: );
3015:
3016: IF l_debug_level > 0 THEN
3017: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.PROCESS_ENTITY' , 1 ) ;
3018: END IF;
3019:
3020: EXCEPTION
3021:
3087: --
3088: BEGIN
3089:
3090: IF l_debug_level > 0 THEN
3091: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.LOCK_ROW' , 1 ) ;
3092: END IF;
3093:
3094: -- Load line record
3095:
3112: -- Set DB flag and write record to cache.
3113:
3114: l_x_line_rec.db_flag := FND_API.G_TRUE;
3115: IF l_debug_level > 0 THEN
3116: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.LOCK_ROW'||L_X_LINE_REC.LINE_ID , 1 ) ;
3117: END IF;
3118:
3119: Write_line
3120: ( p_line_rec => l_x_line_rec
3139: , p_data => x_msg_data
3140: );
3141:
3142: IF l_debug_level > 0 THEN
3143: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.LOCK_ROW' , 1 ) ;
3144: END IF;
3145:
3146: EXCEPTION
3147: WHEN FND_API.G_EXC_ERROR THEN
3205: --
3206: BEGIN
3207:
3208: IF l_debug_level > 0 THEN
3209: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.WRITE_LINE' , 1 ) ;
3210: END IF;
3211: g_line_rec := p_line_rec;
3212:
3213: IF p_db_record THEN
3216:
3217: END IF;
3218:
3219: IF l_debug_level > 0 THEN
3220: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.WRITE_LINE' , 1 ) ;
3221: END IF;
3222:
3223: END Write_Line;
3224:
3233: --
3234: BEGIN
3235:
3236: IF l_debug_level > 0 THEN
3237: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.GET_LINE'||P_LINE_ID , 1 ) ;
3238: END IF;
3239: --reverting back the fix made for bug 2103000 as the problem
3240: --is fixed in file OEXOEFRM.pld(version 115.251)
3241: --Fixes the issue reported in bug 2150247
3243: THEN
3244:
3245: -- Query row from DB
3246: IF l_debug_level > 0 THEN
3247: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.GET_LINE QUERY '||P_LINE_ID , 1 ) ;
3248: END IF;
3249:
3250: OE_Line_Util.Query_Row
3251: ( p_line_id => p_line_id,
3260:
3261: END IF;
3262:
3263: IF l_debug_level > 0 THEN
3264: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.GET_LINE' , 1 ) ;
3265: END IF;
3266:
3267: IF p_db_record THEN
3268: --Added for bug3911285
3288: --
3289: BEGIN
3290:
3291: IF l_debug_level > 0 THEN
3292: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE.CLEAR_LINE' , 1 ) ;
3293: END IF;
3294:
3295: g_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
3296: g_db_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
3295: g_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
3296: g_db_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
3297:
3298: IF l_debug_level > 0 THEN
3299: oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE.CLEAR_LINE' , 1 ) ;
3300: END IF;
3301:
3302: END Clear_Line;
3303:
6301: OE_GLOBALS.G_CALCULATE_LINE_TOTAL := TRUE;
6302: END Reset_Calculate_line_Total;
6303: --for 5331980 end**
6304:
6305: END oe_oe_form_line;