[Home] [Help]
1: PACKAGE BODY Oe_Oe_Form_Header AS
2: /* $Header: OEXFHDRB.pls 120.18 2011/08/05 07:13:33 jrparuch ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXFHDRB.pls 120.18 2011/08/05 07:13:33 jrparuch ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'Oe_Oe_Form_Header';
7:
8: -- Global variables holding cached record.
9:
10: g_header_rec OE_Order_PUB.Header_Rec_Type;
14:
15: -- Following record will be used to store the cascading enabled or disabled
16: -- status for each field.
17:
18: g_cascade_test_record OE_OE_FORM_HEADER.Cascade_record;
19:
20: PROCEDURE Write_header
21: ( p_header_rec IN OE_Order_PUB.Header_Rec_Type
22: , p_db_record IN BOOLEAN := FALSE
63: IS
64: l_control_rec OE_GLOBALS.Control_Rec_Type;
65: l_return_status VARCHAR2(1);
66: BEGIN
67: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.DEFAULT_ATTRIBUTES', 1);
68:
69:
70:
71: -- Set the UI flag
211: ( p_count => x_msg_count
212: , p_data => x_msg_data
213: );
214:
215: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.DEFAULT_ATTRIBUTES', 1);
216:
217: EXCEPTION
218:
219: WHEN FND_API.G_EXC_ERROR THEN
277: , p_attr_id IN NUMBER
278: , p_attr_value IN VARCHAR2
279: , p_attr_id_tbl IN Number_Tbl_Type
280: , p_attr_value_tbl IN Varchar2_Tbl_Type
281: , p_header_dff_rec IN Oe_Oe_Form_Header.Header_Dff_Rec_Type
282: , p_date_format_mask IN VARCHAR2 DEFAULT 'DD-MON-RRRR HH24:MI:SS'
283: , x_header_rec IN OUT NOCOPY OE_ORDER_PUB.Header_Rec_Type
284: , x_header_val_rec IN OUT NOCOPY OE_ORDER_PUB.Header_Val_Rec_Type
285: , x_old_header_rec IN OUT NOCOPY OE_ORDER_PUB.Header_Rec_Type
292: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
293: template_id NUMBER := x_header_rec.contract_template_id;
294: BEGIN
295:
296: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.CHANGE_ATTRIBUTES', 1);
297: oe_debug_pub.add('hash template id in change att start is '|| x_header_rec.contract_template_id);
298: -- Set the UI flag
299: OE_GLOBALS.G_UI_FLAG := TRUE;
300:
735: x_header_rec.operation := OE_GLOBALS.G_OPR_CREATE;
736: END IF;
737:
738: -- Call Oe_Order_Pvt.Header
739: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.CHANGE_ATTRIBUTES'||x_header_rec.sold_to_phone_id, 1);
740: oe_debug_pub.add('hash template id in change att before invoice is '|| x_header_rec.contract_template_id);
741: oe_debug_pub.add('Entering invoice'||x_header_rec.invoice_to_org_id, 1);
742: oe_debug_pub.add('Entering Invoice'||x_old_header_rec.invoice_to_org_id, 1);
743:
813: ( p_count => x_msg_count
814: , p_data => x_msg_data
815: );
816:
817: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.CHANGE_ATTRIBUTES', 1);
818:
819: EXCEPTION
820:
821: WHEN FND_API.G_EXC_ERROR THEN
903: BEGIN
904:
905: SAVEPOINT Header_Validate_And_Write;
906: OE_HEADER_UTIL.g_rollback_done := 'N'; -- bug 12759791
907: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.VALIDATE_AND_WRITE', 1);
908:
909: -- Set the UI flag
910: OE_GLOBALS.G_UI_FLAG := TRUE;
911:
1049: ( p_count => x_msg_count
1050: , p_data => x_msg_data
1051: );
1052:
1053: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.VALIDATE_AND_WRITE', 1);
1054:
1055: EXCEPTION
1056:
1057: WHEN FND_API.G_EXC_ERROR THEN
1125: l_return_status VARCHAR2(1);
1126: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
1127: BEGIN
1128: SAVEPOINT Header_Delete;
1129: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.DELETE_ROW', 1);
1130:
1131: -- Set the UI flag
1132: OE_GLOBALS.G_UI_FLAG := TRUE;
1133:
1195: ( p_count => x_msg_count
1196: , p_data => x_msg_data
1197: );
1198:
1199: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.DELETE_ROW', 1);
1200:
1201: EXCEPTION
1202:
1203: WHEN FND_API.G_EXC_ERROR THEN
1262: IS
1263: l_return_status VARCHAR2(1);
1264: BEGIN
1265:
1266: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.PROCESS_ENTITY', 1);
1267:
1268: -- Set the UI flag
1269: OE_GLOBALS.G_UI_FLAG := TRUE;
1270:
1298: ( p_count => x_msg_count
1299: , p_data => x_msg_data
1300: );
1301:
1302: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.PROCESS_ENTITY', 1);
1303:
1304: EXCEPTION
1305:
1306: WHEN FND_API.G_EXC_ERROR THEN
1365: l_return_status VARCHAR2(1);
1366: l_control_rec OE_GLOBALS.Control_Rec_Type;
1367: l_line_tbl oe_order_pub.line_tbl_type;
1368: BEGIN
1369: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.PROCESS_OBJECT', 1);
1370:
1371: OE_MSG_PUB.initialize;
1372:
1373: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >='110510' THEN
1444:
1445: OE_GLOBALS.G_UI_FLAG := FALSE;
1446: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
1447:
1448: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.PROCESS_OBJECT', 1);
1449:
1450: EXCEPTION
1451:
1452: WHEN FND_API.G_EXC_ERROR THEN
1513: l_return_status VARCHAR2(1);
1514: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
1515: BEGIN
1516:
1517: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.LOCK_ROW', 1);
1518:
1519: -- Load header record
1520:
1521: l_x_header_rec.lock_control := p_lock_control;
1560: ( p_count => x_msg_count
1561: , p_data => x_msg_data
1562: );
1563:
1564: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.LOCK_ROW', 1);
1565:
1566: EXCEPTION
1567: WHEN FND_API.G_EXC_ERROR THEN
1568:
1618: )
1619: IS
1620: BEGIN
1621:
1622: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.WRITE_HEADER', 1);
1623:
1624: g_header_rec := p_header_rec;
1625:
1626: IF p_db_record THEN
1628: g_db_header_rec := p_header_rec;
1629:
1630: END IF;
1631:
1632: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.WRITE_HEADER', 1);
1633:
1634: END Write_Header;
1635:
1636: PROCEDURE Get_header
1641: IS
1642:
1643: BEGIN
1644:
1645: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.GET_HEADER', 1);
1646:
1647: IF p_header_id <> NVL(g_header_rec.header_id,FND_API.G_MISS_NUM)
1648: THEN
1649:
1671: x_header_rec:= g_header_rec;
1672:
1673: END IF;
1674:
1675: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.GET_HEADER', 1);
1676:
1677: END Get_Header;
1678:
1679: PROCEDURE Clear_Header
1679: PROCEDURE Clear_Header
1680: IS
1681: BEGIN
1682:
1683: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.CLEAR_HEADER', 1);
1684:
1685: g_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
1686: g_db_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
1687:
1684:
1685: g_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
1686: g_db_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
1687:
1688: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.CLEAR_HEADER', 1);
1689:
1690: END Clear_Header;
1691:
1692:
1802: and line_id is null;
1803: l_count Number;
1804: Begin
1805:
1806: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.SALES_PERSON', 1);
1807:
1808: OE_MSG_PUB.initialize;
1809: x_return_status := FND_API.G_RET_STS_SUCCESS;
1810: p_multiple_sales_credits := 'N';
1833: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1834: RAISE FND_API.G_EXC_ERROR;
1835: END IF;
1836:
1837: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.SALES_PERSON', 1);
1838:
1839: EXCEPTION
1840:
1841: WHEN FND_API.G_EXC_ERROR THEN
1880: FROM fnd_id_flex_structures
1881: WHERE id_flex_code = X_Id_Flex_Code;
1882: BEGIN
1883:
1884: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1885:
1886: OPEN C_Item_Flex(Item_Id_Flex_Code);
1887: FETCH C_Item_Flex INTO Item_Id_Flex_Num;
1888: CLOSE C_Item_Flex;
1886: OPEN C_Item_Flex(Item_Id_Flex_Code);
1887: FETCH C_Item_Flex INTO Item_Id_Flex_Num;
1888: CLOSE C_Item_Flex;
1889:
1890: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1891:
1892: EXCEPTION
1893: WHEN OTHERS THEN
1894: oe_debug_pub.add('In when others exception : OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1890: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1891:
1892: EXCEPTION
1893: WHEN OTHERS THEN
1894: oe_debug_pub.add('In when others exception : OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1895: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1896: THEN
1897: OE_MSG_PUB.Add_Exc_Msg
1898: ( G_PKG_NAME ,
1988: --R12 CC Encryption
1989:
1990: BEGIN
1991: if l_debug_level > 0 then
1992: oe_debug_pub.add('Entering OE_OE_Form_Header.Populate_Control_Fields');
1993: oe_debug_pub.add('Header id'||p_header_rec_type.header_id);
1994: end if;
1995:
1996: IF p_header_rec_type.salesrep_id is not null THEN
2984: END IF;
2985:
2986: -- Check if Read_Cascadable_Fields is called or not. If not the call and build -- the record.
2987:
2988: IF OE_OE_FORM_HEADER.g_cascade_test_record.p_cached='N' THEN
2989: OE_OE_FORM_HEADER.Read_Cascadable_Fields
2990: (
2991: x_cascade_record=>OE_OE_FORM_HEADER.g_cascade_test_record
2992: );
2985:
2986: -- Check if Read_Cascadable_Fields is called or not. If not the call and build -- the record.
2987:
2988: IF OE_OE_FORM_HEADER.g_cascade_test_record.p_cached='N' THEN
2989: OE_OE_FORM_HEADER.Read_Cascadable_Fields
2990: (
2991: x_cascade_record=>OE_OE_FORM_HEADER.g_cascade_test_record
2992: );
2993: END IF;
2987:
2988: IF OE_OE_FORM_HEADER.g_cascade_test_record.p_cached='N' THEN
2989: OE_OE_FORM_HEADER.Read_Cascadable_Fields
2990: (
2991: x_cascade_record=>OE_OE_FORM_HEADER.g_cascade_test_record
2992: );
2993: END IF;
2994:
2995: IF l_x_line_tbl.count >0 THEN
3004: IF NOT OE_Globals.Equal(
3005: p_header_rec.cust_po_number,
3006: p_old_db_header_rec.cust_po_number) AND
3007:
3008: OE_OE_FORM_HEADER.g_cascade_test_record.p_customer_po='Y'
3009:
3010: THEN
3011: l_x_line_tbl(i).cust_po_number:=p_header_rec.cust_po_number;
3012: END IF;
3014: IF NOT OE_Globals.Equal(
3015: p_header_rec.payment_term_id,
3016: p_old_db_header_rec.payment_term_id) AND
3017:
3018: OE_OE_FORM_HEADER.g_cascade_test_record.p_payment_term='Y'
3019:
3020: THEN
3021: l_x_line_tbl(i).payment_term_id:=p_header_rec.payment_term_id;
3022: END IF;
3024: IF NOT OE_Globals.Equal(
3025: p_header_rec.shipment_priority_code,
3026: p_old_db_header_rec.shipment_priority_code) AND
3027:
3028: OE_OE_FORM_HEADER.g_cascade_test_record.p_shipment_priority='Y'
3029:
3030: THEN
3031: l_x_line_tbl(i).shipment_priority_code:=p_header_rec.shipment_priority_code;
3032: END IF;
3034: IF NOT OE_Globals.Equal(
3035: p_header_rec.shipping_method_code,
3036: p_old_db_header_rec.shipping_method_code) AND
3037:
3038: OE_OE_FORM_HEADER.g_cascade_test_record.p_shipping_method='Y'
3039:
3040: THEN
3041: l_x_line_tbl(i).shipping_method_code:=p_header_rec.shipping_method_code;
3042: END IF;
3044: IF NOT OE_Globals.Equal(
3045: p_header_rec.ship_to_org_id,
3046: p_old_db_header_rec.ship_to_org_id) AND
3047:
3048: OE_OE_FORM_HEADER.g_cascade_test_record.p_ship_to='Y'
3049:
3050: THEN
3051: l_x_line_tbl(i).ship_to_org_id:=p_header_rec.ship_to_org_id;
3052: END IF;
3054: IF NOT OE_Globals.Equal(
3055: p_header_rec.agreement_id,
3056: p_old_db_header_rec.agreement_id) AND
3057:
3058: OE_OE_FORM_HEADER.g_cascade_test_record.p_agreement='Y'
3059:
3060: THEN
3061: l_x_line_tbl(i).agreement_id:=p_header_rec.agreement_id;
3062: END IF;
3065: IF NOT OE_Globals.Equal(
3066: p_header_rec.order_firmed_date,
3067: p_old_db_header_rec.order_firmed_date) AND
3068:
3069: OE_OE_FORM_HEADER.g_cascade_test_record.p_order_firmed_date='Y'
3070:
3071: THEN
3072: l_x_line_tbl(i).order_firmed_date:=p_header_rec.order_firmed_date;
3073: END IF;
3075: IF NOT OE_Globals.Equal(
3076: p_header_rec.Accounting_Rule_Id,
3077: p_old_db_header_rec.Accounting_Rule_Id) AND
3078:
3079: OE_OE_FORM_HEADER.g_cascade_test_record.p_accounting_rule='Y'
3080:
3081: THEN
3082: l_x_line_tbl(i).Accounting_Rule_Id:=p_header_rec.Accounting_Rule_Id;
3083: END IF;
3085: IF NOT OE_Globals.Equal(
3086: p_header_rec.Blanket_Number,
3087: p_old_db_header_rec.Blanket_Number) AND
3088:
3089: OE_OE_FORM_HEADER.g_cascade_test_record.p_blanket_number='Y'
3090:
3091: THEN
3092: l_x_line_tbl(i).Blanket_Number:=p_header_rec.Blanket_Number;
3093: END IF;
3095: IF NOT OE_Globals.Equal(
3096: p_header_rec.Deliver_to_Contact_Id,
3097: p_old_db_header_rec.Deliver_To_Contact_Id) AND
3098:
3099: OE_OE_FORM_HEADER.g_cascade_test_record.p_deliver_to_contact='Y'
3100:
3101: THEN
3102: l_x_line_tbl(i).Deliver_To_Contact_id:=p_header_rec.Deliver_To_Contact_Id;
3103: END IF;
3105: IF NOT OE_Globals.Equal(
3106: p_header_rec.Deliver_to_Org_Id,
3107: p_old_db_header_rec.Deliver_To_Org_Id) AND
3108:
3109: OE_OE_FORM_HEADER.g_cascade_test_record.p_deliver_to='Y'
3110:
3111: THEN
3112: l_x_line_tbl(i).Deliver_To_Org_id:=p_header_rec.Deliver_to_Org_Id;
3113: END IF;
3115: IF NOT OE_Globals.Equal(
3116: p_header_rec.Demand_Class_Code,
3117: p_old_db_header_rec.Demand_Class_Code) AND
3118:
3119: OE_OE_FORM_HEADER.g_cascade_test_record.p_demand_class='Y'
3120:
3121: THEN
3122: l_x_line_tbl(i).Demand_Class_Code:=p_header_rec.Demand_Class_Code;
3123: END IF;
3125: IF NOT OE_Globals.Equal(
3126: p_header_rec.Fob_point_Code,
3127: p_old_db_header_rec.Fob_point_Code) AND
3128:
3129: OE_OE_FORM_HEADER.g_cascade_test_record.p_fob_point='Y'
3130:
3131: THEN
3132: l_x_line_tbl(i).Fob_Point_Code:=p_header_rec.Fob_Point_Code;
3133: END IF;
3135: IF NOT OE_Globals.Equal(
3136: p_header_rec.Freight_Terms_Code,
3137: p_old_db_header_rec.Freight_Terms_Code) AND
3138:
3139: -- Bug 8330454 OE_OE_FORM_HEADER.g_cascade_test_record.p_fob_point='Y'
3140: OE_OE_FORM_HEADER.g_cascade_test_record.p_freight_terms = 'Y' --Bug 8330454
3141:
3142:
3143: THEN
3136: p_header_rec.Freight_Terms_Code,
3137: p_old_db_header_rec.Freight_Terms_Code) AND
3138:
3139: -- Bug 8330454 OE_OE_FORM_HEADER.g_cascade_test_record.p_fob_point='Y'
3140: OE_OE_FORM_HEADER.g_cascade_test_record.p_freight_terms = 'Y' --Bug 8330454
3141:
3142:
3143: THEN
3144: l_x_line_tbl(i).Freight_Terms_Code:=p_header_rec.Freight_Terms_Code;
3147: IF NOT OE_Globals.Equal(
3148: p_header_rec.Invoice_To_Contact_Id,
3149: p_old_db_header_rec.Invoice_To_Contact_Id) AND
3150:
3151: OE_OE_FORM_HEADER.g_cascade_test_record.p_bill_to_contact='Y'
3152:
3153: THEN
3154: l_x_line_tbl(i).Invoice_To_Contact_Id:=p_header_rec.Invoice_To_Contact_Id;
3155: END IF;
3157: IF NOT OE_Globals.Equal(
3158: p_header_rec.Invoice_To_Org_Id,
3159: p_old_db_header_rec.Invoice_To_Org_Id) AND
3160:
3161: OE_OE_FORM_HEADER.g_cascade_test_record.p_bill_to='Y'
3162:
3163: THEN
3164: l_x_line_tbl(i).Invoice_To_Org_Id:=p_header_rec.Invoice_To_Org_Id;
3165: END IF;
3167: IF NOT OE_Globals.Equal(
3168: p_header_rec.Invoicing_Rule_Id,
3169: p_old_db_header_rec.Invoicing_Rule_Id) AND
3170:
3171: OE_OE_FORM_HEADER.g_cascade_test_record.p_invoicing_rule='Y'
3172:
3173: THEN
3174: l_x_line_tbl(i).Invoicing_Rule_Id:=p_header_rec.Invoicing_Rule_Id;
3175: END IF;
3177: IF NOT OE_Globals.Equal(
3178: p_header_rec.Price_List_Id,
3179: p_old_db_header_rec.Price_List_Id) AND
3180:
3181: OE_OE_FORM_HEADER.g_cascade_test_record.p_price_list='Y'
3182:
3183: THEN
3184: l_x_line_tbl(i).Price_List_Id:=p_header_rec.Price_List_Id;
3185: END IF;
3188: IF NOT OE_Globals.Equal(
3189: p_header_rec.Request_date,
3190: p_old_db_header_rec.Request_date) AND
3191:
3192: OE_OE_FORM_HEADER.g_cascade_test_record.p_request_date='Y'
3193:
3194: THEN
3195: l_x_line_tbl(i).Request_Date:=p_header_rec.Request_Date;
3196: END IF;
3198: IF NOT OE_Globals.Equal(
3199: p_header_rec.Return_Reason_Code,
3200: p_old_db_header_rec.Return_Reason_Code) AND
3201:
3202: OE_OE_FORM_HEADER.g_cascade_test_record.p_return_reason='Y'
3203:
3204: THEN
3205: l_x_line_tbl(i).Return_Reason_Code:=p_header_rec.Return_reason_Code;
3206: END IF;
3208: IF NOT OE_Globals.Equal(
3209: p_header_rec.Salesrep_Id,
3210: p_old_db_header_rec.Salesrep_id) AND
3211:
3212: OE_OE_FORM_HEADER.g_cascade_test_record.p_salesperson='Y'
3213:
3214: THEN
3215: l_x_line_tbl(i).Salesrep_Id:=p_header_rec.Salesrep_Id;
3216: END IF;
3218: IF NOT OE_Globals.Equal(
3219: p_header_rec.Ship_From_Org_Id,
3220: p_old_db_header_rec.Ship_From_Org_id) AND
3221:
3222: OE_OE_FORM_HEADER.g_cascade_test_record.p_warehouse='Y'
3223:
3224: THEN
3225: l_x_line_tbl(i).Ship_From_Org_Id:=p_header_rec.Ship_From_Org_Id;
3226: END IF;
3228: IF NOT OE_Globals.Equal(
3229: p_header_rec.Ship_To_Contact_Id,
3230: p_old_db_header_rec.Ship_To_Contact_Id) AND
3231:
3232: OE_OE_FORM_HEADER.g_cascade_test_record.p_ship_to_contact='Y'
3233:
3234: THEN
3235: l_x_line_tbl(i).Ship_To_Contact_Id:=p_header_rec.Ship_To_Contact_Id;
3236: END IF;
3238: IF NOT OE_Globals.Equal(
3239: p_header_rec.Sold_To_Org_Id,
3240: p_old_db_header_rec.Sold_To_Org_id) AND
3241:
3242: OE_OE_FORM_HEADER.g_cascade_test_record.p_customer='Y'
3243:
3244: THEN
3245: l_x_line_tbl(i).Sold_To_Org_Id:=p_header_rec.Sold_To_Org_Id;
3246: END IF;
3248: IF NOT OE_Globals.Equal(
3249: p_header_rec.Tax_Exempt_Flag,
3250: p_old_db_header_rec.Tax_Exempt_Flag) AND
3251:
3252: OE_OE_FORM_HEADER.g_cascade_test_record.p_tax_exempt='Y'
3253:
3254: THEN
3255: l_x_line_tbl(i).Tax_Exempt_Flag:=p_header_rec.Tax_Exempt_Flag;
3256: END IF;
3460:
3461: BEGIN
3462:
3463:
3464: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Create_Agreement', 1);
3465:
3466: p_Agreement_rec.name := p_agreement_name;
3467: p_agreement_rec.creation_date :=sysdate;
3468: p_agreement_rec.created_by := FND_GLOBAL.USER_ID;
3607:
3608: PROCEDURE Copy_Attribute_To_Rec
3609: ( p_attr_id IN NUMBER
3610: , p_attr_value IN VARCHAR2
3611: , p_header_dff_rec IN OE_OE_FORM_HEADER.header_dff_rec_type
3612: , p_date_format_mask IN VARCHAR2 DEFAULT 'DD-MON-YYYY HH24:MI:SS'
3613: , x_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
3614: , x_old_header_rec IN OUT NOCOPY OE_ORDER_PUB.Header_Rec_Type
3615: )
4034: l_phone_format Varchar2(300);
4035: l_AR_Sys_Param_Rec AR_SYSTEM_PARAMETERS_ALL%ROWTYPE;
4036:
4037: BEGIN
4038: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number', 1);
4039: IF OE_OE_FORM_HEADER.G_HZ_H_Installed IS NULL THEN
4040: SELECT COUNT(bug_id)
4041: INTO l_bug_count
4042: FROM ad_bugs where bug_number IN ('2116159','2239222','2488745');
4035: l_AR_Sys_Param_Rec AR_SYSTEM_PARAMETERS_ALL%ROWTYPE;
4036:
4037: BEGIN
4038: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number', 1);
4039: IF OE_OE_FORM_HEADER.G_HZ_H_Installed IS NULL THEN
4040: SELECT COUNT(bug_id)
4041: INTO l_bug_count
4042: FROM ad_bugs where bug_number IN ('2116159','2239222','2488745');
4043: IF l_bug_count>0 THEN
4040: SELECT COUNT(bug_id)
4041: INTO l_bug_count
4042: FROM ad_bugs where bug_number IN ('2116159','2239222','2488745');
4043: IF l_bug_count>0 THEN
4044: OE_OE_FORM_HEADER.G_HZ_H_Installed:='Y';
4045: ELSE
4046: OE_OE_FORM_HEADER.G_HZ_H_Installed:='N';
4047: END IF;
4048: END IF;
4042: FROM ad_bugs where bug_number IN ('2116159','2239222','2488745');
4043: IF l_bug_count>0 THEN
4044: OE_OE_FORM_HEADER.G_HZ_H_Installed:='Y';
4045: ELSE
4046: OE_OE_FORM_HEADER.G_HZ_H_Installed:='N';
4047: END IF;
4048: END IF;
4049: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number-HZ Minipack'||OE_OE_FORM_HEADER.G_HZ_H_Installed, 1);
4050:
4045: ELSE
4046: OE_OE_FORM_HEADER.G_HZ_H_Installed:='N';
4047: END IF;
4048: END IF;
4049: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number-HZ Minipack'||OE_OE_FORM_HEADER.G_HZ_H_Installed, 1);
4050:
4051: IF OE_OE_FORM_HEADER.G_HZ_H_Installed='N' THEN
4052: x_valid:=TRUE;
4053: ELSE
4047: END IF;
4048: END IF;
4049: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number-HZ Minipack'||OE_OE_FORM_HEADER.G_HZ_H_Installed, 1);
4050:
4051: IF OE_OE_FORM_HEADER.G_HZ_H_Installed='N' THEN
4052: x_valid:=TRUE;
4053: ELSE
4054: IF p_country_code IS NULL THEN
4055: BEGIN
4089: END IF;
4090: ELSE
4091: l_user_territory_code:=p_country_code;
4092: END IF;
4093: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number-User Territory'||
4094: l_user_territory_code, 1);
4095:
4096:
4097:
4301: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4302: BEGIN
4303:
4304: IF l_debug_level > 0 THEN
4305: oe_debug_pub.add( 'ENTER OE_OE_FORM_HEADER.Check_Sec_Header_Attr' , 1 ) ;
4306: END IF;
4307:
4308: IF p_column_name IS NOT NULL THEN
4309: -- Initializing return status to SUCCESS
4355: ( p_count => x_msg_count
4356: , p_data => x_msg_data);
4357:
4358: IF l_debug_level > 0 THEN
4359: oe_debug_pub.add( 'EXIT OE_OE_FORM_HEADER.Check_Sec_Header_Attr' , 1 ) ;
4360: END IF;
4361:
4362: END Check_Sec_Header_Attr;
4363:
4375: -- Start Of Enhanced Cascading
4376:
4377: -- Procedure : Read_Cascadable_Fields
4378:
4379: -- Parameters : One out NOCOPY parameter is of type OE_OE_FORM_HEADER.Cascade_record
4380:
4381: -- Purpose : This procedure will be called from Change_Attribute procedure
4382: -- in OEXOEHDR.pld. A new OM look up OM:Header To Line Cascade
4383: -- Attributes( with lookup_type=OM_HEADER_TO_LINE_CASCADE ) is
4391: -- or not. So p_cached is used to make sure Read_Cascadable_Fields-- is called only once in a session.
4392:
4393: PROCEDURE Read_Cascadable_Fields
4394: (
4395: x_cascade_record OUT NOCOPY OE_OE_FORM_HEADER.cascade_record
4396: )
4397:
4398: IS
4399:
4399:
4400: l_lookup_type Varchar2(40):='OM_HEADER_TO_LINE_CASCADE';
4401: l_lookup_code Varchar2(40);
4402: l_enabled_flag Varchar2(1);
4403: p_cascade_record OE_OE_FORM_HEADER.Cascade_record;
4404:
4405: Cursor C_LOOKUP (p_lookup_code1 Varchar2, p_lookup_type1 Varchar2) IS
4406: Select enabled_flag from oe_lookups where lookup_type=p_lookup_type1 and lookup_code=p_lookup_code1;
4407:
4407:
4408:
4409: BEGIN
4410:
4411: OE_DEBUG_PUB.ADD('Entering OE_OE_FORM_HEADER.Read_Cascadable_Fields',1);
4412: l_lookup_code :='ACCOUNTING_RULE';
4413: open C_LOOKUP(l_lookup_code,l_lookup_type);
4414: fetch C_LOOKUP into l_enabled_flag;
4415: close C_LOOKUP;
4603: x_cascade_record:=p_cascade_record; -- Set the record
4604:
4605: x_cascade_record.p_cached:='Y'; -- Caching is done for this session
4606:
4607: OE_DEBUG_PUB.ADD('Exiting OE_OE_FORM_HEADER.Read_Cascadable_Fields',1);
4608:
4609: EXCEPTION
4610:
4611: WHEN NO_DATA_FOUND THEN
4616: END Read_Cascadable_Fields;
4617:
4618: --End Of Enhanced Cascading
4619:
4620: END Oe_Oe_Form_Header;