183:
184: -- May be a message on the stack or
185: -- a string passed in via the arg
186: if logText IS NULL then
187: errBuf := substr( FND_MESSAGE.get, 1, 5000 );
188: else
189: errBuf := substr( logText, 1, 5000 );
190: end if;
191:
347: logString( statementLogLevel, procedureName, 'liaVers ', liaVers);
348: exception
349: when no_data_found then
350: logString( exceptionLogLevel, procedureName, 'exception', 'missing_key');
351: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_KEY' );
352: FND_MESSAGE.set_token( 'HASH_KEY' , liaKey );
353: RAISE missing_key;
354: end;
355:
348: exception
349: when no_data_found then
350: logString( exceptionLogLevel, procedureName, 'exception', 'missing_key');
351: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_KEY' );
352: FND_MESSAGE.set_token( 'HASH_KEY' , liaKey );
353: RAISE missing_key;
354: end;
355:
356: --Get the attribute_id and version_id for the EXT_ACCOUNT_TYPE_CODE
363: logString( statementLogLevel, procedureName, 'ataVers ', ataVers);
364: exception
365: when no_data_found then
366: logString( exceptionLogLevel, procedureName, 'exception', 'missing_key');
367: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_KEY' );
368: FND_MESSAGE.set_token( 'HASH_KEY' , ataKey );
369: RAISE missing_key;
370: end;
371:
364: exception
365: when no_data_found then
366: logString( exceptionLogLevel, procedureName, 'exception', 'missing_key');
367: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_KEY' );
368: FND_MESSAGE.set_token( 'HASH_KEY' , ataKey );
369: RAISE missing_key;
370: end;
371:
372: --Get the NAV
597: 'ccy => ' || ccy );
598: exception
599: when no_data_found then
600: logString( exceptionLogLevel, procedureName, 'exception', 'missing_key');
601: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_KEY' );
602: FND_MESSAGE.set_token( 'HASH_KEY' , key );
603:
604: RAISE missing_key;
605: end;
598: exception
599: when no_data_found then
600: logString( exceptionLogLevel, procedureName, 'exception', 'missing_key');
601: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_KEY' );
602: FND_MESSAGE.set_token( 'HASH_KEY' , key );
603:
604: RAISE missing_key;
605: end;
606:
676: END;
677:
678: If ruleRetcode > 0 then
679:
680: ruleErrorMsg := FND_MESSAGE.get;
681: FND_MESSAGE.set_name( 'GCS', 'GCS_RULE_FAILURE' );
682: FND_MESSAGE.set_token( 'PROCEDURE', packageName||'.'||procedureName );
683: FND_MESSAGE.set_token( 'RULE_NAME', xnsRules(x).rule_name );
684: logString( exceptionLogLevel, procedureName, 'exception', FND_MESSAGE.get);
677:
678: If ruleRetcode > 0 then
679:
680: ruleErrorMsg := FND_MESSAGE.get;
681: FND_MESSAGE.set_name( 'GCS', 'GCS_RULE_FAILURE' );
682: FND_MESSAGE.set_token( 'PROCEDURE', packageName||'.'||procedureName );
683: FND_MESSAGE.set_token( 'RULE_NAME', xnsRules(x).rule_name );
684: logString( exceptionLogLevel, procedureName, 'exception', FND_MESSAGE.get);
685: if ruleErrorMsg IS NOT NULL then
678: If ruleRetcode > 0 then
679:
680: ruleErrorMsg := FND_MESSAGE.get;
681: FND_MESSAGE.set_name( 'GCS', 'GCS_RULE_FAILURE' );
682: FND_MESSAGE.set_token( 'PROCEDURE', packageName||'.'||procedureName );
683: FND_MESSAGE.set_token( 'RULE_NAME', xnsRules(x).rule_name );
684: logString( exceptionLogLevel, procedureName, 'exception', FND_MESSAGE.get);
685: if ruleErrorMsg IS NOT NULL then
686: logString( exceptionLogLevel, procedureName, 'exception', ruleErrorMsg);
679:
680: ruleErrorMsg := FND_MESSAGE.get;
681: FND_MESSAGE.set_name( 'GCS', 'GCS_RULE_FAILURE' );
682: FND_MESSAGE.set_token( 'PROCEDURE', packageName||'.'||procedureName );
683: FND_MESSAGE.set_token( 'RULE_NAME', xnsRules(x).rule_name );
684: logString( exceptionLogLevel, procedureName, 'exception', FND_MESSAGE.get);
685: if ruleErrorMsg IS NOT NULL then
686: logString( exceptionLogLevel, procedureName, 'exception', ruleErrorMsg);
687: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || ruleErrorMsg);
680: ruleErrorMsg := FND_MESSAGE.get;
681: FND_MESSAGE.set_name( 'GCS', 'GCS_RULE_FAILURE' );
682: FND_MESSAGE.set_token( 'PROCEDURE', packageName||'.'||procedureName );
683: FND_MESSAGE.set_token( 'RULE_NAME', xnsRules(x).rule_name );
684: logString( exceptionLogLevel, procedureName, 'exception', FND_MESSAGE.get);
685: if ruleErrorMsg IS NOT NULL then
686: logString( exceptionLogLevel, procedureName, 'exception', ruleErrorMsg);
687: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || ruleErrorMsg);
688: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
689:
690: end if;
691:
692: if ruleRetcode = 1 then
693: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_WARNING' );
694: errbuf := FND_MESSAGE.get;
695: retcode := 1;
696: elsif ruleRetcode = 2 then
697: retcode := 2;
690: end if;
691:
692: if ruleRetcode = 1 then
693: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_WARNING' );
694: errbuf := FND_MESSAGE.get;
695: retcode := 1;
696: elsif ruleRetcode = 2 then
697: retcode := 2;
698: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
694: errbuf := FND_MESSAGE.get;
695: retcode := 1;
696: elsif ruleRetcode = 2 then
697: retcode := 2;
698: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
699: errbuf := FND_MESSAGE.get;
700: RAISE rule_processor_failure;
701: elsif ruleRetCode = 3 then
702: --special case indicates out of balance entry
695: retcode := 1;
696: elsif ruleRetcode = 2 then
697: retcode := 2;
698: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
699: errbuf := FND_MESSAGE.get;
700: RAISE rule_processor_failure;
701: elsif ruleRetCode = 3 then
702: --special case indicates out of balance entry
703: retcode := 2;
700: RAISE rule_processor_failure;
701: elsif ruleRetCode = 3 then
702: --special case indicates out of balance entry
703: retcode := 2;
704: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
705: errbuf := FND_MESSAGE.get;
706: RAISE rule_processor_failure;
707: end if;
708:
701: elsif ruleRetCode = 3 then
702: --special case indicates out of balance entry
703: retcode := 2;
704: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
705: errbuf := FND_MESSAGE.get;
706: RAISE rule_processor_failure;
707: end if;
708:
709: End If;
731:
732: -------------------------------------
733: -- Write log file footer and return
734: -------------------------------------
735: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_SUCCESS' );
736: errbuf := FND_MESSAGE.get;
737:
738: logString( procedureLogLevel, procedureName, 'end', to_char(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
739: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' END');
732: -------------------------------------
733: -- Write log file footer and return
734: -------------------------------------
735: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_SUCCESS' );
736: errbuf := FND_MESSAGE.get;
737:
738: logString( procedureLogLevel, procedureName, 'end', to_char(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
739: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' END');
740: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
750: -- The only way this can raise is if the transaction_id is not valid
751: -- As such, no point to update the interface rows' status_code and
752: -- no need to commit (since no changes are made in the handler)
753: ROLLBACK;
754: FND_MESSAGE.set_name( 'GCS', 'GCS_INVALID_COMMAND_LINE' );
755: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
756: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
757:
758: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
751: -- As such, no point to update the interface rows' status_code and
752: -- no need to commit (since no changes are made in the handler)
753: ROLLBACK;
754: FND_MESSAGE.set_name( 'GCS', 'GCS_INVALID_COMMAND_LINE' );
755: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
756: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
757:
758: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
759: errbuf := FND_MESSAGE.get;
752: -- no need to commit (since no changes are made in the handler)
753: ROLLBACK;
754: FND_MESSAGE.set_name( 'GCS', 'GCS_INVALID_COMMAND_LINE' );
755: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
756: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
757:
758: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
759: errbuf := FND_MESSAGE.get;
760: retcode := 2;
754: FND_MESSAGE.set_name( 'GCS', 'GCS_INVALID_COMMAND_LINE' );
755: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
756: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
757:
758: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
759: errbuf := FND_MESSAGE.get;
760: retcode := 2;
761:
762: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || errbuf);
755: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
756: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
757:
758: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
759: errbuf := FND_MESSAGE.get;
760: retcode := 2;
761:
762: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || errbuf);
763: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
765: logString( procedureLogLevel, procedureName, 'end', to_char(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
766:
767: WHEN invalid_xns_type THEN
768: ROLLBACK;
769: FND_MESSAGE.set_name( 'GCS', 'GCS_INVALID_XNS_TYPE' );
770: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
771: FND_MESSAGE.set_token( 'TRANSACTION_TYPE', xnsData.transaction_type_code );
772: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
773:
766:
767: WHEN invalid_xns_type THEN
768: ROLLBACK;
769: FND_MESSAGE.set_name( 'GCS', 'GCS_INVALID_XNS_TYPE' );
770: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
771: FND_MESSAGE.set_token( 'TRANSACTION_TYPE', xnsData.transaction_type_code );
772: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
773:
774: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
767: WHEN invalid_xns_type THEN
768: ROLLBACK;
769: FND_MESSAGE.set_name( 'GCS', 'GCS_INVALID_XNS_TYPE' );
770: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
771: FND_MESSAGE.set_token( 'TRANSACTION_TYPE', xnsData.transaction_type_code );
772: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
773:
774: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
775: errbuf := FND_MESSAGE.get;
768: ROLLBACK;
769: FND_MESSAGE.set_name( 'GCS', 'GCS_INVALID_XNS_TYPE' );
770: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
771: FND_MESSAGE.set_token( 'TRANSACTION_TYPE', xnsData.transaction_type_code );
772: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
773:
774: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
775: errbuf := FND_MESSAGE.get;
776: retcode := 2;
770: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
771: FND_MESSAGE.set_token( 'TRANSACTION_TYPE', xnsData.transaction_type_code );
772: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
773:
774: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
775: errbuf := FND_MESSAGE.get;
776: retcode := 2;
777: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || errbuf);
778: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
771: FND_MESSAGE.set_token( 'TRANSACTION_TYPE', xnsData.transaction_type_code );
772: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
773:
774: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
775: errbuf := FND_MESSAGE.get;
776: retcode := 2;
777: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || errbuf);
778: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
779:
780: logString( procedureLogLevel, procedureName, 'end', to_char(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
781:
782: WHEN no_rule_found THEN
783: ROLLBACK;
784: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_RULE' );
785: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
786: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
787:
788: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
781:
782: WHEN no_rule_found THEN
783: ROLLBACK;
784: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_RULE' );
785: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
786: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
787:
788: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
789: errbuf := FND_MESSAGE.get;
782: WHEN no_rule_found THEN
783: ROLLBACK;
784: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_RULE' );
785: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
786: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
787:
788: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
789: errbuf := FND_MESSAGE.get;
790: retcode := 2;
784: FND_MESSAGE.set_name( 'GCS', 'GCS_MISSING_RULE' );
785: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
786: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
787:
788: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
789: errbuf := FND_MESSAGE.get;
790: retcode := 2;
791: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || errbuf);
792: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
785: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
786: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
787:
788: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
789: errbuf := FND_MESSAGE.get;
790: retcode := 2;
791: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || errbuf);
792: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
793:
796: WHEN missing_key THEN
797: --An error msg is placed on the stack at the exception raise point
798: --A logString call is made at the exception raise point
799: ROLLBACK;
800: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
801: errbuf := FND_MESSAGE.get;
802: retcode := 2;
803: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || errbuf);
804: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
797: --An error msg is placed on the stack at the exception raise point
798: --A logString call is made at the exception raise point
799: ROLLBACK;
800: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
801: errbuf := FND_MESSAGE.get;
802: retcode := 2;
803: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: ' || errbuf);
804: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
805:
811: logString( procedureLogLevel, procedureName, 'end', to_char(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
812:
813: WHEN OTHERS THEN
814: ROLLBACK;
815: FND_MESSAGE.set_name( 'GCS', 'GCS_UNHANDLED_EXCEPTION' );
816: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
817: FND_MESSAGE.set_token( 'EVENT', 'OTHERS' );
818: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
819:
812:
813: WHEN OTHERS THEN
814: ROLLBACK;
815: FND_MESSAGE.set_name( 'GCS', 'GCS_UNHANDLED_EXCEPTION' );
816: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
817: FND_MESSAGE.set_token( 'EVENT', 'OTHERS' );
818: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
819:
820: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
813: WHEN OTHERS THEN
814: ROLLBACK;
815: FND_MESSAGE.set_name( 'GCS', 'GCS_UNHANDLED_EXCEPTION' );
816: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
817: FND_MESSAGE.set_token( 'EVENT', 'OTHERS' );
818: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
819:
820: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
821: retcode := 2;
814: ROLLBACK;
815: FND_MESSAGE.set_name( 'GCS', 'GCS_UNHANDLED_EXCEPTION' );
816: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
817: FND_MESSAGE.set_token( 'EVENT', 'OTHERS' );
818: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
819:
820: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
821: retcode := 2;
822: errbuf := FND_MESSAGE.get;
816: FND_MESSAGE.set_token( 'PROCEDURE' , packageName||'.'||procedureName );
817: FND_MESSAGE.set_token( 'EVENT', 'OTHERS' );
818: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
819:
820: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
821: retcode := 2;
822: errbuf := FND_MESSAGE.get;
823: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: '|| errbuf);
824: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
818: logString( exceptionLogLevel, procedureName, 'GCS', FND_MESSAGE.get );
819:
820: FND_MESSAGE.set_name( 'GCS', 'GCS_CONCREQ_FAILURE' );
821: retcode := 2;
822: errbuf := FND_MESSAGE.get;
823: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, packageName || '.' || procedureName || ' ERROR: '|| errbuf);
824: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
825:
826: logString( procedureLogLevel, procedureName, 'end', to_char(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));