1 package PER_IMAGE_UPLOAD_PKG AUTHID CURRENT_USER as
2 /* $Header: peimgupl.pkh 115.9 2004/02/11 01:42:59 sxshah ship $ */
3
4 --
5 -- LOAD
6 --
7
8 procedure Load( doc in varchar2,
9 access_id in number ) ;
10
11 --
12 -- LAUNCH
13 --
14 procedure Launch;
15
16 -- Copy FND_LOBS.FILE_DATA to PER_IMAGES.IMAGE using the given PKs
17 --
18 -- TRANSFER
19 --
20 -- Now using error message processing in peimgupl.pkb
21 --
22 function Transfer (file_id in number,
23 image_id in number,
24 connectString in varchar2,
25 un in varchar2,
26 pw in varchar2,
27 msg in out nocopy varchar2) return int;
28
29 --
30 -- IMAGE_IS_BLOB
31 -- Returns TRUE if the datatype of column PER_IMAGES.IMAGE is BLOB, FALSE
32 -- otherwise.
33 function image_is_blob return boolean;
34
35 end PER_IMAGE_UPLOAD_PKG;