1 PACKAGE OKS_PM_ENTITLEMENTS_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKSRPMES.pls 120.0 2005/05/25 18:34:51 appldev noship $ */
3
4 -----------------------------------------------------------------------------------------------------------------------*
5
6 SUBTYPE Gx_Boolean IS VARCHAR2(1);
7 SUBTYPE Gx_YesNo IS VARCHAR2(1);
8 SUBTYPE Gx_Ret_Sts IS VARCHAR2(1);
9 SUBTYPE Gx_ExceptionMsg IS VARCHAR2(200);
10
11 -----------------------------------------------------------------------------------------------------------------------*
12
13 SUBTYPE Gx_TimeZoneId IS NUMBER; --OKX_TIMEZONES_V.TIMEZONE_ID%TYPE;
14 SUBTYPE Gx_ReactDurn IS number; --OKC_REACT_INTERVALS.DURATION%TYPE;
15 SUBTYPE Gx_ReactUOM IS varchar2(30); --OKC_REACT_INTERVALS.UOM_CODE%TYPE;
16 SUBTYPE Gx_OKS_Id IS NUMBER;
17 SUBTYPE Gx_BusProcess_Id IS NUMBER; --OKX_BUS_PROCESSES_V.ID1%TYPE;
18 SUBTYPE Gx_Severity_Id IS NUMBER; --OKX_INCIDENT_SEVERITS_V.ID1%TYPE;
19 SUBTYPE Gx_JTOT_ObjCode IS varchar2(30); --JTF_OBJECTS_B.OBJECT_CODE%TYPE;
20 SUBTYPE Gx_Rule_Id IS number; --OKC_RULES_B.ID%TYPE;
21 SUBTYPE Gx_Rule_Category IS varchar2(90); --OKC_RULES_B.RULE_INFORMATION_CATEGORY%TYPE;
22 SUBTYPE Gx_TimeValue_Type IS varchar2(30); --OKC_TIMEVALUES_B.TVE_TYPE%TYPE;
23
24 SUBTYPE Gx_Chr_StsCode IS OKC_K_HEADERS_B.STS_CODE%TYPE;
25 SUBTYPE Gx_Chr_Type IS OKC_K_HEADERS_B.CHR_TYPE%TYPE;
26 SUBTYPE Gx_Chr_PartyId IS OKC_K_PARTY_ROLES_B.OBJECT1_ID1%TYPE;
27
28 SUBTYPE Gx_Itm_Obj1Id1 IS OKC_K_ITEMS.OBJECT1_ID1%TYPE;
29 SUBTYPE Gx_Itm_Obj1Id2 IS OKC_K_ITEMS.OBJECT1_ID2%TYPE;
30
31 SUBTYPE Inp_Rec_Type IS OKS_ENTITLEMENTS_PUB.Inp_Rec_Type;
32 SUBTYPE Hdr_Tbl_Type IS OKS_ENTITLEMENTS_PUB.Hdr_Tbl_Type;
33
34 SUBTYPE Line_Tbl_Type IS OKS_ENTITLEMENTS_PUB.Line_Tbl_Type;
35
36 SUBTYPE Clvl_Tbl_Type IS OKS_ENTITLEMENTS_PUB.Clvl_Tbl_Type;
37 SUBTYPE PrfEng_Tbl_Type IS OKS_ENTITLEMENTS_PUB.PrfEng_Tbl_Type;
38 SUBTYPE Ent_Contact_Tbl IS OKS_ENTITLEMENTS_PUB.Ent_Contact_Tbl;
39
40 -----------------------------------------------------------------------------------------------------------------------*
41
42 SUBTYPE Inp_Cont_Rec IS OKS_ENTITLEMENTS_PUB.Inp_Cont_Rec;
43 SUBTYPE Get_ContIn_Rec IS OKS_ENTITLEMENTS_PUB.Get_ContIn_Rec;
44 SUBTYPE Input_Rec_IB IS OKS_ENTITLEMENTS_PUB.Input_Rec_IB;
45
46 SUBTYPE Ent_Cont_Rec IS OKS_ENTITLEMENTS_PUB.Ent_Cont_Rec;
47 SUBTYPE Ent_Cont_Tbl IS OKS_ENTITLEMENTS_PUB.Ent_Cont_Tbl;
48
49 SUBTYPE Get_ConTop_Rec IS OKS_ENTITLEMENTS_PUB.Get_ConTop_Rec;
50 SUBTYPE Get_ConTop_Tbl IS OKS_ENTITLEMENTS_PUB.Get_ConTop_Tbl;
51
52 SUBTYPE Output_Rec_IB IS OKS_ENTITLEMENTS_PUB.Output_Rec_IB;
53 SUBTYPE Output_Tbl_IB IS OKS_ENTITLEMENTS_PUB.Output_Tbl_IB;
54
55 SUBTYPE grt_inp_rec_type IS OKS_ENTITLEMENTS_PUB.grt_inp_rec_type;
56 SUBTYPE rcn_rsn_rec_type IS OKS_ENTITLEMENTS_PUB.rcn_rsn_rec_type;
57
58 SUBTYPE input_rec_entfrm IS OKS_ENTITLEMENTS_PUB.input_rec_entfrm;
59 SUBTYPE output_rec_entfrm IS OKS_ENTITLEMENTS_PUB.output_rec_entfrm;
60 SUBTYPE output_tbl_entfrm IS OKS_ENTITLEMENTS_PUB.output_tbl_entfrm;
61
62 SUBTYPE CovType_Rec_Type IS OKS_ENTITLEMENTS_PUB.CovType_Rec_Type;
63 SUBTYPE Default_Contline_System_Rec IS OKS_ENTITLEMENTS_PUB.Default_Contline_System_Rec;
64 SUBTYPE Get_pmcontin_rec IS OKS_PM_ENTITLEMENTS_PUB.Get_pmcontin_rec;
65 SUBTYPE pm_sch_tbl_type IS OKS_PM_ENTITLEMENTS_PUB.pm_sch_tbl_type;
66 SUBTYPE inp_sch_rec IS OKS_PM_ENTITLEMENTS_PUB.inp_sch_rec;
67
68
69 -----------------------------------------------------------------------------------------------------------------------*
70
71 -- TYPE GT_Bp_CoverTimes IS TABLE OF GR_Bp_CoverTime INDEX BY BINARY_INTEGER;
72 -- TYPE GT_Bp_Reactions IS TABLE OF GR_Bp_Reaction INDEX BY BINARY_INTEGER;
73
74 -- TYPE GT_Contract_Ref IS TABLE OF GR_Contract_Ref INDEX BY BINARY_INTEGER;
75 -- TYPE GT_ContItem_Ref IS TABLE OF GR_ContItem_Ref INDEX BY BINARY_INTEGER;
76
77 -----------------------------------------------------------------------------------------------------------------------*
78
79 G_RET_STS_SUCCESS CONSTANT Gx_Ret_Sts := OKC_API.G_RET_STS_SUCCESS;
80 G_RET_STS_ERROR CONSTANT Gx_Ret_Sts := OKC_API.G_RET_STS_ERROR;
81 G_RET_STS_UNEXP_ERROR CONSTANT Gx_Ret_Sts := OKC_API.G_RET_STS_UNEXP_ERROR;
82
83 G_TRUE CONSTANT Gx_Boolean := OKC_API.G_TRUE;
84 G_FALSE CONSTANT Gx_Boolean := OKC_API.G_FALSE;
85
86 -- G_MISS_NUM CONSTANT NUMBER := OKC_API.G_MISS_NUM;
87 -- G_MISS_CHAR CONSTANT VARCHAR2(1) := OKC_API.G_MISS_CHAR;
88 -- G_MISS_DATE CONSTANT DATE := OKC_API.G_MISS_DATE;
89
90 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
91 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
92
93 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
94 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
95 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
96 G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKS_NO_PARENT_RECORD';
97
98 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
99 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE'; --'SQLerrm';
100 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE'; --'SQLcode';
101
102 G_DEBUG_TOKEN CONSTANT VARCHAR2(200) := 'OKS_PM_ENT_DEBUG';
103 G_PACKAGE_TOKEN CONSTANT VARCHAR2(200) := 'Package';
104 G_PROGRAM_TOKEN CONSTANT VARCHAR2(200) := 'Program';
105 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKS_PM_ENTITLEMENTS_PVT';
106 G_APP_NAME_OKS CONSTANT VARCHAR2(3) := 'OKS';
107 G_APP_NAME_OKC CONSTANT VARCHAR2(3) := 'OKC';
108
109 G_RESOLUTION_TIME CONSTANT VARCHAR2(10):= 'RSN';
110
111 -----------------------------------------------------------------------------------------------------------------------*
112
113 PROCEDURE Get_PMContracts_02_Format --ph2
114 (P_Contracts IN OKS_ENTITLEMENTS_PVT.GT_Contract_Ref
115 ,P_BusiProc_Id IN Gx_BusProcess_Id
116 ,P_Severity_Id IN Gx_Severity_Id
117 ,P_Request_TZone_Id IN Gx_TimeZoneId
118 ,P_Request_Date IN DATE
119 ,P_Request_Date_Start IN DATE
120 ,P_Request_Date_End IN DATE
121 ,P_Calc_RespTime_YN IN VARCHAR2
122 ,P_Validate_Eff IN VARCHAR2
123 ,P_Validate_Flag IN VARCHAR2
124 ,P_SrvLine_Flag IN VARCHAR2
125 ,P_Sort_Key IN VARCHAR2
126 ,X_Contracts_02 out nocopy OKS_ENTITLEMENTS_PUB.Get_ConTop_Tbl
127 ,X_Activities_02 out nocopy OKS_PM_ENTITLEMENTS_PUB.Get_Activityop_Tbl
128 ,X_Result out nocopy Gx_Boolean
129 ,X_Return_Status out nocopy Gx_Ret_Sts);
130
131 PROCEDURE Get_PMContracts_02
132 (P_API_Version IN NUMBER
133 ,P_Init_Msg_List IN VARCHAR2
134 ,P_Inp_Rec IN OKS_ENTITLEMENTS_PVT.Inp_rec_getcont02
135 ,X_Return_Status out nocopy VARCHAR2
136 ,X_Msg_Count out nocopy NUMBER
137 ,X_Msg_Data out nocopy VARCHAR2
138 ,X_Ent_Contracts out nocopy OKS_ENTITLEMENTS_PUB.Get_ConTop_Tbl
139 ,X_PM_Activities out nocopy OKS_PM_ENTITLEMENTS_PUB.get_activityop_tbl); -- New parameter added to return list of activities for contract_line and PM program
140
141 PROCEDURE Get_PM_Contracts
142 (p_api_version IN Number
143 ,p_init_msg_list IN Varchar2
144 ,p_inp_rec IN Get_pmcontin_rec
145 ,x_return_status out nocopy Varchar2
146 ,x_msg_count out nocopy Number
147 ,x_msg_data out nocopy Varchar2
148 ,x_ent_contracts out nocopy OKS_ENTITLEMENTS_PUB.get_contop_tbl
149 ,x_pm_activities out nocopy OKS_PM_ENTITLEMENTS_PUB.get_activityop_tbl); -- New parameter added to return list of activities for contract_line and PM program
150
151
152 PROCEDURE Get_PM_Schedule
153 (p_api_version IN Number
154 ,p_init_msg_list IN Varchar2
155 ,p_sch_rec IN inp_sch_rec
156 ,x_return_status out nocopy Varchar2
157 ,x_msg_count out nocopy Number
158 ,x_msg_data out nocopy Varchar2
159 ,x_pm_schedule out nocopy pm_sch_tbl_type);
160
161 PROCEDURE Get_PM_Confirmation
162 (p_api_version IN Number
163 ,p_init_msg_list IN Varchar2
164 ,p_service_line_id IN Number -- This is mandatory
165 ,p_program_id IN Number -- If this is passed and with no p_activity_id, the API will return confirmation_required flag for PM Program
166 ,p_Activity_Id IN Number -- If this is passed, API will return confirmation_required flag for Activity
167 ,x_return_status out nocopy Varchar2
168 ,x_msg_count out nocopy Number
169 ,x_msg_data out nocopy Varchar2
170 ,x_pm_conf_reqd out nocopy Varchar2);
171
172 --chkrishn 02/26/2004 Added parameter p_pm_activity_id
173 PROCEDURE Check_PM_Exists
174 (p_api_version IN Number
175 ,p_init_msg_list IN Varchar2
176 ,p_pm_program_id IN Number default null
177 ,p_pm_activity_id IN Number default null
178 ,x_return_status out nocopy Varchar2
179 ,x_msg_count out nocopy Number
180 ,x_msg_data out nocopy Varchar2
181 ,x_pm_reference_exists out nocopy Varchar2);
182
183 END OKS_PM_ENTITLEMENTS_PVT;
184
[Home] [Help]