59: X_PRICING_PERSPECTIVE in VARCHAR2,
60: X_VALIDATION_ERROR_FLAG in VARCHAR2,
61: X_CUST_ACCOUNT_ID in NUMBER
62: ) is
63: cursor C is select ROWID from QP_PB_INPUT_HEADERS_B
64: where PB_INPUT_HEADER_ID = X_PB_INPUT_HEADER_ID
65: ;
66: begin
67: insert into QP_PB_INPUT_HEADERS_B (
63: cursor C is select ROWID from QP_PB_INPUT_HEADERS_B
64: where PB_INPUT_HEADER_ID = X_PB_INPUT_HEADER_ID
65: ;
66: begin
67: insert into QP_PB_INPUT_HEADERS_B (
68: DLV_XML_FLAG,
69: PUB_TEMPLATE_CODE,
70: DLV_EMAIL_FLAG,
71: DLV_EMAIL_ADDRESSES,
277: PUB_OUTPUT_DOCUMENT_TYPE,
278: PRICING_PERSPECTIVE_CODE,
279: VALIDATION_ERROR_FLAG,
280: CUST_ACCOUNT_ID
281: from QP_PB_INPUT_HEADERS_B
282: where PB_INPUT_HEADER_ID = X_PB_INPUT_HEADER_ID
283: for update of PB_INPUT_HEADER_ID nowait;
284: recinfo c%rowtype;
285:
436: X_VALIDATION_ERROR_FLAG in VARCHAR2,
437: X_CUST_ACCOUNT_ID in NUMBER
438: ) is
439: begin
440: update QP_PB_INPUT_HEADERS_B set
441: DLV_XML_FLAG = X_DLV_XML_FLAG,
442: PUB_TEMPLATE_CODE = X_PUB_TEMPLATE_CODE ,
443: DLV_EMAIL_FLAG = X_DLV_EMAIL_FLAG ,
444: DLV_EMAIL_ADDRESSES = X_DLV_EMAIL_ADDRESSES ,
507: if (sql%notfound) then
508: raise no_data_found;
509: end if;
510:
511: delete from QP_PB_INPUT_HEADERS_B
512: where PB_INPUT_HEADER_ID = X_PB_INPUT_HEADER_ID;
513:
514: if (sql%notfound) then
515: raise no_data_found;
521: begin
522: delete from QP_PB_INPUT_HEADERS_TL T
523: where not exists
524: (select NULL
525: from QP_PB_INPUT_HEADERS_B B
526: where B.PB_INPUT_HEADER_ID = T.PB_INPUT_HEADER_ID
527: );
528:
529: update QP_PB_INPUT_HEADERS_TL T set (