[Home] [Help]
PACKAGE BODY: APPS.FA_ADD_WARRANTY_PKG
Source
1 PACKAGE BODY FA_ADD_WARRANTY_PKG AS
2 /* $Header: FAADDWRB.pls 120.2 2005/07/25 10:05:06 yyoon noship $ */
3
4 PROCEDURE Update_Table(WR_warranty_id NUMBER,
5 WR_old_warranty_id NUMBER,
6 WR_asset_id NUMBER,
7 WR_date_effective DATE DEFAULT sysdate,
8 WR_date_ineffective DATE,
9 WR_last_update_date DATE,
10 WR_last_updated_by NUMBER,
11 WR_created_by NUMBER DEFAULT -1,
12 WR_creation_date DATE DEFAULT sysdate,
13 WR_last_update_login NUMBER DEFAULT -1,
14 WR_update_row VARCHAR2,
15 WR_insert_row VARCHAR2,
16 WR_calling_fn VARCHAR2,
17 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null
18 ) IS
19
20 h_date_effective DATE;
21 h_last_update_date DATE;
22 h_last_updated_by NUMBER;
23 BEGIN
24
25 --Assigning the values to the parameters explicitly because the 'DEFAULT'
26 --clause in the formal parameters definition does not work.
27 h_date_effective := WR_date_effective;
28 h_last_update_date := WR_last_update_date;
29 h_last_updated_by := WR_last_updated_by;
30
31 IF (h_date_effective IS NULL) THEN
32 h_date_effective := sysdate;
33 END IF;
34
35 IF (h_last_update_date IS NULL) THEN
36 h_last_update_date := sysdate;
37 END IF;
38
39 IF (h_last_updated_by IS NULL) THEN
40 h_last_updated_by := -1;
41 END IF;
42
43
44 IF (WR_update_row = 'YES') THEN
45 Update_Row(X_old_warranty_id =>WR_old_warranty_id ,
46 X_asset_id =>WR_asset_id,
47 X_date_ineffective =>WR_date_ineffective,
48 X_last_update_date =>h_last_update_date,
49 X_last_updated_by =>h_last_updated_by ,
50 X_last_update_login=>WR_last_update_login ,
51 X_calling_fn =>'FA_ADD_WARRANTY_PKG.Update_Table'
52 ,p_log_level_rec => p_log_level_rec);
53 END IF;
54
55 IF (WR_insert_row = 'YES') THEN
56 Insert_Row(X_warranty_id=>WR_warranty_id ,
57 X_asset_id =>WR_asset_id,
58 X_date_effective =>h_date_effective ,
59 X_last_update_date =>h_last_update_date,
60 X_last_updated_by =>h_last_updated_by ,
61 X_created_by =>WR_created_by,
62 X_creation_date =>WR_creation_date,
63 X_last_update_login=>WR_last_update_login ,
64 X_calling_fn =>'FA_ADD_WARRANTY_PKG.Update_Table'
65 ,p_log_level_rec => p_log_level_rec);
66 END IF;
67
68 EXCEPTION
69 WHEN OTHERS THEN
70 FA_STANDARD_PKG.RAISE_ERROR(
71 CALLED_FN => 'FA_INS_WARRANTY_PKG.Update_Table',
72 CALLING_FN => WR_calling_fn
73 ,p_log_level_rec => p_log_level_rec);
74 END Update_Table;
75
76
77
78 --------------------------------------------------------------------------------------
79
80 PROCEDURE Update_Row(X_old_warranty_id NUMBER,
81 X_asset_id NUMBER,
82 X_date_ineffective DATE DEFAULT sysdate,
83 X_last_update_date DATE DEFAULT sysdate,
84 X_last_updated_by NUMBER DEFAULT -1,
85 X_last_update_login NUMBER DEFAULT -1,
86 X_calling_fn VARCHAR2,
87 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null
88 ) IS
89 BEGIN
90 UPDATE fa_add_warranties
91 SET date_ineffective = X_date_ineffective,
92 last_update_date = X_last_update_date,
93 last_updated_by = X_last_updated_by,
94 last_update_login= X_last_update_login
95 WHERE asset_id = X_asset_id
96 AND warranty_id = X_old_warranty_id
97 AND date_ineffective IS NULL;
98
99 EXCEPTION
100 WHEN OTHERS THEN
101 FA_STANDARD_PKG.RAISE_ERROR(
102 CALLED_FN => 'FA_INS_WARRANTY_PKG.Update_Row',
103 CALLING_FN => X_calling_fn
104 ,p_log_level_rec => p_log_level_rec);
105 END Update_Row;
106
107
108 --------------------------------------------------------------------------------------
109
110 PROCEDURE Insert_Row(X_warranty_id NUMBER,
111 X_asset_id NUMBER,
112 X_date_effective DATE,
113 X_last_update_date DATE,
114 X_last_updated_by NUMBER,
115 X_created_by NUMBER DEFAULT -1,
116 X_creation_date DATE DEFAULT sysdate,
117 X_last_update_login NUMBER DEFAULT -1,
118 X_calling_fn VARCHAR2,
119 p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null
120 ) IS
121 BEGIN
122 INSERT INTO fa_add_warranties(
123 warranty_id,
124 asset_id,
125 date_effective,
126 last_update_date,
127 last_updated_by,
128 created_by,
129 creation_date,
130 last_update_login)
131 VALUES (X_warranty_id,
132 X_asset_id,
133 X_date_effective,
134 X_last_update_date,
135 X_last_updated_by,
136 X_created_by,
137 X_creation_date,
138 X_last_update_login);
139 EXCEPTION
140 when others then
141 FA_STANDARD_PKG.RAISE_ERROR(
142 CALLED_FN => 'FA_INS_WARRANTY_PKG.Insert_Row',
143 CALLING_FN => X_calling_fn
144 ,p_log_level_rec => p_log_level_rec);
145 END Insert_Row;
146
147
148 END FA_ADD_WARRANTY_PKG;