PACKAGE BODY: APPS.OEXCYMCA

Source

1 PACKAGE BODY OEXCYMCA AS
2 /* $Header: OEXCYCAB.pls 115.1 99/07/16 08:12:15 porting shi $ */
3   PROCEDURE GET_RESULT_COLUMN (P_RESULT_TABLE IN VARCHAR2, RESULT_COLUMN OUT VARCHAR2) IS
4     I          INTEGER := 1;
5     QUALIFIER  VARCHAR2 (10);
6     DUMMY      CHAR (1);
7 
8     BEGIN
9       RESULT_COLUMN := NULL;
10       WHILE I < 29 LOOP
11         I := I + 1;
12         QUALIFIER := 'S' || TO_CHAR (I);
13 
14         SELECT NULL
15         INTO   DUMMY
16         FROM   SO_ACTIONS
17         WHERE  RESULT_COLUMN = QUALIFIER
18           AND  RESULT_TABLE  = P_RESULT_TABLE;
19       END LOOP;
20 
21       EXCEPTION
22         WHEN NO_DATA_FOUND THEN
23           RESULT_COLUMN := QUALIFIER;
24     END GET_RESULT_COLUMN;
25 END OEXCYMCA;