[Home] [Help]
PACKAGE BODY: APPS.IES_DEPLOYED_SCRIPTS_PVT
Source
1 PACKAGE BODY IES_DEPLOYED_SCRIPTS_PVT AS
2 /* $Header: iesvidsb.pls 115.7 2002/12/09 21:13:40 appldev ship $ */
3
4 PROCEDURE Insert_Deployed_Scripts
5 ( p_api_version IN NUMBER := 1 ,
6 p_init_msg_list IN VARCHAR2 := 'DUMMY VAL' ,
7 p_commit IN VARCHAR2 := 'DUMMY VAL' ,
8 p_validation_level IN NUMBER := 1 ,
9 x_return_status OUT NOCOPY VARCHAR2 ,
10 x_msg_count OUT NOCOPY NUMBER ,
11 x_msg_data OUT NOCOPY VARCHAR2 ,
12 p_created_by IN NUMBER ,
13 p_dscript_lang_id IN NUMBER ,
14 p_panel_table_id IN NUMBER ,
15 p_question_table_id IN NUMBER ,
16 p_dscript_name IN VARCHAR2 ,
17 p_active_status IN NUMBER ,
18 p_application_id IN NUMBER ,
19 p_function_id IN NUMBER ,
20 p_script_type IN VARCHAR2 ,
21 p_description IN VARCHAR2 ,
22 x_dscript_id OUT NOCOPY NUMBER )
23 IS
24 BEGIN
25 -- Standard Start of API savepoint
26 SAVEPOINT Insert_Deployed_Scripts_PVT;
27 INSERT INTO ies_deployed_scripts ( dscript_id ,
28 created_by ,
29 creation_date ,
30 dscript_lang_id ,
31 panel_table_id ,
32 question_table_id ,
33 dscript_name ,
34 active_status ,
35 application_id ,
36 function_id ,
37 script_type ,
38 description ,
39 dscript_file ,
40 schema_mapping )
41 VALUES ( ies_deployed_scripts_s.nextval ,
42 p_created_by ,
43 sysdate ,
44 p_dscript_lang_id ,
45 p_panel_table_id ,
46 p_question_table_id ,
47 p_dscript_name ,
48 p_active_status ,
49 p_application_id ,
50 p_function_id ,
51 p_script_type ,
52 p_description ,
53 empty_blob() ,
54 empty_blob() )
55 RETURNING dscript_id INTO x_dscript_id;
56 EXCEPTION
57 WHEN OTHERS THEN
58 ROLLBACK TO Insert_Deployed_Scripts_PVT;
59 x_return_status := 'E';
60 x_msg_data := 'Error ' || TO_CHAR(SQLCODE) ||':'||SQLERRM;
61 END Insert_Deployed_Scripts;
62
63 PROCEDURE Update_Deployed_Scripts
64 ( p_api_version IN NUMBER := 1 ,
65 p_init_msg_list IN VARCHAR2 := 'DUMMY VAL' ,
66 p_commit IN VARCHAR2 := 'DUMMY VAL' ,
67 p_validation_level IN NUMBER := 1 ,
68 x_return_status OUT NOCOPY VARCHAR2 ,
69 x_msg_count OUT NOCOPY NUMBER ,
70 x_msg_data OUT NOCOPY VARCHAR2 ,
71 p_dscript_id IN NUMBER ,
72 p_last_updated_by IN NUMBER ,
73 p_dscript_lang_id IN NUMBER ,
74 p_panel_table_id IN NUMBER ,
75 p_question_table_id IN NUMBER ,
76 p_dscript_name IN VARCHAR2 ,
77 p_active_status IN NUMBER ,
78 p_application_id IN NUMBER ,
79 p_function_id IN NUMBER ,
80 p_script_type IN VARCHAR2 ,
81 p_description IN VARCHAR2 ,
82 x_dscript_id OUT NOCOPY NUMBER
83 ) IS
84 BEGIN
85 -- Standard Start of API savepoint
86 SAVEPOINT Update_Deployed_Scripts_PVT;
87 UPDATE ies_deployed_scripts
88 SET last_updated_by = p_last_updated_by ,
89 last_update_date = sysdate ,
90 dscript_lang_id = p_dscript_lang_id ,
91 panel_table_id = p_panel_table_id ,
92 question_table_id = p_question_table_id ,
93 dscript_name = p_dscript_name ,
94 active_status = p_active_status ,
95 application_id = p_application_id ,
96 function_id = p_function_id ,
97 script_type = p_script_type ,
98 description = p_description
99 WHERE dscript_id = p_dscript_id
100 RETURNING dscript_id INTO x_dscript_id;
101 EXCEPTION
102 WHEN OTHERS THEN
103 ROLLBACK TO Update_Deployed_Scripts_PVT;
104 x_return_status := 'E';
105 x_msg_data := 'Error ' || TO_CHAR(SQLCODE) ||':'||SQLERRM;
106 END Update_Deployed_Scripts;
107
108 PROCEDURE Delete_Deployed_Scripts
109 ( p_api_version IN NUMBER := 1,
110 p_init_msg_list IN VARCHAR2 := 'DUMMY VAL',
111 p_commit IN VARCHAR2 := 'DUMMY VAL',
112 p_validation_level IN NUMBER := 1,
113 x_return_status OUT NOCOPY VARCHAR2,
114 x_msg_count OUT NOCOPY NUMBER,
115 x_msg_data OUT NOCOPY VARCHAR2,
116 p_dscript_id IN NUMBER
117 ) IS
118 BEGIN
119 -- Standard Start of API savepoint
120 SAVEPOINT Delete_Deployed_Scripts_PVT;
121
122 delete from ies_question_data where transaction_id in
123 (select transaction_id from ies_transactions where dscript_id = p_dscript_id);
124
125 delete from ies_panel_data where transaction_id in
126 (select transaction_id from ies_transactions where dscript_id = p_dscript_id);
127
128 delete from ies_questions where panel_id in
129 (select panel_id from ies_panels where dscript_id = p_dscript_id);
130
131 delete from ies_answers where lookup_id in
132 (select lookup_id from ies_lookups where dscript_id = p_dscript_id);
133
134 delete from ies_transactions where dscript_id = p_dscript_id;
135
136 delete from ies_lookups where dscript_id = p_dscript_id;
137
138 delete from ies_panels where dscript_id = p_dscript_id;
139
140 delete from ies_deployed_scripts where dscript_id = p_dscript_id;
141
142 x_return_status := 'S';
143
144 EXCEPTION
145 WHEN OTHERS THEN
146 ROLLBACK TO Delete_Deployed_Scripts_PVT;
147 x_return_status := 'E';
148 x_msg_data := 'Error ' || TO_CHAR(SQLCODE) ||':'||SQLERRM;
149 END Delete_Deployed_Scripts;
150
151
152 END IES_Deployed_Scripts_PVT;