PACKAGE BODY: APPS.AP_ISPEED_UTIL_PKG

Source

1 PACKAGE BODY AP_ISPEED_UTIL_PKG AS
2 /* $Header: apispedb.pls 120.4 2004/10/28 23:21:47 pjena noship $ */
3 --
4 -- Declare Variables Global to this Package.
5 --
6   PROCEDURE Installation_Status(
7             P_Installation_Exists    OUT NOCOPY VARCHAR2)
8   IS
9     po_status 		VARCHAR2(30);
10     inv_status		VARCHAR2(30);
11     industry		VARCHAR2(30);
12 
13   BEGIN
14 
15     if (FND_INSTALLATION.GET(201,201, po_status, industry) and
16 	FND_INSTALLATION.GET(401,401, inv_status, industry)) then
17       if (po_status <> 'I' and inv_status <> 'I') then
18         P_Installation_Exists := 'N';
19       else
20         P_Installation_Exists := 'Y';
21       end if;
22     end if;
23 
24   END  Installation_Status;
25 
26   PROCEDURE Add_Language( P_Term_Id  IN NUMBER)
27 
28   IS
29   BEGIN
30 
31     insert into AP_TERMS_TL (
32     TERM_ID,
33     LAST_UPDATE_DATE,
34     LAST_UPDATED_BY,
35     CREATION_DATE,
36     CREATED_BY,
37     LAST_UPDATE_LOGIN,
38     NAME,
39     ENABLED_FLAG,
40     DUE_CUTOFF_DAY,
41     DESCRIPTION,
42     TYPE,
43     START_DATE_ACTIVE,
44     END_DATE_ACTIVE,
45     RANK,
46     ATTRIBUTE_CATEGORY,
47     ATTRIBUTE1,
48     ATTRIBUTE2,
49     ATTRIBUTE3,
50     ATTRIBUTE4,
51     ATTRIBUTE5,
52     ATTRIBUTE6,
53     ATTRIBUTE7,
54     ATTRIBUTE8,
55     ATTRIBUTE9,
56     ATTRIBUTE10,
57     ATTRIBUTE11,
58     ATTRIBUTE12,
59     ATTRIBUTE13,
60     ATTRIBUTE14,
61     ATTRIBUTE15,
62     LANGUAGE,
63     SOURCE_LANG
64   ) select
65     B.TERM_ID,
66     B.LAST_UPDATE_DATE,
67     B.LAST_UPDATED_BY,
68     B.CREATION_DATE,
69     B.CREATED_BY,
70     B.LAST_UPDATE_LOGIN,
71     B.NAME,
72     B.ENABLED_FLAG,
73     B.DUE_CUTOFF_DAY,
74     B.DESCRIPTION,
75     B.TYPE,
76     B.START_DATE_ACTIVE,
77     B.END_DATE_ACTIVE,
78     B.RANK,
79     B.ATTRIBUTE_CATEGORY,
80     B.ATTRIBUTE1,
81     B.ATTRIBUTE2,
82     B.ATTRIBUTE3,
83     B.ATTRIBUTE4,
84     B.ATTRIBUTE5,
85     B.ATTRIBUTE6,
86     B.ATTRIBUTE7,
87     B.ATTRIBUTE8,
88     B.ATTRIBUTE9,
89     B.ATTRIBUTE10,
90     B.ATTRIBUTE11,
91     B.ATTRIBUTE12,
92     B.ATTRIBUTE13,
93     B.ATTRIBUTE14,
94     B.ATTRIBUTE15,
95     L.LANGUAGE_CODE,
96     B.SOURCE_LANG
97   from AP_TERMS_TL B, FND_LANGUAGES L
98   where L.INSTALLED_FLAG in ('I', 'B')
99   and B.TERM_ID = P_Term_Id
100   and not exists
101     (select NULL
102     from AP_TERMS_TL T
103     where T.TERM_ID = B.TERM_ID
104     and T.LANGUAGE = L.LANGUAGE_CODE);
105 
106 END Add_Language;
107 
108 
109 --
110 END AP_ISPEED_UTIL_PKG;