16: X_LAST_UPDATE_DATE in DATE,
17: X_LAST_UPDATED_BY in NUMBER,
18: X_LAST_UPDATE_LOGIN in NUMBER
19: ) is
20: cursor C is select ROWID from IC_CLDR_HDR_B
21: where ORGN_CODE = X_ORGN_CODE
22: and FISCAL_YEAR = X_FISCAL_YEAR
23: ;
24: begin
21: where ORGN_CODE = X_ORGN_CODE
22: and FISCAL_YEAR = X_FISCAL_YEAR
23: ;
24: begin
25: insert into IC_CLDR_HDR_B (
26: ORGN_CODE,
27: FISCAL_YEAR,
28: BEGIN_DATE,
29: CLOSED_YEAR_IND,
110: CURRENT_YEAR_IND,
111: TEXT_CODE,
112: IN_USE,
113: DELETE_MARK
114: from IC_CLDR_HDR_B
115: where ORGN_CODE = X_ORGN_CODE
116: and FISCAL_YEAR = X_FISCAL_YEAR
117: for update of ORGN_CODE nowait;
118: recinfo c%rowtype;
177: X_LAST_UPDATED_BY in NUMBER,
178: X_LAST_UPDATE_LOGIN in NUMBER
179: ) is
180: begin
181: update IC_CLDR_HDR_B set
182: BEGIN_DATE = X_BEGIN_DATE,
183: CLOSED_YEAR_IND = X_CLOSED_YEAR_IND,
184: CURRENT_YEAR_IND = X_CURRENT_YEAR_IND,
185: TEXT_CODE = X_TEXT_CODE,
224: raise no_data_found;
225: end if;
226:
227: ************************ */
228: update IC_CLDR_HDR_B set delete_mark = 1
229: where ORGN_CODE = X_ORGN_CODE
230: and FISCAL_YEAR = X_FISCAL_YEAR;
231:
232: if (sql%notfound) then
239: begin
240: delete from IC_CLDR_HDR_TL T
241: where not exists
242: (select NULL
243: from IC_CLDR_HDR_B B
244: where B.ORGN_CODE = T.ORGN_CODE
245: and B.FISCAL_YEAR = T.FISCAL_YEAR
246: );
247: