50: X_NEG_WO_REC_TRX_ID in NUMBER,
51: X_GL_BALANCING_FLEX_VALUE in VARCHAR2,
52: X_ORG_ID in NUMBER
53: ) is
54: cursor C is select ROWID from ozf_claim_types_all_b
55: where CLAIM_TYPE_ID = X_CLAIM_TYPE_ID
56: ;
57: begin
58:
55: where CLAIM_TYPE_ID = X_CLAIM_TYPE_ID
56: ;
57: begin
58:
59: insert into ozf_claim_types_all_b (
60: ORG_ID,
61: CLAIM_TYPE_ID,
62: OBJECT_VERSION_NUMBER,
63: REQUEST_ID,
285: adjustment_type,
286: ORDER_TYPE_ID,
287: NEG_WO_REC_TRX_ID,
288: GL_BALANCING_FLEX_VALUE
289: from ozf_claim_types_all_b
290: where CLAIM_TYPE_ID = X_CLAIM_TYPE_ID
291: for update of CLAIM_TYPE_ID nowait;
292: recinfo c%rowtype;
293:
467: ELSE
468: L_ORG_ID := X_ORG_ID;
469: END IF; */
470:
471: update ozf_claim_types_all_b set
472: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
473: REQUEST_ID = X_REQUEST_ID,
474: CREATED_FROM = X_CREATED_FROM,
475: CLAIM_CLASS = X_CLAIM_CLASS,
556: if (sql%notfound) then
557: raise no_data_found;
558: end if;
559:
560: delete from ozf_claim_types_all_b
561: where CLAIM_TYPE_ID = X_CLAIM_TYPE_ID
562: and ORG_ID = X_ORG_ID;
563:
564: if (sql%notfound) then
571: begin
572: delete from ozf_claim_types_all_tl T
573: where not exists
574: (select NULL
575: from ozf_claim_types_all_b B
576: where B.CLAIM_TYPE_ID = T.CLAIM_TYPE_ID
577: and B.ORG_ID = T.ORG_ID
578: );
579:
592: T.LANGUAGE
593: ) in (select
594: SUBT.CLAIM_TYPE_ID,
595: SUBT.LANGUAGE
596: from ozf_claim_types_all_b SUBB, ozf_claim_types_all_tl SUBT
597: where SUBB.CLAIM_TYPE_ID = SUBT.CLAIM_TYPE_ID
598: and SUBB.ORG_ID = SUBT.ORG_ID
599: );
600: