eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GMD_LINEAR_EVALUATE dependencies on GMD_DEBUG

Line 49: gmd_debug.put_line('In Substitute routine: Count:'||P_n);

45: /*Initialize return status to success */
46: X_status := FND_API.g_ret_sts_success;
47:
48: IF l_debug = 'Y' THEN
49: gmd_debug.put_line('In Substitute routine: Count:'||P_n);
50: END IF;
51: /*IF P_mx(P_n)(P_n) = 0 THEN*/
52: IF P_mx(l_col*(P_n-1) + P_n) = 0 THEN
53: IF l_debug = 'Y' THEN

Line 54: gmd_debug.put_line(' Cannot evaluate as the divisor is zero at i:'||P_n||' j:'||P_n);

50: END IF;
51: /*IF P_mx(P_n)(P_n) = 0 THEN*/
52: IF P_mx(l_col*(P_n-1) + P_n) = 0 THEN
53: IF l_debug = 'Y' THEN
54: gmd_debug.put_line(' Cannot evaluate as the divisor is zero at i:'||P_n||' j:'||P_n);
55: END IF;
56: GMD_API_GRP.log_message('GMD_NO_SOLUTION');
57: RAISE FND_API.G_EXC_ERROR;
58: END IF;

Line 62: gmd_debug.put_line(' Last row value:'||P_mx(l_col*(P_n-1) + P_n+1));

58: END IF;
59: /*P_mx(P_n)(P_n + 1) := ROUND(P_mx(P_n)(P_n+1)/P_mx(P_n)(P_n), 9);*/
60: P_mx(l_col*(P_n-1)+ P_n+1) := ROUND(P_mx(l_col*(P_n-1) + P_n+1)/P_mx(l_col*(P_n-1) + P_n), 9);
61: IF l_debug = 'Y' THEN
62: gmd_debug.put_line(' Last row value:'||P_mx(l_col*(P_n-1) + P_n+1));
63: END IF;
64: i := P_n - 1;
65: WHILE i > 0 LOOP
66: X_sum := 0;

Line 69: gmd_debug.put_line('i:'||i||' j:'||j||' Sum:'||X_sum);

65: WHILE i > 0 LOOP
66: X_sum := 0;
67: FOR j IN i+1..P_n LOOP
68: IF l_debug = 'Y' THEN
69: gmd_debug.put_line('i:'||i||' j:'||j||' Sum:'||X_sum);
70: END IF;
71: /*X_sum := X_sum + P_mx(i)(j) * P_mx(j)(P_n+1);*/
72: X_sum := X_sum + P_mx(l_col*(i-1) + j) * P_mx(l_col*(j-1) + P_n+1);
73: END LOOP;

Line 75: gmd_debug.put_line('Out of Loop: Sum:'||X_sum||' '||i||'th row:'||p_mx(l_col*(i-1) + i));

71: /*X_sum := X_sum + P_mx(i)(j) * P_mx(j)(P_n+1);*/
72: X_sum := X_sum + P_mx(l_col*(i-1) + j) * P_mx(l_col*(j-1) + P_n+1);
73: END LOOP;
74: IF l_debug = 'Y' THEN
75: gmd_debug.put_line('Out of Loop: Sum:'||X_sum||' '||i||'th row:'||p_mx(l_col*(i-1) + i));
76: END IF;
77:
78: /*IF P_mx(i)(i) = 0 THEN*/
79: IF P_mx(l_col*(i-1) + i) = 0 THEN

Line 81: gmd_debug.put_line(' Cannot evaluate as the divisor is zero at i:'||i||' j:'||i);

77:
78: /*IF P_mx(i)(i) = 0 THEN*/
79: IF P_mx(l_col*(i-1) + i) = 0 THEN
80: IF l_debug = 'Y' THEN
81: gmd_debug.put_line(' Cannot evaluate as the divisor is zero at i:'||i||' j:'||i);
82: END IF;
83: GMD_API_GRP.log_message('GMD_NO_SOLUTION');
84: RAISE FND_API.G_EXC_ERROR;
85: END IF;

Line 92: gmd_debug.put_line('Error in Substitute');

88: END LOOP;
89: EXCEPTION
90: WHEN FND_API.G_EXC_ERROR THEN
91: IF l_debug = 'Y' THEN
92: gmd_debug.put_line('Error in Substitute');
93: END IF;
94: X_status := FND_API.g_ret_sts_error;
95: WHEN OTHERS THEN
96: X_status := FND_API.g_ret_sts_unexp_error;

Line 99: gmd_debug.put_line('Exception:'||sqlerrm);

95: WHEN OTHERS THEN
96: X_status := FND_API.g_ret_sts_unexp_error;
97: FND_MSG_PUB.Add_Exc_Msg('GMD_LINEAR_EVALUATE', 'SUBSTITUTE');
98: IF l_debug = 'Y' THEN
99: gmd_debug.put_line('Exception:'||sqlerrm);
100: END IF;
101: END Substitute;
102:
103:

Line 129: gmd_debug.put_line('In Calc Mags Routine: Count:'||P_count);

125: /*Initialize return status to success */
126: X_status := FND_API.g_ret_sts_success;
127:
128: IF l_debug = 'Y' THEN
129: gmd_debug.put_line('In Calc Mags Routine: Count:'||P_count);
130: END IF;
131: FOR i IN 1..P_Count LOOP
132: IF l_debug = 'Y' THEN
133: gmd_debug.put_line('i:'||i||' Abs Value:'||ABS(P_mx(l_col*(i-1)+ 1)));

Line 133: gmd_debug.put_line('i:'||i||' Abs Value:'||ABS(P_mx(l_col*(i-1)+ 1)));

129: gmd_debug.put_line('In Calc Mags Routine: Count:'||P_count);
130: END IF;
131: FOR i IN 1..P_Count LOOP
132: IF l_debug = 'Y' THEN
133: gmd_debug.put_line('i:'||i||' Abs Value:'||ABS(P_mx(l_col*(i-1)+ 1)));
134: END IF;
135: X_row(i) := ABS(P_Mx(l_col*(i-1)+ 1));
136: FOR j IN 1..P_Count LOOP
137: IF l_debug = 'Y' THEN

Line 138: gmd_debug.put_line('j:'||j||' Abs Value:'||ABS(P_mx(l_col*(i-1)+ j))||' Row Value:'||X_row(i));

134: END IF;
135: X_row(i) := ABS(P_Mx(l_col*(i-1)+ 1));
136: FOR j IN 1..P_Count LOOP
137: IF l_debug = 'Y' THEN
138: gmd_debug.put_line('j:'||j||' Abs Value:'||ABS(P_mx(l_col*(i-1)+ j))||' Row Value:'||X_row(i));
139: END IF;
140: /*IF ABS(P_Mx(i)(j)) > X_row(i) THEN*/
141: IF ABS(P_Mx(l_col*(i-1)+ j)) > X_row(i) THEN
142: /*X_row(i) := ABS(P_Mx(i)(j));*/

Line 149: gmd_debug.put_line(' Arry out of Calc Mags...');

145: END LOOP;
146: X_row(i) := 1/X_row(i);
147: END LOOP;
148: IF l_debug = 'Y' THEN
149: gmd_debug.put_line(' Arry out of Calc Mags...');
150: FOR i IN 1..X_row.COUNT LOOP
151: gmd_debug.put_line(i||':'||X_row(i));
152: END LOOP;
153: END IF;

Line 151: gmd_debug.put_line(i||':'||X_row(i));

147: END LOOP;
148: IF l_debug = 'Y' THEN
149: gmd_debug.put_line(' Arry out of Calc Mags...');
150: FOR i IN 1..X_row.COUNT LOOP
151: gmd_debug.put_line(i||':'||X_row(i));
152: END LOOP;
153: END IF;
154: EXCEPTION
155: WHEN OTHERS THEN

Line 159: gmd_debug.put_line('Exception:'||sqlerrm);

155: WHEN OTHERS THEN
156: X_status := FND_API.g_ret_sts_unexp_error;
157: FND_MSG_PUB.Add_Exc_Msg('GMD_LINEAR_EVALUATE', 'CALC_MAGS');
158: IF l_debug = 'Y' THEN
159: gmd_debug.put_line('Exception:'||sqlerrm);
160: END IF;
161: END calc_mags;
162:
163: /*======================================================================

Line 195: gmd_debug.put_line('In Find Max routine : P_j:'||P_j||' n:'||P_n);

191: /*Initialize return status to success */
192: X_status := FND_API.g_ret_sts_success;
193:
194: IF l_debug = 'Y' THEN
195: gmd_debug.put_line('In Find Max routine : P_j:'||P_j||' n:'||P_n);
196: END IF;
197: X_current := P_j;
198: /*X_big := ABS(P_mx(X_current)(1) * P_s(1));*/
199: X_big := ABS(P_mx(l_col*(X_current-1) + 1) * P_s(1));

Line 201: gmd_debug.put_line('Big:'||X_big);

197: X_current := P_j;
198: /*X_big := ABS(P_mx(X_current)(1) * P_s(1));*/
199: X_big := ABS(P_mx(l_col*(X_current-1) + 1) * P_s(1));
200: IF l_debug = 'Y' THEN
201: gmd_debug.put_line('Big:'||X_big);
202: END IF;
203: /*X_result := P_mx(X_current);*/
204: FOR k IN 1..l_col LOOP
205: X_result(k) := P_mx(l_col*(X_current-1) + k);

Line 227: gmd_debug.put_line('Find Max Result:');

223: END IF;
224: i := i + 1;
225: END LOOP;
226: IF l_debug = 'Y' THEN
227: gmd_debug.put_line('Find Max Result:');
228: FOR j IN 1..X_result.COUNT LOOP
229: gmd_debug.put_line(j||':'||X_result(j));
230: END LOOP;
231: END IF;

Line 229: gmd_debug.put_line(j||':'||X_result(j));

225: END LOOP;
226: IF l_debug = 'Y' THEN
227: gmd_debug.put_line('Find Max Result:');
228: FOR j IN 1..X_result.COUNT LOOP
229: gmd_debug.put_line(j||':'||X_result(j));
230: END LOOP;
231: END IF;
232: EXCEPTION
233: WHEN OTHERS THEN

Line 237: gmd_debug.put_line('Exception:'||sqlerrm);

233: WHEN OTHERS THEN
234: X_status := FND_API.g_ret_sts_unexp_error;
235: FND_MSG_PUB.Add_Exc_Msg('GMD_LINEAR_EVALUATE', 'FIND_MAX');
236: IF l_debug = 'Y' THEN
237: gmd_debug.put_line('Exception:'||sqlerrm);
238: END IF;
239: END Find_Max;
240:
241: /*======================================================================

Line 273: gmd_debug.put_line('In Gauss_Pivot routine: P_current:'||p_current);

269: /*Initialize return status to success */
270: X_status := FND_API.g_ret_sts_success;
271:
272: IF l_debug = 'Y' THEN
273: gmd_debug.put_line('In Gauss_Pivot routine: P_current:'||p_current);
274: END IF;
275: Find_Max(P_mx => P_mx
276: ,P_s => P_s
277: ,P_j => P_current

Line 290: gmd_debug.put_line('i:'||i||' Mxi:'||p_mx(l_col*(p_current-1) + i));

286: i:=1;
287:
288: WHILE i <= P_n+1 LOOP
289: IF l_debug = 'Y' THEN
290: gmd_debug.put_line('i:'||i||' Mxi:'||p_mx(l_col*(p_current-1) + i));
291: END IF;
292: /*X_dummy := P_mx(p_current)(i);*/
293: X_dummy := P_mx(l_col*(p_current-1) + i);
294:

Line 305: gmd_debug.put_line('Error in Gauss Pivot');

301: END LOOP;
302: EXCEPTION
303: WHEN FND_API.G_EXC_ERROR THEN
304: IF l_debug = 'Y' THEN
305: gmd_debug.put_line('Error in Gauss Pivot');
306: END IF;
307: X_status := FND_API.g_ret_sts_error;
308: WHEN OTHERS THEN
309: X_status := FND_API.g_ret_sts_unexp_error;

Line 312: gmd_debug.put_line('Exception:'||sqlerrm);

308: WHEN OTHERS THEN
309: X_status := FND_API.g_ret_sts_unexp_error;
310: FND_MSG_PUB.Add_Exc_Msg('GMD_LINEAR_EVALUATE', 'GAUSS_PIVOT');
311: IF l_debug = 'Y' THEN
312: gmd_debug.put_line('Exception:'||sqlerrm);
313: END IF;
314: END Gauss_Pivot;
315:
316: /*======================================================================

Line 349: gmd_debug.put_line('In Eliminate: P_n'||P_n);

345: /*Initialize return status to success */
346: X_status := FND_API.g_ret_sts_success;
347:
348: IF l_debug = 'Y' THEN
349: gmd_debug.put_line('In Eliminate: P_n'||P_n);
350: END IF;
351: k := 1;
352: WHILE k < P_n LOOP
353: Gauss_Pivot(P_mx => P_mx

Line 363: gmd_debug.put_line(' After Pivoting for :'||k);

359: RAISE FND_API.G_EXC_ERROR;
360: END IF;
361:
362: IF l_debug = 'Y' THEN
363: gmd_debug.put_line(' After Pivoting for :'||k);
364: FOR m IN 1..P_n LOOP
365: l_debug_row := '(';
366: FOR n IN 1..p_n+1 LOOP
367: l_debug_row := l_debug_row||p_mx(l_col*(m-1) + n)||',';

Line 369: gmd_debug.put_line(l_debug_row||')');

365: l_debug_row := '(';
366: FOR n IN 1..p_n+1 LOOP
367: l_debug_row := l_debug_row||p_mx(l_col*(m-1) + n)||',';
368: END LOOP;
369: gmd_debug.put_line(l_debug_row||')');
370: END LOOP;
371: END IF;
372:
373: /*X_mxk := P_mx(k); -- Get row k*/

Line 381: gmd_debug.put_line('Row for k:'||k||' j:'||j);

377:
378:
379: j:=k+1;
380: IF l_debug = 'Y' THEN
381: gmd_debug.put_line('Row for k:'||k||' j:'||j);
382: l_debug_row := '(';
383: FOR m IN 1..P_n+1 LOOP
384: l_debug_row := l_debug_row||X_mxk(m)||',';
385: END LOOP;

Line 386: gmd_debug.put_line(l_debug_row||')');

382: l_debug_row := '(';
383: FOR m IN 1..P_n+1 LOOP
384: l_debug_row := l_debug_row||X_mxk(m)||',';
385: END LOOP;
386: gmd_debug.put_line(l_debug_row||')');
387: END IF;
388: IF X_mxk(k) = 0 THEN
389: IF l_debug = 'Y' THEN
390: gmd_debug.put_line(' Cannot evaluate as the divisor is zero at i:'||k||' j:'||k);

Line 390: gmd_debug.put_line(' Cannot evaluate as the divisor is zero at i:'||k||' j:'||k);

386: gmd_debug.put_line(l_debug_row||')');
387: END IF;
388: IF X_mxk(k) = 0 THEN
389: IF l_debug = 'Y' THEN
390: gmd_debug.put_line(' Cannot evaluate as the divisor is zero at i:'||k||' j:'||k);
391: END IF;
392: GMD_API_GRP.log_message('GMD_NO_SOLUTION');
393: RAISE FND_API.G_EXC_ERROR;
394: END IF;

Line 406: gmd_debug.put_line('Row for J:'||j||' Scale:'||X_scale);

402:
403: X_scale := X_mxj(k) * X_divisor;
404:
405: IF l_debug = 'Y' THEN
406: gmd_debug.put_line('Row for J:'||j||' Scale:'||X_scale);
407: l_debug_row := '(';
408: FOR m IN 1..P_n+1 LOOP
409: l_debug_row := l_debug_row||X_mxj(m)||',';
410: END LOOP;

Line 411: gmd_debug.put_line(l_debug_row||')');

407: l_debug_row := '(';
408: FOR m IN 1..P_n+1 LOOP
409: l_debug_row := l_debug_row||X_mxj(m)||',';
410: END LOOP;
411: gmd_debug.put_line(l_debug_row||')');
412: END IF;
413:
414: i := k;
415: WHILE i <= P_n+1 LOOP

Line 428: gmd_debug.put_line(' After elimination for :'||k);

424:
425: j := j + 1;
426: END LOOP;
427: IF l_debug = 'Y' THEN
428: gmd_debug.put_line(' After elimination for :'||k);
429: FOR i IN 1..P_n LOOP
430: l_debug_row := '(';
431: FOR j IN 1..p_n+1 LOOP
432: l_debug_row := l_debug_row||p_mx(l_col*(i-1)+ j)||',';

Line 434: gmd_debug.put_line(l_debug_row||')');

430: l_debug_row := '(';
431: FOR j IN 1..p_n+1 LOOP
432: l_debug_row := l_debug_row||p_mx(l_col*(i-1)+ j)||',';
433: END LOOP;
434: gmd_debug.put_line(l_debug_row||')');
435: END LOOP;
436: END IF;
437: k := k + 1;
438: END LOOP;

Line 443: gmd_debug.put_line('Error in Eliminate');

439: EXCEPTION
440: WHEN FND_API.G_EXC_ERROR THEN
441: X_status := FND_API.g_ret_sts_error;
442: IF l_debug = 'Y' THEN
443: gmd_debug.put_line('Error in Eliminate');
444: END IF;
445: WHEN OTHERS THEN
446: X_status := FND_API.g_ret_sts_unexp_error;
447: FND_MSG_PUB.Add_Exc_Msg('GMD_LINEAR_EVALUATE', 'ELIMINATE');

Line 449: gmd_debug.put_line('Exception:'||sqlerrm);

445: WHEN OTHERS THEN
446: X_status := FND_API.g_ret_sts_unexp_error;
447: FND_MSG_PUB.Add_Exc_Msg('GMD_LINEAR_EVALUATE', 'ELIMINATE');
448: IF l_debug = 'Y' THEN
449: gmd_debug.put_line('Exception:'||sqlerrm);
450: END IF;
451: END Eliminate;
452:
453: /*======================================================================

Line 513: gmd_debug.put_line('Error in Gauss');

509: EXCEPTION
510: WHEN FND_API.G_EXC_ERROR THEN
511: X_status := FND_API.g_ret_sts_error;
512: IF l_debug = 'Y' THEN
513: gmd_debug.put_line('Error in Gauss');
514: END IF;
515: WHEN OTHERS THEN
516: IF l_debug = 'Y' THEN
517: gmd_debug.put_line('Exception:'||sqlerrm);

Line 517: gmd_debug.put_line('Exception:'||sqlerrm);

513: gmd_debug.put_line('Error in Gauss');
514: END IF;
515: WHEN OTHERS THEN
516: IF l_debug = 'Y' THEN
517: gmd_debug.put_line('Exception:'||sqlerrm);
518: END IF;
519: X_status := FND_API.g_ret_sts_unexp_error;
520: FND_MSG_PUB.Add_Exc_Msg('GMD_LINEAR_EVALUATE', 'GAUSS');
521: END Gauss;

Line 547: GMD_DEBUG.LOG_INITIALIZE(NULL);

543: BEGIN
544: FND_PROFILE.PUT('AFLOG_ENABLED', 'Y');
545: FND_PROFILE.PUT('AFLOG_LEVEL', 0);
546: l_debug := 'Y';
547: GMD_DEBUG.LOG_INITIALIZE(NULL);
548:
549: X_matrix(1) := 3;
550: X_matrix(2) := -4;
551: X_matrix(3) := 5;

Line 640: gmd_debug.put_line(i||':'||X_result(i));

636: ,P_n => 3
637: ,X_status => X_status);
638: IF X_status = FND_API.g_ret_sts_success THEN
639: FOR i IN 1..3 LOOP
640: gmd_debug.put_line(i||':'||X_result(i));
641: END LOOP;
642: END IF;
643: END Test_Gauss;
644: