[Home] [Help]
217: x_return_status IN OUT NOCOPY VARCHAR2)
218: IS
219: BEGIN
220: arp_standard.debug('Insert_Head_Row +');
221: INSERT INTO AR_charge_SCHEDULE_HDRS
222: (SCHEDULE_HEADER_ID,
223: SCHEDULE_ID ,
224: SCHEDULE_HEADER_TYPE,
225: AGING_BUCKET_ID ,
322: IS
323: BEGIN
324: arp_standard.debug('Update_Head_Row +');
325:
326: UPDATE ar_charge_schedule_hdrs SET
327: END_DATE = DECODE(P_END_DATE,
328: FND_API.G_MISS_DATE, NULL,
329: NULL , END_DATE, P_END_DATE ),
330: STATUS = DECODE(P_STATUS,
705:
706: CURSOR c_overlapp IS
707: SELECT start_date,
708: end_date
709: FROM ar_charge_schedule_hdrs
710: WHERE schedule_id = p_schedule_id
711: AND status = 'A';
712:
713: CURSOR c_overlapp_upd IS
712:
713: CURSOR c_overlapp_upd IS
714: SELECT start_date,
715: end_date
716: FROM ar_charge_schedule_hdrs
717: WHERE schedule_id = p_schedule_id
718: AND schedule_header_id <> P_SCHEDULE_HEADER_ID
719: AND status = 'A';
720:
983: CURSOR c_header IS
984: SELECT aging_bucket_id,
985: schedule_id,
986: schedule_header_id
987: FROM ar_charge_schedule_hdrs
988: WHERE schedule_header_id = p_schedule_header_id;
989:
990: l_rec c_header%ROWTYPE;
991:
1011: AND aging_bucket_line_id = p_aging_bucket_line_id;
1012:
1013: CURSOR cl IS
1014: SELECT lookup_code
1015: FROM ar_charge_schedule_hdrs a,
1016: ar_lookups b
1017: WHERE a.schedule_header_id = P_SCHEDULE_HEADER_ID
1018: AND b.lookup_type = 'SCHEDULE_HEADER_TYPE'
1019: AND b.lookup_code = a.schedule_header_type;
1037: IF c_header%NOTFOUND THEN
1038: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
1039: FND_MESSAGE.SET_TOKEN('FK', 'schedule header');
1040: FND_MESSAGE.SET_TOKEN('COLUMN', 'schedule_header_id');
1041: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_charge_schedule_hdrs');
1042: FND_MSG_PUB.ADD;
1043: x_return_status := FND_API.G_RET_STS_ERROR;
1044: END IF;
1045: CLOSE c_header;
1059: IF p_schedule_id <> l_rec.schedule_id THEN
1060: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
1061: FND_MESSAGE.SET_TOKEN('FK', 'schedule header');
1062: FND_MESSAGE.SET_TOKEN('COLUMN', 'schedule_id');
1063: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_charge_schedule_hdrs');
1064: FND_MSG_PUB.ADD;
1065: x_return_status := FND_API.G_RET_STS_ERROR;
1066: END IF;
1067: END IF;
1081: IF P_AGING_BUCKET_ID <> l_rec.aging_bucket_id THEN
1082: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
1083: FND_MESSAGE.SET_TOKEN('FK', 'schedule header');
1084: FND_MESSAGE.SET_TOKEN('COLUMN', 'aging_bucket_id');
1085: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_charge_schedule_hdrs');
1086: FND_MSG_PUB.ADD;
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: END IF;
1089: END IF;
1510: x_msg_count OUT NOCOPY NUMBER,
1511: x_msg_data OUT NOCOPY VARCHAR2)
1512: IS
1513: CURSOR cu_header_id IS
1514: SELECT ar_charge_schedule_hdrs_s.nextval
1515: FROM DUAL;
1516: l_header_id NUMBER;
1517: BEGIN
1518: arp_standard.debug('create_schedule_header +');
1660: ATTRIBUTE14 ,
1661: ATTRIBUTE15 ,
1662: OBJECT_VERSION_NUMBER,
1663: STATUS
1664: FROM ar_charge_schedule_hdrs
1665: WHERE schedule_header_id = P_SCHEDULE_HEADER_ID
1666: FOR UPDATE NOWAIT;
1667:
1668: l_rec c%ROWTYPE;
1709: CLOSE c;
1710:
1711: IF l_rec.SCHEDULE_HEADER_ID IS NULL THEN
1712: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
1713: fnd_message.set_token('RECORD', 'ar_charge_schedule_hdrs');
1714: fnd_message.set_token('VALUE',
1715: NVL(TO_CHAR(P_SCHEDULE_HEADER_ID), 'null'));
1716: fnd_msg_pub.add;
1717: RAISE fnd_api.g_exc_error;
1724: l_rec.OBJECT_VERSION_NUMBER IS NOT NULL AND
1725: x_object_version_number = l_rec.OBJECT_VERSION_NUMBER))
1726: THEN
1727: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
1728: fnd_message.set_token('TABLE', 'ar_charge_schedule_hdrs');
1729: fnd_msg_pub.add;
1730: RAISE fnd_api.g_exc_error;
1731: END IF;
1732: