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 1084: cid := dbms_sql.open_cursor;

1080: v_acct_in_sql := 0;
1081: v_psite_in_sql := 0; -- added by spamujul for ER#8473903
1082: End if;
1083: Begin
1084: cid := dbms_sql.open_cursor;
1085: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1086: dbms_sql.define_column(cid,1,val,240);
1087: OPEN cparty_csr;
1088: LOOP

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

1081: v_psite_in_sql := 0; -- added by spamujul for ER#8473903
1082: End if;
1083: Begin
1084: cid := dbms_sql.open_cursor;
1085: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1086: dbms_sql.define_column(cid,1,val,240);
1087: OPEN cparty_csr;
1088: LOOP
1089: FETCH cparty_csr INTO cparty_id;

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

1082: End if;
1083: Begin
1084: cid := dbms_sql.open_cursor;
1085: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1086: dbms_sql.define_column(cid,1,val,240);
1087: OPEN cparty_csr;
1088: LOOP
1089: FETCH cparty_csr INTO cparty_id;
1090: EXIT WHEN cparty_csr%notfound;

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

1192: END IF;
1193: -- End fix by spamujul for ER#8473903
1194: END LOOP;
1195: CLOSE cparty_csr;
1196: IF (dbms_sql.is_open(cid)) THEN
1197: dbms_sql.close_cursor(cid);
1198: end if;
1199: Exception
1200: When others then

Line 1197: dbms_sql.close_cursor(cid);

1193: -- End fix by spamujul for ER#8473903
1194: END LOOP;
1195: CLOSE cparty_csr;
1196: IF (dbms_sql.is_open(cid)) THEN
1197: dbms_sql.close_cursor(cid);
1198: end if;
1199: Exception
1200: When others then
1201: IF (dbms_sql.is_open(cid)) THEN

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

1197: dbms_sql.close_cursor(cid);
1198: end if;
1199: Exception
1200: When others then
1201: IF (dbms_sql.is_open(cid)) THEN
1202: dbms_sql.close_cursor(cid);
1203: end if;
1204: set_context('Evaluate_Checks1_No_Batch',
1205: 'chk_id=>'||to_char(chk_id),

Line 1202: dbms_sql.close_cursor(cid);

1198: end if;
1199: Exception
1200: When others then
1201: IF (dbms_sql.is_open(cid)) THEN
1202: dbms_sql.close_cursor(cid);
1203: end if;
1204: set_context('Evaluate_Checks1_No_Batch',
1205: 'chk_id=>'||to_char(chk_id),
1206: 'party_id=>'||to_char(cparty_id),

Line 1568: cid := dbms_sql.open_cursor;

1564: END IF;
1565: /* This begin, end exception is added mainly for exception handing for Bug 1980004*/
1566: Begin
1567: IF ((sel_type='B' ) OR (sel_type='T') ) Then -- Only valid types
1568: cid := dbms_sql.open_cursor;
1569: if (sel_type = 'B') then
1570: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1571: elsif (sel_type = 'T') then
1572: dbms_sql.parse(cid, rule, dbms_sql.native);

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

1566: Begin
1567: IF ((sel_type='B' ) OR (sel_type='T') ) Then -- Only valid types
1568: cid := dbms_sql.open_cursor;
1569: if (sel_type = 'B') then
1570: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1571: elsif (sel_type = 'T') then
1572: dbms_sql.parse(cid, rule, dbms_sql.native);
1573: end if;
1574: dbms_sql.define_column(cid,1,val,240);

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

1568: cid := dbms_sql.open_cursor;
1569: if (sel_type = 'B') then
1570: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1571: elsif (sel_type = 'T') then
1572: dbms_sql.parse(cid, rule, dbms_sql.native);
1573: end if;
1574: dbms_sql.define_column(cid,1,val,240);
1575: -- pass the cid
1576: OPEN cparty_csr;

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

1570: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1571: elsif (sel_type = 'T') then
1572: dbms_sql.parse(cid, rule, dbms_sql.native);
1573: end if;
1574: dbms_sql.define_column(cid,1,val,240);
1575: -- pass the cid
1576: OPEN cparty_csr;
1577: LOOP
1578: FETCH cparty_csr

Line 1664: cid := dbms_sql.open_cursor;

1660: IF ((sel_type='B' ) OR (sel_type='T') ) AND v_check_level='SITE' THEN
1661: IF ((v_psite_in_sql = 0) AND sel_type = 'B') AND v_check_level='SITE' THEN
1662: NULL;
1663: ELSE
1664: cid := dbms_sql.open_cursor;
1665: IF (sel_type = 'B') THEN
1666: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1667: ELSIF (sel_type = 'T') THEN
1668: dbms_sql.parse(cid, rule, dbms_sql.native);

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

1662: NULL;
1663: ELSE
1664: cid := dbms_sql.open_cursor;
1665: IF (sel_type = 'B') THEN
1666: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1667: ELSIF (sel_type = 'T') THEN
1668: dbms_sql.parse(cid, rule, dbms_sql.native);
1669: END IF;
1670: dbms_sql.define_column(cid,1,val,240);

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

1664: cid := dbms_sql.open_cursor;
1665: IF (sel_type = 'B') THEN
1666: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1667: ELSIF (sel_type = 'T') THEN
1668: dbms_sql.parse(cid, rule, dbms_sql.native);
1669: END IF;
1670: dbms_sql.define_column(cid,1,val,240);
1671: OPEN cpsite_csr;
1672: LOOP

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

1666: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
1667: ELSIF (sel_type = 'T') THEN
1668: dbms_sql.parse(cid, rule, dbms_sql.native);
1669: END IF;
1670: dbms_sql.define_column(cid,1,val,240);
1671: OPEN cpsite_csr;
1672: LOOP
1673: FETCH cpsite_csr
1674: INTO cparty_id,

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

1698: l_is_total,
1699: cid);
1700: END LOOP;
1701: CLOSE cpsite_csr;
1702: IF (dbms_sql.is_open(cid)) THEN
1703: dbms_sql.close_cursor(cid);
1704: END IF;
1705: END IF;
1706: END IF;

Line 1703: dbms_sql.close_cursor(cid);

1699: cid);
1700: END LOOP;
1701: CLOSE cpsite_csr;
1702: IF (dbms_sql.is_open(cid)) THEN
1703: dbms_sql.close_cursor(cid);
1704: END IF;
1705: END IF;
1706: END IF;
1707: -- End fix by spamujul for ER#8473903

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

1706: END IF;
1707: -- End fix by spamujul for ER#8473903
1708: END LOOP;
1709: CLOSE cparty_csr;
1710: IF (dbms_sql.is_open(cid)) THEN
1711: dbms_sql.close_cursor(cid);
1712: end if;
1713: END IF;
1714: Exception

Line 1711: dbms_sql.close_cursor(cid);

1707: -- End fix by spamujul for ER#8473903
1708: END LOOP;
1709: CLOSE cparty_csr;
1710: IF (dbms_sql.is_open(cid)) THEN
1711: dbms_sql.close_cursor(cid);
1712: end if;
1713: END IF;
1714: Exception
1715: When others then

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

1712: end if;
1713: END IF;
1714: Exception
1715: When others then
1716: IF (dbms_sql.is_open(cid)) THEN
1717: dbms_sql.close_cursor(cid);
1718: end if;
1719: set_context('Evaluate_Checks1_Rule',
1720: 'chk_id=>'||to_char(chk_id),

Line 1717: dbms_sql.close_cursor(cid);

1713: END IF;
1714: Exception
1715: When others then
1716: IF (dbms_sql.is_open(cid)) THEN
1717: dbms_sql.close_cursor(cid);
1718: end if;
1719: set_context('Evaluate_Checks1_Rule',
1720: 'chk_id=>'||to_char(chk_id),
1721: 'party_id=>'||to_char(cparty_id),

Line 2118: cid := dbms_sql.open_cursor;

2114: -- Loop through all parties with accounts
2115: -- added for 1850508
2116: --Open Cursor
2117: -- dbms_output.put_line('Opening and PArsing in checks1 Accounts Check_id -'||to_char(chk_id));
2118: cid := dbms_sql.open_cursor;
2119: IF (sel_type = 'B') THEN
2120: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2121: ELSIF (sel_type = 'T') THEN
2122: dbms_sql.parse(cid, rule, dbms_sql.native);

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

2116: --Open Cursor
2117: -- dbms_output.put_line('Opening and PArsing in checks1 Accounts Check_id -'||to_char(chk_id));
2118: cid := dbms_sql.open_cursor;
2119: IF (sel_type = 'B') THEN
2120: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2121: ELSIF (sel_type = 'T') THEN
2122: dbms_sql.parse(cid, rule, dbms_sql.native);
2123: END IF;
2124: dbms_sql.define_column(cid,1,val,240);

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

2118: cid := dbms_sql.open_cursor;
2119: IF (sel_type = 'B') THEN
2120: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2121: ELSIF (sel_type = 'T') THEN
2122: dbms_sql.parse(cid, rule, dbms_sql.native);
2123: END IF;
2124: dbms_sql.define_column(cid,1,val,240);
2125:
2126: OPEN caccount_csr;

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

2120: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2121: ELSIF (sel_type = 'T') THEN
2122: dbms_sql.parse(cid, rule, dbms_sql.native);
2123: END IF;
2124: dbms_sql.define_column(cid,1,val,240);
2125:
2126: OPEN caccount_csr;
2127: LOOP
2128: FETCH caccount_csr INTO cparty_id, ccust_acct_id;

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

2153: ,cid);
2154: END LOOP;
2155: CLOSE caccount_csr;
2156:
2157: IF (dbms_sql.is_open(cid)) THEN
2158: dbms_sql.close_cursor(cid);
2159: END IF;
2160:
2161: END IF; -- added for 1850508

Line 2158: dbms_sql.close_cursor(cid);

2154: END LOOP;
2155: CLOSE caccount_csr;
2156:
2157: IF (dbms_sql.is_open(cid)) THEN
2158: dbms_sql.close_cursor(cid);
2159: END IF;
2160:
2161: END IF; -- added for 1850508
2162: END IF;

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

2161: END IF; -- added for 1850508
2162: END IF;
2163: EXCEPTION
2164: WHEN OTHERS THEN
2165: IF (dbms_sql.is_open(cid)) THEN
2166: dbms_sql.close_cursor(cid);
2167: END IF;
2168:
2169: set_context('Evaluate_Checks2_JIT',

Line 2166: dbms_sql.close_cursor(cid);

2162: END IF;
2163: EXCEPTION
2164: WHEN OTHERS THEN
2165: IF (dbms_sql.is_open(cid)) THEN
2166: dbms_sql.close_cursor(cid);
2167: END IF;
2168:
2169: set_context('Evaluate_Checks2_JIT',
2170: 'chk_id=>'||to_char(chk_id),

Line 2183: cid := dbms_sql.open_cursor;

2179: IF ((sel_type='B' ) OR (sel_type='T') ) AND v_check_level='SITE' THEN
2180: IF ((v_psite_in_sql = 0) AND sel_type = 'B') AND v_check_level='SITE' THEN
2181: NULL;
2182: ELSE
2183: cid := dbms_sql.open_cursor;
2184: IF (sel_type = 'B') THEN
2185: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2186: ELSIF (sel_type = 'T') THEN
2187: dbms_sql.parse(cid, rule, dbms_sql.native);

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

2181: NULL;
2182: ELSE
2183: cid := dbms_sql.open_cursor;
2184: IF (sel_type = 'B') THEN
2185: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2186: ELSIF (sel_type = 'T') THEN
2187: dbms_sql.parse(cid, rule, dbms_sql.native);
2188: END IF;
2189: dbms_sql.define_column(cid,1,val,240);

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

2183: cid := dbms_sql.open_cursor;
2184: IF (sel_type = 'B') THEN
2185: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2186: ELSIF (sel_type = 'T') THEN
2187: dbms_sql.parse(cid, rule, dbms_sql.native);
2188: END IF;
2189: dbms_sql.define_column(cid,1,val,240);
2190: OPEN cpsite_csr;
2191: LOOP

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

2185: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2186: ELSIF (sel_type = 'T') THEN
2187: dbms_sql.parse(cid, rule, dbms_sql.native);
2188: END IF;
2189: dbms_sql.define_column(cid,1,val,240);
2190: OPEN cpsite_csr;
2191: LOOP
2192: FETCH cpsite_csr
2193: INTO cparty_id,

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

2249: cid);
2250: v_incident_flag := 'N';
2251: END IF;
2252: -- Ended the incident address refresh operation
2253: IF (dbms_sql.is_open(cid)) THEN
2254: dbms_sql.close_cursor(cid);
2255: end if;
2256: END IF;
2257: END IF;

Line 2254: dbms_sql.close_cursor(cid);

2250: v_incident_flag := 'N';
2251: END IF;
2252: -- Ended the incident address refresh operation
2253: IF (dbms_sql.is_open(cid)) THEN
2254: dbms_sql.close_cursor(cid);
2255: end if;
2256: END IF;
2257: END IF;
2258: Exception

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

2256: END IF;
2257: END IF;
2258: Exception
2259: When others then
2260: IF (dbms_sql.is_open(cid)) THEN
2261: dbms_sql.close_cursor(cid);
2262: end if;
2263: set_context('Evaluate_Checks2_JIT',
2264: 'chk_id=>'||to_char(chk_id),

Line 2261: dbms_sql.close_cursor(cid);

2257: END IF;
2258: Exception
2259: When others then
2260: IF (dbms_sql.is_open(cid)) THEN
2261: dbms_sql.close_cursor(cid);
2262: end if;
2263: set_context('Evaluate_Checks2_JIT',
2264: 'chk_id=>'||to_char(chk_id),
2265: 'party_id=>'||to_char(cparty_id),

Line 2989: cid := dbms_sql.open_cursor;

2985: -- Loop through all parties with accounts
2986: -- added for 1850508
2987: --Open Cursor
2988: -- dbms_output.put_line('Opening and PArsing in checks1 Accounts Check_id -'||to_char(chk_id));
2989: cid := dbms_sql.open_cursor;
2990: if (sel_type = 'B') then
2991: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2992: elsif (sel_type = 'T') then
2993: dbms_sql.parse(cid, rule, dbms_sql.native);

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

2987: --Open Cursor
2988: -- dbms_output.put_line('Opening and PArsing in checks1 Accounts Check_id -'||to_char(chk_id));
2989: cid := dbms_sql.open_cursor;
2990: if (sel_type = 'B') then
2991: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2992: elsif (sel_type = 'T') then
2993: dbms_sql.parse(cid, rule, dbms_sql.native);
2994: end if;
2995: dbms_sql.define_column(cid,1,val,240);

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

2989: cid := dbms_sql.open_cursor;
2990: if (sel_type = 'B') then
2991: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2992: elsif (sel_type = 'T') then
2993: dbms_sql.parse(cid, rule, dbms_sql.native);
2994: end if;
2995: dbms_sql.define_column(cid,1,val,240);
2996:
2997: OPEN caccount_csr;

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

2991: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
2992: elsif (sel_type = 'T') then
2993: dbms_sql.parse(cid, rule, dbms_sql.native);
2994: end if;
2995: dbms_sql.define_column(cid,1,val,240);
2996:
2997: OPEN caccount_csr;
2998: LOOP
2999: FETCH caccount_csr

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

3024: l_is_total, -- added by spamujul for ER#8473903
3025: cid);
3026: END LOOP;
3027: CLOSE caccount_csr;
3028: IF (dbms_sql.is_open(cid)) THEN
3029: dbms_sql.close_cursor(cid);
3030: end if;
3031: End if; -- added for 1850508
3032: END IF;

Line 3029: dbms_sql.close_cursor(cid);

3025: cid);
3026: END LOOP;
3027: CLOSE caccount_csr;
3028: IF (dbms_sql.is_open(cid)) THEN
3029: dbms_sql.close_cursor(cid);
3030: end if;
3031: End if; -- added for 1850508
3032: END IF;
3033: Exception

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

3031: End if; -- added for 1850508
3032: END IF;
3033: Exception
3034: When others then
3035: IF (dbms_sql.is_open(cid)) THEN
3036: dbms_sql.close_cursor(cid);
3037: end if;
3038: set_context('Evaluate_Checks3',
3039: 'chk_id=>'||to_char(chk_id),

Line 3036: dbms_sql.close_cursor(cid);

3032: END IF;
3033: Exception
3034: When others then
3035: IF (dbms_sql.is_open(cid)) THEN
3036: dbms_sql.close_cursor(cid);
3037: end if;
3038: set_context('Evaluate_Checks3',
3039: 'chk_id=>'||to_char(chk_id),
3040: 'party_id=>'||to_char(cparty_id),

Line 3054: cid := dbms_sql.open_cursor;

3050: IF ((sel_type='B' ) OR (sel_type='T') ) AND v_check_level='SITE' THEN
3051: IF ((v_psite_in_sql = 0) AND sel_type = 'B') AND v_check_level='SITE' THEN
3052: NULL;
3053: ELSE
3054: cid := dbms_sql.open_cursor;
3055: IF (sel_type = 'B') THEN
3056: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3057: ELSIF (sel_type = 'T') THEN
3058: dbms_sql.parse(cid, rule, dbms_sql.native);

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

3052: NULL;
3053: ELSE
3054: cid := dbms_sql.open_cursor;
3055: IF (sel_type = 'B') THEN
3056: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3057: ELSIF (sel_type = 'T') THEN
3058: dbms_sql.parse(cid, rule, dbms_sql.native);
3059: END IF;
3060: dbms_sql.define_column(cid,1,val,240);

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

3054: cid := dbms_sql.open_cursor;
3055: IF (sel_type = 'B') THEN
3056: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3057: ELSIF (sel_type = 'T') THEN
3058: dbms_sql.parse(cid, rule, dbms_sql.native);
3059: END IF;
3060: dbms_sql.define_column(cid,1,val,240);
3061: OPEN cpsite_csr;
3062: LOOP

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

3056: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3057: ELSIF (sel_type = 'T') THEN
3058: dbms_sql.parse(cid, rule, dbms_sql.native);
3059: END IF;
3060: dbms_sql.define_column(cid,1,val,240);
3061: OPEN cpsite_csr;
3062: LOOP
3063: FETCH cpsite_csr
3064: INTO cparty_id,

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

3088: l_is_total,
3089: cid);
3090: END LOOP;
3091: CLOSE cpsite_csr;
3092: IF (dbms_sql.is_open(cid)) THEN
3093: dbms_sql.close_cursor(cid);
3094: end if;
3095: END IF;
3096: END IF;

Line 3093: dbms_sql.close_cursor(cid);

3089: cid);
3090: END LOOP;
3091: CLOSE cpsite_csr;
3092: IF (dbms_sql.is_open(cid)) THEN
3093: dbms_sql.close_cursor(cid);
3094: end if;
3095: END IF;
3096: END IF;
3097: Exception

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

3095: END IF;
3096: END IF;
3097: Exception
3098: When others then
3099: IF (dbms_sql.is_open(cid)) THEN
3100: dbms_sql.close_cursor(cid);
3101: end if;
3102: set_context('Evaluate_Checks3',
3103: 'chk_id=>'||to_char(chk_id),

Line 3100: dbms_sql.close_cursor(cid);

3096: END IF;
3097: Exception
3098: When others then
3099: IF (dbms_sql.is_open(cid)) THEN
3100: dbms_sql.close_cursor(cid);
3101: end if;
3102: set_context('Evaluate_Checks3',
3103: 'chk_id=>'||to_char(chk_id),
3104: 'party_id=>'||to_char(cparty_id),

Line 3305: cid := dbms_sql.open_cursor;

3301: IF ((sel_type='B' ) OR (sel_type='T') ) AND v_check_level='SITE' THEN
3302: IF ((v_psite_in_sql = 0) AND sel_type = 'B') AND v_check_level='SITE' THEN
3303: NULL;
3304: ELSE
3305: cid := dbms_sql.open_cursor;
3306: IF (sel_type = 'B') THEN
3307: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3308: ELSIF (sel_type = 'T') THEN
3309: dbms_sql.parse(cid, rule, dbms_sql.native);

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

3303: NULL;
3304: ELSE
3305: cid := dbms_sql.open_cursor;
3306: IF (sel_type = 'B') THEN
3307: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3308: ELSIF (sel_type = 'T') THEN
3309: dbms_sql.parse(cid, rule, dbms_sql.native);
3310: END IF;
3311: dbms_sql.define_column(cid,1,val,240);

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

3305: cid := dbms_sql.open_cursor;
3306: IF (sel_type = 'B') THEN
3307: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3308: ELSIF (sel_type = 'T') THEN
3309: dbms_sql.parse(cid, rule, dbms_sql.native);
3310: END IF;
3311: dbms_sql.define_column(cid,1,val,240);
3312: OPEN cpsite_csr;
3313: LOOP

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

3307: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
3308: ELSIF (sel_type = 'T') THEN
3309: dbms_sql.parse(cid, rule, dbms_sql.native);
3310: END IF;
3311: dbms_sql.define_column(cid,1,val,240);
3312: OPEN cpsite_csr;
3313: LOOP
3314: FETCH cpsite_csr
3315: INTO cparty_id,

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

3339: l_is_total,
3340: cid);
3341: END LOOP;
3342: CLOSE cpsite_csr;
3343: IF (dbms_sql.is_open(cid)) THEN
3344: dbms_sql.close_cursor(cid);
3345: end if;
3346: END IF;
3347: END IF;

Line 3344: dbms_sql.close_cursor(cid);

3340: cid);
3341: END LOOP;
3342: CLOSE cpsite_csr;
3343: IF (dbms_sql.is_open(cid)) THEN
3344: dbms_sql.close_cursor(cid);
3345: end if;
3346: END IF;
3347: END IF;
3348: Exception

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

3346: END IF;
3347: END IF;
3348: Exception
3349: When others then
3350: IF (dbms_sql.is_open(cid)) THEN
3351: dbms_sql.close_cursor(cid);
3352: end if;
3353: set_context('Evaluate_Checks3',
3354: 'chk_id=>'||to_char(chk_id),

Line 3351: dbms_sql.close_cursor(cid);

3347: END IF;
3348: Exception
3349: When others then
3350: IF (dbms_sql.is_open(cid)) THEN
3351: dbms_sql.close_cursor(cid);
3352: end if;
3353: set_context('Evaluate_Checks3',
3354: 'chk_id=>'||to_char(chk_id),
3355: 'party_id=>'||to_char(cparty_id),

Line 4306: cid := dbms_sql.open_cursor;

4302: v_acct_in_sql := 0;
4303: v_psite_in_sql := 0; -- added by spamujul for ER#8473903
4304: End if;
4305: Begin
4306: cid := dbms_sql.open_cursor;
4307: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4308: dbms_sql.define_column(cid,1,val,240);
4309: OPEN cparty_csr;
4310: LOOP

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

4303: v_psite_in_sql := 0; -- added by spamujul for ER#8473903
4304: End if;
4305: Begin
4306: cid := dbms_sql.open_cursor;
4307: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4308: dbms_sql.define_column(cid,1,val,240);
4309: OPEN cparty_csr;
4310: LOOP
4311: FETCH cparty_csr

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

4304: End if;
4305: Begin
4306: cid := dbms_sql.open_cursor;
4307: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4308: dbms_sql.define_column(cid,1,val,240);
4309: OPEN cparty_csr;
4310: LOOP
4311: FETCH cparty_csr
4312: INTO cparty_id;

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

4417: END IF;
4418: -- End fix by spamujul for ER#8473903
4419: END LOOP;
4420: CLOSE cparty_csr;
4421: IF (dbms_sql.is_open(cid)) THEN
4422: dbms_sql.close_cursor(cid);
4423: end if;
4424: Exception
4425: When others then

Line 4422: dbms_sql.close_cursor(cid);

4418: -- End fix by spamujul for ER#8473903
4419: END LOOP;
4420: CLOSE cparty_csr;
4421: IF (dbms_sql.is_open(cid)) THEN
4422: dbms_sql.close_cursor(cid);
4423: end if;
4424: Exception
4425: When others then
4426: IF (dbms_sql.is_open(cid)) THEN

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

4422: dbms_sql.close_cursor(cid);
4423: end if;
4424: Exception
4425: When others then
4426: IF (dbms_sql.is_open(cid)) THEN
4427: dbms_sql.close_cursor(cid);
4428: end if;
4429: set_context('Evaluate_Checks4_No_Batch',
4430: 'chk_id=>'||to_char(chk_id),

Line 4427: dbms_sql.close_cursor(cid);

4423: end if;
4424: Exception
4425: When others then
4426: IF (dbms_sql.is_open(cid)) THEN
4427: dbms_sql.close_cursor(cid);
4428: end if;
4429: set_context('Evaluate_Checks4_No_Batch',
4430: 'chk_id=>'||to_char(chk_id),
4431: 'party_id=>'||to_char(cparty_id),

Line 4778: cid := dbms_sql.open_cursor;

4774: Begin
4775: IF ((sel_type='B' ) OR (sel_type='T') ) Then -- Only valid types
4776: -- Loop through all parties
4777: -- Open the Cursor
4778: cid := dbms_sql.open_cursor;
4779: if (sel_type = 'B') then
4780: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4781: elsif (sel_type = 'T') then
4782: dbms_sql.parse(cid, rule, dbms_sql.native);

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

4776: -- Loop through all parties
4777: -- Open the Cursor
4778: cid := dbms_sql.open_cursor;
4779: if (sel_type = 'B') then
4780: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4781: elsif (sel_type = 'T') then
4782: dbms_sql.parse(cid, rule, dbms_sql.native);
4783: end if;
4784: dbms_sql.define_column(cid,1,val,240);

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

4778: cid := dbms_sql.open_cursor;
4779: if (sel_type = 'B') then
4780: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4781: elsif (sel_type = 'T') then
4782: dbms_sql.parse(cid, rule, dbms_sql.native);
4783: end if;
4784: dbms_sql.define_column(cid,1,val,240);
4785: -- pass the cid
4786: OPEN cparty_csr;

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

4780: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4781: elsif (sel_type = 'T') then
4782: dbms_sql.parse(cid, rule, dbms_sql.native);
4783: end if;
4784: dbms_sql.define_column(cid,1,val,240);
4785: -- pass the cid
4786: OPEN cparty_csr;
4787: LOOP
4788: FETCH cparty_csr

Line 4877: cid := dbms_sql.open_cursor;

4873: IF ((sel_type='B' ) OR (sel_type='T') ) AND v_check_level='SITE' THEN
4874: IF ((v_psite_in_sql = 0) AND sel_type = 'B') AND v_check_level='SITE' THEN
4875: NULL;
4876: ELSE
4877: cid := dbms_sql.open_cursor;
4878: IF (sel_type = 'B') THEN
4879: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4880: ELSIF (sel_type = 'T') THEN
4881: dbms_sql.parse(cid, rule, dbms_sql.native);

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

4875: NULL;
4876: ELSE
4877: cid := dbms_sql.open_cursor;
4878: IF (sel_type = 'B') THEN
4879: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4880: ELSIF (sel_type = 'T') THEN
4881: dbms_sql.parse(cid, rule, dbms_sql.native);
4882: END IF;
4883: dbms_sql.define_column(cid,1,val,240);

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

4877: cid := dbms_sql.open_cursor;
4878: IF (sel_type = 'B') THEN
4879: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4880: ELSIF (sel_type = 'T') THEN
4881: dbms_sql.parse(cid, rule, dbms_sql.native);
4882: END IF;
4883: dbms_sql.define_column(cid,1,val,240);
4884: OPEN cpsite_csr;
4885: LOOP

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

4879: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
4880: ELSIF (sel_type = 'T') THEN
4881: dbms_sql.parse(cid, rule, dbms_sql.native);
4882: END IF;
4883: dbms_sql.define_column(cid,1,val,240);
4884: OPEN cpsite_csr;
4885: LOOP
4886: FETCH cpsite_csr
4887: INTO cparty_id,

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

4911: l_is_total,
4912: cid);
4913: END LOOP;
4914: CLOSE cpsite_csr;
4915: IF (dbms_sql.is_open(cid)) THEN
4916: dbms_sql.close_cursor(cid);
4917: END IF;
4918: END IF;
4919: END IF;

Line 4916: dbms_sql.close_cursor(cid);

4912: cid);
4913: END LOOP;
4914: CLOSE cpsite_csr;
4915: IF (dbms_sql.is_open(cid)) THEN
4916: dbms_sql.close_cursor(cid);
4917: END IF;
4918: END IF;
4919: END IF;
4920: -- End fix by spamujul for ER#8473903

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

4919: END IF;
4920: -- End fix by spamujul for ER#8473903
4921: END LOOP;
4922: CLOSE cparty_csr;
4923: IF (dbms_sql.is_open(cid)) THEN
4924: dbms_sql.close_cursor(cid);
4925: end if;
4926: END IF;
4927: Exception

Line 4924: dbms_sql.close_cursor(cid);

4920: -- End fix by spamujul for ER#8473903
4921: END LOOP;
4922: CLOSE cparty_csr;
4923: IF (dbms_sql.is_open(cid)) THEN
4924: dbms_sql.close_cursor(cid);
4925: end if;
4926: END IF;
4927: Exception
4928: When others then

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

4925: end if;
4926: END IF;
4927: Exception
4928: When others then
4929: IF (dbms_sql.is_open(cid)) THEN
4930: dbms_sql.close_cursor(cid);
4931: end if;
4932: set_context('Evaluate_Checks4_Rule',
4933: 'chk_id=>'||to_char(chk_id),

Line 4930: dbms_sql.close_cursor(cid);

4926: END IF;
4927: Exception
4928: When others then
4929: IF (dbms_sql.is_open(cid)) THEN
4930: dbms_sql.close_cursor(cid);
4931: end if;
4932: set_context('Evaluate_Checks4_Rule',
4933: 'chk_id=>'||to_char(chk_id),
4934: 'party_id=>'||to_char(cparty_id),

Line 5245: cid := dbms_sql.open_cursor;

5241: -- P_CID would not be null when engine runs for more than 1 party (e.g. evaluate_checks1)
5242: -- P_CID would be null when engine is being run for 1 party (e.g. evaluate_checks2)
5243: -- added for 1850508
5244: if p_cid is null then
5245: cid := dbms_sql.open_cursor;
5246: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
5247: dbms_sql.define_column(cid,1,val,240);
5248: else
5249: cid := p_cid;

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

5242: -- P_CID would be null when engine is being run for 1 party (e.g. evaluate_checks2)
5243: -- added for 1850508
5244: if p_cid is null then
5245: cid := dbms_sql.open_cursor;
5246: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
5247: dbms_sql.define_column(cid,1,val,240);
5248: else
5249: cid := p_cid;
5250: end if;

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

5243: -- added for 1850508
5244: if p_cid is null then
5245: cid := dbms_sql.open_cursor;
5246: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
5247: dbms_sql.define_column(cid,1,val,240);
5248: else
5249: cid := p_cid;
5250: end if;
5251: IF p_sql_stmt IS NOT NULL Then

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

5261: End if;
5262: -- For Bug 1935015 commented this if statement and created 2 variables
5263: if p_check_level='PARTY' OR p_check_level = 'CONTACT' then
5264: if v_party_in_sql > 0 then
5265: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5266: end if;
5267: if v_acct_in_sql > 0 then
5268: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
5269: end if;

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

5264: if v_party_in_sql > 0 then
5265: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5266: end if;
5267: if v_acct_in_sql > 0 then
5268: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
5269: end if;
5270: elsif p_check_level='ACCOUNT' then
5271: if v_party_in_sql > 0 then
5272: dbms_sql.bind_variable(cid, ':party_id', p_party_id);

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

5268: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
5269: end if;
5270: elsif p_check_level='ACCOUNT' then
5271: if v_party_in_sql > 0 then
5272: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5273: end if;
5274: if v_acct_in_sql > 0 then
5275: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
5276: end if;

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

5271: if v_party_in_sql > 0 then
5272: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5273: end if;
5274: if v_acct_in_sql > 0 then
5275: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
5276: end if;
5277: /* R12 Employee HelpDesk Modifications */
5278: elsif p_check_level='EMPLOYEE' then
5279: if v_employee_in_sql > 0 then

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

5276: end if;
5277: /* R12 Employee HelpDesk Modifications */
5278: elsif p_check_level='EMPLOYEE' then
5279: if v_employee_in_sql > 0 then
5280: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);
5281: end if;
5282: -- Begin Fix by spamujul for ER#8473903
5283: ELSIF p_check_level='SITE' THEN
5284: IF v_psite_in_sql > 0 THEN

Line 5285: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);

5281: end if;
5282: -- Begin Fix by spamujul for ER#8473903
5283: ELSIF p_check_level='SITE' THEN
5284: IF v_psite_in_sql > 0 THEN
5285: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);
5286: END IF;
5287: IF v_party_in_sql > 0 THEN
5288: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5289: END IF;

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

5284: IF v_psite_in_sql > 0 THEN
5285: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);
5286: END IF;
5287: IF v_party_in_sql > 0 THEN
5288: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5289: END IF;
5290: -- End Fix by spamujul for ER#8473903
5291: END IF;
5292: dummy := dbms_sql.execute_and_fetch(cid);

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

5288: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5289: END IF;
5290: -- End Fix by spamujul for ER#8473903
5291: END IF;
5292: dummy := dbms_sql.execute_and_fetch(cid);
5293: /* added the below condition for bug 3787383 */
5294: IF dummy > 0 THEN
5295: dbms_sql.column_value(cid,1,val);
5296: ELSE

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

5291: END IF;
5292: dummy := dbms_sql.execute_and_fetch(cid);
5293: /* added the below condition for bug 3787383 */
5294: IF dummy > 0 THEN
5295: dbms_sql.column_value(cid,1,val);
5296: ELSE
5297: val := NULL;
5298: END IF;
5299: if p_cid is null then

Line 5300: dbms_sql.close_cursor(cid);

5296: ELSE
5297: val := NULL;
5298: END IF;
5299: if p_cid is null then
5300: dbms_sql.close_cursor(cid);
5301: end if;
5302: -- END IF;
5303: Exception
5304: When Others then

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

5302: -- END IF;
5303: Exception
5304: When Others then
5305: if p_cid is null then
5306: IF (dbms_sql.is_open(cid)) THEN
5307: dbms_sql.close_cursor(cid);
5308: END IF;
5309: end if;
5310: val := '0';

Line 5307: dbms_sql.close_cursor(cid);

5303: Exception
5304: When Others then
5305: if p_cid is null then
5306: IF (dbms_sql.is_open(cid)) THEN
5307: dbms_sql.close_cursor(cid);
5308: END IF;
5309: end if;
5310: val := '0';
5311: End;

Line 5316: cid := dbms_sql.open_cursor;

5312: ELSIF (p_sel_type = 'T') THEN
5313: Begin
5314: -- added for 1850508
5315: if (p_cid is null) then
5316: cid := dbms_sql.open_cursor;
5317: dbms_sql.parse(cid, p_rule, dbms_sql.native);
5318: else
5319: cid := p_cid;
5320: end if;

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

5313: Begin
5314: -- added for 1850508
5315: if (p_cid is null) then
5316: cid := dbms_sql.open_cursor;
5317: dbms_sql.parse(cid, p_rule, dbms_sql.native);
5318: else
5319: cid := p_cid;
5320: end if;
5321: -- for Bug 1935015 changed instr(sql_stmt..) to INSTR(lower(sql_stmt)..)

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

5331: v_psite_in_sql := 0; -- Added by spamujul for ER#8473903
5332: End if;
5333: IF p_check_level='PARTY' OR p_check_level = 'CONTACT' THEN
5334: if v_party_in_sql > 0 then
5335: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5336: end if;
5337: if v_acct_in_sql > 0 then
5338: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
5339: end if;

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

5334: if v_party_in_sql > 0 then
5335: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5336: end if;
5337: if v_acct_in_sql > 0 then
5338: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
5339: end if;
5340: ELSIF p_check_level='ACCOUNT' then
5341: if v_party_in_sql > 0 then
5342: dbms_sql.bind_variable(cid, ':party_id', p_party_id);

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

5338: dbms_sql.bind_variable(cid, ':cust_account_id',p_acct_id);
5339: end if;
5340: ELSIF p_check_level='ACCOUNT' then
5341: if v_party_in_sql > 0 then
5342: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5343: end if;
5344:
5345: if v_acct_in_sql > 0 then
5346: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);

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

5342: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5343: end if;
5344:
5345: if v_acct_in_sql > 0 then
5346: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
5347: end if;
5348: /* R12 Employee HelpDesk Modifications */
5349: ELSIF p_check_level='EMPLOYEE' then
5350: if v_employee_in_sql > 0 then

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

5347: end if;
5348: /* R12 Employee HelpDesk Modifications */
5349: ELSIF p_check_level='EMPLOYEE' then
5350: if v_employee_in_sql > 0 then
5351: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);
5352: end if;
5353: -- Begin Fix by spamujul for ER#8473903
5354: ELSIF p_check_level='SITE' THEN
5355: IF v_psite_in_sql > 0 THEN

Line 5356: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);

5352: end if;
5353: -- Begin Fix by spamujul for ER#8473903
5354: ELSIF p_check_level='SITE' THEN
5355: IF v_psite_in_sql > 0 THEN
5356: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);
5357: END IF;
5358: IF v_party_in_sql > 0 THEN
5359: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5360: END IF;

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

5355: IF v_psite_in_sql > 0 THEN
5356: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);
5357: END IF;
5358: IF v_party_in_sql > 0 THEN
5359: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5360: END IF;
5361: -- End Fix by spamujul for ER#8473903
5362: END IF;
5363: val := dbms_sql.execute_and_fetch(cid); -- returns 0 if no rows found

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

5359: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
5360: END IF;
5361: -- End Fix by spamujul for ER#8473903
5362: END IF;
5363: val := dbms_sql.execute_and_fetch(cid); -- returns 0 if no rows found
5364: -- added for 1850508
5365: if (p_cid is null) then
5366: dbms_sql.close_cursor(cid);
5367: end if;

Line 5366: dbms_sql.close_cursor(cid);

5362: END IF;
5363: val := dbms_sql.execute_and_fetch(cid); -- returns 0 if no rows found
5364: -- added for 1850508
5365: if (p_cid is null) then
5366: dbms_sql.close_cursor(cid);
5367: end if;
5368: Exception
5369: When Others THEN
5370: if (p_cid is null) then

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

5367: end if;
5368: Exception
5369: When Others THEN
5370: if (p_cid is null) then
5371: IF (dbms_sql.is_open(cid)) THEN
5372: dbms_sql.close_cursor(cid);
5373: end if;
5374: end if;
5375: val := null;

Line 5372: dbms_sql.close_cursor(cid);

5368: Exception
5369: When Others THEN
5370: if (p_cid is null) then
5371: IF (dbms_sql.is_open(cid)) THEN
5372: dbms_sql.close_cursor(cid);
5373: end if;
5374: end if;
5375: val := null;
5376: End;

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

5735: IF val_crs2%isopen THEN
5736: CLOSE val_crs2;
5737: END IF;
5738: if p_cid is null then
5739: IF (dbms_sql.is_open(cid)) THEN
5740: dbms_sql.close_cursor(cid);
5741: END IF;
5742: end if;
5743: set_context('Evaluate_One_Check',

Line 5740: dbms_sql.close_cursor(cid);

5736: CLOSE val_crs2;
5737: END IF;
5738: if p_cid is null then
5739: IF (dbms_sql.is_open(cid)) THEN
5740: dbms_sql.close_cursor(cid);
5741: END IF;
5742: end if;
5743: set_context('Evaluate_One_Check',
5744: 'chk_id=>'||to_char(p_chk_id),

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

5770: CLOSE account_check_crs;
5771: END IF;
5772: */
5773: if p_cid is null then
5774: IF (dbms_sql.is_open(cid)) THEN
5775: dbms_sql.close_cursor(cid);
5776: END IF;
5777: end if;
5778: set_context('Evaluate_One_Check',

Line 5775: dbms_sql.close_cursor(cid);

5771: END IF;
5772: */
5773: if p_cid is null then
5774: IF (dbms_sql.is_open(cid)) THEN
5775: dbms_sql.close_cursor(cid);
5776: END IF;
5777: end if;
5778: set_context('Evaluate_One_Check',
5779: 'chk_id=>'||to_char(p_chk_id),

Line 5883: cid := dbms_sql.open_cursor;

5879: -- IF ((v_party_in_sql <> 0) and (v_acct_in_sql <> 0)) Then
5880: -- Loop through per party
5881: -- added for 1850508
5882: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing.PARTY Level.'||to_char(blk_id));
5883: cid := dbms_sql.open_cursor;
5884: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5885: dbms_sql.define_column(cid, 1, val, 240);
5886: OPEN bparty_csr;
5887: LOOP

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

5880: -- Loop through per party
5881: -- added for 1850508
5882: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing.PARTY Level.'||to_char(blk_id));
5883: cid := dbms_sql.open_cursor;
5884: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5885: dbms_sql.define_column(cid, 1, val, 240);
5886: OPEN bparty_csr;
5887: LOOP
5888: FETCH bparty_csr

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

5881: -- added for 1850508
5882: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing.PARTY Level.'||to_char(blk_id));
5883: cid := dbms_sql.open_cursor;
5884: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5885: dbms_sql.define_column(cid, 1, val, 240);
5886: OPEN bparty_csr;
5887: LOOP
5888: FETCH bparty_csr
5889: INTO bparty_id;

Line 5940: cid := dbms_sql.open_cursor;

5936: -- Begin fix by spamujul for NCR ER# 8473903
5937: Begin
5938: bparty_id :=0;
5939: IF (v_psite_in_sql <> 0) THEN
5940: cid := dbms_sql.open_cursor;
5941: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5942: dbms_sql.define_column(cid, 1, val, 240);
5943: v_party_id := bparty_id;
5944: OPEN bpsite_csr;

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

5937: Begin
5938: bparty_id :=0;
5939: IF (v_psite_in_sql <> 0) THEN
5940: cid := dbms_sql.open_cursor;
5941: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5942: dbms_sql.define_column(cid, 1, val, 240);
5943: v_party_id := bparty_id;
5944: OPEN bpsite_csr;
5945: LOOP

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

5938: bparty_id :=0;
5939: IF (v_psite_in_sql <> 0) THEN
5940: cid := dbms_sql.open_cursor;
5941: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
5942: dbms_sql.define_column(cid, 1, val, 240);
5943: v_party_id := bparty_id;
5944: OPEN bpsite_csr;
5945: LOOP
5946: FETCH bpsite_csr

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

5961: p_is_total
5962: ,cid);
5963: END LOOP;
5964: CLOSE bpsite_csr;
5965: IF (dbms_sql.is_open(cid)) THEN
5966: dbms_sql.close_cursor(cid);
5967: End if;
5968: END IF;
5969: Exception

Line 5966: dbms_sql.close_cursor(cid);

5962: ,cid);
5963: END LOOP;
5964: CLOSE bpsite_csr;
5965: IF (dbms_sql.is_open(cid)) THEN
5966: dbms_sql.close_cursor(cid);
5967: End if;
5968: END IF;
5969: Exception
5970: When others then

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

5967: End if;
5968: END IF;
5969: Exception
5970: When others then
5971: IF (dbms_sql.is_open(cid)) THEN
5972: dbms_sql.close_cursor(cid);
5973: End if;
5974: set_context('Evaluate_Blocks2', blk_id, bparty_id,bpsite_id);
5975: g_error := sqlcode || ' ' || sqlerrm;

Line 5972: dbms_sql.close_cursor(cid);

5968: END IF;
5969: Exception
5970: When others then
5971: IF (dbms_sql.is_open(cid)) THEN
5972: dbms_sql.close_cursor(cid);
5973: End if;
5974: set_context('Evaluate_Blocks2', blk_id, bparty_id,bpsite_id);
5975: g_error := sqlcode || ' ' || sqlerrm;
5976: set_context(NULL, g_error);

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

5999: END IF;
6000: -- End fix by spamujul for NCR ER# 8473903
6001: END LOOP;
6002: CLOSE bparty_csr;
6003: IF (dbms_sql.is_open(cid)) THEN
6004: dbms_sql.close_cursor(cid);
6005: end if;
6006: -- END IF
6007: Exception

Line 6004: dbms_sql.close_cursor(cid);

6000: -- End fix by spamujul for NCR ER# 8473903
6001: END LOOP;
6002: CLOSE bparty_csr;
6003: IF (dbms_sql.is_open(cid)) THEN
6004: dbms_sql.close_cursor(cid);
6005: end if;
6006: -- END IF
6007: Exception
6008: When others then

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

6005: end if;
6006: -- END IF
6007: Exception
6008: When others then
6009: IF (dbms_sql.is_open(cid)) THEN
6010: dbms_sql.close_cursor(cid);
6011: end if;
6012: set_context('Evaluate_Blocks1', blk_id, bparty_id);
6013: g_error := sqlcode || ' ' || sqlerrm;

Line 6010: dbms_sql.close_cursor(cid);

6006: -- END IF
6007: Exception
6008: When others then
6009: IF (dbms_sql.is_open(cid)) THEN
6010: dbms_sql.close_cursor(cid);
6011: end if;
6012: set_context('Evaluate_Blocks1', blk_id, bparty_id);
6013: g_error := sqlcode || ' ' || sqlerrm;
6014: set_context(NULL, g_error);

Line 6171: cid := dbms_sql.open_cursor;

6167: v_party_in_sql := INSTR(lower(sql_stmt),':party_id',1);
6168: v_acct_in_sql := INSTR(lower(sql_stmt),':cust_account_id',1);
6169: v_psite_in_sql := INSTR(lower(sql_stmt),':party_site_id',1); -- added by spamujul for ER#8473903
6170: Begin
6171: cid := dbms_sql.open_cursor;
6172: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6173: dbms_sql.define_column(cid, 1, val, 240);
6174: OPEN bparty_csr;
6175: LOOP

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

6168: v_acct_in_sql := INSTR(lower(sql_stmt),':cust_account_id',1);
6169: v_psite_in_sql := INSTR(lower(sql_stmt),':party_site_id',1); -- added by spamujul for ER#8473903
6170: Begin
6171: cid := dbms_sql.open_cursor;
6172: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6173: dbms_sql.define_column(cid, 1, val, 240);
6174: OPEN bparty_csr;
6175: LOOP
6176: FETCH bparty_csr

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

6169: v_psite_in_sql := INSTR(lower(sql_stmt),':party_site_id',1); -- added by spamujul for ER#8473903
6170: Begin
6171: cid := dbms_sql.open_cursor;
6172: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6173: dbms_sql.define_column(cid, 1, val, 240);
6174: OPEN bparty_csr;
6175: LOOP
6176: FETCH bparty_csr
6177: INTO bparty_id;

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

6242: End IF;
6243: -- End fix by spamujul for ER#8473903
6244: END LOOP;
6245: CLOSE bparty_csr;
6246: IF (dbms_sql.is_open(cid)) THEN
6247: dbms_sql.close_cursor(cid);
6248: end if;
6249: Exception
6250: When others then

Line 6247: dbms_sql.close_cursor(cid);

6243: -- End fix by spamujul for ER#8473903
6244: END LOOP;
6245: CLOSE bparty_csr;
6246: IF (dbms_sql.is_open(cid)) THEN
6247: dbms_sql.close_cursor(cid);
6248: end if;
6249: Exception
6250: When others then
6251: IF (dbms_sql.is_open(cid)) THEN

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

6247: dbms_sql.close_cursor(cid);
6248: end if;
6249: Exception
6250: When others then
6251: IF (dbms_sql.is_open(cid)) THEN
6252: dbms_sql.close_cursor(cid);
6253: end if;
6254: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
6255: g_error := sqlcode || ' ' || sqlerrm;

Line 6252: dbms_sql.close_cursor(cid);

6248: end if;
6249: Exception
6250: When others then
6251: IF (dbms_sql.is_open(cid)) THEN
6252: dbms_sql.close_cursor(cid);
6253: end if;
6254: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
6255: g_error := sqlcode || ' ' || sqlerrm;
6256: set_context(NULL, g_error);

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

6296: IF (bpsite_csr%isopen) THEN
6297: CLOSE bpsite_csr;
6298: END IF;
6299: -- End fix by spamujul for ER#8473903
6300: IF (dbms_sql.is_open(cid)) THEN
6301: dbms_sql.close_cursor(cid);
6302: end if;
6303: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
6304: g_error := sqlcode || ' ' || sqlerrm;

Line 6301: dbms_sql.close_cursor(cid);

6297: CLOSE bpsite_csr;
6298: END IF;
6299: -- End fix by spamujul for ER#8473903
6300: IF (dbms_sql.is_open(cid)) THEN
6301: dbms_sql.close_cursor(cid);
6302: end if;
6303: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
6304: g_error := sqlcode || ' ' || sqlerrm;
6305: set_context(NULL, g_error);

Line 6495: cid := dbms_sql.open_cursor;

6491: -- If acct is not present as bind variable, the sql might return wrong
6492: -- rows (party level counts) at account leve.
6493: --p_old_block_id:=null;
6494: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing. ACCTLevel.'||to_char(blk_id));
6495: cid := dbms_sql.open_cursor;
6496: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6497: dbms_sql.define_column(cid, 1, val, 240);
6498: /* changed bparty_id to p_party_id for bug 5351401 */
6499: v_party_id := p_party_id;

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

6492: -- rows (party level counts) at account leve.
6493: --p_old_block_id:=null;
6494: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing. ACCTLevel.'||to_char(blk_id));
6495: cid := dbms_sql.open_cursor;
6496: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6497: dbms_sql.define_column(cid, 1, val, 240);
6498: /* changed bparty_id to p_party_id for bug 5351401 */
6499: v_party_id := p_party_id;
6500: OPEN baccount_csr;

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

6493: --p_old_block_id:=null;
6494: -- dbms_output.put_line('Evaluate blocks1 Opening and Parsing. ACCTLevel.'||to_char(blk_id));
6495: cid := dbms_sql.open_cursor;
6496: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6497: dbms_sql.define_column(cid, 1, val, 240);
6498: /* changed bparty_id to p_party_id for bug 5351401 */
6499: v_party_id := p_party_id;
6500: OPEN baccount_csr;
6501: LOOP

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

6517: p_is_total -- added by spamujul for ER#8473903
6518: ,cid);
6519: END LOOP;
6520: CLOSE baccount_csr;
6521: IF (dbms_sql.is_open(cid)) THEN
6522: dbms_sql.close_cursor(cid);
6523: End if;
6524: END IF; -- added for 1850508
6525: /* Evaluate_One_Block(truncate_flag, blk_id, p_party_id,

Line 6522: dbms_sql.close_cursor(cid);

6518: ,cid);
6519: END LOOP;
6520: CLOSE baccount_csr;
6521: IF (dbms_sql.is_open(cid)) THEN
6522: dbms_sql.close_cursor(cid);
6523: End if;
6524: END IF; -- added for 1850508
6525: /* Evaluate_One_Block(truncate_flag, blk_id, p_party_id,
6526: p_acct_id, sql_stmt, curr_code,

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

6529:
6530: -- check if there are still records to be inserted
6531: Exception
6532: When others then
6533: IF (dbms_sql.is_open(cid)) THEN
6534: dbms_sql.close_cursor(cid);
6535: End if;
6536: set_context('Evaluate_Blocks2', blk_id, bparty_id);
6537: g_error := sqlcode || ' ' || sqlerrm;

Line 6534: dbms_sql.close_cursor(cid);

6530: -- check if there are still records to be inserted
6531: Exception
6532: When others then
6533: IF (dbms_sql.is_open(cid)) THEN
6534: dbms_sql.close_cursor(cid);
6535: End if;
6536: set_context('Evaluate_Blocks2', blk_id, bparty_id);
6537: g_error := sqlcode || ' ' || sqlerrm;
6538: set_context(NULL, g_error);

Line 6569: cid := dbms_sql.open_cursor;

6565: -- Begin fix by spamujul for NCR ER# 8473903
6566: Begin
6567: bparty_id :=0;
6568: IF (v_psite_in_sql <> 0) THEN
6569: cid := dbms_sql.open_cursor;
6570: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6571: dbms_sql.define_column(cid, 1, val, 240);
6572: v_party_id := p_party_id;
6573: OPEN bpsite_csr;

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

6566: Begin
6567: bparty_id :=0;
6568: IF (v_psite_in_sql <> 0) THEN
6569: cid := dbms_sql.open_cursor;
6570: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6571: dbms_sql.define_column(cid, 1, val, 240);
6572: v_party_id := p_party_id;
6573: OPEN bpsite_csr;
6574: LOOP

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

6567: bparty_id :=0;
6568: IF (v_psite_in_sql <> 0) THEN
6569: cid := dbms_sql.open_cursor;
6570: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6571: dbms_sql.define_column(cid, 1, val, 240);
6572: v_party_id := p_party_id;
6573: OPEN bpsite_csr;
6574: LOOP
6575: FETCH bpsite_csr

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

6617: v_incident_flag := 'N';
6618: END IF;
6619: -- End of the code when incident address is refreshed in Dashboard
6620:
6621: IF (dbms_sql.is_open(cid)) THEN
6622: dbms_sql.close_cursor(cid);
6623: End if;
6624: END IF;
6625: Exception

Line 6622: dbms_sql.close_cursor(cid);

6618: END IF;
6619: -- End of the code when incident address is refreshed in Dashboard
6620:
6621: IF (dbms_sql.is_open(cid)) THEN
6622: dbms_sql.close_cursor(cid);
6623: End if;
6624: END IF;
6625: Exception
6626: When others then

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

6623: End if;
6624: END IF;
6625: Exception
6626: When others then
6627: IF (dbms_sql.is_open(cid)) THEN
6628: dbms_sql.close_cursor(cid);
6629: End if;
6630: set_context('Evaluate_Blocks2', blk_id, bparty_id,bpsite_id);
6631: g_error := sqlcode || ' ' || sqlerrm;

Line 6628: dbms_sql.close_cursor(cid);

6624: END IF;
6625: Exception
6626: When others then
6627: IF (dbms_sql.is_open(cid)) THEN
6628: dbms_sql.close_cursor(cid);
6629: End if;
6630: set_context('Evaluate_Blocks2', blk_id, bparty_id,bpsite_id);
6631: g_error := sqlcode || ' ' || sqlerrm;
6632: set_context(NULL, g_error);

Line 6771: cid := dbms_sql.open_cursor;

6767: -- IF ((v_party_in_sql <> 0) and (v_acct_in_sql <> 0)) Then
6768: -- Loop through per party
6769: -- added for 1850508
6770: -- dbms_output.put_line('Evaluate blocks4 Opening and Parsing.PARTY Level.'||to_char(blk_id));
6771: cid := dbms_sql.open_cursor;
6772: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6773: dbms_sql.define_column(cid, 1, val, 240);
6774: OPEN bparty_csr;
6775: LOOP

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

6768: -- Loop through per party
6769: -- added for 1850508
6770: -- dbms_output.put_line('Evaluate blocks4 Opening and Parsing.PARTY Level.'||to_char(blk_id));
6771: cid := dbms_sql.open_cursor;
6772: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6773: dbms_sql.define_column(cid, 1, val, 240);
6774: OPEN bparty_csr;
6775: LOOP
6776: FETCH bparty_csr

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

6769: -- added for 1850508
6770: -- dbms_output.put_line('Evaluate blocks4 Opening and Parsing.PARTY Level.'||to_char(blk_id));
6771: cid := dbms_sql.open_cursor;
6772: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
6773: dbms_sql.define_column(cid, 1, val, 240);
6774: OPEN bparty_csr;
6775: LOOP
6776: FETCH bparty_csr
6777: INTO bparty_id;

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

6847: END IF;
6848: -- End fix by spamujul for ER#8473903
6849: END LOOP;
6850: CLOSE bparty_csr;
6851: IF (dbms_sql.is_open(cid)) THEN
6852: dbms_sql.close_cursor(cid);
6853: end if;
6854: -- END IF;
6855: Exception

Line 6852: dbms_sql.close_cursor(cid);

6848: -- End fix by spamujul for ER#8473903
6849: END LOOP;
6850: CLOSE bparty_csr;
6851: IF (dbms_sql.is_open(cid)) THEN
6852: dbms_sql.close_cursor(cid);
6853: end if;
6854: -- END IF;
6855: Exception
6856: When others then

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

6853: end if;
6854: -- END IF;
6855: Exception
6856: When others then
6857: IF (dbms_sql.is_open(cid)) THEN
6858: dbms_sql.close_cursor(cid);
6859: end if;
6860: set_context('Evaluate_Blocks4', blk_id, bparty_id);
6861: g_error := sqlcode || ' ' || sqlerrm;

Line 6858: dbms_sql.close_cursor(cid);

6854: -- END IF;
6855: Exception
6856: When others then
6857: IF (dbms_sql.is_open(cid)) THEN
6858: dbms_sql.close_cursor(cid);
6859: end if;
6860: set_context('Evaluate_Blocks4', blk_id, bparty_id);
6861: g_error := sqlcode || ' ' || sqlerrm;
6862: set_context(NULL, g_error);

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

6950: IF (bpsite_csr%isopen) THEN
6951: CLOSE bpsite_csr;
6952: END IF;
6953: -- End fix by spamujul for ER#8473903
6954: IF (dbms_sql.is_open(cid)) THEN
6955: dbms_sql.close_cursor(cid);
6956: end if;
6957: set_context('Evaluate_Blocks4', blk_id, bparty_id);
6958: g_error := sqlcode || ' ' || sqlerrm;

Line 6955: dbms_sql.close_cursor(cid);

6951: CLOSE bpsite_csr;
6952: END IF;
6953: -- End fix by spamujul for ER#8473903
6954: IF (dbms_sql.is_open(cid)) THEN
6955: dbms_sql.close_cursor(cid);
6956: end if;
6957: set_context('Evaluate_Blocks4', blk_id, bparty_id);
6958: g_error := sqlcode || ' ' || sqlerrm;
6959: set_context(NULL, g_error);

Line 7050: cid := dbms_sql.open_cursor;

7046: v_party_in_sql := INSTR(lower(sql_stmt),':party_id',1);
7047: v_acct_in_sql := INSTR(lower(sql_stmt),':cust_account_id',1);
7048: v_psite_in_sql := INSTR(lower(sql_stmt),':party_site_id',1); -- added by spamujul for ER#8473903
7049: Begin
7050: cid := dbms_sql.open_cursor;
7051: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7052: dbms_sql.define_column(cid, 1, val, 240);
7053: OPEN bparty_csr;
7054: LOOP

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

7047: v_acct_in_sql := INSTR(lower(sql_stmt),':cust_account_id',1);
7048: v_psite_in_sql := INSTR(lower(sql_stmt),':party_site_id',1); -- added by spamujul for ER#8473903
7049: Begin
7050: cid := dbms_sql.open_cursor;
7051: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7052: dbms_sql.define_column(cid, 1, val, 240);
7053: OPEN bparty_csr;
7054: LOOP
7055: FETCH bparty_csr

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

7048: v_psite_in_sql := INSTR(lower(sql_stmt),':party_site_id',1); -- added by spamujul for ER#8473903
7049: Begin
7050: cid := dbms_sql.open_cursor;
7051: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7052: dbms_sql.define_column(cid, 1, val, 240);
7053: OPEN bparty_csr;
7054: LOOP
7055: FETCH bparty_csr
7056: INTO bparty_id;

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

7122: End IF;
7123: -- End fix by spamujul for ER#8473903
7124: END LOOP;
7125: CLOSE bparty_csr;
7126: IF (dbms_sql.is_open(cid)) THEN
7127: dbms_sql.close_cursor(cid);
7128: end if;
7129: Exception
7130: When others then

Line 7127: dbms_sql.close_cursor(cid);

7123: -- End fix by spamujul for ER#8473903
7124: END LOOP;
7125: CLOSE bparty_csr;
7126: IF (dbms_sql.is_open(cid)) THEN
7127: dbms_sql.close_cursor(cid);
7128: end if;
7129: Exception
7130: When others then
7131: IF (dbms_sql.is_open(cid)) THEN

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

7127: dbms_sql.close_cursor(cid);
7128: end if;
7129: Exception
7130: When others then
7131: IF (dbms_sql.is_open(cid)) THEN
7132: dbms_sql.close_cursor(cid);
7133: end if;
7134: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
7135: g_error := sqlcode || ' ' || sqlerrm;

Line 7132: dbms_sql.close_cursor(cid);

7128: end if;
7129: Exception
7130: When others then
7131: IF (dbms_sql.is_open(cid)) THEN
7132: dbms_sql.close_cursor(cid);
7133: end if;
7134: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
7135: g_error := sqlcode || ' ' || sqlerrm;
7136: set_context(NULL, g_error);

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

7203: IF (bpsite_csr%isopen) THEN
7204: CLOSE bpsite_csr;
7205: END IF;
7206: -- End fix by spamujul for ER#8473903
7207: IF (dbms_sql.is_open(cid)) THEN
7208: dbms_sql.close_cursor(cid);
7209: end if;
7210: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
7211: g_error := sqlcode || ' ' || sqlerrm;

Line 7208: dbms_sql.close_cursor(cid);

7204: CLOSE bpsite_csr;
7205: END IF;
7206: -- End fix by spamujul for ER#8473903
7207: IF (dbms_sql.is_open(cid)) THEN
7208: dbms_sql.close_cursor(cid);
7209: end if;
7210: set_context('Evaluate_Blocks4_No_Batch', blk_id, bparty_id);
7211: g_error := sqlcode || ' ' || sqlerrm;
7212: set_context(NULL, g_error);

Line 7349: cid := dbms_sql.open_cursor;

7345: -- Begin fix by spamujul for NCR ER# 8473903
7346: Begin
7347: bparty_id :=0;
7348: IF (v_psite_in_sql <> 0) THEN
7349: cid := dbms_sql.open_cursor;
7350: dbms_sql.parse(cid, v_sql_stmt, dbms_sql.native);
7351: dbms_sql.define_column(cid, 1, val, 240);
7352: v_party_id := p_party_id;
7353: OPEN bpsite_csr;

Line 7350: dbms_sql.parse(cid, v_sql_stmt, dbms_sql.native);

7346: Begin
7347: bparty_id :=0;
7348: IF (v_psite_in_sql <> 0) THEN
7349: cid := dbms_sql.open_cursor;
7350: dbms_sql.parse(cid, v_sql_stmt, dbms_sql.native);
7351: dbms_sql.define_column(cid, 1, val, 240);
7352: v_party_id := p_party_id;
7353: OPEN bpsite_csr;
7354: LOOP

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

7347: bparty_id :=0;
7348: IF (v_psite_in_sql <> 0) THEN
7349: cid := dbms_sql.open_cursor;
7350: dbms_sql.parse(cid, v_sql_stmt, dbms_sql.native);
7351: dbms_sql.define_column(cid, 1, val, 240);
7352: v_party_id := p_party_id;
7353: OPEN bpsite_csr;
7354: LOOP
7355: FETCH bpsite_csr

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

7370: p_is_total
7371: ,cid);
7372: END LOOP;
7373: CLOSE bpsite_csr;
7374: IF (dbms_sql.is_open(cid)) THEN
7375: dbms_sql.close_cursor(cid);
7376: End if;
7377: END IF;
7378: Exception

Line 7375: dbms_sql.close_cursor(cid);

7371: ,cid);
7372: END LOOP;
7373: CLOSE bpsite_csr;
7374: IF (dbms_sql.is_open(cid)) THEN
7375: dbms_sql.close_cursor(cid);
7376: End if;
7377: END IF;
7378: Exception
7379: When others then

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

7376: End if;
7377: END IF;
7378: Exception
7379: When others then
7380: IF (dbms_sql.is_open(cid)) THEN
7381: dbms_sql.close_cursor(cid);
7382: End if;
7383: set_context('Evaluate_Blocks5', v_blk_id, bparty_id,bpsite_id);
7384: g_error := sqlcode || ' ' || sqlerrm;

Line 7381: dbms_sql.close_cursor(cid);

7377: END IF;
7378: Exception
7379: When others then
7380: IF (dbms_sql.is_open(cid)) THEN
7381: dbms_sql.close_cursor(cid);
7382: End if;
7383: set_context('Evaluate_Blocks5', v_blk_id, bparty_id,bpsite_id);
7384: g_error := sqlcode || ' ' || sqlerrm;
7385: set_context(NULL, g_error);

Line 7575: cid := dbms_sql.open_cursor;

7571: v_party_in_sql := INSTR(lower(v_rec_var.sql_stmnt),':party_id',1);
7572: v_psite_in_sql := INSTR(lower(v_rec_var.sql_stmnt),':party_site_id',1);
7573: v_block_id := v_rec_var.block_id;
7574: BEGIN
7575: cid := dbms_sql.open_cursor;
7576: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
7577: dbms_sql.define_column(cid, 1, val, 240);
7578: OPEN relparty_csr;
7579: LOOP

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

7572: v_psite_in_sql := INSTR(lower(v_rec_var.sql_stmnt),':party_site_id',1);
7573: v_block_id := v_rec_var.block_id;
7574: BEGIN
7575: cid := dbms_sql.open_cursor;
7576: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
7577: dbms_sql.define_column(cid, 1, val, 240);
7578: OPEN relparty_csr;
7579: LOOP
7580: FETCH relparty_csr

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

7573: v_block_id := v_rec_var.block_id;
7574: BEGIN
7575: cid := dbms_sql.open_cursor;
7576: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
7577: dbms_sql.define_column(cid, 1, val, 240);
7578: OPEN relparty_csr;
7579: LOOP
7580: FETCH relparty_csr
7581: INTO v_party_id;

Line 7601: cid := dbms_sql.open_cursor;

7597: -- Begin fix by spamujul for ER#8473903
7598: Begin
7599: bparty_id :=0;
7600: IF (v_psite_in_sql <> 0) THEN
7601: cid := dbms_sql.open_cursor;
7602: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
7603: dbms_sql.define_column(cid, 1, val, 240);
7604: OPEN bpsite_csr;
7605: LOOP

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

7598: Begin
7599: bparty_id :=0;
7600: IF (v_psite_in_sql <> 0) THEN
7601: cid := dbms_sql.open_cursor;
7602: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
7603: dbms_sql.define_column(cid, 1, val, 240);
7604: OPEN bpsite_csr;
7605: LOOP
7606: FETCH bpsite_csr

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

7599: bparty_id :=0;
7600: IF (v_psite_in_sql <> 0) THEN
7601: cid := dbms_sql.open_cursor;
7602: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
7603: dbms_sql.define_column(cid, 1, val, 240);
7604: OPEN bpsite_csr;
7605: LOOP
7606: FETCH bpsite_csr
7607: INTO bparty_id, bpsite_id;

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

7621: p_is_total
7622: ,cid);
7623: END LOOP;
7624: CLOSE bpsite_csr;
7625: IF (dbms_sql.is_open(cid)) THEN
7626: dbms_sql.close_cursor(cid);
7627: End if;
7628: END IF;
7629: Exception

Line 7626: dbms_sql.close_cursor(cid);

7622: ,cid);
7623: END LOOP;
7624: CLOSE bpsite_csr;
7625: IF (dbms_sql.is_open(cid)) THEN
7626: dbms_sql.close_cursor(cid);
7627: End if;
7628: END IF;
7629: Exception
7630: When others then

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

7627: End if;
7628: END IF;
7629: Exception
7630: When others then
7631: IF (dbms_sql.is_open(cid)) THEN
7632: dbms_sql.close_cursor(cid);
7633: End if;
7634: set_context('Evaluate_Blocks_rel', v_block_id, bparty_id,bpsite_id);
7635: g_error := sqlcode || ' ' || sqlerrm;

Line 7632: dbms_sql.close_cursor(cid);

7628: END IF;
7629: Exception
7630: When others then
7631: IF (dbms_sql.is_open(cid)) THEN
7632: dbms_sql.close_cursor(cid);
7633: End if;
7634: set_context('Evaluate_Blocks_rel', v_block_id, bparty_id,bpsite_id);
7635: g_error := sqlcode || ' ' || sqlerrm;
7636: set_context(NULL, g_error);

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

7659: END IF;
7660: -- End fix by spamujul for ER#8473903
7661: END LOOP;
7662: CLOSE relparty_csr;
7663: IF (dbms_sql.is_open(cid)) THEN
7664: dbms_sql.close_cursor(cid);
7665: END IF;
7666: EXCEPTION
7667: WHEN others THEN

Line 7664: dbms_sql.close_cursor(cid);

7660: -- End fix by spamujul for ER#8473903
7661: END LOOP;
7662: CLOSE relparty_csr;
7663: IF (dbms_sql.is_open(cid)) THEN
7664: dbms_sql.close_cursor(cid);
7665: END IF;
7666: EXCEPTION
7667: WHEN others THEN
7668: IF (dbms_sql.is_open(cid)) THEN

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

7664: dbms_sql.close_cursor(cid);
7665: END IF;
7666: EXCEPTION
7667: WHEN others THEN
7668: IF (dbms_sql.is_open(cid)) THEN
7669: dbms_sql.close_cursor(cid);
7670: END IF;
7671: IF (bpsite_csr%isopen) THEN
7672: CLOSE bpsite_csr;

Line 7669: dbms_sql.close_cursor(cid);

7665: END IF;
7666: EXCEPTION
7667: WHEN others THEN
7668: IF (dbms_sql.is_open(cid)) THEN
7669: dbms_sql.close_cursor(cid);
7670: END IF;
7671: IF (bpsite_csr%isopen) THEN
7672: CLOSE bpsite_csr;
7673: END IF;

Line 7930: cid := dbms_sql.open_cursor;

7926: END IF;
7927:
7928: BEGIN
7929: IF ((sel_type='B' ) OR (sel_type='T') ) THEN
7930: cid := dbms_sql.open_cursor;
7931: IF (sel_type = 'B') THEN
7932: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7933: ELSIF (sel_type = 'T') then
7934: dbms_sql.parse(cid, rule, dbms_sql.native);

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

7928: BEGIN
7929: IF ((sel_type='B' ) OR (sel_type='T') ) THEN
7930: cid := dbms_sql.open_cursor;
7931: IF (sel_type = 'B') THEN
7932: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7933: ELSIF (sel_type = 'T') then
7934: dbms_sql.parse(cid, rule, dbms_sql.native);
7935: END IF;
7936: dbms_sql.define_column(cid,1,val,240);

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

7930: cid := dbms_sql.open_cursor;
7931: IF (sel_type = 'B') THEN
7932: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7933: ELSIF (sel_type = 'T') then
7934: dbms_sql.parse(cid, rule, dbms_sql.native);
7935: END IF;
7936: dbms_sql.define_column(cid,1,val,240);
7937: OPEN crelparty_csr;
7938: LOOP

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

7932: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7933: ELSIF (sel_type = 'T') then
7934: dbms_sql.parse(cid, rule, dbms_sql.native);
7935: END IF;
7936: dbms_sql.define_column(cid,1,val,240);
7937: OPEN crelparty_csr;
7938: LOOP
7939: FETCH crelparty_csr INTO cparty_id;
7940: EXIT WHEN crelparty_csr%notfound;

Line 7972: cid := dbms_sql.open_cursor;

7968: IF ((sel_type='B' ) OR (sel_type='T') ) AND v_check_level='SITE' THEN
7969: IF ((v_psite_in_sql = 0) AND sel_type = 'B') AND v_check_level='SITE' THEN
7970: NULL;
7971: ELSE
7972: cid := dbms_sql.open_cursor;
7973: IF (sel_type = 'B') THEN
7974: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7975: ELSIF (sel_type = 'T') THEN
7976: dbms_sql.parse(cid, rule, dbms_sql.native);

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

7970: NULL;
7971: ELSE
7972: cid := dbms_sql.open_cursor;
7973: IF (sel_type = 'B') THEN
7974: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7975: ELSIF (sel_type = 'T') THEN
7976: dbms_sql.parse(cid, rule, dbms_sql.native);
7977: END IF;
7978: dbms_sql.define_column(cid,1,val,240);

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

7972: cid := dbms_sql.open_cursor;
7973: IF (sel_type = 'B') THEN
7974: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7975: ELSIF (sel_type = 'T') THEN
7976: dbms_sql.parse(cid, rule, dbms_sql.native);
7977: END IF;
7978: dbms_sql.define_column(cid,1,val,240);
7979: OPEN cpsite_csr;
7980: LOOP

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

7974: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
7975: ELSIF (sel_type = 'T') THEN
7976: dbms_sql.parse(cid, rule, dbms_sql.native);
7977: END IF;
7978: dbms_sql.define_column(cid,1,val,240);
7979: OPEN cpsite_csr;
7980: LOOP
7981: FETCH cpsite_csr
7982: INTO cparty_id,

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

8006: l_is_total,
8007: cid);
8008: END LOOP;
8009: CLOSE cpsite_csr;
8010: IF (dbms_sql.is_open(cid)) THEN
8011: dbms_sql.close_cursor(cid);
8012: end if;
8013: END IF;
8014: END IF;

Line 8011: dbms_sql.close_cursor(cid);

8007: cid);
8008: END LOOP;
8009: CLOSE cpsite_csr;
8010: IF (dbms_sql.is_open(cid)) THEN
8011: dbms_sql.close_cursor(cid);
8012: end if;
8013: END IF;
8014: END IF;
8015: Exception

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

8013: END IF;
8014: END IF;
8015: Exception
8016: When others then
8017: IF (dbms_sql.is_open(cid)) THEN
8018: dbms_sql.close_cursor(cid);
8019: end if;
8020: set_context('Evaluate_Checks_Rel',
8021: 'chk_id=>'||to_char(chk_id),

Line 8018: dbms_sql.close_cursor(cid);

8014: END IF;
8015: Exception
8016: When others then
8017: IF (dbms_sql.is_open(cid)) THEN
8018: dbms_sql.close_cursor(cid);
8019: end if;
8020: set_context('Evaluate_Checks_Rel',
8021: 'chk_id=>'||to_char(chk_id),
8022: 'party_id=>'||to_char(cparty_id),

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

8052: );
8053: l_us_total :=0;
8054: END IF;
8055: -- End fix by spamujul for ER#8473903
8056: IF (dbms_sql.is_open(cid)) THEN
8057: dbms_sql.close_cursor(cid);
8058: END IF;
8059: END IF;
8060: Exception

Line 8057: dbms_sql.close_cursor(cid);

8053: l_us_total :=0;
8054: END IF;
8055: -- End fix by spamujul for ER#8473903
8056: IF (dbms_sql.is_open(cid)) THEN
8057: dbms_sql.close_cursor(cid);
8058: END IF;
8059: END IF;
8060: Exception
8061: When others then

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

8058: END IF;
8059: END IF;
8060: Exception
8061: When others then
8062: IF (dbms_sql.is_open(cid)) THEN
8063: dbms_sql.close_cursor(cid);
8064: end if;
8065: set_context('Evaluate_Checks_Rel',
8066: 'chk_id =>'||to_char(chk_id),

Line 8063: dbms_sql.close_cursor(cid);

8059: END IF;
8060: Exception
8061: When others then
8062: IF (dbms_sql.is_open(cid)) THEN
8063: dbms_sql.close_cursor(cid);
8064: end if;
8065: set_context('Evaluate_Checks_Rel',
8066: 'chk_id =>'||to_char(chk_id),
8067: 'party_id =>'||to_char(cparty_id),

Line 8261: cid := dbms_sql.open_cursor;

8257: EXIT WHEN v_block_curvar%notfound;
8258: v_employee_in_sql := INSTR(lower(v_rec_var.sql_stmnt),':employee_id',1);
8259: v_block_id := v_rec_var.block_id;
8260: BEGIN
8261: cid := dbms_sql.open_cursor;
8262: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
8263: dbms_sql.define_column(cid, 1, val, 240);
8264:
8265: OPEN employee_csr;

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

8258: v_employee_in_sql := INSTR(lower(v_rec_var.sql_stmnt),':employee_id',1);
8259: v_block_id := v_rec_var.block_id;
8260: BEGIN
8261: cid := dbms_sql.open_cursor;
8262: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
8263: dbms_sql.define_column(cid, 1, val, 240);
8264:
8265: OPEN employee_csr;
8266: LOOP

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

8259: v_block_id := v_rec_var.block_id;
8260: BEGIN
8261: cid := dbms_sql.open_cursor;
8262: dbms_sql.parse(cid, v_rec_var.sql_stmnt, dbms_sql.native);
8263: dbms_sql.define_column(cid, 1, val, 240);
8264:
8265: OPEN employee_csr;
8266: LOOP
8267: FETCH employee_csr INTO v_party_id;

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

8283: cid);
8284: END LOOP;
8285: CLOSE employee_csr;
8286:
8287: IF (dbms_sql.is_open(cid)) THEN
8288: dbms_sql.close_cursor(cid);
8289: END IF;
8290:
8291: EXCEPTION

Line 8288: dbms_sql.close_cursor(cid);

8284: END LOOP;
8285: CLOSE employee_csr;
8286:
8287: IF (dbms_sql.is_open(cid)) THEN
8288: dbms_sql.close_cursor(cid);
8289: END IF;
8290:
8291: EXCEPTION
8292: WHEN others THEN

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

8289: END IF;
8290:
8291: EXCEPTION
8292: WHEN others THEN
8293: IF (dbms_sql.is_open(cid)) THEN
8294: dbms_sql.close_cursor(cid);
8295: END IF;
8296:
8297: set_context('Evaluate_Blocks_Emp', v_block_id, v_party_id);

Line 8294: dbms_sql.close_cursor(cid);

8290:
8291: EXCEPTION
8292: WHEN others THEN
8293: IF (dbms_sql.is_open(cid)) THEN
8294: dbms_sql.close_cursor(cid);
8295: END IF;
8296:
8297: set_context('Evaluate_Blocks_Emp', v_block_id, v_party_id);
8298: g_error := sqlcode || ' ' || sqlerrm;

Line 8513: cid := dbms_sql.open_cursor;

8509:
8510: BEGIN
8511:
8512: IF ((sel_type='B' ) OR (sel_type='T') ) THEN
8513: cid := dbms_sql.open_cursor;
8514:
8515:
8516: IF (sel_type='B') THEN
8517:

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

8514:
8515:
8516: IF (sel_type='B') THEN
8517:
8518: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
8519: ELSIF (sel_type = 'T') THEN
8520: dbms_sql.parse(cid, rule, dbms_sql.native);
8521: END IF;
8522:

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

8516: IF (sel_type='B') THEN
8517:
8518: dbms_sql.parse(cid, sql_stmt, dbms_sql.native);
8519: ELSIF (sel_type = 'T') THEN
8520: dbms_sql.parse(cid, rule, dbms_sql.native);
8521: END IF;
8522:
8523: dbms_sql.define_column(cid,1,val,240);
8524: OPEN employee_csr;

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

8519: ELSIF (sel_type = 'T') THEN
8520: dbms_sql.parse(cid, rule, dbms_sql.native);
8521: END IF;
8522:
8523: dbms_sql.define_column(cid,1,val,240);
8524: OPEN employee_csr;
8525:
8526: LOOP
8527: FETCH employee_csr INTO cparty_id;

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

8550: l_is_total, -- added by spamujul for ER#8473903
8551: cid);
8552: END LOOP;
8553: CLOSE employee_csr;
8554: IF (dbms_sql.is_open(cid)) THEN
8555: dbms_sql.close_cursor(cid);
8556: END IF;
8557: END IF;
8558:

Line 8555: dbms_sql.close_cursor(cid);

8551: cid);
8552: END LOOP;
8553: CLOSE employee_csr;
8554: IF (dbms_sql.is_open(cid)) THEN
8555: dbms_sql.close_cursor(cid);
8556: END IF;
8557: END IF;
8558:
8559:

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

8556: END IF;
8557: END IF;
8558:
8559:
8560: IF (dbms_sql.is_open(cid)) THEN
8561: dbms_sql.close_cursor(cid);
8562: end if;
8563:
8564: End;

Line 8561: dbms_sql.close_cursor(cid);

8557: END IF;
8558:
8559:
8560: IF (dbms_sql.is_open(cid)) THEN
8561: dbms_sql.close_cursor(cid);
8562: end if;
8563:
8564: End;
8565:

Line 8705: cid := dbms_sql.open_cursor;

8701: -- P_CID is the Cursor to avoid reparsing the sql stmt
8702: -- P_CID would not be null when engine runs for more than 1 party (e.g. evaluate_checks1)
8703: -- P_CID would be null when engine is being run for 1 party (e.g. evaluate_checks2)
8704: if p_cid is null then
8705: cid := dbms_sql.open_cursor;
8706: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
8707: dbms_sql.define_column(cid, 1, val, 240);
8708: else
8709: cid := p_cid;

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

8702: -- P_CID would not be null when engine runs for more than 1 party (e.g. evaluate_checks1)
8703: -- P_CID would be null when engine is being run for 1 party (e.g. evaluate_checks2)
8704: if p_cid is null then
8705: cid := dbms_sql.open_cursor;
8706: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
8707: dbms_sql.define_column(cid, 1, val, 240);
8708: else
8709: cid := p_cid;
8710: end if;

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

8703: -- P_CID would be null when engine is being run for 1 party (e.g. evaluate_checks2)
8704: if p_cid is null then
8705: cid := dbms_sql.open_cursor;
8706: dbms_sql.parse(cid, p_sql_stmt, dbms_sql.native);
8707: dbms_sql.define_column(cid, 1, val, 240);
8708: else
8709: cid := p_cid;
8710: end if;
8711: -- added for 1850508

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

8728: -- For Bug 1935015 commented this if statement and created 2 variables
8729: -- v_party_in_sql and v_acct_in_sql and used them in the if stmt.
8730: --if INSTR(lower(p_sql_stmt),':party_id',1) > 0 then
8731: if v_party_in_sql > 0 then
8732: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
8733: end if;
8734: --if INSTR(lower(p_sql_stmt),':cust_account_id',1) > 0 then
8735: if v_acct_in_sql > 0 then
8736: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);

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

8732: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
8733: end if;
8734: --if INSTR(lower(p_sql_stmt),':cust_account_id',1) > 0 then
8735: if v_acct_in_sql > 0 then
8736: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
8737: end if;
8738: if v_emp_in_sql > 0 then
8739: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);
8740: end if;

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

8735: if v_acct_in_sql > 0 then
8736: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
8737: end if;
8738: if v_emp_in_sql > 0 then
8739: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);
8740: end if;
8741: -- Begin fix by spamujul for NCR ER#8473903
8742: If v_psite_in_sql > 0 then
8743: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);

Line 8743: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);

8739: dbms_sql.bind_variable(cid, ':employee_id', p_party_id);
8740: end if;
8741: -- Begin fix by spamujul for NCR ER#8473903
8742: If v_psite_in_sql > 0 then
8743: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);
8744: End if;
8745: -- End fix by spamujul for NCR ER#8473903
8746: /***********************
8747: dbms_sql.bind_variable(cid, ':party_id', p_party_id);

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

8743: dbms_sql.bind_variable(cid, ':party_site_id', p_psite_id);
8744: End if;
8745: -- End fix by spamujul for NCR ER#8473903
8746: /***********************
8747: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
8748: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
8749: ***************/
8750: dummy := dbms_sql.execute_and_fetch(cid);
8751: dbms_sql.column_value(cid, 1, val);

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

8744: End if;
8745: -- End fix by spamujul for NCR ER#8473903
8746: /***********************
8747: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
8748: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
8749: ***************/
8750: dummy := dbms_sql.execute_and_fetch(cid);
8751: dbms_sql.column_value(cid, 1, val);
8752: if p_cid is null then

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

8746: /***********************
8747: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
8748: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
8749: ***************/
8750: dummy := dbms_sql.execute_and_fetch(cid);
8751: dbms_sql.column_value(cid, 1, val);
8752: if p_cid is null then
8753: dbms_sql.close_cursor(cid);
8754: end if;

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

8747: dbms_sql.bind_variable(cid, ':party_id', p_party_id);
8748: dbms_sql.bind_variable(cid, ':cust_account_id', p_acct_id);
8749: ***************/
8750: dummy := dbms_sql.execute_and_fetch(cid);
8751: dbms_sql.column_value(cid, 1, val);
8752: if p_cid is null then
8753: dbms_sql.close_cursor(cid);
8754: end if;
8755: Exception

Line 8753: dbms_sql.close_cursor(cid);

8749: ***************/
8750: dummy := dbms_sql.execute_and_fetch(cid);
8751: dbms_sql.column_value(cid, 1, val);
8752: if p_cid is null then
8753: dbms_sql.close_cursor(cid);
8754: end if;
8755: Exception
8756: When Others Then
8757: -- dbms_output.put_line('Exception Others in Blocks...');

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

8755: Exception
8756: When Others Then
8757: -- dbms_output.put_line('Exception Others in Blocks...');
8758: if p_cid is null then
8759: IF (dbms_sql.is_open(cid)) THEN
8760: dbms_sql.close_cursor(cid);
8761: end if;
8762: end if;
8763: val := 0;

Line 8760: dbms_sql.close_cursor(cid);

8756: When Others Then
8757: -- dbms_output.put_line('Exception Others in Blocks...');
8758: if p_cid is null then
8759: IF (dbms_sql.is_open(cid)) THEN
8760: dbms_sql.close_cursor(cid);
8761: end if;
8762: end if;
8763: val := 0;
8764: End;

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

8963: -- If an exception is raised, close cursor before exiting
8964: WHEN OTHERS THEN
8965: -- dbms_output.put_line('Exception Others in Blocks...');
8966: if p_cid is null then
8967: IF (dbms_sql.is_open(cid)) THEN
8968: dbms_sql.close_cursor(cid);
8969: END IF;
8970: end if;
8971: set_context('Evaluate_One_Block',

Line 8968: dbms_sql.close_cursor(cid);

8964: WHEN OTHERS THEN
8965: -- dbms_output.put_line('Exception Others in Blocks...');
8966: if p_cid is null then
8967: IF (dbms_sql.is_open(cid)) THEN
8968: dbms_sql.close_cursor(cid);
8969: END IF;
8970: end if;
8971: set_context('Evaluate_One_Block',
8972: 'blk_id=>'||to_char(p_blk_id),