[Home] [Help]
2058:
2059:
2060: -- If the newly added profile 'Service: Include Access Hours in SLA' is set to Yes then access hours is taken into consideration
2061:
2062: If (fnd_profile.value('CS_SR_INCLUDE_ACCESS_HOURS_IN_SLA') = 'Y') AND (Lx_cust_id IS NOT NULL OR Lx_cust_site_id IS NOT NULL OR Lx_cust_loc_id IS NOT NULL) THEN
2063:
2064:
2065:
2066: -- Calling the Field Service API to get the Access Hours detail
2329: /*logic ends here*/
2330:
2331: END LOOP;
2332:
2333: ELSE /*If fnd_profile.value('CS_SR_INCLUDE_ACCESS_HOURS_IN_SLA') = 'Yes'*/
2334: FOR Idx IN Lx_Csr_BP_CovTimes(Lx_BP_CVTLine_Id,
2335: Lx_sunday_flag,Lx_monday_flag,Lx_tuesday_flag,
2336: Lx_wednesday_flag,Lx_thursday_flag,Lx_friday_flag,
2337: Lx_saturday_flag) LOOP
2355:
2356: Li_RowCount := Li_TableIdx;
2357:
2358: END LOOP;
2359: END IF; /*If fnd_profile.value('CS_SR_INCLUDE_ACCESS_HOURS_IN_SLA') = 'Yes'*/
2360: /*vgujarat - modified for access hour ER 9675504*/
2361: week_ctr := week_ctr+1;
2362:
2363: end loop;
3243: --dbms_output.put_line('Value of Ld_React_By_DateTime='||to_char(Ld_React_By_DateTime,'dd-mon-yyyy hh24:mi'));
3244:
3245: --dbms_output.put_line('Value of Lv_Template_YN='||Lv_Template_YN);
3246:
3247: IF Lv_Template_YN = 'N' and nvl(FND_PROFILE.VALUE('OKS_VALIDATE_REACT_RESOL_TIME'),'Y') = 'Y' THEN -- for default coverage functionality /*Added profile condition for bug 13772324*/
3248:
3249: Validate_Effectivity
3250: (P_Request_Date => Ld_React_By_DateTime
3251: ,P_Start_DateTime => Ld_Cover_EffStart
4048: -- Added for 12.0 ENT-TZ project (JVARGHES)
4049: --
4050:
4051: IF NVL(P_DATES_IN_INPUT_TZ,'Y') = 'N' THEN
4052: ln_Param_DatesTZ := fnd_profile.VALUE ('SERVER_TIMEZONE_ID');
4053: ELSE
4054: ln_Param_DatesTZ := Lx_Request_TZone_id;
4055: END IF;
4056:
5056:
5057: Lx_Result := G_TRUE;
5058: Lx_Return_Status := G_RET_STS_SUCCESS;
5059:
5060: G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
5061:
5062: Validate_Required_CT_Tokens
5063: (P_SVL_Id => Lx_SVL_Id
5064: ,P_BusiProc_Id => Lx_BusiProc_id
5317: -- Added for 12.0 ENT-TZ project (JVARGHES)
5318: --
5319:
5320: IF NVL(P_DATES_IN_INPUT_TZ,'Y') = 'N' THEN
5321: ln_Param_DatesTZ := fnd_profile.VALUE ('SERVER_TIMEZONE_ID');
5322: ELSE
5323: ln_Param_DatesTZ := Lx_Request_TZone_id;
5324: END IF;
5325:
7132:
7133: Lx_Result := G_TRUE;
7134: Lx_Return_Status := G_RET_STS_SUCCESS;
7135:
7136: G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
7137:
7138: Validate_Required_NumValue
7139: (P_Num_Value => Lx_SBL_Id
7140: ,P_Set_ExcepionStack => Lx_Set_ExcepionStack
9336: Lx_CovLevel_Obj_Code := Lx_CovLvlItem_DeDupItems(Li_TabIdx_DeDup).Rx_ObjCode;
9337:
9338: /*added for ER9681794*/
9339:
9340: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N') ='Y' then
9341:
9342: FOR Idx IN Lx_Csr_CovLvlItem_Contracts1(Lx_CovLevel_Obj_Id1,Lv_CovLevel_Obj_Id2,Lx_CovLevel_Obj_Code) LOOP
9343:
9344: Li_TableIdx := Li_TableIdx + 1;
10724: IF Lv_Validate_Flag = 'Y' THEN
10725: Lv_Validate_Flag := 'T';
10726: END IF;
10727: --
10728: FND_PROFILE.Get(Lv_Prof_Name, Lv_Prof_Value);
10729: --
10730:
10731: Li_TableIdx := Lx_Contracts.FIRST;
10732:
10734:
10735: Lv_Cont_Pty_Id := TO_CHAR(Lx_Contracts(Li_TableIdx).Rx_Pty_Id);
10736:
10737: /*Added for ER9681794*/
10738: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
10739:
10740: FOR Idx IN Lx_Csr_Contracts_sub(Lx_Contracts(Li_TableIdx).Rx_Chr_Id, Lx_Contracts(Li_TableIdx).Rx_Cle_Id,
10741: Lv_Cont_Pty_Id,Lx_Lang) LOOP
10742:
11126: -- Modified for 12.0 MOAC project (JVARGHES)
11127: -- Ln_Org_Id := SYS_CONTEXT('OKC_CONTEXT','ORG_ID');
11128: --
11129:
11130: G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
11131:
11132: Lv_Chr_Id_Flag := 'N'; --Bug# 4719510 (JVARGHES)
11133:
11134: IF Lx_Inp_Rec.Coverage_Level_Line_Id IS NOT NULL THEN
12108:
12109: IF Lx_SrvLine_Id is not null and Lx_CovLvlLine_Id is null then
12110:
12111: /*added for ER9681794*/
12112: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
12113:
12114: FOR Idx IN Lx_Csr_Contracts1_sub(Lx_Contracts(Li_TableIdx).Rx_Chr_Id,Lx_SrvLine_Id,Lx_CovLvlLine_Id,Lx_BusiProc_Id,Lv_Cont_Pty_Id,Ld_Request_Date,Lv_Validate_Flag) LOOP
12115:
12116: Lx_Idx_Rec.Contract_Id := Idx.Contract_Id;
12302:
12303: ELSIF Lx_SrvLine_Id is null and Lx_CovLvlLine_Id is not null then
12304:
12305: /*Added for ER9681794*/
12306: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
12307:
12308: FOR Idx IN Lx_Csr_Contracts2_sub(Lx_Contracts(Li_TableIdx).Rx_Chr_Id,Lx_SrvLine_Id,Lx_CovLvlLine_Id,Lx_BusiProc_Id,Lv_Cont_Pty_Id,Ld_Request_Date,Lv_Validate_Flag) LOOP
12309:
12310: Lx_Idx_Rec.Contract_Id := Idx.Contract_Id;
12496:
12497: ELSIF Lx_SrvLine_Id is not null and Lx_CovLvlLine_Id is not null then
12498:
12499: /*Added for ER9681794*/
12500: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
12501:
12502: FOR Idx IN Lx_Csr_Contracts3_sub(Lx_Contracts(Li_TableIdx).Rx_Chr_Id,Lx_SrvLine_Id,Lx_CovLvlLine_Id,Lx_BusiProc_Id,Lv_Cont_Pty_Id,Ld_Request_Date,Lv_Validate_Flag) LOOP
12503:
12504: Lx_Idx_Rec.Contract_Id := Idx.Contract_Id;
12688:
12689: ELSIF Lx_SrvLine_Id is null and Lx_CovLvlLine_Id is null then
12690:
12691: /*Added for ER9681794*/
12692: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
12693:
12694: FOR Idx IN Lx_Csr_Contracts4_sub(Lx_Contracts(Li_TableIdx).Rx_Chr_Id,Lx_SrvLine_Id,Lx_CovLvlLine_Id,Lx_BusiProc_Id,Lv_Cont_Pty_Id,Ld_Request_Date,Lv_Validate_Flag) LOOP
12695:
12696: Lx_Idx_Rec.Contract_Id := Idx.Contract_Id;
13060:
13061: -- Modified for 12.0 MOAC project (JVARGHES)
13062: -- Ln_Org_Id := SYS_CONTEXT('OKC_CONTEXT','ORG_ID');
13063: --
13064: G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
13065:
13066: IF Lx_Inp_Rec.Calc_RespTime_Flag = 'Y' THEN
13067:
13068: Validate_Required_NumValue
13761: Ln_Party_Id := Lx_Contracts(Li_TableIdx).Rx_Pty_Id;
13762: Ln_Con_Customer_Id := NVL(Ln_Con_Customer_Id,Ln_Party_Id);
13763:
13764: /*Added for ER9681794*/
13765: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
13766:
13767: FOR Idx IN Lx_Csr_Contracts_sub(Lx_Chr_Id,Lv_Con_Number,Lv_Con_Number_Modifier,
13768: TO_CHAR(Ln_Con_Customer_Id),TO_CHAR(Ln_Service_Item_Id),Ln_Organization_Id) LOOP
13769:
14109:
14110: -- Modified for 12.0 MOAC project (JVARGHES)
14111: -- Ln_Org_Id := SYS_CONTEXT('OKC_CONTEXT','ORG_ID');
14112: --
14113: G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
14114:
14115: IF Lx_Inp_Rec.CovLvl_Product_Id IS NOT NULL THEN
14116:
14117: Get_CovProd_Contracts
14596:
14597: L_Date := P_Enddate;
14598:
14599: IF G_GRACE_PROFILE_SET IS NULL THEN -- Bug 5003767
14600: G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
14601: END IF;
14602:
14603: IF G_GRACE_PROFILE_SET = 'Y' then
14604: FOR Idx in Lx_Csr_HDR_Grace(P_Contract_Id) LOOP
15985: -- 11.5.10 --no more check required if RSN rule exists as rules architecture no more exist in 11.5.10
15986:
15987: -- Lb_RSN_CTXT_Exists := FND_FLEX_DSC_API.CONTEXT_EXISTS('OKS','OKS Rule Developer DF','RSN');
15988: ---
15989: FND_PROFILE.Get(Lv_Prof_Name, Lv_Prof_Value);
15990: ---
15991:
15992: IF Lv_Validate_Flag = 'Y' THEN
15993: Lv_Validate_Flag := 'T';
16540: i := 0;
16541: Lx_Result := G_TRUE;
16542: Lx_Return_Status := G_RET_STS_SUCCESS;
16543:
16544: OKS_ENTITLEMENTS_PVT.G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
16545:
16546: IF OKS_ENTITLEMENTS_PVT.G_GRACE_PROFILE_SET = 'Y' THEN
16547: FOR Hdr_rec in cur_hdr (p_inp_rec_bp.contract_line_id) LOOP
16548: HDR := Hdr_rec;
17238:
17239: Lv_Cont_Pty_Id := TO_CHAR(Lx_Contract_rec.Contract_Party_Id);
17240:
17241: /*Added for ER9681794*/
17242: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' THEN
17243:
17244: FOR Idx IN Lx_Csr_Contracts_sub(Lx_Contracts(Li_TableIdx).Rx_Chr_Id,Lx_SrvLine_Id,Lx_CovLvlLine_Id,Lv_Cont_Pty_Id
17245: ,Lx_Contract_rec.Start_Date_From,Lx_Contract_rec.Start_Date_To
17246: ,Lx_Contract_rec.End_Date_From,Lx_Contract_rec.End_Date_To
17444:
17445: Lv_Cont_Pty_Id := TO_CHAR(Lx_Contract_rec.Contract_Party_Id);
17446:
17447: /*ADDED FOR ER9681794*/
17448: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' THEN
17449:
17450: IF Lx_Contracts(Li_TableIdx).Rx_Chr_Id IS NOT NULL THEN -- Added for Bug#13840327
17451:
17452: FOR Idx IN Lx_Csr_Contracts1_sub(Lx_Contracts(Li_TableIdx).Rx_Chr_Id,Lv_Cont_Pty_Id
17572:
17573: Lv_Cont_Pty_Id := TO_CHAR(Lx_Contract_rec.Contract_Party_Id);
17574:
17575: /*ADDED FOR ER9681794*/
17576: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' THEN
17577:
17578: FOR Idx IN Lx_Csr_Contracts1_sub(Lv_Contract_Id,Lv_Cont_Pty_Id
17579: ,Lx_Contract_rec.Start_Date_From,Lx_Contract_rec.Start_Date_To
17580: ,Lx_Contract_rec.End_Date_From,Lx_Contract_rec.End_Date_To
17764:
17765: -- Modified for 12.0 MOAC project (JVARGHES)
17766: -- Ln_Org_Id := SYS_CONTEXT('OKC_CONTEXT','ORG_ID');
17767: --
17768: G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
17769:
17770: if Lx_Inp_Rec_02.request_date is null then
17771: Lv_request_date := sysdate;
17772: end if;
18112:
18113: Lx_Result := G_TRUE;
18114: Lx_Return_Status := G_RET_STS_SUCCESS;
18115:
18116: G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
18117:
18118: for KHDR_Date_rec in KHDR_Date loop
18119:
18120: x_contract_end_date := KHDR_Date_rec.end_date;
19928: Li_TableIdx := 0;
19929:
19930: if Lv_Contract_Id is not null then
19931: /*added for ER9681794*/
19932: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
19933:
19934: FOR Idx IN Lx_Csr_Hdr_Contracts_sub(Lv_Contract_Id,
19935: Lv_Contract_Num,
19936: Lv_Contract_Num_Modifier,
19999: END LOOP;
20000: END IF; ---added for ER9681794*/
20001: ELSIF (Lv_Contract_Num IS NOT NULL AND Lv_Contract_Num_Modifier IS NOT NULL )THEN /*Added for bug:6767455*/
20002: /*added for ER9681794*/
20003: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
20004:
20005: FOR Idx IN Lx_Csr_KNum_Mod_Contracts_sub(Lv_Contract_Num,
20006: Lv_Contract_Num_Modifier,
20007: Lv_START_FROM_DATE,
20072: END IF; /*added for ER9681794*/
20073:
20074: ELSIF Lv_Contract_Num IS NOT NULL THEN
20075: /*Added for ER9681794*/
20076: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
20077:
20078: FOR Idx IN Lx_Csr_ContractNum_Contracts1(Lv_Contract_Num,
20079: Lv_Contract_Num_Modifier,
20080: Lv_START_FROM_DATE,
20160:
20161: END Get_Contract_ID;*/
20162: ELSIF (Lv_Cont_Pty_Id IS NOT NULL AND Lv_contract_grp_id IS NOT NULL) THEN
20163: /*Added for ER9681794*/
20164: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
20165:
20166: FOR Idx IN Lx_Csr_Party_Group_Contracts1(Lv_Contract_Num,
20167: Lv_Contract_Num_Modifier,
20168: Lv_START_FROM_DATE,
20227: END LOOP;
20228: END IF; ---added for ER9681794
20229: ELSIF (Lv_Cont_Pty_Id IS NOT NULL) THEN
20230: /*added for ER9681794*/
20231: IF nvl(FND_PROFILE.VALUE('OKS_DISPLAY_SUBSCRIPTION'),'N')='Y' then
20232: FOR Idx IN Lx_Csr_Party_Contracts_sub(Lv_Contract_Num,
20233: Lv_Contract_Num_Modifier,
20234: Lv_START_FROM_DATE,
20235: Lv_START_TO_DATE,
21421: Lv_Contract_line_Rec.Start_Date_To := TRUNC(Lv_Contract_line_Rec.Start_Date_To) + 0.99998843;
21422: Lv_Contract_line_Rec.End_Date_To := TRUNC(Lv_Contract_line_Rec.End_Date_To) + 0.99998843;
21423: Fetch_Sts_Meaning;
21424:
21425: G_GRACE_PROFILE_SET := fnd_profile.value('OKS_ENABLE_GRACE_PERIOD');
21426:
21427: Lv_Contracts_02.DELETE;
21428:
21429: IF Lv_Contracts.COUNT = 0 THEN