[Home] [Help]
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;