[Home] [Help]
PACKAGE BODY: APPS.OE_SERVICES_PROCESS
Source
1 PACKAGE BODY OE_SERVICES_PROCESS AS
2 /* $Header: OEXSERVB.pls 115.0 99/07/16 08:15:48 porting ship $ vmulky */
3 OE_SUCCESS CONSTANT VARCHAR2(1) := 'Y';
4 OE_FAILURE CONSTANT VARCHAR2(1) := 'N';
5
6
7 Procedure Get_Item_Information
8 ( Services_Component_Code IN OUT VARCHAR2
9 , Services_Item_Type_Code IN OUT VARCHAR2
10 , Services_Item_Description IN OUT VARCHAR2
11 , Organization_Id IN NUMBER
12 , Services_Inventory_Item_Id IN NUMBER
13 , Parameter_result IN OUT VARCHAR2
14 )
15 is
16 CURSOR item_info ( X_org_id NUMBER,
17 X_Services_Inventory_Item_Id NUMBER) is
18 SELECT DECODE(msi.service_item_flag,'Y', 'SERVICE', 'UNKNOWN' )
19 , TO_CHAR( SERVICES_INVENTORY_ITEM_ID )
20 , DESCRIPTION
21 FROM MTL_SYSTEM_ITEMS msi
22 WHERE msi.ORGANIZATION_ID = X_ORG_ID
23 AND msi.INVENTORY_ITEM_ID = X_SERVICES_INVENTORY_ITEM_ID;
24
25 begin
26
27 OPEN item_info(Organization_Id,Services_Inventory_Item_Id) ;
28 FETCH item_info
29 INTO
30 SERVICES_ITEM_TYPE_CODE
31 , SERVICES_COMPONENT_CODE
32 , SERVICES_ITEM_DESCRIPTION;
33 CLOSE item_info;
34
35 /*SELECT TO_CHAR( SERVICES_INVENTORY_ITEM_ID )
36 , DESCRIPTION
37 INTO SERVICES_COMPONENT_CODE
38 , SERVICES_ITEM_DESCRIPTION
39 FROM MTL_SYSTEM_ITEMS
40 WHERE ORGANIZATION_ID = ORGANIZATION_ID
41 AND INVENTORY_ITEM_ID = SERVICES_INVENTORY_ITEM_ID;*/
42
43 Parameter_Result:=OE_SUCCESS;
44
45 exception
46
47 when no_data_found then
48 null;
49 when others then
50 Parameter_Result:=OE_FAILURE;
51 OE_MSG.Internal_Exception(Routine=>
52 'OE_SERV.Get_Item_Information',
53 Operation=>'',
54 Object=>'SERVICE',
55 Message=>' When Others');
56
57
58
59
60 end Get_Item_Information;
61
62
63
64 Procedure Get_Service_Detail_Controls
65 ( Order_enforce_line_prices_flag IN VARCHAR2
66 , Services_adjustable_flag OUT VARCHAR2
67 , Services_apply_order_adjs_flag OUT VARCHAR2
68 , Services_creditable_flag OUT VARCHAR2
69 , Apply_order_adjs_to_service IN VARCHAR2
70 , Parameter_result IN OUT VARCHAR2
71 )
72 is
73 begin
74
75 if ( order_enforce_line_prices_flag = 'Y' ) then
76 Services_Adjustable_Flag := 'N';
77 else
78 Services_Adjustable_Flag := 'Y';
79 end if;
80
81 Services_apply_order_adjs_flag := Apply_order_adjs_to_service;
82 Services_creditable_flag := 'Y';
83
84 exception
85
86 when no_data_found then
87
88 null;
89
90 when others then
91 Parameter_Result:=OE_FAILURE;
92 OE_MSG.Internal_Exception(Routine=>
93 'OE_SERV.Get_Service_Detail_Controls',
94 Operation=>'',
95 Object=>'SERVICE',
96 Message=>' When Others');
97
98 end Get_Service_Detail_Controls;
99
100 --
101 -- NAME
102 -- Next_Line_Number
103 --
104 -- PURPOSE
105 -- Selects the next order services line number sequence for the order.
106 --
107
108 FUNCTION Next_Order_Line_Number(X_Service_Parent_Line_Id NUMBER) Return NUMBER IS
109 Line_Num NUMBER;
110 CURSOR C_Next_Line_Number(X_Service_Parent_Line_Id NUMBER) IS
111 SELECT Nvl(Max(line_number), 0) + 1
112 FROM so_lines
113 WHERE service_parent_line_id = X_Service_Parent_Line_Id ;
114 begin
115 OPEN C_Next_Line_Number(X_Service_Parent_Line_Id);
116 FETCH C_Next_Line_Number INTO Line_Num;
117 CLOSE C_Next_Line_Number;
118 return(Line_Num);
119 exception
120 When OTHERS then
121 OE_MSG.Internal_Exception('OE_SERV.Next_Line_Number',
122 'Fetch Next Line Number', 'LINE');
123 end Next_Order_Line_Number;
124
125 end OE_SERVICES_PROCESS;