[Home] [Help]
PACKAGE: APPS.AHL_PRD_DF_PVT
Source
1 PACKAGE AHL_PRD_DF_PVT AUTHID CURRENT_USER AS
2 /* $Header: AHLVPDFS.pls 120.2 2005/12/20 06:00:05 sracha noship $ */
3
4 -- Operation on a deferral record than this API can handle
5 G_OP_CREATE CONSTANT VARCHAR2(1) := 'C';
6 G_OP_UPDATE CONSTANT VARCHAR2(1) := 'U';
7 G_OP_DELETE CONSTANT VARCHAR2(1) := 'D';
8 G_OP_SUBMIT CONSTANT VARCHAR2(1) := 'S';
9 -- Yes/no flags
10 G_YES_FLAG CONSTANT VARCHAR2(1) := 'Y';
11 G_NO_FLAG CONSTANT VARCHAR2(1) := 'N';
12 -- Other constants
13 G_REASON_CODE_DELIM CONSTANT VARCHAR2(1) := ':';
14 G_DEFERRAL_TYPE_MR CONSTANT VARCHAR2(2) := 'MR';
15 G_DEFERRAL_TYPE_SR CONSTANT VARCHAR2(2) := 'SR';
16 G_DEFER_BY CONSTANT VARCHAR2(30):= 'DEFER_BY';
17 G_DEFER_TO CONSTANT VARCHAR2(30):= 'DEFER_TO';
18
19 G_WORKFLOW_OBJECT_KEY CONSTANT VARCHAR2(30) := 'PRDWF';
20 ---------------------------------------------------------------------
21 -- Define Record Types for record structures needed by the APIs --
22 ---------------------------------------------------------------------
23 TYPE df_header_rec_type IS RECORD (
24 UNIT_DEFERRAL_ID NUMBER,
25 OBJECT_VERSION_NUMBER NUMBER,
26 CREATED_BY NUMBER,
27 CREATION_DATE DATE,
28 LAST_UPDATED_BY NUMBER,
29 LAST_UPDATE_DATE DATE,
30 LAST_UPDATE_LOGIN NUMBER,
31 UNIT_EFFECTIVITY_ID NUMBER,
32 UNIT_DEFERRAL_TYPE VARCHAR2(30),
33 APPROVAL_STATUS_CODE VARCHAR2(30),
34 DEFER_REASON_CODE VARCHAR2(240),
35 REMARKS VARCHAR2(4000),
36 APPROVER_NOTES VARCHAR2(4000),
37 SKIP_MR_FLAG VARCHAR2(1),
38 AFFECT_DUE_CALC_FLAG VARCHAR2(1),
39 SET_DUE_DATE DATE,
40 DEFERRAL_EFFECTIVE_ON DATE,
41 DEFERRAL_TYPE VARCHAR2(2),
42 MR_REPETITIVE_FLAG VARCHAR2(1),
43 MANUALLY_PLANNED_FLAG VARCHAR2(1),
44 RESET_COUNTER_FLAG VARCHAR2(1),
45 OPERATION_FLAG VARCHAR2(1),
46 ATTRIBUTE_CATEGORY VARCHAR2(30),
47 ATTRIBUTE1 VARCHAR2(150),
48 ATTRIBUTE2 VARCHAR2(150),
49 ATTRIBUTE3 VARCHAR2(150),
50 ATTRIBUTE4 VARCHAR2(150),
51 ATTRIBUTE5 VARCHAR2(150),
52 ATTRIBUTE6 VARCHAR2(150),
53 ATTRIBUTE7 VARCHAR2(150),
54 ATTRIBUTE8 VARCHAR2(150),
55 ATTRIBUTE9 VARCHAR2(150),
56 ATTRIBUTE10 VARCHAR2(150),
57 ATTRIBUTE11 VARCHAR2(150),
58 ATTRIBUTE12 VARCHAR2(150),
59 ATTRIBUTE13 VARCHAR2(150),
60 ATTRIBUTE14 VARCHAR2(150),
61 ATTRIBUTE15 VARCHAR2(150),
62 USER_DEFERRAL_TYPE_CODE VARCHAR2(30)
63 );
64
65 TYPE df_header_info_rec_type IS RECORD (
66 UNIT_DEFERRAL_ID NUMBER,
67 OBJECT_VERSION_NUMBER NUMBER,
68 UNIT_EFFECTIVITY_ID NUMBER,
69 APPROVAL_STATUS_CODE VARCHAR2(30),
70 APPROVAL_STATUS_MEANING VARCHAR2(80),
71 DEFER_REASON_CODE VARCHAR2(240),
72 REMARKS VARCHAR2(4000),
73 APPROVER_NOTES VARCHAR2(4000),
74 SKIP_MR_FLAG VARCHAR2(1),
75 AFFECT_DUE_CALC_FLAG VARCHAR2(1),
76 SET_DUE_DATE DATE,
77 DEFERRAL_EFFECTIVE_ON DATE,
78 DEFERRAL_TYPE VARCHAR2(2),
79 MR_HEADER_ID NUMBER,
80 MR_TITLE VARCHAR2(80),
81 MR_DESCRIPTION VARCHAR2(2000),
82 INCIDENT_ID NUMBER,
83 INCIDENT_NUMBER VARCHAR2(64),
84 SUMMARY VARCHAR2(240),
85 DUE_DATE DATE,
86 UE_STATUS_CODE VARCHAR2(30),
87 UE_STATUS_MEANING VARCHAR2(80),
88 VISIT_ID NUMBER,
89 VISIT_NUMBER number(15),
90 MR_REPETITIVE_FLAG VARCHAR2(1),
91 RESET_COUNTER_FLAG VARCHAR2(1),
92 MANUALLY_PLANNED_FLAG VARCHAR2(1),
93 USER_DEFERRAL_TYPE_CODE VARCHAR2(30),
94 USER_DEFERRAL_TYPE_MEAN VARCHAR2(80)
95 );
96
97 TYPE df_schedules_rec_type IS RECORD (
98 UNIT_THRESHOLD_ID NUMBER,
99 OBJECT_VERSION_NUMBER NUMBER,
100 CREATED_BY NUMBER,
101 CREATION_DATE DATE,
102 LAST_UPDATED_BY NUMBER,
103 LAST_UPDATE_DATE DATE,
104 LAST_UPDATE_LOGIN NUMBER,
105 UNIT_DEFERRAL_ID NUMBER,
106 COUNTER_ID NUMBER,
107 COUNTER_NAME VARCHAR2(30),
108 COUNTER_VALUE NUMBER,
109 CTR_VALUE_TYPE_CODE VARCHAR2(30),
110 UNIT_OF_MEASURE VARCHAR2(25),
111 OPERATION_FLAG VARCHAR2(1),
112 ATTRIBUTE_CATEGORY VARCHAR2(30),
113 ATTRIBUTE1 VARCHAR2(150),
114 ATTRIBUTE2 VARCHAR2(150),
115 ATTRIBUTE3 VARCHAR2(150),
116 ATTRIBUTE4 VARCHAR2(150),
117 ATTRIBUTE5 VARCHAR2(150),
118 ATTRIBUTE6 VARCHAR2(150),
119 ATTRIBUTE7 VARCHAR2(150),
120 ATTRIBUTE8 VARCHAR2(150),
121 ATTRIBUTE9 VARCHAR2(150),
122 ATTRIBUTE10 VARCHAR2(150),
123 ATTRIBUTE11 VARCHAR2(150),
124 ATTRIBUTE12 VARCHAR2(150),
125 ATTRIBUTE13 VARCHAR2(150),
126 ATTRIBUTE14 VARCHAR2(150),
127 ATTRIBUTE15 VARCHAR2(150)
128 );
129
130
131 ----------------------------------------------
132 -- Define Table Type for records structures --
133 ----------------------------------------------
134 TYPE df_schedules_tbl_type IS TABLE OF df_schedules_rec_type INDEX BY BINARY_INTEGER;
135
136
137 -- ------------------------------------------------------------------------------------------------
138 -- Procedure name : process_deferral
139 -- Type : private
140 -- Function :
141 -- Pre-reqs :
142 -- Parameters :
143 --
144 -- Standard IN Parameters :
145 -- p_api_version IN NUMBER Default 1.0
146 -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
147 -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
148 -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
149 -- Standard OUT Parameters :
150 -- x_return_status OUT VARCHAR2 Required
151 -- x_msg_count OUT NUMBER Required
152 -- x_msg_data OUT VARCHAR2 Required
153 --
154 -- p_module_type IN VARCHAR2 Required.
155 --
156 -- This parameter indicates the front-end form interface. The default value is 'JSP'. If the value
157 -- is JSP, then this API clears out all id columns and validations are done using the values based
158 -- on which the Id's are populated.
159 --
160 -- process_deferral Parameters:
161 --
162 -- Version :
163 -- Initial Version 1.0
164 --
165 -- End of Comments.
166
167 PROCEDURE process_deferral(
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 p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
174 p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
175 x_return_status OUT NOCOPY VARCHAR2,
176 x_msg_count OUT NOCOPY NUMBER,
177 x_msg_data OUT NOCOPY VARCHAR2);
178
179
180 -------------------------------------------------------------------------
181 -- Procedure to get deferral details attached to any uinit effectivity --
182 --------------------------------------------------------------------------
183 PROCEDURE get_deferral_details (
184
185 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
186 p_unit_effectivity_id IN NUMBER,
187 x_df_header_info_rec OUT NOCOPY AHL_PRD_DF_PVT.df_header_info_rec_type,
188 x_df_schedules_tbl OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
189 x_return_status OUT NOCOPY VARCHAR2,
190 x_msg_count OUT NOCOPY NUMBER,
191 x_msg_data OUT NOCOPY VARCHAR2);
192 -------------------------------------------------------------------------
193 -- Procedure to take action once deferral is approved. --
194 --------------------------------------------------------------------------
195 PROCEDURE process_approval_approved (
196
197 p_unit_deferral_id IN NUMBER,
198 p_object_version_number IN NUMBER,
199 p_new_status IN VARCHAR2,
200 x_return_status OUT NOCOPY VARCHAR2
201
202 );
203 -------------------------------------------------------------------------
204 -- Procedure to take action once deferral is rejected --
205 --------------------------------------------------------------------------
206 PROCEDURE process_approval_rejected (
207
208 p_unit_deferral_id IN NUMBER,
209 p_object_version_number IN NUMBER,
210 p_new_status IN VARCHAR2,
211 x_return_status OUT NOCOPY VARCHAR2
212 );
213
214 -------------------------------------------------------------------------
215 -- Procedure to initiate deferral --
216 --------------------------------------------------------------------------
217 PROCEDURE process_approval_initiated (
218 p_unit_deferral_id IN NUMBER,
219 p_object_version_number IN NUMBER,
220 p_new_status IN VARCHAR2,
221 x_return_status OUT NOCOPY VARCHAR2);
222
223 ---------------------------------------------------------------------------
224 --- Clean up data after exception deleting
225 ---------------------------------------------------------------------------
226 FUNCTION process_deferred_exceptions(p_unit_effectivity_id IN NUMBER) RETURN BOOLEAN;
227 ---------------------------------------------------------------------------
228
229 END AHL_PRD_DF_PVT; -- Package spec