[Home] [Help]
PACKAGE BODY: APPS.CLN_SHOWSHIP_UTILS
Source
1 PACKAGE BODY CLN_SHOWSHIP_UTILS AS
2 /* $Header: CLNSHSUB.pls 115.5 2003/06/28 09:16:57 kkram noship $ */
3 l_debug_level NUMBER := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
4
5 /*=======================================================================+
6 | FILENAME
7 | CLNSHSUB.sql
8 |
9 | DESCRIPTION
10 | PL/SQL package: CLN_SHOWSHIP_UTILS
11 |
12 | NOTES
13 | Created 4/08/03 chiung-fu.shih
14 *=====================================================================*/
15
16 PROCEDURE getPurchaseOrderNum(PoAndRel IN VARCHAR2,
17 PoNum OUT NOCOPY VARCHAR2) IS
18 RelExists VARCHAR2(100);
19 l_error_code NUMBER;
20 l_error_msg VARCHAR2(1000);
21 BEGIN
22 RelExists := INSTR(PoAndRel, '-', 1, 1);
23
24 if(RelExists = 0) then
25 PoNum := PoAndRel;
26 else
27 PoNum := RTRIM(RTRIM(PoAndRel, '0123456789'), '-');
28 end if;
29
30 EXCEPTION
31 WHEN OTHERS THEN
32 l_error_code := SQLCODE;
33 l_error_msg := SQLERRM;
34
35 IF (l_Debug_Level <= 1) THEN
36 cln_debug_pub.Add('Exception ' || ':' || l_error_code || ':' || l_error_msg,1);
37 END IF;
38 END getPurchaseOrderNum;
39
40 PROCEDURE getRelNum(PoAndRel IN VARCHAR2,
41 RelNum OUT NOCOPY VARCHAR2) IS
42 modifiedString VARCHAR2(100) := '000';
43 l_error_code NUMBER;
44 l_error_msg VARCHAR2(1000);
45 BEGIN
46 RelNum := LTRIM(LTRIM(PoAndRel, '0123456789'), '-');
47 EXCEPTION
48 WHEN OTHERS THEN
49 l_error_code := SQLCODE;
50 l_error_msg := SQLERRM;
51
52 IF (l_Debug_Level <= 1) THEN
53 cln_debug_pub.Add('Exception ' || ':' || l_error_code || ':' || l_error_msg,1);
54 END IF;
55 END getRelNum;
56
57 END CLN_SHOWSHIP_UTILS;