1 PACKAGE BODY Eng_Workflow_Ext AS
2 /* $Header: ENGXWKFB.pls 115.4 2004/05/27 22:52:56 mkimizuk ship $ */
3
4
5 PROCEDURE StartCustomWorkflow
6 ( p_validation_level IN NUMBER := NULL
7 , x_return_status OUT NOCOPY VARCHAR2
8 , x_msg_count OUT NOCOPY NUMBER
9 , x_msg_data OUT NOCOPY VARCHAR2
10 , p_item_type IN VARCHAR2
11 , x_item_key IN OUT NOCOPY VARCHAR2
12 , p_process_name IN VARCHAR2
13 , p_change_id IN NUMBER := NULL
14 , p_change_line_id IN NUMBER := NULL
15 , p_wf_user_id IN NUMBER -- User Id
16 , p_host_url IN VARCHAR2
17 , p_action_id IN NUMBER := NULL
18 , p_adhoc_party_list IN VARCHAR2 := NULL
19 , p_route_id IN NUMBER := NULL
20 , p_route_step_id IN NUMBER := NULL
21 , p_parent_item_type IN VARCHAR2 := NULL
22 , p_parent_item_key IN VARCHAR2 := NULL
23 , p_object_name IN VARCHAR2 := NULL
24 , p_object_id1 IN NUMBER := NULL
25 , p_object_id2 IN NUMBER := NULL
26 , p_object_id3 IN NUMBER := NULL
27 , p_object_id4 IN NUMBER := NULL
28 , p_object_id5 IN NUMBER := NULL
29 , p_parent_object_name IN VARCHAR2 := NULL
30 , p_parent_object_id1 IN NUMBER := NULL
31 )
32 IS
33 /* Local Variables */
34 l_validation_level NUMBER ;
35
36 BEGIN
37
38 l_validation_level := p_validation_level ;
39 IF l_validation_level IS NULL THEN
40 l_validation_level := FND_API.G_VALID_LEVEL_FULL ;
41 END IF ;
42
43 x_return_status := FND_API.G_RET_STS_SUCCESS;
44
45 /* You custom logic is here */
46
47 EXCEPTION
48
49 WHEN OTHERS THEN
50 x_msg_count := x_msg_count + 1;
51 x_msg_data := substr(SQLERRM,1,2000);
52 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
53
54 END StartCustomWorkflow ;
55
56
57 PROCEDURE AbortCustomWorkflow
58 ( p_validation_level IN NUMBER := NULL
59 , x_return_status OUT NOCOPY VARCHAR2
60 , x_msg_count OUT NOCOPY NUMBER
61 , x_msg_data OUT NOCOPY VARCHAR2
62 , p_item_type IN VARCHAR2
63 , p_item_key IN VARCHAR2
64 , p_process_name IN VARCHAR2 := NULL
65 , p_wf_user_id IN NUMBER -- User Id
66 )
67 IS
68
69 /* Local Variables */
70 l_validation_level NUMBER ;
71
72 BEGIN
73
74 l_validation_level := p_validation_level ;
75 IF l_validation_level IS NULL THEN
76 l_validation_level := FND_API.G_VALID_LEVEL_FULL ;
77 END IF ;
78
79 x_return_status := FND_API.G_RET_STS_SUCCESS;
80
81
82 /* You custom logic is here */
83
84 EXCEPTION
85
86 WHEN OTHERS THEN
87 x_msg_count := x_msg_count + 1;
88 x_msg_data := substr(SQLERRM,1,2000);
89 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
90
91 END AbortCustomWorkflow ;
92
93
94
95 PROCEDURE GetCustomMessageSubject
96 ( document_id IN VARCHAR2
97 , display_type IN VARCHAR2
98 , document IN OUT NOCOPY VARCHAR2
99 , document_type IN OUT NOCOPY VARCHAR2
100 )
101 IS
102
103 BEGIN
104
105 NULL ;
106
107
108 END GetCustomMessageSubject ;
109
110
111 PROCEDURE GetCustomMessageBody
112 ( document_id IN VARCHAR2
113 , display_type IN VARCHAR2
114 , document IN OUT NOCOPY CLOB
115 , document_type IN OUT NOCOPY VARCHAR2
116 )
117 IS
118
119 BEGIN
120
121 NULL ;
122
123 END GetCustomMessageBody ;
124
125
126 PROCEDURE RespondToNtf
127 ( x_return_status OUT NOCOPY VARCHAR2
128 , x_msg_count OUT NOCOPY NUMBER
129 , x_msg_data OUT NOCOPY VARCHAR2
130 , p_item_type IN VARCHAR2
131 , p_item_key IN VARCHAR2
132 , p_actid IN NUMBER
133 , p_func_mode IN VARCHAR2
134 , p_result IN VARCHAR2
135 )
136 IS
137
138 BEGIN
139
140 NULL ;
141
142 END RespondToNtf ;
143
144
145 END Eng_Workflow_Ext ;