[Home] [Help]
15: PROCEDURE Get_Attr_Tbl
16: IS
17: I NUMBER:=0;
18: --
19: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
20: --
21: BEGIN
22:
23: FND_API.g_attr_tbl.DELETE;
256: ) RETURN VARCHAR2
257: IS
258: l_accounting_rule VARCHAR2(240) := NULL;
259: --
260: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
261: --
262: BEGIN
263:
264: IF p_accounting_rule_id IS NOT NULL THEN
308: IS
309: l_calculate_price_flag VARCHAR2(240) := NULL;
310: l_lookup_type VARCHAR2(80) :='CALCULATE_PRICE_FLAG';
311: --
312: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
313: --
314: BEGIN
315:
316: IF l_debug_level > 0 THEN
313: --
314: BEGIN
315:
316: IF l_debug_level > 0 THEN
317: oe_debug_pub.add( 'IN GET VALUES ' || P_CALCULATE_PRICE_FLAG ) ;
318: END IF;
319: IF p_calculate_price_flag IS NOT NULL THEN
320:
321: SELECT MEANING
327:
328: END IF;
329:
330: IF l_debug_level > 0 THEN
331: oe_debug_pub.add( 'IN GET VALUES ' || L_CALCULATE_PRICE_FLAG ) ;
332: END IF;
333: RETURN l_calculate_price_flag;
334:
335: EXCEPTION
370: ) RETURN VARCHAR2
371: IS
372: l_agreement VARCHAR2(240) := NULL;
373: --
374: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
375: --
376: BEGIN
377:
378: -- Appended name with revision for Bug 2249065
424: ) RETURN VARCHAR2
425: IS
426: l_conversion_type VARCHAR2(240) := NULL;
427: --
428: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
429: --
430: BEGIN
431:
432: IF p_conversion_type_code IS NOT NULL THEN
474: ) RETURN VARCHAR2
475: IS
476: l_deliver_to_contact VARCHAR2(240) := NULL;
477: --
478: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
479: --
480: BEGIN
481:
482: IF p_deliver_to_contact_id IS NOT NULL THEN
524: ) RETURN VARCHAR2
525: IS
526: l_inventory_org VARCHAR2(240) := NULL;
527: --
528: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
529: --
530: BEGIN
531:
532: IF p_inventory_org_id IS NOT NULL THEN
593:
594: )
595: IS
596: --
597: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
598: --
599: BEGIN
600:
601: IF p_deliver_to_org_id is NOT NULL THEN
673: IS
674: l_fob_point VARCHAR2(240) := NULL;
675: l_lookup_type VARCHAR2(80) :='FOB';
676: --
677: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
678: --
679: BEGIN
680:
681: IF p_fob_point_code IS NOT NULL THEN
725: IS
726: l_freight_terms VARCHAR2(240) := NULL;
727: l_lookup_type VARCHAR2(80) :='FREIGHT_TERMS';
728: --
729: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
730: --
731: BEGIN
732:
733: IF p_freight_terms_code IS NOT NULL THEN
778: ) RETURN VARCHAR2
779: IS
780: l_intermed_ship_to_contact VARCHAR2(240) := NULL;
781: --
782: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
783: --
784: BEGIN
785:
786: IF p_intermed_ship_to_contact_id IS NOT NULL THEN
845:
846: )
847: IS
848: --
849: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
850: --
851: BEGIN
852:
853: IF p_intermed_ship_to_org_id is NOT NULL THEN
924: ) RETURN VARCHAR2
925: IS
926: l_invoice_to_contact VARCHAR2(240) := NULL;
927: --
928: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
929: --
930: BEGIN
931:
932: IF p_invoice_to_contact_id IS NOT NULL THEN
993:
994: )
995: IS
996: --
997: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
998: --
999: BEGIN
1000:
1001: IF p_invoice_to_org_id is NOT NULL THEN
1072: ) RETURN VARCHAR2
1073: IS
1074: l_invoicing_rule VARCHAR2(240) := NULL;
1075: --
1076: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1077: --
1078: BEGIN
1079:
1080: IF p_invoicing_rule_id IS NOT NULL THEN
1122: ) RETURN VARCHAR2
1123: IS
1124: l_order_source VARCHAR2(240) := NULL;
1125: --
1126: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1127: --
1128: BEGIN
1129:
1130: IF p_order_source_id IS NOT NULL THEN
1172: ) RETURN VARCHAR2
1173: IS
1174: l_order_type VARCHAR2(240) := NULL;
1175: --
1176: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1177: --
1178: BEGIN
1179:
1180: IF p_order_type_id IS NOT NULL THEN
1222: ) RETURN VARCHAR2
1223: IS
1224: l_payment_term VARCHAR2(240) := NULL;
1225: --
1226: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1227: --
1228: BEGIN
1229:
1230: IF p_payment_term_id IS NOT NULL THEN
1272: ) RETURN VARCHAR2
1273: IS
1274: l_price_list VARCHAR2(240) := NULL;
1275: --
1276: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1277: --
1278: BEGIN
1279:
1280: IF p_price_list_id IS NOT NULL THEN
1323: ) RETURN VARCHAR2
1324: IS
1325: l_new_modifier_list VARCHAR2(240) := NULL;
1326: --
1327: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1328: --
1329: BEGIN
1330:
1331: IF p_new_modifier_list_id IS NOT NULL THEN
1373: IS
1374: l_demand_class VARCHAR2(240) := NULL;
1375: l_lookup_type VARCHAR2(80) :='DEMAND_CLASS';
1376: --
1377: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1378: --
1379: BEGIN
1380:
1381: IF p_demand_class_code IS NOT NULL THEN
1425: IS
1426: l_shipment_priority VARCHAR2(240) := NULL;
1427: l_lookup_type VARCHAR2(80) :='SHIPMENT_PRIORITY';
1428: --
1429: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1430: --
1431: BEGIN
1432:
1433: IF p_shipment_priority_code IS NOT NULL THEN
1487:
1488: )
1489: IS
1490: --
1491: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1492: --
1493: BEGIN
1494:
1495: IF p_ship_from_org_id is NOT NULL THEN
1558: ) RETURN VARCHAR2
1559: IS
1560: l_ship_to_contact VARCHAR2(240) := NULL;
1561: --
1562: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1563: --
1564: BEGIN
1565:
1566: IF p_ship_to_contact_id IS NOT NULL THEN
1627:
1628: )
1629: IS
1630: --
1631: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1632: --
1633: BEGIN
1634:
1635: IF p_ship_to_org_id is NOT NULL THEN
1705: ) RETURN VARCHAR2
1706: IS
1707: l_sold_to_contact VARCHAR2(240) := NULL;
1708: --
1709: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1710: --
1711: BEGIN
1712:
1713: IF p_sold_to_contact_id IS NOT NULL THEN
1756: x_customer_number OUT NOCOPY VARCHAR2
1757: )
1758: IS
1759: --
1760: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1761: --
1762: BEGIN
1763:
1764: IF p_sold_to_org_id is NOT NULL THEN
1763:
1764: IF p_sold_to_org_id is NOT NULL THEN
1765:
1766: IF l_debug_level > 0 THEN
1767: oe_debug_pub.add( 'DOING SELECT FOR CUSTOMER_NUMBER' ) ;
1768: END IF;
1769: SELECT O.NAME
1770: , O.CUSTOMER_NUMBER
1771: INTO x_org
1775:
1776: ELSE
1777:
1778: IF l_debug_level > 0 THEN
1779: oe_debug_pub.add( 'INSIDE QUERY FOR CUSTOMER NUMBER - NO ORG_ID PASSED' ) ;
1780: END IF;
1781: x_org := NULL ;
1782: x_customer_number := NULL ;
1783:
1821: x_account_description OUT NOCOPY VARCHAR2,
1822: x_registry_id OUT NOCOPY VARCHAR2
1823: ) IS
1824: --
1825: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1826: --
1827: BEGIN
1828:
1829: IF p_sold_to_org_id is NOT NULL THEN
1828:
1829: IF p_sold_to_org_id is NOT NULL THEN
1830:
1831: IF l_debug_level > 0 THEN
1832: oe_debug_pub.add( 'DOING SELECT FOR CUSTOMER_NUMBER' ) ;
1833: END IF;
1834: SELECT P.PARTY_NAME
1835: , C.ACCOUNT_NUMBER
1836: , C.ACCOUNT_NAME
1846:
1847: ELSE
1848:
1849: IF l_debug_level > 0 THEN
1850: oe_debug_pub.add( 'INSIDE QUERY FOR CUSTOMER NUMBER - NO ORG_ID PASSED' ) ;
1851: END IF;
1852: x_org := NULL ;
1853: x_customer_number := NULL ;
1854: x_account_description:= NULL ;
1893:
1894: -- eBTax Changes
1895: l_lookup_type VARCHAR2(80) :='ZX_EXEMPTION_CONTROL';
1896: --
1897: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1898: --
1899: BEGIN
1900:
1901: IF p_tax_exempt_flag IS NOT NULL THEN
1946: l_tax_exempt_reason VARCHAR2(240) := NULL;
1947: -- eBTax changes
1948: l_lookup_type VARCHAR2(80) :='ZX_EXEMPTION_REASON_CODE';
1949: --
1950: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1951: --
1952: BEGIN
1953:
1954: IF p_tax_exempt_reason_code IS NOT NULL THEN
1998: IS
1999: l_tax_point VARCHAR2(240) := NULL;
2000: l_lookup_type VARCHAR2(80) :='TAX_POINT_TYPE';
2001: --
2002: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2003: --
2004: BEGIN
2005:
2006: IF p_tax_point_code IS NOT NULL THEN
2049: ) RETURN VARCHAR2
2050: IS
2051: l_discount VARCHAR2(240) := NULL;
2052: --
2053: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2054: --
2055: BEGIN
2056:
2057: IF p_discount_id IS NOT NULL THEN
2105: select name
2106: from oe_sales_credit_types
2107: where sales_credit_type_id = p_sales_credit_type_id;
2108: --
2109: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2110: --
2111: BEGIN
2112:
2113: IF p_sales_credit_type_id IS NOT NULL THEN
2156: select name
2157: from ra_salesreps
2158: where salesrep_id = p_salesrep_id;
2159: --
2160: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2161: --
2162: BEGIN
2163:
2164: IF p_salesrep_id IS NOT NULL THEN
2203: ) RETURN VARCHAR2
2204: IS
2205: l_customer_item VARCHAR2(240) := NULL;
2206: --
2207: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2208: --
2209: BEGIN
2210:
2211: IF p_customer_item_id IS NOT NULL THEN
2255: ) RETURN VARCHAR2
2256: IS
2257: l_demand_bucket_type VARCHAR2(240) := NULL;
2258: --
2259: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2260: --
2261: BEGIN
2262:
2263: IF p_demand_bucket_type_code IS NOT NULL THEN
2308: IS
2309: l_inventory_item VARCHAR2(240) := NULL;
2310: l_validation_org_id NUMBER := NULL;
2311: --
2312: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2313: --
2314: BEGIN
2315:
2316: IF p_inventory_item_id IS NOT NULL THEN
2365: ) RETURN VARCHAR2
2366: IS
2367: l_item_type VARCHAR2(240) := NULL;
2368: --
2369: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2370: --
2371: BEGIN
2372:
2373: IF p_item_type_code IS NOT NULL THEN
2417: ) RETURN VARCHAR2
2418: IS
2419: l_line_type VARCHAR2(240) := NULL;
2420: --
2421: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2422: --
2423: BEGIN
2424:
2425: IF p_line_type_id IS NOT NULL THEN
2467: ) RETURN VARCHAR2
2468: IS
2469: l_project VARCHAR2(240) := NULL;
2470: --
2471: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2472: --
2473: BEGIN
2474: IF p_project_id IS NOT NULL THEN
2475:
2514: ) RETURN VARCHAR2
2515: IS
2516: l_rla_schedule_type VARCHAR2(240) := NULL;
2517: --
2518: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2519: --
2520: BEGIN
2521:
2522: IF p_rla_schedule_type_code IS NOT NULL THEN
2566: ) RETURN VARCHAR2
2567: IS
2568: l_task VARCHAR2(240) := NULL;
2569: --
2570: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2571: --
2572: BEGIN
2573:
2574: IF p_task_id IS NOT NULL THEN
2614: ) RETURN VARCHAR2
2615: IS
2616: l_over_ship_reason VARCHAR2(240) := NULL;
2617: --
2618: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2619: --
2620: BEGIN
2621:
2622: IF p_over_ship_reason_code IS NOT NULL THEN
2667: IS
2668: l_source_type VARCHAR2(240) := NULL;
2669: l_lookup_type VARCHAR2(80) :='SOURCE_TYPE';
2670: --
2671: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2672: --
2673: BEGIN
2674:
2675: IF p_source_type_code IS NOT NULL THEN
2719: IS
2720: l_order_date_type VARCHAR2(80) := NULL;
2721: l_lookup_type VARCHAR2(80) := 'REQUEST_DATE_TYPE';
2722: --
2723: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2724: --
2725: BEGIN
2726:
2727: IF p_order_date_type_code IS NOT NULL THEN
2771: IS
2772: l_return_reason VARCHAR2(240) := NULL;
2773: l_lookup_type VARCHAR2(80) :='CREDIT_MEMO_REASON';
2774: --
2775: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2776: --
2777: BEGIN
2778:
2779: IF p_return_reason_code IS NOT NULL THEN
2827:
2828: )
2829: IS
2830: --
2831: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2832: --
2833: BEGIN
2834:
2835: IF p_reference_line_id IS NOT NULL THEN
2894:
2895: )
2896: IS
2897: --
2898: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2899: --
2900: BEGIN
2901:
2902: IF p_reference_cust_trx_line_id IS NOT NULL THEN
2949: ) RETURN VARCHAR2
2950: IS
2951: l_credit_invoice_number VARCHAR2(240) := NULL;
2952: --
2953: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2954: --
2955: BEGIN
2956:
2957: IF p_credit_invoice_line_id IS NOT NULL THEN
3001: ) RETURN VARCHAR2
3002: IS
3003: l_veh_cus_item_cum_key VARCHAR2(240) := NULL;
3004: --
3005: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3006: --
3007: BEGIN
3008:
3009: IF p_veh_cus_item_cum_key_id IS NOT NULL THEN
3054: IS
3055: l_payment_type VARCHAR2(240) := NULL;
3056: l_lookup_type VARCHAR2(80) := 'PAYMENT TYPE';
3057: --
3058: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3059: --
3060: BEGIN
3061:
3062: IF p_payment_type_code IS NOT NULL THEN
3123: IS
3124: l_credit_card VARCHAR2(240) := NULL;
3125: l_lookup_type VARCHAR2(80) :='CREDIT_CARD';
3126: --
3127: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3128: --
3129: BEGIN
3130:
3131: IF p_credit_card_code IS NOT NULL THEN
3173: ) RETURN VARCHAR2
3174: IS
3175: l_commitment VARCHAR2(240) := NULL;
3176: --
3177: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3178: --
3179: BEGIN
3180:
3181: IF p_commitment_id IS NOT NULL THEN
3227: ) RETURN VARCHAR2
3228: IS
3229: l_agreement_contact VARCHAR2(240) := NULL;
3230: --
3231: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3232: --
3233: BEGIN
3234:
3235: IF p_agreement_contact_id IS NOT NULL THEN
3279: ) RETURN VARCHAR2
3280: IS
3281: l_agreement_type VARCHAR2(240) := NULL;
3282: --
3283: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3284: --
3285: BEGIN
3286:
3287: IF p_agreement_type_code IS NOT NULL THEN
3331: ) RETURN VARCHAR2
3332: IS
3333: l_customer VARCHAR2(240) := NULL;
3334: --
3335: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3336: --
3337: BEGIN
3338:
3339: IF p_sold_to_org_id IS NOT NULL THEN
3383: ) RETURN VARCHAR2
3384: IS
3385: l_invoice_contact VARCHAR2(240) := NULL;
3386: --
3387: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3388: --
3389: BEGIN
3390:
3391: IF p_invoice_contact_id IS NOT NULL THEN
3435: ) RETURN VARCHAR2
3436: IS
3437: l_invoice_to_site_use VARCHAR2(240) := NULL;
3438: --
3439: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3440: --
3441: BEGIN
3442:
3443: IF p_invoice_to_org_id IS NOT NULL THEN
3487: ) RETURN VARCHAR2
3488: IS
3489: l_override_arule VARCHAR2(240) := NULL;
3490: --
3491: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3492: --
3493: BEGIN
3494:
3495: IF p_override_arule_flag IS NOT NULL THEN
3539: ) RETURN VARCHAR2
3540: IS
3541: l_override_irule VARCHAR2(240) := NULL;
3542: --
3543: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3544: --
3545: BEGIN
3546:
3547: IF p_override_irule_flag IS NOT NULL THEN
3591: ) RETURN VARCHAR2
3592: IS
3593: l_revision_reason VARCHAR2(240) := NULL;
3594: --
3595: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3596: --
3597: BEGIN
3598:
3599: IF p_revision_reason_code IS NOT NULL THEN
3643: ) RETURN VARCHAR2
3644: IS
3645: l_ship_method VARCHAR2(240) := NULL;
3646: --
3647: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3648: --
3649: BEGIN
3650:
3651: IF p_ship_method_code IS NOT NULL THEN
3695: ) RETURN VARCHAR2
3696: IS
3697: l_term VARCHAR2(240) := NULL;
3698: --
3699: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3700: --
3701: BEGIN
3702:
3703: IF p_term_id IS NOT NULL THEN
3747: ) RETURN VARCHAR2
3748: IS
3749: l_currency VARCHAR2(240) := NULL;
3750: --
3751: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3752: --
3753: BEGIN
3754:
3755: IF p_currency_code IS NOT NULL THEN
3799: ) RETURN VARCHAR2
3800: IS
3801: l_secondary_price_list VARCHAR2(240) := NULL;
3802: --
3803: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3804: --
3805: BEGIN
3806:
3807: IF p_secondary_price_list_id IS NOT NULL THEN
3851: ) RETURN VARCHAR2
3852: IS
3853: l_terms VARCHAR2(240) := NULL;
3854: --
3855: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3856: --
3857: BEGIN
3858:
3859: IF p_terms_id IS NOT NULL THEN
3903: ) RETURN VARCHAR2
3904: IS
3905: l_automatic_discount VARCHAR2(240) := NULL;
3906: --
3907: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3908: --
3909: BEGIN
3910:
3911: IF p_automatic_discount_flag IS NOT NULL THEN
3955: ) RETURN VARCHAR2
3956: IS
3957: l_discount_lines VARCHAR2(240) := NULL;
3958: --
3959: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3960: --
3961: BEGIN
3962:
3963: IF p_discount_lines_flag IS NOT NULL THEN
4007: ) RETURN VARCHAR2
4008: IS
4009: l_discount_type VARCHAR2(240) := NULL;
4010: --
4011: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4012: --
4013: BEGIN
4014:
4015: IF p_discount_type_code IS NOT NULL THEN
4059: ) RETURN VARCHAR2
4060: IS
4061: l_manual_discount VARCHAR2(240) := NULL;
4062: --
4063: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4064: --
4065: BEGIN
4066:
4067: IF p_manual_discount_flag IS NOT NULL THEN
4111: ) RETURN VARCHAR2
4112: IS
4113: l_override_allowed VARCHAR2(240) := NULL;
4114: --
4115: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4116: --
4117: BEGIN
4118:
4119: IF p_override_allowed_flag IS NOT NULL THEN
4163: ) RETURN VARCHAR2
4164: IS
4165: l_prorate VARCHAR2(240) := NULL;
4166: --
4167: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4168: --
4169: BEGIN
4170:
4171: IF p_prorate_flag IS NOT NULL THEN
4215: ) RETURN VARCHAR2
4216: IS
4217: l_method VARCHAR2(240) := NULL;
4218: --
4219: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4220: --
4221: BEGIN
4222:
4223: IF p_method_code IS NOT NULL THEN
4267: ) RETURN VARCHAR2
4268: IS
4269: l_price_list_line VARCHAR2(240) := NULL;
4270: --
4271: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4272: --
4273: BEGIN
4274:
4275: IF p_price_list_line_id IS NOT NULL THEN
4319: ) RETURN VARCHAR2
4320: IS
4321: l_pricing_rule VARCHAR2(240) := NULL;
4322: --
4323: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4324: --
4325: BEGIN
4326:
4327: IF p_pricing_rule_id IS NOT NULL THEN
4371: ) RETURN VARCHAR2
4372: IS
4373: l_reprice VARCHAR2(240) := NULL;
4374: --
4375: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4376: --
4377: BEGIN
4378:
4379: IF p_reprice_flag IS NOT NULL THEN
4423: ) RETURN VARCHAR2
4424: IS
4425: l_unit VARCHAR2(240) := NULL;
4426: --
4427: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4428: --
4429: BEGIN
4430:
4431: IF p_unit_code IS NOT NULL THEN
4475: ) RETURN VARCHAR2
4476: IS
4477: l_customer_class VARCHAR2(240) := NULL;
4478: --
4479: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4480: --
4481: BEGIN
4482:
4483: IF p_customer_class_code IS NOT NULL THEN
4527: ) RETURN VARCHAR2
4528: IS
4529: l_discount_customer VARCHAR2(240) := NULL;
4530: --
4531: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4532: --
4533: BEGIN
4534:
4535: IF p_discount_customer_id IS NOT NULL THEN
4579: ) RETURN VARCHAR2
4580: IS
4581: l_site_use VARCHAR2(240) := NULL;
4582: --
4583: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4584: --
4585: BEGIN
4586:
4587: IF p_site_use_id IS NOT NULL THEN
4631: ) RETURN VARCHAR2
4632: IS
4633: l_entity VARCHAR2(240) := NULL;
4634: --
4635: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4636: --
4637: BEGIN
4638:
4639: IF p_entity_id IS NOT NULL THEN
4683: ) RETURN VARCHAR2
4684: IS
4685: l_method_type VARCHAR2(240) := NULL;
4686: --
4687: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4688: --
4689: BEGIN
4690:
4691: IF p_method_type_code IS NOT NULL THEN
4735: ) RETURN VARCHAR2
4736: IS
4737: l_lot_serial VARCHAR2(240) := NULL;
4738: --
4739: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4740: --
4741: BEGIN
4742:
4743: IF p_lot_serial_id IS NOT NULL THEN
4787: ) RETURN VARCHAR2
4788: IS
4789: l_appear_on_ack VARCHAR2(240) := NULL;
4790: --
4791: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4792: --
4793: BEGIN
4794:
4795: IF p_appear_on_ack_flag IS NOT NULL THEN
4839: ) RETURN VARCHAR2
4840: IS
4841: l_appear_on_invoice VARCHAR2(240) := NULL;
4842: --
4843: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4844: --
4845: BEGIN
4846:
4847: IF p_appear_on_invoice_flag IS NOT NULL THEN
4891: ) RETURN VARCHAR2
4892: IS
4893: l_charge VARCHAR2(240) := NULL;
4894: --
4895: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4896: --
4897: BEGIN
4898:
4899: IF p_charge_id IS NOT NULL THEN
4943: ) RETURN VARCHAR2
4944: IS
4945: l_charge_type VARCHAR2(240) := NULL;
4946: --
4947: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4948: --
4949: BEGIN
4950:
4951: IF p_charge_type_id IS NOT NULL THEN
4995: ) RETURN VARCHAR2
4996: IS
4997: l_cost_or_charge VARCHAR2(240) := NULL;
4998: --
4999: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5000: --
5001: BEGIN
5002:
5003: IF p_cost_or_charge_flag IS NOT NULL THEN
5047: ) RETURN VARCHAR2
5048: IS
5049: l_delivery VARCHAR2(240) := NULL;
5050: --
5051: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5052: --
5053: BEGIN
5054:
5055: IF p_delivery_id IS NOT NULL THEN
5099: ) RETURN VARCHAR2
5100: IS
5101: l_departure VARCHAR2(240) := NULL;
5102: --
5103: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5104: --
5105: BEGIN
5106:
5107: IF p_departure_id IS NOT NULL THEN
5151: ) RETURN VARCHAR2
5152: IS
5153: l_estimated VARCHAR2(240) := NULL;
5154: --
5155: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5156: --
5157: BEGIN
5158:
5159: IF p_estimated_flag IS NOT NULL THEN
5203: ) RETURN VARCHAR2
5204: IS
5205: l_invoiced VARCHAR2(240) := NULL;
5206: --
5207: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5208: --
5209: BEGIN
5210:
5211: IF p_invoiced_flag IS NOT NULL THEN
5255: ) RETURN VARCHAR2
5256: IS
5257: l_parent_charge VARCHAR2(240) := NULL;
5258: --
5259: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5260: --
5261: BEGIN
5262:
5263: IF p_parent_charge_id IS NOT NULL THEN
5307: ) RETURN VARCHAR2
5308: IS
5309: l_returnable VARCHAR2(240) := NULL;
5310: --
5311: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5312: --
5313: BEGIN
5314:
5315: IF p_returnable_flag IS NOT NULL THEN
5359: ) RETURN VARCHAR2
5360: IS
5361: l_tax_group VARCHAR2(1) := NULL;
5362: --
5363: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5364: --
5365: BEGIN
5366:
5367: IF p_tax_code IS NOT NULL THEN
5413: l_flow_status VARCHAR2(240) := NULL;
5414: l_lookup_type1 VARCHAR2(80) :='FLOW_STATUS';
5415: l_lookup_type2 VARCHAR2(80) :='LINE_FLOW_STATUS';
5416: --
5417: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5418: --
5419: BEGIN
5420:
5421: IF p_flow_status_code IS NOT NULL THEN
5467: IS
5468: l_freight_carrier VARCHAR2(240) := NULL;
5469: l_ship_from_org_id NUMBER;
5470: --
5471: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5472: --
5473: BEGIN
5474:
5475: IF p_ship_from_org_id = FND_API.G_MISS_NUM THEN
5529: IS
5530: l_sales_channel VARCHAR2(80);
5531: l_lookup_type VARCHAR2(80) := 'SALES_CHANNEL';
5532: --
5533: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5534: --
5535: BEGIN
5536:
5537: IF p_sales_channel_code IS NOT NULL THEN
5583:
5584: IS
5585: l_site_use_code VARCHAR2(30);
5586: --
5587: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5588: --
5589: BEGIN
5590:
5591: IF p_ship_to_org_id is NOT NULL THEN
5646:
5647: IS
5648: l_site_use_code VARCHAR2(30);
5649: --
5650: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5651: --
5652: BEGIN
5653:
5654: IF p_invoice_to_org_id is NOT NULL THEN
5713: , x_inventory_item OUT NOCOPY VARCHAR2)
5714:
5715: IS
5716: --
5717: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5718: --
5719: BEGIN
5720: IF l_debug_level > 0 THEN
5721: oe_debug_pub.add( 'ENTERING ORDERED_ITEM' , 1 ) ;
5717: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5718: --
5719: BEGIN
5720: IF l_debug_level > 0 THEN
5721: oe_debug_pub.add( 'ENTERING ORDERED_ITEM' , 1 ) ;
5722: END IF;
5723: IF NVL(p_item_identifier_type, 'INT') = 'INT' THEN
5724: BEGIN
5725: IF l_debug_level > 0 THEN
5722: END IF;
5723: IF NVL(p_item_identifier_type, 'INT') = 'INT' THEN
5724: BEGIN
5725: IF l_debug_level > 0 THEN
5726: oe_debug_pub.add( 'IN OEXSIDVB ITEM IDENTIFIER IS INT' ) ;
5727: END IF;
5728:
5729: SELECT concatenated_segments
5730: ,concatenated_segments
5733: FROM mtl_system_items_vl
5734: WHERE inventory_item_id = p_inventory_item_id
5735: AND organization_id = p_organization_id;
5736: IF l_debug_level > 0 THEN
5737: oe_debug_pub.add( 'ORDERED_ITEM_DSP: '||X_ORDERED_ITEM ) ;
5738: END IF;
5739:
5740: EXCEPTION
5741: WHEN NO_DATA_FOUND THEN
5747: END;
5748: ELSIF NVL(p_item_identifier_type, 'INT') = 'CUST' THEN
5749: BEGIN
5750: IF l_debug_level > 0 THEN
5751: oe_debug_pub.add( 'IN OEXSIDVB ITEM IDENTIFIER IS CUST' ) ;
5752: END IF;
5753: SELECT citems.customer_item_number
5754: ,sitems.concatenated_segments
5755: INTO x_ordered_item
5774: -- 12874640 Start
5775: ELSIF NVL(p_item_identifier_type, 'INT') = 'CAT' THEN
5776: BEGIN
5777: IF l_debug_level > 0 THEN
5778: oe_debug_pub.add( 'IN OEXSIDVB ITEM IDENTIFIER IS CAT' ) ;
5779: END IF;
5780:
5781: SELECT category_concat_segs
5782: ,category_concat_segs
5784: ,x_inventory_item
5785: FROM mtl_categories_v
5786: WHERE category_id = p_inventory_item_id;
5787: IF l_debug_level > 0 THEN
5788: oe_debug_pub.add( 'ORDERED_ITEM_DSP: '||X_ORDERED_ITEM ) ;
5789: END IF;
5790: EXCEPTION
5791: WHEN NO_DATA_FOUND THEN
5792: Null;
5798: -- 12874640 End
5799: ELSE
5800: BEGIN
5801: IF l_debug_level > 0 THEN
5802: oe_debug_pub.add( 'IN OEXSIDVB ITEM IDENTIFIER IS GENE' ) ;
5803: END IF;
5804: IF p_ordered_item_id IS NULL THEN
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( 'ORDERED_ITEM_ID IS NULL ' ) ;
5802: oe_debug_pub.add( 'IN OEXSIDVB ITEM IDENTIFIER IS GENE' ) ;
5803: END IF;
5804: IF p_ordered_item_id IS NULL THEN
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( 'ORDERED_ITEM_ID IS NULL ' ) ;
5807: oe_debug_pub.add( 'ORDERED_ITEM: '||P_ORDERED_ITEM ) ;
5808: END IF;
5809: SELECT items.cross_reference
5810: ,sitems.concatenated_segments
5803: END IF;
5804: IF p_ordered_item_id IS NULL THEN
5805: IF l_debug_level > 0 THEN
5806: oe_debug_pub.add( 'ORDERED_ITEM_ID IS NULL ' ) ;
5807: oe_debug_pub.add( 'ORDERED_ITEM: '||P_ORDERED_ITEM ) ;
5808: END IF;
5809: SELECT items.cross_reference
5810: ,sitems.concatenated_segments
5811: INTO x_ordered_item
5830: Null;
5831: END;
5832: END IF;
5833: IF l_debug_level > 0 THEN
5834: oe_debug_pub.add( 'ORDERED_ITEM_DSP: '||X_ORDERED_ITEM ) ;
5835: END IF;
5836: EXCEPTION
5837:
5838: WHEN NO_DATA_FOUND THEN
5866: , x_Item_Identifier OUT NOCOPY VARCHAR2)
5867:
5868: IS
5869: --
5870: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5871: l_lookup_type VARCHAR2(80) :='ITEM_IDENTIFIER_TYPE';
5872: --
5873: BEGIN
5874: IF l_debug_level > 0 THEN
5871: l_lookup_type VARCHAR2(80) :='ITEM_IDENTIFIER_TYPE';
5872: --
5873: BEGIN
5874: IF l_debug_level > 0 THEN
5875: oe_debug_pub.add( 'ENTERING ITEM_IDENTIFIER' , 1 ) ;
5876: END IF;
5877: --12874640 IF p_Item_Identifier_type in ('INT','CUST') THEN
5878: IF p_Item_Identifier_type in ('INT','CUST','CAT') THEN --12874640
5879: Select meaning
5886:
5887: END IF;
5888:
5889: IF l_debug_level > 0 THEN
5890: oe_debug_pub.add( 'ITEM_IDENTIFIER' || X_ITEM_IDENTIFIER , 1 ) ;
5891: END IF;
5892: EXCEPTION
5893:
5894: WHEN NO_DATA_FOUND THEN
5921: (p_Item_Relationship_Type IN NUMBER
5922: , x_Item_Relationship_Type_Dsp OUT nocopy VARCHAR2)
5923: IS
5924: --
5925: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5926: l_lookup_type VARCHAR2(80) :='MTL_RELATIONSHIP_TYPES';
5927: --
5928: BEGIN
5929: IF l_debug_level > 0 THEN
5926: l_lookup_type VARCHAR2(80) :='MTL_RELATIONSHIP_TYPES';
5927: --
5928: BEGIN
5929: IF l_debug_level > 0 THEN
5930: oe_debug_pub.add('Entering Item_Relationship_Type',1);
5931: END IF;
5932: IF p_Item_Relationship_Type IS NOT NULL THEN
5933: Select meaning
5934: Into x_Item_Relationship_Type_dsp
5938: ELSE
5939: x_Item_Relationship_Type_Dsp := null;
5940:
5941: IF l_debug_level > 0 THEN
5942: oe_debug_pub.add('in else Item_Relationship_Type' || x_Item_Relationship_Type_Dsp,1);
5943: END IF;
5944: END IF;
5945:
5946: IF l_debug_level > 0 THEN
5943: END IF;
5944: END IF;
5945:
5946: IF l_debug_level > 0 THEN
5947: oe_debug_pub.add('Item_Relationship_Type_dsp' || x_Item_Relationship_Type_Dsp,1);
5948: END IF;
5949: EXCEPTION
5950:
5951: WHEN NO_DATA_FOUND THEN
5979: ) RETURN VARCHAR2
5980: IS
5981: l_user_status VARCHAR2(240) := NULL;
5982: --
5983: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5984: l_lookup_type VARCHAR2(80) := 'USER_STATUS';
5985: --
5986: BEGIN
5987:
5985: --
5986: BEGIN
5987:
5988: IF l_debug_level > 0 THEN
5989: oe_debug_pub.add( 'IN GET VALUES ' || p_user_status_code ) ;
5990: END IF;
5991: IF p_user_status_code IS NOT NULL THEN
5992:
5993: SELECT MEANING
5999:
6000: END IF;
6001:
6002: IF l_debug_level > 0 THEN
6003: oe_debug_pub.add( 'IN GET VALUES ' || L_user_status ) ;
6004: END IF;
6005: RETURN l_user_status;
6006:
6007: EXCEPTION
6039: ) RETURN VARCHAR2
6040: IS
6041: l_Transaction_Phase VARCHAR2(240) := NULL;
6042: --
6043: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6044: l_lookup_type VARCHAR2(80) :='TRANSACTION_PHASE';
6045: --
6046: BEGIN
6047:
6045: --
6046: BEGIN
6047:
6048: IF l_debug_level > 0 THEN
6049: oe_debug_pub.add( 'IN GET VALUES ' || p_Transaction_Phase_code ) ;
6050: END IF;
6051: IF p_Transaction_Phase_code IS NOT NULL THEN
6052:
6053: SELECT MEANING
6059:
6060: END IF;
6061:
6062: IF l_debug_level > 0 THEN
6063: oe_debug_pub.add( 'IN GET VALUES ' || L_Transaction_Phase ) ;
6064: END IF;
6065: RETURN l_Transaction_Phase;
6066:
6067: EXCEPTION
6106: , x_sold_to_location_country OUT NOCOPY VARCHAR2
6107: )
6108: IS
6109: --
6110: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6111: --
6112: BEGIN
6113:
6114: IF p_sold_to_site_use_id is NOT NULL THEN
6236: AND ARL.lookup_code(+) = CONTACT.phone_line_type;
6237:
6238: EXCEPTION
6239: WHEN others THEN
6240: oe_debug_pub.add('Get_Contact_Details ' || sqlerrm, 1);
6241: END Get_Contact_Details;
6242:
6243: --serla begin
6244: FUNCTION payment_collection_event_name
6293: ( p_receipt_method IN NUMBER
6294: ) RETURN VARCHAR2
6295: IS
6296: l_receipt_method VARCHAR2(80);
6297: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6298: l_err_message VARCHAR2(2000);
6299: BEGIN
6300:
6301: IF l_debug_level > 0 THEN
6298: l_err_message VARCHAR2(2000);
6299: BEGIN
6300:
6301: IF l_debug_level > 0 THEN
6302: oe_debug_pub.add('Receipt method id....ksurendr'||p_receipt_method);
6303: END IF;
6304:
6305: IF p_receipt_method IS NOT NULL AND p_receipt_method <> 0 AND
6306: NOT OE_GLOBALS.Equal(p_receipt_method,FND_API.G_MISS_NUM) THEN
6304:
6305: IF p_receipt_method IS NOT NULL AND p_receipt_method <> 0 AND
6306: NOT OE_GLOBALS.Equal(p_receipt_method,FND_API.G_MISS_NUM) THEN
6307: IF l_debug_level > 0 THEN
6308: oe_debug_pub.add('Inside if part....');
6309: END IF;
6310: SELECT NAME
6311: INTO l_receipt_method
6312: FROM AR_RECEIPT_METHODS
6313: WHERE receipt_method_id = p_receipt_method;
6314: --bug 5204358
6315: ELSIF p_receipt_method = 0 THEN
6316: IF l_debug_level > 0 THEN
6317: oe_debug_pub.add('Inside else part....');
6318: END IF;
6319: fnd_message.set_name('ONT','OE_VPM_NO_PAY_METHOD');
6320: OE_MSG_PUB.Add;
6321: RAISE FND_API.G_EXC_ERROR;
6338:
6339: WHEN FND_API.G_EXC_ERROR THEN
6340: l_err_message := SQLERRM;
6341: IF l_debug_level > 0 THEN
6342: oe_debug_pub.add('Id to value error for receipt method....exc');
6343: oe_debug_pub.add('Error'||l_err_message);
6344: END IF;
6345:
6346: RAISE FND_API.G_EXC_ERROR;
6339: WHEN FND_API.G_EXC_ERROR THEN
6340: l_err_message := SQLERRM;
6341: IF l_debug_level > 0 THEN
6342: oe_debug_pub.add('Id to value error for receipt method....exc');
6343: oe_debug_pub.add('Error'||l_err_message);
6344: END IF;
6345:
6346: RAISE FND_API.G_EXC_ERROR;
6347:
6371: Select group_name into l_sales_group_name
6372: From jtf_rs_groups_vl
6373: Where Group_id=p_sales_group_id;
6374: ELSE
6375: Oe_Debug_Pub.add('Input sales group id is null');
6376: END IF;
6377:
6378: RETURN l_sales_group_name;
6379:
6389: OE_MSG_PUB.Add;
6390:
6391: END IF;
6392: ELSE
6393: oe_debug_pub.add('Sales Group, -1 sales group id');
6394: END IF;
6395:
6396:
6397: WHEN OTHERS THEN
6413: ) RETURN VARCHAR2
6414: IS
6415: l_end_customer_contact VARCHAR2(240) := NULL;
6416: --
6417: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6418: --
6419: BEGIN
6420:
6421: IF p_end_customer_contact_id IS NOT NULL THEN
6464: x_end_customer_number OUT NOCOPY VARCHAR2
6465: )
6466: IS
6467: --
6468: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6469: --
6470: BEGIN
6471:
6472: IF p_end_customer_id is NOT NULL THEN
6471:
6472: IF p_end_customer_id is NOT NULL THEN
6473:
6474: IF l_debug_level > 0 THEN
6475: oe_debug_pub.add( 'DOING SELECT FOR END_CUSTOMER_NUMBER' ) ;
6476: END IF;
6477: SELECT O.NAME
6478: , O.CUSTOMER_NUMBER
6479: INTO x_end_customer_name
6483:
6484: ELSE
6485:
6486: IF l_debug_level > 0 THEN
6487: oe_debug_pub.add( 'INSIDE QUERY FOR END CUSTOMER NUMBER - NO ORG_ID PASSED' ) ;
6488: END IF;
6489: x_end_customer_name := NULL ;
6490: x_end_customer_number := NULL ;
6491:
6532: , x_end_customer_country OUT NOCOPY /* file.sql.39 change */ VARCHAR2
6533: )
6534: IS
6535: --
6536: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6537: --
6538: BEGIN
6539:
6540: IF p_end_customer_site_use_id is NOT NULL THEN
6619: l_ib_owner_dsp VARCHAR2(60) := NULL;
6620: l_lookup_type1 VARCHAR2(80) :='ITEM_OWNER';
6621: l_lookup_type2 VARCHAR2(80) :='ONT_INSTALL_BASE';
6622: --
6623: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6624: --
6625: BEGIN
6626:
6627: IF p_ib_owner IS NOT NULL THEN
6672: l_ib_current_location_dsp VARCHAR2(60) := NULL;
6673: l_lookup_type1 VARCHAR2(80) :='ITEM_CURRENT_LOCATION';
6674: l_lookup_type2 VARCHAR2(80) :='ONT_INSTALL_BASE';
6675: --
6676: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6677: --
6678: BEGIN
6679:
6680: IF p_ib_current_location IS NOT NULL THEN
6725: l_ib_installed_at_location_dsp VARCHAR2(60) := NULL;
6726: l_lookup_type1 VARCHAR2(80) :='ITEM_INSTALL_LOCATION';
6727: l_lookup_type2 VARCHAR2(80) :='ONT_INSTALL_BASE';
6728: --
6729: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6730: --
6731: BEGIN
6732:
6733: IF p_ib_installed_at_location IS NOT NULL THEN
6780: l_charge_periodicity_dsp VARCHAR2(60) := NULL;
6781: --l_profile_value VARCHAR2(80) :=Oe_Sys_Parameters.Value('UOM_CLASS_CHARGE_PERIODICITY');
6782: l_profile_value VARCHAR2(80) :=fnd_profile.Value('ONT_UOM_CLASS_CHARGE_PERIODICITY');
6783: --
6784: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6785: --
6786: BEGIN
6787:
6788: IF p_charge_periodicity_code IS NOT NULL THEN
6834: ,p_inventory_item_id IN NUMBER
6835: ) RETURN VARCHAR2
6836: IS
6837: l_service_period_dsp VARCHAR2(60) := NULL;
6838: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6839: l_temp VARCHAR2(60) := NULL;
6840: BEGIN
6841:
6842: IF p_service_period IS NOT NULL THEN
6900: ( p_service_reference_type_code IN VARCHAR2
6901: ) RETURN VARCHAR2
6902: IS
6903: l_service_reference_type VARCHAR2(240) := NULL;
6904: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6905: BEGIN
6906:
6907: IF p_service_reference_type_code IS NOT NULL THEN
6908:
6956: l_change_reason VARCHAR2(60) := NULL;
6957: l_lookup_type1 VARCHAR2(80) :='CHANGE_CODE';
6958: l_lookup_type2 VARCHAR2(80) :='CANCEL_CODE';
6959: --
6960: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6961: --
6962: BEGIN
6963:
6964: IF p_change_reason_code IS NOT NULL THEN
7011: )
7012: IS
7013: l_expiration_event_code VARCHAR2(30):=NULL;
7014: --
7015: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7016: --
7017: BEGIN
7018:
7019: x_contingency_name := NULL;
7072: FUNCTION Revrec_Event(p_revrec_event_code IN VARCHAR2) RETURN VARCHAR2
7073: IS
7074: l_revrec_event VARCHAR2(80);
7075: --
7076: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7077: --
7078: BEGIN
7079:
7080: IF p_revrec_event_code IS NOT NULL THEN
7121: FUNCTION Accepted_By(p_accepted_by IN NUMBER) RETURN VARCHAR2
7122: IS
7123: l_accepted_by_dsp VARCHAR2(100);
7124: --
7125: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7126: --
7127: BEGIN
7128:
7129: IF p_accepted_by IS NOT NULL THEN