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;