[Home] [Help]
1040: l_error_code VARCHAR2(30);
1041: l_person_id hz_parties.party_id%TYPE;
1042: l_person_number hz_parties.party_number%TYPE;
1043: l_progmajor_ind igs_da_setup.program_definition_ind%TYPE;
1044: l_prog_comparison_type igs_da_rqst.program_comparison_type%TYPE;
1045: pos1 NUMBER ;
1046: pos2 NUMBER ;
1047: pos3 NUMBER ;
1048: l_academicsubprogramcode1 igs_en_unit_set.unit_set_cd%TYPE;
1050: l_academicsubprogramcode3 igs_en_unit_set.unit_set_cd%TYPE;
1051:
1052: CURSOR c_prog_comp IS
1053: SELECT dr.program_comparison_type
1054: FROM igs_da_rqst dr
1055: WHERE dr.batch_id = RTRIM(LTRIM(p_batch_id)) ;
1056:
1057: CURSOR c_prog_def IS
1058: SELECT ds.program_definition_ind
1514: WHERE transaction_type='DA'
1515: and ep.transaction_id = et.transaction_id
1516: and ep.ext_type =
1517: (select dcry.request_type
1518: from igs_da_cnfg_req_typ dcry, igs_da_rqst dr
1519: where dr.batch_id = p_batch_id
1520: and dcry.request_type_id = dr.request_type_id )
1521: and ep.direction = 'OUT')
1522: )
1528: WHERE transaction_type='DA'
1529: and ep.transaction_id = et.transaction_id
1530: and ep.direction = 'OUT'
1531: and ep.ext_type = (select dcry.request_type
1532: from igs_da_cnfg_req_typ dcry, igs_da_rqst dr
1533: where dr.batch_id = p_batch_id
1534: and dcry.request_type_id = dr.request_type_id );
1535:
1536: /******************************************************************************/
1689: ) IS
1690: l_da_wf_admin_id fnd_profile_options.profile_option_name%TYPE := FND_PROFILE.VALUE('IGS_DA_WF_ADMIN');
1691: CURSOR c_request_status IS
1692: SELECT 'X'
1693: FROM igs_da_rqst dr
1694: WHERE dr.batch_id = p_batch_id
1695: FOR UPDATE OF dr.request_status NOWAIT;
1696:
1697: CURSOR c_requestor IS
1695: FOR UPDATE OF dr.request_status NOWAIT;
1696:
1697: CURSOR c_requestor IS
1698: SELECT dr.requestor_id,fdu.user_name
1699: FROM igs_da_rqst dr, fnd_user fdu
1700: WHERE dr.batch_id = p_batch_id
1701: AND dr.requestor_id = fdu.person_party_id;
1702: CURSOR c_da_wf_admin IS
1703: SELECT fdu.person_party_id,fdu.user_name
1718: BEGIN
1719: SAVEPOINT PROCESS_REPLY_FAILURE;
1720: ecx_debug.push('IGS_DA_XML_PKG.PROCESS_REPLY_FAILURE');
1721: FOR v_dummy IN c_request_status LOOP
1722: UPDATE igs_da_rqst
1723: SET request_status = 'ERROR'
1724: WHERE CURRENT OF c_request_status;
1725: END LOOP;
1726:
1767: l_request_err_count NUMBER(10):= 0;
1768:
1769: CURSOR c_request_status IS
1770: SELECT ROWID,dr.*
1771: FROM igs_da_rqst dr
1772: WHERE dr.batch_id = p_batch_id;
1773:
1774: BEGIN
1775:
1822: IF (l_request_err_count > 0 AND l_Clob_count > l_request_err_count) THEN l_request_status := 'COMPLETE_ERROR'; END IF;
1823: IF (l_request_err_count > 0 AND l_Clob_count = l_request_err_count) THEN l_request_status := 'SUBMIT_ERROR'; END IF;
1824: END IF;
1825:
1826: UPDATE igs_da_rqst
1827: SET REQUEST_STATUS = l_request_status
1828: WHERE batch_id = p_batch_id;
1829:
1830:
1843:
1844: PROCEDURE launch_notify_err_wf (p_batch_id igs_da_req_stdnts.batch_id%TYPE) IS
1845: l_item_key VARCHAR2(100);
1846: -- cursor to find the requestor
1847: CURSOR c_req (cp_batch_id igs_da_rqst.batch_id%TYPE) IS
1848: SELECT user_name
1849: FROM fnd_user
1850: WHERE person_party_id IN (SELECT requestor_id
1851: FROM igs_da_rqst
1847: CURSOR c_req (cp_batch_id igs_da_rqst.batch_id%TYPE) IS
1848: SELECT user_name
1849: FROM fnd_user
1850: WHERE person_party_id IN (SELECT requestor_id
1851: FROM igs_da_rqst
1852: WHERE batch_id = cp_batch_id);
1853: l_req VARCHAR2(2000);
1854: BEGIN
1855: ECX_DEBUG.PUSH('IGS_DA_XML_PKG.LAUNCH_NOTIFY_ERR_WF');