PACKAGE BODY: APPS.MTL_PENDING_STATUS_PKG

Source

1 PACKAGE BODY MTL_PENDING_STATUS_PKG as
2 /* $Header: INVISMPB.pls 120.1 2005/06/11 08:11:16 appldev  $ */
3 
4 
5   PROCEDURE get_org (X_ORG_ID        IN    NUMBER,
6                      X_CUR_ORG_ID       OUT NOCOPY /* file.sql.39 change */  NUMBER,
7                      X_CUR_ORG_CODE     OUT NOCOPY /* file.sql.39 change */  VARCHAR2,
8                      X_CUR_ORG_NAME     OUT NOCOPY /* file.sql.39 change */  VARCHAR2
9 
10   ) IS
11 
12     CONTROL_LEVEL   NUMBER := 0 ;
13     SEL_ORG         NUMBER;
14     PASS_ORG        NUMBER;
15 
16     CURSOR C IS
17         SELECT control_level
18         FROM   MTL_ITEM_ATTRIBUTES A
19         WHERE  A.ATTRIBUTE_NAME =
20                 'MTL_SYSTEM_ITEMS.INVENTORY_ITEM_STATUS_CODE';
21 
22     CURSOR D IS
23         SELECT MASTER_ORGANIZATION_ID
24         FROM   MTL_PARAMETERS P
25         WHERE  P.ORGANIZATION_ID = PASS_ORG;
26 
27   BEGIN
28 
29 
30     OPEN C;
31     FETCH C INTO CONTROL_LEVEL ;
32     if (C%NOTFOUND) then
33       CLOSE C;
34 
35       APP_EXCEPTION.Raise_Exception;
36     end if;
37     CLOSE C;
38 
39 
40 
41     IF(CONTROL_LEVEL = 1) THEN
42       PASS_ORG := X_ORG_ID;
43       OPEN D;
44       FETCH D INTO SEL_ORG;
45       X_CUR_ORG_ID := SEL_ORG;
46       if (D%NOTFOUND) then
47 
48           close D;
49           APP_EXCEPTION.Raise_Exception;
50       end if;
51       CLOSE D;
52     ELSE
53 
54         X_CUR_ORG_ID := X_ORG_ID;
55         SEL_ORG      := X_ORG_ID;
56     END IF;
57 
58   SELECT   organization_code, organization_name
59     INTO   X_CUR_ORG_CODE, X_CUR_ORG_NAME
60     FROM   ORG_ORGANIZATION_DEFINITIONS
61     WHERE  ORGANIZATION_ID = SEL_ORG;
62 
63 /*
64    X_CUR_ORG_CODE := ORG_CODE;
65    X_CUR_ORG_NAME := ORG_NAME;
66 */
67 
68    if (SQL%NOTFOUND) THEN
69        APP_EXCEPTION.Raise_Exception;
70    end if;
71 
72 
73   END get_org;
74 
75 
76 END MTL_PENDING_STATUS_PKG;