[Home] [Help]
34: X_LAST_UPDATE_DATE in DATE,
35: X_LAST_UPDATED_BY in NUMBER,
36: X_LAST_UPDATE_LOGIN in NUMBER
37: ) is
38: cursor C is select ROWID from AHL_DOCUMENTS_B
39: where DOCUMENT_ID = X_DOCUMENT_ID
40: ;
41: begin
42: insert into AHL_DOCUMENTS_B (
38: cursor C is select ROWID from AHL_DOCUMENTS_B
39: where DOCUMENT_ID = X_DOCUMENT_ID
40: ;
41: begin
42: insert into AHL_DOCUMENTS_B (
43: SUBSCRIBE_AVAIL_FLAG,
44: SUBSCRIBE_TO_FLAG,
45: DOC_TYPE_CODE,
46: DOC_SUB_TYPE_CODE,
197: ATTRIBUTE15,
198: OBJECT_VERSION_NUMBER,
199: SOURCE_PARTY_ID,
200: DOCUMENT_NO
201: from AHL_DOCUMENTS_B
202: where DOCUMENT_ID = X_DOCUMENT_ID
203: for update of DOCUMENT_ID nowait;
204: recinfo c%rowtype;
205:
317: X_LAST_UPDATED_BY in NUMBER,
318: X_LAST_UPDATE_LOGIN in NUMBER
319: ) is
320: begin
321: update AHL_DOCUMENTS_B set
322: SUBSCRIBE_AVAIL_FLAG = X_SUBSCRIBE_AVAIL_FLAG,
323: SUBSCRIBE_TO_FLAG = X_SUBSCRIBE_TO_FLAG,
324: DOC_TYPE_CODE = X_DOC_TYPE_CODE,
325: DOC_SUB_TYPE_CODE = X_DOC_SUB_TYPE_CODE,
377: if (sql%notfound) then
378: raise no_data_found;
379: end if;
380:
381: delete from AHL_DOCUMENTS_B
382: where DOCUMENT_ID = X_DOCUMENT_ID;
383:
384: if (sql%notfound) then
385: raise no_data_found;
391: begin
392: delete from AHL_DOCUMENTS_TL T
393: where not exists
394: (select NULL
395: from AHL_DOCUMENTS_B B
396: where B.DOCUMENT_ID = T.DOCUMENT_ID
397: );
398:
399: update AHL_DOCUMENTS_TL T set (
484: user_id := 1;
485: end if;
486:
487: select document_id into doc_id
488: from ahl_documents_b
489: where document_no = X_DOCUMENT_NO;
490:
491: AHL_DOCUMENTS_PKG.UPDATE_ROW (
492: X_DOCUMENT_ID => doc_id,
523:
524: exception
525: when NO_DATA_FOUND then
526:
527: SELECT AHL_DOCUMENTS_B_S.Nextval INTO
528: doc_id from DUAL;
529:
530: AHL_DOCUMENTS_PKG.INSERT_ROW (
531: X_ROWID => row_id,
577: last_updated_by = decode(X_OWNER, 'SEED', 1, 0),
578: last_update_login = 0
579: where document_id =
580: (select document_id
581: from ahl_documents_b
582: where document_no = X_DOCUMENT_NO)
583: and userenv('LANG') in (language, source_lang);
584:
585: end TRANSLATE_ROW;