44: , X_NAME VARCHAR2
45: , X_DESCRIPTION VARCHAR2
46: )
47: IS
48: cursor c is select LIST_HEADER_ID from QP_LIST_HEADERS_B
49: where LIST_HEADER_ID = X_LIST_HEADER_ID;
50:
51: BEGIN
52:
51: BEGIN
52:
53:
54:
55: insert into QP_LIST_HEADERS_B
56: (
57: LIST_HEADER_ID
58: , CREATION_DATE
59: , CREATED_BY
223: , X_NAME VARCHAR2
224: , X_DESCRIPTION VARCHAR2
225: ) IS
226:
227: cursor C is select * from QP_LIST_HEADERS_B
228: where LIST_HEADER_ID = X_LIST_HEADER_ID
229: for update of LIST_HEADER_ID nowait;
230: Recinfo C%ROWTYPE;
231:
480: , X_DESCRIPTION VARCHAR2
481: ) IS
482:
483: begin
484: UPDATE QP_LIST_HEADERS_B
485: SET
486: LIST_HEADER_ID = X_LIST_HEADER_ID
487: ,CREATION_DATE = X_CREATION_DATE
488: ,CREATED_BY = X_CREATED_BY
564: if (SQL%NOTFOUND) then
565: Raise NO_DATA_FOUND;
566: end if;
567:
568: DELETE FROM QP_LIST_HEADERS_B
569: WHERE LIST_HEADER_ID = X_LIST_HEADER_ID;
570:
571: if (SQL%NOTFOUND) then
572: Raise NO_DATA_FOUND;
580: BEGIN
581:
582: delete from QP_LIST_HEADERS_TL T
583: where not exists
584: (select NULL from QP_LIST_HEADERS_B B
585: where B.LIST_HEADER_ID = T.LIST_HEADER_ID);
586:
587: update QP_LIST_HEADERS_TL T set
588: ( NAME