DBA Data[Home] [Help]

APPS.GMP_APS_OUTPUT_PKG dependencies on FND_MESSAGE

Line 589: FND_MESSAGE.SET_NAME('GMP','MR_REQ_SUBMITTED');

585: --
586: IF X_conc_id = 0 THEN
587: RAISE ERROR_SUBMITTING_REQUEST;
588: ELSE
589: FND_MESSAGE.SET_NAME('GMP','MR_REQ_SUBMITTED');
590: FND_MESSAGE.SET_TOKEN('CONC_ID', X_conc_id);
591: FND_FILE.PUT_LINE ( FND_FILE.LOG,'-'||FND_MESSAGE.GET);
592: COMMIT ;
593: END IF;

Line 590: FND_MESSAGE.SET_TOKEN('CONC_ID', X_conc_id);

586: IF X_conc_id = 0 THEN
587: RAISE ERROR_SUBMITTING_REQUEST;
588: ELSE
589: FND_MESSAGE.SET_NAME('GMP','MR_REQ_SUBMITTED');
590: FND_MESSAGE.SET_TOKEN('CONC_ID', X_conc_id);
591: FND_FILE.PUT_LINE ( FND_FILE.LOG,'-'||FND_MESSAGE.GET);
592: COMMIT ;
593: END IF;
594: ELSE

Line 591: FND_FILE.PUT_LINE ( FND_FILE.LOG,'-'||FND_MESSAGE.GET);

587: RAISE ERROR_SUBMITTING_REQUEST;
588: ELSE
589: FND_MESSAGE.SET_NAME('GMP','MR_REQ_SUBMITTED');
590: FND_MESSAGE.SET_TOKEN('CONC_ID', X_conc_id);
591: FND_FILE.PUT_LINE ( FND_FILE.LOG,'-'||FND_MESSAGE.GET);
592: COMMIT ;
593: END IF;
594: ELSE
595: FND_FILE.PUT_LINE(FND_FILE.LOG,'Profile implement APS Suggestions is NOT turned ON, Use concurrent program or Use the GMP forms to implement APS suggestions ');

Line 600: G_log_text := FND_MESSAGE.GET;

596: END IF;
597:
598: EXCEPTION
599: WHEN ERROR_SUBMITTING_REQUEST THEN
600: G_log_text := FND_MESSAGE.GET;
601: FND_FILE.PUT_LINE ( FND_FILE.LOG,'Error submitting concurrent Request '||G_log_text);
602: retcode:=2; /* Error */
603: WHEN others THEN
604: errbuf := 'Call to Perform Auto release failed: ' ||sqlerrm;