54: X_DIR_REG_REV_COL_FLAG IN VARCHAR2 DEFAULT 'N'
55: --|end 29-APR-2009 cklee R12.1.2 setup ehancement v2
56:
57: ) is
58: cursor C is select ROWID from PA_CI_TYPES_B
59: where CI_TYPE_ID = X_CI_TYPE_ID
60: ;
61: l_rowid rowid; --Added for bug#4565156
62: begin
61: l_rowid rowid; --Added for bug#4565156
62: begin
63:
64: l_rowid := x_rowid; --Added for bug#4565156
65: insert into PA_CI_TYPES_B (
66: CI_TYPE_ID,
67: CI_TYPE_CLASS_CODE,
68: AUTO_NUMBER_FLAG,
69: RESOLUTION_REQUIRED_FLAG,
291: REV_COL_FLAG,
292: DIR_COST_REG_FLAG,
293: SUPP_COST_REG_FLAG,
294: DIR_REG_REV_COL_FLAG
295: from PA_CI_TYPES_B
296: where CI_TYPE_ID = X_CI_TYPE_ID
297: for update of CI_TYPE_ID nowait;
298: recinfo c%rowtype;
299:
459: --|end 29-APR-2009 cklee R12.1.2 setup ehancement v2
460:
461: ) is
462: begin
463: update PA_CI_TYPES_B set
464: CI_TYPE_CLASS_CODE = X_CI_TYPE_CLASS_CODE,
465: AUTO_NUMBER_FLAG = X_AUTO_NUMBER_FLAG,
466: RESOLUTION_REQUIRED_FLAG = X_RESOLUTION_REQUIRED_FLAG,
467: APPROVAL_REQUIRED_FLAG = X_APPROVAL_REQUIRED_FLAG,
536: if (sql%notfound) then
537: raise no_data_found;
538: end if;
539:
540: delete from PA_CI_TYPES_B
541: where CI_TYPE_ID = X_CI_TYPE_ID;
542:
543: if (sql%notfound) then
544: raise no_data_found;
550: begin
551: delete from PA_CI_TYPES_TL T
552: where not exists
553: (select NULL
554: from PA_CI_TYPES_B B
555: where B.CI_TYPE_ID = T.CI_TYPE_ID
556: );
557:
558: update PA_CI_TYPES_TL T set (