50: X_OA_FLEX_APPLICATION_ID in NUMBER,
51: X_OA_FLEX_CODE in VARCHAR2,
52: X_OA_FLEX_NUM in VARCHAR2
53: ) is
54: cursor C is select ROWID from BNE_PARAM_DEFNS_B
55: where APPLICATION_ID = X_APPLICATION_ID
56: and PARAM_DEFN_CODE = X_PARAM_DEFN_CODE
57: ;
58: l_base_default_string bne_param_defns_b.default_string%type;
54: cursor C is select ROWID from BNE_PARAM_DEFNS_B
55: where APPLICATION_ID = X_APPLICATION_ID
56: and PARAM_DEFN_CODE = X_PARAM_DEFN_CODE
57: ;
58: l_base_default_string bne_param_defns_b.default_string%type;
59: l_trans_default_string bne_param_defns_tl.default_string%type;
60: begin
61: if X_DEFAULT_STRING_TRANS_FLAG = 'Y'
62: then
66: l_base_default_string := X_DEFAULT_STRING;
67: l_trans_default_string := null;
68: end if;
69:
70: insert into BNE_PARAM_DEFNS_B (
71: APPLICATION_ID,
72: PARAM_DEFN_CODE,
73: OBJECT_VERSION_NUMBER,
74: PARAM_NAME,
256: FORMAT_MASK,
257: OA_FLEX_APPLICATION_ID,
258: OA_FLEX_CODE,
259: OA_FLEX_NUM
260: from BNE_PARAM_DEFNS_B
261: where APPLICATION_ID = X_APPLICATION_ID
262: and PARAM_DEFN_CODE = X_PARAM_DEFN_CODE
263: for update of APPLICATION_ID nowait;
264: recinfo c%rowtype;
398: X_OA_FLEX_APPLICATION_ID in NUMBER,
399: X_OA_FLEX_CODE in VARCHAR2,
400: X_OA_FLEX_NUM in VARCHAR2
401: ) is
402: l_base_default_string bne_param_defns_b.default_string%type;
403: l_trans_default_string bne_param_defns_tl.default_string%type;
404: begin
405: if X_DEFAULT_STRING_TRANS_FLAG = 'Y'
406: then
410: l_base_default_string := X_DEFAULT_STRING;
411: l_trans_default_string := null;
412: end if;
413:
414: update BNE_PARAM_DEFNS_B set
415: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
416: PARAM_NAME = X_PARAM_NAME,
417: PARAM_SOURCE = X_PARAM_SOURCE,
418: PARAM_CATEGORY = X_PARAM_CATEGORY,
482: if (sql%notfound) then
483: raise no_data_found;
484: end if;
485:
486: delete from BNE_PARAM_DEFNS_B
487: where APPLICATION_ID = X_APPLICATION_ID
488: and PARAM_DEFN_CODE = X_PARAM_DEFN_CODE;
489:
490: if (sql%notfound) then
497: begin
498: delete from BNE_PARAM_DEFNS_TL T
499: where not exists
500: (select NULL
501: from BNE_PARAM_DEFNS_B B
502: where B.APPLICATION_ID = T.APPLICATION_ID
503: and B.PARAM_DEFN_CODE = T.PARAM_DEFN_CODE
504: );
505:
772: f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
773: begin
774: select LAST_UPDATED_BY, LAST_UPDATE_DATE
775: into db_luby, db_ludate
776: from BNE_PARAM_DEFNS_B
777: where APPLICATION_ID = l_app_id
778: and PARAM_DEFN_CODE = x_param_defn_code;
779:
780: -- Test for customization and version