[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:
985: CURSOR c_header IS
986: SELECT aging_bucket_id,
987: schedule_id,
988: schedule_header_id
989: FROM ar_charge_schedule_hdrs
990: WHERE schedule_header_id = p_schedule_header_id;
991:
992: l_rec c_header%ROWTYPE;
993:
1013: AND aging_bucket_line_id = p_aging_bucket_line_id;
1014:
1015: CURSOR cl IS
1016: SELECT lookup_code
1017: FROM ar_charge_schedule_hdrs a,
1018: ar_lookups b
1019: WHERE a.schedule_header_id = P_SCHEDULE_HEADER_ID
1020: AND b.lookup_type = 'SCHEDULE_HEADER_TYPE'
1021: AND b.lookup_code = a.schedule_header_type;
1039: IF c_header%NOTFOUND THEN
1040: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
1041: FND_MESSAGE.SET_TOKEN('FK', 'schedule header');
1042: FND_MESSAGE.SET_TOKEN('COLUMN', 'schedule_header_id');
1043: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_charge_schedule_hdrs');
1044: FND_MSG_PUB.ADD;
1045: x_return_status := FND_API.G_RET_STS_ERROR;
1046: END IF;
1047: CLOSE c_header;
1061: IF p_schedule_id <> l_rec.schedule_id THEN
1062: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
1063: FND_MESSAGE.SET_TOKEN('FK', 'schedule header');
1064: FND_MESSAGE.SET_TOKEN('COLUMN', 'schedule_id');
1065: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_charge_schedule_hdrs');
1066: FND_MSG_PUB.ADD;
1067: x_return_status := FND_API.G_RET_STS_ERROR;
1068: END IF;
1069: END IF;
1083: IF P_AGING_BUCKET_ID <> l_rec.aging_bucket_id THEN
1084: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_FK');
1085: FND_MESSAGE.SET_TOKEN('FK', 'schedule header');
1086: FND_MESSAGE.SET_TOKEN('COLUMN', 'aging_bucket_id');
1087: FND_MESSAGE.SET_TOKEN('TABLE', 'ar_charge_schedule_hdrs');
1088: FND_MSG_PUB.ADD;
1089: x_return_status := FND_API.G_RET_STS_ERROR;
1090: END IF;
1091: END IF;
1512: x_msg_count OUT NOCOPY NUMBER,
1513: x_msg_data OUT NOCOPY VARCHAR2)
1514: IS
1515: CURSOR cu_header_id IS
1516: SELECT ar_charge_schedule_hdrs_s.nextval
1517: FROM DUAL;
1518: l_header_id NUMBER;
1519: BEGIN
1520: arp_standard.debug('create_schedule_header +');
1662: ATTRIBUTE14 ,
1663: ATTRIBUTE15 ,
1664: OBJECT_VERSION_NUMBER,
1665: STATUS
1666: FROM ar_charge_schedule_hdrs
1667: WHERE schedule_header_id = P_SCHEDULE_HEADER_ID
1668: FOR UPDATE NOWAIT;
1669:
1670: l_rec c%ROWTYPE;
1711: CLOSE c;
1712:
1713: IF l_rec.SCHEDULE_HEADER_ID IS NULL THEN
1714: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
1715: fnd_message.set_token('RECORD', 'ar_charge_schedule_hdrs');
1716: fnd_message.set_token('VALUE',
1717: NVL(TO_CHAR(P_SCHEDULE_HEADER_ID), 'null'));
1718: fnd_msg_pub.add;
1719: RAISE fnd_api.g_exc_error;
1726: l_rec.OBJECT_VERSION_NUMBER IS NOT NULL AND
1727: x_object_version_number = l_rec.OBJECT_VERSION_NUMBER))
1728: THEN
1729: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
1730: fnd_message.set_token('TABLE', 'ar_charge_schedule_hdrs');
1731: fnd_msg_pub.add;
1732: RAISE fnd_api.g_exc_error;
1733: END IF;
1734: