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.CSC_PROFILE_ENGINE_PKG dependencies on DBMS_SQL

Line 896: cid := dbms_sql.open_cursor;

892: v_acct_in_sql := 0;
893: End if;
894:
895: Begin
896: cid := dbms_sql.open_cursor;
897: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
898: dbms_sql.define_column(cid,1,val,240);
899:
900: OPEN cparty_csr;

Line 897: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

893: End if;
894:
895: Begin
896: cid := dbms_sql.open_cursor;
897: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
898: dbms_sql.define_column(cid,1,val,240);
899:
900: OPEN cparty_csr;
901: LOOP

Line 898: dbms_sql.define_column(cid,1,val,240);

894:
895: Begin
896: cid := dbms_sql.open_cursor;
897: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
898: dbms_sql.define_column(cid,1,val,240);
899:
900: OPEN cparty_csr;
901: LOOP
902: FETCH cparty_csr INTO cparty_id;

Line 935: IF (dbms_sql.is_open(cid)) THEN

931: END IF;
932: END LOOP;
933: CLOSE cparty_csr;
934:
935: IF (dbms_sql.is_open(cid)) THEN
936: dbms_sql.close_cursor(cid);
937: end if;
938:
939: Exception

Line 936: dbms_sql.close_cursor(cid);

932: END LOOP;
933: CLOSE cparty_csr;
934:
935: IF (dbms_sql.is_open(cid)) THEN
936: dbms_sql.close_cursor(cid);
937: end if;
938:
939: Exception
940: When others then

Line 941: IF (dbms_sql.is_open(cid)) THEN

937: end if;
938:
939: Exception
940: When others then
941: IF (dbms_sql.is_open(cid)) THEN
942: dbms_sql.close_cursor(cid);
943: end if;
944:
945: set_context('Evaluate_Checks1_No_Batch',

Line 942: dbms_sql.close_cursor(cid);

938:
939: Exception
940: When others then
941: IF (dbms_sql.is_open(cid)) THEN
942: dbms_sql.close_cursor(cid);
943: end if;
944:
945: set_context('Evaluate_Checks1_No_Batch',
946: 'chk_id=>'||to_char(chk_id),

Line 1231: cid := dbms_sql.open_cursor;

1227: /* This begin, end exception is added mainly for exception handing for Bug 1980004*/
1228: Begin
1229:
1230: IF ((sel_type='B' ) OR (sel_type='T') ) Then -- Only valid types
1231: cid := dbms_sql.open_cursor;
1232: if (sel_type = 'B') then
1233: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1234: elsif (sel_type = 'T') then
1235: dbms_sql.parse(cid, rule, dbms_sql.native);

Line 1233: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

1229:
1230: IF ((sel_type='B' ) OR (sel_type='T') ) Then -- Only valid types
1231: cid := dbms_sql.open_cursor;
1232: if (sel_type = 'B') then
1233: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1234: elsif (sel_type = 'T') then
1235: dbms_sql.parse(cid, rule, dbms_sql.native);
1236: end if;
1237: dbms_sql.define_column(cid,1,val,240);

Line 1235: dbms_sql.parse(cid, rule, dbms_sql.native);

1231: cid := dbms_sql.open_cursor;
1232: if (sel_type = 'B') then
1233: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1234: elsif (sel_type = 'T') then
1235: dbms_sql.parse(cid, rule, dbms_sql.native);
1236: end if;
1237: dbms_sql.define_column(cid,1,val,240);
1238:
1239: -- pass the cid

Line 1237: dbms_sql.define_column(cid,1,val,240);

1233: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1234: elsif (sel_type = 'T') then
1235: dbms_sql.parse(cid, rule, dbms_sql.native);
1236: end if;
1237: dbms_sql.define_column(cid,1,val,240);
1238:
1239: -- pass the cid
1240: OPEN cparty_csr;
1241: LOOP

Line 1292: IF (dbms_sql.is_open(cid)) THEN

1288:
1289:
1290: END LOOP;
1291: CLOSE cparty_csr;
1292: IF (dbms_sql.is_open(cid)) THEN
1293: dbms_sql.close_cursor(cid);
1294: end if;
1295: END IF;
1296: Exception

Line 1293: dbms_sql.close_cursor(cid);

1289:
1290: END LOOP;
1291: CLOSE cparty_csr;
1292: IF (dbms_sql.is_open(cid)) THEN
1293: dbms_sql.close_cursor(cid);
1294: end if;
1295: END IF;
1296: Exception
1297: When others then

Line 1299: IF (dbms_sql.is_open(cid)) THEN

1295: END IF;
1296: Exception
1297: When others then
1298:
1299: IF (dbms_sql.is_open(cid)) THEN
1300: dbms_sql.close_cursor(cid);
1301: end if;
1302:
1303: set_context('Evaluate_Checks1_Rule',

Line 1300: dbms_sql.close_cursor(cid);

1296: Exception
1297: When others then
1298:
1299: IF (dbms_sql.is_open(cid)) THEN
1300: dbms_sql.close_cursor(cid);
1301: end if;
1302:
1303: set_context('Evaluate_Checks1_Rule',
1304: 'chk_id=>'||to_char(chk_id),

Line 1610: cid := dbms_sql.open_cursor;

1606: -- Loop through all parties with accounts
1607: -- Added for 1850508
1608: --Open Cursor
1609: -- dbms_output.put_line('Opening and PArsing in checks1 Accounts Check_id -'||to_char(chk_id));
1610: cid := dbms_sql.open_cursor;
1611: IF (sel_type = 'B') THEN
1612: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1613: ELSIF (sel_type = 'T') THEN
1614: dbms_sql.parse(cid, rule, dbms_sql.native);

Line 1612: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

1608: --Open Cursor
1609: -- dbms_output.put_line('Opening and PArsing in checks1 Accounts Check_id -'||to_char(chk_id));
1610: cid := dbms_sql.open_cursor;
1611: IF (sel_type = 'B') THEN
1612: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1613: ELSIF (sel_type = 'T') THEN
1614: dbms_sql.parse(cid, rule, dbms_sql.native);
1615: END IF;
1616: dbms_sql.define_column(cid,1,val,240);

Line 1614: dbms_sql.parse(cid, rule, dbms_sql.native);

1610: cid := dbms_sql.open_cursor;
1611: IF (sel_type = 'B') THEN
1612: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1613: ELSIF (sel_type = 'T') THEN
1614: dbms_sql.parse(cid, rule, dbms_sql.native);
1615: END IF;
1616: dbms_sql.define_column(cid,1,val,240);
1617:
1618: OPEN caccount_csr;

Line 1616: dbms_sql.define_column(cid,1,val,240);

1612: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1613: ELSIF (sel_type = 'T') THEN
1614: dbms_sql.parse(cid, rule, dbms_sql.native);
1615: END IF;
1616: dbms_sql.define_column(cid,1,val,240);
1617:
1618: OPEN caccount_csr;
1619: LOOP
1620: FETCH caccount_csr INTO cparty_id, ccust_acct_id;

Line 1632: IF (dbms_sql.is_open(cid)) THEN

1628: ,cid);
1629: END LOOP;
1630: CLOSE caccount_csr;
1631:
1632: IF (dbms_sql.is_open(cid)) THEN
1633: dbms_sql.close_cursor(cid);
1634: END IF;
1635:
1636: END IF; -- Added for 1850508

Line 1633: dbms_sql.close_cursor(cid);

1629: END LOOP;
1630: CLOSE caccount_csr;
1631:
1632: IF (dbms_sql.is_open(cid)) THEN
1633: dbms_sql.close_cursor(cid);
1634: END IF;
1635:
1636: END IF; -- Added for 1850508
1637: END IF;

Line 1640: IF (dbms_sql.is_open(cid)) THEN

1636: END IF; -- Added for 1850508
1637: END IF;
1638: EXCEPTION
1639: WHEN OTHERS THEN
1640: IF (dbms_sql.is_open(cid)) THEN
1641: dbms_sql.close_cursor(cid);
1642: END IF;
1643:
1644: set_context('Evaluate_Checks2_JIT',

Line 1641: dbms_sql.close_cursor(cid);

1637: END IF;
1638: EXCEPTION
1639: WHEN OTHERS THEN
1640: IF (dbms_sql.is_open(cid)) THEN
1641: dbms_sql.close_cursor(cid);
1642: END IF;
1643:
1644: set_context('Evaluate_Checks2_JIT',
1645: 'chk_id=>'||to_char(chk_id),

Line 2212: cid := dbms_sql.open_cursor;

2208: -- Loop through all parties with accounts
2209: -- Added for 1850508
2210: --Open Cursor
2211: -- dbms_output.put_line('Opening and PArsing in checks1 Accounts Check_id -'||to_char(chk_id));
2212: cid := dbms_sql.open_cursor;
2213: if (sel_type = 'B') then
2214: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2215: elsif (sel_type = 'T') then
2216: dbms_sql.parse(cid, rule, dbms_sql.native);

Line 2214: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

2210: --Open Cursor
2211: -- dbms_output.put_line('Opening and PArsing in checks1 Accounts Check_id -'||to_char(chk_id));
2212: cid := dbms_sql.open_cursor;
2213: if (sel_type = 'B') then
2214: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2215: elsif (sel_type = 'T') then
2216: dbms_sql.parse(cid, rule, dbms_sql.native);
2217: end if;
2218: dbms_sql.define_column(cid,1,val,240);

Line 2216: dbms_sql.parse(cid, rule, dbms_sql.native);

2212: cid := dbms_sql.open_cursor;
2213: if (sel_type = 'B') then
2214: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2215: elsif (sel_type = 'T') then
2216: dbms_sql.parse(cid, rule, dbms_sql.native);
2217: end if;
2218: dbms_sql.define_column(cid,1,val,240);
2219:
2220: OPEN caccount_csr;

Line 2218: dbms_sql.define_column(cid,1,val,240);

2214: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2215: elsif (sel_type = 'T') then
2216: dbms_sql.parse(cid, rule, dbms_sql.native);
2217: end if;
2218: dbms_sql.define_column(cid,1,val,240);
2219:
2220: OPEN caccount_csr;
2221: LOOP
2222: FETCH caccount_csr

Line 2232: IF (dbms_sql.is_open(cid)) THEN

2228: l_up_total, l_ip_total, l_ua_total, l_ia_total ,cid)
2229: ;
2230: END LOOP;
2231: CLOSE caccount_csr;
2232: IF (dbms_sql.is_open(cid)) THEN
2233: dbms_sql.close_cursor(cid);
2234: end if;
2235: End if; -- Added for 1850508
2236: END IF;

Line 2233: dbms_sql.close_cursor(cid);

2229: ;
2230: END LOOP;
2231: CLOSE caccount_csr;
2232: IF (dbms_sql.is_open(cid)) THEN
2233: dbms_sql.close_cursor(cid);
2234: end if;
2235: End if; -- Added for 1850508
2236: END IF;
2237:

Line 2241: IF (dbms_sql.is_open(cid)) THEN

2237:
2238: Exception
2239:
2240: When others then
2241: IF (dbms_sql.is_open(cid)) THEN
2242: dbms_sql.close_cursor(cid);
2243: end if;
2244:
2245: set_context('Evaluate_Checks3',

Line 2242: dbms_sql.close_cursor(cid);

2238: Exception
2239:
2240: When others then
2241: IF (dbms_sql.is_open(cid)) THEN
2242: dbms_sql.close_cursor(cid);
2243: end if;
2244:
2245: set_context('Evaluate_Checks3',
2246: 'chk_id=>'||to_char(chk_id),

Line 3090: cid := dbms_sql.open_cursor;

3086: v_acct_in_sql := 0;
3087: End if;
3088:
3089: Begin
3090: cid := dbms_sql.open_cursor;
3091: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3092: dbms_sql.define_column(cid,1,val,240);
3093:
3094: OPEN cparty_csr;

Line 3091: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

3087: End if;
3088:
3089: Begin
3090: cid := dbms_sql.open_cursor;
3091: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3092: dbms_sql.define_column(cid,1,val,240);
3093:
3094: OPEN cparty_csr;
3095: LOOP

Line 3092: dbms_sql.define_column(cid,1,val,240);

3088:
3089: Begin
3090: cid := dbms_sql.open_cursor;
3091: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3092: dbms_sql.define_column(cid,1,val,240);
3093:
3094: OPEN cparty_csr;
3095: LOOP
3096: FETCH cparty_csr INTO cparty_id;

Line 3129: IF (dbms_sql.is_open(cid)) THEN

3125: END IF;
3126: END LOOP;
3127: CLOSE cparty_csr;
3128:
3129: IF (dbms_sql.is_open(cid)) THEN
3130: dbms_sql.close_cursor(cid);
3131: end if;
3132:
3133: Exception

Line 3130: dbms_sql.close_cursor(cid);

3126: END LOOP;
3127: CLOSE cparty_csr;
3128:
3129: IF (dbms_sql.is_open(cid)) THEN
3130: dbms_sql.close_cursor(cid);
3131: end if;
3132:
3133: Exception
3134: When others then

Line 3135: IF (dbms_sql.is_open(cid)) THEN

3131: end if;
3132:
3133: Exception
3134: When others then
3135: IF (dbms_sql.is_open(cid)) THEN
3136: dbms_sql.close_cursor(cid);
3137: end if;
3138:
3139: set_context('Evaluate_Checks4_No_Batch',

Line 3136: dbms_sql.close_cursor(cid);

3132:
3133: Exception
3134: When others then
3135: IF (dbms_sql.is_open(cid)) THEN
3136: dbms_sql.close_cursor(cid);
3137: end if;
3138:
3139: set_context('Evaluate_Checks4_No_Batch',
3140: 'chk_id=>'||to_char(chk_id),

Line 3429: cid := dbms_sql.open_cursor;

3425:
3426: -- Loop through all parties
3427:
3428: -- Open the Cursor
3429: cid := dbms_sql.open_cursor;
3430: if (sel_type = 'B') then
3431: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3432: elsif (sel_type = 'T') then
3433: dbms_sql.parse(cid, rule, dbms_sql.native);

Line 3431: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

3427:
3428: -- Open the Cursor
3429: cid := dbms_sql.open_cursor;
3430: if (sel_type = 'B') then
3431: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3432: elsif (sel_type = 'T') then
3433: dbms_sql.parse(cid, rule, dbms_sql.native);
3434: end if;
3435: dbms_sql.define_column(cid,1,val,240);

Line 3433: dbms_sql.parse(cid, rule, dbms_sql.native);

3429: cid := dbms_sql.open_cursor;
3430: if (sel_type = 'B') then
3431: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3432: elsif (sel_type = 'T') then
3433: dbms_sql.parse(cid, rule, dbms_sql.native);
3434: end if;
3435: dbms_sql.define_column(cid,1,val,240);
3436:
3437: -- pass the cid

Line 3435: dbms_sql.define_column(cid,1,val,240);

3431: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3432: elsif (sel_type = 'T') then
3433: dbms_sql.parse(cid, rule, dbms_sql.native);
3434: end if;
3435: dbms_sql.define_column(cid,1,val,240);
3436:
3437: -- pass the cid
3438: OPEN cparty_csr;
3439: LOOP

Line 3490: IF (dbms_sql.is_open(cid)) THEN

3486: END IF;
3487:
3488: END LOOP;
3489: CLOSE cparty_csr;
3490: IF (dbms_sql.is_open(cid)) THEN
3491: dbms_sql.close_cursor(cid);
3492: end if;
3493: END IF;
3494:

Line 3491: dbms_sql.close_cursor(cid);

3487:
3488: END LOOP;
3489: CLOSE cparty_csr;
3490: IF (dbms_sql.is_open(cid)) THEN
3491: dbms_sql.close_cursor(cid);
3492: end if;
3493: END IF;
3494:
3495: Exception

Line 3498: IF (dbms_sql.is_open(cid)) THEN

3494:
3495: Exception
3496:
3497: When others then
3498: IF (dbms_sql.is_open(cid)) THEN
3499: dbms_sql.close_cursor(cid);
3500: end if;
3501:
3502: set_context('Evaluate_Checks4_Rule',

Line 3499: dbms_sql.close_cursor(cid);

3495: Exception
3496:
3497: When others then
3498: IF (dbms_sql.is_open(cid)) THEN
3499: dbms_sql.close_cursor(cid);
3500: end if;
3501:
3502: set_context('Evaluate_Checks4_Rule',
3503: 'chk_id=>'||to_char(chk_id),

Line 3757: cid := dbms_sql.open_cursor;

3753: -- P_CID would be null when engine is being run for 1 party (e.g. evaluate_checks2)
3754:
3755: -- Added for 1850508
3756: if p_cid is null then
3757: cid := dbms_sql.open_cursor;
3758: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
3759: dbms_sql.define_column(cid,1,val,240);
3760: else
3761: cid := p_cid;

Line 3758: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);

3754:
3755: -- Added for 1850508
3756: if p_cid is null then
3757: cid := dbms_sql.open_cursor;
3758: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
3759: dbms_sql.define_column(cid,1,val,240);
3760: else
3761: cid := p_cid;
3762: end if;

Line 3759: dbms_sql.define_column(cid,1,val,240);

3755: -- Added for 1850508
3756: if p_cid is null then
3757: cid := dbms_sql.open_cursor;
3758: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
3759: dbms_sql.define_column(cid,1,val,240);
3760: else
3761: cid := p_cid;
3762: end if;
3763:

Line 3779: dbms_sql.bind_variable(cid, ':party_id', p_party_id);

3775:
3776: if p_check_level='PARTY' OR p_check_level = 'CONTACT' then
3777:
3778: if v_party_in_sql > 0 then
3779: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
3780: end if;
3781: if v_acct_in_sql > 0 then
3782: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
3783: end if;

Line 3782: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);

3778: if v_party_in_sql > 0 then
3779: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
3780: end if;
3781: if v_acct_in_sql > 0 then
3782: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
3783: end if;
3784:
3785: elsif p_check_level='ACCOUNT' then
3786: if v_party_in_sql > 0 then

Line 3787: dbms_sql.bind_variable(cid, ':party_id', p_party_id);

3783: end if;
3784:
3785: elsif p_check_level='ACCOUNT' then
3786: if v_party_in_sql > 0 then
3787: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
3788: end if;
3789:
3790: if v_acct_in_sql > 0 then
3791: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);

Line 3791: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);

3787: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
3788: end if;
3789:
3790: if v_acct_in_sql > 0 then
3791: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
3792: end if;
3793: /* R12 Employee HelpDesk Modifications */
3794: elsif p_check_level='EMPLOYEE' then
3795: if v_employee_in_sql > 0 then

Line 3796: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);

3792: end if;
3793: /* R12 Employee HelpDesk Modifications */
3794: elsif p_check_level='EMPLOYEE' then
3795: if v_employee_in_sql > 0 then
3796: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);
3797: end if;
3798:
3799: end if;
3800:

Line 3802: dummy := dbms_sql.execute_and_fetch(cid);

3798:
3799: end if;
3800:
3801:
3802: dummy := dbms_sql.execute_and_fetch(cid);
3803:
3804: /* added the below condition for bug 3787383 */
3805: IF dummy > 0 THEN
3806: dbms_sql.column_value(cid,1,val);

Line 3806: dbms_sql.column_value(cid,1,val);

3802: dummy := dbms_sql.execute_and_fetch(cid);
3803:
3804: /* added the below condition for bug 3787383 */
3805: IF dummy > 0 THEN
3806: dbms_sql.column_value(cid,1,val);
3807: ELSE
3808: val := NULL;
3809: END IF;
3810:

Line 3812: dbms_sql.close_cursor(cid);

3808: val := NULL;
3809: END IF;
3810:
3811: if p_cid is null then
3812: dbms_sql.close_cursor(cid);
3813: end if;
3814:
3815: -- END IF;
3816:

Line 3820: IF (dbms_sql.is_open(cid)) THEN

3816:
3817: Exception
3818: When Others then
3819: if p_cid is null then
3820: IF (dbms_sql.is_open(cid)) THEN
3821: dbms_sql.close_cursor(cid);
3822: END IF;
3823: end if;
3824: val := '0';

Line 3821: dbms_sql.close_cursor(cid);

3817: Exception
3818: When Others then
3819: if p_cid is null then
3820: IF (dbms_sql.is_open(cid)) THEN
3821: dbms_sql.close_cursor(cid);
3822: END IF;
3823: end if;
3824: val := '0';
3825: End;

Line 3832: cid := dbms_sql.open_cursor;

3828: Begin
3829:
3830: -- Added for 1850508
3831: if (p_cid is null) then
3832: cid := dbms_sql.open_cursor;
3833: dbms_sql.parse(cid, p_rule, dbms_sql.native);
3834: else
3835: cid := p_cid;
3836: end if;

Line 3833: dbms_sql.parse(cid, p_rule, dbms_sql.native);

3829:
3830: -- Added for 1850508
3831: if (p_cid is null) then
3832: cid := dbms_sql.open_cursor;
3833: dbms_sql.parse(cid, p_rule, dbms_sql.native);
3834: else
3835: cid := p_cid;
3836: end if;
3837:

Line 3851: dbms_sql.bind_variable(cid, ':party_id', p_party_id);

3847: End if;
3848:
3849: IF p_check_level='PARTY' OR p_check_level = 'CONTACT' THEN
3850: if v_party_in_sql > 0 then
3851: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
3852: end if;
3853: if v_acct_in_sql > 0 then
3854: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
3855: end if;

Line 3854: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);

3850: if v_party_in_sql > 0 then
3851: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
3852: end if;
3853: if v_acct_in_sql > 0 then
3854: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
3855: end if;
3856:
3857: ELSIF p_check_level='ACCOUNT' then
3858: if v_party_in_sql > 0 then

Line 3859: dbms_sql.bind_variable(cid, ':party_id', p_party_id);

3855: end if;
3856:
3857: ELSIF p_check_level='ACCOUNT' then
3858: if v_party_in_sql > 0 then
3859: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
3860: end if;
3861:
3862: if v_acct_in_sql > 0 then
3863: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);

Line 3863: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);

3859: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
3860: end if;
3861:
3862: if v_acct_in_sql > 0 then
3863: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
3864: end if;
3865: /* R12 Employee HelpDesk Modifications */
3866: ELSIF p_check_level='EMPLOYEE' then
3867: if v_employee_in_sql > 0 then

Line 3868: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);

3864: end if;
3865: /* R12 Employee HelpDesk Modifications */
3866: ELSIF p_check_level='EMPLOYEE' then
3867: if v_employee_in_sql > 0 then
3868: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);
3869: end if;
3870: END IF;
3871:
3872: val := dbms_sql.execute_and_fetch(cid); -- returns 0 if no rows found

Line 3872: val := dbms_sql.execute_and_fetch(cid); -- returns 0 if no rows found

3868: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);
3869: end if;
3870: END IF;
3871:
3872: val := dbms_sql.execute_and_fetch(cid); -- returns 0 if no rows found
3873: -- Added for 1850508
3874: if (p_cid is null) then
3875: dbms_sql.close_cursor(cid);
3876: end if;

Line 3875: dbms_sql.close_cursor(cid);

3871:
3872: val := dbms_sql.execute_and_fetch(cid); -- returns 0 if no rows found
3873: -- Added for 1850508
3874: if (p_cid is null) then
3875: dbms_sql.close_cursor(cid);
3876: end if;
3877: Exception
3878: When Others then
3879: if (p_cid is null) then

Line 3880: IF (dbms_sql.is_open(cid)) THEN

3876: end if;
3877: Exception
3878: When Others then
3879: if (p_cid is null) then
3880: IF (dbms_sql.is_open(cid)) THEN
3881: dbms_sql.close_cursor(cid);
3882: end if;
3883: end if;
3884: val := null;

Line 3881: dbms_sql.close_cursor(cid);

3877: Exception
3878: When Others then
3879: if (p_cid is null) then
3880: IF (dbms_sql.is_open(cid)) THEN
3881: dbms_sql.close_cursor(cid);
3882: end if;
3883: end if;
3884: val := null;
3885: End;

Line 4174: IF (dbms_sql.is_open(cid)) THEN

4170: CLOSE account_check_crs;
4171: END IF;
4172: */
4173: if p_cid is null then
4174: IF (dbms_sql.is_open(cid)) THEN
4175: dbms_sql.close_cursor(cid);
4176: END IF;
4177: end if;
4178: set_context('Evaluate_One_Check',

Line 4175: dbms_sql.close_cursor(cid);

4171: END IF;
4172: */
4173: if p_cid is null then
4174: IF (dbms_sql.is_open(cid)) THEN
4175: dbms_sql.close_cursor(cid);
4176: END IF;
4177: end if;
4178: set_context('Evaluate_One_Check',
4179: 'chk_id=>'||to_char(p_chk_id),

Line 4273: cid := dbms_sql.open_cursor;

4269: -- IF ((v_party_in_sql <> 0) and (v_acct_in_sql <> 0)) Then
4270: -- Loop through per party
4271: -- Added for 1850508
4272: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing.PARTY Level.'||to_char(blk_id));
4273: cid := dbms_sql.open_cursor;
4274: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4275: dbms_sql.define_column(cid, 1, val, 240);
4276:
4277: OPEN bparty_csr;

Line 4274: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

4270: -- Loop through per party
4271: -- Added for 1850508
4272: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing.PARTY Level.'||to_char(blk_id));
4273: cid := dbms_sql.open_cursor;
4274: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4275: dbms_sql.define_column(cid, 1, val, 240);
4276:
4277: OPEN bparty_csr;
4278: LOOP

Line 4275: dbms_sql.define_column(cid, 1, val, 240);

4271: -- Added for 1850508
4272: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing.PARTY Level.'||to_char(blk_id));
4273: cid := dbms_sql.open_cursor;
4274: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4275: dbms_sql.define_column(cid, 1, val, 240);
4276:
4277: OPEN bparty_csr;
4278: LOOP
4279: FETCH bparty_csr INTO bparty_id;

Line 4313: IF (dbms_sql.is_open(cid)) THEN

4309: END IF; -- Added for 1850508
4310:
4311: END LOOP;
4312: CLOSE bparty_csr;
4313: IF (dbms_sql.is_open(cid)) THEN
4314: dbms_sql.close_cursor(cid);
4315: end if;
4316: -- END IF;
4317:

Line 4314: dbms_sql.close_cursor(cid);

4310:
4311: END LOOP;
4312: CLOSE bparty_csr;
4313: IF (dbms_sql.is_open(cid)) THEN
4314: dbms_sql.close_cursor(cid);
4315: end if;
4316: -- END IF;
4317:
4318: Exception

Line 4320: IF (dbms_sql.is_open(cid)) THEN

4316: -- END IF;
4317:
4318: Exception
4319: When others then
4320: IF (dbms_sql.is_open(cid)) THEN
4321: dbms_sql.close_cursor(cid);
4322: end if;
4323:
4324: set_context('Evaluate_Blocks1', blk_id, bparty_id);

Line 4321: dbms_sql.close_cursor(cid);

4317:
4318: Exception
4319: When others then
4320: IF (dbms_sql.is_open(cid)) THEN
4321: dbms_sql.close_cursor(cid);
4322: end if;
4323:
4324: set_context('Evaluate_Blocks1', blk_id, bparty_id);
4325: g_error := sqlcode || ' ' || sqlerrm;

Line 4460: cid := dbms_sql.open_cursor;

4456: v_party_in_sql := INSTR(lower(sql_stmt),':party_id',1);
4457: v_acct_in_sql := INSTR(lower(sql_stmt),':cust_account_id',1);
4458:
4459: Begin
4460: cid := dbms_sql.open_cursor;
4461: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4462: dbms_sql.define_column(cid, 1, val, 240);
4463:
4464: OPEN bparty_csr;

Line 4461: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

4457: v_acct_in_sql := INSTR(lower(sql_stmt),':cust_account_id',1);
4458:
4459: Begin
4460: cid := dbms_sql.open_cursor;
4461: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4462: dbms_sql.define_column(cid, 1, val, 240);
4463:
4464: OPEN bparty_csr;
4465: LOOP

Line 4462: dbms_sql.define_column(cid, 1, val, 240);

4458:
4459: Begin
4460: cid := dbms_sql.open_cursor;
4461: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4462: dbms_sql.define_column(cid, 1, val, 240);
4463:
4464: OPEN bparty_csr;
4465: LOOP
4466: FETCH bparty_csr INTO bparty_id;

Line 4492: IF (dbms_sql.is_open(cid)) THEN

4488: END IF; -- Added for 1850508
4489: END LOOP;
4490: CLOSE bparty_csr;
4491:
4492: IF (dbms_sql.is_open(cid)) THEN
4493: dbms_sql.close_cursor(cid);
4494: end if;
4495:
4496: Exception

Line 4493: dbms_sql.close_cursor(cid);

4489: END LOOP;
4490: CLOSE bparty_csr;
4491:
4492: IF (dbms_sql.is_open(cid)) THEN
4493: dbms_sql.close_cursor(cid);
4494: end if;
4495:
4496: Exception
4497: When others then

Line 4498: IF (dbms_sql.is_open(cid)) THEN

4494: end if;
4495:
4496: Exception
4497: When others then
4498: IF (dbms_sql.is_open(cid)) THEN
4499: dbms_sql.close_cursor(cid);
4500: end if;
4501: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
4502: g_error := sqlcode || ' ' || sqlerrm;

Line 4499: dbms_sql.close_cursor(cid);

4495:
4496: Exception
4497: When others then
4498: IF (dbms_sql.is_open(cid)) THEN
4499: dbms_sql.close_cursor(cid);
4500: end if;
4501: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
4502: g_error := sqlcode || ' ' || sqlerrm;
4503: set_context(NULL, g_error);

Line 4539: IF (dbms_sql.is_open(cid)) THEN

4535: IF (baccount_csr%isopen) THEN
4536: CLOSE baccount_csr;
4537: END IF;
4538:
4539: IF (dbms_sql.is_open(cid)) THEN
4540: dbms_sql.close_cursor(cid);
4541: end if;
4542: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
4543: g_error := sqlcode || ' ' || sqlerrm;

Line 4540: dbms_sql.close_cursor(cid);

4536: CLOSE baccount_csr;
4537: END IF;
4538:
4539: IF (dbms_sql.is_open(cid)) THEN
4540: dbms_sql.close_cursor(cid);
4541: end if;
4542: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
4543: g_error := sqlcode || ' ' || sqlerrm;
4544: set_context(NULL, g_error);

Line 4675: cid := dbms_sql.open_cursor;

4671: --p_old_block_id:=null;
4672:
4673: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing. ACCTLevel.'||to_char(blk_id));
4674:
4675: cid := dbms_sql.open_cursor;
4676: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4677: dbms_sql.define_column(cid, 1, val, 240);
4678:
4679: /* changed bparty_id to p_party_id for bug 5351401 */

Line 4676: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

4672:
4673: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing. ACCTLevel.'||to_char(blk_id));
4674:
4675: cid := dbms_sql.open_cursor;
4676: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4677: dbms_sql.define_column(cid, 1, val, 240);
4678:
4679: /* changed bparty_id to p_party_id for bug 5351401 */
4680: v_party_id := p_party_id;

Line 4677: dbms_sql.define_column(cid, 1, val, 240);

4673: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing. ACCTLevel.'||to_char(blk_id));
4674:
4675: cid := dbms_sql.open_cursor;
4676: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4677: dbms_sql.define_column(cid, 1, val, 240);
4678:
4679: /* changed bparty_id to p_party_id for bug 5351401 */
4680: v_party_id := p_party_id;
4681:

Line 4695: IF (dbms_sql.is_open(cid)) THEN

4691: ,cid);
4692: END LOOP;
4693: CLOSE baccount_csr;
4694:
4695: IF (dbms_sql.is_open(cid)) THEN
4696: dbms_sql.close_cursor(cid);
4697: End if;
4698:
4699: END IF; -- Added for 1850508

Line 4696: dbms_sql.close_cursor(cid);

4692: END LOOP;
4693: CLOSE baccount_csr;
4694:
4695: IF (dbms_sql.is_open(cid)) THEN
4696: dbms_sql.close_cursor(cid);
4697: End if;
4698:
4699: END IF; -- Added for 1850508
4700:

Line 4710: IF (dbms_sql.is_open(cid)) THEN

4706: -- check if there are still records to be inserted
4707: Exception
4708: When others then
4709:
4710: IF (dbms_sql.is_open(cid)) THEN
4711: dbms_sql.close_cursor(cid);
4712: End if;
4713:
4714: set_context('Evaluate_Blocks2', blk_id, bparty_id);

Line 4711: dbms_sql.close_cursor(cid);

4707: Exception
4708: When others then
4709:
4710: IF (dbms_sql.is_open(cid)) THEN
4711: dbms_sql.close_cursor(cid);
4712: End if;
4713:
4714: set_context('Evaluate_Blocks2', blk_id, bparty_id);
4715: g_error := sqlcode || ' ' || sqlerrm;

Line 4840: cid := dbms_sql.open_cursor;

4836: -- Loop through per party
4837: -- Added for 1850508
4838: -- dbms_output.put_line('Evaluate blocks4 Opening and Parsing.PARTY Level.'||to_char(blk_id));
4839:
4840: cid := dbms_sql.open_cursor;
4841: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4842: dbms_sql.define_column(cid, 1, val, 240);
4843:
4844: OPEN bparty_csr;

Line 4841: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

4837: -- Added for 1850508
4838: -- dbms_output.put_line('Evaluate blocks4 Opening and Parsing.PARTY Level.'||to_char(blk_id));
4839:
4840: cid := dbms_sql.open_cursor;
4841: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4842: dbms_sql.define_column(cid, 1, val, 240);
4843:
4844: OPEN bparty_csr;
4845: LOOP

Line 4842: dbms_sql.define_column(cid, 1, val, 240);

4838: -- dbms_output.put_line('Evaluate blocks4 Opening and Parsing.PARTY Level.'||to_char(blk_id));
4839:
4840: cid := dbms_sql.open_cursor;
4841: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4842: dbms_sql.define_column(cid, 1, val, 240);
4843:
4844: OPEN bparty_csr;
4845: LOOP
4846: FETCH bparty_csr INTO bparty_id;

Line 4880: IF (dbms_sql.is_open(cid)) THEN

4876: END IF; -- Added for 1850508
4877:
4878: END LOOP;
4879: CLOSE bparty_csr;
4880: IF (dbms_sql.is_open(cid)) THEN
4881: dbms_sql.close_cursor(cid);
4882: end if;
4883: -- END IF;
4884: Exception

Line 4881: dbms_sql.close_cursor(cid);

4877:
4878: END LOOP;
4879: CLOSE bparty_csr;
4880: IF (dbms_sql.is_open(cid)) THEN
4881: dbms_sql.close_cursor(cid);
4882: end if;
4883: -- END IF;
4884: Exception
4885:

Line 4888: IF (dbms_sql.is_open(cid)) THEN

4884: Exception
4885:
4886: When others then
4887:
4888: IF (dbms_sql.is_open(cid)) THEN
4889: dbms_sql.close_cursor(cid);
4890: end if;
4891: set_context('Evaluate_Blocks4', blk_id, bparty_id);
4892: g_error := sqlcode || ' ' || sqlerrm;

Line 4889: dbms_sql.close_cursor(cid);

4885:
4886: When others then
4887:
4888: IF (dbms_sql.is_open(cid)) THEN
4889: dbms_sql.close_cursor(cid);
4890: end if;
4891: set_context('Evaluate_Blocks4', blk_id, bparty_id);
4892: g_error := sqlcode || ' ' || sqlerrm;
4893: set_context(NULL, g_error);

Line 4930: IF (dbms_sql.is_open(cid)) THEN

4926: IF (baccount_csr%isopen) THEN
4927: CLOSE baccount_csr;
4928: END IF;
4929:
4930: IF (dbms_sql.is_open(cid)) THEN
4931: dbms_sql.close_cursor(cid);
4932: end if;
4933: set_context('Evaluate_Blocks4', blk_id, bparty_id);
4934: g_error := sqlcode || ' ' || sqlerrm;

Line 4931: dbms_sql.close_cursor(cid);

4927: CLOSE baccount_csr;
4928: END IF;
4929:
4930: IF (dbms_sql.is_open(cid)) THEN
4931: dbms_sql.close_cursor(cid);
4932: end if;
4933: set_context('Evaluate_Blocks4', blk_id, bparty_id);
4934: g_error := sqlcode || ' ' || sqlerrm;
4935: set_context(NULL, g_error);

Line 5032: cid := dbms_sql.open_cursor;

5028: v_party_in_sql := INSTR(lower(sql_stmt),':party_id',1);
5029: v_acct_in_sql := INSTR(lower(sql_stmt),':cust_account_id',1);
5030:
5031: Begin
5032: cid := dbms_sql.open_cursor;
5033: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5034: dbms_sql.define_column(cid, 1, val, 240);
5035:
5036: OPEN bparty_csr;

Line 5033: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

5029: v_acct_in_sql := INSTR(lower(sql_stmt),':cust_account_id',1);
5030:
5031: Begin
5032: cid := dbms_sql.open_cursor;
5033: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5034: dbms_sql.define_column(cid, 1, val, 240);
5035:
5036: OPEN bparty_csr;
5037: LOOP

Line 5034: dbms_sql.define_column(cid, 1, val, 240);

5030:
5031: Begin
5032: cid := dbms_sql.open_cursor;
5033: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5034: dbms_sql.define_column(cid, 1, val, 240);
5035:
5036: OPEN bparty_csr;
5037: LOOP
5038: FETCH bparty_csr INTO bparty_id;

Line 5064: IF (dbms_sql.is_open(cid)) THEN

5060: END IF; -- Added for 1850508
5061: END LOOP;
5062: CLOSE bparty_csr;
5063:
5064: IF (dbms_sql.is_open(cid)) THEN
5065: dbms_sql.close_cursor(cid);
5066: end if;
5067:
5068: Exception

Line 5065: dbms_sql.close_cursor(cid);

5061: END LOOP;
5062: CLOSE bparty_csr;
5063:
5064: IF (dbms_sql.is_open(cid)) THEN
5065: dbms_sql.close_cursor(cid);
5066: end if;
5067:
5068: Exception
5069: When others then

Line 5070: IF (dbms_sql.is_open(cid)) THEN

5066: end if;
5067:
5068: Exception
5069: When others then
5070: IF (dbms_sql.is_open(cid)) THEN
5071: dbms_sql.close_cursor(cid);
5072: end if;
5073: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
5074: g_error := sqlcode || ' ' || sqlerrm;

Line 5071: dbms_sql.close_cursor(cid);

5067:
5068: Exception
5069: When others then
5070: IF (dbms_sql.is_open(cid)) THEN
5071: dbms_sql.close_cursor(cid);
5072: end if;
5073: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
5074: g_error := sqlcode || ' ' || sqlerrm;
5075: set_context(NULL, g_error);

Line 5111: IF (dbms_sql.is_open(cid)) THEN

5107: IF (baccount_csr%isopen) THEN
5108: CLOSE baccount_csr;
5109: END IF;
5110:
5111: IF (dbms_sql.is_open(cid)) THEN
5112: dbms_sql.close_cursor(cid);
5113: end if;
5114: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
5115: g_error := sqlcode || ' ' || sqlerrm;

Line 5112: dbms_sql.close_cursor(cid);

5108: CLOSE baccount_csr;
5109: END IF;
5110:
5111: IF (dbms_sql.is_open(cid)) THEN
5112: dbms_sql.close_cursor(cid);
5113: end if;
5114: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
5115: g_error := sqlcode || ' ' || sqlerrm;
5116: set_context(NULL, g_error);

Line 5343: cid := dbms_sql.open_cursor;

5339: EXIT WHEN v_block_curvar%notfound;
5340: v_party_in_sql := INSTR(lower(v_rec_var.sql_stmnt),':party_id',1);
5341: v_block_id := v_rec_var.block_id;
5342: BEGIN
5343: cid := dbms_sql.open_cursor;
5344: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
5345: dbms_sql.define_column(cid, 1, val, 240);
5346:
5347: OPEN relparty_csr;

Line 5344: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);

5340: v_party_in_sql := INSTR(lower(v_rec_var.sql_stmnt),':party_id',1);
5341: v_block_id := v_rec_var.block_id;
5342: BEGIN
5343: cid := dbms_sql.open_cursor;
5344: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
5345: dbms_sql.define_column(cid, 1, val, 240);
5346:
5347: OPEN relparty_csr;
5348: LOOP

Line 5345: dbms_sql.define_column(cid, 1, val, 240);

5341: v_block_id := v_rec_var.block_id;
5342: BEGIN
5343: cid := dbms_sql.open_cursor;
5344: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
5345: dbms_sql.define_column(cid, 1, val, 240);
5346:
5347: OPEN relparty_csr;
5348: LOOP
5349: FETCH relparty_csr INTO v_party_id;

Line 5358: IF (dbms_sql.is_open(cid)) THEN

5354: p_up_total, p_ip_total, p_ua_total, p_ia_total,cid);
5355: END LOOP;
5356: CLOSE relparty_csr;
5357:
5358: IF (dbms_sql.is_open(cid)) THEN
5359: dbms_sql.close_cursor(cid);
5360: END IF;
5361:
5362: EXCEPTION

Line 5359: dbms_sql.close_cursor(cid);

5355: END LOOP;
5356: CLOSE relparty_csr;
5357:
5358: IF (dbms_sql.is_open(cid)) THEN
5359: dbms_sql.close_cursor(cid);
5360: END IF;
5361:
5362: EXCEPTION
5363: WHEN others THEN

Line 5364: IF (dbms_sql.is_open(cid)) THEN

5360: END IF;
5361:
5362: EXCEPTION
5363: WHEN others THEN
5364: IF (dbms_sql.is_open(cid)) THEN
5365: dbms_sql.close_cursor(cid);
5366: END IF;
5367:
5368: set_context('Evaluate_Blocks_Rel', v_block_id, v_party_id);

Line 5365: dbms_sql.close_cursor(cid);

5361:
5362: EXCEPTION
5363: WHEN others THEN
5364: IF (dbms_sql.is_open(cid)) THEN
5365: dbms_sql.close_cursor(cid);
5366: END IF;
5367:
5368: set_context('Evaluate_Blocks_Rel', v_block_id, v_party_id);
5369: g_error := sqlcode || ' ' || sqlerrm;

Line 5579: cid := dbms_sql.open_cursor;

5575: END IF;
5576:
5577: BEGIN
5578: IF ((sel_type='B' ) OR (sel_type='T') ) THEN
5579: cid := dbms_sql.open_cursor;
5580: IF (sel_type = 'B') THEN
5581: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5582: ELSIF (sel_type = 'T') then
5583: dbms_sql.parse(cid, rule, dbms_sql.native);

Line 5581: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

5577: BEGIN
5578: IF ((sel_type='B' ) OR (sel_type='T') ) THEN
5579: cid := dbms_sql.open_cursor;
5580: IF (sel_type = 'B') THEN
5581: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5582: ELSIF (sel_type = 'T') then
5583: dbms_sql.parse(cid, rule, dbms_sql.native);
5584: END IF;
5585: dbms_sql.define_column(cid,1,val,240);

Line 5583: dbms_sql.parse(cid, rule, dbms_sql.native);

5579: cid := dbms_sql.open_cursor;
5580: IF (sel_type = 'B') THEN
5581: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5582: ELSIF (sel_type = 'T') then
5583: dbms_sql.parse(cid, rule, dbms_sql.native);
5584: END IF;
5585: dbms_sql.define_column(cid,1,val,240);
5586:
5587: OPEN crelparty_csr;

Line 5585: dbms_sql.define_column(cid,1,val,240);

5581: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5582: ELSIF (sel_type = 'T') then
5583: dbms_sql.parse(cid, rule, dbms_sql.native);
5584: END IF;
5585: dbms_sql.define_column(cid,1,val,240);
5586:
5587: OPEN crelparty_csr;
5588: LOOP
5589: FETCH crelparty_csr INTO cparty_id;

Line 5596: IF (dbms_sql.is_open(cid)) THEN

5592: sel_type, sel_blk_id,data_type, fmt_mask,chk_u_l_flag,Thd_grade, rule, blk_id, sql_stmt,
5593: curr_code, l_up_total, l_ip_total, l_ua_total, l_ia_total ,cid);
5594: END LOOP;
5595: CLOSE crelparty_csr;
5596: IF (dbms_sql.is_open(cid)) THEN
5597: dbms_sql.close_cursor(cid);
5598: END IF;
5599: END IF;
5600: Exception

Line 5597: dbms_sql.close_cursor(cid);

5593: curr_code, l_up_total, l_ip_total, l_ua_total, l_ia_total ,cid);
5594: END LOOP;
5595: CLOSE crelparty_csr;
5596: IF (dbms_sql.is_open(cid)) THEN
5597: dbms_sql.close_cursor(cid);
5598: END IF;
5599: END IF;
5600: Exception
5601: When others then

Line 5602: IF (dbms_sql.is_open(cid)) THEN

5598: END IF;
5599: END IF;
5600: Exception
5601: When others then
5602: IF (dbms_sql.is_open(cid)) THEN
5603: dbms_sql.close_cursor(cid);
5604: end if;
5605: set_context('Evaluate_Checks_Rel',
5606: 'chk_id=>'||to_char(chk_id),

Line 5603: dbms_sql.close_cursor(cid);

5599: END IF;
5600: Exception
5601: When others then
5602: IF (dbms_sql.is_open(cid)) THEN
5603: dbms_sql.close_cursor(cid);
5604: end if;
5605: set_context('Evaluate_Checks_Rel',
5606: 'chk_id=>'||to_char(chk_id),
5607: 'party_id=>'||to_char(cparty_id),

Line 5803: cid := dbms_sql.open_cursor;

5799: EXIT WHEN v_block_curvar%notfound;
5800: v_employee_in_sql := INSTR(lower(v_rec_var.sql_stmnt),':employee_id',1);
5801: v_block_id := v_rec_var.block_id;
5802: BEGIN
5803: cid := dbms_sql.open_cursor;
5804: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
5805: dbms_sql.define_column(cid, 1, val, 240);
5806:
5807: OPEN employee_csr;

Line 5804: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);

5800: v_employee_in_sql := INSTR(lower(v_rec_var.sql_stmnt),':employee_id',1);
5801: v_block_id := v_rec_var.block_id;
5802: BEGIN
5803: cid := dbms_sql.open_cursor;
5804: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
5805: dbms_sql.define_column(cid, 1, val, 240);
5806:
5807: OPEN employee_csr;
5808: LOOP

Line 5805: dbms_sql.define_column(cid, 1, val, 240);

5801: v_block_id := v_rec_var.block_id;
5802: BEGIN
5803: cid := dbms_sql.open_cursor;
5804: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
5805: dbms_sql.define_column(cid, 1, val, 240);
5806:
5807: OPEN employee_csr;
5808: LOOP
5809: FETCH employee_csr INTO v_party_id;

Line 5818: IF (dbms_sql.is_open(cid)) THEN

5814: p_up_total, p_ip_total, p_ua_total, p_ia_total,cid);
5815: END LOOP;
5816: CLOSE employee_csr;
5817:
5818: IF (dbms_sql.is_open(cid)) THEN
5819: dbms_sql.close_cursor(cid);
5820: END IF;
5821:
5822: EXCEPTION

Line 5819: dbms_sql.close_cursor(cid);

5815: END LOOP;
5816: CLOSE employee_csr;
5817:
5818: IF (dbms_sql.is_open(cid)) THEN
5819: dbms_sql.close_cursor(cid);
5820: END IF;
5821:
5822: EXCEPTION
5823: WHEN others THEN

Line 5824: IF (dbms_sql.is_open(cid)) THEN

5820: END IF;
5821:
5822: EXCEPTION
5823: WHEN others THEN
5824: IF (dbms_sql.is_open(cid)) THEN
5825: dbms_sql.close_cursor(cid);
5826: END IF;
5827:
5828: set_context('Evaluate_Blocks_Emp', v_block_id, v_party_id);

Line 5825: dbms_sql.close_cursor(cid);

5821:
5822: EXCEPTION
5823: WHEN others THEN
5824: IF (dbms_sql.is_open(cid)) THEN
5825: dbms_sql.close_cursor(cid);
5826: END IF;
5827:
5828: set_context('Evaluate_Blocks_Emp', v_block_id, v_party_id);
5829: g_error := sqlcode || ' ' || sqlerrm;

Line 6041: cid := dbms_sql.open_cursor;

6037:
6038: BEGIN
6039:
6040: IF ((sel_type='B' ) OR (sel_type='T') ) THEN
6041: cid := dbms_sql.open_cursor;
6042:
6043:
6044: IF (sel_type='B') THEN
6045:

Line 6046: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);

6042:
6043:
6044: IF (sel_type='B') THEN
6045:
6046: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6047: ELSIF (sel_type = 'T') THEN
6048: dbms_sql.parse(cid, rule, dbms_sql.native);
6049: END IF;
6050:

Line 6048: dbms_sql.parse(cid, rule, dbms_sql.native);

6044: IF (sel_type='B') THEN
6045:
6046: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6047: ELSIF (sel_type = 'T') THEN
6048: dbms_sql.parse(cid, rule, dbms_sql.native);
6049: END IF;
6050:
6051: dbms_sql.define_column(cid,1,val,240);
6052: OPEN employee_csr;

Line 6051: dbms_sql.define_column(cid,1,val,240);

6047: ELSIF (sel_type = 'T') THEN
6048: dbms_sql.parse(cid, rule, dbms_sql.native);
6049: END IF;
6050:
6051: dbms_sql.define_column(cid,1,val,240);
6052: OPEN employee_csr;
6053:
6054: LOOP
6055: FETCH employee_csr INTO cparty_id;

Line 6062: IF (dbms_sql.is_open(cid)) THEN

6058: sel_type, sel_blk_id,data_type, fmt_mask,chk_u_l_flag,Thd_grade, rule, blk_id, sql_stmt,
6059: curr_code, l_up_total, l_ip_total, l_ua_total, l_ia_total ,cid);
6060: END LOOP;
6061: CLOSE employee_csr;
6062: IF (dbms_sql.is_open(cid)) THEN
6063: dbms_sql.close_cursor(cid);
6064: END IF;
6065: END IF;
6066:

Line 6063: dbms_sql.close_cursor(cid);

6059: curr_code, l_up_total, l_ip_total, l_ua_total, l_ia_total ,cid);
6060: END LOOP;
6061: CLOSE employee_csr;
6062: IF (dbms_sql.is_open(cid)) THEN
6063: dbms_sql.close_cursor(cid);
6064: END IF;
6065: END IF;
6066:
6067:

Line 6068: IF (dbms_sql.is_open(cid)) THEN

6064: END IF;
6065: END IF;
6066:
6067:
6068: IF (dbms_sql.is_open(cid)) THEN
6069: dbms_sql.close_cursor(cid);
6070: end if;
6071:
6072: End;

Line 6069: dbms_sql.close_cursor(cid);

6065: END IF;
6066:
6067:
6068: IF (dbms_sql.is_open(cid)) THEN
6069: dbms_sql.close_cursor(cid);
6070: end if;
6071:
6072: End;
6073:

Line 6204: cid := dbms_sql.open_cursor;

6200: -- P_CID would not be null when engine runs for more than 1 party (e.g. evaluate_checks1)
6201: -- P_CID would be null when engine is being run for 1 party (e.g. evaluate_checks2)
6202:
6203: if p_cid is null then
6204: cid := dbms_sql.open_cursor;
6205: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
6206: dbms_sql.define_column(cid, 1, val, 240);
6207: else
6208: cid := p_cid;

Line 6205: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);

6201: -- P_CID would be null when engine is being run for 1 party (e.g. evaluate_checks2)
6202:
6203: if p_cid is null then
6204: cid := dbms_sql.open_cursor;
6205: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
6206: dbms_sql.define_column(cid, 1, val, 240);
6207: else
6208: cid := p_cid;
6209: end if;

Line 6206: dbms_sql.define_column(cid, 1, val, 240);

6202:
6203: if p_cid is null then
6204: cid := dbms_sql.open_cursor;
6205: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
6206: dbms_sql.define_column(cid, 1, val, 240);
6207: else
6208: cid := p_cid;
6209: end if;
6210:

Line 6234: dbms_sql.bind_variable(cid, ':party_id', p_party_id);

6230: -- v_party_in_sql and v_acct_in_sql and used them in the if stmt.
6231:
6232: --if INSTR(lower(p_sql_stmt),':party_id',1) > 0 then
6233: if v_party_in_sql > 0 then
6234: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
6235: end if;
6236:
6237: --if INSTR(lower(p_sql_stmt),':cust_account_id',1) > 0 then
6238: if v_acct_in_sql > 0 then

Line 6239: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);

6235: end if;
6236:
6237: --if INSTR(lower(p_sql_stmt),':cust_account_id',1) > 0 then
6238: if v_acct_in_sql > 0 then
6239: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
6240: end if;
6241:
6242: if v_emp_in_sql > 0 then
6243: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);

Line 6243: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);

6239: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
6240: end if;
6241:
6242: if v_emp_in_sql > 0 then
6243: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);
6244: end if;
6245:
6246:
6247: /***********************

Line 6248: dbms_sql.bind_variable(cid, ':party_id', p_party_id);

6244: end if;
6245:
6246:
6247: /***********************
6248: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
6249: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
6250: ***************/
6251:
6252: dummy := dbms_sql.execute_and_fetch(cid);

Line 6249: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);

6245:
6246:
6247: /***********************
6248: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
6249: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
6250: ***************/
6251:
6252: dummy := dbms_sql.execute_and_fetch(cid);
6253:

Line 6252: dummy := dbms_sql.execute_and_fetch(cid);

6248: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
6249: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
6250: ***************/
6251:
6252: dummy := dbms_sql.execute_and_fetch(cid);
6253:
6254: dbms_sql.column_value(cid, 1, val);
6255: if p_cid is null then
6256: dbms_sql.close_cursor(cid);

Line 6254: dbms_sql.column_value(cid, 1, val);

6250: ***************/
6251:
6252: dummy := dbms_sql.execute_and_fetch(cid);
6253:
6254: dbms_sql.column_value(cid, 1, val);
6255: if p_cid is null then
6256: dbms_sql.close_cursor(cid);
6257: end if;
6258:

Line 6256: dbms_sql.close_cursor(cid);

6252: dummy := dbms_sql.execute_and_fetch(cid);
6253:
6254: dbms_sql.column_value(cid, 1, val);
6255: if p_cid is null then
6256: dbms_sql.close_cursor(cid);
6257: end if;
6258:
6259: Exception
6260: When Others Then

Line 6263: IF (dbms_sql.is_open(cid)) THEN

6259: Exception
6260: When Others Then
6261: -- dbms_output.put_line('Exception Others in Blocks...');
6262: if p_cid is null then
6263: IF (dbms_sql.is_open(cid)) THEN
6264: dbms_sql.close_cursor(cid);
6265: end if;
6266: end if;
6267: val := 0;

Line 6264: dbms_sql.close_cursor(cid);

6260: When Others Then
6261: -- dbms_output.put_line('Exception Others in Blocks...');
6262: if p_cid is null then
6263: IF (dbms_sql.is_open(cid)) THEN
6264: dbms_sql.close_cursor(cid);
6265: end if;
6266: end if;
6267: val := 0;
6268: End;

Line 6402: IF (dbms_sql.is_open(cid)) THEN

6398: -- If an exception is raised, close cursor before exiting
6399: WHEN OTHERS THEN
6400: -- dbms_output.put_line('Exception Others in Blocks...');
6401: if p_cid is null then
6402: IF (dbms_sql.is_open(cid)) THEN
6403: dbms_sql.close_cursor(cid);
6404: END IF;
6405: end if;
6406: set_context('Evaluate_One_Block',

Line 6403: dbms_sql.close_cursor(cid);

6399: WHEN OTHERS THEN
6400: -- dbms_output.put_line('Exception Others in Blocks...');
6401: if p_cid is null then
6402: IF (dbms_sql.is_open(cid)) THEN
6403: dbms_sql.close_cursor(cid);
6404: END IF;
6405: end if;
6406: set_context('Evaluate_One_Block',
6407: 'blk_id=>'||to_char(p_blk_id),