eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.XNP_DOCUMENTS

Source


1 PACKAGE BODY XNP_DOCUMENTS AS
2 /* $Header: XNPDOCUB.pls 120.2 2006/02/13 07:45:01 dputhiye ship $ */
3 
4 
5  ------------------------------------------------------------------
6  -- Porting Approval request for a TN range
7  ------------------------------------------------------------------
8 PROCEDURE PORTING_APPROVAL
9  (DOCUMENT_ID  IN VARCHAR2
10  ,DISPLAY_TYPE IN VARCHAR2
11  ,DOCUMENT     IN OUT NOCOPY VARCHAR2
12  ,DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2
13  )
14 IS
15  l_STARTING_NUMBER VARCHAR2(40);
16  l_ENDING_NUMBER VARCHAR2(40);
17  l_PORTING_TIME VARCHAR2(40);
18  l_WORKITEM_INSTANCE_ID NUMBER := 0;
19 BEGIN
20  -- Get the workitem instance id from the DOCUMENT_ID
21  -- and convert to a number
22  l_WORKITEM_INSTANCE_ID := to_number(DOCUMENT_ID);
23 
24  -- Get the starting and ending number from WI parameters
25   l_starting_number :=
26    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
27    (l_WORKITEM_INSTANCE_ID
28    ,'STARTING_NUMBER'
29    );
30 
31   l_ending_number :=
32    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
33    (l_WORKITEM_INSTANCE_ID
34    ,'ENDING_NUMBER'
35    );
36 
37   l_PORTING_TIME :=
38    XNP_STANDARD.GET_WORKITEM_PARAM_VALUE
39    (l_WORKITEM_INSTANCE_ID
40    ,'PORTING_TIME'
41    );
42 
43 
44   IF l_PORTING_TIME IS NULL THEN
45   l_PORTING_TIME :=
46    XNP_STANDARD.GET_WORKITEM_PARAM_VALUE
47    (l_WORKITEM_INSTANCE_ID
48    ,'NEW_SP_DUE_DATE'
49    );
50   END IF;
51 
52 
53   DOCUMENT := NULL;
54   fnd_message.set_name('XNP','PORTING_APPROVAL');
55   fnd_message.set_token('STARTING_NUMBER',l_starting_number);
56   fnd_message.set_token('ENDING_NUMBER',l_ending_number);
57   fnd_message.set_token('PORTING_TIME',l_PORTING_TIME);
58 
59   IF (DISPLAY_TYPE = 'text/html') THEN
60    DOCUMENT := DOCUMENT || htf.bodyOpen;
61    DOCUMENT := DOCUMENT || fnd_message.get;
62    DOCUMENT := DOCUMENT || htf.bodyClose;
63 
64    DOCUMENT_TYPE := 'text/html';
65    return;
66   END IF;
67 
68   IF (DISPLAY_TYPE = 'text/plain') THEN
69 
70     DOCUMENT := DOCUMENT || fnd_message.get;
71     DOCUMENT_TYPE := 'text/plain';
72     return;
73   END IF;
74 
75   EXCEPTION
76    WHEN OTHERS THEN
77      XNP_TRACE.LOG
78       (1
79       ,'XNP_DOCUMENTS.PORTING_APPROVAL_DOCUMENT'
80       ,'FAILED TO PREPARE DOCUMENT: WI INSTANCE ID:'||l_WORKITEM_INSTANCE_ID
81        ||'Error:'||to_char(SQLCODE)||':'||SQLERRM
82       );
83 
84 END PORTING_APPROVAL;
85 
86 PROCEDURE PORTING_INQUIRY_RESPONSE
87  (DOCUMENT_ID  IN VARCHAR2
88  ,DISPLAY_TYPE IN VARCHAR2
89  ,DOCUMENT     IN OUT NOCOPY VARCHAR2
90  ,DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2
91  )
92 IS
93  l_STARTING_NUMBER VARCHAR2(40);
94  l_ENDING_NUMBER VARCHAR2(40);
95  l_ORDER_RESULT VARCHAR2(40);
96  l_WORKITEM_INSTANCE_ID NUMBER := 0;
97 BEGIN
98  -- Get the workitem instance id from the DOCUMENT_ID
99  -- and convert to a number
100  l_WORKITEM_INSTANCE_ID := to_number(DOCUMENT_ID);
101 
102  -- Get the starting and ending number from WI parameters
103   l_starting_number :=
104    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
105    (l_WORKITEM_INSTANCE_ID
106    ,'STARTING_NUMBER'
107    );
108 
109   l_ending_number :=
110    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
111    (l_WORKITEM_INSTANCE_ID
112    ,'ENDING_NUMBER'
113    );
114 
115   l_ORDER_RESULT :=
116    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
117    (l_WORKITEM_INSTANCE_ID
118    ,'ORDER_RESULT'
119    );
120 
121   DOCUMENT := NULL;
122   fnd_message.set_name('XNP','PORTING_INQUIRY_RESPONSE');
123   fnd_message.set_token('STARTING_NUMBER',l_starting_number);
124   fnd_message.set_token('ENDING_NUMBER',l_ending_number);
125   fnd_message.set_token('RESPONSE',l_ORDER_RESULT);
126 
127   IF (DISPLAY_TYPE = 'text/html') THEN
128    DOCUMENT := DOCUMENT || htf.bodyOpen;
129    DOCUMENT := DOCUMENT || fnd_message.get;
130    DOCUMENT := DOCUMENT || htf.bodyClose;
131 
132    DOCUMENT_TYPE := 'text/html';
133    return;
134   END IF;
135 
136   IF (DISPLAY_TYPE = 'text/plain') THEN
137     DOCUMENT := DOCUMENT || fnd_message.get;
138 
139     DOCUMENT_TYPE := 'text/plain';
140     return;
141   END IF;
142 
143   EXCEPTION
144    WHEN OTHERS THEN
145      XNP_TRACE.LOG
146       (1
147       ,'XNP_DOCUMENTS.PORTING_INQUIRY_RESPONSE'
148       ,'FAILED TO PREPARE DOCUMENT: WI INSTANCE ID:'||l_WORKITEM_INSTANCE_ID
149        ||'Error:'||to_char(SQLCODE)||':'||SQLERRM
150       );
151 
152 END PORTING_INQUIRY_RESPONSE;
153 
154 
155 PROCEDURE PORTING_NOTIFICATION_REJECTION
156  (DOCUMENT_ID  IN VARCHAR2
157  ,DISPLAY_TYPE IN VARCHAR2
158  ,DOCUMENT     IN OUT NOCOPY VARCHAR2
159  ,DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2
160  )
161 IS
162  l_STARTING_NUMBER VARCHAR2(40);
163  l_ENDING_NUMBER VARCHAR2(40);
164  l_ORDER_REJECT_EXPLN VARCHAR2(40);
165  l_WORKITEM_INSTANCE_ID NUMBER := 0;
166 BEGIN
167  -- Get the workitem instance id from the DOCUMENT_ID
168  -- and convert to a number
169  l_WORKITEM_INSTANCE_ID := to_number(DOCUMENT_ID);
170 
171  -- Get the starting and ending number from WI parameters
172   l_starting_number :=
173    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
174    (l_WORKITEM_INSTANCE_ID
175    ,'STARTING_NUMBER'
176    );
177 
178   l_ending_number :=
179    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
180    (l_WORKITEM_INSTANCE_ID
181    ,'ENDING_NUMBER'
182    );
183 
184   l_ORDER_REJECT_EXPLN :=
185    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
186    (l_WORKITEM_INSTANCE_ID
187    ,'ORDER_REJECT_EXPLN'
188    );
189 
190 
191   DOCUMENT := NULL;
192   fnd_message.set_name('XNP','PORTING_NOTIFICATION_REJECTION');
193   fnd_message.set_token('STARTING_NUMBER',l_starting_number);
194   fnd_message.set_token('ENDING_NUMBER',l_ending_number);
195   fnd_message.set_token('ORDER_REJECT_EXPLN',l_ORDER_REJECT_EXPLN);
196 
197   IF (DISPLAY_TYPE = 'text/html') THEN
198    DOCUMENT := DOCUMENT || htf.bodyOpen;
199    DOCUMENT := DOCUMENT || fnd_message.get;
200    DOCUMENT := DOCUMENT || htf.bodyClose;
201    DOCUMENT_TYPE := 'text/html';
202    return;
203   END IF;
204 
205   IF (DISPLAY_TYPE = 'text/plain') THEN
206    DOCUMENT := DOCUMENT || fnd_message.get;
207 
208     DOCUMENT_TYPE := 'text/plain';
209     return;
210   END IF;
211 
212   EXCEPTION
213    WHEN OTHERS THEN
214      XNP_TRACE.LOG
215       (1
216       ,'XNP_DOCUMENTS.PORTING_NOTIFICATION_REJECTION'
217       ,'FAILED TO PREPARE DOCUMENT: WI INSTANCE ID:'||l_WORKITEM_INSTANCE_ID
218        ||'Error:'||to_char(SQLCODE)||':'||SQLERRM
219       );
220 
221 END PORTING_NOTIFICATION_REJECTION;
222 
223 PROCEDURE PORTING_NOTIFICATION_REMINDER
224  (DOCUMENT_ID  IN VARCHAR2
225  ,DISPLAY_TYPE IN VARCHAR2
226  ,DOCUMENT     IN OUT NOCOPY VARCHAR2
227  ,DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2
228  )
229 IS
230  l_STARTING_NUMBER VARCHAR2(40);
231  l_ENDING_NUMBER VARCHAR2(40);
232  l_ORDER_RESULT VARCHAR2(40);
233  l_WORKITEM_INSTANCE_ID NUMBER := 0;
234 BEGIN
235  -- Get the workitem instance id from the DOCUMENT_ID
236  -- and convert to a number
237  l_WORKITEM_INSTANCE_ID := to_number(DOCUMENT_ID);
238 
239  -- Get the starting and ending number from WI parameters
240   l_starting_number :=
241    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
242    (l_WORKITEM_INSTANCE_ID
243    ,'STARTING_NUMBER'
244    );
245 
246   l_ending_number :=
247    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
248    (l_WORKITEM_INSTANCE_ID
249    ,'ENDING_NUMBER'
250    );
251 
252   DOCUMENT := NULL;
253   fnd_message.set_name('XNP','PORTING_NOTIFICATION_REMINDER');
254   fnd_message.set_token('STARTING_NUMBER',l_starting_number);
255   fnd_message.set_token('ENDING_NUMBER',l_ending_number);
256 
257   IF (DISPLAY_TYPE = 'text/html') THEN
258    DOCUMENT := DOCUMENT || htf.bodyOpen;
259    DOCUMENT := DOCUMENT || fnd_message.get;
260    DOCUMENT := DOCUMENT || htf.bodyClose;
261    DOCUMENT_TYPE := 'text/html';
262    return;
263   END IF;
264 
265   IF (DISPLAY_TYPE = 'text/plain') THEN
266     DOCUMENT := DOCUMENT || fnd_message.get;
267 
268     DOCUMENT_TYPE := 'text/plain';
269     return;
270   END IF;
271 
272   EXCEPTION
273    WHEN OTHERS THEN
274      XNP_TRACE.LOG
275       (1
276       ,'XNP_DOCUMENTS.PORTING_NOTIFICATION_REMINDER'
277       ,'FAILED TO PREPARE DOCUMENT: WI INSTANCE ID:'||l_WORKITEM_INSTANCE_ID
278        ||'Error:'||to_char(SQLCODE)||':'||SQLERRM
279       );
280 
281 END PORTING_NOTIFICATION_REMINDER;
282 
283 PROCEDURE PORTING_REFERENCE_DATA
284  (DOCUMENT_ID  IN VARCHAR2
285  ,DISPLAY_TYPE IN VARCHAR2
286  ,DOCUMENT     IN OUT NOCOPY VARCHAR2
287  ,DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2
288  )
289 IS
290  l_STARTING_NUMBER VARCHAR2(40);
291  l_ENDING_NUMBER VARCHAR2(40);
292  l_WORKITEM_INSTANCE_ID NUMBER := 0;
293 BEGIN
294  -- Get the workitem instance id from the DOCUMENT_ID
295  -- and convert to a number
296  l_WORKITEM_INSTANCE_ID := to_number(DOCUMENT_ID);
297 
298  -- Get the starting and ending number from WI parameters
299   l_starting_number :=
300    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
301    (l_WORKITEM_INSTANCE_ID
302    ,'STARTING_NUMBER'
303    );
304 
305   l_ending_number :=
306    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
307    (l_WORKITEM_INSTANCE_ID
308    ,'ENDING_NUMBER'
309    );
310 
311   DOCUMENT := NULL;
312   fnd_message.set_name('XNP','PORTING_REFERENCE_DATA');
313   fnd_message.set_token('STARTING_NUMBER',l_starting_number);
314   fnd_message.set_token('ENDING_NUMBER',l_ending_number);
315 
316   IF (DISPLAY_TYPE = 'text/html') THEN
317    DOCUMENT := DOCUMENT || htf.bodyOpen;
318    DOCUMENT := DOCUMENT || fnd_message.get;
319    DOCUMENT := DOCUMENT || htf.bodyClose;
320    DOCUMENT_TYPE := 'text/html';
321    return;
322   END IF;
323 
324   IF (DISPLAY_TYPE = 'text/plain') THEN
325     DOCUMENT := DOCUMENT || fnd_message.get;
326 
327     DOCUMENT_TYPE := 'text/plain';
328     return;
329   END IF;
330 
331   EXCEPTION
332    WHEN OTHERS THEN
333      XNP_TRACE.LOG
334       (1
335       ,'XNP_DOCUMENTS.PORTING_REFERENCE_DATA'
336       ,'FAILED TO PREPARE DOCUMENT: WI INSTANCE ID:'||l_WORKITEM_INSTANCE_ID
337        ||'Error:'||to_char(SQLCODE)||':'||SQLERRM
338       );
339 
340 
341 END PORTING_REFERENCE_DATA;
342 
343 PROCEDURE SERVICE_PROCESSING_ERROR
344  (DOCUMENT_ID  IN VARCHAR2
345  ,DISPLAY_TYPE IN VARCHAR2
346  ,DOCUMENT     IN OUT NOCOPY VARCHAR2
347  ,DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2
348  )
349 
350 IS
351  l_MESSAGE_ID NUMBER := 0;
352 BEGIN
353 
354  -- Get the item type and item key
355  l_MESSAGE_ID := to_number(DOCUMENT_ID);
356 
357 
358   DOCUMENT := NULL;
359   fnd_message.set_name('XNP','SERVICE_PROCESSING_ERROR');
360   fnd_message.set_token('MESSAGE_ID',DOCUMENT_ID);
361 
362   IF (DISPLAY_TYPE = 'text/html') THEN
363    DOCUMENT := DOCUMENT || htf.bodyOpen;
364    DOCUMENT := DOCUMENT || fnd_message.get;
365    DOCUMENT := DOCUMENT || htf.bodyClose;
366    DOCUMENT_TYPE := 'text/html';
367    return;
368   END IF;
369 
370   IF (DISPLAY_TYPE = 'text/plain') THEN
371     DOCUMENT := DOCUMENT || fnd_message.get;
372 
373     DOCUMENT_TYPE := 'text/plain';
374     return;
375   END IF;
376 
377   EXCEPTION
378    WHEN OTHERS THEN
379      XNP_TRACE.LOG
380       (1
381       ,'XNP_DOCUMENTS.SERVICE_PROCESSING_ERROR'
382       ,'FAILED TO PREPARE DOCUMENT: Message id:'||to_char(l_MESSAGE_ID)
383        ||'Error:'||to_char(SQLCODE)||':'||SQLERRM
384       );
385 
386 END SERVICE_PROCESSING_ERROR;
387 
388 PROCEDURE NO_ACK_RECEIVED
389  (DOCUMENT_ID  IN VARCHAR2
390  ,DISPLAY_TYPE IN VARCHAR2
391  ,DOCUMENT     IN OUT NOCOPY VARCHAR2
392  ,DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2
393  )
394 IS
395  l_MESSAGE_ID NUMBER := 0;
396 BEGIN
397 
398  -- Get the item type and item key
399  l_MESSAGE_ID := to_number(DOCUMENT_ID);
400 
401  DOCUMENT := NULL;
402  fnd_message.set_name('XNP','NO_ACK_RECEIVED');
403  fnd_message.set_token('MESSAGE_ID',DOCUMENT_ID);
404 
405   IF (DISPLAY_TYPE = 'text/html') THEN
406 
407    DOCUMENT := DOCUMENT || htf.bodyOpen;
408    DOCUMENT := DOCUMENT || fnd_message.get;
409    DOCUMENT := DOCUMENT || htf.bodyClose;
410 
411    DOCUMENT_TYPE := 'text/html';
412    return;
413   END IF;
414 
415   IF (DISPLAY_TYPE = 'text/plain') THEN
416    DOCUMENT := DOCUMENT || fnd_message.get;
417 
418    DOCUMENT_TYPE := 'text/plain';
419    return;
420   END IF;
421 
422   EXCEPTION
423    WHEN OTHERS THEN
424 
425      XNP_TRACE.LOG
426       (1
427       ,'XNP_DOCUMENTS.NO_ACK_RECEIVED'
428       ,'FAILED TO PREPARE DOCUMENT: Message id:'||to_char(l_MESSAGE_ID)
429        ||'Error:'||to_char(SQLCODE)||':'||SQLERRM
430       );
431 
432 END NO_ACK_RECEIVED;
433 
434 PROCEDURE INVALID_PARAMETERS
435  (DOCUMENT_ID  IN VARCHAR2
436  ,DISPLAY_TYPE IN VARCHAR2
437  ,DOCUMENT     IN OUT NOCOPY VARCHAR2
438  ,DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2
439  )
440 
441 IS
442  l_WORKITEM_INSTANCE_ID NUMBER := 0;
443  l_starting_number varchar2(40) := NULL;
444  l_ending_number varchar2(40) := NULL;
445 BEGIN
446 
447  -- Get the item type and item key
448  l_WORKITEM_INSTANCE_ID := to_number(DOCUMENT_ID);
449 
450  -- Get the starting and ending number from WI parameters
451   l_starting_number :=
452    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
453    (l_WORKITEM_INSTANCE_ID
454    ,'STARTING_NUMBER'
455    );
456 
457   l_ending_number :=
458    XNP_STANDARD.GET_MANDATORY_WI_PARAM_VALUE
459    (l_WORKITEM_INSTANCE_ID
460    ,'ENDING_NUMBER'
461    );
462 
463 
464  DOCUMENT := NULL;
465  fnd_message.set_name('XNP','INVALID_PARAMETERS');
466  fnd_message.set_token('STARTING_NUMBER',l_starting_number);
467  fnd_message.set_token('ENDING_NUMBER',l_ending_number);
468 
469   IF (DISPLAY_TYPE = 'text/html') THEN
470 
471    DOCUMENT := DOCUMENT || htf.bodyOpen;
472    DOCUMENT := DOCUMENT || fnd_message.get;
473    DOCUMENT := DOCUMENT || htf.bodyClose;
474 
475    DOCUMENT_TYPE := 'text/html';
476    return;
477   END IF;
478 
479   IF (DISPLAY_TYPE = 'text/plain') THEN
480    DOCUMENT := DOCUMENT || fnd_message.get;
481 
482    DOCUMENT_TYPE := 'text/plain';
483    return;
484   END IF;
485 
486   EXCEPTION
490       (1
487    WHEN OTHERS THEN
488 
489      XNP_TRACE.LOG
491       ,'XNP_DOCUMENTS.INVALID_PARAMETERS'
492       ,'FAILED TO PREPARE DOCUMENT: Worktiem instance id:'||to_char(l_workitem_instance_id)
493        ||'Error:'||to_char(SQLCODE)||':'||SQLERRM
494       );
495 
496 END INVALID_PARAMETERS;
497 
498 END XNP_DOCUMENTS;
499