DBA Data[Home] [Help]

PACKAGE BODY: APPS.PA_CLIENT_EXTN_ASGMT_WF

Source


1 PACKAGE BODY PA_CLIENT_EXTN_ASGMT_WF AS
2 --  $Header: PARAWFCB.pls 120.2 2006/06/28 07:28:51 sunkalya noship $
3 
4 
5 
6 PROCEDURE Generate_Assignment_Approvers
7     (p_assignment_id	            IN	NUMBER
8      ,p_project_id	            IN	NUMBER
9      ,p_in_list_of_approvers	    IN	Users_List_tbltyp
10      ,x_out_list_of_approvers	   OUT	NOCOPY Users_List_tbltyp  -- For 1159 mandate changes bug#2674619
11      ,x_number_of_approvers	   OUT	NOCOPY NUMBER ) IS --File.Sql.39 bug 4440895
12 BEGIN
13  -- This procedure , by default, returns the input approvers
14  -- as output. You could customize this code to add or modify
15  -- more approvers, as necessary. You must ensure that both
16  -- x_out_list_of_approvers and x_number_of_approvers are properly
17  -- populated. The calling apis used by Oracle Projects and Oracle
18  -- Oracle Project Resource Management would use the output values
19 
20 	x_out_list_of_approvers := p_in_list_of_approvers;
21 	IF p_in_list_of_approvers.EXISTS(1) THEN
22 	  x_number_of_approvers := p_in_list_of_approvers.COUNT;
23         ELSE
24 	  x_number_of_approvers := 0;
25 	END IF;
26 END Generate_Assignment_Approvers;
27 
28 PROCEDURE Generate_NF_Recipients
29 	( p_assignment_id	    IN	NUMBER
30           ,p_project_id	            IN	NUMBER
31           ,p_notification_type	    IN	VARCHAR2
32           ,p_in_list_of_recipients  IN	Users_List_tbltyp
33           ,x_out_list_of_recipients  OUT NOCOPY	Users_List_tbltyp  -- For 1159 mandate changes bug#2674619
34           ,x_number_of_recipients    OUT	NOCOPY NUMBER ) IS --File.Sql.39 bug 4440895
35 BEGIN
36  -- This procedure , by default, returns the input recipients
37  -- as output. You could customize this code to add or modify
38  -- more recipients, as necessary. You must ensure that both
39  -- x_out_list_of_recipients and x_number_of_recipients are properly
40  -- populated. The calling apis used by Oracle Projects and Oracle
41  -- Oracle Project Resource Management would use the output values
42  -- You can use the p_notification_type parameter to distinguish
43  -- between different types of notifications
44  -- valid values in p_notification_type are 'APPROVAL_FYI'
45  -- and 'REJECTION_FYI'
46 	x_out_list_of_recipients := p_in_list_of_recipients;
47 	IF p_in_list_of_recipients.EXISTS(1) THEN
48 	  x_number_of_recipients := p_in_list_of_recipients.COUNT;
49         ELSE
50 	  x_number_of_recipients := 0;
51         END IF;
52 END Generate_NF_Recipients;
53 
54 PROCEDURE Set_Timeout_And_Reminders
55 	 ( p_assignment_id	    IN	NUMBER
56 	   ,p_project_id	            IN	NUMBER
57 	   ,x_waiting_time	   OUT	NOCOPY NUMBER --File.Sql.39 bug 4440895
58 	   ,x_number_of_reminders   OUT	NOCOPY NUMBER ) IS --File.Sql.39 bug 4440895
59 BEGIN
60 -- This procedure returns the following
61 -- x_waiting_time - This is expressed in minutes and indicates
62 --		    the time the process has to wait before reminding
63 --		    the approver when the approver fails to respond
64 --		    to the approval notification.
65 --		    Note that the default supplied with the product is
66 --		    3 days , which is expressed in minutes
67 --		    as (3*24*60) = 4320. If you wish to change
68 --		    this , you would have to calculate the minutes
69 --		    appropriately. Note that the waiting time , referred to as
70 --		    timeouts by Oracle Workflow, has to be expressed in minutes
71 --		    only
72 
73 -- x_number_of_reminders  - This indicates the number of times the approval
74 --		            has to remind the approver who has not responded
75 --			    to the approval notification
76 --		            By default this value is set to 3
77 --  Based on the defaults, the approval process would wait for 3 days
78 --  before issuing the first reminder. It will then issue two more reminders
79 --  before cancelling the notification and the project manager would be informed
80 --  of such cancellation
81 
82 	   x_waiting_time  := 4320;
83 	   x_number_of_reminders   := 3;
84 
85 EXCEPTION
86   WHEN OTHERS THEN RAISE;
87 END Set_Timeout_And_Reminders;
88 
89 END PA_CLIENT_EXTN_ASGMT_WF ;