PACKAGE BODY: APPS.IES_PANEL_DATA_PVT

Source

1 PACKAGE BODY IES_PANEL_DATA_PVT AS
2 /* $Header: iesvipdb.pls 115.5 2002/12/09 21:13:50 appldev ship $ */
3 
4   PROCEDURE Insert_Panel_Data
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_panel_id          IN  NUMBER                  ,
14     p_transaction_id    IN  NUMBER                  ,
15     p_elapsed_time      IN  NUMBER                  ,
16     p_sequence_num      IN  NUMBER                  ,
17     p_deleted_status    IN  NUMBER
18   ) IS
19   BEGIN
20     -- Standard Start of API savepoint
21     SAVEPOINT	Insert_Panel_Data_PVT;
22     INSERT INTO ies_panel_data ( panel_data_id        ,
23                                  created_by           ,
24                                  creation_date        ,
25                                  panel_id             ,
26                                  transaction_id       ,
27                                  elapsed_time         ,
28                                  sequence_number      ,
29                                  deleted_status       )
30                      VALUES    ( ies_panel_data_s.nextval ,
31                                  p_created_by             ,
32                                  sysdate                  ,
33                                  p_panel_id               ,
34                                  p_transaction_id         ,
35                                  p_elapsed_time           ,
36                                  p_sequence_num           ,
37                                  p_deleted_status         );
38   EXCEPTION
39     WHEN OTHERS THEN
40        ROLLBACK TO Insert_Panel_Data_PVT;
41        x_return_status := 'E';
42        x_msg_data := 'Error ' || TO_CHAR(SQLCODE) ||':'||SQLERRM;
43   END Insert_Panel_Data;
44 END IES_PANEL_DATA_PVT;