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;