[Home] [Help]
387: -- 03-10-04 G Hall Added OA-compliant parameters to all
388: -- Process Lock procedure calls.
389: -- 03-16-04 G Hall Added debug messages for message stack
390: -- operations; added p_msg_index to call to
391: -- FND_MSG_PUB.Get.
392: -- 05-13-04 G Hall Bug# 3597495: Removed call to Register_Data_Location.
393: -- Final_Process_Logging now makes a call for each
394: -- valid Source System Code processed.
395: -- 08-23-05 G Hall Bug# 4521255: Fixed message decoding after API calls
421:
422: -- Call the FEM_PL_PKG.Register_Request API procedure to register
423: -- the concurrent request in FEM_PL_REQUESTS.
424:
425: FND_MSG_PUB.Initialize;
426:
427: FEM_PL_PKG.Register_Request
428: (P_API_VERSION => pc_API_version,
429: P_COMMIT => 'T',
456: -- Check for process locks and process overlaps, validate the Execution Mode
457: -- parameter, validate the period (for snapshot loads only), and register
458: -- the execution in FEM_PL_OBJECT_EXECUTIONS, obtaining an execution lock.
459:
460: FND_MSG_PUB.Initialize;
461:
462: FEM_PL_PKG.Register_Object_Execution
463: (P_API_VERSION => pc_API_version,
464: P_COMMIT => 'T',
520: -- Register the Object Definition ID together with this process execution in
521: -- FEM_PL_OBJECT_DEFS to establish the required edit locks on the executed
522: -- rule version.
523:
524: FND_MSG_PUB.Initialize;
525:
526: FEM_PL_PKG.Register_Object_Def
527: (P_API_VERSION => pc_API_version,
528: P_COMMIT => 'T',
556: ELSE
557: pv_stmt_type := 'MERGE';
558: END IF;
559:
560: FND_MSG_PUB.Initialize;
561:
562: FEM_PL_PKG.Register_Table
563: (P_API_VERSION => pc_API_version,
564: P_COMMIT => 'T',
603:
604: -- Technical messages have already been logged by the API; user
605: -- messages are on the message stack.
606:
607: FND_MSG_PUB.Count_and_Get(
608: p_encoded => 'F',
609: p_count => v_msg_count,
610: p_data => v_msg_data);
611:
643:
644: -- Try fuller call here; see Tim's doc.
645:
646: v_msg_data :=
647: FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
648:
649: FEM_ENGINES_PKG.Tech_Message
650: (p_severity => pc_log_level_statement,
651: p_module => 'fem.plsql.fem_gl_post_process_pkg.' ||
728: -- 03-10-04 G Hall Added OA-compliant parameters to all
729: -- Process Locks procedure calls.
730: -- 03-16-04 G Hall Added debug messages for message stack
731: -- operations; added p_msg_index to call to
732: -- FND_MSG_PUB.Get.
733: -- 03-17-04 G Hall Removed logging of p_final_message_name
734: -- parameter to the Debug Log and the
735: -- Concurrent Request Log. The parameter will
736: -- be eliminated altogether during MP
788: ELSE
789: v_statement_type := 'MERGE';
790: END IF;
791:
792: FND_MSG_PUB.Initialize;
793:
794: FEM_PL_PKG.Update_Num_of_Output_Rows
795: (P_API_VERSION => pc_API_version,
796: P_COMMIT => 'T',
850: X_MSG_COUNT => v_msg_count,
851: X_MSG_DATA => v_msg_data,
852: X_RETURN_STATUS => v_return_status);
853:
854: FND_MSG_PUB.Count_and_Get(
855: p_encoded => 'F',
856: p_count => v_msg_count,
857: p_data => v_msg_data);
858:
866:
867: FOR i IN 1 .. v_msg_count LOOP
868:
869: v_msg_data :=
870: FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
871:
872: FEM_ENGINES_PKG.User_Message
873: (p_app_name => 'FEM',
874: p_msg_text => v_msg_data);
1376: p_msg_name => 'FEM_GL_POST_022',
1377: p_token1 => 'DIMENSION_NAME',
1378: p_value1 => pv_dim_name);
1379:
1380: FND_MSG_PUB.Initialize;
1381:
1382: FEM_ENGINES_PKG.Put_Message
1383: (p_app_name => 'FEM',
1384: p_msg_name => 'FEM_GL_POST_022',
1384: p_msg_name => 'FEM_GL_POST_022',
1385: p_token1 => 'DIMENSION_NAME',
1386: p_value1 => pv_dim_name);
1387:
1388: pv_sqlerrm := FND_MSG_PUB.Get(1, p_encoded => 'F');
1389:
1390: WHEN OTHERS THEN
1391: ------------------------------------------------------------------
1392: -- Unexpected exceptions
6588: p_token2 => 'VAR_VAL',
6589: p_value2 => TO_CHAR(v_req_id));
6590:
6591: -- Initialize the FND Message API
6592: FND_MSG_PUB.Initialize;
6593: -- Register the concurrent request in FEM_PL_REQUESTS
6594: -- Bug fix 4285337: Pass the end date of each period when
6595: -- registering the request
6596: FEM_PL_PKG.Register_Request
6625: -- 4. Register execution for this Ledger/Output Dataset/Cal Period
6626: -- ---------------------------------------------------------------
6627:
6628: -- Initialize the FND Message API
6629: FND_MSG_PUB.Initialize;
6630: -- Check for process locks and process overlaps, validate the execution
6631: -- mode parameter, validate the period(s), and register the execution in
6632: -- FEM_PL_OBJECT_EXECUTIONS
6633: FEM_PL_PKG.Register_Object_Execution
6676: ELSIF v_msg_count > 1
6677: THEN
6678: -- More than one messages
6679: FOR i IN 1 .. v_msg_count LOOP
6680: v_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
6681: FEM_ENGINES_PKG.User_Message
6682: (p_app_name => 'FEM',
6683: p_msg_text => v_msg_data);
6684: END LOOP;
6693: WHERE CAL_PERIOD_ID = v_cp.cal_period_id
6694: AND OUTPUT_DATASET_CODE = v_ds.output_dataset_code;
6695:
6696: -- Initialize the FND Message API
6697: FND_MSG_PUB.Initialize;
6698: -- Unregister the request for this Cal Period/Output Dataset
6699: FEM_PL_PKG.Unregister_Request
6700: (P_API_VERSION => pc_API_version,
6701: P_COMMIT => 'T',
6715: ELSIF v_msg_count > 1
6716: THEN
6717: -- More than one messages
6718: FOR i IN 1 .. v_msg_count LOOP
6719: v_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
6720: FEM_ENGINES_PKG.User_Message
6721: (p_app_name => 'FEM',
6722: p_msg_text => v_msg_data);
6723: END LOOP;
6995: -- 6. Register table information for registered requests
6996: -- -----------------------------------------------------
6997: FOR v_req IN req_cur LOOP
6998: -- Initialize the FND Message API
6999: FND_MSG_PUB.Initialize;
7000: -- Log Undo information for this Request, which will insert/update the
7001: -- table FEM_BALANCES; pass pv_stmt_type as the statement type
7002: FEM_PL_PKG.Register_Table
7003: (P_API_VERSION => pc_API_version,
7115: ELSIF v_msg_count > 1
7116: THEN
7117: -- More than one messages
7118: FOR i IN 1 .. v_msg_count LOOP
7119: v_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
7120: FEM_ENGINES_PKG.User_Message
7121: (p_app_name => 'FEM',
7122: p_msg_text => v_msg_data);
7123: END LOOP;
7396: -- ---------------------------------------------------------------------
7397: IF (v_req.num_of_rows_posted > 0 AND p_exec_status = 'SUCCESS')
7398: THEN
7399: -- Initialize the FND Message API
7400: FND_MSG_PUB.Initialize;
7401: -- Update the number of output rows in FEM_PL_TABLES for this Request
7402: FEM_PL_PKG.Update_Num_of_Output_Rows
7403: (P_API_VERSION => pc_API_version,
7404: P_COMMIT => 'T',
7424: ELSIF v_msg_count > 1
7425: THEN
7426: -- More than one messages
7427: FOR i IN 1 .. v_msg_count LOOP
7428: v_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
7429: FEM_ENGINES_PKG.User_Message
7430: (p_app_name => 'FEM',
7431: p_msg_text => v_msg_data);
7432: END LOOP;
7441: -- ---------------------------------------------------------------------
7442: IF (v_req.num_of_rows_selected > v_req.num_of_rows_posted)
7443: THEN
7444: -- Initialize the FND Message API
7445: FND_MSG_PUB.Initialize;
7446: -- Update the number of data errors in FEM_PL_OBJECT_EXECUTIONS for
7447: -- this Request
7448: FEM_PL_PKG.Update_Obj_Exec_Errors
7449: (P_API_VERSION => pc_API_version,
7470: ELSIF v_msg_count > 1
7471: THEN
7472: -- More than one messages
7473: FOR i IN 1 .. v_msg_count LOOP
7474: v_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
7475: FEM_ENGINES_PKG.User_Message
7476: (p_app_name => 'FEM',
7477: p_msg_text => v_msg_data);
7478: END LOOP;
7511: -- ------------------------------------------------------------
7512: -- 4. Update the object execution status to ERROR_RERUN/SUCCESS
7513: -- ------------------------------------------------------------
7514: -- Initialize the FND Message API
7515: FND_MSG_PUB.Initialize;
7516: -- Update the object execution status
7517: FEM_PL_PKG.Update_Obj_Exec_Status
7518: (P_API_VERSION => pc_API_version,
7519: P_COMMIT => 'T',
7537: ELSIF v_msg_count > 1
7538: THEN
7539: -- More than one messages
7540: FOR i IN 1 .. v_msg_count LOOP
7541: v_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
7542: FEM_ENGINES_PKG.User_Message
7543: (p_app_name => 'FEM',
7544: p_msg_text => v_msg_data);
7545: END LOOP;
7548: -- -------------------------------------------------------------
7549: -- 5. Update the request execution status to ERROR_RERUN/SUCCESS
7550: -- -------------------------------------------------------------
7551: -- Initialize the FND Message API
7552: FND_MSG_PUB.Initialize;
7553: -- Update the request execution status
7554: FEM_PL_PKG.Update_Request_Status
7555: (P_API_VERSION => pc_API_version,
7556: P_COMMIT => 'T',
7573: ELSIF v_msg_count > 1
7574: THEN
7575: -- More than one messages
7576: FOR i IN 1 .. v_msg_count LOOP
7577: v_msg_data := FND_MSG_PUB.Get(p_msg_index => i, p_encoded => 'F');
7578: FEM_ENGINES_PKG.User_Message
7579: (p_app_name => 'FEM',
7580: p_msg_text => v_msg_data);
7581: END LOOP;