1: PACKAGE BODY ZX_ON_FLY_TRX_UPGRADE_PO_PKG AS
2: /* $Header: zxmigtrxflypob.pls 120.26.12020000.3 2012/11/23 14:25:21 srajapar noship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
2: /* $Header: zxmigtrxflypob.pls 120.26.12020000.3 2012/11/23 14:25:21 srajapar noship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: -------------------------------------------------------------------------------
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: -------------------------------------------------------------------------------
11: -- PUBLIC PROCEDURE
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9:
10: -------------------------------------------------------------------------------
11: -- PUBLIC PROCEDURE
12: -- upgrade_trx_on_fly_po
26: l_estb_id NUMBER;
27:
28: BEGIN
29:
30: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
31:
32: IF (g_level_procedure >= g_current_runtime_level ) THEN
33: FND_LOG.STRING(g_level_procedure,
34: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po.BEGIN',
29:
30: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
31:
32: IF (g_level_procedure >= g_current_runtime_level ) THEN
33: FND_LOG.STRING(g_level_procedure,
34: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po.BEGIN',
35: 'ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po(+)');
36: END IF;
37:
42: IF NVL(l_multi_org_flag,'N') = 'N' THEN -- non- multi org
43: FND_PROFILE.GET('ORG_ID',l_org_id);
44: IF l_org_id is NULL THEN
45: IF (g_level_unexpected >= g_current_runtime_level ) THEN
46: FND_LOG.STRING(g_level_unexpected,
47: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_po',
48: 'Current envionment is a Single Org environment,'||
49: ' but profile ORG_ID is not set up');
50: END IF;
79: EXCEPTION
80: WHEN OTHERS THEN
81: l_estb_id := NULL;
82: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
83: FND_LOG.STRING(G_LEVEL_UNEXPECTED,'ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
84: 'Main Establishment Not Defined ' ||SQLERRM);
85: END IF;
86: END;
87:
90: ZX_PO_REC_PKG.get_rec_info(p_upg_trx_info_rec => p_upg_trx_info_rec,
91: x_return_status => x_return_status);
92:
93: IF (g_level_statement >= g_current_runtime_level ) THEN
94: FND_LOG.STRING(g_level_statement,
95: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_po',
96: 'Inserting data into zx_lines_det_factors');
97: END IF;
98:
513: AND zxl.TRX_LEVEL_TYPE = 'SHIPMENT'
514: );
515:
516: IF (g_level_statement >= g_current_runtime_level ) THEN
517: FND_LOG.STRING(g_level_statement,
518: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
519: 'Number of Rows Inserted = ' || TO_CHAR(SQL%ROWCOUNT));
520: END IF;
521:
521:
522: -- COMMIT;
523:
524: IF (g_level_statement >= g_current_runtime_level ) THEN
525: FND_LOG.STRING(g_level_statement,
526: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_po',
527: 'Inserting data into zx_lines: tax code');
528: END IF;
529:
1217: AND zxl.TRX_LEVEL_TYPE = 'SHIPMENT'
1218: );
1219:
1220: IF (g_level_statement >= g_current_runtime_level ) THEN
1221: FND_LOG.STRING(g_level_statement,
1222: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
1223: 'Number of Rows Inserted(Tax Code) = '||TO_CHAR(SQL%ROWCOUNT));
1224: END IF;
1225:
1223: 'Number of Rows Inserted(Tax Code) = '||TO_CHAR(SQL%ROWCOUNT));
1224: END IF;
1225:
1226: IF (g_level_statement >= g_current_runtime_level ) THEN
1227: FND_LOG.STRING(g_level_statement,
1228: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_po',
1229: 'Inserting data into zx_lines');
1230: END IF;
1231:
1936: AND zxl.TRX_LEVEL_TYPE = 'SHIPMENT'
1937: );
1938:
1939: IF (g_level_statement >= g_current_runtime_level ) THEN
1940: FND_LOG.STRING(g_level_statement,
1941: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
1942: 'Number of Rows Inserted(Tax Group = ' || TO_CHAR(SQL%ROWCOUNT));
1943: END IF;
1944:
1944:
1945: -- COMMIT;
1946:
1947: IF (g_level_statement >= g_current_runtime_level ) THEN
1948: FND_LOG.STRING(g_level_statement,
1949: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_po',
1950: 'Inserting data into zx_rec_nrec_dist');
1951: END IF;
1952:
2415: -- AND zxdist.trx_line_dist_id = pod.po_distribution_id
2416: );
2417:
2418: IF (g_level_statement >= g_current_runtime_level ) THEN
2419: FND_LOG.STRING(g_level_statement,
2420: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
2421: 'Number of Rows Inserted = ' || TO_CHAR(SQL%ROWCOUNT));
2422: END IF;
2423:
2848: AND zxl.TRX_LEVEL_TYPE = 'SHIPMENT'
2849: );
2850:
2851: IF (g_level_statement >= g_current_runtime_level ) THEN
2852: FND_LOG.STRING(g_level_statement,
2853: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
2854: 'Number of Rows Inserted = ' || TO_CHAR(SQL%ROWCOUNT));
2855: END IF;
2856:
2857:
2858: -- COMMIT;
2859:
2860: IF (g_level_statement >= g_current_runtime_level ) THEN
2861: FND_LOG.STRING(g_level_statement,
2862: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_po',
2863: 'Inserting data into zx_lines (Tax Code)');
2864: END IF;
2865:
3566: -- AND NVL(zxl.TAX_APPORTIONMENT_LINE_NUMBER,1) = NVL(TAX_APPORTIONMENT_LINE_NUMBER,1)
3567: );
3568:
3569: IF (g_level_statement >= g_current_runtime_level ) THEN
3570: FND_LOG.STRING(g_level_statement,
3571: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
3572: 'Number of Rows Inserted(Tax Code) = ' || TO_CHAR(SQL%ROWCOUNT));
3573: END IF;
3574:
3572: 'Number of Rows Inserted(Tax Code) = ' || TO_CHAR(SQL%ROWCOUNT));
3573: END IF;
3574:
3575: IF (g_level_statement >= g_current_runtime_level ) THEN
3576: FND_LOG.STRING(g_level_statement,
3577: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_po',
3578: 'Inserting data into zx_lines(Tax Group)');
3579: END IF;
3580:
4297: -- AND NVL(zxl.TAX_APPORTIONMENT_LINE_NUMBER,1) = NVL(TAX_APPORTIONMENT_LINE_NUMBER,1)
4298: );
4299:
4300: IF (g_level_statement >= g_current_runtime_level ) THEN
4301: FND_LOG.STRING(g_level_statement,
4302: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
4303: 'Number of Rows Inserted(Tax Group) = ' || TO_CHAR(SQL%ROWCOUNT));
4304: END IF;
4305:
4306:
4307: -- COMMIT;
4308:
4309: IF (g_level_statement >= g_current_runtime_level ) THEN
4310: FND_LOG.STRING(g_level_statement,
4311: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_po',
4312: 'Inserting data into zx_rec_nrec_dist');
4313: END IF;
4314:
4777: -- AND zxdist.trx_line_dist_id = pod.po_distribution_id
4778: );
4779:
4780: IF (g_level_statement >= g_current_runtime_level ) THEN
4781: FND_LOG.STRING(g_level_statement,
4782: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
4783: 'Number of Rows Inserted = ' || TO_CHAR(SQL%ROWCOUNT));
4784: END IF;
4785: END IF; -- entity_code = 'PURCHASE_ORDER' or 'RELEASE'
4784: END IF;
4785: END IF; -- entity_code = 'PURCHASE_ORDER' or 'RELEASE'
4786:
4787: IF (g_level_procedure >= g_current_runtime_level ) THEN
4788: FND_LOG.STRING(g_level_procedure,
4789: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po.END',
4790: 'ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po(-)');
4791: END IF;
4792:
4793: EXCEPTION
4794: WHEN OTHERS THEN
4795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4796: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4797: FND_LOG.STRING(g_level_unexpected,
4798: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
4799: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4800: FND_LOG.STRING(g_level_unexpected,
4801: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po.END',
4796: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4797: FND_LOG.STRING(g_level_unexpected,
4798: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po',
4799: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
4800: FND_LOG.STRING(g_level_unexpected,
4801: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po.END',
4802: 'ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_po(-)');
4803: END IF;
4804:
4821: l_multi_org_flag fnd_product_groups.multi_org_flag%TYPE;
4822:
4823: BEGIN
4824:
4825: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4826:
4827: IF (g_level_procedure >= g_current_runtime_level ) THEN
4828: FND_LOG.STRING(g_level_procedure,
4829: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po.BEGIN',
4824:
4825: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4826:
4827: IF (g_level_procedure >= g_current_runtime_level ) THEN
4828: FND_LOG.STRING(g_level_procedure,
4829: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po.BEGIN',
4830: 'ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po(+)');
4831: END IF;
4832:
4837: IF NVL(l_multi_org_flag,'N') = 'N' THEN -- non- multi org
4838: FND_PROFILE.GET('ORG_ID',l_org_id);
4839: IF l_org_id is NULL THEN
4840: IF (g_level_unexpected >= g_current_runtime_level ) THEN
4841: FND_LOG.STRING(g_level_unexpected,
4842: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk_po',
4843: 'Current envionment is a Single Org environment,'||
4844: ' but profile ORG_ID is not set up');
4845: END IF;
4850: --
4851: ZX_PO_REC_PKG.get_rec_info(x_return_status => x_return_status);
4852:
4853: IF (g_level_statement >= g_current_runtime_level ) THEN
4854: FND_LOG.STRING(g_level_statement,
4855: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk_po',
4856: 'Inserting data into zx_lines_det_factors');
4857: END IF;
4858: -- Insert data into zx_lines_det_factors
5270: AND ptp.party_id = DECODE(l_multi_org_flag,'N',l_org_id,poll.org_id)
5271: AND ptp.party_type_code = 'OU';
5272:
5273: IF (g_level_statement >= g_current_runtime_level ) THEN
5274: FND_LOG.STRING(g_level_statement,
5275: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
5276: 'Number of Rows Inserted = ' || TO_CHAR(SQL%ROWCOUNT));
5277: END IF;
5278:
5278:
5279: -- COMMIT;
5280:
5281: IF (g_level_statement >= g_current_runtime_level ) THEN
5282: FND_LOG.STRING(g_level_statement,
5283: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk_po',
5284: 'Inserting data into zx_lines(Tax Code)');
5285: END IF;
5286:
5973: AND status.tax_status_code(+) = rates.tax_status_code;
5974:
5975:
5976: IF (g_level_statement >= g_current_runtime_level ) THEN
5977: FND_LOG.STRING(g_level_statement,
5978: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
5979: 'ZX_LINES Number of Rows Inserted(Tax Code) = ' || TO_CHAR(SQL%ROWCOUNT));
5980: END IF;
5981:
5979: 'ZX_LINES Number of Rows Inserted(Tax Code) = ' || TO_CHAR(SQL%ROWCOUNT));
5980: END IF;
5981:
5982: IF (g_level_statement >= g_current_runtime_level ) THEN
5983: FND_LOG.STRING(g_level_statement,
5984: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk_po',
5985: 'Inserting data into zx_lines(Tax Group)');
5986: END IF;
5987:
6689: AND status.content_owner_id(+) = rates.content_owner_id
6690: AND status.tax_status_code(+) = rates.tax_status_code;
6691:
6692: IF (g_level_statement >= g_current_runtime_level ) THEN
6693: FND_LOG.STRING(g_level_statement,
6694: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
6695: 'ZX_LINES Number of Rows Inserted(Tax Group) = ' || TO_CHAR(SQL%ROWCOUNT));
6696: END IF;
6697:
6697:
6698: -- COMMIT;
6699:
6700: IF (g_level_statement >= g_current_runtime_level ) THEN
6701: FND_LOG.STRING(g_level_statement,
6702: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk_po',
6703: 'Inserting data into zx_rec_nrec_dist');
6704: END IF;
6705:
7161: AND rates.percentage_rate(+) = NVL(NVL(pohzd.p_recovery_rate, pohzd.d_rec_rate),0)
7162: AND rates.tax_rate_code(+) NOT LIKE 'AD_HOC_RECOVERY%';
7163:
7164: IF (g_level_statement >= g_current_runtime_level ) THEN
7165: FND_LOG.STRING(g_level_statement,
7166: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
7167: 'Number of Rows Inserted = ' || TO_CHAR(SQL%ROWCOUNT));
7168: END IF;
7169:
7591: AND ptp.party_id = DECODE(l_multi_org_flag,'N',l_org_id,poll.org_id)
7592: AND ptp.party_type_code = 'OU';
7593:
7594: IF (g_level_statement >= g_current_runtime_level ) THEN
7595: FND_LOG.STRING(g_level_statement,
7596: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
7597: 'Number of Rows Inserted = ' || TO_CHAR(SQL%ROWCOUNT));
7598: END IF;
7599:
7599:
7600: -- COMMIT;
7601:
7602: IF (g_level_statement >= g_current_runtime_level ) THEN
7603: FND_LOG.STRING(g_level_statement,
7604: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk_po',
7605: 'Inserting data into zx_lines(Tax Code)');
7606: END IF;
7607:
8303: AND status.content_owner_id(+) = rates.content_owner_id
8304: AND status.tax_status_code(+) = rates.tax_status_code;
8305:
8306: IF (g_level_statement >= g_current_runtime_level ) THEN
8307: FND_LOG.STRING(g_level_statement,
8308: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
8309: 'ZX_LINES Number of Rows Inserted(Tax Code) = ' || TO_CHAR(SQL%ROWCOUNT));
8310: END IF;
8311:
8309: 'ZX_LINES Number of Rows Inserted(Tax Code) = ' || TO_CHAR(SQL%ROWCOUNT));
8310: END IF;
8311:
8312: IF (g_level_statement >= g_current_runtime_level ) THEN
8313: FND_LOG.STRING(g_level_statement,
8314: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk_po',
8315: 'Inserting data into zx_lines(Tax Group)');
8316: END IF;
8317:
9029: AND status.content_owner_id(+) = rates.content_owner_id
9030: AND status.tax_status_code(+) = rates.tax_status_code;
9031:
9032: IF (g_level_statement >= g_current_runtime_level ) THEN
9033: FND_LOG.STRING(g_level_statement,
9034: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
9035: 'ZX_LINES Number of Rows Inserted(Tax Group) = ' || TO_CHAR(SQL%ROWCOUNT));
9036: END IF;
9037:
9037:
9038: -- COMMIT;
9039:
9040: IF (g_level_statement >= g_current_runtime_level ) THEN
9041: FND_LOG.STRING(g_level_statement,
9042: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly_blk_po',
9043: 'Inserting data into zx_rec_nrec_dist');
9044: END IF;
9045:
9501: AND rates.percentage_rate(+) = NVL(NVL(pohzd.p_recovery_rate, pohzd.d_rec_rate),0)
9502: AND rates.tax_rate_code(+) NOT LIKE 'AD_HOC_RECOVERY%';
9503:
9504: IF (g_level_statement >= g_current_runtime_level ) THEN
9505: FND_LOG.STRING(g_level_statement,
9506: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
9507: 'Number of Rows Inserted = ' || TO_CHAR(SQL%ROWCOUNT));
9508: END IF;
9509:
9507: 'Number of Rows Inserted = ' || TO_CHAR(SQL%ROWCOUNT));
9508: END IF;
9509:
9510: IF (g_level_procedure >= g_current_runtime_level ) THEN
9511: FND_LOG.STRING(g_level_procedure,
9512: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po.END',
9513: 'ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po(-)');
9514: END IF;
9515:
9516: EXCEPTION
9517: WHEN OTHERS THEN
9518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9519: IF (g_level_unexpected >= g_current_runtime_level ) THEN
9520: FND_LOG.STRING(g_level_unexpected,
9521: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
9522: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
9523: FND_LOG.STRING(g_level_unexpected,
9524: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po.END',
9519: IF (g_level_unexpected >= g_current_runtime_level ) THEN
9520: FND_LOG.STRING(g_level_unexpected,
9521: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po',
9522: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
9523: FND_LOG.STRING(g_level_unexpected,
9524: 'ZX.PLSQL.ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po.END',
9525: 'ZX_ON_FLY_TRX_UPGRADE_PO_PKG.upgrade_trx_on_fly_blk_po(-)');
9526: END IF;
9527: