[Home] [Help]
1: PACKAGE BODY QLTTRAWB as
2: /* $Header: qlttrawb.plb 120.18.12010000.4 2008/10/17 08:02:38 pdube ship $ */
3: -- 1/23/96 - created
4: -- Paul Mishkin
5:
1: PACKAGE BODY QLTTRAWB as
2: /* $Header: qlttrawb.plb 120.18.12010000.4 2008/10/17 08:02:38 pdube 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() --
8111:
8112: -- Modified call to 'Validate'. Added 2 more parameters as a result of
8113: -- adding update capabilities.
8114: IF (X_VAL_FLAG = 1) THEN
8115: ERRCODE := QLTTRAWB.VALIDATE(X_GROUP_ID,TYPE_OF_TXN,STMT_OF_ROWIDS);
8116: IF (ERRCODE = FALSE) THEN
8117: RAISE CRITICAL_ERROR;
8118: END IF;
8119: --
8187: -- whether or not actions were triggered. to be safe, we have to fire
8188: -- the actions package every time, even though it may not be needed.
8189:
8190: -- Passing IMPORT as the value for ARGUMENT2 in qltactwb.
8191: -- whenever qltactwb is called from qlttrawb, the value IMPORT will
8192: -- also be passed.
8193: -- Bug 3273447. suramasw
8194:
8195: IF ((ACTION_FLAG = TRUE) OR (X_VAL_FLAG = 2)) THEN
8588:
8589:
8590:
8591:
8592: END QLTTRAWB;
8593: