[Home] [Help]
176: from hz_party_sites hps
177: where hps.party_site_id = p_party_site_id;
178:
179: --Following Logic Applicable only for after Book:
180: --If install_location_type_code = 'HZ_LOCATIONS'
181: --then take the install_location_id from Ship_to_csr
182: --Else If install_location_type_code = 'HZ_PARTY_SITES'
183: --then execute location_csr by passing install_location_id
184: --as p_party_site_id parameter and take location_id from
189: --start:| 06-Jul-2007 cklee -- Fixed ship to issue |
190: CURSOR Ship_to_csr_before_booked( p_top_kle_id IN NUMBER ) IS
191: select hps.party_site_id install_location_id,
192: hl.location_id
193: from hz_locations hl,
194: hz_party_sites hps,
195: hz_party_site_uses hpsu,
196: okl_txl_itm_insts tii,
197: okc_k_lines_b cleb_ib,
533:
534: ELSE -- other than before booked case
535:
536: --Following Logic Applicable only for after Book:
537: --If install_location_type_code = 'HZ_LOCATIONS'
538: --then take the install_location_id from Ship_to_csr
539: --Else If install_location_type_code = 'HZ_PARTY_SITES'
540: --then execute location_csr by passing install_location_id
541: --as p_party_site_id parameter and take location_id from
539: --Else If install_location_type_code = 'HZ_PARTY_SITES'
540: --then execute location_csr by passing install_location_id
541: --as p_party_site_id parameter and take location_id from
542: -- location_csr
543: IF l_install_location_type_code = 'HZ_LOCATIONS' THEN
544: l_ship_to := l_install_location_id;
545: ELSIF l_install_location_type_code = 'HZ_PARTY_SITES' THEN
546: OPEN location_csr(l_install_location_id);
547: FETCH location_csr INTO l_ship_to;
548: CLOSE location_csr;
549: ELSE
550: -- error log
551: l_ship_to := null;
552: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'install_location_type_code is other than HZ_LOCATIONS or HZ_PARTY_SITES');
553: END IF;
554: -- end: 07-May-2008 cklee -- Fixed bug:7015970
555: END IF;
556: --end:| 06-Jul-2007 cklee -- Fixed ship to issue |