PACKAGE BODY: APPS.OKL_INV_LINE_TYPE_DELETE_PVT

Source

1 PACKAGE BODY Okl_Inv_Line_Type_Delete_Pvt AS
2 /* $Header: OKLRILRB.pls 115.3 2002/02/12 14:31:14 pkm ship        $ */
3   ---------------------------------------------------------------------------
4   -- GLOBAL DATASTRUCTURES
5   ---------------------------------------------------------------------------
6   ---------------------------------------------------------------------------
7   -- Procedures and Functions
8   ---------------------------------------------------------------------------
9 
10 PROCEDURE delete_line_type(
11     p_api_version                  IN NUMBER,
12     p_init_msg_list                IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
13     x_return_status                OUT NOCOPY VARCHAR2,
14     x_msg_count                    OUT NOCOPY NUMBER,
15     x_msg_data                     OUT NOCOPY VARCHAR2,
16     p_ilt_del_rec                  IN ilt_del_rec_type)
17 IS
18 
19    CURSOR inv_format_strms_csr (p_ilt_id  NUMBER) IS
20 		  SELECT id
21 		  FROM okl_invc_frmt_strms_v
22 		  WHERE ilt_id = p_ilt_id;
23 
24 p_iltv_rec							 Okl_Ilt_Pvt.iltv_rec_type;
25 p_ilsv_rec							 Okl_Ils_Pvt.ilsv_rec_type;
26 
27 p_iltv_tbl							 Okl_Ilt_Pvt.iltv_tbl_type;
28 p_ilsv_tbl							 Okl_Ils_Pvt.ilsv_tbl_type;
29 
30 BEGIN
31 
32 -- The delete routine works its way up the ER hierarchy
33 
34 
35   	  FOR inv_format_strms IN inv_format_strms_csr( p_ilt_del_rec.id ) LOOP
36 	      p_ilsv_rec.id := inv_format_strms.id;
37   	  	  Okl_Ils_Pvt.delete_row(
38       			p_api_version,
39     			p_init_msg_list,
40     			x_return_status,
41     			x_msg_count,
42     			x_msg_data,
43     			p_ilsv_rec);
44 	  END LOOP;
45 
46       p_iltv_rec.id := p_ilt_del_rec.id;
47   	  Okl_Ilt_Pvt.delete_row(
48       		p_api_version,
49     		p_init_msg_list,
50     		x_return_status,
51     		x_msg_count,
52     		x_msg_data,
53     		p_iltv_rec);
54 
55 EXCEPTION
56 	 WHEN OTHERS THEN
57                   null;
58 END;
59 
60 PROCEDURE delete_line_type(
61     p_api_version                  IN NUMBER,
62     p_init_msg_list                IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
63     x_return_status                OUT NOCOPY VARCHAR2,
64     x_msg_count                    OUT NOCOPY NUMBER,
65     x_msg_data                     OUT NOCOPY VARCHAR2,
66     p_ilt_del_tbl                  IN ilt_del_tbl_type)
67 IS
68 
69 p_ilt_del_rec						  ilt_del_rec_type;
70 
71 BEGIN
72 	 FOR i IN  p_ilt_del_tbl.first..p_ilt_del_tbl.COUNT LOOP
73 	 	 p_ilt_del_rec := p_ilt_del_tbl(i);
74 
75 	 	 delete_line_type(
76      		  p_api_version,
77     		  p_init_msg_list,
78     		  x_return_status,
79     		  x_msg_count,
80     		  x_msg_data,
81     		  p_ilt_del_rec);
82 	 END LOOP;
83 EXCEPTION
84 	 WHEN OTHERS THEN
85                   null;
86 END;
87 
88 END Okl_Inv_Line_Type_Delete_Pvt;