[Home] [Help]
PACKAGE BODY: APPS.XDO_FONT_MAPPINGS_PKG
Source
1 package body XDO_FONT_MAPPINGS_PKG as
2 /* $Header: XDOFNTMB.pls 120.0 2005/09/01 20:26:18 bokim noship $ */
3
4
5 procedure INSERT_ROW (
6 P_MAPPING_CODE in VARCHAR2,
7 P_BASE_FONT in VARCHAR2,
8 P_STYLE in VARCHAR2,
9 P_WEIGHT in VARCHAR2,
10 P_LANGUAGE in VARCHAR2,
11 P_TERRITORY in VARCHAR2,
12 P_TARGET_FONT_TYPE in VARCHAR2,
13 P_TARGET_FONT in VARCHAR2,
14 P_TTC_NUMBER in NUMBER,
15 P_CREATION_DATE in DATE,
16 P_CREATED_BY in NUMBER,
17 P_LAST_UPDATE_DATE in DATE,
18 P_LAST_UPDATED_BY in NUMBER,
19 P_LAST_UPDATE_LOGIN in NUMBER
20 ) is
21 begin
22 insert into XDO_FONT_MAPPINGS (
23 MAPPING_CODE,
24 BASE_FONT,
25 STYLE,
26 WEIGHT,
27 LANGUAGE,
28 TERRITORY,
29 TARGET_FONT_TYPE,
30 TARGET_FONT,
31 TTC_NUMBER,
32 CREATION_DATE,
33 CREATED_BY,
34 LAST_UPDATE_DATE,
35 LAST_UPDATED_BY,
36 LAST_UPDATE_LOGIN
37 ) values (
38 P_MAPPING_CODE,
39 P_BASE_FONT,
40 P_STYLE,
41 P_WEIGHT,
42 P_LANGUAGE,
43 P_TERRITORY,
44 P_TARGET_FONT_TYPE,
45 P_TARGET_FONT,
46 P_TTC_NUMBER,
47 P_CREATION_DATE,
48 P_CREATED_BY,
49 P_LAST_UPDATE_DATE,
50 P_LAST_UPDATED_BY,
51 P_LAST_UPDATE_LOGIN
52 );
53 end INSERT_ROW;
54
55
56 procedure UPDATE_ROW (
57 P_MAPPING_CODE in VARCHAR2,
58 P_BASE_FONT in VARCHAR2,
59 P_STYLE in VARCHAR2,
60 P_WEIGHT in VARCHAR2,
61 P_LANGUAGE in VARCHAR2,
62 P_TERRITORY in VARCHAR2,
63 P_TARGET_FONT_TYPE in VARCHAR2,
64 P_TARGET_FONT in VARCHAR2,
65 P_TTC_NUMBER in NUMBER,
66 P_LAST_UPDATE_DATE in DATE,
67 P_LAST_UPDATED_BY in NUMBER,
68 P_LAST_UPDATE_LOGIN in NUMBER
69 ) is
70 begin
71 update XDO_FONT_MAPPINGS
72 set TARGET_FONT_TYPE = P_TARGET_FONT_TYPE,
73 TARGET_FONT = P_TARGET_FONT,
74 TTC_NUMBER = P_TTC_NUMBER,
75 LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
76 LAST_UPDATED_BY = P_LAST_UPDATED_BY,
77 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
78 where MAPPING_CODE = P_MAPPING_CODE
79 and BASE_FONT = P_BASE_FONT
80 and STYLE = P_STYLE
81 and WEIGHT = P_WEIGHT
82 and LANGUAGE = P_LANGUAGE
83 and TERRITORY = P_TERRITORY;
84
85 if (sql%notfound) then
86 raise no_data_found;
87 end if;
88
89 end UPDATE_ROW;
90
91
92 procedure LOAD_ROW (
93 P_MAPPING_CODE in VARCHAR2,
94 P_BASE_FONT in VARCHAR2,
95 P_STYLE in VARCHAR2,
96 P_WEIGHT in VARCHAR2,
97 P_LANGUAGE in VARCHAR2,
98 P_TERRITORY in VARCHAR2,
99 P_TARGET_FONT_TYPE in VARCHAR2,
100 P_TARGET_FONT in VARCHAR2,
101 P_TTC_NUMBER in NUMBER,
102 P_LAST_UPDATE_DATE in DATE,
103 P_LAST_UPDATED_BY in NUMBER,
104 P_LAST_UPDATE_LOGIN in NUMBER
105 ) is
106
107 begin
108 begin
109
110 UPDATE_ROW (
111 P_MAPPING_CODE,
112 P_BASE_FONT,
113 P_STYLE,
114 P_WEIGHT,
115 P_LANGUAGE,
116 P_TERRITORY,
117 P_TARGET_FONT_TYPE,
118 P_TARGET_FONT,
119 P_TTC_NUMBER,
120 P_LAST_UPDATE_DATE,
121 P_LAST_UPDATED_BY,
122 P_LAST_UPDATE_LOGIN
123 );
124
125 exception when no_data_found then
126
127 INSERT_ROW (
128 P_MAPPING_CODE,
129 P_BASE_FONT,
130 P_STYLE,
131 P_WEIGHT,
132 P_LANGUAGE,
133 P_TERRITORY,
134 P_TARGET_FONT_TYPE,
135 P_TARGET_FONT,
136 P_TTC_NUMBER,
137 P_LAST_UPDATE_DATE,
138 P_LAST_UPDATED_BY,
139 P_LAST_UPDATE_DATE,
140 P_LAST_UPDATED_BY,
141 P_LAST_UPDATE_LOGIN
142 );
143
144 end;
145
146 end LOAD_ROW;
147
148 end XDO_FONT_MAPPINGS_PKG;