[Home] [Help]
94: X_LAST_UPDATE_DATE in DATE,
95: X_LAST_UPDATED_BY in NUMBER,
96: X_LAST_UPDATE_LOGIN in NUMBER
97: ) is
98: cursor C is select ROWID from WMS_WP_WAVE_HEADERS_B
99: where WAVE_HEADER_ID = X_WAVE_HEADER_ID
100: ;
101:
102: l_curvar C%rowtype;
101:
102: l_curvar C%rowtype;
103:
104: begin
105: insert into WMS_WP_WAVE_HEADERS_B (
106: ATTRIBUTE15,
107: WAVE_HEADER_ID,
108: WAVE_SOURCE,
109: WAVE_STATUS,
498: ATTRIBUTE11,
499: ATTRIBUTE12,
500: ATTRIBUTE13,
501: ATTRIBUTE14
502: from WMS_WP_WAVE_HEADERS_B
503: where WAVE_HEADER_ID = X_WAVE_HEADER_ID
504: for update of WAVE_HEADER_ID nowait;
505: recinfo c%rowtype;
506:
805: X_LAST_UPDATED_BY in NUMBER,
806: X_LAST_UPDATE_LOGIN in NUMBER
807: ) is
808: begin
809: update WMS_WP_WAVE_HEADERS_B set
810: ATTRIBUTE15 = X_ATTRIBUTE15,
811: WAVE_SOURCE = X_WAVE_SOURCE,
812: WAVE_STATUS = X_WAVE_STATUS,
813: START_TIME = X_START_TIME,
925: if (sql%notfound) then
926: raise no_data_found;
927: end if;
928:
929: delete from WMS_WP_WAVE_HEADERS_B
930: where WAVE_HEADER_ID = X_WAVE_HEADER_ID;
931:
932: if (sql%notfound) then
933: raise no_data_found;
939: begin
940: delete from WMS_WP_WAVE_HEADERS_TL T
941: where not exists
942: (select NULL
943: from WMS_WP_WAVE_HEADERS_B B
944: where B.WAVE_HEADER_ID = T.WAVE_HEADER_ID
945: );
946:
947: update WMS_WP_WAVE_HEADERS_TL T set (