[Home] [Help]
156: End if;
157: End loop;
158:
159: If nvl(l_cust_acct_site_use,'N') = 'N' then
160: If fnd_profile.value('CS_SR_ACTION_MISS_ACCT') = 'CHG_ABORT_SUB' Then
161: Open get_address;
162: Fetch get_address into l_bill_ship_addr;
163: Close get_address;
164:
255: fetch acct_site_csr into l_cust_acct_site_id;
256: IF acct_site_csr%NOTFOUND THEN
257: close acct_site_csr;
258:
259: If fnd_profile.value('CS_SR_ACTION_MISS_ACCT') = 'CHG_ABORT_SUB' Then
260: FND_MESSAGE.Set_Name('CS','CS_SR_NO_VALID_ACCT_SITE_USE');
261: FND_MESSAGE.Set_Token('BILL_SHIP_ADDR',l_bill_ship_addr);
262: FND_MESSAGE.Set_Token('OPER_UNIT',l_inv_org_name);
263: FND_MSG_PUB.Add;
291: fetch acct_site_use_csr into l_site_use_id;
292: IF acct_site_use_csr%NOTFOUND THEN
293: close acct_site_use_csr;
294:
295: If fnd_profile.value('CS_SR_ACTION_MISS_ACCT') = 'CHG_ABORT_SUB' Then
296: FND_MESSAGE.Set_Name('CS','CS_SR_NO_VALID_ACCT_SITE_USE');
297: FND_MESSAGE.Set_Token('BILL_SHIP_ADDR',l_bill_ship_addr);
298: FND_MESSAGE.Set_Token('OPER_UNIT',l_inv_org_name);
299: FND_MSG_PUB.Add;
1001: RAISE FND_API.G_EXC_ERROR;
1002: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1003:
1004: ELSIF l_acct_no = 0 then
1005: If fnd_profile.value('CS_SR_ACTION_MISS_ACCT') = 'CHG_ABORT_SUB' Then
1006: Open Get_party_number;
1007: Fetch Get_party_number into l_party_number;
1008: Close Get_party_number;
1009:
1015: END IF;
1016:
1017: -- Get modifier for OM adjustment lines
1018: BEGIN
1019: l_modifier_line_id := fnd_profile.value_specific('CS_CHARGE_DEFAULT_MODIFIER');
1020: -- dbms_output.put_line('Default_Modifier' || l_modifier_line_id);
1021: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
1022: THEN
1023: FND_LOG.String
1044: -- Check the value of book_order_flag.Changes for 11.5.10
1045: --
1046: BEGIN
1047:
1048: l_book_order_profile := fnd_profile.value('CS_CHG_CREATE_BOOKED_ORDERS');
1049: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
1050: THEN
1051: FND_LOG.String
1052: ( FND_LOG.level_procedure , L_LOG_MODULE || ''
1421:
1422: l_found_flag :=0;
1423: IF ((nvl(EstDtlTab(i).add_to_order_flag,'N') = 'N') AND
1424: (l_order_header_id <> -999 )AND
1425: ( nvl(fnd_profile.value('CS_UPD_CC_OPEN_ORDER'),'UPDATE_ORDER')
1426: = 'CREATE_ORDER' and
1427: nvl(fnd_profile.value('CS_CC_TO_OM_HEADER'),'N') = 'Y')) THEN
1428:
1429: for l_tempCount in 1..l_order_num_count loop
1423: IF ((nvl(EstDtlTab(i).add_to_order_flag,'N') = 'N') AND
1424: (l_order_header_id <> -999 )AND
1425: ( nvl(fnd_profile.value('CS_UPD_CC_OPEN_ORDER'),'UPDATE_ORDER')
1426: = 'CREATE_ORDER' and
1427: nvl(fnd_profile.value('CS_CC_TO_OM_HEADER'),'N') = 'Y')) THEN
1428:
1429: for l_tempCount in 1..l_order_num_count loop
1430: IF l_order_number(l_tempCount)= l_order_header_id then
1431: l_found_flag := 1;
1643: WHERE ctbt.txn_billing_type_id = EstDtlTab(i).txn_billing_type_id
1644: AND ctbt.billing_type = cbtc.billing_type;
1645:
1646: IF l_billing_flag = 'L' THEN
1647: l_inv_item_id := FND_PROFILE.VALUE_SPECIFIC('CS_REPAIR_DEFAULT_LABOR_ITEM');
1648: l_profile_option := 'CS_REPAIR_DEFAULT_LABOR_ITEM';
1649: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
1650: THEN
1651: FND_LOG.String
1653: , 'The Value of profile CS_REPAIR_DEFAULT_LABOR_ITEM :' || l_inv_item_id
1654: );
1655: END IF;
1656: ELSIF l_billing_flag = 'M' THEN
1657: l_inv_item_id := FND_PROFILE.VALUE_SPECIFIC('CS_REPAIR_DEFAULT_MATERIAL_ITEM');
1658: l_profile_option := 'CS_REPAIR_DEFAULT_MATERIAL_ITEM';
1659: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
1660: THEN
1661: FND_LOG.String
1663: , 'The Value of profile CS_REPAIR_DEFAULT_MATERIAL_ITEM :' || l_inv_item_id
1664: );
1665: END IF;
1666: ELSIF l_billing_flag = 'E' THEN
1667: l_inv_item_id := FND_PROFILE.VALUE_SPECIFIC('CS_REPAIR_DEFAULT_EXPENSE_ITEM');
1668: l_profile_option := 'CS_REPAIR_DEFAULT_EXPENSE_ITEM';
1669: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
1670: THEN
1671: FND_LOG.String
3021:
3022:
3023: -- r12 code start
3024:
3025: If fnd_profile.value('CS_SR_RESTRICT_OPERATING_UNIT')='Y' then -- Bug 10375246
3026:
3027: IF (MO_GLOBAL.check_valid_org(l_org_id) ='N')
3028: THEN
3029: FND_MSG_PUB.initialize;
3066: END IF;
3067:
3068: /* Added for bug 14673342*/
3069: IF EstDtlTab(i).sr_instr_payment_use_id is not null And
3070: nvl(fnd_profile.value('CS_CC_TO_OM_HEADER'),'N') = 'Y' then
3071: BEGIN
3072: l_hd_payment_tbl(j).qte_line_index :=1;
3073: IF (EstDtlTab(i).add_to_order_flag = 'Y') or
3074: (l_order_header_id <> -999) THEN
3111: */
3112: NULL;
3113: END;
3114: ELSIF EstDtlTab(i).sr_instr_payment_use_id is null And
3115: nvl(fnd_profile.value('CS_CC_TO_OM_HEADER'),'N') = 'Y' then
3116: BEGIN
3117: SELECT payment_number
3118: INTO l_hd_payment_tbl(j).PAYMENT_REF_NUMBER
3119: FROM oe_payments
3541: /* Bug 14673342*/
3542:
3543: l_found_flag := 0;
3544: IF (x_order_header_id is NOT NULL
3545: AND nvl(fnd_profile.value('CS_UPD_CC_OPEN_ORDER'),'UPDATE_ORDER')
3546: = 'CREATE_ORDER'
3547: AND nvl(fnd_profile.value('CS_CC_TO_OM_HEADER'),'N') = 'Y') THEN
3548: FOR l_tempCount in 1..l_order_num_count loop
3549: IF l_order_number(l_tempCount) = l_order_header_id then
3543: l_found_flag := 0;
3544: IF (x_order_header_id is NOT NULL
3545: AND nvl(fnd_profile.value('CS_UPD_CC_OPEN_ORDER'),'UPDATE_ORDER')
3546: = 'CREATE_ORDER'
3547: AND nvl(fnd_profile.value('CS_CC_TO_OM_HEADER'),'N') = 'Y') THEN
3548: FOR l_tempCount in 1..l_order_num_count loop
3549: IF l_order_number(l_tempCount) = l_order_header_id then
3550: l_found_flag := 1;
3551: EXIT;