423: INTO V_VALUE;
424: CLOSE C_AP_INVTYPE;
425: ELSIF CRITERIA_CODE = 'AP_SOURCE' THEN
426: IF FROM_VALUE = 'XTR_AP_SOURCE_MANUAL' THEN
427: FND_MESSAGE.SET_NAME('XTR'
428: ,'XTR_AP_SOURCE_MANUAL');
429: V_VALUE := SUBSTR(FND_MESSAGE.GET
430: ,1
431: ,80);
425: ELSIF CRITERIA_CODE = 'AP_SOURCE' THEN
426: IF FROM_VALUE = 'XTR_AP_SOURCE_MANUAL' THEN
427: FND_MESSAGE.SET_NAME('XTR'
428: ,'XTR_AP_SOURCE_MANUAL');
429: V_VALUE := SUBSTR(FND_MESSAGE.GET
430: ,1
431: ,80);
432: ELSIF FROM_VALUE = 'XTR_AP_SOURCE_OTHER' THEN
433: FND_MESSAGE.SET_NAME('XTR'
429: V_VALUE := SUBSTR(FND_MESSAGE.GET
430: ,1
431: ,80);
432: ELSIF FROM_VALUE = 'XTR_AP_SOURCE_OTHER' THEN
433: FND_MESSAGE.SET_NAME('XTR'
434: ,'XTR_AP_SOURCE_OTHER');
435: V_VALUE := SUBSTR(FND_MESSAGE.GET
436: ,1
437: ,80);
431: ,80);
432: ELSIF FROM_VALUE = 'XTR_AP_SOURCE_OTHER' THEN
433: FND_MESSAGE.SET_NAME('XTR'
434: ,'XTR_AP_SOURCE_OTHER');
435: V_VALUE := SUBSTR(FND_MESSAGE.GET
436: ,1
437: ,80);
438: ELSE
439: OPEN C_AP_SOURCE(FROM_VALUE);