PACKAGE BODY: APPS.QA_INSPECTION_WF

Source

1 PACKAGE BODY qa_inspection_wf AS
2 /* $Header: qainswfb.pls 115.3 2002/11/27 19:14:36 jezheng ship $ */
3 
4 FUNCTION raise_frequency_change_event (
5     p_process_code IN VARCHAR2,
6     p_description IN VARCHAR2,
7     p_inspection_plan IN VARCHAR2,
8     p_from_frequency IN VARCHAR2,
9     p_to_frequency IN VARCHAR2,
10     p_criteria IN VARCHAR2,
11     p_role_name IN VARCHAR2) RETURN NUMBER IS
12 
13     l_itemtype varchar2(30);
14     l_process_name VARCHAR2(30);
15     l_itemkey  NUMBER;
16     l_parameter_list wf_parameter_list_t := wf_parameter_list_t();
17 
18     CURSOR c IS
19         SELECT qa_ss_notify_workflow_s.nextval FROM dual;
20 
21 BEGIN
22 
23     l_itemtype     := 'QASKPFRQ';
24     l_process_name := 'QASKPFRQ';
25 
26     OPEN c;
27     FETCH c INTO l_itemkey;
28     CLOSE c;
29 
30     wf_event.addParameterToList(p_name => 'PROCESS_CODE',
31         p_value => p_process_code,
32         p_parameterlist => l_parameter_list);
33 
34     wf_event.addParameterToList(p_name => 'DESCRIPTION',
35         p_value => p_description,
36         p_parameterlist => l_parameter_list);
37 
38     wf_event.addParameterToList(p_name => 'INSPECTION_PLAN',
39         p_value => p_inspection_plan,
40         p_parameterlist => l_parameter_list);
41 
42     wf_event.addParameterToList(p_name => 'FROM_FREQUENCY',
43         p_value => p_from_frequency,
44         p_parameterlist => l_parameter_list);
45 
46     wf_event.addParameterToList(p_name => 'TO_FREQUENCY',
47         p_value => p_to_frequency,
48         p_parameterlist => l_parameter_list);
49 
50     wf_event.addParameterToList(p_name => 'CRITERIA',
51         p_value => p_criteria,
52         p_parameterlist => l_parameter_list);
53 
54     wf_event.addParameterToList(p_name => 'SUPERVISOR',
55         p_value => p_role_name,
56         p_parameterlist => l_parameter_list);
57 
58     wf_event.raise(
59         p_event_name     => 'QA SKIPLOT FREQUENCY CHANGE',
60         p_event_key      => l_itemkey,
61         p_parameters     => l_parameter_list);
62 
63     RETURN l_itemkey;
64 
65 END raise_frequency_change_event;
66 
67 
68 FUNCTION raise_reduced_inspection_event (
69     p_lot_information IN VARCHAR2,
70     p_inspection_date DATE,
71     p_plan_name IN VARCHAR2,
72     p_role_name IN VARCHAR2) RETURN NUMBER IS
73 
74     l_itemtype varchar2(30);
75     l_process_name VARCHAR2(30);
76     l_itemkey  NUMBER;
77     l_parameter_list wf_parameter_list_t := wf_parameter_list_t();
78 
79     CURSOR c IS
80         SELECT qa_ss_notify_workflow_s.nextval FROM dual;
81 
82 BEGIN
83 
84     l_itemtype     := 'QASPINSP';
85     l_process_name := 'QASPINSP';
86 
87     OPEN c;
88     FETCH c INTO l_itemkey;
89     CLOSE c;
90 
91     wf_event.addParameterToList(p_name => 'LOT_INFORMATION',
92         p_value => p_lot_information,
93         p_parameterlist => l_parameter_list);
94 
95     wf_event.addParameterToList(p_name => 'PLAN_NAME',
96         p_value => p_plan_name,
97         p_parameterlist => l_parameter_list);
98 
99     wf_event.addParameterToList(p_name => 'INSPECTION_DATE',
100         p_value => p_inspection_date,
101         p_parameterlist => l_parameter_list);
102 
103     wf_event.addParameterToList(p_name => 'SUPERVISOR',
104         p_value => p_role_name,
105         p_parameterlist => l_parameter_list);
106 
107     wf_event.raise(
108         p_event_name     => 'QA SAMPLING REDUCED INSPECTION',
109         p_event_key      => l_itemkey,
110         p_parameters     => l_parameter_list);
111 
112     RETURN l_itemkey;
113 
114 END raise_reduced_inspection_event;
115 
116 END qa_inspection_wf;