[Home] [Help]
1: PACKAGE BODY QLTTRAWB as
2: /* $Header: qlttrawb.plb 120.32.12020000.2 2012/07/03 18:10:36 ntungare ship $ */
3: -- 1/23/96 - created
4: -- Paul Mishkin
5:
1: PACKAGE BODY QLTTRAWB as
2: /* $Header: qlttrawb.plb 120.32.12020000.2 2012/07/03 18:10:36 ntungare ship $ */
3: -- 1/23/96 - created
4: -- Paul Mishkin
5:
6: --
28: -- Declaring the following global variables.
29: -- --------------------------------------------------------------------------------------------------
30: -- Variable Description Intialised Used/Modified
31: -- ---------------------------------------------------------------------------------------------------
32: --(1) G_TYPE_OF_TXN Holds 1 (Insert) or QLTTRAWB.WRAPPER() VALIDATE_STEPS ()
33: -- 2 (Update
34: --
35: --(2) G_MATCHING_CHAR_TABLE Table of collection elements VALIDATE_UPDATE CHECK_IF_MATCHING_
36: -- specified as matching element. _TYPE_RECORDS() ELEMENT() --
8669: -- Modified call to 'Validate'. Added 2 more parameters as a result of
8670: -- adding update capabilities.
8671: IF (X_VAL_FLAG = 1) THEN
8672: QLTTRAMB.qa_import_log('validate flag is true calling validate, X_VAL_FLAG = '|| X_VAL_FLAG);
8673: ERRCODE := QLTTRAWB.VALIDATE(X_GROUP_ID,TYPE_OF_TXN,STMT_OF_ROWIDS);
8674: IF (ERRCODE = FALSE) THEN
8675: QLTTRAMB.qa_import_log('failed in call to validate');
8676: RAISE CRITICAL_ERROR;
8677: END IF;
8802: -- Bug 8586750.Fp for 8321226.Following is the already existing code for launching actions
8803: -- as a standalone concurrent program.pdube Mon Jun 15 23:07:13 PDT 2009
8804: IF ((ACTION_FLAG = TRUE) OR (X_VAL_FLAG = 2)) AND (action_child_flag = 0) THEN
8805: -- Passing IMPORT as the value for ARGUMENT2 in qltactwb.
8806: -- whenever qltactwb is called from qlttrawb, the value IMPORT will
8807: -- also be passed.
8808: -- Bug 3273447. suramasw
8809: QLTTRAMB.qa_import_log('Firing actions');
8810: ACTIONS_REQUEST_ID := FND_REQUEST.SUBMIT_REQUEST('QA', 'QLTACTWB', NULL,
9344:
9345:
9346:
9347:
9348: END QLTTRAWB;
9349: