1 PACKAGE AHL_VWP_RULES_PVT AUTHID CURRENT_USER AS
2 /* $Header: AHLVRULS.pls 120.6.12020000.2 2012/12/07 14:12:43 sareepar ship $ */
3 -----------------------------------------------------------
4 -- PACKAGE
5 -- AHL_VWP_RULES_PVT
6 --
7 -- PURPOSE
8 -- This package specification is a Private API for managing
9 -- Planning --> Visit Work Package --> VISIT, TASKS, PROJECT, PRODUCTION, PRICING, COSTING
10 -- related RULES as procedures in Complex Maintainance, Repair and Overhauling(CMRO).
11 --
12 -- It defines used pl/sql records and tables datatypes
13 --
14 -- Check_Serial_No_by_UConfig (see below for specification)
15 -- Check_Item_name_Or_Id (see below for specification)
16 -- Check_Serial_name_Or_Id (see below for specification)
17 -- Check_SR_request_number_Or_Id (see below for specification)
18 -- Check_Visit_Task_Number_Or_Id (see below for specification)
19 -- Check_Lookup_name_Or_Id (see below for specification)
20 -- Check_Org_Name_Or_Id (see below for specification)
21 -- Check_Dept_Desc_Or_Id (see below for specification)
22 -- Check_Visit_is_Simulated (see below for specification)
23 -- Check_Project_Template_Or_Id (see below for specification)
24 -- Check_Proj_Responsibility (see below for specification)
25 -- Check_Cost_Parent_Loop (see below for specification)
26 -- Check_Origin_Task_Loop (see below for specification)
27
28 -- Create_Tasks_for_MR (see below for specification)
29 -- Get_Serial_Item_by_Unit (see below for specification)
30 -- Tech_Dependency (see below for specification)
31 -- Insert_Tasks (see below for specification)
32
33 -- Add_Return_To_Supply (see below for specification)
34 -- Remove_Return_To_Supply (see below for specification)
35 -- Validate_Return_To_Supply (see below for specification)
36
37 -- FUNCTION
38 -- Get_Cost_Originating_Id (see below for specification)
39 -- Get_Visit_Task_Id (see below for specification)
40 -- Get_Visit_Task_Number (see below for specification)
41 --
42 -- NOTES
43 --
44 --
45 -- HISTORY
46 -- 03-MAY-2003 shbhanda Created.
47 -- 06-AUG-2003 SHBHANDA 11.5.10 Changes.
48 -- 17-FEB-2010 manisaga added route_id to Task_rec_type for navigation to route page
49 --------------------------------------------------------------------
50
51 ---------------------------------------------------------------------
52 -- Define Record Types for record structures needed by the APIs --
53 ---------------------------------------------------------------------
54 -- Record for Visit Task
55 TYPE Task_Rec_Type IS RECORD (
59 TEMPLATE_FLAG VARCHAR2(1) := 'N',
56 VISIT_TASK_ID NUMBER := NULL,
57 VISIT_TASK_NUMBER NUMBER := NULL,
58 VISIT_ID NUMBER := NULL,
60 INVENTORY_ITEM_ID NUMBER := NULL,
61 ITEM_ORGANIZATION_ID NUMBER := NULL,
62 ITEM_NAME VARCHAR2(40) := NULL,
63 COST_PARENT_ID NUMBER := NULL,
64 COST_PARENT_NUMBER NUMBER := NULL,
65 MR_ROUTE_ID NUMBER := NULL,
66 ROUTE_NUMBER VARCHAR2(30) := NULL,
67 MR_ID NUMBER := NULL,
68 MR_TITLE VARCHAR2(80) := NULL,
69 UNIT_EFFECTIVITY_ID NUMBER := NULL,
70 DEPARTMENT_ID NUMBER := NULL,
71 DEPT_NAME VARCHAR2(240) := NULL,
72 SERVICE_REQUEST_ID NUMBER := NULL,
73 SERVICE_REQUEST_NUMBER VARCHAR2(30) := NULL,
74 ORIGINATING_TASK_ID NUMBER := NULL,
75 ORGINATING_TASK_NUMBER NUMBER := NULL,
76 INSTANCE_ID NUMBER := NULL,
77 SERIAL_NUMBER VARCHAR2(30) := NULL,
78 PROJECT_TASK_ID NUMBER := NULL,
79 -- AVIKUKUM :: FP:PIE ::15-OCt-2010
80 -- Changed the type of PROJECT_TASK_NUMBER from NUMBER to VARCHAR2(25)
81 PROJECT_TASK_NUMBER VARCHAR2(25) := NULL,
82 PRIMARY_VISIT_TASK_ID NUMBER := NULL,
83 START_FROM_HOUR NUMBER := NULL,
84 DURATION NUMBER := NULL,
85 TASK_TYPE_CODE VARCHAR2(30) := 'UNASSOCIATED',
86 TASK_TYPE_VALUE VARCHAR2(80) := NULL,
87 VISIT_TASK_NAME VARCHAR2(80) := NULL,
88 DESCRIPTION VARCHAR2(4000) := NULL,
89 TASK_STATUS_CODE VARCHAR2(30) := NULL,
90 TASK_STATUS_VALUE VARCHAR2(80) := NULL,
91 OBJECT_VERSION_NUMBER NUMBER := NULL,
92 LAST_UPDATE_DATE DATE := NULL,
93 LAST_UPDATED_BY NUMBER := NULL,
94 CREATION_DATE DATE := NULL,
95 CREATED_BY NUMBER := NULL,
96 LAST_UPDATE_LOGIN NUMBER := NULL,
97 ATTRIBUTE_CATEGORY VARCHAR2(30) := NULL,
98 ATTRIBUTE1 VARCHAR2(150) := NULL,
99 ATTRIBUTE2 VARCHAR2(150) := NULL,
100 ATTRIBUTE3 VARCHAR2(150) := NULL,
101 ATTRIBUTE4 VARCHAR2(150) := NULL,
102 ATTRIBUTE5 VARCHAR2(150) := NULL,
103 ATTRIBUTE6 VARCHAR2(150) := NULL,
104 ATTRIBUTE7 VARCHAR2(150) := NULL,
105 ATTRIBUTE8 VARCHAR2(150) := NULL,
106 ATTRIBUTE9 VARCHAR2(150) := NULL,
107 ATTRIBUTE10 VARCHAR2(150) := NULL,
108 ATTRIBUTE11 VARCHAR2(150) := NULL,
109 ATTRIBUTE12 VARCHAR2(150) := NULL,
110 ATTRIBUTE13 VARCHAR2(150) := NULL,
111 ATTRIBUTE14 VARCHAR2(150) := NULL,
112 ATTRIBUTE15 VARCHAR2(150) := NULL,
113 TASK_START_DATE DATE := NULL,
114 TASK_END_DATE DATE := NULL,
115 DUE_BY_DATE DATE := NULL,
116 ZONE_NAME VARCHAR2(30) := NULL,
117 SUB_ZONE_NAME VARCHAR2(30) := NULL,
121 WORKORDER_ID NUMBER := NULL,
118 TOLERANCE_AFTER NUMBER := NULL,
119 TOLERANCE_BEFORE NUMBER := NULL,
120 TOLERANCE_UOM VARCHAR2(50) := NULL,
122 WO_NAME VARCHAR2(255) := NULL,
123 WO_STATUS VARCHAR2(30) := NULL,
124 WO_START_DATE DATE := NULL,
125 WO_END_DATE DATE := NULL,
126 OPERATION_FLAG VARCHAR2(2) := NULL,
127 IS_PRODUCTION_FLAG VARCHAR2(1) := NULL,
128 CREATE_JOB_FLAG VARCHAR2(1) := NULL,
129 STAGE_ID NUMBER := NULL,
130 STAGE_NAME VARCHAR2(80) := NULL,
131 --Begin changes by rnahata for Issue 105
132 QUANTITY NUMBER := NULL,
133 UOM CSI_ITEM_INSTANCES.UNIT_OF_MEASURE%TYPE := NULL,
134 INSTANCE_NUMBER CSI_ITEM_INSTANCES.INSTANCE_NUMBER%TYPE := NULL,
135 --End changes by rnahata for Issue 105
136 -- AVIKUKUM :: FP:PIE :: 13-OCT-2010 :: Service Type attributes added
137 SERVICE_TYPE_CODE VARCHAR2(30) := NULL,
138 SERVICE_TYPE VARCHAR2(80) := NULL,
139 -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Added two new attributes for past dates
140 PAST_TASK_START_DATE DATE := NULL,
141 PAST_TASK_END_DATE DATE := NULL,
142 --Begin changes by manisaga as part of DFF Enablement 0n 17-Feb-2010
143 ROUTE_ID NUMBER := NULL,
144 --End changes by manisaga as part of DFF Enablement 0n 17-Feb-2010
145 --salogan added for supplier warranty starts
146 WARRANTY_ENTITLEMENT_ID NUMBER := NULL,
147 CONTRACT_NUMBER NUMBER := NULL,
148 ENTITLEMENT_STATUS VARCHAR2(80) := NULL,
149 ENTITLEMENT_STATUS_CODE VARCHAR2(30) := NULL,
150 CLAIM_NAME VARCHAR2(30) := NULL,
151 CLAIM_STATUS VARCHAR2(80) := NULL,
152 CLAIM_STATUS_CODE VARCHAR2(80) := NULL,
153 TASK_WARRANTY VARCHAR2(1) := NULL,
154 INSTANCE_WARRANTY VARCHAR2(1) := NULL,
155 WARRANTY_NOT_APPL_FLAG VARCHAR2(1) := NULL,
156 --salogan added for supplier warranty ends
157 -- avikukum :: added fields for VWP Enhancement starts
158 STAGE_TYPE_CODE VARCHAR2(30) := NULL,
159 RETURN_TO_SUPPLY_FLAG VARCHAR2(1) := NULL,
160 -- avikukum :: added fields for VWP Enhancement ends
161 --MANESING::Component Maintenance Planning Project, 07-Aug-2011, added target quantity
162 TARGET_QTY NUMBER := NULL,
163 --PRAKKUM :: 11/06/2012 :: Bug 14068468
164 REPAIR_BATCH_NAME VARCHAR2(240) := NULL
165 );
166
167 -- Record of Maintainance Requirements Id and Serial Id
168 -- while importing technical dependency
169 TYPE MR_Serial_Rec_Type IS RECORD (
170 MR_ID NUMBER := NULL,
171 SERIAL_ID NUMBER := NULL,
172 --SKPATHAK : BUG 13997419 :: 26-APR-2012 :: Added the below attribute
173 UE_ID NUMBER := NULL
174 );
175
176 -- Record of Items which are filtered to only unique item among all items
177 TYPE Item_Rec_Type IS RECORD (
178 Item_Id NUMBER := NULL,
179 Visit_Task_Id NUMBER := NULL,
180 Quantity NUMBER := NULL,
181 Duration NUMBER := NULL,
182 Effective_Date DATE := NULL,
183 UOM_Code VARCHAR2(3) := NULL
184 );
185 ---------------------------------------------------------------------
186 -- Define Table Types for table structures of records needed by the APIs --
187 ---------------------------------------------------------------------
188 -- Table type for storing 'MR_Serial_Rec_Type' record datatype
189 TYPE MR_Serial_Tbl_Type IS TABLE OF MR_Serial_Rec_Type
190 INDEX BY BINARY_INTEGER;
191
192 -- Table type for storing 'Item_Rec_Type' record datatype
193 TYPE Item_Tbl_Type IS TABLE OF Item_Rec_Type
194 INDEX BY BINARY_INTEGER;
195
196 TYPE Task_Tbl_Type IS TABLE OF Task_Rec_Type
197 INDEX BY BINARY_INTEGER;
198
199 --------------------------------------------------------------------
200 -- Procedure name : Check_Item_Name_Or_Id
201 -- Type : Private
202 -- Purpose : To check if Item Name,Item Id and Item Organization Id exits.
203 -- Parameters :
204 --
205 -- Standard OUT Parameters :
206 -- x_return_status OUT VARCHAR2 Required
207 -- x_error_msg_code OUT VARCHAR2 Required
208 --
209 -- Check_Item_Name_Or_Id IN Parameters:
210 -- p_item_id IN NUMBER Required,
211 -- p_org_id IN NUMBER Required,
212 -- p_item_name IN VARCHAR2 Required,
213 --
214 -- Check_Item_Name_Or_Id OUT Parameters:
215 -- x_item_id OUT NUMBER Required,
216 -- x_org_id OUT NUMBER Required,
217 -- x_item_name OUT VARCHAR2 Required,
218 --
219 -- Version :
220 -- Initial Version 1.0
221 --------------------------------------------------------------------
222 PROCEDURE Check_Item_Name_Or_Id
223 (p_item_id IN NUMBER,
224 p_org_id IN NUMBER,
225 p_item_name IN VARCHAR2,
226
227 x_item_id OUT NOCOPY NUMBER,
228 x_org_id OUT NOCOPY NUMBER,
229 x_item_name OUT NOCOPY VARCHAR2,
230 x_return_status OUT NOCOPY VARCHAR2,
231 x_error_msg_code OUT NOCOPY VARCHAR2
232 );
233
234 --------------------------------------------------------------------
235 -- Procedure name : Check_Serial_Name_Or_Id
236 -- Type : Private
237 -- Purpose : Converts Serial Number to Instance Id.
238 -- Parameters :
239 --
240 -- Standard OUT Parameters :
241 -- x_return_status OUT VARCHAR2 Required
245 -- p_item_id IN NUMBER Required,
242 -- x_error_msg_code OUT VARCHAR2 Required
243 --
244 -- Check_Serial_Name_Or_Id IN Parameters:
246 -- p_org_id IN NUMBER Required,
247 -- p_serial_id IN NUMBER Required,
248 -- p_serial_number IN VARCHAR2 Required,
249 --
250 -- Check_Serial_Name_Or_Id OUT Parameters:
251 -- x_serial_id OUT NUMBER Required,
252 --
253 -- Version :
254 -- Initial Version 1.0
255 --
256 -------------------------------------------------------------------
257 PROCEDURE Check_Serial_Name_Or_Id
258 (p_item_id IN NUMBER,
259 p_org_id IN NUMBER,
260 p_serial_id IN NUMBER,
261 p_serial_number IN VARCHAR2,
262
263 x_serial_id OUT NOCOPY NUMBER,
264 x_return_status OUT NOCOPY VARCHAR2,
265 x_error_msg_code OUT NOCOPY VARCHAR2
266 );
267
268 --------------------------------------------------------------------
269 -- Procedure name : Check_Org_Name_Or_Id
270 -- Type : Private
271 -- Purpose : To Converts Organization Name to Organization ID.
272 -- Parameters :
273 --
274 -- Standard OUT Parameters :
275 -- x_return_status OUT VARCHAR2 Required
276 -- x_error_msg_code OUT VARCHAR2 Required
277 --
278 -- Check_Org_Name_Or_Id IN Parameters:
279 -- p_organization_id IN NUMBER Required,
280 -- p_org_name IN VARCHAR2 Required,
281 --
282 -- Check_Org_Name_Or_Id OUT Parameters:
283 -- x_organization_id OUT NUMBER Required,
284 --
285 -- Version :
286 -- Initial Version 1.0
287 --------------------------------------------------------------------
288 PROCEDURE Check_Org_Name_Or_Id
289 (p_organization_id IN NUMBER,
290 p_org_name IN VARCHAR2,
291
292 x_organization_id OUT NOCOPY NUMBER,
293 x_return_status OUT NOCOPY VARCHAR2,
294 x_error_msg_code OUT NOCOPY VARCHAR2
295 );
296
297 --------------------------------------------------------------------
298 -- Procedure name : Check_Dept_Desc_Or_Id
299 -- Type : Private
300 -- Purpose : Converts Department Description to Department ID
301 -- Parameters :
302 --
303 -- Standard OUT Parameters :
304 -- x_return_status OUT VARCHAR2 Required
305 -- x_error_msg_code OUT VARCHAR2 Required
306 --
307 -- Check_Dept_Desc_Or_Id IN Parameters:
308 -- p_organization_id IN NUMBER Required,
309 -- p_department_id IN NUMBER Required,
310 -- p_dept_name IN NUMBER Required,
311 --
312 -- Check_Dept_Desc_Or_Id OUT Parameters:
313 -- x_department_id OUT NUMBER Required,
314 --
315 -- Version :
316 -- Initial Version 1.0
317 --------------------------------------------------------------------
318 PROCEDURE Check_Dept_Desc_Or_Id
319 (p_organization_id IN NUMBER,
323 x_department_id OUT NOCOPY NUMBER,
320 p_department_id IN NUMBER,
321 p_dept_name IN VARCHAR2,
322
324 x_return_status OUT NOCOPY VARCHAR2,
325 x_error_msg_code OUT NOCOPY VARCHAR2
326 );
327
328 --------------------------------------------------------------------
329 -- Procedure name : Check_SR_Request_Number_Or_Id
330 -- Type : Private
331 -- Purpose : To Converts Servie request Number to ID or Vice versa.
332 -- Parameters :
333 --
334 -- Standard OUT Parameters :
335 -- x_return_status OUT VARCHAR2 Required
336 -- x_error_msg_code OUT VARCHAR2 Required
337 --
338 -- Check_SR_Request_Number_Or_Id IN Parameters:
339 -- p_service_id IN NUMBER Required,
340 -- p_service_number IN NUMBER Required,
341 --
342 -- Check_SR_Request_Number_Or_Id OUT Parameters:
343 -- x_service_id OUT NUMBER Required,
344 --
345 -- Version :
346 -- Initial Version 1.0
347 --------------------------------------------------------------------
348 PROCEDURE Check_SR_Request_Number_Or_Id
349 (p_service_id IN NUMBER,
350 p_service_number IN VARCHAR2,
351
352 x_service_id OUT NOCOPY NUMBER,
353 x_return_status OUT NOCOPY VARCHAR2,
354 x_error_msg_code OUT NOCOPY VARCHAR2
355 );
356
357 --------------------------------------------------------------------
358 -- Procedure name : Check_Visit_is_Simulated
359 -- Type : Private
360 -- Purpose : To check if the visit is simulated or not.
361 -- Parameters :
362 --
363 -- Standard OUT Parameters :
364 -- x_return_status OUT VARCHAR2 Required
365 -- x_error_msg_code OUT VARCHAR2 Required
366 --
367 -- Check_Visit_is_Simulated IN Parameters:
368 -- p_Visit_id IN NUMBER Required,
369 --
370 -- Check_Visit_is_Simulated OUT Parameters:
371 -- x_bln_flag OUT VARCHAR2 Required,
372 --
373 -- Version :
374 -- Initial Version 1.0
375 --------------------------------------------------------------------
376 PROCEDURE Check_Visit_is_Simulated
377 (p_Visit_id IN NUMBER,
378
379 x_bln_flag OUT NOCOPY VARCHAR2,
380 x_return_status OUT NOCOPY VARCHAR2,
381 x_error_msg_code OUT NOCOPY VARCHAR2
382 );
383
384 --------------------------------------------------------------------
385 -- Procedure name : Check_Project_Template_Or_Id
386 -- Type : Private
387 -- Purpose : To check project template name and retrieve project id
388 -- Parameters :
389 --
390 -- Standard OUT Parameters :
391 -- x_return_status OUT VARCHAR2 Required
392 -- x_error_msg_code OUT VARCHAR2 Required
393 --
394 -- Check_Project_Template_Or_Id IN Parameters:
395 -- p_proj_temp_name IN VARCHAR2 Required,
396 --
397 -- Check_Project_Template_Or_Id OUT Parameters:
398 -- x_project_id OUT NUMBER Required,
399 --
400 -- Version :
401 -- Initial Version 1.0
402 --------------------------------------------------------------------
403 PROCEDURE Check_Project_Template_Or_Id
404 (p_proj_temp_name IN VARCHAR2,
405 x_project_id OUT NOCOPY NUMBER,
406 x_return_status OUT NOCOPY VARCHAR2,
407 x_error_msg_code OUT NOCOPY VARCHAR2
408 );
409
410 --------------------------------------------------------------------
411 -- Procedure name : Check_Serial_No_by_UConfig
412 -- Type : DEPRECATED-- Code removed in POST11510
413 -- Purpose : To derive the serial numbers that are part
417 -- Standard OUT Parameters :
414 -- of unit configuration of the item
415 -- Parameters :
416 --
418 -- x_return_status OUT VARCHAR2 Required
419 -- x_error_msg_code OUT VARCHAR2 Required
420 --
421 -- Check_Serial_No_by_UConfig IN Parameters:
422 -- p_visit_id IN NUMBER Required,
423 -- p_item_id IN NUMBER Required,
424 -- p_serial_id IN NUMBER Required,
425 -- p_org_id IN NUMBER Required,
426 --
427 -- Check_Serial_No_by_UConfig OUT Parameters:
428 -- x_check_flag OUT VARCHAR2 Required,
429 --
430 -- Version :
431 -- Initial Version 1.0
432 --------------------------------------------------------------------
433 /*PROCEDURE Check_Serial_No_by_UConfig
434 (p_visit_id IN NUMBER,
435 p_item_id IN NUMBER,
436 p_org_id IN NUMBER,
437 p_serial_id IN NUMBER,
438 x_check_flag OUT NOCOPY VARCHAR2,
439 x_return_status OUT NOCOPY VARCHAR2,
440 x_error_msg_code OUT NOCOPY VARCHAR2
441 );*/
442 -----------------------------------------------------------------------
443 -- FUNCTION
444 -- instance_in_config_tree
445 --
446 -- PURPOSE
447 -- Check whether p_instance_id belongs to the instance of p_visit_id
448 -- Return 'Y' for the following cases:
449 -- 1. p_visit_id doesn't have instance_id associated at all
450 -- 2. The instance_id of p_visit_id = p_instance_id regardless whether
451 -- the instance of p_visit_id has components or not
452 -- 3. p_instance_id is a component of the instance of p_visit_id regardless
453 -- whether it is a UC tree or IB tree
454 -- Return 'N' otherwise
455 -----------------------------------------------------------------------
456 FUNCTION instance_in_config_tree(p_visit_id NUMBER, p_instance_id NUMBER)
457 RETURN VARCHAR2;
458
459 --------------------------------------------------------------------
460 -- Procedure name : Check_Visit_Task_Number_OR_Id
461 -- Type : Private
462 -- Purpose : To convert Visit Task Number to Id or Vice versa
463 -- Parameters :
464 --
465 -- Standard OUT Parameters :
466 -- x_return_status OUT VARCHAR2 Required
467 -- x_error_msg_code OUT VARCHAR2 Required
468 --
469 -- Check_Visit_Task_Number_OR_Id IN Parameters:
470 -- p_visit_task_id IN NUMBER Required,
471 -- p_visit_task_number IN NUMBER Required,
472 -- p_visit_id IN NUMBER Required
473
474 -- Check_Visit_Task_Number_OR_Id OUT Parameters:
475 -- x_visit_task_id OUT NUMBER Required,
476 --
477 -- Version :
478 -- Initial Version 1.0
479 --------------------------------------------------------------------
480 PROCEDURE Check_Visit_Task_Number_Or_Id
481 (p_visit_task_id IN NUMBER,
482 p_visit_task_number IN NUMBER,
483 p_visit_id IN NUMBER,
484
485 x_visit_task_id OUT NOCOPY NUMBER,
486 x_return_status OUT NOCOPY VARCHAR2,
487 x_error_msg_code OUT NOCOPY VARCHAR2
488 );
489
490 --------------------------------------------------------------------
491 -- Procedure name : Check_Lookup_Name_Or_Id
492 -- Type : Private
493 -- Purpose : To derive the lookup code and values
494 -- Parameters :
495 --
496 -- Standard OUT Parameters :
497 -- x_return_status OUT VARCHAR2 Required
498 -- x_error_msg_code OUT VARCHAR2 Required
499 --
500 -- Check_Lookup_Name_Or_Id IN Parameters:
501 -- p_lookup_type IN VARCHAR2 Required,
502 -- p_lookup_code IN VARCHAR2 Required,
503 -- p_meaning IN VARCHAR2 Required,
504 -- p_check_id_flag IN VARCHAR2 Required
505 --
506 -- Check_Lookup_Name_Or_Id OUT Parameters:
507 -- x_lookup_code OUT VARCHAR2 Required,
508 --
509 -- Version :
510 -- Initial Version 1.0
511 --------------------------------------------------------------------
512 PROCEDURE Check_Lookup_Name_Or_Id
513 ( p_lookup_type IN FND_LOOKUPS.lookup_type%TYPE,
514 p_lookup_code IN FND_LOOKUPS.lookup_code%TYPE,
515 p_meaning IN FND_LOOKUPS.meaning%TYPE,
516 p_check_id_flag IN VARCHAR2,
517 x_lookup_code OUT NOCOPY VARCHAR2,
518 x_return_status OUT NOCOPY VARCHAR2);
519
520
521 --------------------------------------------------------------------
522 -- Procedure name : Check_Project_Responsibilities
523 -- Type : Private
524 -- Purpose : To verify project superuser reponsibilities
525 -- Parameters :
526 --
527 -- Standard OUT Parameters :
528 -- x_return_status OUT VARCHAR2 Required
529 -- x_error_msg_code OUT VARCHAR2 Required
530 --
531 -- Check_Project_Responsibilities OUT Parameters:
532 -- x_check_project OUT VARCHAR2 Required,
533 --
534 -- Version :
535 -- Initial Version 1.0
536 --------------------------------------------------------------------
537 PROCEDURE Check_Proj_Responsibility
538 ( x_check_project OUT NOCOPY VARCHAR2,
539 x_return_status OUT NOCOPY VARCHAR2);
540
541 --------------------------------------------------------------------
542 -- Procedure name : Get_Serial_Item_by_Unit
543 -- Type : Private
544 -- Purpose : To derive the Serial Id and Inventory Item Id from Unit Name
545 -- Parameters :
546 --
547 -- Standard OUT Parameters :
548 -- x_return_status OUT VARCHAR2 Required
549 -- x_error_msg_code OUT VARCHAR2 Required
550 --
551 -- Get_Serial_Item_by_Unit IN Parameters:
555 -- x_instance_id OUT NUMBER Required,
552 -- p_unit_name IN VARCHAR2 Required,
553 --
554 -- Get_Serial_Item_by_Unit OUT Parameters:
556 -- x_item_id OUT NUMBER Required,
557 -- x_item_org_id OUT NUMBER Required,
558 --
559 -- Version :
560 -- Initial Version 1.0
561 --------------------------------------------------------------------
562 PROCEDURE Get_Serial_Item_by_Unit
563 ( p_unit_name IN VARCHAR2,
564 x_instance_id OUT NOCOPY NUMBER,
565 x_item_id OUT NOCOPY NUMBER,
566 x_item_org_id OUT NOCOPY NUMBER,
567 x_return_status OUT NOCOPY VARCHAR2,
568 x_error_msg_code OUT NOCOPY VARCHAR2);
569
570 --------------------------------------------------------------------
571 -- Procedure name : Get_Cost_Originating_Id
572 -- Type : Private
573 -- Purpose : To derive the parent MR from the current MR and root MR.
574 -- for deriving cost parent and originating task ID's while creating
575 -- planned/unplanned tasks..
576 -- Parameters :
577 --
578 -- Get_Cost_Originating_Id IN Parameters:
579 -- p_mr_main_id IN NUMBER Required,
580 -- p_mr_header_id IN NUMBER Required,
581 --
582 -- Get_Cost_Originating_Id OUT Parameters:
583 -- x_parent_id OUT NUMBER Required,
584 --
585 -- Version :
586 -- Initial Version 1.0
587 --------------------------------------------------------------------
588 FUNCTION Get_Cost_Originating_Id (p_mr_main_id IN NUMBER, p_mr_header_id IN NUMBER)
589 RETURN NUMBER;
590
591 --------------------------------------------------------------------
592 -- Procedure name : Get_Visit_Task_Id
593 -- Type : Private
594 -- Purpose : To derive the primary attribute visit_task_id
595 -- from the task entity
596 -- Parameters :
597 --
598 -- Get_Visit_Task_Id OUT Parameters:
599 -- x_Visit_Task_Id OUT NUMBER Required,
600 --
601 -- Version :
602 -- Initial Version 1.0
603 --------------------------------------------------------------------
604 FUNCTION Get_Visit_Task_Id
605 RETURN NUMBER;
606
607 --------------------------------------------------------------------
608 -- Procedure name : Get_Visit_Task_Number
609 -- Type : Private
610 -- Purpose : To derive the attribute visit_task_number from the task entity.
611 -- Parameters :
612 --
613 -- Get_Cost_Originating_Id IN Parameters:
614 -- p_visit_id IN NUMBER Required,
615 --
616 -- Get_Visit_Task_Number OUT Parameters:
617 -- x_Visit_Task_Number OUT NUMBER Required,
618 --
619 -- Version :
620 -- Initial Version 1.0
621 --------------------------------------------------------------------
622 FUNCTION Get_Visit_Task_Number (p_visit_id IN NUMBER)
623 RETURN NUMBER;
624
625 --------------------------------------------------------------------
626 -- Procedure name : Insert_Tasks
627 -- Type : Private
628 -- Purpose : Called from Creation of Planned/Unplanned tasks
629 -- under various other circumstances
630 -- Parameters :
631 --
632 -- Standard OUT Parameters :
633 -- x_return_status OUT VARCHAR2 Required
634 -- x_msg_count OUT VARCHAR2 Required
635 -- x_msg_data OUT VARCHAR2 Required
636 --
637 -- Insert_Tasks IN Parameters:
638 -- p_visit_id IN NUMBER Required,
639 -- p_unit_id IN NUMBER Required,
640 -- p_serial_id IN NUMBER Required,
641 -- p_service_id IN NUMBER Required,
642 -- p_dept_id IN NUMBER Required,
643 -- p_item_id IN NUMBER Required,
647 -- p_parent_id IN NUMBER Required,
644 -- p_item_org_id IN NUMBER Required,
645 -- p_mr_id IN NUMBER Required,
646 -- p_mr_route_id IN NUMBER Not Required,
648 -- p_flag IN VARHCAR2 Required,
649 --
650 -- Insert_Tasks OUT Parameters:
651 -- x_task_id OUT NUMBER Required,
652 --
653 -- Version :
654 -- Initial Version 1.0
655 --------------------------------------------------------------------
656 PROCEDURE Insert_Tasks (
657 p_visit_id IN NUMBER,
658 p_unit_id IN NUMBER,
659 p_serial_id IN NUMBER,
660 p_service_id IN NUMBER,
661 p_dept_id IN NUMBER,
662 p_item_id IN NUMBER,
663 p_item_org_id IN NUMBER,
664 p_mr_id IN NUMBER,
665 p_mr_route_id IN NUMBER,
666 p_parent_id IN NUMBER,
667 p_flag IN VARCHAR2,
668 p_stage_id IN NUMBER := NULL,
669 -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Added past start and end dates
670 p_past_task_start_date IN DATE := NULL,
671 p_past_task_end_date IN DATE := NULL,
672 p_quantity IN NUMBER := NULL, -- Added by rnahata for Issue 105
673 -- SKPATHAK :: Bug 8343599 :: 14-APR-2009
674 p_task_start_date IN DATE := NULL,
675 -- AVIKUKUM :: FP:PIE ::13-OCT-2010 :: Service Type code added
676 p_service_type_code IN VARCHAR2 := NULL,
677 x_task_id OUT NOCOPY NUMBER,
678 x_return_status OUT NOCOPY VARCHAR2,
679 x_msg_count OUT NOCOPY NUMBER,
680 x_msg_data OUT NOCOPY VARCHAR2
681 );
682
683 --------------------------------------------------------------------
684 -- Procedure name : Tech_Dependency
685 -- Type : Private
686 -- Purpose : To associated Technical dependency while creating Planned/Unplanned Tasks.
687 -- Parameters :
688 --
689 -- Standard OUT Parameters :
690 -- x_return_status OUT VARCHAR2 Required
691 --
692 -- Tech_Dependency Parameters:
693 -- p_visit_id IN NUMBER Required,
694 -- p_MR_Serial_Tbl OUT MR_Serial_Tbl_Type Required,
695 --
696 -- Version :
697 -- Initial Version 1.0
698 --
699 --------------------------------------------------------------------
700 PROCEDURE Tech_Dependency (
701 p_visit_id IN NUMBER,
702 p_task_type IN VARCHAR2,
703 p_MR_Serial_Tbl IN MR_Serial_Tbl_Type,
704 x_return_status OUT NOCOPY VARCHAR2);
705
706 --------------------------------------------------------------------
707 -- Procedure name : Create_Tasks_for_MR
708 -- Type : Private
709 -- Purpose : To create Tasks for MR.
710 -- Parameters :
711 --
712 -- Standard OUT Parameters :
713 -- x_return_status OUT VARCHAR2 Required
714 -- Create_Tasks_for_MR Parameters:
715 -- p_department_id IN NUMBER Required,
716 -- p_visit_id IN NUMBER Required,
717 -- p_serial_id IN NUMBER Required,
718 -- p_mr_id IN NUMBER Required,
719 -- p_unit_id IN NUMBER Required,
720 -- p_service_req_id IN NUMBER Required,
721 -- p_x_parent_MR_Id IN OUT NUMBER Required
722 --
723 -- Version :
724 -- Initial Version 1.0
725 --
726 --------------------------------------------------------------------
727 PROCEDURE Create_Tasks_for_MR (
728 p_visit_id IN NUMBER,
729 p_unit_id IN NUMBER,
730 p_item_id IN NUMBER,
731 p_org_id IN NUMBER,
732 p_serial_id IN NUMBER,
733 p_mr_id IN NUMBER,
734 p_department_id IN NUMBER,
735 p_service_req_id IN NUMBER,
736 -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Added past start and end dates too
737 p_past_task_start_date IN DATE := NULL,
738 p_past_task_end_date IN DATE := NULL,
739 -- Added by rnahata for Issue 105
740 p_quantity IN NUMBER,
741 -- SKPATHAK :: Bug 8343599 :: 14-APR-2009
742 p_task_start_date IN DATE := NULL,
743 -- AVIKUKUM :: FP:PIE ::13-OCT-2010 :: Service Type code added
744 p_service_type_code IN VARCHAR2 := NULL,
745 p_x_parent_MR_Id IN OUT NOCOPY NUMBER,
746 x_return_status OUT NOCOPY VARCHAR2
747 );
748
749 --------------------------------------------------------------------
750 -- Procedure name : Check_Cost_Parent_Loop
751 -- Type : Private
752 -- Purpose : To check if the cost parent task not forming loop among other tasks
753 -- Parameters :
754 --
755 -- Check_Cost_Parent_Loop IN Parameters :
756 -- p_visit_id IN NUMBER Required
757 -- p_visit_task_id IN NUMBER Required
758 -- p_cost_parent_id IN NUMBER Required
759 --
760 -- Version :
761 -- Initial Version 1.0
762 --
763 --------------------------------------------------------------------
764 PROCEDURE Check_Cost_Parent_Loop
765 ( p_visit_id IN NUMBER,
766 p_visit_task_id IN NUMBER,
767 p_cost_parent_id IN NUMBER
768 );
769
770 --------------------------------------------------------------------
771 -- Procedure name : Check_Origin_Task_Loop
772 -- Type : Private
773 -- Purpose : To check if the originating task not forming loop among other tasks
774 -- Parameters :
775 --
776 -- Check_Origin_Task_Loop IN Parameters :
777 -- p_visit_id IN NUMBER Required
778 -- p_visit_task_id IN NUMBER Required
779 -- p_originating_task_id IN NUMBER Required
780 --
781 -- Version :
785 PROCEDURE Check_Origin_Task_Loop
782 -- Initial Version 1.0
783 --
784 --------------------------------------------------------------------
786 ( p_visit_id IN NUMBER,
787 p_visit_task_id IN NUMBER,
788 p_originating_task_id IN NUMBER);
789
790 --------------------------------------------------------------------
791 -- PROCEDURE : Update_Visit_Task_Flag
792 -- Type : Private
793 -- Purpose : To update visit entity any_task_chg_flag attribute whenever there
794 -- are changes in visit task - either addition or deletion or change
795 -- in cost parent of any task
796 -- Parameters :
797 --
798 -- Update_Visit_Task_Flag IN Parameters :
799 -- p_visit_id IN NUMBER Required
800 -- p_flag_id IN NUMBER Required
801 --
802 -- Update_Visit_Task_Flag OUT Parameters :
803 -- x_return_status OUT VARCAHR2 Required
804 --
805 -- Version :
806 -- Initial Version 1.0
807 --
808 --------------------------------------------------------------------
809 PROCEDURE Update_Visit_Task_Flag
810 (p_visit_id IN NUMBER,
811 p_flag IN VARCHAR2,
812 x_return_status OUT NOCOPY VARCHAR2
813 );
814
815 --------------------------------------------------------------------
816 -- PROCEDURE
817 -- Check_Price_List_Name_Or_Id
818 --
819 -- PURPOSE
820 -- To find out price list id for price list name for a visit or tasks
821 -- PROCEDURE : Update_Visit_Task_Flag
822 -- Type : Private
823 -- Purpose : To update visit entity any_task_chg_flag attribute whenever there
824 -- are changes in visit task - either addition or deletion or change
825 -- in cost parent of any task
826 -- Parameters :
827 --
828 -- Check_Price_List_Name_Or_Id IN Parameters :
829 -- p_visit_id IN NUMBER Required
830 -- p_flag_id IN NUMBER Required
831 --
832 -- Check_Price_List_Name_Or_Id OUT Parameters :
833 -- x_return_status OUT VARCAHR2 Required
834 --
835 -- Version :
836 -- Initial Version 1.0
837 --
838 --------------------------------------------------------------------
839 PROCEDURE Check_Price_List_Name_Or_Id(
840 p_visit_id IN NUMBER,
841 p_price_list_name IN VARCHAR2,
842 x_price_list_id OUT NOCOPY NUMBER,
843 x_return_status OUT NOCOPY VARCHAR2
844 );
845
846 --------------------------------------------------------------------
847 -- Procedure : Update_Cost_Origin_Task
848 -- Type : Private
849 -- Purpose : To update all tasks which have the deleting task as cost or originating task
850 -- Parameters :
851 --
852 -- Update_Cost_Origin_Task IN Parameters :
853 -- p_visit_task_id IN NUMBER Required
854 --
855 -- Update_Cost_Origin_Task OUT Parameters :
856 -- x_return_status OUT VARCHAR2 Required
857 --
858 -- Version :
859 -- Initial Version 1.0
860 --
861 --------------------------------------------------------------------
862 PROCEDURE Update_Cost_Origin_Task
863 (p_visit_task_id IN NUMBER,
864 x_return_status OUT NOCOPY VARCHAR2
865 );
866
867 --------------------------------------------------------------------
868 -- Procedure : Update_Visit_Task_Flag
869 -- Type : Private
870 -- Purpose : To merge two item tables and remove the redundant items
871 -- in table for which no price is defined
872 -- Parameters :
873 --
874 -- Merge_for_Unique_Items IN Parameters :
875 -- p_item_tbl1 IN Item_Tbl_Type Required
876 -- p_item_tbl2 IN Item_Tbl_Type Required
877 --
878 -- Merge_for_Unique_Items OUT Parameters :
879 -- x_item_tbl OUT Item_Tbl_Type Required
880 --
881 -- Version :
882 -- Initial Version 1.0
883 --
884 --------------------------------------------------------------------
885 PROCEDURE Merge_for_Unique_Items
886 (p_item_tbl1 IN Item_Tbl_Type,
887 p_item_tbl2 IN Item_Tbl_Type,
888 x_item_tbl OUT NOCOPY Item_Tbl_Type
889 );
890
891 --------------------------------------------------------------------
892 -- Procedure : Check_Item_in_Price_List
893 -- Type : Private
894 -- Purpose : To check if item of MR is defined in price list.
895 -- Parameters :
896 --
897 -- Check_Item_in_Price_List IN Parameters :
898 -- p_price_list IN NUMBER Required
899 -- p_item_id IN NUMBER Required
900 --
901 -- Check_Item_in_Price_List OUT Parameters :
902 -- x_item_chk_flag OUT NUMBER Required
903 --
904 -- Version :
905 -- Initial Version 1.0
906 --
907 --------------------------------------------------------------------
908 /*PROCEDURE Check_Item_in_Price_List
909 (p_price_list IN NUMBER,
910 p_item_id IN NUMBER,
911 x_item_chk_flag OUT NOCOPY NUMBER
912 );
913 */
914 --------------------------------------------------------------------
915 -- PROCEDURE : Check_Currency_for_Costing
916 -- Type : Private
917 -- Purpose : To retrieve currency code and pass as input parameter to Pricing API
918 -- Parameters :
919 --
920 -- Check_Currency_for_Costing IN Parameters :
924 -- x_currency_code OUT VARCHAR2 Required
921 -- p_visit_id IN NUMBER Required
922 --
923 -- Check_Currency_for_Costing OUT Parameters :
925 --
926 -- Version :
927 -- Initial Version 1.0
928 --
929 --------------------------------------------------------------------
930 PROCEDURE Check_Currency_for_Costing
931 (p_visit_id IN NUMBER,
932 x_currency_code OUT NOCOPY VARCHAR2
933 );
934
935 --------------------------------------------------------------------
936 -- PROCEDURE : Check_Job_Status
937 -- Type : Private
938 -- Purpose : To find out valid job status on shop floor for a Visit/MR/Task
939 -- Parameters :
940 --
941 -- Check_Job_Status IN Parameters :
942 -- p_id IN NUMBER Required
943 -- p_is_task_flag IN VARCHAR2 Required
944 -- - 'Y' for MR and Task
945 -- - 'N' for Visit
946 -- Check_Job_Status OUT Parameters :
947 -- x_status_code OUT NUMBER Required
948 -- x_status_meaning OUT VARCAHR2 Required
949 --
950 -- Version :
951 -- Initial Version 1.0
952 --
953 --------------------------------------------------------------------
954 PROCEDURE Check_Job_Status
955 (p_id IN NUMBER,
956 p_is_task_flag IN VARCHAR2,
957 x_status_code OUT NOCOPY NUMBER,
958 x_status_meaning OUT NOCOPY VARCHAR2
959 );
960
961 --------------------------------------------------------------------
962 -- PROCEDURE : CHECK_DEPARTMENT_SHIFT
963 -- Type : Private
964 -- Purpose : To find out if the respective dept has shifts defined in ahl_dept_shifts
965 -- Parameters :
966 --
967 -- CHECK_DEPARTMENT_SHIFT IN Parameters :
968 -- p_dept_id IN NUMBER Required
969
970 -- CHECK_DEPARTMENT_SHIFT OUT Parameters :
971 -- x_return_status OUT varchar2 Required
972 --
973 -- Version :
974 -- Initial Version 1.0
975 --
976 --------------------------------------------------------------------
977 PROCEDURE CHECK_DEPARTMENT_SHIFT(
978 p_dept_id IN NUMBER,
979 x_return_status OUT NOCOPY VARCHAR2
980 );
981
982 -- AVIKUKUM :: FP:PIE :: 13-OCT-2010
983 -------------------------------------------------------------------------------------------------
984 -- PROCEDURE : Validate_Service_Type
985 -- Type : Private
986 -- Purpose : To validate the passed Service Type attributes.
987 -- For public API call for creation, the behaviour would be:
988 -- - if passed Service Type attributes are G_MISS_CHAR, NULLify them
989 -- - else if NULL, default to the appropriate profile
990 -- - else validate in the usual manner
991 -- Parameters :
992 --
993 -- Validate_Service_Type IN Parameters :
994 -- p_service_type IN VARCHAR2
995 -- p_module_type IN VARCHAR2 := 'JSP'
996 -- p_unit_effectivity_id IN NUMBER
997
998 -- Validate_Service_Type IN OUT Parameters :
999 -- p_service_type_code IN OUT VARCHAR2
1000 --
1001 -- Version :
1002 -- Initial Version 1.0
1003 --
1004 -------------------------------------------------------------------------------------------------
1005 PROCEDURE Validate_Service_Type(
1006 p_service_type IN VARCHAR2,
1007 p_module_type IN VARCHAR2 := 'JSP',
1008 p_unit_effectivity_id IN NUMBER,
1009 p_x_service_type_code IN OUT NOCOPY VARCHAR2
1010 );
1011
1012 -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010
1013 -- Added this new procedure
1014 --------------------------------------------------------------------
1015 -- PROCEDURE : Validate_Past_Task_Dates
1016 -- Type : Private
1017 -- Purpose : To validate the past task start and end dates against cost parent/task stages
1018 -- Parameters :
1019 --
1020 -- Validate_Past_Task_Dates IN Parameters :
1021 -- p_task_rec IN OUT NOCOPY Task_Rec_Type Required
1022
1023 -- Validate_Past_Task_Dates OUT Parameters :
1024 -- x_return_status OUT varchar2 Required
1025 --
1026 -- Version :
1027 -- Initial Version 1.0
1028 --
1029 --------------------------------------------------------------------
1030
1031 PROCEDURE Validate_Past_Task_Dates (
1032 p_task_rec IN OUT NOCOPY Task_Rec_Type,
1033 x_return_status OUT NOCOPY VARCHAR2
1034 );
1035
1036 --salogan added the following for supplier warranty starts
1037 ------------------------------------------------------------------------------------
1038 -- Start of Comments
1039 -- Procedure name : Get_Warranty_Rec_for_Create
1040 -- Type : Public
1041 -- Function : To get the warranty entitlement record (table type) for task creation
1042 -- Pre-reqs :
1043 -- Parameters : p_task_id IN NUMBER Required : Visit Task id
1044 -- : p_instance_id IN NUMBER Required : Instance id
1045 -- : p_service_req_id IN NUMBER
1046 -- : x_warranty_entl_tbl OUT AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type
1047 --
1048 -- End of Comments
1049
1050 PROCEDURE Get_Warranty_Rec_for_Create(
1051 p_task_id IN NUMBER,
1052 p_instance_id IN NUMBER,
1053 p_service_req_id IN NUMBER := NULL,
1054 x_warranty_entl_tbl OUT NOCOPY AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type
1055 );
1056
1057
1058
1059 ------------------------------------------------------------------------------------
1060 -- Start of Comments
1064 -- Pre-reqs :
1061 -- Procedure name : Get_Warranty_Rec_for_Update
1062 -- Type : Public
1063 -- Function : To get the set warranty entitlement record (table type) for task updation
1065 -- Parameters : p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type Required : Visit Task id
1066 -- : x_warranty_entl_tbl OUT AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type
1067 --
1068 -- End of Comments
1069
1070 PROCEDURE Get_Warranty_Rec_for_Update(
1071 p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
1072 x_warranty_entl_tbl OUT NOCOPY AHL_WARRANTY_ENTL_PVT.Warranty_Entl_Tbl_Type
1073 );
1074 --salogan added the following for supplier warranty ends
1075
1076 --VWPE ER-12424063:: tchimira :: 19-FEB -2011 :: start
1077 ------------------------------------------------------------------
1078 -- Procedure name : Handle_Task_Dependency
1079 -- Type : Private
1080 -- Function : To handle all the task dependencies, stage dependency and WBS rules.
1081 -- Parameters :
1082 --
1083 -- Standard IN Parameters :
1084 -- p_api_version IN NUMBER Required
1085 -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1086 -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1087 -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1088 --
1089 -- Standard OUT Parameters :
1090 -- x_return_status OUT VARCHAR2 Required
1091 -- x_msg_count OUT NUMBER Required
1092 -- x_msg_data OUT VARCHAR2 Required
1093 --
1094 -- Handle_Task_Dependency Parameters:
1095 -- p_task_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type Required,
1096 -- The record with AHL_VWP_RULES_PVT.Task_Tbl_Type
1097 -- p_visit_id IN NUMBER Required
1098 --
1099 -- Version :
1100 -- Initial Version 1.0
1101 -------------------------------------------------------------------
1102 PROCEDURE Handle_Task_Dependency (
1103 p_api_version IN NUMBER,
1104 p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1105 p_commit IN VARCHAR2 := Fnd_Api.g_false,
1106 p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1107
1108 p_visit_id IN NUMBER,
1109 p_task_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
1110
1111 x_return_status OUT NOCOPY VARCHAR2,
1112 x_msg_count OUT NOCOPY NUMBER,
1113 x_msg_data OUT NOCOPY VARCHAR2
1114 );
1115
1116
1117 -------------------------------------------------------------------
1118 --VWPE ER-12424063:: tchimira :: 19-FEB -2011 :: end
1119
1120 --SKPATHAK :: 02-MAY-2011 :: VWPE :: start
1121 PROCEDURE Warranty_Not_Applicable (
1122 p_api_version IN NUMBER,
1123 p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1124 p_commit IN VARCHAR2 := Fnd_Api.g_false,
1125 p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1126 p_task_tbl IN Task_Tbl_Type,
1127 x_return_status OUT NOCOPY VARCHAR2,
1128 x_msg_count OUT NOCOPY NUMBER,
1129 x_msg_data OUT NOCOPY VARCHAR2
1130 );
1131 --SKPATHAK :: 02-MAY-2011 :: VWPE :: end
1132
1133 --VWPE: ER:12424063 :: AJPRASAN :: 14-MAR-2011 :: START
1134 -------------------------------------------------------------------
1135 -- Procedure name : Add_Return_To_Supply
1136 -- Type : Private
1137 -- Function : To set RETURN_TO_SUPPLY flag to 'Y' for a task after validating.
1138 -- Parameters :
1139 --
1140 -- Standard IN Parameters :
1141 -- p_api_version IN NUMBER Required
1142 -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1143 -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1144 -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1145 -- Standard OUT Parameters :
1146 -- x_return_status OUT VARCHAR2 Required
1147 -- x_msg_count OUT NUMBER Required
1148 -- x_msg_data OUT VARCHAR2 Required
1149 -- Add_Return_To_Supply Parameters:
1150 -- p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type
1151 --
1152 -- Version :
1153 -- Initial Version 1.0
1154 -------------------------------------------------------------------
1155 PROCEDURE Add_Return_To_Supply (
1156 p_api_version IN NUMBER,
1157 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1158 p_commit IN VARCHAR2 := FND_API.G_FALSE,
1159 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1160 p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
1161 x_return_status OUT NOCOPY VARCHAR2,
1162 x_msg_count OUT NOCOPY NUMBER,
1163 x_msg_data OUT NOCOPY VARCHAR2
1164 );
1165
1166 -------------------------------------------------------------------
1167 -- Procedure name : Remove_Return_To_Supply
1168 -- Type : Private
1169 -- Function : To revoke RETURN_TO_SUPPLY flag for a task after validating.
1170 -- Parameters :
1171 --
1172 -- Standard IN Parameters :
1173 -- p_api_version IN NUMBER Required
1174 -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1175 -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1176 -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1177 -- Standard OUT Parameters :
1181 -- Remove_Return_To_Supply Parameters:
1178 -- x_return_status OUT VARCHAR2 Required
1179 -- x_msg_count OUT NUMBER Required
1180 -- x_msg_data OUT VARCHAR2 Required
1182 -- p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type
1183 --
1184 -- Version :
1185 -- Initial Version 1.0
1186 -------------------------------------------------------------------
1187 PROCEDURE Remove_Return_To_Supply (
1188 p_api_version IN NUMBER,
1189 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1190 p_commit IN VARCHAR2 := FND_API.G_FALSE,
1191 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1192 p_task_tbl_type IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
1193 x_return_status OUT NOCOPY VARCHAR2,
1194 x_msg_count OUT NOCOPY NUMBER,
1195 x_msg_data OUT NOCOPY VARCHAR2
1196 );
1197
1198 ------------------------------------------------------------------
1199 -- Procedure name : Validate_Return_To_Supply
1200 -- Type : Private
1201 -- Function : To Validate RETURN_TO_SUPPLY functionality for all tasks in a visit.
1202 -- Parameters :
1203 --
1204 -- Standard IN Parameters :
1205 -- p_api_version IN NUMBER Required
1206 -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1207 -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1208 -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1209 -- p_module_type IN VARCHAR2 Required
1210 -- Standard OUT Parameters :
1211 -- x_return_status OUT VARCHAR2 Required
1212 -- x_msg_count OUT NUMBER Required
1213 -- x_msg_data OUT VARCHAR2 Required
1214 -- Validate_Return_To_Supply Parameters:
1215 -- p_visit_id IN NUMBER Required
1216 --
1217 -- Version :
1218 -- Initial Version 1.0
1219 -------------------------------------------------------------------
1220 PROCEDURE Validate_Return_To_Supply (
1221 p_api_version IN NUMBER,
1222 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1223 p_commit IN VARCHAR2 := FND_API.G_FALSE,
1224 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1225 p_module_type IN VARCHAR2,
1226 p_visit_id IN NUMBER,
1227 p_tasks_tbl IN Task_Tbl_Type,
1228 x_return_status OUT NOCOPY VARCHAR2,
1229 x_msg_count OUT NOCOPY NUMBER,
1230 x_msg_data OUT NOCOPY VARCHAR2
1231 );
1232
1233 -------------------------------------------------------------------
1234 --VWPE: ER:12424063 :: AJPRASAN :: 14-MAR-2011 :: END
1235
1236 --VWPE :: AVIKUKUM :: 05-APR-2011 :: START
1237 -------------------------------------------------------------------
1238 -- Procedure name : Add_Return_To_Supply
1239 -- Type : Private
1240 -- Function : To set TASK_TYPE_CODE to 'DUPLICATE' for a task after validating.
1241 -- Parameters :
1242 --
1243 -- Standard IN Parameters :
1244 -- p_api_version IN NUMBER Required
1245 -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1246 -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1247 -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1248 -- p_module_type IN VARCHAR2 Default NULL
1249 -- Standard OUT Parameters :
1250 -- x_return_status OUT VARCHAR2 Required
1251 -- x_msg_count OUT NUMBER Required
1252 -- x_msg_data OUT VARCHAR2 Required
1253 -- Flag_Duplicate_Task Parameters:
1254 -- p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type Required
1255 --
1256 -- Version :
1257 -- Initial Version 1.0
1258 -------------------------------------------------------------------
1259 PROCEDURE Flag_Duplicate_Task
1260 (
1261 p_api_version IN NUMBER,
1262 p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1263 p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1264 p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1265 p_module_type IN VARCHAR2 := NULL,
1266 p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
1267 x_return_status OUT NOCOPY VARCHAR2,
1268 x_msg_count OUT NOCOPY NUMBER,
1269 x_msg_data OUT NOCOPY VARCHAR2 );
1270 -------------------------------------------------------------------
1271 -- Procedure name : Remove_Duplicate_Task_Flag
1272 -- Type : Private
1273 -- Function : To Change TASK_TYPE_CODE for a task from 'DUPLICATE' to other appropriate value after validating.
1274 -- Parameters :
1275 --
1276 -- Standard IN Parameters :
1277 -- p_api_version IN NUMBER Required
1278 -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1279 -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
1280 -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1281 -- p_module_type IN VARCHAR2 Default NULL
1282 -- Standard OUT Parameters :
1283 -- x_return_status OUT VARCHAR2 Required
1284 -- x_msg_count OUT NUMBER Required
1285 -- x_msg_data OUT VARCHAR2 Required
1286 -- Flag_Duplicate_Task Parameters:
1287 -- p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type Required
1288 --
1289 -- Version :
1290 -- Initial Version 1.0
1291 -------------------------------------------------------------------
1292 PROCEDURE Remove_Duplicate_Task_Flag
1293 (
1294 p_api_version IN NUMBER,
1295 p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
1296 p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
1297 p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
1298 p_module_type IN VARCHAR2 := NULL,
1299 p_task_rec_tbl IN AHL_VWP_RULES_PVT.Task_Tbl_Type,
1300 x_return_status OUT NOCOPY VARCHAR2,
1301 x_msg_count OUT NOCOPY NUMBER,
1302 x_msg_data OUT NOCOPY VARCHAR2 );
1303
1304 -- Added by tchimira on 14-Mar-2012 for the bug 13694807
1305 -------------------------------------------------------------------
1306 -- Procedure name : Cancel_Planning_tasks
1307 -- Type : Private
1308 -- Function : Procedure to cancel planning tasks corresponding to a given UE
1309 -- Parameters :
1310 --
1311 -- Standard IN Parameters :
1312 -- p_api_version IN NUMBER Required
1313 -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
1314 -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
1315 --
1316 -- Standard OUT Parameters :
1317 -- x_return_status OUT VARCHAR2 Required
1318 -- x_msg_count OUT NUMBER Required
1319 -- x_msg_data OUT VARCHAR2 Required
1320 --
1321 -- Cancel_Planning_tasks Parameters:
1322 -- p_ue_id IN NUMBER Required
1323 --------------------------------------------------------------------------------------------------------------------
1324 PROCEDURE Cancel_Planning_tasks (
1325 p_api_version IN NUMBER,
1326 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1327 p_commit IN VARCHAR2 := FND_API.G_FALSE,
1328 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1329 p_ue_id IN NUMBER,
1330 x_return_status OUT NOCOPY VARCHAR2,
1331 x_msg_count OUT NOCOPY NUMBER,
1332 x_msg_data OUT NOCOPY VARCHAR2);
1333
1334
1335 END AHL_VWP_RULES_PVT;