PACKAGE BODY: APPS.IEX_LOAD_FILE_PVT

Source

1 PACKAGE BODY IEX_LOAD_FILE_PVT AS
2 /* $Header: iexvfilb.pls 120.0 2004/01/24 03:26:01 appldev noship $ */
3 
4 
5 PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
6 
7 Procedure UPDATE_AMV_ATTACH1
8            (p_file_id             IN NUMBER )
9 IS
10    l_attachment_id         NUMBER;
11 
12 BEGIN
13 
14    l_attachment_id := 2001;
15 
16    Update jtf_amv_attachments
17       set file_id = p_file_id
18     where attachment_id = l_attachment_id
19      and application_id = 695;
20 
21    UPDATE_FILE_NAME(p_file_id);
22 
23 END UPDATE_AMV_ATTACH1;
24 
25 
26 Procedure UPDATE_AMV_ATTACH2
27            (p_file_id             IN NUMBER )
28 IS
29    l_attachment_id         NUMBER;
30 
31 BEGIN
32 
33    l_attachment_id := 2002;
34 
35    Update jtf_amv_attachments
36       set file_id = p_file_id
37     where attachment_id = l_attachment_id
38      and application_id = 695;
39 
40    UPDATE_FILE_NAME(p_file_id);
41 
42 END UPDATE_AMV_ATTACH2;
43 
44 
45 Procedure UPDATE_AMV_ATTACH3
46            (p_file_id             IN NUMBER )
47 IS
48    l_attachment_id         NUMBER;
49 
50 BEGIN
51 
52    l_attachment_id := 2003;
53 
54    Update jtf_amv_attachments
55       set file_id = p_file_id
56     where attachment_id = l_attachment_id
57      and application_id = 695;
58 
59    UPDATE_FILE_NAME(p_file_id);
60 
61 END UPDATE_AMV_ATTACH3;
62 
63 
64 Procedure UPDATE_AMV_ATTACH4
65            (p_file_id             IN NUMBER )
66 IS
67    l_attachment_id         NUMBER;
68 
69 BEGIN
70 
71    l_attachment_id := 2004;
72 
73    Update jtf_amv_attachments
74       set file_id = p_file_id
75     where attachment_id = l_attachment_id
76      and application_id = 695;
77 
78    UPDATE_FILE_NAME(p_file_id);
79 
80 END UPDATE_AMV_ATTACH4;
81 
82 
83 Procedure UPDATE_AMV_ATTACH5
84            (p_file_id             IN NUMBER )
85 IS
86    l_attachment_id         NUMBER;
87 
88 BEGIN
89 
90    l_attachment_id := 2005;
91 
92    Update jtf_amv_attachments
93       set file_id = p_file_id
94     where attachment_id = l_attachment_id
95      and application_id = 695;
96 
97    UPDATE_FILE_NAME(p_file_id);
98 
99 END UPDATE_AMV_ATTACH5;
100 
101 
102 Procedure UPDATE_FILE_NAME
103            (p_file_id             IN NUMBER )
104 IS
105   CURSOR C_GET_FileName (IN_ID NUMBER) IS
106     SELECT substr(file_name, instr(file_name, '/IEXFm')+1, length(file_name)-instr(file_name,'/IEXFm') )
107       FROM fnd_lobs
108      WHERE file_id = IN_ID;
109    --
110    l_file_name        VARCHAR2(1000);
111 
112 BEGIN
113 
114    OPEN C_Get_FileName (p_file_id);
115   FETCH C_Get_FileName INTO l_file_name;
116 
117   IF (C_Get_FileName%NOTFOUND)
118   THEN
119       null;
120   END IF;
121   CLOSE C_GET_FileName;
122 
123    Update fnd_lobs
124       set file_name = l_file_name
125     where file_id = p_file_id;
126 
127 END UPDATE_FILE_NAME;
128 
129 
130 END IEX_LOAD_FILE_PVT;