56: WHERE org_id = p_org_id;
57: l_org_id NUMBER;
58: BEGIN
59: IF p_start_date IS NULL THEN
60: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
61: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_start_date' );
62: FND_MSG_PUB.ADD;
63: x_return_status := FND_API.G_RET_STS_ERROR;
64: END IF;
57: l_org_id NUMBER;
58: BEGIN
59: IF p_start_date IS NULL THEN
60: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
61: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_start_date' );
62: FND_MSG_PUB.ADD;
63: x_return_status := FND_API.G_RET_STS_ERROR;
64: END IF;
65:
63: x_return_status := FND_API.G_RET_STS_ERROR;
64: END IF;
65:
66: IF p_end_date IS NULL THEN
67: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
68: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_end_date' );
69: FND_MSG_PUB.ADD;
70: x_return_status := FND_API.G_RET_STS_ERROR;
71: END IF;
64: END IF;
65:
66: IF p_end_date IS NULL THEN
67: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
68: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_end_date' );
69: FND_MSG_PUB.ADD;
70: x_return_status := FND_API.G_RET_STS_ERROR;
71: END IF;
72:
72:
73: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
74: IF p_start_date < p_end_date THEN
75: arp_standard.debug(' end date should be greater than the start date');
76: fnd_message.set_name('AR', 'HZ_API_DATE_GREATER');
77: --Int'l Calendar Project
78: fnd_message.set_token('DATE2', fnd_date.date_to_chardate(p_end_date, calendar_aware=> FND_DATE.calendar_aware_alt));
79: fnd_message.set_token('DATE1', fnd_date.date_to_chardate(p_start_date, calendar_aware=> FND_DATE.calendar_aware_alt));
80: fnd_msg_pub.add;
74: IF p_start_date < p_end_date THEN
75: arp_standard.debug(' end date should be greater than the start date');
76: fnd_message.set_name('AR', 'HZ_API_DATE_GREATER');
77: --Int'l Calendar Project
78: fnd_message.set_token('DATE2', fnd_date.date_to_chardate(p_end_date, calendar_aware=> FND_DATE.calendar_aware_alt));
79: fnd_message.set_token('DATE1', fnd_date.date_to_chardate(p_start_date, calendar_aware=> FND_DATE.calendar_aware_alt));
80: fnd_msg_pub.add;
81: x_return_status := fnd_api.g_ret_sts_error;
82: END IF;
75: arp_standard.debug(' end date should be greater than the start date');
76: fnd_message.set_name('AR', 'HZ_API_DATE_GREATER');
77: --Int'l Calendar Project
78: fnd_message.set_token('DATE2', fnd_date.date_to_chardate(p_end_date, calendar_aware=> FND_DATE.calendar_aware_alt));
79: fnd_message.set_token('DATE1', fnd_date.date_to_chardate(p_start_date, calendar_aware=> FND_DATE.calendar_aware_alt));
80: fnd_msg_pub.add;
81: x_return_status := fnd_api.g_ret_sts_error;
82: END IF;
83: END IF;
85: IF p_org_id IS NOT NULL THEN
86: OPEN c_ou(p_org_id);
87: FETCH c_ou INTO l_org_id;
88: IF c_ou%NOTFOUND THEN
89: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
90: FND_MESSAGE.SET_TOKEN('FK', 'org id');
91: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_id');
92: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_system_parameters_all');
93: FND_MSG_PUB.ADD;
86: OPEN c_ou(p_org_id);
87: FETCH c_ou INTO l_org_id;
88: IF c_ou%NOTFOUND THEN
89: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
90: FND_MESSAGE.SET_TOKEN('FK', 'org id');
91: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_id');
92: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_system_parameters_all');
93: FND_MSG_PUB.ADD;
94: x_return_status := FND_API.G_RET_STS_ERROR;
87: FETCH c_ou INTO l_org_id;
88: IF c_ou%NOTFOUND THEN
89: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
90: FND_MESSAGE.SET_TOKEN('FK', 'org id');
91: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_id');
92: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_system_parameters_all');
93: FND_MSG_PUB.ADD;
94: x_return_status := FND_API.G_RET_STS_ERROR;
95: END IF;
88: IF c_ou%NOTFOUND THEN
89: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
90: FND_MESSAGE.SET_TOKEN('FK', 'org id');
91: FND_MESSAGE.SET_TOKEN('COLUMN', 'org_id');
92: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_system_parameters_all');
93: FND_MSG_PUB.ADD;
94: x_return_status := FND_API.G_RET_STS_ERROR;
95: END IF;
96: CLOSE c_ou;
97: END IF;
98:
99: IF p_entity = 'RA_CUST_TRX_LINE_GL_DIST_ALL' THEN
100: IF p_type NOT IN ('INV', 'CM', 'CB', 'DM', 'DEP', 'GUAR', 'ALL','INVDEPGUAR') THEN
101: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
102: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'trx_type' );
103: FND_MESSAGE.SET_TOKEN( 'VALUES', 'INV,CM,CB,DM,DEP,GUAR,ALL,INVDEPGUAR');
104: FND_MSG_PUB.ADD;
105: x_return_status := FND_API.G_RET_STS_ERROR;
98:
99: IF p_entity = 'RA_CUST_TRX_LINE_GL_DIST_ALL' THEN
100: IF p_type NOT IN ('INV', 'CM', 'CB', 'DM', 'DEP', 'GUAR', 'ALL','INVDEPGUAR') THEN
101: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
102: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'trx_type' );
103: FND_MESSAGE.SET_TOKEN( 'VALUES', 'INV,CM,CB,DM,DEP,GUAR,ALL,INVDEPGUAR');
104: FND_MSG_PUB.ADD;
105: x_return_status := FND_API.G_RET_STS_ERROR;
106: END IF;
99: IF p_entity = 'RA_CUST_TRX_LINE_GL_DIST_ALL' THEN
100: IF p_type NOT IN ('INV', 'CM', 'CB', 'DM', 'DEP', 'GUAR', 'ALL','INVDEPGUAR') THEN
101: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
102: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'trx_type' );
103: FND_MESSAGE.SET_TOKEN( 'VALUES', 'INV,CM,CB,DM,DEP,GUAR,ALL,INVDEPGUAR');
104: FND_MSG_PUB.ADD;
105: x_return_status := FND_API.G_RET_STS_ERROR;
106: END IF;
107: ELSIF p_entity = 'AR_CASH_RECEIPT_HISTORY_ALL' THEN
105: x_return_status := FND_API.G_RET_STS_ERROR;
106: END IF;
107: ELSIF p_entity = 'AR_CASH_RECEIPT_HISTORY_ALL' THEN
108: IF p_type NOT IN ('CASH', 'MISC', 'ALL') THEN
109: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
110: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'trx_type' );
111: FND_MESSAGE.SET_TOKEN( 'VALUES', 'CASH,MISC,ALL');
112: FND_MSG_PUB.ADD;
113: x_return_status := FND_API.G_RET_STS_ERROR;
106: END IF;
107: ELSIF p_entity = 'AR_CASH_RECEIPT_HISTORY_ALL' THEN
108: IF p_type NOT IN ('CASH', 'MISC', 'ALL') THEN
109: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
110: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'trx_type' );
111: FND_MESSAGE.SET_TOKEN( 'VALUES', 'CASH,MISC,ALL');
112: FND_MSG_PUB.ADD;
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: END IF;
107: ELSIF p_entity = 'AR_CASH_RECEIPT_HISTORY_ALL' THEN
108: IF p_type NOT IN ('CASH', 'MISC', 'ALL') THEN
109: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
110: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'trx_type' );
111: FND_MESSAGE.SET_TOKEN( 'VALUES', 'CASH,MISC,ALL');
112: FND_MSG_PUB.ADD;
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: END IF;
115: ELSIF p_entity = 'AR_RECEIVABLE_APPLICATIONS_ALL' THEN
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: END IF;
115: ELSIF p_entity = 'AR_RECEIVABLE_APPLICATIONS_ALL' THEN
116: IF p_type NOT IN ('APP', 'CMAPP', 'ALL') THEN
117: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
118: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'trx_type' );
119: FND_MESSAGE.SET_TOKEN( 'VALUES', 'APP,CMAPP,ALL');
120: FND_MSG_PUB.ADD;
121: x_return_status := FND_API.G_RET_STS_ERROR;
114: END IF;
115: ELSIF p_entity = 'AR_RECEIVABLE_APPLICATIONS_ALL' THEN
116: IF p_type NOT IN ('APP', 'CMAPP', 'ALL') THEN
117: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
118: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'trx_type' );
119: FND_MESSAGE.SET_TOKEN( 'VALUES', 'APP,CMAPP,ALL');
120: FND_MSG_PUB.ADD;
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: END IF;
115: ELSIF p_entity = 'AR_RECEIVABLE_APPLICATIONS_ALL' THEN
116: IF p_type NOT IN ('APP', 'CMAPP', 'ALL') THEN
117: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
118: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'trx_type' );
119: FND_MESSAGE.SET_TOKEN( 'VALUES', 'APP,CMAPP,ALL');
120: FND_MSG_PUB.ADD;
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: END IF;
123: END IF;
582: ('TRANSACTIONS','RECEIPTS',
583: 'ADJUSTMENTS', 'BILLS_RECEIVABLE')
584: THEN
585: arp_standard.debug('Value for entity code should be TRANSACTIONS RECEIPTS ADJUSTMENTS BILLS_RECEIVABLE');
586: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
587: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'ENTITY_CODE' );
588: FND_MESSAGE.SET_TOKEN( 'VALUES', 'TRANSACTIONS,RECEIPTS,ADJUSTMENTS,BILLS_RECEIVABLE');
589: FND_MSG_PUB.ADD;
590: x_return_status := FND_API.G_RET_STS_ERROR;
583: 'ADJUSTMENTS', 'BILLS_RECEIVABLE')
584: THEN
585: arp_standard.debug('Value for entity code should be TRANSACTIONS RECEIPTS ADJUSTMENTS BILLS_RECEIVABLE');
586: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
587: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'ENTITY_CODE' );
588: FND_MESSAGE.SET_TOKEN( 'VALUES', 'TRANSACTIONS,RECEIPTS,ADJUSTMENTS,BILLS_RECEIVABLE');
589: FND_MSG_PUB.ADD;
590: x_return_status := FND_API.G_RET_STS_ERROR;
591: RAISE fnd_api.G_EXC_ERROR;
584: THEN
585: arp_standard.debug('Value for entity code should be TRANSACTIONS RECEIPTS ADJUSTMENTS BILLS_RECEIVABLE');
586: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
587: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'ENTITY_CODE' );
588: FND_MESSAGE.SET_TOKEN( 'VALUES', 'TRANSACTIONS,RECEIPTS,ADJUSTMENTS,BILLS_RECEIVABLE');
589: FND_MSG_PUB.ADD;
590: x_return_status := FND_API.G_RET_STS_ERROR;
591: RAISE fnd_api.G_EXC_ERROR;
592: END IF;
639: p_data => x_msg_data);
640: WHEN OTHERS THEN
641: arp_standard.debug('EXCEPTION OTHERS in upgrade_status_per_doc:'||SQLERRM);
642: x_return_status := fnd_api.g_ret_sts_unexp_error;
643: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
644: fnd_message.set_token('ERROR' ,SQLERRM);
645: fnd_msg_pub.add;
646: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
647: p_count => x_msg_count,
640: WHEN OTHERS THEN
641: arp_standard.debug('EXCEPTION OTHERS in upgrade_status_per_doc:'||SQLERRM);
642: x_return_status := fnd_api.g_ret_sts_unexp_error;
643: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
644: fnd_message.set_token('ERROR' ,SQLERRM);
645: fnd_msg_pub.add;
646: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
647: p_count => x_msg_count,
648: p_data => x_msg_data);
701: IF c_adj%FOUND THEN
702: l_text := ' There is at least one adjustment not posted and does not have a xla distribution paired.
703: That is the adjustment does not have accounting created - adjustment_id :'||l_adj_id;
704: log(l_text);
705: FND_MESSAGE.SET_NAME('AR','AR_SUBMIT_ACCT_REQ');
706: FND_MSG_PUB.ADD;
707: x_return_status := FND_API.G_RET_STS_ERROR;
708: END IF;
709: CLOSE c_adj;
718: p_data => x_msg_data);
719: log(x_msg_data);
720: WHEN OTHERS THEN
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
723: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
724: FND_MSG_PUB.ADD;
725: FND_MSG_PUB.Count_And_Get(
726: p_encoded => FND_API.G_FALSE,
719: log(x_msg_data);
720: WHEN OTHERS THEN
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
723: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
724: FND_MSG_PUB.ADD;
725: FND_MSG_PUB.Count_And_Get(
726: p_encoded => FND_API.G_FALSE,
727: p_count => x_msg_count,
804: IF c_trx%FOUND THEN
805: l_text := ' There is at least one '|| l_tag ||' not posted but does not have at least xla distribution paired.
806: The '|| l_tag ||' does not have accounting created - customer_trx_id :'||l_trx_id;
807: log(l_text);
808: FND_MESSAGE.SET_NAME('AR','AR_SUBMIT_ACCT_REQ');
809: FND_MSG_PUB.ADD;
810: x_return_status := FND_API.G_RET_STS_ERROR;
811: END IF;
812: CLOSE c_trx;
821: p_data => x_msg_data);
822: log(x_msg_data);
823: WHEN OTHERS THEN
824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
825: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
826: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
827: FND_MSG_PUB.ADD;
828: FND_MSG_PUB.Count_And_Get(
829: p_encoded => FND_API.G_FALSE,
822: log(x_msg_data);
823: WHEN OTHERS THEN
824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
825: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
826: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
827: FND_MSG_PUB.ADD;
828: FND_MSG_PUB.Count_And_Get(
829: p_encoded => FND_API.G_FALSE,
830: p_count => x_msg_count,
898: IF c_recp%FOUND THEN
899: l_text := ' There is at least one '|| l_tag ||' not posted and does not have a xla distribution paired.
900: That is the '|| l_tag ||' does not have accounting created - cash_receipt_id :'||l_cr_id;
901: log(l_text);
902: FND_MESSAGE.SET_NAME('AR','AR_SUBMIT_ACCT_REQ');
903: FND_MSG_PUB.ADD;
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: END IF;
906: CLOSE c_recp;
915: p_data => x_msg_data);
916: log(x_msg_data);
917: WHEN OTHERS THEN
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
920: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
921: FND_MSG_PUB.ADD;
922: FND_MSG_PUB.Count_And_Get(
923: p_encoded => FND_API.G_FALSE,
916: log(x_msg_data);
917: WHEN OTHERS THEN
918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
919: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
920: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
921: FND_MSG_PUB.ADD;
922: FND_MSG_PUB.Count_And_Get(
923: p_encoded => FND_API.G_FALSE,
924: p_count => x_msg_count,
996: IF c_app%FOUND THEN
997: l_text := ' There is at least one '||l_tag||' not posted and does not have a xla distribution paired.
998: That is the '|| l_tag ||' does not have accounting created - receivable_application_id :'||l_ra_id;
999: log(l_text);
1000: FND_MESSAGE.SET_NAME('AR','AR_SUBMIT_ACCT_REQ');
1001: FND_MSG_PUB.ADD;
1002: x_return_status := FND_API.G_RET_STS_ERROR;
1003: END IF;
1004: CLOSE c_app;
1013: p_data => x_msg_data);
1014: log(x_msg_data);
1015: WHEN OTHERS THEN
1016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1017: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1018: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
1019: FND_MSG_PUB.ADD;
1020: FND_MSG_PUB.Count_And_Get(
1021: p_encoded => FND_API.G_FALSE,
1014: log(x_msg_data);
1015: WHEN OTHERS THEN
1016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1017: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1018: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
1019: FND_MSG_PUB.ADD;
1020: FND_MSG_PUB.Count_And_Get(
1021: p_encoded => FND_API.G_FALSE,
1022: p_count => x_msg_count,
1075: IF c%FOUND THEN
1076: l_text := ' There is at least one bill not posted and does not have a xla distribution paired.
1077: That is the bill does not have accounting created - customer_trx_id :'||l_trx_id;
1078: log(l_text);
1079: FND_MESSAGE.SET_NAME('AR','AR_SUBMIT_ACCT_REQ');
1080: FND_MSG_PUB.ADD;
1081: x_return_status := FND_API.G_RET_STS_ERROR;
1082: END IF;
1083: CLOSE c;
1092: p_data => x_msg_data);
1093: log(x_msg_data);
1094: WHEN OTHERS THEN
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1097: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
1098: FND_MSG_PUB.ADD;
1099: FND_MSG_PUB.Count_And_Get(
1100: p_encoded => FND_API.G_FALSE,
1093: log(x_msg_data);
1094: WHEN OTHERS THEN
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1097: FND_MESSAGE.SET_TOKEN('ERROR' ,'Insert_Head_Row:'||SQLERRM);
1098: FND_MSG_PUB.ADD;
1099: FND_MSG_PUB.Count_And_Get(
1100: p_encoded => FND_API.G_FALSE,
1101: p_count => x_msg_count,
1559: FETCH c_verif_date INTO l_date;
1560: IF c_verif_date%FOUND THEN
1561: x_return_status := FND_API.g_ret_sts_error;
1562: arp_standard.debug(' event_date :' || l_date);
1563: FND_MESSAGE.SET_NAME('AR','AR_NOT_OPEN_PERIOD_EXISTS');
1564: FND_MSG_PUB.ADD; --BUG#5386043
1565: END IF;
1566: CLOSE c_verif_date;
1567: