This question is PART TWO of a previous posting. Asked by JA67 (me) on 05/01/2005 06:11PM PDT)
(Previous Solution Title: "Need to populate four input boxes with values that are determined by the selected item from an ASP populated select list.")
Expert Exchange user, "nschafer" primarily helped me with the previous posting, with "SnowFlake" providing very useful commentary as well. Both of these experts have been extremely helpful to me thus far. It's merely my lack of knowledge and my dim wittedness that's keeping me from implementing their wonderful examples...
In this posting I am attempting to past in my entire web page, (not sure what the character limit is) so that you can better understand what I am talking about. It is an asp page but if you save it as an html page you should be able to view it. The only things that won't work will be the drop downs, etc., which are populated by a database.
The version of my web page that I've pasted below, includes my pathetic attempt to implement nschafer's "[OPTION 3]" solution, posted in the Solution Title denoted above. I understood from nscharfer's [OPTION 3] example, that I needed to create two additional web pages to go along with my main page, and I have done so, but I havn't made all the chages or edits correctly, because I'm getting a little lost...
Now for a reiteration of my question/problem/objective
:
**************************
**********
**********
**********
**********
**********
***
OBJECTIVE:
1. I have a select list that is populated by the following ASP:
<tr><td>Technical name:</td>
<td><select name="txtTechName" class="clsInputTextTechNam
e" type="text" ID="txtTechName"/>
<option value=""></option>
<%
Do Until oRstADW_COL.EOF
Response.Write("<option value='" & oRstADW_COL.Fields("mdo_nm
") & "'>" & oRstADW_COL.Field("mdo_nm"
) & "</option>")
oRstADW_COL.MoveNext
Loop
%>
</select>
</td>
</tr>
2. If an item is selected from select list "txtTechName," then a query is ran using the ID of the selected item to create another recordset, "rst".
3. The ID mentioned above, (in my MS Access version of this web page) is stored in a variable named, "txtRFRNC_MDO_ID". That is the way I do it in VBA. The ID is stored in the second column of a combo box and is hidden. I then assign this value to txtRFRNC_MDO_ID. That's just they way I did it. Because it worked. That's the only reason...
4. Here is the SQL used to create rst (in my Access database version) The actual tables are on an SQL server. My database is a front end.
Set rst = CurrentDb.OpenRecordset("s
elect * from MDI Where MDO_ID=" & txtRFRNC_MDO_ID, dbOpenDynaset, dbSeeChanges)
5. Recordset "rst" will generally only contain 3 to 5 rows, and look somthing like the below table (only showing relavant columns in my example).
MDO_ID MDI_TYPE_CD MDI_TXT
100100 busn Birth Date
100100 desc The member's date of birth.
100100 rfmt Date
6. I then loop through this recordset with the following code (in VBA).
rst.MoveFirst
Do Until rst.EOF
Select Case rst.Fields("mdi_type_cd").
Value
Case "BUSN"
txtFieldName = rst.Fields("mdi_txt").Valu
e ' On my web page this line corrolates with "Field Name" on tab3.
Case "DESC"
txtFieldDescription = rst.Fields("mdi_txt").Valu
e ' On my web page this line corrolates with "Field Description" on tab3.
Case "ELMTYP"
cmbObjectType = rst.Fields("mdi_txt").Valu
e ' On my web page this line corrolates with "Object Type" on tab3.
Case "EXMP"
txtExample = rst.Fields("mdi_txt").Valu
e ' On my web page this line corrolates with "Example" on tab3.
Case "RFMT"
cmbFieldFormat = rst.Fields("mdi_txt").Valu
e ' On my web page this line corrolates with "Field Format" on tab3.
End Select
rst.MoveNext
Loop
**************************
**********
**********
**********
**********
**********
**********
**********
**********
******
My web page is below: Approximately 1,220 lines. Not sure if it will paste in... The formating will likely be messed up a little, but the various sections of the code are documented pretty well. It is "Tab3" on the web page that my question is concerned with, so you can do a search for "Tab3" in the code to find the right section of the code...
**************************
**********
**********
**********
**********
**********
********
<%@ language="vbscript" %>
<%
' ******************** Make connection to database. *******************
Set oCon = Server.CreateObject("ADODB
.Connectio
n")
' ******************* Create recordsets to populate select lists on tab1. **************
Set oRst = Server.CreateObject("ADODB
.recordset
")
oRst.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'USR' ORDER BY MDO_NM", oCon
Set oRstAppOwnr = Server.CreateObject("ADODB
.recordset
")
oRstAppOwnr.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'APPOWNR' ORDER BY MDO_NM", oCon
Set oRstAppContact = Server.CreateObject("ADODB
.recordset
")
oRstAppContact.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'USR' ORDER BY MDO_NM", oCon
Set oRstSBJA = Server.CreateObject("ADODB
.recordset
")
oRstSBJA.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'APPSBJA' ORDER BY MDO_NM", oCon
Set oRstDATASRC = Server.CreateObject("ADODB
.recordset
")
oRstDATASRC.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'APPDATASRC' ORDER BY MDO_NM", oCon
Set oRstBUSFCT = Server.CreateObject("ADODB
.recordset
")
oRstBUSFCT.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'APPBUSFCT' ORDER BY MDO_NM", oCon
Set oRstPRGTOOL = Server.CreateObject("ADODB
.recordset
")
oRstPRGTOOL.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'PRGTOOL' ORDER BY MDO_NM", oCon
' ******************* Create recordsets to populate select list on tab6. **************
Set oRstADW_COL = Server.CreateObject("ADODB
.recordset
")
oRstADW_COL.Open "SELECT MDO.MDO_NM, MDO.MDO_TYPE_CD, MDO.MDO_ID, MDI.MDI_TXT, MDI.MDI_TYPE_CD FROM MDO INNER JOIN MDI ON MDO.MDO_ID=MDI.MDO_ID WHERE (((MDO.MDO_TYPE_CD)='col')
AND ((MDI.MDI_TYPE_CD)='busn')
) ORDER BY MDO.MDO_NM", oCon
%>
<html>
<head>
<title>Application Documentation Capture Tool </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style id="pageStyle">
/* ******* DHTML tab control ******************* */
.clsActiveTab {font-family: verdana;font-size: 11px;font-weight: bold;background-color:#d7d
7d7;border
-top:1px solid; border-right:3px solid; border-left:1px solid; cursor:hand; height:5px; padding:3px;width:5px;}
.clsTab {background-color:#d7d7d7;
border:1px solid; cursor:hand; height:5px; padding:3px;}
.clsTabSpacer {border-bottom:1px solid; height:5px; width:1px}
.clsText {display:none}
.clsButton {font:menu; width:50px;}
/* ******* Input boxes on tabs 3 and 4 ******************* */
.clsInputTextTab3 {font-family:verdana; font-size:10px;width:100%;
}
.clsInputTextTechName {font-family:verdana; font-size:10px;width:200px
;}
.clsInputTextOther {font-family:verdana; font-size:10px;width:178px
;}
.clsInputTextTab4 {font-family:verdana; font-size:10px;width:100%;
}
/* ******* Align check box and text box LABLES to the right. ******************* */
td {font-family: verdana;font-size: 10px;color: black;verticle-align:basel
ine;paddin
g:0px;}
td.textright {font-family: verdana;font-size: 10px;color: black;text-align:right;ver
ticle-alig
n:baseline
;padding:0
px;}
/* ******* Align check boxes and text boxes to the left. ************************ */
td.textleft {font-family: verdana;font-size: 10px;color: black;text-align: left;padding: 0px;vertical-align: top;}
/* ******* Produces dividing lines between the differecnt sections of a form. Used on every tab. ************** */
td.HeaderRidgeBottom {font-family: verdana;font-size: 10px;color: black;font-weight: bold;text-align: left;border-bottom: thin ridge;padding-left: 3px;padding-right: 6px;padding-top: 4px;padding-bottom: 2px;}
td.HeaderRidgeTop {font-family: verdana;font-size: 10px;color: black;text-align: left;border-top: thin ridge;padding-left: 3px;}
td.HeaderNoRidge {font-family: verdana;font-size: 10px;color: black; font-weight: normal;text-align: left;padding-left: 3px;}
td.SpaceBetweenRows {font-family: verdana;font-size: 6px;color: black; font-weight: normal;text-align: left;padding-left: 3px;}
/* ******* Formats text within text boxes and buttons. **************************
******* */
input {font-family: verdana;font-size: 10px;color: black;text-align: left;}
/* ******* Formats Select boxes on tab3. **************************
******* */
SELECT.Style1{font-family:
verdana;font-size: 10px;color: black;width: 133px;text-align: left;padding: 0px;}
SELECT.Style2{font-family:
verdana;font-size: 10px;color: black;width: 200px;text-align: left;padding: 0px;}
INPUT.Style1 {font-family: verdana;font-size: 10px;color: black;text-align: left;padding: 0px;}
</style>
<script type="text/javascript">
/******* Auto check /uncheck, check boxes on tab2 ***** */
function AutoCheck(oForm, cClass, lChecked) {
var oElements = oForm.elements;
for (var i=0; i<oElements.length; i++) {
if (oElements[i].className==c
Class)
oElements[i].checked=lChec
ked;
}
}
/* ****** Declare and Initialize variables for each Data Island ****** */
var oDoc = new XMLDocument();
var oDoc2 = new XMLDocument();
var oDoc3 = new XMLDocument();
var oDoc4 = new XMLDocument();
var oRoot = new IXMLDOMElement();
var oRoot2 = new IXMLDOMElement();
var oRoot3 = new IXMLDOMElement();
var oRoot4 = new IXMLDOMElement();
function initVariables() {
oDoc = apps.XMLDocument;
oDoc2 = appsPRMPT.XMLDocument;
oDoc3 = appsRECIP.XMLDocument;
oDoc4 = appsAddInfo.XMLDocument;
oRoot = oDoc.selectSingleNode('/ap
plications
');
oRoot2 = oDoc2.selectSingleNode('/a
pplication
s');
oRoot3 = oDoc3.selectSingleNode('/a
pplication
s');
oRoot4 = oDoc4.selectSingleNode('/a
pplication
s');
}
/* ****** Populate the "Additional info applies to:" combo box with values from: Data Source, Fields, Prompts, and Recipients. *** */
function popAddInfoAppliesTo() {
var oApplicationNodes = document.getElementById('a
pps').XMLD
ocument.se
lectNodes(
'/applicat
ions/appli
cation/*[0
]');
var oApplicationNodes2 = document.getElementById('a
ppsPRMPT')
.XMLDocume
nt.selectN
odes('/app
lications/
applicatio
n/*[0]');
var oApplicationNodes3 = document.getElementById('a
ppsRECIP')
.XMLDocume
nt.selectN
odes('/app
lications/
applicatio
n/*[0]');
document.forms['frmAddInfo
'].txtAddI
nfoApplies
.options.l
ength = 0; // Clear select list before building the list of items. Prevents duplicates in the list.
for(var i=0;i<oApplicationNodes.le
ngth;i++) {
//alert(oApplicationNodes.
item(i).te
xt);
var oOption = document.createElement("OP
TION");
document.all.txtAddInfoApp
lies.optio
ns.add(oOp
tion);
oOption.innerText = oApplicationNodes.item(i).
text;
oOption.value = "apps_" + oApplicationNodes.item(i).
text
}
for(var i=0;i<oApplicationNodes2.l
ength;i++)
{
//alert(oApplicationNodes2
.item(i).t
ext);
if (oApplicationNodes2.item(i
).text.len
gth>0) { // <--- Don't add blank lines. Without this, a blank line is placed between, e.g. Fields & Prompts.
var oOption = document.createElement("OP
TION");
document.all.txtAddInfoApp
lies.optio
ns.add(oOp
tion);
oOption.innerText = oApplicationNodes2.item(i)
.text;
oOption.value = "appsPRMPT_" + oApplicationNodes2.item(i)
.text;
}
}
for(var i=0;i<oApplicationNodes3.l
ength;i++)
{
//alert(oApplicationNodes3
.item(i).t
ext);
if (oApplicationNodes2.item(i
).text.len
gth>0) {
var oOption = document.createElement("OP
TION");
document.all.txtAddInfoApp
lies.optio
ns.add(oOp
tion);
oOption.innerText = oApplicationNodes3.item(i)
.text;
oOption.value = "appsRECIP_" + oApplicationNodes3.item(i)
.text;
}
}
}
/* ****** Toggle between the "Technical name" Select list, and the, "Other" Input box. Tab3 *** */
function test(oTxt, oSel) {
if(oTxt.value.length >= 1)
{ document.all.item('txtTech
Name').val
ue = ""
oSel.disabled = true; }
else
oSel.disabled = false;
}
/* ****** Functions & variable common to each listview / Data Island) *** */
// ===== Reference this to see what the XML looks like for the apps, i.e., "Fields" data island. Educational only... Not used. =======
function checkXML() {
alert(apps.xml);
}
// ===== Delete listview table row & clear form fields =======
function deleteNode(tNode, lstView, text) {
tNode.removeChild(tNode.ch
ildNodes.i
tem(text))
;
switch (lstView) {
case "FLDS": clearFormFLDS();
case "PRMPT": clearFormPRMPT();
case "RECIP": clearFormRECIP();
case "AddInfo": clearFormAddInfo();
}
}
// ====== Add new listview table row =======
function addDetail(tDoc, oNode, cElement, cText) {
var oTxt = tDoc.createTextNode(cText)
;
var oElement = tDoc.createElement(cElemen
t);
oElement.appendChild(oTxt)
;
var oNewNode = oNode.appendChild(oElement
);
return oNewNode;
}
/* ******** Tab3, Field specific functions ******** */
// ====== Add new listview table row =======
function addValuesFLDS() {
var oNode = addDetail(oDoc, oRoot, 'application', '');
if(document.all.item('txtT
echName').
value.leng
th !=0) {
addDetail(oDoc, oNode, 'TechName', document.all.item('txtTech
Name').val
ue);
}
if(document.all.item('txtT
echNameOth
er').value
.length !=0) {
addDetail(oDoc, oNode, 'TechName', document.all.item('txtTech
NameOther'
).value);
}
addDetail(oDoc, oNode, 'FieldName', document.all.item('txtFiel
dName').va
lue);
addDetail(oDoc,oNode, 'Description', document.all.item('txtDesc
ription').
value);
addDetail(oDoc, oNode, 'Example', document.all.item('txtExam
ple').valu
e);
addDetail(oDoc, oNode, 'ObjectType', document.all.item('txtObje
ctType').v
alue);
addDetail(oDoc, oNode, 'FieldFormat', document.all.item('txtFiel
dFormat').
value);
addDetail(oDoc, oNode, 'Limitation', document.all.item('txtLimi
tation').v
alue);
addDetail(oDoc, oNode, 'Disp_Ord', document.all.item('txtFiel
dDispOrd')
.value);
document.all.item('txtTech
Name').dis
abled=fals
e;
clearFormFLDS();
}
// ====== Update existing listview table row =======
function updateValuesFLDS() {
var oNode = oRoot.childNodes.item(docu
ment.all.i
tem('txtID
_FLD').val
ue);
/* Left side of "=" references listview table columns. Right side of "=" references the form fields. */
oNode.selectSingleNode('Te
chName').t
ext = document.all.item('txtTech
Name').val
ue;
oNode.selectSingleNode('Fi
eldName').
text = document.all.item('txtFiel
dName').va
lue;
oNode.selectSingleNode('De
scription'
).text = document.all.item('txtDesc
ription').
value;
oNode.selectSingleNode('Ex
ample').te
xt = document.all.item('txtExam
ple').valu
e;
oNode.selectSingleNode('Ob
jectType')
.text = document.all.item('txtObje
ctType').v
alue;
oNode.selectSingleNode('Fi
eldFormat'
).text = document.all.item('txtFiel
dFormat').
value;
oNode.selectSingleNode('Li
mitation')
.text = document.all.item('txtLimi
tation').v
alue;
oNode.selectSingleNode('Di
sp_Ord').t
ext = document.all.item('txtFiel
dDispOrd')
.value;
clearFormFLDS();
}
// ====== Populate form fields with content of a selected row, for editing the selected row =======
function getValuesFLDS(oRow) {
var oNode = oRoot.childNodes.item(oRow
.recordNum
ber - 1);
document.all.item('txtID_F
LD').value
= (oRow.recordNumber - 1);
document.all.item('txtTech
Name').val
ue = oNode.selectSingleNode('Te
chName').t
ext;
document.all.item('txtFiel
dName').va
lue = oNode.selectSingleNode('Fi
eldName').
text;
document.all.item('txtDesc
ription').
value = oNode.selectSingleNode('De
scription'
).text;
document.all.item('txtExam
ple').valu
e = oNode.selectSingleNode('Ex
ample').te
xt;
document.all.item('txtObje
ctType').v
alue = oNode.selectSingleNode('Ob
jectType')
.text;
document.all.item('txtFiel
dFormat').
value = oNode.selectSingleNode('Fi
eldFormat'
).text;
document.all.item('txtLimi
tation').v
alue = oNode.selectSingleNode('Li
mitation')
.text;
document.all.item('txtFiel
dDispOrd')
.value = oNode.selectSingleNode('Di
sp_Ord').t
ext;
}
// ====== Clear form fields after a row is added or when the "Clear" button is clicked. =======
function clearFormFLDS() {
document.all.item('txtID_F
LD').value
= ""
document.all.item('txtTech
Name').val
ue = ""
document.all.item('txtTech
NameOther'
).value = ""
document.all.item('txtFiel
dName').va
lue = ""
document.all.item('txtDesc
ription').
value = ""
document.all.item('txtExam
ple').valu
e = ""
document.all.item('txtObje
ctType').v
alue = ""
document.all.item('txtFiel
dFormat').
value = ""
document.all.item('txtLimi
tation').v
alue = ""
document.all.item('txtFiel
dDispOrd')
.value = ""
}
function updateFields(key) {
window.frames[0].location=
"updateFie
lds.asp?ke
y=" + key
}
/* *********** Tab4, Prompt specific functions ************ */
// ====== Add new listview table row =======
function addValuesPRMPT() {
var oNode = addDetail(oDoc2, oRoot2, 'application', '');
addDetail(oDoc2, oNode, 'TechPrompt', document.all.item('txtTech
Prompt').v
alue);
addDetail(oDoc2, oNode, 'PromptVerbiage', document.all.item('txtProm
ptVerbiage
').value);
addDetail(oDoc2, oNode, 'PromptNotes', document.all.item('txtProm
ptNotes').
value);
addDetail(oDoc2, oNode, 'PromptFormat', document.all.item('txtProm
ptFormat')
.value);
addDetail(oDoc2, oNode, 'PromptType', document.all.item('txtProm
ptType').v
alue);
addDetail(oDoc2, oNode, 'Disp_Ord', document.all.item('txtProm
ptDispOrd'
).value);
clearFormPRMPT();
}
// ====== Update existing listview table row =======
function updateValuesPRMPT() {
var oNode = oRoot2.childNodes.item(doc
ument.all.
item('txtI
D_PRMPT').
value);
<!-- Left side of "=" references listview table columns. Right side of "=" references the form fields. -->
oNode.selectSingleNode('Te
chPrompt')
.text = document.all.item('txtTech
Prompt').v
alue;
oNode.selectSingleNode('Pr
omptVerbia
ge').text = document.all.item('txtProm
ptVerbiage
').value;
oNode.selectSingleNode('Pr
omptNotes'
).text = document.all.item('txtProm
ptNotes').
value;
oNode.selectSingleNode('Pr
omptFormat
').text = document.all.item('txtProm
ptFormat')
.value;
oNode.selectSingleNode('Pr
omptType')
.text = document.all.item('txtProm
ptType').v
alue;
oNode.selectSingleNode('Di
sp_Ord').t
ext = document.all.item('txtProm
ptDispOrd'
).value;
clearFormPRMPT();
}
// ====== Populate form fields with content of a selected row, for editing the selected row =======
function getValuesPRMPT(oRow) {
var oNode = oRoot2.childNodes.item(oRo
w.recordNu
mber - 1);
document.all.item('txtID_P
RMPT').val
ue = (oRow.recordNumber - 1);
document.all.item('txtTech
Prompt').v
alue = oNode.selectSingleNode('Te
chPrompt')
.text;
document.all.item('txtProm
ptVerbiage
').value = oNode.selectSingleNode('Pr
omptVerbia
ge').text;
document.all.item('txtProm
ptNotes').
value = oNode.selectSingleNode('Pr
omptNotes'
).text;
document.all.item('txtProm
ptFormat')
.value = oNode.selectSingleNode('Pr
omptFormat
').text;
document.all.item('txtProm
ptType').v
alue = oNode.selectSingleNode('Pr
omptType')
.text;
document.all.item('txtProm
ptDispOrd'
).value = oNode.selectSingleNode('Di
sp_Ord').t
ext;
}
// ====== Clear form fields after a row is added or when the "Clear" button is clicked. =======
function clearFormPRMPT() {
document.all.item('txtID_P
RMPT').val
ue = ""
document.all.item('txtTech
Prompt').v
alue = ""
document.all.item('txtProm
ptVerbiage
').value = ""
document.all.item('txtProm
ptNotes').
value = ""
document.all.item('txtProm
ptFormat')
.value = ""
document.all.item('txtProm
ptType').v
alue = ""
document.all.item('txtProm
ptDispOrd'
).value = ""
}
/* *********** Tab5, Recipient specific functions ************ */
// ====== Add new listview table row =======
function addValuesRECIP() {
var oNode = addDetail(oDoc3, oRoot3, 'application', '');
addDetail(oDoc3, oNode, 'Recipient', document.all.item('txtReci
p').value)
;
addDetail(oDoc3, oNode, 'Intern_Extern_Ind', document.all.item('txtIntE
xtInd').va
lue);
addDetail(oDoc3, oNode, 'Frequency', document.all.item('txtFreq
').value);
clearFormRECIP();
}
// ====== Update existing listview table row =======
function updateValuesRECIP() {
var oNode = oRoot3.childNodes.item(doc
ument.all.
item('txtI
D_RECIP').
value);
oNode.selectSingleNode('Re
cipient').
text = document.all.item('txtReci
p').value;
oNode.selectSingleNode('In
tern_Exter
n_Ind').te
xt = document.all.item('txtIntE
xtInd').va
lue;
oNode.selectSingleNode('Fr
equency').
text = document.all.item('txtFreq
').value;
clearFormRECIP();
}
// ====== Populate form fields with content of a selected row, for editing the selected row =======
function getValuesRECIP(oRow) {
var oNode = oRoot3.childNodes.item(oRo
w.recordNu
mber - 1);
document.all.item('txtID_R
ECIP').val
ue = (oRow.recordNumber - 1);
document.all.item('txtReci
p').value = oNode.selectSingleNode('Re
cipient').
text;
document.all.item('txtIntE
xtInd').va
lue = oNode.selectSingleNode('In
tern_Exter
n_Ind').te
xt;
document.all.item('txtFreq
').value = oNode.selectSingleNode('Fr
equency').
text;
}
// ====== Clear form fields after a row is added or when the "Clear" button is clicked. =======
function clearFormRECIP() {
document.all.item('txtID_R
ECIP').val
ue = ""
document.all.item('txtReci
p').value = ""
document.all.item('txtIntE
xtInd').va
lue = ""
document.all.item('txtFreq
').value = ""
}
/* *********** Tab6, Additional Info specific functions ************ */
// ====== Add new listview table row =======
function addValuesAddInfo() {
var oNode = addDetail(oDoc4, oRoot4, 'application', '');
addDetail(oDoc4, oNode, 'AddInfo', document.all.item('txtAddI
nfo').valu
e);
addDetail(oDoc4, oNode, 'Add_Info_Applies_To', document.all.item('txtAddI
nfoApplies
').value);
addDetail(oDoc4, oNode, 'Disp_Ord', document.all.item('txtFLDD
ispOrd').v
alue);
clearFormAddInfo();
}
// ====== Update existing listview table row =======
function updateValuesAddInfo() {
var oNode = oRoot4.childNodes.item(doc
ument.all.
item('txtI
D_AddInfo'
).value);
oNode.selectSingleNode('Ad
dInfo').te
xt = document.all.item('txtAddI
nfo').valu
e;
oNode.selectSingleNode('Ad
d_Info_App
lies_To').
text = document.all.item('txtAddI
nfoApplies
').value;
oNode.selectSingleNode('Di
sp_Ord').t
ext = document.all.item('txtFLDD
ispOrd').v
alue;
clearFormAddInfo();
}
// ====== Populate form fields with content of a selected row, for editing the selected row =======
function getValuesAddInfo(oRow) {
var oNode = oRoot4.childNodes.item(oRo
w.recordNu
mber - 1);
document.all.item('txtID_A
ddInfo').v
alue = (oRow.recordNumber - 1);
document.all.item('txtAddI
nfo').valu
e = oNode.selectSingleNode('Ad
dInfo').te
xt;
document.all.item('txtAddI
nfoApplies
').value = oNode.selectSingleNode('Ad
d_Info_App
lies_To').
text;
document.all.item('txtFLDD
ispOrd').v
alue = oNode.selectSingleNode('Di
sp_Ord').t
ext;
}
// ====== Clear form fields after a row is added or when the "Clear" button is clicked. =======
function clearFormAddInfo() {
document.all.item('txtID_A
ddInfo').v
alue = ""
document.all.item('txtAddI
nfo').valu
e = ""
document.all.item('txtAddI
nfoApplies
').value = ""
document.all.item('txtFLDD
ispOrd').v
alue = ""
}
/* ********** END -- Tab specific functions ************ */
</script>
</head>
<body onLoad="javascript:setDefa
ults();jav
ascript:in
itVariable
s();" style="font-family:Verdana
; font-size:8px">
<!-- ------------ Begin DHTML tab control ---------- -->
<table style="background-color: #d7d7d7;position: absolute; top: 2px; left: 150px;"border="0" cellpadding="0" cellspacing="0" height="425px" width="625px">
<tr id="headerRow">
<td class="clsTabSpacer"> 
;</td>
<td class="clsActiveTab" id="Tab1" onClick="javascript:change
Tabs(this,
Tab1Text);">General_Info</
td>
<td class="clsTabSpacer"> 
;</td>
<td class="clsTab" id="Tab2" onClick="javascript:change
Tabs(this,
Tab2Text);">Scope</td>
<td class="clsTabSpacer"> 
;</td>
<td class="clsTab" id="Tab3" onClick="javascript:change
Tabs(this,
Tab3Text);">Fields</td>
<td class="clsTabSpacer"> 
;</td>
<td class="clsTab" id="Tab4" onClick="javascript:change
Tabs(this,
Tab4Text);">Prompts</td>
<td class="clsTabSpacer"> 
;</td>
<td class="clsTab" id="Tab5" onClick="javascript:change
Tabs(this,
Tab5Text);">Recipients</td
>
<td class="clsTabSpacer"> 
;</td>
<td class="clsTab" id="Tab6" onClick="javascript:change
Tabs(this,
Tab6Text);">Additional Info</td>
<td class="clsTabSpacer"> 
;</td>
</tr>
<tr>
<td colspan="13" style="border-left:1px solid black; border-right:1px solid black; height:10px;"}> </td>
</tr>
<tr>
<td width="100%" colspan="13" style="border-left:1px solid black; border-right:1px solid black; padding:5px; vertical-align:top">
<table border="0" cellpadding="0" cellspacing="0" class="" id="Tab1Text">
<tr>
<td>
<!-- ----- BEGIN -- Tab1 content ----------------- -->
<form name="frmReportInputPage1"
method="post" action="ASPpageGoesHere?fu
nc=add" ID=frmPage1>
<tr>
<td class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td>
</tr>
<tr>
<td class="SpaceBetweenRows" colspan="3"> </td>
</tr>
<tr>
<td class="textleft">Submitted
by: <b>*</b></td>
<td class="textleft">Submitter
e-mail: </td>
<td class="textleft">Date application submitted: </td>
</tr>
<tr>
<td class="textleft">
<select required="true" name="cboUser" ID=cboUser style="width: 187px;font-size: 9px;"><option value=""></option>
<%
Do Until oRst.EOF
Response.Write("<option value='" & oRst.Fields("mdo_nm") & "'>" & oRst.Fields("mdo_nm") & "</option>")
oRst.MoveNext
Loop
%>
</select>
</td>
<td class="textleft"><input type="text" style="font-family: verdana;font-size: 10px;background-color: #d7d7d7;border-color:#A9A9
A9;border-
style:soli
d;border-w
idth:1px;w
idth: 187px;" name="txtEmail" id="txtEmail" readonly /></td>
<td class="textleft"><input type="text" style="font-family: verdana;font-size: 10px;background-color: #d7d7d7;border-color:#A9A9
A9; border-style:solid;border-
width:1px"
size="35" name="txtDTMSBMT" id="txtDTMSBMT" readonly /></td>
</tr>
<tr>
<td class="textleft" colspan="2">Application name:<b>*</b></td>
<td class="textleft">Technical
application name:<b>*</b></td>
</tr>
<tr>
<td class="textleft" colspan="2"><input style="font-family: verdana;font-size: 10px;width: 376px;" required="true" type="text" name="txtRPT_NAME" id="txtRPT_NAME" /></td>
<td class="textleft"><input style="font-family: verdana;font-size: 10px;" required="true" type="text" size="35" name="txtTCHNM" id="txtTCHNM" /></td>
</tr>
<tr>
<td class="textleft">Applicati
on owner: </td>
<td class="textleft">Applicati
on contact: </td>
<td class="textleft">Subject area: </td>
</tr>
<tr>
<td class="textleft">
<select name="cboOWNRAPPS" ID=cboOWNRAPPS style="width: 187px;font-size: 9px;"><option value=""></option>
<%
Do Until oRstAppOwnr.EOF
Response.Write("<option value='" & oRstAppOwnr.Fields("mdo_nm
") & "'>" & oRstAppOwnr.Fields("mdo_nm
") & "</option>")
oRstAppOwnr.MoveNext
Loop
%>
</select>
</td>
<td class="textleft">
<select name="cboRPTCN" ID=cboRPTCN style="width: 188px;font-size: 9px;"><option value=""></option>
<%
Do Until oRstAppContact.EOF
Response.Write("<option value='" & oRstAppContact.Fields("mdo
_nm") & "'>" & oRstAppContact.Fields("mdo
_nm") & "</option>")
oRstAppContact.MoveNext
Loop
%>
</select>
</td>
<td class="textleft">
<select name="cboSBJA" ID=cboSBJA style="width: 190px;font-size: 9px;"><option value=""></option>
<%
Do Until oRstSBJA.EOF
Response.Write("<option value='" & oRstSBJA.Fields("mdo_nm") & "'>" & oRstSBJA.Fields("mdo_nm") & "</option>")
oRstSBJA.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td class="textleft" colspan="2">Application Summary:</td>
<td class="textleft">Business function:</td>
</tr>
<tr>
<td class="textleft" colspan="2"><textarea name="txtSUMM" style="width:378px;height:
58px;" ID=Textarea1></textarea></
td>
<td class="textleft">
<select NAME="lstBUSFCT" MULTIPLE SIZE=5 ID=lstBUSFCT style="width:190px;font-si
ze:9px;hei
ght:60px;"
>
<%
Do Until oRstBUSFCT.EOF
Response.Write("<option value='" & oRstBUSFCT.Fields("mdo_nm"
) & "'>" & oRstBUSFCT.Fields("mdo_nm"
) & "</option>")
oRstBUSFCT.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td class="textleft">PHI catagory:</td>
<td class="textleft">Applicati
on data source:</td>
<td class="textleft">Programmi
ng tool:</td>
</tr>
<tr>
<td class="textleft">
<SELECT NAME="lstPHI" MULTIPLE SIZE=5 ID="lstPHI" style="width:188px;font-si
ze:9px;hei
ght:60px;"
>
<Option>None
<Option value="Test">Accident Cd
<Option value="Test">Admision Src
<Option value="Test">Admission type
<Option value="Test">Admitting Privileges cd/desc
<Option value="Test">Agent Name / ID
<Option value="Test">Area Code / desc
<Option value="Test">Bill Type
<Option value="Test">Block Cd / desc
<Option value="Test">Canncellation
Date
<Option value="Test">Certification
Cd / desc
<Option value="Test">City of Residence
<Option value="Test">Claim Payment Post Dt
<Option value="Test">Claim Status/Type Cd/desc
<Option value="Test">Class Cd / desc
<Option value="Test">Cliam Payment Amt
<Option value="Test">Contract Anniversary Date
<Option value="Test">Contract Code
<Option value="Test">Contract type cd/desc
<Option value="Test">Copayments
<Option value="Test">County of Residence
<Option value="Test">Coverage type
<Option value="Test">CPT Cd / desc
<Option value="Test">Credit/Bill Amt
<Option value="Test">Deductibles
<Option value="Test">Department Name / Number
<Option value="Test">Device ID/Seriaql Nbr
<Option value="Test">Dignosis Cd / desc
<Option value="Test">Discharge Dt
<Option value="Test">Discharge Status
<Option value="Test">Disenrollment
Code
<Option value="Test">Dt of Service
<Option value="Test">Effective Date
<Option value="Test">Employee Id Number
<Option value="Test">Employee Payroll Nbr
<Option value="Test">Group Address
<Option value="Test">Group Name / Number
<Option value="Test">Guarantee renew flag
<Option value="Test">HCPS Cd / desc / Rate
<Option value="Test">Hospital Affiliation cd/desc
<Option value="Test">In/Out of Network Copayment
<Option value="Test">Ineligible Payment Amt/Reason
<Option value="Test">License ID
<Option value="Test">Lifetime Max
<Option value="Test">Line of Business cd/desc
<Option value="Test">Medicare ID
<Option value="Test">Member ACH Routing Nbr
<Option value="Test">Member Age Bracher
<Option value="Test">Member Bank Acct #
<Option value="Test">Member Claim #
<Option value="Test">Member Class Code/Desc
<Option value="Test">Member Contract #
<Option value="Test">Member Credit Card #
<Option value="Test">Member Email Address
<Option value="Test">Member Enrollment Status
<Option value="Test">Member Gender
<Option value="Test">Member Marital Status
<Option value="Test">Member Name
<Option value="Test">Member Relationship
<Option value="Test">Member SSN
<Option value="Test">Member Street Address
<Option value="Test">Member/Spouse
Date of Death
<Option value="Test">Member/Spouse
DOB
<Option value="Test">Network Cd / desc
<Option value="Test">Out-of-Pocket
Max
<Option value="Test">Outpatient Visit Max
<Option value="Test">Paid Amt
<Option value="Test">Payment Method
<Option value="Test">Photo
<Option value="Test">Physician SSN
<Option value="Test">Place of Service
<Option value="Test">Pre-Certifica
tion Info
<Option value="Test">Pre-Determini
tion Info
<Option value="Test">Premium Amt
<Option value="Test">Procedure Cd / desc
<Option value="Test">Product desc / Cd
<Option value="Test">Product Name
<Option value="Test">Provider Address
<Option value="Test">Provider DOB
<Option value="Test">Provider Name / ID
<Option value="Test">Referral Info
<Option value="Test">Referral Req Ind
<Option value="Test ">Referring Provider
<Option value="Test">Revenue Code / desc
<Option value="Test">RVU Ind
<Option value="Test">Specialty Cd / desc
<Option value="Test">State of Residence
<Option value="Test">Sub_group Name / Number
<Option value="Test">Subscriber/Sp
ouse Smoke Ind
<Option value="Test">Telephone Number
<Option value="Test">Terminination
Cd / desc
<Option value="Test">Total Claim Charges
<Option value="Test">Units/Type of Service
<Option value="Test">UPIN/TIN/DEA nbr
<Option value="Test">Waiver Cd / desc
<Option value="Test">Zip Code
</SELECT>
</td>
<td class="textleft">
<select NAME="lstDATASRC" MULTIPLE SIZE=5 ID=lstDATASRC style="width:189px;font-si
ze:9px;hei
ght:60px;"
>
<%
Do Until oRstDATASRC.EOF
Response.Write("<option value='" & oRstDATASRC.Fields("mdo_nm
") & "'>" & oRstDATASRC.Fields("mdo_nm
") & "</option>")
oRstDATASRC.MoveNext
Loop
%>
</select>
</td>
<td class="textleft">
<select NAME="lstPRGTOOL" MULTIPLE SIZE=5 ID=lstPRGTOOL style="width:189px;font-si
ze:9px;hei
ght:60px;"
>
<%
Do Until oRstPRGTOOL.EOF
Response.Write("<option value='" & oRstPRGTOOL.Fields("mdo_nm
") & "'>" & oRstPRGTOOL.Fields("mdo_nm
") & "</option>")
oRstPRGTOOL.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td class="textleft">Applicati
on styles:</td>
<td class="textleft">Security level required:</td>
<td class="textleft">Applicati
on time frames:</td>
</tr>
<tr>
<td class="textleft">
<SELECT NAME="lstRPTSTYL" MULTIPLE SIZE=5 ID=lstRPTSTYL style="width:187px;font-si
ze:9px;hei
ght:60px;"
>
<option>None
<OPTION value="charts">charts
<OPTION value="columnar">columnar
<OPTION value="cross-tab">cross-ta
b
<OPTION value="crosstab-multiple breaks">crosstab-multiple breaks
<OPTION value="exploded pivot">exploded pivot
<OPTION value="free form">free form
<OPTION value="graph">graph
<OPTION value="multiple sections">multiple sections
<OPTION value="other">other
<OPTION value="pivot">pivot
<OPTION value="tabular">tabular
<OPTION value="tabular-multiple breaks">tabular-multiple breaks
<OPTION value="tabular-multiple breaks">tabular-multiple breaks
<OPTION value="tabular-multiple tabs">tabular-multiple tabs
</SELECT>
</td>
<td class="textleft">
<select name="cboSECUR" ID=cboSECUR style="width: 189px;font-size: 9px;">
<option>
<option value="ADW_1">ADW_1
<option value="ADW_2">ADW_2
<option value="ADW_3">ADW_3
<option value="ADW_4">ADW_4
</select><br>
Disastor recovery:<br>
<select name="cboDISREC" ID=cboDISREC style="width: 189px;font-size: 9px;">
<option>
<option value="High">High
<option value="Medium">Medium
<option value="Low">Low
<option value="Not Critical">Not Critical
</select></td>
<td class="textleft">
<select name="cboTIMEFRAM" ID=cboTIMEFRAM style="width: 189px;font-size: 9px;">
<option>
<option value="Prompt Driven">Prompt Driven
<option value="1 Week">1 Week
<option value="2 Weeks">2 Weeks
<option value="1 Month">1 Month
<option value="3 Months">3 Months
<option value="6 Months">6 Months
<option value="YTD">YTD
<option value="12 Months">12 Months
<option value="24 Months">24 Months
<option value="36 Months">36 Months
<option value="Other">Other
</select></td>
<tr>
<td class="HeaderRidgeTop" colspan="3"> </td>
</tr>
</tr>
</table>
</form>
<!-- -----BEGIN -- Tab2 content -- Application Scope -->
<table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab2Text">
<tr>
<td>
<form name="frmReportScope" method="post" action="ASPpageGoesHere?fu
nc=add" ID=frmScope>
<table>
<tr>
<td class="HeaderRidgeBottom" colspan="11" style="font-size: 12px;">Application Documentation Screen</td>
</tr>
<tr> <!-- --------------------------
----------
----------
----------
------ COVERAGE TYPES -------------------- -->
<td class="HeaderNoRidge" colspan="11">
Specify <b>Coverage Type(s)</b>
</td>
</tr>
<tr>
<td class=textright>All</td><t
d class="textleft"> <in
put class="clsCov" type="checkbox" name="chkCovTypALL" id="chkCovALL" onclick="AutoCheck(frmRepo
rtScope, this.className, this.checked)" value="Uncheck Checkbox" /></td>
<td class=textright> Medical</td><td class="textleft"> <in
put class="clsCov" type="checkbox" name="chkCovMedical" id="chkCovMedical" value="Uncheck Checkbox" /></td>
<td class=textright> Drug</td><td class="textleft"> <in
put class="clsCov" type="checkbox" name="chkCovDrug" id="chkCovDrug" value="Uncheck Checkbox" /></td>
<td class=textright>Dental</td
><td class="textleft"> <in
put class="clsCov" type="checkbox" name="chkCovDental" id="chkCovDental" value="Uncheck Checkbox" /></td>
<td class=textright>Vision</td
><td class="textleft"> <in
put class="clsCov" type="checkbox" name="chkCovVision" id="chkCovVision" value="Uncheck Checkbox" />
MedCarv<input class="clsCov" type="checkbox" name="chkCovMedCarv" id="chkCovMedCarv" value="Uncheck Checkbox" /></td>
</tr>
<tr>
<td class=textright>MedHMO</td
><td class="textleft"> <in
put class="clsCov" type="checkbox" name="chkCovMedHMO" id="chkCovMedHMO" value="Uncheck Checkbox" /></td>
<td class=textright>Mental</td
><td class="textleft"> <in
put class="clsCov" type="checkbox" name="chkCovMental" id="chkCovMental" value="Uncheck Checkbox" /></td>
<td class=textright>Medicare</
td><td class="textleft"> <in
put class="clsCov" type="checkbox" name="chkCovMedicare" id="chkCovMedicare" value="Uncheck Checkbox" /></td>
<td class=textright>MedSup</td
><td class="textleft"> <in
put class="clsCov" type="checkbox" name="chkCovMedSup" id="chkCovMedSup" value="Uncheck Checkbox" /></td>
<td class=textright>Other</td>
<td class="textleft" colspan="1" > <input class="clsCov" type="text" size="10" name="txtCovOther" id="txtCovOther" />
</tr>
<tr> <!-- --------------------------
----------
----------
----------
--- PROCESSING SYSTEMS ---------------------- -->
<td class="HeaderRidgeTop" colspan="11">
Specify <b>Processing System(s)</b>
</td>
</tr>
<tr>
<td class=textright>All</td><t
d class="textleft"> <in
put class="clsPro" type="checkbox" name="chkProSysAll" id="chkProSysAll" onclick="AutoCheck(frmRepo
rtScope, this.className, this.checked)" value="Uncheck Checkbox" /></td>
<td class=textright>FACETS</td
><td class="textleft"> <in
put class="clsPro" type="checkbox" name="chkProSysFACETS" id="chkProSysFACETS" value="Uncheck Checkbox" /></td>
<td class=textright>NASCO</td>
<td class="textleft"> <in
put class="clsPro" type="checkbox" name="chkProSysNASCO" id="chkProSysNASCO" value="Uncheck Checkbox" /></td>
<td class=textright>CPRO</td><
td class="textleft"> <in
put class="clsPro" type="checkbox" name="chkProSysCPRO" id="chkProSysCPRO" value="Uncheck Checkbox" /></td>
<td class=textright>PRO</td><t
d class="textleft"> <in
put class="clsPro" type="checkbox" name="chkProSysPRO" id="chkProSysPRO" value="Uncheck Checkbox" /></td>
</tr>
<tr>
<td class=textright>STEPS</td>
<td class="textleft"> <in
put class="clsPro" type="checkbox" name="chkGlBus" id="chkGlBus" value="Uncheck Checkbox" /></td>
<td class=textright>AMMS</td><
td class="textleft"> <in
put class="clsPro" type="checkbox" name="chkProSysAMMS" id="chkProSysAMMS" value="Uncheck Checkbox" /></td>
<td class=textright>ADD</td><t
d class="textleft"> <in
put class="clsPro" type="checkbox" name="chkProSysADD" id="chkProSysADD" value="Uncheck Checkbox" /></td>
<td class=textright>ACSC</td><
td class="textleft"> <in
put class="clsPro" type="checkbox" name="chkProSysACSC" id="chkProSysACSC" value="Uncheck Checkbox" /></td>
<td class=textright>Other</td>
<td class="textleft"> <in
put class="clsPro" type="text" size="10" name="chkProSysOther" id="chkProSysOther" />
</tr>
<tr> <!-- --------------------------
----------
----------
----------
- BLOCK OF BUSINESS ----------------- -->
<td class="HeaderRidgeTop" colspan="11">
Specify <b>Block of Business(s)</b>
</td>
</tr>
<tr> <!-- --------------------------
----------
------- GL BUSINESS UNIT --------------------------
--- -->
<td class="HeaderNoRidge" colspan="11"><b>GL Business Unit</b>------------------
----------
----------
----------
----------
----------
-------
</td>
</tr>
<tr>
<td class=textright>All</td>
<td class="textleft"> <in
put class="clsGlBus" type="checkbox" name="chkGlBusAll" id="chkGlBusAll" onclick="AutoCheck(frmRepo
rtScope, this.className, this.checked)" value="Uncheck Checkbox" /></td>
<td class=textright>AICI</td><
td class="textleft"> <in
put class="clsGlBus" type="checkbox" name="chkGlBusAICI" id="chkGlBusAICI" value="Uncheck Checkbox" /></td>
<td class=textright>CIC</td><t
d class="textleft"> <in
put class="clsGlBus" type="checkbox" name="chkGlBusCIC" id="chkGlBusCIC" value="Uncheck Checkbox" /></td>
<td class=textright>SGI</td><t
d class="textleft"> <in
put class="clsGlBus" type="checkbox" name="chkGlBusSGI" id="chkGlBusSGI" value="Uncheck Checkbox" /></td>
<td class=textright>SUMI</td><
td class="textleft"> <in
put class="clsGlBus" type="checkbox" name="chkGlBusSUMI" id="chkGlBusSUMI" value="Uncheck Checkbox" />
CO<input class="clsGlBus" type="checkbox" name="chkGlBusCO" id="chkGlBusCO" value="Uncheck Checkbox" /></td>
</tr>
<tr>
<td class=textright>CN</td><td
class="textleft"> <in
put class="clsGlBus" type="checkbox" name="chkGlBusCN" id="chkGlBusCN" value="Uncheck Checkbox" /></td>
<td class=textright>ME</td><td
class="textleft"> <in
put class="clsGlBus" type="checkbox" name="chkGlBusME" id="chkGlBusME" value="Uncheck Checkbox" /></td>
<td class=textright>NH</td><td
class="textleft"> <in
put class="clsGlBus" type="checkbox" name="chkGlBusNH" id="chkGlBusNH" value="Uncheck Checkbox" /></td>
<td class=textright>LIFE</td><
td class="textleft"> <in
put class="clsGlBus" type="checkbox" name="chkGlBusLIFE" id="chkGlBusLIFE" value="Uncheck Checkbox" /></td>
<td class=textright>Other</td>
<td class="textleft"> <in
put class="clsGlBus" type="text" size="10" name="txtGlBusOther" id="txtGlBusOther" />
</tr>
<tr> <!-- --------------------------
----------
- GL DIVISION UNIT --------------------------
------- -->
<td class="HeaderNoRidge" colspan="11"><b>GL Division Unit</b>------------------
----------
----------
----------
----------
----------
--------
</td>
</tr>
<tr>
<td class=textright>All</td><t
d class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivAll" id="chkGlDivAll" onclick="AutoCheck(frmRepo
rtScope, this.className, this.checked)" value="Uncheck Checkbox" /></td>
<td class=textright>LGGP</td><
td class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivLGGP" id="chkGlDivLGGP" value="Uncheck Checkbox" /></td>
<td class=textright>SMGP</td><
td class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivSMGP" id="chkGlDivSMGP" value="Uncheck Checkbox" /></td>
<td class=textright>AUTO</td><
td class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivAUTO" id="chkGlDivAUTO" value="Uncheck Checkbox" /></td>
<td class=textright>FEP</td><t
d class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivFEP" id="chkGlDivFEP" value="Uncheck Checkbox" /></td>
</tr>
<tr>
<td class=textright>CTRL</td><
td class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivCTRL" id="chkGlDivCTRL" value="Uncheck Checkbox" /></td>
<td class=textright>PAR</td><t
d class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivPAR" id="chkGlDivPAR" value="Uncheck Checkbox" /></td>
<td class=textright>MGCP</td><
td class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivMGCP" id="chkGlDivMGCP" value="Uncheck Checkbox" /></td>
<td class=textright>MCI</td><t
d class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivMCI" id="chkGlDivMCI" value="Uncheck Checkbox" /></td>
</tr>
<tr>
<td class=textright>BLUE</td><
td class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivBLUE" id="chkGlDivBLUE" value="Uncheck Checkbox" /></td>
<td class=textright>PERS</td><
td class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivPERS" id="chkGlDivPERS" value="Uncheck Checkbox" /></td>
<td class=textright>SENR</td><
td class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivSENR" id="chkGlDivSENR" value="Uncheck Checkbox" /></td>
<td class=textright>OTHR</td><
td class="textleft"> <in
put class="clsGlDiv" type="checkbox" name="chkGlDivOTHR" id="chkGlDivOTHR" value="Uncheck Checkbox" /></td>
<td class=textright>Other</td>
<td class="textleft"> <in
put type="text" size="10" name="txtGlDivOther" id="txtGlDivOther" />
</tr>
<tr> <!-- --------------------------
----------
- CUSTOMER FINANCIAL ------------------------ -->
<td class="HeaderNoRidge" colspan="11"><b>Customer Financial</b>-------------
----------
----------
----------
----------
----------
---------
</td>
</tr>
<tr>
<td class=textright>All</td>
<td class="textleft"> <in
put class="clsFIN" type="checkbox" name="chkCustFinAll" id="chkCustFinAll" onclick="AutoCheck(frmRepo
rtScope, this.className, this.checked)" value="Uncheck Checkbox" /></td>
<td class=textright>ASO</td><t
d class="textleft"> <in
put class="clsFIN" type="checkbox" name="chkCustFinASO" id="chkCustFinASO" value="Uncheck Checkbox" /></td>
<td class=textright>Full Ins</td><td class="textleft"> <in
put class="clsFIN" type="checkbox" name="CustFinFullIns" id="CustFinFullIns" value="Uncheck Checkbox" /></td>
<td class=textright>Alt Fund</td><td class="textleft"> <in
put class="clsFIN" type="checkbox" name="CustFinAltFund" id="CustFinAltFund" value="Uncheck Checkbox" /></td>
<td class=textright>Other</td>
<td class="textleft"> <in
put type="text" size="10" name="txtCustFinOther" id="txtCustFinOther" />
</tr>
<tr>
<td class="HeaderRidgeTop" colspan="11"> </td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<!-- ------ BEGIN -- Tab3 content for FIELDS -->
<table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab3Text">
<tr>
<td>
<!-- ------BEGIN -- XML Data Island for Tab3 FIELDS -->
<form name="frmFields" ID=Form1>
<xml id="apps">
<applications>
<application>
<TechName></TechName>
<FieldName></FieldName>
<Description></Description
>
<Example></Example>
<ObjectType></ObjectType>
<FieldFormat></FieldFormat
>
<Limitation></Limitation>
<Disp_Ord></Disp_Ord>
</application>
</applications>
</xml>
<!-- ------- END -- XML Data Island for Tab3 FIELDS -->
<!-- --------BEGIN -- Input fields -- Tab3 Application Fields -->
<table border="0" cellpadding="0" cellspacing="1">
<tr><td class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td><td><input type="hidden" name="txtID_FLD" ID=Text1/></td></tr>
<tr><td>Technical name:</td>
<td><select name="txtTechName" class="clsInputTextTechNam
e" type="text" ID="txtTechName" onchange="updateFields(thi
s.value);"
><option value=""></option>
<%
do until oRstADW_COL.eof
if ltrim(rtrim(oRstADW_COL.Fi
elds("mdo_
nm"))) = request.form("txtTechName"
) then
Response.Write("<option selected value='" & ltrim(rtrim(oRstADW_COL.Fi
elds("mdo_
id"))) & "'>" & ltrim(rtrim(oRstADW_COL.Fi
elds("mdo_
nm"))) & "</option>")
else
Response.Write("<option value='" & ltrim(rtrim(oRstADW_COL.Fi
elds("mdo_
id"))) & "'>" & ltrim(rtrim(oRstADW_COL.Fi
elds("mdo_
nm"))) & "</option>")
end if
oRstADW_COL.MoveNext
Loop
%>
</select>
</td><td> Other: 
;<input name="txtTechNameOther" class="clsInputTextOther" type="text" ID="txtTechNameOther" onKeyUp="javascript:test(t
his, txtTechName);" /></td></tr>
<tr><td>Field name:</td><td colspan="2"><input class="clsInputTextTab3" type="text" name="txtFieldName" ID=Text3/></td></tr>
<tr><td>Field Description:</td><td colspan="2"><input class="clsInputTextTab3" type="text" name="txtDescription" ID=Text4/></td></tr>
<tr><td>Example:</td><td colspan="2"><input class="clsInputTextTab3" type="text" name="txtExample" ID=Text5/></td></tr>
<tr><td>Object Type:</td>
<td>
<SELECT class=Style2 name="txtObjectType" ID=Select1>
<OPTION value=Detail selected>Detail</OPTION>
<OPTION value=Dimension>Dimension<
/OPTION>
<OPTION value=Measure>Measure</OPT
ION>
<OPTION value=Other>Other</OPTION>
</SELECT>
</td>
<td> Field format:
<SELECT class=Style1 name="txtFieldFormat" ID=Select2>
<OPTION value=Autonumber selected>Autonumber</OPTIO
N>
<OPTION value=Binary>Binary</OPTIO
N>
<OPTION value=Character>Character<
/OPTION>
<OPTION value="Currency ">Currency</OPTION>
<OPTION value=Date>Date</OPTION>
</SELECT>
</td></tr>
<tr><td>Limitation:</td><t
d colspan="2"><input class="clsInputTextTab3" type="text" name="txtLimitation" ID=Text11/></td></tr>
<tr><td>Field Display Order: </td><td><inpu
t class=Style1 style="width:50px;" type="text" name="txtFieldDispOrd" ID=Text12/></td></tr>
<tr><td colspan="3" class="HeaderRidgeTop">
<input class="clsButton" type="button" name="btnAdd" value=" Add" onClick="javascript:addVal
uesFLDS();
" ID=Button2/>
<input class="clsButton" type="button" name="btnUpdate" value=" Update" onClick="javascript:update
ValuesFLDS
();" ID=Button1/>
<input class="clsButton" type="button" name="btnDelete" value=" Delete" onClick="javascript:delete
Node(oRoot
, 'FLDS', document.all.item('txtID_F
LD').value
);" ID=Button3/>
<input class="clsButton" type="button" name="btnClear" value=" Clear" onClick="javascript:clearF
ormFLDS();
" ID=Button4/>
</td></tr>
</table>
<!-- -----------END -- Input fields -- Tab3 Application Fields -->
<!-- ----------BEGIN -- Listview table, for Tab3 Application Fields -->
<div style="overflow:auto; height:100px; width:600px">
<table border="0" cellpadding="0" cellspacing="1" datasrc="#apps" style="width:600px">
<thead style="color:#ffffff; padding:3px 0px 3px 0px; text-align:left;font-famil
y: verdana;font-size: 10px;">
<tr style="position:relative; top:-1px; background-color:#000000">
<th>TechName</th>
<th>FieldName</th>
<th>Description</th>
<th>Example</th>
<th>ObjectType</th>
<th>FieldFormat</th>
<th>Limitation</th>
<th>Disp_Ord</th>
</tr>
</thead>
<tbody style="background-color:#F
FFFFF">
<tr onClick="javascript:getVal
uesFLDS(th
is);" style="cursor:hand" onMouseOver="javascript:th
is.style.b
ackgroundC
olor='#CCC
CCC'" onMouseOut="javascript:thi
s.style.ba
ckgroundCo
lor='#ffff
ff'">
<td><span datafld="TechName"></span>
</td>
<td><span datafld="FieldName"></span
></td>
<td><span datafld="Description"></sp
an></td>
<td><span datafld="Example"></span><
/td>
<td><span datafld="ObjectType"></spa
n></td>
<td><span datafld="FieldFormat"></sp
an></td>
<td><span datafld="Limitation"></spa
n></td>
<td><span datafld="Disp_Ord"></span>
</td>
</tr>
</tbody>
</table>
</div>
<p/>
</td></tr></table></form>
<iframe name=I1 id=I1 src=blank.htm style="display:none;" ></iframe>
<!-- --------END -- Listview table, for Tab3 Application Fields -->
<!-- ------ END -- Tab3 content -->
<!-- ------- BEGIN -- Tab4 content for PROMPTS -->
<table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab4Text">
<tr>
<td>
<form name="frmPrompts" ID=Form4>
<!-- ------- BEGIN -- XML Data Island for PROMPTS -->
<xml id="appsPRMPT">
<applications>
<application>
<TechPrompt></TechPrompt>
<PromptVerbiage></PromptVe
rbiage>
<PromptNotes ></PromptNotes>
<PromptFormat></PromptForm
at>
<PromptType></PromptType>
<Disp_Ord></Disp_Ord>
</application>
</applications>
</xml>
<!-- --------- END -- XML Data Island for PROMPTS -->
<!-- ----------BEGIN -- Input fields -- Tab4 Application Prompts -->
<table border="0" >
<tr><td class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td><td><input type="hidden" name="txtID_PRMPT" ID=Hidden1/></td></tr>
<tr><td>Tech prompt name: </td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtTechPrompt" ID=Text6/></td></tr>
<tr><td>Prompt verbiage:</td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtPromptVerbiage" ID=Text7/></td></tr>
<tr><td>Prompt notes:</td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtPromptNotes" ID=Text8/></td></tr>
<tr><td>Prompt format:</td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtPromptFormat" ID=Text9/></td></tr>
<tr>
<td>Prompt Type:</td>
<td>
<SELECT class=Style1 style="width:145px;" name="txtPromptType" ID=Select3>
<OPTION value=Fill_In selected>Fill In</OPTION>
<OPTION value=Pick_Lists_One_Value
>Pick List: One Value</OPTION>
<OPTION value=Pick_List_Multiple_V
alues>Pick
List: Multiple Value</OPTION>
<OPTION value=Other>Other</OPTION>
</select>
</td>
<td> Prompt Display Order: <input class=Style1 style="width:50px;" type="text" name="txtPromptDispOrd" ID=Text10/></td>
</tr>
<tr><td colspan="3" class="HeaderRidgeTop">
<input class="clsButton" type="button" name="btnAdd" value=" Add" onClick="javascript:addVal
uesPRMPT()
;" ID=Button5/>
<input class="clsButton" type="button" name="btnUpdate" value=" Update" onClick="javascript:update
ValuesPRMP
T();" ID=Button6/>
<input class="clsButton" type="button" name="btnDelete" value=" Delete" onClick="javascript:delete
Node(oRoot
2, 'PRMPT', document.all.item('txtID_P
RMPT').val
ue);" ID=Button7/>
<input class="clsButton" type="button" name="btnClear" value=" Clear" onClick="javascript:clearF
ormPRMPT()
;" ID=Button8/>
</td></tr>
</table>
<!-- ---------END -- Input fields -- Tab4 Application Prompts -->
<!-- ---------BEGIN -- Listview table, for Tab4 Application Prompts -->
<div style="overflow:auto; height:100px; width:600px">
<table border="0" cellpadding="0" cellspacing="1" datasrc="#appsPRMPT" style="width:600px">
<thead style="color:#ffffff; padding:3px 0px 3px 0px; text-align:left;font-famil
y: verdana;font-size: 10px;">
<tr style="position:relative; top:-1px; background-color:#000000">
<th>TechPrompt</th>
<th>PromptVerbiage</th>
<th>PromptNotes</th>
<th>PromptFormat</th>
<th>PromptType</th>
<th>Disp_Ord</th>
</tr>
</thead>
<tbody style="background-color:#F
FFFFF;">
<tr onClick="javascript:getVal
uesPRMPT(t
his);" style="cursor:hand; " onMouseOver="javascript:th
is.style.b
ackgroundC
olor='#CCC
CCC'" onMouseOut="javascript:thi
s.style.ba
ckgroundCo
lor='#ffff
ff'">
<td><span datafld="TechPrompt"></spa
n></td>
<td><span datafld="PromptVerbiage"><
/span></td
>
<td><span datafld="PromptNotes"></sp
an></td>
<td><span datafld="PromptFormat"></s
pan></td>
<td><span datafld="PromptType"></spa
n></td>
<td><span datafld="Disp_Ord"></span>
</td>
</tr>
</tbody>
</table>
</div>
<p/>
</td></tr></table>
</form>
<!-- ----------END -- Listview table, for Tab4 Application Prompts -->
<!-- ---------- END -- Tab4 content -->
<!-- ------- BEGIN -- Tab5 content for Recipients -->
<table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab5Text">
<tr>
<td>
<form name="frmRecipient" ID=frmRecipient
<!-- ------- BEGIN -- XML Data Island for Recipents -->
<xml id="appsRECIP">
<applications>
<application>
<Recipient></Recipient>
<Intern_Extern_Ind></Inter
n_Extern_I
nd>
<Frequency></Frequency>
</application>
</applications>
</xml>
<!-- --------- END -- XML Data Island for Recipients -->
<!-- ----------BEGIN -- Input fields -- Tab5 Application Recipients -->
<table border="0" >
<tr><td class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td><td><input type="hidden" name="txtID_RECIP" ID=txtID_RECIP/></td></tr>
<tr><td>Application recipient: </td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtRecip" ID=Text13/></td></tr>
<tr><td>Dept., Intern/Extern Indicator: </td>
<td>
<SELECT class=Style1 name="txtIntExtInd" ID=txtIntExtInd>
<OPTION value=Internal selected>Internal</OPTION>
<OPTION value=External>External</O
PTION>
<OPTION value=Departmental>Departm
ental</OPT
ION>
<OPTION value=Other>Other</OPTION>
</SELECT>
</td>
<td> Frequency:
<SELECT class=Style1 name="txtFreq" ID=txtFreq>
<OPTION value=Once selected>Once</OPTION>
<OPTION value=On_Demand>On Demand</OPTION>
<OPTION value=Weekly>Weekly</OPTIO
N>
<OPTION value="Monthly ">Monthly</OPTION>
<OPTION value=Quarterly>Quarterly<
/OPTION>
<OPTION value="Semi-annual ">Semi-annual</OPTION>
<OPTION value=Annual>Annual</OPTIO
N>
<OPTION value=Other>Other</OPTION>
</SELECT>
</td></tr>
<tr><td colspan="3" class="HeaderRidgeTop">
<input class="clsButton" type="button" name="btnAdd" value=" Add" onClick="javascript:addVal
uesRECIP()
;" ID=Button9/>
<input class="clsButton" type="button" name="btnUpdate" value=" Update" onClick="javascript:update
ValuesRECI
P();" ID=Button10/>
<input class="clsButton" type="button" name="btnDelete" value=" Delete" onClick="javascript:delete
Node(oRoot
3, 'RECIP', document.all.item('txtID_R
ECIP').val
ue);" ID=Button10/>
<input class="clsButton" type="button" name="btnClear" value=" Clear" onClick="javascript:clearF
ormRECIP()
;" ID=Button10/>
</td></tr>
</table>
<!-- ---------END -- Input fields -- Tab5 Application Recipients -->
<!-- ---------BEGIN -- Listview table, for Tab5 Application Recipients -->
<div style="overflow:auto; height:100px; width:600px">
<table border="0" cellpadding="0" cellspacing="1" datasrc="#appsRECIP" style="width:600px">
<thead style="color:#ffffff; padding:3px 0px 3px 0px; text-align:left;font-famil
y: verdana;font-size: 10px;">
<tr style="position:relative; top:-1px; background-color:#000000">
<th>Recipient</th>
<th>Intern_Extern_Ind</th>
<th>Frequency</th>
</tr>
</thead>
<tbody style="background-color:#F
FFFFF;">
<tr onClick="javascript:getVal
uesRECIP(t
his);" style="cursor:hand; " onMouseOver="javascript:th
is.style.b
ackgroundC
olor='#CCC
CCC'" onMouseOut="javascript:thi
s.style.ba
ckgroundCo
lor='#ffff
ff'">
<td><span datafld="Recipient"></span
></td>
<td><span datafld="Intern_Extern_Ind
"></span><
/td>
<td><span datafld="Frequency"></span
></td>
</tr>
</tbody>
</table>
</div>
<p/>
</td></tr></table>
</form>
<!-- ----------END -- Listview table, for Tab5 Application Recipients -->
<!-- ---------- END -- Tab5 content -->
<!-- ---------- BEGIN -- Tab6 content for Additional Info -->
<table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab6Text">
<tr>
<td>
<form name="frmAddInfo" ID=frmAddInfot>
<!-- ------- BEGIN -- XML Data Island for Tab6 Additional Info -->
<xml id="appsAddInfo">
<applications>
<application>
<AddInfo></AddInfo>
<Add_Info_Applies_To></Add
_Info_Appl
ies_To>
<Disp_Ord></Disp_Ord>
</application>
</applications>
</xml>
<!-- --------- END -- XML Data Island for Tab6 Additional Info -->
<!-- ----------BEGIN -- Input fields -- Tab6 Additional Info -->
<table border="0" >
<tr><td class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td><td><input type="hidden" name="txtID_AddInfo" ID=Hidden2/></td></tr>
<tr><td>Additional information: </td><td
colspan="2"><input class="clsInputTextTab4" type="text" name="txtAddInfo" ID=Text14/></td></tr>
<tr><td>Add info applies to: </td>
<td>
<SELECT class=Style1 name="txtAddInfoApplies" ID=Select4 >
</SELECT>
</td>
<td> Field display Order: <input class=Style1 style="width:50px;" type="text" name="txtFLDDispOrd" ID=Text15/></td>
</tr>
<tr><td colspan="3" class="HeaderRidgeTop">
<input class="clsButton" type="button" name="btnAdd" value=" Add" onClick="javascript:addVal
uesAddInfo
();" ID=Button11/>
<input class="clsButton" type="button" name="btnUpdate" value=" Update" onClick="javascript:update
ValuesAddI
nfo();" ID=Button11/>
<input class="clsButton" type="button" name="btnDelete" value=" Delete" onClick="javascript:delete
Node(oRoot
4, 'AddInfo', document.all.item('txtID_A
ddInfo').v
alue);" ID=Button12/>
<input class="clsButton" type="button" name="btnClear" value=" Clear" onClick="javascript:clearF
ormAddInfo
();" ID=Button13/>
</td></tr>
</table>
<!-- ---------END -- Input fields -- for Tab6 Additional Info -->
<!-- ---------BEGIN -- Listview table, for Tab6 Additional Information -->
<div style="overflow:auto; height:100px; width:600px">
<table border="0" cellpadding="0" cellspacing="1" datasrc="#appsAddInfo" style="width:600px">
<thead style="color:#ffffff; padding:3px 0px 3px 0px; text-align:left;font-famil
y: verdana;font-size: 10px;">
<tr style="position:relative; top:-1px; background-color:#000000">
<th>AddInfo</th>
<th>Add_Info_Applies_To</t
h>
<th>Disp_Ord</th>
</tr>
</thead>
<tbody style="background-color:#F
FFFFF;">
<tr onClick="javascript:getVal
uesAddInfo
(this);" style="cursor:hand; " onMouseOver="javascript:th
is.style.b
ackgroundC
olor='#CCC
CCC'" onMouseOut="javascript:thi
s.style.ba
ckgroundCo
lor='#ffff
ff'">
<td><span datafld="AddInfo"></span><
/td>
<td><span datafld="Add_Info_Applies_
To"></span
></td>
<td><span datafld="Disp_Ord"></span>
</td>
</tr>
</tbody>
</table>
</div>
<p/>
</td></tr></table>
</form>
<!-- --------- END -- Tab6 content for Additional Info -->
</body>
<script language="javascript">
/* ***Start script for tabbed control **** */
function setDefaults() {
var cls = ['.clsActiveTab','.clsTab'
,'.clsTabS
pacer'];
for(i=0; i<document.styleSheets['pa
geStyle'].
rules.leng
th; i++) {
for(x=0; x<cls.length; x++) {
if(document.styleSheets['p
ageStyle']
.rules[i].
selectorTe
xt == cls[x]) {
document.styleSheets['page
Style'].ru
les[i].sty
le.borderC
olor = 'black';
}
}
}
//document.styleSheets['pa
geStyle'].
rules[0].s
tyle.borde
rColor = 'red';
//document.styleSheets['pa
geStyle'].
rules[1].s
tyle.borde
rColor = 'red';
//document.styleSheets['pa
geStyle'].
rules[2].s
tyle.borde
rColor = 'red';
//for(i in document.styleSheets['page
Style'].ru
les[2])
// alert(i + ": " + document.styleSheets['page
Style'].ru
les[2][i])
;
}
function changeTabs(activeTab, activeText) {
var parent = activeTab.parentNode;
for(i=1; i<parent.childNodes.length
; i++) {
if(parent.childNodes[i].cl
assName!='
clsTabSpac
er') {
parent.childNodes[i].class
Name = 'clsTab';
}
}
activeTab.className = 'clsActiveTab'; // This causes the active tab to be displayed by changing the class. Non active tabs have a class of ".clsText {display:none}."
Tab1Text.className = 'clsText';
Tab2Text.className = 'clsText';
Tab3Text.className = 'clsText';
Tab4Text.className = 'clsText';
Tab5Text.className = 'clsText';
Tab6Text.className = 'clsText';
activeText.className = '';
popAddInfoAppliesTo();
}
/* *** End script for tabbed control **** */
</script>
</html>
<%
oRst.Close
Set oRst = Nothing
oRstAppOwnr.Close
Set oRstAppOwnr = Nothing
oRstAppContact.Close
Set oRstAppContact = Nothing
oRstSBJA.Close
Set oRstSBJA = Nothing
oRstDATASRC.Close
Set oRstDATASRC = Nothing
oRstBUSFCT.Close
Set oRstBUSFCT = Nothing
oRstPRGTOOL.Close
Set oRstPRGTOOL = Nothing
oRstADW_COL.Close
Set oRstADW_COL = Nothing
oCon.Close
Set oCon = Nothing
%>