[Home] [Help]
PACKAGE BODY: APPS.OKS_COV_ENT_PVT
Source
1 PACKAGE BODY OKS_COV_ENT_PVT AS
2 /* $Header: OKSRCENB.pls 120.2.12000000.2 2007/10/10 23:04:29 hmnair ship $ */
3
4 PROCEDURE Get_default_react_resolve_by
5 (p_api_version in number
6 ,p_init_msg_list in varchar2
7 ,p_inp_rec in gdrt_inp_rec_type
8 ,x_return_status out nocopy varchar2
9 ,x_msg_count out nocopy number
10 ,x_msg_data out nocopy varchar2
11 ,x_react_rec out nocopy rcn_rsn_rec_type
12 ,x_resolve_rec out nocopy rcn_rsn_rec_type)
13 IS
14
15 Lx_SVL_Id CONSTANT Gx_OKS_Id := p_inp_rec.Coverage_Template_Id; --p_inp_rec.Contract_Line_Id;
16 Lx_BusiProc_Id CONSTANT Gx_BusProcess_Id := p_inp_rec.Business_Process_Id;
17 Lx_Severity_Id CONSTANT Gx_Severity_Id := p_inp_rec.Severity_id;
18 Ld_Request_Date CONSTANT DATE := nvl(p_inp_rec.Request_Date,sysdate);
19 Lx_Request_TZone_Id CONSTANT Gx_TimeZoneId := p_inp_rec.Time_Zone_Id;
20 Lx_ReactReso_Category CONSTANT VARCHAR2(30) := 'RCN_RSN'; --Gx_Rule_Category := p_inp_rec.category_rcn_rsn;
21 Lx_Set_ExcepionStack CONSTANT Gx_Boolean := G_TRUE;
22 Lv_Option CONSTANT VARCHAR2(10) := null; --p_inp_rec.compute_option;
23 Lv_Template_YN CONSTANT VARCHAR2(1) := 'Y';
24
25 Lx_React_Durn Gx_ReactDurn;
26 Lx_React_UOM Gx_ReactUOM;
27 Lv_React_Day VARCHAR2(25);
28 Ld_React_By_DateTime DATE;
29 Ld_React_Start_DateTime DATE;
30
31 Lx_Resol_Durn Gx_ReactDurn;
32 Lx_Resol_UOM Gx_ReactUOM;
33 Lv_Resol_Day VARCHAR2(25);
34 Ld_Resol_By_DateTime DATE;
35 Ld_Resol_Start_DateTime DATE;
36
37 Lx_Result Gx_Boolean DEFAULT G_TRUE;
38 Lx_Return_Status Gx_Ret_Sts DEFAULT G_RET_STS_SUCCESS;
39
40 -- Added for 12.0 ENT-TZ project (JVARGHES)
41 Lx_Dates_In_Input_TZ CONSTANT VARCHAR2(1) := p_inp_rec.Dates_In_Input_TZ;
42 --
43
44 BEGIN
45
46 OKS_ENTITLEMENTS_PVT.Get_ReactResol_By_DateTime
47 (P_API_Version => P_API_Version
48 ,P_Init_Msg_List => P_Init_Msg_List
49 ,P_SVL_Id => Lx_SVL_Id
50 ,P_BusiProc_Id => Lx_BusiProc_Id
51 ,P_Severity_Id => Lx_Severity_Id
52 ,P_Request_Date => Ld_Request_Date
53 ,P_Request_TZone_Id => Lx_Request_TZone_Id
54 ,P_Dates_In_Input_TZ => Lx_Dates_In_Input_TZ -- Added for 12.0 ENT-TZ project (JVARGHES)
55 ,P_Option => Lv_Option
56 ,P_Rcn_Rsn_Flag => Lx_ReactReso_Category
57 ,P_Set_ExcepionStack => Lx_Set_ExcepionStack
58 ,P_Template_YN => Lv_Template_YN -- for default coverage functionality
59 ,X_React_Durn => Lx_React_Durn
60 ,X_React_UOM => Lx_React_UOM
61 ,X_React_Day => Lv_React_Day
62 ,X_React_By_DateTime => Ld_React_By_DateTime
63 ,X_React_Start_DateTime => Ld_React_Start_DateTime
64 ,X_Resolve_Durn => Lx_Resol_Durn
65 ,X_Resolve_UOM => Lx_Resol_UOM
66 ,X_Resolve_Day => Lv_Resol_Day
67 ,X_Resolve_By_DateTime => Ld_Resol_By_DateTime
68 ,X_Resolve_Start_DateTime => Ld_Resol_Start_DateTime
69 ,X_Msg_count => X_Msg_Count
70 ,X_Msg_Data => X_Msg_Data
71 ,X_Result => Lx_Result
72 ,X_Return_Status => Lx_Return_Status);
73
74 x_react_rec.by_date_start := Ld_React_Start_DateTime;
75 x_react_rec.by_date_end := Ld_React_By_DateTime;
76
77 x_resolve_rec.by_date_start := Ld_Resol_Start_DateTime;
78 x_resolve_rec.by_date_end := Ld_Resol_By_DateTime;
79
80 x_return_status := Lx_Return_Status;
81
82 EXCEPTION
83
84 WHEN OTHERS THEN
85
86 OKC_API.SET_MESSAGE
87 (P_App_Name => G_APP_NAME_OKC
88 ,P_Msg_Name => G_UNEXPECTED_ERROR
89 ,P_Token1 => G_SQLCODE_TOKEN
90 ,P_Token1_Value => SQLCODE
91 ,P_Token2 => G_SQLERRM_TOKEN
92 ,P_Token2_Value => SQLERRM);
93
94 OKC_API.SET_MESSAGE
95 (P_App_Name => G_APP_NAME_OKC
96 ,P_Msg_Name => G_DEBUG_TOKEN
97 ,P_Token1 => G_PACKAGE_TOKEN
98 ,P_Token1_Value => G_PKG_NAME
99 ,P_Token2 => G_PROGRAM_TOKEN
100 ,P_Token2_Value => 'Get_default_react_resolve_by');
101
102 X_Return_Status := G_RET_STS_UNEXP_ERROR;
103
104 END Get_default_react_resolve_by;
105
106 END OKS_COV_ENT_PVT;