1 PACKAGE CSD_WARRANTY_CONTRACT_PVT AUTHID CURRENT_USER as
2 /* $Header: csdvawcs.pls 120.4 2011/08/18 23:48:27 swai noship $ */
3 -- Start of Comments
4 -- Package name : CSD_WARRANTY_CONTRACT_PVT
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10 -- Default number of records fetch per call
11 G_DEFAULT_NUM_REC_FETCH NUMBER := 30;
12 -- *******************************************************
13 -- Start of Comments
14 -- -------------------------------------------------------
15 -- Record name:WARRANTY_Rec_Type
16 -- -------------------------------------------------------
17 -- Parameters:
18 -- WARRANTY_CONTRACT_XREF_ID
19 -- OBJECT_VERSION_NUMBER
20 -- CREATED_BY
21 -- CREATION_DATE
22 -- LAST_UPDATED_BY
23 -- LAST_UPDATE_DATE
24 -- LAST_UPDATE_LOGIN
25 -- SOURCE_TABLE
26 -- SOURCE_COLUMN
27 -- SOURCE_ID
28 -- WARRANTY_CONTRACT_ID
29 -- ATTRIBUTE_CATEGORY
30 -- ATTRIBUTE1
31 -- ATTRIBUTE2
32 -- ATTRIBUTE3
33 -- ATTRIBUTE4
34 -- ATTRIBUTE5
35 -- ATTRIBUTE6
36 -- ATTRIBUTE7
37 -- ATTRIBUTE8
38 -- ATTRIBUTE9
39 -- ATTRIBUTE10
40 -- ATTRIBUTE11
41 -- ATTRIBUTE12
42 -- ATTRIBUTE13
43 -- ATTRIBUTE14
44 -- ATTRIBUTE15
45 -- REPAIR_LINE_ID
46 -- INSTANCE_ID --yvchen
47 --
48 -- Required:
49 -- Defaults:
50 -- Note: This is automatic generated record definition, it includes all columns
51 -- defined in the table, developer must manually add or delete some of the attributes.
52 --
53 -- End of Comments
54
55 TYPE WARRANTY_Rec_Type IS RECORD
56 (
57 WARRANTY_CONTRACT_XREF_ID NUMBER := FND_API.G_MISS_NUM
58 , OBJECT_VERSION_NUMBER NUMBER := FND_API.G_MISS_NUM
59 , CREATED_BY NUMBER := FND_API.G_MISS_NUM
60 , CREATION_DATE DATE := FND_API.G_MISS_DATE
61 , LAST_UPDATED_BY NUMBER := FND_API.G_MISS_NUM
62 , LAST_UPDATE_DATE DATE := FND_API.G_MISS_DATE
63 , LAST_UPDATE_LOGIN NUMBER := FND_API.G_MISS_NUM
64 , SOURCE_TABLE VARCHAR2(30) := FND_API.G_MISS_CHAR
65 , SOURCE_COLUMN VARCHAR2(30) := FND_API.G_MISS_CHAR
66 , SOURCE_ID NUMBER := FND_API.G_MISS_NUM
67 , WARRANTY_CONTRACT_ID NUMBER := FND_API.G_MISS_NUM
68 , ATTRIBUTE_CATEGORY VARCHAR2(30) := FND_API.G_MISS_CHAR
69 , ATTRIBUTE1 VARCHAR2(150) := FND_API.G_MISS_CHAR
70 , ATTRIBUTE2 VARCHAR2(150) := FND_API.G_MISS_CHAR
71 , ATTRIBUTE3 VARCHAR2(150) := FND_API.G_MISS_CHAR
72 , ATTRIBUTE4 VARCHAR2(150) := FND_API.G_MISS_CHAR
73 , ATTRIBUTE5 VARCHAR2(150) := FND_API.G_MISS_CHAR
74 , ATTRIBUTE6 VARCHAR2(150) := FND_API.G_MISS_CHAR
75 , ATTRIBUTE7 VARCHAR2(150) := FND_API.G_MISS_CHAR
76 , ATTRIBUTE8 VARCHAR2(150) := FND_API.G_MISS_CHAR
77 , ATTRIBUTE9 VARCHAR2(150) := FND_API.G_MISS_CHAR
78 , ATTRIBUTE10 VARCHAR2(150) := FND_API.G_MISS_CHAR
79 , ATTRIBUTE11 VARCHAR2(150) := FND_API.G_MISS_CHAR
80 , ATTRIBUTE12 VARCHAR2(150) := FND_API.G_MISS_CHAR
81 , ATTRIBUTE13 VARCHAR2(150) := FND_API.G_MISS_CHAR
82 , ATTRIBUTE14 VARCHAR2(150) := FND_API.G_MISS_CHAR
83 , ATTRIBUTE15 VARCHAR2(150) := FND_API.G_MISS_CHAR
84 , REPAIR_LINE_ID NUMBER := FND_API.G_MISS_NUM
85 , INSTANCE_ID NUMBER := FND_API.G_MISS_NUM --yvchen
86 );
87
88 G_MISS_WARRANTY_REC WARRANTY_Rec_Type;
89 TYPE WARRANTY_Tbl_Type IS TABLE OF WARRANTY_Rec_Type
90 INDEX BY BINARY_INTEGER;
91 G_MISS_WARRANTY_TBL WARRANTY_Tbl_Type;
92
93 -- *******************************************************
94 -- Start of Comments
95 -- *******************************************************
96 -- API Name: Create_warranty_contract
97 -- Type : Private
98 -- Pre-Req :
99 -- Parameters:
100 -- IN
101 -- p_api_version_number IN NUMBER Required
102 -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
103 -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
104 -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
105 -- p_check_access_flag IN VARCHAR2 Optional Default = FND_API.G_FALSE
106 -- p_admin_flag IN VARCHAR2 Optional Default = FND_API.G_FALSE
107 -- p_admin_group_id IN NUMBER Required
108 -- P_WARRANTY_Rec IN WARRANTY_Rec_Type Required
109 -- p_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE Required
110 --
111 -- OUT:
112 -- x_return_status OUT NOCOPY VARCHAR2
113 -- x_msg_count OUT NOCOPY NUMBER
114 -- x_msg_data OUT NOCOPY VARCHAR2
115 -- Version : Current version 2.0
116 -- Note: This automatic generated procedure definition, it includes standard IN/OUT parameters
117 -- and basic operation, developer must manually add parameters and business logic as necessary.
118 --
119 -- End of Comments
120 --
121 PROCEDURE Create_warranty_contract(
122 P_Api_Version_Number IN NUMBER,
123 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
124 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
125 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
126 P_WARRANTY_Rec IN WARRANTY_Rec_Type := G_MISS_WARRANTY_REC,
127 --Hint: Add detail tables as parameter lists if it's master-detail relationship.
128 X_WARRANTY_CONTRACT_XREF_ID OUT NOCOPY NUMBER,
129 X_Return_Status OUT NOCOPY VARCHAR2,
130 X_Msg_Count OUT NOCOPY NUMBER,
131 X_Msg_Data OUT NOCOPY VARCHAR2
132 );
133
134 PROCEDURE Default_Warranty_Contract(
135 P_Api_Version_Number IN NUMBER,
136 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
137 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
138 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
139 P_Repair_Line_Id IN NUMBER,
140 P_Wip_Entity_Id IN NUMBER,
141 P_Instance_Id IN NUMBER DEFAULT NULL, --yvchen
142 P_Is_Parent IN VARCHAR2 := FND_API.G_TRUE, --yvchen
143 X_Return_Status OUT NOCOPY VARCHAR2,
144 X_Msg_Count OUT NOCOPY NUMBER,
145 X_Msg_Data OUT NOCOPY VARCHAR2
146 );
147
148 /*----------------------------------------------------------------*/
149 /* function name: Get_Default_Warranty_Claim_Amt */
150 /* description : function used to get the default claim */
151 /* amount for a claim line. logic is as */
152 /* follows: */
153 /* (1) If the inventory item being claimed is the */
154 /* same as the item on the job, then return the */
155 /* total material and resource cost for all */
156 /* items/resources transacted to the job */
157 /* (excluding for the cost of the job item) */
158 /* (2) If the inventory item being claimed */
159 /* is NOT the repair job item, and the item */
160 /* has been transacted to the job, then get */
161 /* the item cost only. If the item has not been */
162 /* transacted, then return null. */
163 /* NOTE: Default claim amount is based on */
164 /* item and resource transactions and costs */
165 /* It is NOT based on a specific warraty */
166 /* contract, hance warranty contrct is not passed */
167 /* in. */
168 /* Called from : OA framework Supplier Warranty Claims */
169 /* Input Parm : */
170 /* p_wip_entity_id NUMBER WIP Job ID */
171 /* p_wip_primary_item_id NUMBER Inv Item Id of the WIP job */
172 /* p_inventory_item_id NUMBER Inv Item Id for claim line */
173 /* */
174 /* Output: */
175 /* NUMBER Cost to default for the warranty claim line */
176 /* Returns null if no cost or cost=0 */
177 /* Change Hist : */
178 /*----------------------------------------------------------------*/
179 FUNCTION Get_Default_Warranty_Claim_Amt (
180 p_wip_entity_id IN NUMBER,
181 p_wip_primary_item_id IN NUMBER,
182 p_inventory_item_id IN NUMBER) RETURN NUMBER;
183
184
185 End CSD_WARRANTY_CONTRACT_PVT;