[Home] [Help]
1: PACKAGE BODY Oe_Oe_Form_Header AS
2: /* $Header: OEXFHDRB.pls 120.14.12010000.2 2008/11/14 09:01:16 bradha ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: OEXFHDRB.pls 120.14.12010000.2 2008/11/14 09:01:16 bradha 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:
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
1124: l_return_status VARCHAR2(1);
1125: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
1126: BEGIN
1127: SAVEPOINT Header_Delete;
1128: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.DELETE_ROW', 1);
1129:
1130: -- Set the UI flag
1131: OE_GLOBALS.G_UI_FLAG := TRUE;
1132:
1194: ( p_count => x_msg_count
1195: , p_data => x_msg_data
1196: );
1197:
1198: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.DELETE_ROW', 1);
1199:
1200: EXCEPTION
1201:
1202: WHEN FND_API.G_EXC_ERROR THEN
1261: IS
1262: l_return_status VARCHAR2(1);
1263: BEGIN
1264:
1265: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.PROCESS_ENTITY', 1);
1266:
1267: -- Set the UI flag
1268: OE_GLOBALS.G_UI_FLAG := TRUE;
1269:
1297: ( p_count => x_msg_count
1298: , p_data => x_msg_data
1299: );
1300:
1301: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.PROCESS_ENTITY', 1);
1302:
1303: EXCEPTION
1304:
1305: WHEN FND_API.G_EXC_ERROR THEN
1364: l_return_status VARCHAR2(1);
1365: l_control_rec OE_GLOBALS.Control_Rec_Type;
1366: l_line_tbl oe_order_pub.line_tbl_type;
1367: BEGIN
1368: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.PROCESS_OBJECT', 1);
1369:
1370: OE_MSG_PUB.initialize;
1371:
1372: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >='110510' THEN
1443:
1444: OE_GLOBALS.G_UI_FLAG := FALSE;
1445: OE_GLOBALS.G_PROCESS_OBJECTS_FLAG := FALSE;
1446:
1447: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.PROCESS_OBJECT', 1);
1448:
1449: EXCEPTION
1450:
1451: WHEN FND_API.G_EXC_ERROR THEN
1512: l_return_status VARCHAR2(1);
1513: l_x_header_rec OE_Order_PUB.Header_Rec_Type;
1514: BEGIN
1515:
1516: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.LOCK_ROW', 1);
1517:
1518: -- Load header record
1519:
1520: l_x_header_rec.lock_control := p_lock_control;
1559: ( p_count => x_msg_count
1560: , p_data => x_msg_data
1561: );
1562:
1563: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.LOCK_ROW', 1);
1564:
1565: EXCEPTION
1566: WHEN FND_API.G_EXC_ERROR THEN
1567:
1617: )
1618: IS
1619: BEGIN
1620:
1621: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.WRITE_HEADER', 1);
1622:
1623: g_header_rec := p_header_rec;
1624:
1625: IF p_db_record THEN
1627: g_db_header_rec := p_header_rec;
1628:
1629: END IF;
1630:
1631: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.WRITE_HEADER', 1);
1632:
1633: END Write_Header;
1634:
1635: PROCEDURE Get_header
1640: IS
1641:
1642: BEGIN
1643:
1644: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.GET_HEADER', 1);
1645:
1646: IF p_header_id <> NVL(g_header_rec.header_id,FND_API.G_MISS_NUM)
1647: THEN
1648:
1670: x_header_rec:= g_header_rec;
1671:
1672: END IF;
1673:
1674: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.GET_HEADER', 1);
1675:
1676: END Get_Header;
1677:
1678: PROCEDURE Clear_Header
1678: PROCEDURE Clear_Header
1679: IS
1680: BEGIN
1681:
1682: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.CLEAR_HEADER', 1);
1683:
1684: g_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
1685: g_db_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
1686:
1683:
1684: g_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
1685: g_db_header_rec := OE_Order_PUB.G_MISS_HEADER_REC;
1686:
1687: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.CLEAR_HEADER', 1);
1688:
1689: END Clear_Header;
1690:
1691:
1801: and line_id is null;
1802: l_count Number;
1803: Begin
1804:
1805: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.SALES_PERSON', 1);
1806:
1807: OE_MSG_PUB.initialize;
1808: x_return_status := FND_API.G_RET_STS_SUCCESS;
1809: p_multiple_sales_credits := 'N';
1832: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1833: RAISE FND_API.G_EXC_ERROR;
1834: END IF;
1835:
1836: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.SALES_PERSON', 1);
1837:
1838: EXCEPTION
1839:
1840: WHEN FND_API.G_EXC_ERROR THEN
1879: FROM fnd_id_flex_structures
1880: WHERE id_flex_code = X_Id_Flex_Code;
1881: BEGIN
1882:
1883: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1884:
1885: OPEN C_Item_Flex(Item_Id_Flex_Code);
1886: FETCH C_Item_Flex INTO Item_Id_Flex_Num;
1887: CLOSE C_Item_Flex;
1885: OPEN C_Item_Flex(Item_Id_Flex_Code);
1886: FETCH C_Item_Flex INTO Item_Id_Flex_Num;
1887: CLOSE C_Item_Flex;
1888:
1889: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1890:
1891: EXCEPTION
1892: WHEN OTHERS THEN
1893: oe_debug_pub.add('In when others exception : OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1889: oe_debug_pub.add('Exiting OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1890:
1891: EXCEPTION
1892: WHEN OTHERS THEN
1893: oe_debug_pub.add('In when others exception : OE_OE_FORM_HEADER.GET_FORM_STARTUP_VALUES', 1);
1894: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1895: THEN
1896: OE_MSG_PUB.Add_Exc_Msg
1897: ( G_PKG_NAME ,
1987: --R12 CC Encryption
1988:
1989: BEGIN
1990: if l_debug_level > 0 then
1991: oe_debug_pub.add('Entering OE_OE_Form_Header.Populate_Control_Fields');
1992: oe_debug_pub.add('Header id'||p_header_rec_type.header_id);
1993: end if;
1994:
1995: IF p_header_rec_type.salesrep_id is not null THEN
2983: END IF;
2984:
2985: -- Check if Read_Cascadable_Fields is called or not. If not the call and build -- the record.
2986:
2987: IF OE_OE_FORM_HEADER.g_cascade_test_record.p_cached='N' THEN
2988: OE_OE_FORM_HEADER.Read_Cascadable_Fields
2989: (
2990: x_cascade_record=>OE_OE_FORM_HEADER.g_cascade_test_record
2991: );
2984:
2985: -- Check if Read_Cascadable_Fields is called or not. If not the call and build -- the record.
2986:
2987: IF OE_OE_FORM_HEADER.g_cascade_test_record.p_cached='N' THEN
2988: OE_OE_FORM_HEADER.Read_Cascadable_Fields
2989: (
2990: x_cascade_record=>OE_OE_FORM_HEADER.g_cascade_test_record
2991: );
2992: END IF;
2986:
2987: IF OE_OE_FORM_HEADER.g_cascade_test_record.p_cached='N' THEN
2988: OE_OE_FORM_HEADER.Read_Cascadable_Fields
2989: (
2990: x_cascade_record=>OE_OE_FORM_HEADER.g_cascade_test_record
2991: );
2992: END IF;
2993:
2994: IF l_x_line_tbl.count >0 THEN
3003: IF NOT OE_Globals.Equal(
3004: p_header_rec.cust_po_number,
3005: p_old_db_header_rec.cust_po_number) AND
3006:
3007: OE_OE_FORM_HEADER.g_cascade_test_record.p_customer_po='Y'
3008:
3009: THEN
3010: l_x_line_tbl(i).cust_po_number:=p_header_rec.cust_po_number;
3011: END IF;
3013: IF NOT OE_Globals.Equal(
3014: p_header_rec.payment_term_id,
3015: p_old_db_header_rec.payment_term_id) AND
3016:
3017: OE_OE_FORM_HEADER.g_cascade_test_record.p_payment_term='Y'
3018:
3019: THEN
3020: l_x_line_tbl(i).payment_term_id:=p_header_rec.payment_term_id;
3021: END IF;
3023: IF NOT OE_Globals.Equal(
3024: p_header_rec.shipment_priority_code,
3025: p_old_db_header_rec.shipment_priority_code) AND
3026:
3027: OE_OE_FORM_HEADER.g_cascade_test_record.p_shipment_priority='Y'
3028:
3029: THEN
3030: l_x_line_tbl(i).shipment_priority_code:=p_header_rec.shipment_priority_code;
3031: END IF;
3033: IF NOT OE_Globals.Equal(
3034: p_header_rec.shipping_method_code,
3035: p_old_db_header_rec.shipping_method_code) AND
3036:
3037: OE_OE_FORM_HEADER.g_cascade_test_record.p_shipping_method='Y'
3038:
3039: THEN
3040: l_x_line_tbl(i).shipping_method_code:=p_header_rec.shipping_method_code;
3041: END IF;
3043: IF NOT OE_Globals.Equal(
3044: p_header_rec.ship_to_org_id,
3045: p_old_db_header_rec.ship_to_org_id) AND
3046:
3047: OE_OE_FORM_HEADER.g_cascade_test_record.p_ship_to='Y'
3048:
3049: THEN
3050: l_x_line_tbl(i).ship_to_org_id:=p_header_rec.ship_to_org_id;
3051: END IF;
3053: IF NOT OE_Globals.Equal(
3054: p_header_rec.agreement_id,
3055: p_old_db_header_rec.agreement_id) AND
3056:
3057: OE_OE_FORM_HEADER.g_cascade_test_record.p_agreement='Y'
3058:
3059: THEN
3060: l_x_line_tbl(i).agreement_id:=p_header_rec.agreement_id;
3061: END IF;
3064: IF NOT OE_Globals.Equal(
3065: p_header_rec.order_firmed_date,
3066: p_old_db_header_rec.order_firmed_date) AND
3067:
3068: OE_OE_FORM_HEADER.g_cascade_test_record.p_order_firmed_date='Y'
3069:
3070: THEN
3071: l_x_line_tbl(i).order_firmed_date:=p_header_rec.order_firmed_date;
3072: END IF;
3074: IF NOT OE_Globals.Equal(
3075: p_header_rec.Accounting_Rule_Id,
3076: p_old_db_header_rec.Accounting_Rule_Id) AND
3077:
3078: OE_OE_FORM_HEADER.g_cascade_test_record.p_accounting_rule='Y'
3079:
3080: THEN
3081: l_x_line_tbl(i).Accounting_Rule_Id:=p_header_rec.Accounting_Rule_Id;
3082: END IF;
3084: IF NOT OE_Globals.Equal(
3085: p_header_rec.Blanket_Number,
3086: p_old_db_header_rec.Blanket_Number) AND
3087:
3088: OE_OE_FORM_HEADER.g_cascade_test_record.p_blanket_number='Y'
3089:
3090: THEN
3091: l_x_line_tbl(i).Blanket_Number:=p_header_rec.Blanket_Number;
3092: END IF;
3094: IF NOT OE_Globals.Equal(
3095: p_header_rec.Deliver_to_Contact_Id,
3096: p_old_db_header_rec.Deliver_To_Contact_Id) AND
3097:
3098: OE_OE_FORM_HEADER.g_cascade_test_record.p_deliver_to_contact='Y'
3099:
3100: THEN
3101: l_x_line_tbl(i).Deliver_To_Contact_id:=p_header_rec.Deliver_To_Contact_Id;
3102: END IF;
3104: IF NOT OE_Globals.Equal(
3105: p_header_rec.Deliver_to_Org_Id,
3106: p_old_db_header_rec.Deliver_To_Org_Id) AND
3107:
3108: OE_OE_FORM_HEADER.g_cascade_test_record.p_deliver_to='Y'
3109:
3110: THEN
3111: l_x_line_tbl(i).Deliver_To_Org_id:=p_header_rec.Deliver_to_Org_Id;
3112: END IF;
3114: IF NOT OE_Globals.Equal(
3115: p_header_rec.Demand_Class_Code,
3116: p_old_db_header_rec.Demand_Class_Code) AND
3117:
3118: OE_OE_FORM_HEADER.g_cascade_test_record.p_demand_class='Y'
3119:
3120: THEN
3121: l_x_line_tbl(i).Demand_Class_Code:=p_header_rec.Demand_Class_Code;
3122: END IF;
3124: IF NOT OE_Globals.Equal(
3125: p_header_rec.Fob_point_Code,
3126: p_old_db_header_rec.Fob_point_Code) AND
3127:
3128: OE_OE_FORM_HEADER.g_cascade_test_record.p_fob_point='Y'
3129:
3130: THEN
3131: l_x_line_tbl(i).Fob_Point_Code:=p_header_rec.Fob_Point_Code;
3132: END IF;
3134: IF NOT OE_Globals.Equal(
3135: p_header_rec.Freight_Terms_Code,
3136: p_old_db_header_rec.Freight_Terms_Code) AND
3137:
3138: OE_OE_FORM_HEADER.g_cascade_test_record.p_fob_point='Y'
3139:
3140: THEN
3141: l_x_line_tbl(i).Freight_Terms_Code:=p_header_rec.Freight_Terms_Code;
3142: END IF;
3144: IF NOT OE_Globals.Equal(
3145: p_header_rec.Invoice_To_Contact_Id,
3146: p_old_db_header_rec.Invoice_To_Contact_Id) AND
3147:
3148: OE_OE_FORM_HEADER.g_cascade_test_record.p_bill_to_contact='Y'
3149:
3150: THEN
3151: l_x_line_tbl(i).Invoice_To_Contact_Id:=p_header_rec.Invoice_To_Contact_Id;
3152: END IF;
3154: IF NOT OE_Globals.Equal(
3155: p_header_rec.Invoice_To_Org_Id,
3156: p_old_db_header_rec.Invoice_To_Org_Id) AND
3157:
3158: OE_OE_FORM_HEADER.g_cascade_test_record.p_bill_to='Y'
3159:
3160: THEN
3161: l_x_line_tbl(i).Invoice_To_Org_Id:=p_header_rec.Invoice_To_Org_Id;
3162: END IF;
3164: IF NOT OE_Globals.Equal(
3165: p_header_rec.Invoicing_Rule_Id,
3166: p_old_db_header_rec.Invoicing_Rule_Id) AND
3167:
3168: OE_OE_FORM_HEADER.g_cascade_test_record.p_invoicing_rule='Y'
3169:
3170: THEN
3171: l_x_line_tbl(i).Invoicing_Rule_Id:=p_header_rec.Invoicing_Rule_Id;
3172: END IF;
3174: IF NOT OE_Globals.Equal(
3175: p_header_rec.Price_List_Id,
3176: p_old_db_header_rec.Price_List_Id) AND
3177:
3178: OE_OE_FORM_HEADER.g_cascade_test_record.p_price_list='Y'
3179:
3180: THEN
3181: l_x_line_tbl(i).Price_List_Id:=p_header_rec.Price_List_Id;
3182: END IF;
3185: IF NOT OE_Globals.Equal(
3186: p_header_rec.Request_date,
3187: p_old_db_header_rec.Request_date) AND
3188:
3189: OE_OE_FORM_HEADER.g_cascade_test_record.p_request_date='Y'
3190:
3191: THEN
3192: l_x_line_tbl(i).Request_Date:=p_header_rec.Request_Date;
3193: END IF;
3195: IF NOT OE_Globals.Equal(
3196: p_header_rec.Return_Reason_Code,
3197: p_old_db_header_rec.Return_Reason_Code) AND
3198:
3199: OE_OE_FORM_HEADER.g_cascade_test_record.p_return_reason='Y'
3200:
3201: THEN
3202: l_x_line_tbl(i).Return_Reason_Code:=p_header_rec.Return_reason_Code;
3203: END IF;
3205: IF NOT OE_Globals.Equal(
3206: p_header_rec.Salesrep_Id,
3207: p_old_db_header_rec.Salesrep_id) AND
3208:
3209: OE_OE_FORM_HEADER.g_cascade_test_record.p_salesperson='Y'
3210:
3211: THEN
3212: l_x_line_tbl(i).Salesrep_Id:=p_header_rec.Salesrep_Id;
3213: END IF;
3215: IF NOT OE_Globals.Equal(
3216: p_header_rec.Ship_From_Org_Id,
3217: p_old_db_header_rec.Ship_From_Org_id) AND
3218:
3219: OE_OE_FORM_HEADER.g_cascade_test_record.p_warehouse='Y'
3220:
3221: THEN
3222: l_x_line_tbl(i).Ship_From_Org_Id:=p_header_rec.Ship_From_Org_Id;
3223: END IF;
3225: IF NOT OE_Globals.Equal(
3226: p_header_rec.Ship_To_Contact_Id,
3227: p_old_db_header_rec.Ship_To_Contact_Id) AND
3228:
3229: OE_OE_FORM_HEADER.g_cascade_test_record.p_ship_to_contact='Y'
3230:
3231: THEN
3232: l_x_line_tbl(i).Ship_To_Contact_Id:=p_header_rec.Ship_To_Contact_Id;
3233: END IF;
3235: IF NOT OE_Globals.Equal(
3236: p_header_rec.Sold_To_Org_Id,
3237: p_old_db_header_rec.Sold_To_Org_id) AND
3238:
3239: OE_OE_FORM_HEADER.g_cascade_test_record.p_customer='Y'
3240:
3241: THEN
3242: l_x_line_tbl(i).Sold_To_Org_Id:=p_header_rec.Sold_To_Org_Id;
3243: END IF;
3245: IF NOT OE_Globals.Equal(
3246: p_header_rec.Tax_Exempt_Flag,
3247: p_old_db_header_rec.Tax_Exempt_Flag) AND
3248:
3249: OE_OE_FORM_HEADER.g_cascade_test_record.p_tax_exempt='Y'
3250:
3251: THEN
3252: l_x_line_tbl(i).Tax_Exempt_Flag:=p_header_rec.Tax_Exempt_Flag;
3253: END IF;
3457:
3458: BEGIN
3459:
3460:
3461: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Create_Agreement', 1);
3462:
3463: p_Agreement_rec.name := p_agreement_name;
3464: p_agreement_rec.creation_date :=sysdate;
3465: p_agreement_rec.created_by := FND_GLOBAL.USER_ID;
3604:
3605: PROCEDURE Copy_Attribute_To_Rec
3606: ( p_attr_id IN NUMBER
3607: , p_attr_value IN VARCHAR2
3608: , p_header_dff_rec IN OE_OE_FORM_HEADER.header_dff_rec_type
3609: , p_date_format_mask IN VARCHAR2 DEFAULT 'DD-MON-YYYY HH24:MI:SS'
3610: , x_header_rec IN OUT NOCOPY OE_Order_PUB.Header_Rec_Type
3611: , x_old_header_rec IN OUT NOCOPY OE_ORDER_PUB.Header_Rec_Type
3612: )
4031: l_phone_format Varchar2(300);
4032: l_AR_Sys_Param_Rec AR_SYSTEM_PARAMETERS_ALL%ROWTYPE;
4033:
4034: BEGIN
4035: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number', 1);
4036: IF OE_OE_FORM_HEADER.G_HZ_H_Installed IS NULL THEN
4037: SELECT COUNT(bug_id)
4038: INTO l_bug_count
4039: FROM ad_bugs where bug_number IN ('2116159','2239222','2488745');
4032: l_AR_Sys_Param_Rec AR_SYSTEM_PARAMETERS_ALL%ROWTYPE;
4033:
4034: BEGIN
4035: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number', 1);
4036: IF OE_OE_FORM_HEADER.G_HZ_H_Installed IS NULL THEN
4037: SELECT COUNT(bug_id)
4038: INTO l_bug_count
4039: FROM ad_bugs where bug_number IN ('2116159','2239222','2488745');
4040: IF l_bug_count>0 THEN
4037: SELECT COUNT(bug_id)
4038: INTO l_bug_count
4039: FROM ad_bugs where bug_number IN ('2116159','2239222','2488745');
4040: IF l_bug_count>0 THEN
4041: OE_OE_FORM_HEADER.G_HZ_H_Installed:='Y';
4042: ELSE
4043: OE_OE_FORM_HEADER.G_HZ_H_Installed:='N';
4044: END IF;
4045: END IF;
4039: FROM ad_bugs where bug_number IN ('2116159','2239222','2488745');
4040: IF l_bug_count>0 THEN
4041: OE_OE_FORM_HEADER.G_HZ_H_Installed:='Y';
4042: ELSE
4043: OE_OE_FORM_HEADER.G_HZ_H_Installed:='N';
4044: END IF;
4045: END IF;
4046: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number-HZ Minipack'||OE_OE_FORM_HEADER.G_HZ_H_Installed, 1);
4047:
4042: ELSE
4043: OE_OE_FORM_HEADER.G_HZ_H_Installed:='N';
4044: END IF;
4045: END IF;
4046: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number-HZ Minipack'||OE_OE_FORM_HEADER.G_HZ_H_Installed, 1);
4047:
4048: IF OE_OE_FORM_HEADER.G_HZ_H_Installed='N' THEN
4049: x_valid:=TRUE;
4050: ELSE
4044: END IF;
4045: END IF;
4046: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number-HZ Minipack'||OE_OE_FORM_HEADER.G_HZ_H_Installed, 1);
4047:
4048: IF OE_OE_FORM_HEADER.G_HZ_H_Installed='N' THEN
4049: x_valid:=TRUE;
4050: ELSE
4051: IF p_country_code IS NULL THEN
4052: BEGIN
4086: END IF;
4087: ELSE
4088: l_user_territory_code:=p_country_code;
4089: END IF;
4090: oe_debug_pub.add('Entering OE_OE_FORM_HEADER.Validate_Phone_Number-User Territory'||
4091: l_user_territory_code, 1);
4092:
4093:
4094:
4298: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4299: BEGIN
4300:
4301: IF l_debug_level > 0 THEN
4302: oe_debug_pub.add( 'ENTER OE_OE_FORM_HEADER.Check_Sec_Header_Attr' , 1 ) ;
4303: END IF;
4304:
4305: IF p_column_name IS NOT NULL THEN
4306: -- Initializing return status to SUCCESS
4352: ( p_count => x_msg_count
4353: , p_data => x_msg_data);
4354:
4355: IF l_debug_level > 0 THEN
4356: oe_debug_pub.add( 'EXIT OE_OE_FORM_HEADER.Check_Sec_Header_Attr' , 1 ) ;
4357: END IF;
4358:
4359: END Check_Sec_Header_Attr;
4360:
4372: -- Start Of Enhanced Cascading
4373:
4374: -- Procedure : Read_Cascadable_Fields
4375:
4376: -- Parameters : One out NOCOPY parameter is of type OE_OE_FORM_HEADER.Cascade_record
4377:
4378: -- Purpose : This procedure will be called from Change_Attribute procedure
4379: -- in OEXOEHDR.pld. A new OM look up OM:Header To Line Cascade
4380: -- Attributes( with lookup_type=OM_HEADER_TO_LINE_CASCADE ) is
4388: -- or not. So p_cached is used to make sure Read_Cascadable_Fields-- is called only once in a session.
4389:
4390: PROCEDURE Read_Cascadable_Fields
4391: (
4392: x_cascade_record OUT NOCOPY OE_OE_FORM_HEADER.cascade_record
4393: )
4394:
4395: IS
4396:
4396:
4397: l_lookup_type Varchar2(40):='OM_HEADER_TO_LINE_CASCADE';
4398: l_lookup_code Varchar2(40);
4399: l_enabled_flag Varchar2(1);
4400: p_cascade_record OE_OE_FORM_HEADER.Cascade_record;
4401:
4402: Cursor C_LOOKUP (p_lookup_code1 Varchar2, p_lookup_type1 Varchar2) IS
4403: Select enabled_flag from oe_lookups where lookup_type=p_lookup_type1 and lookup_code=p_lookup_code1;
4404:
4404:
4405:
4406: BEGIN
4407:
4408: OE_DEBUG_PUB.ADD('Entering OE_OE_FORM_HEADER.Read_Cascadable_Fields',1);
4409: l_lookup_code :='ACCOUNTING_RULE';
4410: open C_LOOKUP(l_lookup_code,l_lookup_type);
4411: fetch C_LOOKUP into l_enabled_flag;
4412: close C_LOOKUP;
4600: x_cascade_record:=p_cascade_record; -- Set the record
4601:
4602: x_cascade_record.p_cached:='Y'; -- Caching is done for this session
4603:
4604: OE_DEBUG_PUB.ADD('Exiting OE_OE_FORM_HEADER.Read_Cascadable_Fields',1);
4605:
4606: EXCEPTION
4607:
4608: WHEN NO_DATA_FOUND THEN
4613: END Read_Cascadable_Fields;
4614:
4615: --End Of Enhanced Cascading
4616:
4617: END Oe_Oe_Form_Header;