Subversion Repositories DevTools

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
Option Explicit
2 
'=====================================================
3 
'        Name: style_b_generator.vbs
4 
' Description: Creates a release notes in TEMPLATE B format.
5 
'=====================================================
6 
 
7 
Sub Generate_Notes_Style_B ( NNpv_id, outNotes, SSrtag_name, NNproj_id )
8 
	Dim snippetSTR, insertFrom, insterSTR, tempSTR, headerSnippet, columnSnippet, listSnippet, snippetDEVI, snippetTDSE
9 
	Dim Query_String, rsQry, CQSQL, rsCQ, depIssDICT, depIssARR(), releaseInfo, newReleaseInfo
10 
	Const SYD_PROJID = 142'This is a temp for the BETA release of the functionality
11 
	'-----------------------------------------------------------
12 
	Set rsCQ = CreateObject("ADODB.Recordset")
13 
	Set depIssDICT = CreateObject("Scripting.Dictionary")
14 
	'-----------------------------------------------------------
15 
	WScript.Echo "Generating notes using Template Style B."
16 
 
17 
	outNotes = ReadFile( AppPath & RELEASE_NOTES_TEMPLATE_B )
18 
 
19 
 
20 
	' --- Title ---
21 
	Query_String = ReadFile( AppPath & QUERIES_FOLDER & "\package_official_details.sql" )
22 
	OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
23 
	Set rsQry = OraDatabase.CreateDynaset( Query_String, cint(0))
24 
 
25 
	Call Get_Snippet ( "Title", outNotes, snippetSTR, insertFrom )
26 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
27 
		insterSTR = Replace( snippetSTR, "$PKG_TITLE$", rsQry("pkg_name") &" "& rsQry("pkg_version"))
28 
	End If
29 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
30 
 
31 
 
32 
	'--- DEVI-037294 Requirement: Insert <ReleaseName>: <PkgName> <PkgVersion> --------------
33 
	newReleaseInfo = SSrtag_name + ": " + rsQry("pkg_name") + " " + rsQry("pkg_version")
34 
 
35 
 
36 
	' --- Identification ---
37 
	Call Get_Snippet ( "Identification", outNotes, snippetSTR, insertFrom )
38 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
39 
		insterSTR = Replace( snippetSTR, "$PKG_NAME$", rsQry("pkg_name") )
40 
		insterSTR = Replace( insterSTR, "$PKG_VERSION$", rsQry("pkg_version") )
41 
		insterSTR = Replace( insterSTR, "$LABEL$", NVL( rsQry("pkg_label") ) )
42 
		insterSTR = Replace( insterSTR, "$SOURCE_PATH$", NVL( rsQry("src_path") ) )
43 
		insterSTR = Replace( insterSTR, "$RELEASE_DATE$", ( EuroDate ( rsQry("modified_stamp") ) ) )
44 
		insterSTR = Replace( insterSTR, "$RELEASOR_EMAIL$", rsQry("modifier_email") )
45 
		insterSTR = Replace( insterSTR, "$RELEASOR$", rsQry("modifier") )
46 
	End If
47 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
48 
 
49 
 
50 
 
51 
	' --- Package Information ---
52 
	Call Get_Snippet ( "Package_Information", outNotes, snippetSTR, insertFrom )
53 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
54 
		If IsNull(rsQry("short_desc")) Then
55 
			insterSTR = Replace( snippetSTR, "$SHORT_DESCRIPTION$", "Not supplied!" )
56 
		Else
57 
			insterSTR = Replace( snippetSTR, "$SHORT_DESCRIPTION$", FormatTextBox( HTML_Encode ( rsQry("short_desc") ) ) )
58 
		End If
59 
 
60 
		If IsNull(rsQry("long_desc")) Then
61 
			insterSTR = Replace( insterSTR, "$LONG_DESCRIPTION$", "Not supplied!" )
62 
		Else
63 
			insterSTR = Replace( insterSTR, "$LONG_DESCRIPTION$", FormatTextBox( HTML_Encode ( rsQry("long_desc") ) ) )
64 
		End If
65 
 
66 
	End If
67 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
68 
 
69 
 
70 
 
71 
	' --- Reason for This Version ---
72 
	Dim resonForRelease
73 
	resonForRelease = rsQry("reason")
74 
	Call Get_Snippet ( "Reason_For_This_Version:Header", outNotes, headerSnippet, insertFrom )
75 
	Call Get_Snippet ( "Reason_For_This_Version:Columns", outNotes, columnSnippet, insertFrom )
76 
	Call Get_Snippet ( "Issues:List:DEVI", outNotes, snippetDEVI, insertFrom )
77 
	Call Get_Snippet ( "Issues:List:TDSE", outNotes, snippetTDSE, insertFrom )
78 
	Call Get_Snippet ( "Reason_For_This_Version:List", outNotes, listSnippet, insertFrom )
79 
	Call Get_ORA_Package_Issues ( "Fixed_Issues", CQSQL )
80 
	Call Get_CQ_Issues ( CQSQL, rsCQ )
81 
 
82 
	' Header
83 
    If rsCQ.BOF OR rsCQ.EOF Then
84 
    	If IsNull( resonForRelease ) Then
85 
    		tempSTR = Replace( headerSnippet, "$REASON_FOR_VERSION$", "See ""Issues"" section below." )
86 
    	Else
87 
    		tempSTR = Replace( headerSnippet, "$REASON_FOR_VERSION$", FormatTextBox( resonForRelease ) & "<br>" & "Also see ""Issues"" section below." )
88 
    	End If
89 
    Else
90 
    	If NOT IsNull( resonForRelease ) Then
91 
    		tempSTR = Replace( headerSnippet, "$REASON_FOR_VERSION$", FormatTextBox( resonForRelease ) )
92 
    	End If
93 
    	' Columns
94 
    	tempSTR = tempSTR & columnSnippet
95 
    End If
96 
 
97 
	While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))
98 
 
99 
		'If CInt(NNproj_id) = CInt(SYD_PROJID) Then
100 
			'Extract Release Info If Exists
101 
		releaseInfo = rsCQ("releaseinfo")
102 
		Call EditReleaseInfoDetails ( rsCQ("iss_db"), rsCQ("iss_id"), newReleaseInfo, releaseInfo )
103 
		'End If
104 
 
105 
 	    ' Add Row
106 
        If CInt(rsCQ("iss_db")) = enumCLEARQUEST_DEVI_ID Then
107 
            tempSTR = tempSTR & Replace( snippetDEVI, "$ISSUE_DATABASE$", "DEVI" )
108 
        ElseIf CInt(rsCQ("iss_db")) = enumCLEARQUEST_TDSE_ID Then
109 
            tempSTR = tempSTR & Replace( snippetTDSE, "$ISSUE_DATABASE$", "TDSE" )
110 
        End If
111 
        tempSTR = Replace( tempSTR, "$TAG_ID$",                 rsCQ("iss_db") &"_"& rsCQ("iss_id") )
112 
        tempSTR = Replace( tempSTR, "$BOX_WIDTH$",              String(20, "_") )
113 
        tempSTR = Replace( tempSTR, "$ISSUE_NUMBER$",           rsCQ("iss_num") )
114 
        tempSTR = Replace( tempSTR, "$SUMMARY$",                NVL( HTML_Encode ( rsCQ("summary") ) ) )
115 
        ' --- CQ Issues body ---
116 
        tempSTR = Replace( tempSTR, "$CQ_ISSUE_TYPE$",          NVL( rsCQ("issue_type") ) )
117 
        tempSTR = Replace( tempSTR, "$CQ_SUBMITTER$",           NVL( rsCQ("submitter") ) )
118 
        tempSTR = Replace( tempSTR, "$CQ_DETECTED_IN_VERSION$", NVL( rsCQ("release_part1") &"."& rsCQ("release_part2") &"."& rsCQ("release_part3") ) )
119 
        tempSTR = Replace( tempSTR, "$CQ_SUBMIT_DATE$",         NVL( EuroDate ( rsCQ("submit_date") ) ) )
120 
        tempSTR = Replace( tempSTR, "$CQ_PROJECT$",             NVL( rsCQ("project") ) )
121 
        tempSTR = Replace( tempSTR, "$CQ_OWNER$",               NVL( rsCQ("owner") ) )
122 
        tempSTR = Replace( tempSTR, "$CQ_PRODUCT$",             NVL( rsCQ("product") ) )
123 
        tempSTR = Replace( tempSTR, "$CQ_APPROVER$",            NVL( rsCQ("approver") ) )
124 
        tempSTR = Replace( tempSTR, "$CQ_PACKAGE$",             NVL( rsCQ("package_ref") ) )
125 
        tempSTR = Replace( tempSTR, "$CQ_PRIORITY$",            NVL( rsCQ("priority") ) )
126 
        tempSTR = Replace( tempSTR, "$CQ_STATUS$",              NVL( rsCQ("status") ) )
127 
        tempSTR = Replace( tempSTR, "$CQ_DESCRIPTION$",         FormatTextBox ( NVL( HTML_Encode( rsCQ("description") ) ) ) )
128 
        tempSTR = Replace( tempSTR, "$CQ_NOTES_LOG$",           FormatTextBox ( NVL( HTML_Encode( rsCQ("notes_log") ) ) ) )
129 
        tempSTR = Replace( tempSTR, "$CQ_RELEASE_ID$",          NVL( rsCQ("release_id") ) )
130 
        tempSTR = Replace( tempSTR, "$CQ_CLIENT_REFERENCE$",    NVL( rsCQ("client_ref") ) )
131 
        tempSTR = Replace( tempSTR, "$CQ_SEVERITY$",            NVL( rsCQ("severity") ) )
132 
        tempSTR = Replace( tempSTR, "$CQ_CHANGE_REQUEST$",      Format_CQ_CHANGE_REQUEST ( rsCQ("cr_internal"), rsCQ("cr_external") ) )
133 
        '-----------------------
134 
        tempSTR = Replace( tempSTR, "$ISSUE_TYPE$",             NVL( rsCQ("issue_type") ) )
135 
        tempSTR = Replace( tempSTR, "$PRIORITY$",               NVL( rsCQ("priority") ) )
136 
 
137 
 
138 
		rsCQ.MoveNext
139 
	WEnd
140 
	rsCQ.Close()
141 
	insterSTR = insterSTR & tempSTR
142 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
143 
 
144 
 
145 
 
146 
 
147 
	' --- Changes Since Last Version ---
148 
	' Dependency_Changes:Header
149 
	Query_String = _
150 
	"SELECT pkg.pkg_name, cpv.pkg_version, ppv.pkg_version AS previous_version, cpv.last_pv_id"&_
151 
	"  FROM PACKAGE_VERSIONS cpv,"&_
152 
	"  	   PACKAGE_VERSIONS ppv,"&_
153 
	"       PACKAGES pkg"&_
154 
	" WHERE cpv.LAST_PV_ID = ppv.pv_id"&_
155 
	"   AND cpv.pkg_id = pkg.pkg_id"&_
156 
	"   AND cpv.pv_id = :PV_ID "
157 
	Set rsQry = OraDatabase.CreateDynaset( Query_String, cint(0))
158 
	Call Get_Snippet ( "Dependency_Changes:Header", outNotes, snippetSTR, insertFrom )
159 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
160 
		tempSTR = Replace( snippetSTR, "$CURRENT_PKG_NAME_AND_VERSION$", rsQry("pkg_name") &" "& rsQry("pkg_version") )
161 
		tempSTR = Replace( tempSTR, "$RELEASE_NOTE_PATH$", rsQry("pkg_name") &"/"& rsQry("previous_version") &"/"& DOC_FOLDER &"/"& Format_FileName( rsQry("pkg_name"), rsQry("previous_version"), rsQry("last_pv_id") ) )
162 
		insterSTR = insterSTR & Replace( tempSTR, "$PREVIOUS_VERSION$", rsQry("previous_version") )
163 
		OraDatabase.Parameters.Add "OLD_PV_ID", rsQry("last_pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
164 
	Else
165 
	    Call Write_To_Release_Notes_Info ( NNpv_id, enum_RELEASE_NOTES_NO_PREVIOUS_VERSION )
166 
		Call Raise_Event ( enumEVENT_ERROR, "[job:GenerateReleaseNotes  sub:Generate_Notes_Style_B]", _
167 
						   					"package: "& parPkg_name &" "& parPkg_Version , _
168 
						   					"Previous Version is unknow! Go to Release Manager and define Previous Version for this package.", enum_RELEASE_NOTES_NO_PREVIOUS_VERSION )
169 
	End If
170 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
171 
	' Dependency_Changes:List
172 
	Query_String = ReadFile( AppPath & QUERIES_FOLDER & "\diff_dependencies.sql" )
173 
	Set rsQry = OraDatabase.CreateDynaset( Query_String, cint(0))
174 
	Call Get_Snippet ( "Dependency_Changes:List", outNotes, snippetSTR, insertFrom )
175 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
176 
		If rsQry("status") = "New" OR rsQry("status") = "Updated" Then
177 
			tempSTR = Replace( snippetSTR, "$CLASS_NAME$", "pkg_changed" )
178 
		ElseIf rsQry("status") = "Removed" Then
179 
			tempSTR = Replace( snippetSTR, "$CLASS_NAME$", "pkg_removed" )
180 
		Else
181 
			tempSTR = Replace( snippetSTR, "$CLASS_NAME$", "body_txt" )
182 
		End If
183 
		tempSTR = Replace( tempSTR, "$PKG_NAME$", rsQry("pkg_name") )
184 
		tempSTR = Replace( tempSTR, "$STATUS$", NVL( rsQry("status") ) )
185 
		tempSTR = Replace( tempSTR, "$CURRENT_VERSION$", NVL( rsQry("pkg_version") ) )
186 
		tempSTR = Replace( tempSTR, "$PREVIOUS_VERSION$", NVL( rsQry("previous_version") ) )
187 
		insterSTR = insterSTR & Replace( tempSTR, "$LAST_OWNER$", "<a href='mailto:"& rsQry("user_email") &"' class='txt_linked'>"& rsQry("full_name")  &"</a>" )
188 
		rsQry.MoveNext
189 
	WEnd
190 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
191 
 
192 
 
193 
 
194 
 
195 
	' --- Build Dependencies ---
196 
	Query_String = ReadFile( AppPath & QUERIES_FOLDER & "\package_build_dependencies.sql" )
197 
	Set rsQry = OraDatabase.CreateDynaset( Query_String, cint(0))
198 
	Call Get_Snippet ( "Build_Dependencies", outNotes, snippetSTR, insertFrom )
199 
	If rsQry.RecordCount < 1 Then
200 
		tempSTR = Replace( snippetSTR, "$PKG_NAME$", "&nbsp;" )
201 
		tempSTR = Replace( tempSTR, "$RELEASE_NOTE_PATH$", "&nbsp;" )
202 
		insterSTR = insterSTR & Replace( tempSTR, "$PKG_VERSION$", "&nbsp;" )
203 
	End If
204 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
205 
		tempSTR = Replace( snippetSTR, "$PKG_NAME$", rsQry("pkg_name") )
206 
		tempSTR = Replace( tempSTR, "$RELEASE_NOTE_PATH$", rsQry("pkg_name") &"/"& rsQry("pkg_version") &"/"& DOC_FOLDER &"/"& Format_FileName( rsQry("pkg_name"), rsQry("pkg_version"), rsQry("dpv_id") ) )
207 
		insterSTR = insterSTR & Replace( tempSTR, "$PKG_VERSION$", rsQry("pkg_version") )
208 
		rsQry.MoveNext
209 
	WEnd
210 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
211 
 
212 
 
213 
 
214 
 
215 
	' --- Runtime Dependencies ---
216 
	Query_String = ReadFile( AppPath & QUERIES_FOLDER & "\package_runtime_dependencies.sql" )
217 
	Set rsQry = OraDatabase.CreateDynaset( Query_String, cint(0))
218 
	Call Get_Snippet ( "Runtime_Dependencies", outNotes, snippetSTR, insertFrom )
219 
	If rsQry.RecordCount < 1 Then
220 
		tempSTR = Replace( snippetSTR, "$PKG_NAME$", "&nbsp;" )
221 
		tempSTR = Replace( tempSTR, "$PKG_VERSION$", "&nbsp;" )
222 
		insterSTR = insterSTR & Replace( tempSTR, "$COMMENTS$", "&nbsp;")
223 
	End If
224 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
225 
		tempSTR = Replace( snippetSTR, "$PKG_NAME$", rsQry("pkg_name") )
226 
		tempSTR = Replace( tempSTR, "$PKG_VERSION$", rsQry("pkg_version") )
227 
		insterSTR = insterSTR & Replace( tempSTR, "$COMMENTS$", NVL( FormatTextBox ( HTML_Encode ( rsQry("rtd_comments") ) &"<br>"& HTML_Encode ( rsQry("rtd_url") ) ) ) )
228 
		rsQry.MoveNext
229 
	WEnd
230 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
231 
 
232 
 
233 
 
234 
 
235 
	' --- Files ---
236 
	Query_String = ReadFile( AppPath & QUERIES_FOLDER & "\package_components.sql" )
237 
	Set rsQry = OraDatabase.CreateDynaset( Query_String, cint(0))
238 
	Call Get_Snippet ( "Files", outNotes, snippetSTR, insertFrom )
239 
	If rsQry.RecordCount < 1 Then
240 
		tempSTR = Replace( snippetSTR, "$FILE_NAME$", "&nbsp;" )
241 
		tempSTR = Replace( tempSTR, "$FILE_PATH$", "&nbsp;" )
242 
		tempSTR = Replace( tempSTR, "$BYTE_SIZE$", "&nbsp;" )
243 
		insterSTR = insterSTR & Replace( tempSTR, "$CRC_CKSUM$", "&nbsp;" )
244 
	End If
245 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
246 
		tempSTR = Replace( snippetSTR, "$FILE_NAME$", NVL( rsQry("file_name") ) )
247 
		tempSTR = Replace( tempSTR, "$FILE_PATH$", NVL( rsQry("file_path") ) )
248 
		tempSTR = Replace( tempSTR, "$BYTE_SIZE$", NVL( rsQry("byte_size") ) )
249 
		insterSTR = insterSTR & Replace( tempSTR, "$CRC_CKSUM$", NVL( rsQry("crc_cksum") ) )
250 
		rsQry.MoveNext
251 
	WEnd
252 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
253 
 
254 
 
255 
 
256 
 
257 
	' --- Issues ---
258 
	Dim curr_pv_id, recCode, GroupChanged
259 
 
260 
	Call Get_ORA_Package_Issues ( "Dependency_Issues", CQSQL )
261 
	Call Get_Dependency_CQ_Issues ( CQSQL, rsCQ, depIssDICT, depIssARR )
262 
	Query_String = ReadFile( AppPath & QUERIES_FOLDER & "\dependency_issues_fixed.sql" )
263 
	OraDatabase.Parameters.Add "enumISSUES_STATE_IMPORTED", enumISSUES_STATE_IMPORTED, ORAPARM_INPUT, ORATYPE_NUMBER
264 
	Set rsQry = OraDatabase.CreateDynaset( Query_String, cint(0))
265 
	Call Get_Snippet ( "Issues:Header", outNotes, headerSnippet, insertFrom )
266 
	Call Get_Snippet ( "Issues:Columns", outNotes, columnSnippet, insertFrom )
267 
	Call Get_Snippet ( "Issues:List:DEVI", outNotes, snippetDEVI, insertFrom )
268 
	Call Get_Snippet ( "Issues:List:TDSE", outNotes, snippetTDSE, insertFrom )
269 
	Call Get_Snippet ( "Issues:List", outNotes, listSnippet, insertFrom )
270 
	curr_pv_id = 0
271 
	insterSTR = ""
272 
	GroupChanged = FALSE
273 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
274 
		recCode = Cstr(rsQry("iss_db") &"."& rsQry("iss_id"))
275 
 
276 
		' Issues:Header
277 
	    tempSTR = Replace( headerSnippet, "$PKG_NAME_AND_VERSION$", rsQry("pkg_name") &" "& rsQry("pkg_version") )
278 
	    tempSTR = Replace( tempSTR, "$RELEASE_NOTE_PATH$", rsQry("pkg_name") &"/"& rsQry("pkg_version") &"/"& DOC_FOLDER &"/"& Format_FileName( rsQry("pkg_name"), rsQry("pkg_version"), rsQry("pv_id") ) )
279 
	    tempSTR = Replace( tempSTR, "$REASON_FOR_RELEASE$", Format_Reason_For_Release ( rsQry("iss_id"), rsQry("reasons") ) )
280 
 
281 
	    Call Group_By ( rsQry("pv_id"), curr_pv_id, tempSTR, insterSTR, GroupChanged )
282 
 
283 
	    ' Issues:List
284 
	    If NOT IsNull(rsQry("iss_id")) Then
285 
	    	If GroupChanged Then
286 
	    		' Add column names
287 
	    		insterSTR = insterSTR & columnSnippet
288 
	    		GroupChanged = FALSE
289 
	    	End If
290 
 
291 
	    	' Add Row
292 
	    	If CInt(rsQry("iss_db")) = enumCLEARQUEST_DEVI_ID Then
293 
				tempSTR = Replace( snippetDEVI, "$ISSUE_DATABASE$", "DEVI" )
294 
			ElseIf CInt(rsQry("iss_db")) = enumCLEARQUEST_TDSE_ID Then
295 
				tempSTR = Replace( snippetTDSE, "$ISSUE_DATABASE$", "TDSE" )
296 
			End If
297 
			tempSTR = Replace( tempSTR, "$TAG_ID$",                 ArrayRecord( enumLoc_iss_db, recCode, depIssDICT, depIssARR ) &"_"& ArrayRecord( enumLoc_iss_id, recCode, depIssDICT, depIssARR ) )
298 
			tempSTR = Replace( tempSTR, "$BOX_WIDTH$",              String(20, "_") )
299 
			tempSTR = Replace( tempSTR, "$ISSUE_NUMBER$",           ArrayRecord( enumLoc_iss_num, recCode, depIssDICT, depIssARR ) )
300 
			tempSTR = Replace( tempSTR, "$SUMMARY$",                ArrayRecord( enumLoc_summary, recCode, depIssDICT, depIssARR ) )
301 
			' --- CQ Issues body ---
302 
			tempSTR = Replace( tempSTR, "$CQ_ISSUE_TYPE$",          ArrayRecord( enumLoc_issue_type, recCode, depIssDICT, depIssARR ) )
303 
			tempSTR = Replace( tempSTR, "$CQ_SUBMITTER$",           ArrayRecord( enumLoc_submitter, recCode, depIssDICT, depIssARR ) )
304 
			tempSTR = Replace( tempSTR, "$CQ_DETECTED_IN_VERSION$", ArrayRecord( enumLoc_defect_in, recCode, depIssDICT, depIssARR ) )
305 
			tempSTR = Replace( tempSTR, "$CQ_SUBMIT_DATE$",         ArrayRecord( enumLoc_submit_date, recCode, depIssDICT, depIssARR ) )
306 
			tempSTR = Replace( tempSTR, "$CQ_PROJECT$",             ArrayRecord( enumLoc_project, recCode, depIssDICT, depIssARR ) )
307 
			tempSTR = Replace( tempSTR, "$CQ_OWNER$",               ArrayRecord( enumLoc_owner, recCode, depIssDICT, depIssARR ) )
308 
			tempSTR = Replace( tempSTR, "$CQ_PRODUCT$",             ArrayRecord( enumLoc_product, recCode, depIssDICT, depIssARR ) )
309 
			tempSTR = Replace( tempSTR, "$CQ_APPROVER$",            ArrayRecord( enumLoc_approver, recCode, depIssDICT, depIssARR ) )
310 
			tempSTR = Replace( tempSTR, "$CQ_PACKAGE$",             ArrayRecord( enumLoc_package, recCode, depIssDICT, depIssARR ) )
311 
			tempSTR = Replace( tempSTR, "$CQ_PRIORITY$",            ArrayRecord( enumLoc_priority, recCode, depIssDICT, depIssARR ) )
312 
			tempSTR = Replace( tempSTR, "$CQ_STATUS$",              ArrayRecord( enumLoc_status, recCode, depIssDICT, depIssARR ) )
313 
			tempSTR = Replace( tempSTR, "$CQ_DESCRIPTION$",         ArrayRecord( enumLoc_description, recCode, depIssDICT, depIssARR ) )
314 
			tempSTR = Replace( tempSTR, "$CQ_NOTES_LOG$",           ArrayRecord( enumLoc_notes_log, recCode, depIssDICT, depIssARR ) )
315 
			tempSTR = Replace( tempSTR, "$CQ_RELEASE_ID$",          ArrayRecord( enumLoc_release_id, recCode, depIssDICT, depIssARR ) )
316 
			tempSTR = Replace( tempSTR, "$CQ_CLIENT_REFERENCE$",    ArrayRecord( enumLoc_client_ref, recCode, depIssDICT, depIssARR ) )
317 
			tempSTR = Replace( tempSTR, "$CQ_SEVERITY$",            ArrayRecord( enumLoc_severity, recCode, depIssDICT, depIssARR ) )
318 
			tempSTR = Replace( tempSTR, "$CQ_CHANGE_REQUEST$",      ArrayRecord( enumLoc_change_request, recCode, depIssDICT, depIssARR ) )
319 
			'-----------------------
320 
			tempSTR = Replace( tempSTR, "$ISSUE_TYPE$",             ArrayRecord( enumLoc_issue_type, recCode, depIssDICT, depIssARR ) )
321 
			insterSTR = insterSTR & Replace( tempSTR, "$PRIORITY$", ArrayRecord( enumLoc_priority, recCode, depIssDICT, depIssARR ) )
322 
		End If
323 
 
324 
		rsQry.MoveNext
325 
	WEnd
326 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
327 
 
328 
 
329 
 
330 
 
331 
	' --- Additional_Notes ---
332 
	Query_String = ReadFile( AppPath & QUERIES_FOLDER & "\additional_notes.sql" )
333 
	Set rsQry = OraDatabase.CreateDynaset( Query_String, cint(0))
334 
	Call Get_Snippet ( "Additional_Notes:Blank", outNotes, tempSTR, insertFrom )
335 
	Call Get_Snippet ( "Additional_Notes", outNotes, snippetSTR, insertFrom )
336 
	If rsQry.RecordCount < 1 Then
337 
		insterSTR = tempSTR
338 
	End If
339 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
340 
		tempSTR = Replace( snippetSTR, "$NOTE_TITLE$", rsQry("note_title") )
341 
		tempSTR = Replace( tempSTR, "$NOTE_BODY$", FormatTextBox( NVL( rsQry("note_body") ) ) )
342 
		tempSTR = Replace( tempSTR, "$MOD_DATE$", EuroDate ( rsQry("mod_date") ) )
343 
		insterSTR = insterSTR & Replace( tempSTR, "$MOD_USER$", NVL( rsQry("full_name") ) )
344 
		rsQry.MoveNext
345 
	WEnd
346 
	Call Insert_To_Page ( outNotes, insertFrom, insterSTR )
347 
 
348 
 
349 
 
350 
	rsQry.Close()
351 
	Set rsQry = Nothing
352 
	OraDatabase.Parameters.Remove "PV_ID"
353 
	OraDatabase.Parameters.Remove "OLD_PV_ID"
354 
	OraDatabase.Parameters.Remove "enumISSUES_STATE_IMPORTED"
355 
End Sub