[Home] [Help]
PACKAGE: APPS.AHL_VWP_VISIT_CST_PR_PVT
Source
1 PACKAGE AHL_VWP_VISIT_CST_PR_PVT AUTHID CURRENT_USER AS
2 /* $Header: AHLVVCPS.pls 120.1.12020000.2 2012/12/11 05:36:10 prakkum ship $ */
3 ---------------------------------------------------------------------
4 -- Define Record Types for record structures needed by the APIs --
5 ---------------------------------------------------------------------
6 TYPE cost_price_rec_type IS RECORD (
7 Visit_task_id NUMBER,
8 Visit_id NUMBER,
9 Mr_id NUMBER,
10 Actual_cost NUMBER,
11 Estimated_cost NUMBER,
12 Actual_price NUMBER,
13 Estimated_price NUMBER,
14 Currency VARCHAR2(80),
15 Snapshot_Id NUMBER,
16 Object_version_number NUMBER,
17 Estimated_Profit NUMBER,
18 Actual_Profit NUMBER,
19 Outside_party_flag VARCHAR2(1),
20 Is_outside_pty_flag_updt VARCHAR2(1),
21 Is_Cst_Pr_Info_Required VARCHAR2(1),
22 Is_Cst_Struc_updated VARCHAR2(1),
23 Price_list_Id NUMBER,
24 Price_List_Name VARCHAR2(80),
25 Service_Request_Id NUMBER,
26 Customer_Id NUMBER,
27 Organization_Id NUMBER,
28 Visit_Start_Date DATE,
29 Visit_End_Date DATE,
30 MR_Start_Date DATE,
31 MR_End_Date DATE,
32 Task_Start_Date DATE,
33 Task_End_Date DATE,
34 Task_Name VARCHAR2(80),
35 Visit_Task_Number NUMBER,
36 MR_Title VARCHAR2(80),
37 MR_Description VARCHAR2(2000),
38 Billing_Item_Id NUMBER,
39 Item_Name VARCHAR2(400),
40 Item_Description VARCHAR2(240),
41 Organization_name VARCHAR2(240),
42 Workorder_Id NUMBER,
43 Master_WO_Flag VARCHAR2(1),
44 MR_Session_Id NUMBER,
45 Cost_Session_Id NUMBER,
46 --salogan::Modified/Added Conc request params CP ER 9299910::01-JUN-2009::BEGIN
47 Cp_Request_Id NUMBER :=NULL,
48 Cp_Phase VARCHAR2(80) :=NULL,
49 Cp_Phase_Code VARCHAR2(1) :=NULL,
50 Cp_Status VARCHAR2(80) :=NULL,
51 Cp_Request_Date DATE :=NULL,
52 --salogan::Modified/Added Conc request params CP ER 9299910::01-JUN-2009::END
53 CREATED_BY NUMBER,
54 CREATION_DATE DATE,
55 LAST_UPDATED_BY NUMBER,
56 LAST_UPDATE_DATE DATE,
57 LAST_UPDATE_LOGIN NUMBER,
58 ATTRIBUTE_CATEGORY VARCHAR2(30),
59 ATTRIBUTE1 VARCHAR2(150),
60 ATTRIBUTE2 VARCHAR2(150),
61 ATTRIBUTE3 VARCHAR2(150),
62 ATTRIBUTE4 VARCHAR2(150),
63 ATTRIBUTE5 VARCHAR2(150),
64 ATTRIBUTE6 VARCHAR2(150),
65 ATTRIBUTE7 VARCHAR2(150),
66 ATTRIBUTE8 VARCHAR2(150),
67 ATTRIBUTE9 VARCHAR2(150),
68 ATTRIBUTE10 VARCHAR2(150),
69 ATTRIBUTE11 VARCHAR2(150),
70 ATTRIBUTE12 VARCHAR2(150),
71 ATTRIBUTE13 VARCHAR2(150),
72 ATTRIBUTE14 VARCHAR2(150),
73 ATTRIBUTE15 VARCHAR2(150)
74 );
75
76
77 ----------------------------------------------
78 -- Define Table Type for records structures --
79 ----------------------------------------------
80 TYPE cost_price_tbl_type IS TABLE OF cost_price_rec_type INDEX BY BINARY_INTEGER;
81
82 --------------------------------------------------------------------------
83 -- Procedure to get visit cost details for a specific visit --
84 --------------------------------------------------------------------------
85 PROCEDURE get_visit_cost_details(
86 p_api_version IN NUMBER := 1.0,
87 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
88 p_commit IN VARCHAR2 := FND_API.G_FALSE,
89 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
90 p_module_type IN VARCHAR2 := 'JSP',
91 p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2);
95
96 --------------------------------------------------------------------------
97 -- Procedure to estimate visit cost for a specific visit --
98 --------------------------------------------------------------------------
99 PROCEDURE estimate_visit_cost(
100 p_api_version IN NUMBER := 1.0,
101 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
102 p_commit IN VARCHAR2 := FND_API.G_FALSE,
103 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
104 p_module_type IN VARCHAR2 := 'JSP',
105 p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
106 x_return_status OUT NOCOPY VARCHAR2,
107 x_msg_count OUT NOCOPY NUMBER,
108 x_msg_data OUT NOCOPY VARCHAR2);
109
110 --------------------------------------------------------------------------
111 -- Procedure to estimate visit price for a specific visit --
112 --------------------------------------------------------------------------
113 PROCEDURE estimate_visit_price(
114 p_api_version IN NUMBER := 1.0,
115 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
116 p_commit IN VARCHAR2 := FND_API.G_FALSE,
117 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
118 p_module_type IN VARCHAR2 := 'JSP',
119 p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
120 x_return_status OUT NOCOPY VARCHAR2,
121 x_msg_count OUT NOCOPY NUMBER,
122 x_msg_data OUT NOCOPY VARCHAR2);
123
124 --------------------------------------------------------------------------
125 -- Procedure to take a price snapshot for a specific visit --
126 --------------------------------------------------------------------------
127 PROCEDURE create_price_snapshot(
128 p_api_version IN NUMBER := 1.0,
129 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
130 p_commit IN VARCHAR2 := FND_API.G_FALSE,
131 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
132 p_module_type IN VARCHAR2 := 'JSP',
133 p_visit_id IN NUMBER,
134 x_return_status OUT NOCOPY VARCHAR2,
135 x_msg_count OUT NOCOPY NUMBER,
136 x_msg_data OUT NOCOPY VARCHAR2);
137
138 --------------------------------------------------------------------------
139 -- Procedure to take a cost snapshot for a specific visit --
140 --------------------------------------------------------------------------
141 PROCEDURE create_cost_snapshot(
142 p_api_version IN NUMBER := 1.0,
143 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
144 p_commit IN VARCHAR2 := FND_API.G_FALSE,
145 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
146 p_module_type IN VARCHAR2 := 'JSP',
147 p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
148 x_return_status OUT NOCOPY VARCHAR2,
149 x_msg_count OUT NOCOPY NUMBER,
150 x_msg_data OUT NOCOPY VARCHAR2);
151
152 --------------------------------------------------------------------------
153 -- Procedure to get visit cost details for a specific visit --
154 --------------------------------------------------------------------------
155 PROCEDURE update_visit_cost_details(
156 p_api_version IN NUMBER := 1.0,
157 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
158 p_commit IN VARCHAR2 := FND_API.G_FALSE,
159 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
160 p_module_type IN VARCHAR2 := 'JSP',
161 p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
162 x_return_status OUT NOCOPY VARCHAR2,
163 x_msg_count OUT NOCOPY NUMBER,
164 x_msg_data OUT NOCOPY VARCHAR2);
165
166 PROCEDURE Get_Visit_Items_no_price
167 (
168 p_api_version IN NUMBER := 1.0,
169 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
170 p_commit IN VARCHAR2 := FND_API.G_FALSE,
171 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
172 p_module_type IN VARCHAR2 :=NULL,
173 x_return_status OUT NOCOPY VARCHAR2,
174 x_msg_count OUT NOCOPY NUMBER,
175 x_msg_data OUT NOCOPY VARCHAR2,
176 p_cost_price_rec IN AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
177 x_cost_price_tbl OUT NOCOPY Cost_Price_Tbl_Type
178 );
179 --------------------------------------------------------------------------------
180 ------- Check various conditions and release visit if needed
181 ---------------------------------------------------------------------------------
182 PROCEDURE check_for_release_visit
183 (
184 p_visit_id IN NUMBER,
185 x_release_visit_required OUT NOCOPY VARCHAR2
186 );
187
188 --salogan::Visit Cost Estimation CP ER 9299910::01-JUN-2009::BEGIN
189 ---------------------------------------------------------------------------------------
190 ------ Procedure to estimate visit cost for a specific visit as a background process
191 ---------------------------------------------------------------------------------------
192 PROCEDURE bg_estimate_visit_cost
193 ( p_api_version IN NUMBER := 1.0,
194 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
195 p_commit IN VARCHAR2 := FND_API.G_FALSE,
196 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
197 p_module_type IN VARCHAR2 := 'CST',
198 p_x_cost_price_rec IN OUT NOCOPY AHL_VWP_VISIT_CST_PR_PVT.cost_price_rec_type,
199 x_request_id OUT NOCOPY NUMBER,
200 x_return_status OUT NOCOPY VARCHAR2,
201 x_msg_count OUT NOCOPY NUMBER,
202 x_msg_data OUT NOCOPY VARCHAR2
203 );
204 -----------------------------------------------------------------------------------------
205 ----- Procedure Made as an executable for the Cost Estimation Concurrent Program
206 -----------------------------------------------------------------------------------------
207 PROCEDURE bg_exec_estimate_visit_cost(
208 errbuf OUT NOCOPY VARCHAR2,
209 retcode OUT NOCOPY NUMBER,
210 p_api_version IN NUMBER,
211 p_visit_number IN NUMBER,
212 p_module_type IN VARCHAR2
213 );
214 --salogan::Visit Cost Estimation CP ER 9299910::01-JUN-2009::END
215
216 END AHL_VWP_VISIT_CST_PR_PVT;