[Home] [Help]
684: (reverse chronological order - newest change first)
685: ssaleem 21-NOV-2003 Bug No: 3039238
686: Removed UPPER check for person type code in Mand_Emt cursor
687: pkpatel 3-APR-2003 Bug No: 2859277
688: Added the DBMS_SQL.CLOSE_CURSOR for the dynamic SQL created.
689: asbala 12-SEP-03 Bug No:2667343 Replaced Hard coded strings populating lv_Data_Emt by
690: lookup_codes from a lookup_type
691: gmaheswa 07-JUL-05 Bug No: 4327807 Added condition to skip Person Type Mandatory data validation
692: incase of Self-Service applications.
820: CLOSE c_lookup_meaning;
821: END IF;
822:
823:
824: l_Ext_Cursor := DBMS_SQL.OPEN_CURSOR;
825: DBMS_SQL.PARSE (l_Ext_Cursor, lvc_SQLStmt, DBMS_SQL.V7);
826:
827: lnRows := DBMS_SQL.EXECUTE_AND_FETCH (l_Ext_Cursor);
828:
821: END IF;
822:
823:
824: l_Ext_Cursor := DBMS_SQL.OPEN_CURSOR;
825: DBMS_SQL.PARSE (l_Ext_Cursor, lvc_SQLStmt, DBMS_SQL.V7);
826:
827: lnRows := DBMS_SQL.EXECUTE_AND_FETCH (l_Ext_Cursor);
828:
829: IF lnRows = 0 THEN
823:
824: l_Ext_Cursor := DBMS_SQL.OPEN_CURSOR;
825: DBMS_SQL.PARSE (l_Ext_Cursor, lvc_SQLStmt, DBMS_SQL.V7);
826:
827: lnRows := DBMS_SQL.EXECUTE_AND_FETCH (l_Ext_Cursor);
828:
829: IF lnRows = 0 THEN
830: -- Next line modified due to Bug no# 1496059
831: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);
827: lnRows := DBMS_SQL.EXECUTE_AND_FETCH (l_Ext_Cursor);
828:
829: IF lnRows = 0 THEN
830: -- Next line modified due to Bug no# 1496059
831: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);
832: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PE_CHECK_MAND_DATA');
833: FND_MESSAGE.SET_TOKEN ('Person_Type_Code', INITCAP(c_Mand_Emt.person_type_code));
834: FND_MESSAGE.SET_TOKEN ('DataElement', lv_DataEmt);
835: IGS_GE_MSG_STACK.ADD;
836: App_Exception.Raise_Exception;
837:
838: END IF;
839:
840: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);
841:
842: END LOOP;
843:
844: END Check_Mand_Person_Type;