Our Senior Developer wrote this for our billing system. It's it sometimes gives bad data. Is the code up to par?
It's writes out data like this:
100|12345|MED|A|*|PF|3|1,188.00|623.00|565.00|2019-02-01|2019-02-28 100|12345|DEN|A|*|PF|3|40.00|21.00|19.00|2019-02-01|2019-02-28 100|12345|VIS|A|*|OF|3|9.00|4.00|5.00|2019-02-01|2019-02-28 100|12345|BLIF|A|*|P|1|4.00|0.00|4.00|2019-02-01|2019-02-28
SELECT CASE request.form("stype")
CASE 1
co_access_log "Univ TEST DMF Creation : " & request.form("sFileName"),8,0,0'***Passes page specific info to co log db
CASE 2
co_access_log "Univ FINAL DMF Creation : " & request.form("sFileName"),8,0,0'***Passes page specific info to co log db
END SELECT
'*** Format gpa_access_log objDesc,objType,objForm,objfkLogin
'***End Authentcation
Sub run_process()
Dim intRecCount
Dim intRecCountUuniv
Dim intRecCountLen
Dim intRecCountLenUuniv
Dim strHeader
Dim strDetail
Dim strDetailUuniv
Dim strTrailer
Dim strTrailerUuniv
Dim strFolder
Dim fso, f1, f2, ts, x, xx
Dim objData
Dim strSQL
Dim objRst
Dim strSQL2
Dim objRst2
Dim strSQL3
Dim objRst3
Dim strSQL4
Dim objRst4
Dim medCnt
Dim denCnt
Dim visCnt
Dim lifCnt
Dim medType
Dim denType
Dim medHMOPrem
Dim medPPOPrem
Dim denHMOPrem
Dim denPPOPrem
Dim vision
Dim inZone
Dim Zip
Dim BDType
Dim BDPC
Dim BDCov
'**** 7 value below must be updated for New Plan Years
Dim OPBaseMedSing : OPBaseMedSing = 280
Dim OPBaseMedPlus : OPBaseMedPlus = 1206
Dim OPBaseMedFam : OPBaseMedFam = 2184
Dim OPBaseDentSing : OPBaseDentSing = 19
Dim OPBaseDentPlus : OPBaseDentPlus = 60
Dim OPBaseDentFam : OPBaseDentFam = 103
Dim intRateID : intRateID = 10
'*** First Check to see if there are any altered premiums lingering from the last DMF (gp_pd_status = x)
'*** Prevent process if x exists
Set objData = Server.CreateObject("Ocean.cADOWrapper")
objData.Connect
strSQL = "SELECT ID_Number, First_name, Last_name FROM dbschema.UunivEnrollMain08 WHERE gp_pd_status = 'x'"
If objData.GetRS(strSQL, objRst) Then
If Not objRst.EOF Then
Response.Write "At least 1 record has a previously submitted altered premium.<br /> Here is a list of Uuniv ID and Names of people who have the ""x"" value.<br /><br />"
Do While Not objRst.EOF
Response.Write objRst("ID_Number") & " " & objRst("First_name") & " " & objRst("Last_name") & "<br />"
objRst.MoveNext
Loop
Set objData = Nothing
Response.End()
End If
End If
Const ForWriting = 2
'--------Header Record---------
intRecCount = 1
'Record Type
strHeader = "000"
'Filler 7 char
strHeader = strHeader & " "
'Creation Date
strHeader = strHeader & year(date())
If len(month(date())) > 1 then
strHeader = strHeader & month(date())
Else
strHeader = strHeader & 0 & month(date())
End If
If len(day(date())) > 1 then
strHeader = strHeader & day(date())
Else
strHeader = strHeader & 0 & day(date())
End If
'Filler 1 char
strHeader = strHeader & " "
'temp
strHeader = strHeader & Request.Form("effDate")
strHeader = strHeader & " "
strHeader = strHeader & vbcrlf
If request.form("stype") = 2 Then
'*******************************************
'***Full DMF Record for Uuniv Personnel*****
'*******************************************
Set objData = Server.CreateObject("Ocean.cADOWrapper")
objData.Connect
'all active pd's
strSQL = "SELECT distinct ID_Number, Zip, ISNULL(terminated,'N') AS terminated, ISNULL(alter_prem,'N') AS alter_prem, ISNULL(alter_who_pays,'P') AS alter_who_pays, ISNULL(redtozero,'N') AS redtozero, ISNULL(who_pays_p,'N') AS pchange FROM dbschema.UunivEnrollMain08 bl join dbo.wd_test__source20181116 bm on bm.[Column 0] = bl.ID_Number order by ID_Number"
'For single ID Testing 10039134
strSQL2 = "SELECT *, isnull(vision,0) as vision FROM dbschema.UunivRates WHERE rateID = " & intRateID
If objData.GetRS(strSQL2, objRst2) Then
medHMOPrem = objRst2("medhmo")
medPPOPrem = objRst2("medppo")
denHMOPrem = objRst2("denhmo")
denPPOPrem = objRst2("denppo")
vision = objRst2("vision")
End If
If objData.GetRS(strSQL, objRst) Then
If Not objRst.EOF Then
Do While Not objRst.EOF
strSQL2 = "SELECT TOP 1 isnull(pdMedPrem,0) AS pdMedPrem, isnull(pdDentPrem,0) AS pdDentPrem, isnull(pdVisPrem,0) AS pdVisPrem, isnull(pdLifePrem,0) AS pdLifePrem, isnull(univMedPrem,0) AS univMedPrem, isnull(univDentPrem,0) AS univDentPrem, isnull(univVisPrem,0) AS univVisPrem, isnull(univLifePrem,0) AS univLifePrem, Enroll_dp, self_med, self_dent, self_vis, dp_med, dp_dent, dp_vis, child1_med, child1_dent, child1_vis, child2_med, child2_dent, child2_vis, First_name_dp, Enroll_child1, First_name_child1, Enroll_child2, First_name_child2, isnull(Enroll_med,'none') AS Enroll_med, isnull(Enroll_dent,'none') AS Enroll_dent, Dent_PPO_NJ, med_bup, den_bup FROM dbschema.UunivCoverage08 WHERE univ_ID = " & objRst("ID_Number") & " ORDER BY intID DESC"
'response.Write strSQL2
If objData.GetRS(strSQL2, objRst2) Then
strSQL3 = "SELECT Zip FROM dbschema.UunivZips10 WHERE Zip = " & objRst("Zip")
If objData.GetRS(strSQL3, objRst3) Then
If not objRst3.EOF Then
inZone = "Y"
Else
inZone = "N"
End If
End If
If trim(objRst2("Enroll_med")) = "HMO_E" Then
medType = "HMO"
ElseIf trim(objRst2("Enroll_med")) = "PPO_E" Then
medType = "PPO"
Else
medType = "none"
End If
If trim(objRst2("Enroll_dent")) = "DMO_E" Then
denType = "HMO"
ElseIf trim(objRst2("Enroll_dent")) = "DPPO_E" Then
denType = "PPO"
Else
denType = "none"
End If
For xx = 1 to 4
'Item # 3 char
strDetailUuniv = strDetailUuniv & 100 & "|"
'univ ID 8 char
strDetailUuniv = strDetailUuniv & objRst("ID_Number") & "|"
'Deduction Code 6 char
Select Case xx
Case 1
strDetailUuniv = strDetailUuniv & "MED|"
Case 2
strDetailUuniv = strDetailUuniv & "DEN|"
Case 3
strDetailUuniv = strDetailUuniv & "VIS|"
Case 4
strDetailUuniv = strDetailUuniv & "BLIF|"
End Select
'Deduction Type 1 char
strDetailUuniv = strDetailUuniv & "A|"
'Deduction Amount 8 char
Select Case xx
Case 1 'MED
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" and objRst2("pdMedPrem") < .001 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("pdMedPrem") < .001 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
strDetailUuniv = strDetailUuniv & replace(formatcurrency(objRst2("pdMedPrem"),2),"$","") & "|"
End If
Case 2 'DEN
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" and objRst2("pdDentPrem") < .001 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("pdDentPrem") < .001 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
strDetailUuniv = strDetailUuniv & replace(formatcurrency(objRst2("pdDentPrem"),2),"$","") & "|"
End If
Case 3 'VIS
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" and objRst2("pdVisPrem") < .001 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("pdVisPrem") < .001 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
strDetailUuniv = strDetailUuniv & replace(formatcurrency(objRst2("pdVisPrem"),2),"$","") & "|"
End If
Case 4 'BLIF
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" and objRst2("pdLifePrem") < .001 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
strDetailUuniv = strDetailUuniv & replace(formatcurrency(objRst2("pdLifePrem"),2),"$","") & "|"
End If
End Select
'Filler 22 char
strDetailUuniv = strDetailUuniv & " "
'Plan Code 10 char
Select Case xx
Case 1
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univMedPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("med_bup") = "Y" Then
strDetailUuniv = strDetailUuniv & "OB|"
ElseIf objRst2("univMedPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("pdMedPrem") = OPBaseMedSing Or objRst2("pdMedPrem") = OPBaseMedSing*2 Or objRst2("pdMedPrem") = OPBaseMedSing*3 Or objRst2("pdMedPrem") = OPBaseMedSing*4 Or objRst2("pdMedPrem") = OPBaseMedPlus Or objRst2("pdMedPrem") = OPBaseMedPlus*2 Or objRst2("pdMedPrem") = OPBaseMedPlus*3 Or objRst2("pdMedPrem") = OPBaseMedPlus*4 Or objRst2("pdMedPrem") = OPBaseMedFam Or objRst2("pdMedPrem") = OPBaseMedFam*2 Or objRst2("pdMedPrem") = OPBaseMedFam*3 Or objRst2("pdMedPrem") = OPBaseMedFam*4 Then
strDetailUuniv = strDetailUuniv & "OP|"
Else
If medType = "none" Then 'Added 4/19/2016
strDetailUuniv = strDetailUuniv & "MED-PLAN-NOT-SELECTED|"
ElseIf medType = "HMO" Then
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P|" Then
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
ElseIf objRst("alter_who_pays") = "PF" Then
strDetailUuniv = strDetailUuniv & "PF|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
Else
If objRst2("pdMedPrem") = 0 Then
If objRst2("univMedPrem") > medHMOPrem Then
strDetailUuniv = strDetailUuniv & "PF|"
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
End If
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
End If
End if
Else
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "O*|"
Else
strDetailUuniv = strDetailUuniv & "O|"
End If
Else
strDetailUuniv = strDetailUuniv & "OF|"
End If
Else
If objRst2("pdMedPrem") = 0 Then
'If objRst2("univMedPrem") > medPPOPrem Then
If inZone = "Y" Then
strDetailUuniv = strDetailUuniv & "OF|"
ElseIf objRst("alter_who_pays") = "PF" Then
strDetailUuniv = strDetailUuniv & "OF|"
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "O*|"
Else
strDetailUuniv = strDetailUuniv & "O|"
End If
End If
'Else
' strDetailUuniv = strDetailUuniv & "woofO "
'End If
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "O*|"
Else
strDetailUuniv = strDetailUuniv & "O|"
End If
End If
End If
End If
End If
Case 2
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univDentPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("den_bup") = "Y" Then
strDetailUuniv = strDetailUuniv & "OB|"
ElseIf objRst2("univDentPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
If denType = "none" Then 'Added 4/19/2016
strDetailUuniv = strDetailUuniv & "DEN-PLAN-NOT-SELECTED|"
ElseIf denType = "HMO" Then
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
ElseIf objRst("alter_who_pays") = "PF" Then
strDetailUuniv = strDetailUuniv & "PF|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
Else
If objRst2("pdDentPrem") = 0 Then
If objRst2("univDentPrem") > denHMOPrem Then
strDetailUuniv = strDetailUuniv & "PF|"
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
End If
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
End If
End If
Else
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "O*|"
Else
strDetailUuniv = strDetailUuniv & "O|"
End If
Else
strDetailUuniv = strDetailUuniv & "OF|"
End If
Else
If objRst2("pdDentPrem") = 0 Then
'If objRst2("univDentPrem") > denPPOPrem Then
strDetailUuniv = strDetailUuniv & "OF|"
'Else
' strDetailUuniv = strDetailUuniv & "O "
'End If
Else
If objRst2("pdDentPrem") = OPBaseDentSing Or objRst2("pdDentPrem") = OPBaseDentSing*2 Or objRst2("pdDentPrem") = OPBaseDentSing*3 Or objRst2("pdDentPrem") = OPBaseDentSing*4 Or objRst2("pdDentPrem") = OPBaseDentPlus Or objRst2("pdDentPrem") = OPBaseDentPlus*2 Or objRst2("pdDentPrem") = OPBaseDentPlus*3 Or objRst2("pdDentPrem") = OPBaseDentPlus*4 Or objRst2("pdDentPrem") = OPBaseDentFam Or objRst2("pdDentPrem") = OPBaseDentFam*2 Or objRst2("pdDentPrem") = OPBaseDentFam*3 Or objRst2("pdDentPrem") = OPBaseDentFam*4 Then
strDetailUuniv = strDetailUuniv & "OP|"
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "O*|"
Else
strDetailUuniv = strDetailUuniv & "O|"
End If
End If
End If
End If
End If
End If
Case 3
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univVisPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("univVisPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
'If medType = "HMO" Then
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "O*|"
Else
strDetailUuniv = strDetailUuniv & "O|"
End If
Else
strDetailUuniv = strDetailUuniv & "OF|"
End If
Else
If objRst2("pdVisPrem") = 0 Then
If objRst2("univVisPrem") > vision Then
strDetailUuniv = strDetailUuniv & "OF|"
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "O*|"
Else
strDetailUuniv = strDetailUuniv & "O|"
End If
End If
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "O*|"
Else
strDetailUuniv = strDetailUuniv & "O|"
End If
End If
End If
End If
Case 4
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univLifePrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
If medType = "HMO" Then
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
Else
strDetailUuniv = strDetailUuniv & "PF|"
End If
Else
If objRst2("pdMedPrem") = 0 Then
If objRst2("univMedPrem") > medHMOPrem Then
strDetailUuniv = strDetailUuniv & "PF|"
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
End If
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
End If
Else
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
Else
strDetailUuniv = strDetailUuniv & "PF|"
End If
Else
If objRst2("pdMedPrem") = 0 Then
If objRst2("univMedPrem") > medPPOPrem Then
strDetailUuniv = strDetailUuniv & "PF|"
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
End If
Else
If objRst("pchange") = "Y" Then
strDetailUuniv = strDetailUuniv & "P*|"
Else
strDetailUuniv = strDetailUuniv & "P|"
End If
End If
End If
End If
End If
End Select
'Coverage Code 10 char
medCnt = 1
denCnt = 1
visCnt = 1
lifCnt = 1
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
Else
Select Case xx
Case 1
If objRst("redtozero") = "Y" AND objRst2("univMedPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("univMedPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
if objRst2("dp_med") = "Y" Then medCnt = medCnt + 1
if objRst2("child1_med") = "Y" Then medCnt = medCnt + 1
if objRst2("child2_med") = "Y" Then medCnt = medCnt + 1
Select Case medCnt
Case 1
strDetailUuniv = strDetailUuniv & "1|"
Case 2
strDetailUuniv = strDetailUuniv & "3|"
Case Else
strDetailUuniv = strDetailUuniv & "4|"
End Select
End If
Case 2
If objRst("redtozero") = "Y" AND objRst2("univDentPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("univDentPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
if objRst2("dp_dent") = "Y" Then denCnt = denCnt + 1
if objRst2("child1_dent") = "Y" Then denCnt = denCnt + 1
if objRst2("child2_dent") = "Y" Then denCnt = denCnt + 1
Select Case denCnt
Case 1
strDetailUuniv = strDetailUuniv & "1|"
Case 2
strDetailUuniv = strDetailUuniv & "3|"
Case Else
strDetailUuniv = strDetailUuniv & "4|"
End Select
End If
Case 3
If objRst("redtozero") = "Y" AND objRst2("univVisPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("univVisPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
if objRst2("dp_vis") = "Y" Then visCnt = visCnt + 1
if objRst2("child1_vis") = "Y" Then visCnt = visCnt + 1
if objRst2("child2_vis") = "Y" Then visCnt = visCnt + 1
Select Case visCnt
Case 1
strDetailUuniv = strDetailUuniv & "1|"
Case 2
strDetailUuniv = strDetailUuniv & "3|"
Case Else
strDetailUuniv = strDetailUuniv & "4|"
End Select
End If
Case 4
If objRst("redtozero") = "Y" AND objRst2("univLifePrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
strDetailUuniv = strDetailUuniv & "1|"
End If
End Select
End If
'Employer Contribution 10 char
Select Case xx
Case 1 'MED
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univMedPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("univMedPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
strDetailUuniv = strDetailUuniv & replace(formatcurrency(objRst2("univMedPrem"),2),"$","") & "|"
End If
Case 2 'DEN
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univDentPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("univDentPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
strDetailUuniv = strDetailUuniv & replace(formatcurrency(objRst2("univDentPrem"),2),"$","") & "|"
End If
Case 3 'VIS
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univVisPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst2("univVisPrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
strDetailUuniv = strDetailUuniv & replace(formatcurrency(objRst2("univVisPrem"),2),"$","") & "|"
End If
Case 4 'BLIF
If objRst("terminated") = "Y" Then
strDetailUuniv = strDetailUuniv & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univLifePrem") < .1 Then
strDetailUuniv = strDetailUuniv & "*|"
Else
strDetailUuniv = strDetailUuniv & replace(formatcurrency(objRst2("univLifePrem"),2),"$","") & "|"
End If
End Select
'Dept Charge
strDetailUuniv = strDetailUuniv & 0 & "|"
'Grant Charge
strDetailUuniv = strDetailUuniv & 0 & "|"
'Effective Date
strDetailUuniv = strDetailUuniv & Request.Form("effDate") & "|"
'Today's Date
strDetailUuniv = strDetailUuniv & year(date()) & "-" & month(date()) & "-" & day(date())
strDetailUuniv = strDetailUuniv & vbcrlf
intRecCountUuniv = intRecCountUuniv + 1
Next
End If
inZone = "N"
objRst.MoveNext
Loop
End If
Else
response.Write "trouble"
End if
Set objRst3 = nothing
Set objRst2 = nothing
Set objRst = nothing
Set objData = nothing
End If
Set objData = Server.CreateObject("Ocean.cADOWrapper")
objData.Connect
'Normal list of those that qualify
strSQL = "SELECT ID_Number, Zip, ISNULL(terminated,'N') AS terminated, ISNULL(alter_prem,'N') AS alter_prem, ISNULL(alter_who_pays,'P') AS alter_who_pays, ISNULL(redtozero,'N') AS redtozero, ISNULL(who_pays_p,'N') AS pchange FROM dbschema.UunivEnrollMain08 WHERE gp_pd_status = 'a' or gp_pd_status = 'y'"
strSQL2 = "SELECT * FROM dbschema.UunivRates WHERE rateID = " & intRateID
If objData.GetRS(strSQL2, objRst2) Then
medHMOPrem = objRst2("medhmo")
medPPOPrem = objRst2("medppo")
denHMOPrem = objRst2("denhmo")
denPPOPrem = objRst2("denppo")
vision = objRst2("vision")
End If
'*******************************************
'***Standard DMF Check for Weekly Changes***
'*******************************************
If objData.GetRS(strSQL, objRst) Then
If Not objRst.EOF Then
Do While Not objRst.EOF
strSQL2 = "SELECT TOP 1 isnull(pdMedPrem,0) AS pdMedPrem, isnull(pdDentPrem,0) AS pdDentPrem, isnull(pdVisPrem,0) AS pdVisPrem, isnull(pdLifePrem,0) AS pdLifePrem, isnull(univMedPrem,0) AS univMedPrem, isnull(univDentPrem,0) AS univDentPrem, isnull(univVisPrem,0) AS univVisPrem, isnull(univLifePrem,0) AS univLifePrem, Enroll_dp, self_med, self_dent, self_vis, dp_med, dp_dent, dp_vis, child1_med, child1_dent, child1_vis, child2_med, child2_dent, child2_vis, First_name_dp, Enroll_child1, First_name_child1, Enroll_child2, First_name_child2, isnull(Enroll_med,'none') AS Enroll_med, isnull(Enroll_dent,'none') AS Enroll_dent, Dent_PPO_NJ, med_bup, den_bup FROM dbschema.UunivCoverage08 WHERE univ_ID = " & objRst("ID_Number") & " ORDER BY intID DESC"
'response.Write strSQL2
If objData.GetRS(strSQL2, objRst2) Then
strSQL3 = "SELECT Zip FROM dbschema.UunivZips10 WHERE Zip = " & objRst("Zip")
If objData.GetRS(strSQL3, objRst3) Then
If not objRst3.EOF Then
inZone = "Y"
Else
inZone = "N"
End If
End If
If trim(objRst2("Enroll_med")) = "HMO_E" Then
medType = "HMO"
ElseIf trim(objRst2("Enroll_med")) = "PPO_E" Then
medType = "PPO"
Else
medType = "none"
End If
If trim(objRst2("Enroll_dent")) = "DMO_E" Then
denType = "HMO"
ElseIf trim(objRst2("Enroll_dent")) = "DPPO_E" Then
denType = "PPO"
Else
denType = "none"
End If
For xx = 1 to 4
'Item # 3 char
strDetail = strDetail & 100 & "|"
'univ ID 8 char
strDetail = strDetail & objRst("ID_Number") & "|"
'Deduction Code 6 char
Select Case xx
Case 1
strDetail = strDetail & "MED|"
Case 2
strDetail = strDetail & "DEN|"
Case 3
strDetail = strDetail & "VIS|"
Case 4
strDetail = strDetail & "BLIF|"
End Select
'Deduction Type 1 char
strDetail = strDetail & "A|"
'Deduction Amount 8 char
Select Case xx
Case 1 'MED
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
ElseIf objRst("redtozero") = "Y" and objRst2("pdMedPrem") < .001 Then
strDetail = strDetail & "*|"
ElseIf objRst2("univMedPrem") < .1 Then
strDetail = strDetail & "*|"
Else
strDetail = strDetail & replace(formatcurrency(objRst2("pdMedPrem"),2),"$","") & "|"
End If
Case 2 'DEN
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
ElseIf objRst("redtozero") = "Y" and objRst2("pdDentPrem") < .001 Then
strDetail = strDetail & "*|"
ElseIf objRst2("univDentPrem") < .1 Then
strDetail = strDetail & "*|"
Else
strDetail = strDetail & replace(formatcurrency(objRst2("pdDentPrem"),2),"$","") & "|"
End If
Case 3 'VIS
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
ElseIf objRst("redtozero") = "Y" and objRst2("pdVisPrem") < .001 Then
strDetail = strDetail & "*|"
ElseIf objRst2("univVisPrem") < .1 Then
strDetail = strDetail & "*|"
Else
strDetail = strDetail & replace(formatcurrency(objRst2("pdVisPrem"),2),"$","") & "|"
End If
Case 4 'BLIF
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
ElseIf objRst("redtozero") = "Y" and objRst2("pdLifePrem") < .001 Then
strDetail = strDetail & "*|"
Else
strDetail = strDetail & replace(formatcurrency(objRst2("pdLifePrem"),2),"$","") & "|"
End If
End Select
'Plan Code 10 char
Select Case xx
Case 1
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
BDPC = "*"
ElseIf objRst("redtozero") = "Y" AND objRst2("univMedPrem") < .1 Then
strDetail = strDetail & "*|"
BDPC = "*"
ElseIf objRst2("med_bup") = "Y" Then
strDetail = strDetail & "OB|"
BDPC = "OB"
ElseIf objRst2("pdMedPrem") = OPBaseMedSing Or objRst2("pdMedPrem") = OPBaseMedSing*2 Or objRst2("pdMedPrem") = OPBaseMedSing*3 Or objRst2("pdMedPrem") = OPBaseMedSing*4 Or objRst2("pdMedPrem") = OPBaseMedPlus Or objRst2("pdMedPrem") = OPBaseMedPlus*2 Or objRst2("pdMedPrem") = OPBaseMedPlus*3 Or objRst2("pdMedPrem") = OPBaseMedPlus*4 Or objRst2("pdMedPrem") = OPBaseMedFam Or objRst2("pdMedPrem") = OPBaseMedFam*2 Or objRst2("pdMedPrem") = OPBaseMedFam*3 Or objRst2("pdMedPrem") = OPBaseMedFam*4 Then
strDetail = strDetail & "OP|"
BDPC = "OP"
ElseIf objRst2("univMedPrem") < .1 Then
strDetail = strDetail & "*|"
BDPC = "*"
Else
If medType = "none" Then 'Added 4/19/2016
strDetail = strDetail & "MED-PLAN-NOT-SELECTED|"
BDPC = "*"
ElseIf medType = "HMO" Then
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
ElseIf objRst("alter_who_pays") = "PF" Then
strDetail = strDetail & "PF|"
BDPC = "PF"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
Else
If objRst2("pdMedPrem") = 0 Then
If objRst2("univMedPrem") > medHMOPrem Then
strDetail = strDetail & "PF|"
BDPC = "PF"
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
End If
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
End If
End if
Else 'PPO
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetail = strDetail & "O*|"
BDPC = "*"
Else
strDetail = strDetail & "O|"
BDPC = "O"
End If
ElseIf objRst("alter_who_pays") = "PF" Then
strDetail = strDetail & "OF|"
BDPC = "OF"
Else
strDetail = strDetail & "O|"
BDPC = "O"
End If
Else
If objRst2("pdMedPrem") = 0 Then
'If objRst2("univMedPrem") > medPPOPrem Then
If inZone = "Y" Then
strDetail = strDetail & "OF|"
BDPC = "OF"
ElseIf objRst("alter_who_pays") = "PF" Then
strDetail = strDetail & "OF|"
BDPC = "OF"
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "O*|"
BDPC = "*"
Else
strDetail = strDetail & "O|"
BDPC = "O"
End If
End If
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "O*|"
BDPC = "*"
Else
strDetail = strDetail & "O|"
BDPC = "O"
End If
End If
End If
End If
End If
Case 2
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
BDPC = "*"
ElseIf objRst("redtozero") = "Y" AND objRst2("univDentPrem") < .1 Then
strDetail = strDetail & "*|"
BDPC = "*"
ElseIf objRst2("den_bup") = "Y" Then
strDetail = strDetail & "OB|"
BDPC = "OB"
ElseIf objRst2("univDentPrem") < .1 Then
strDetail = strDetail & "*|"
BDPC = "*"
Else
If denType = "none" Then 'Added 4/19/2016
strDetail = strDetail & "DEN-PLAN-NOT-SELECTED|"
BDPC = "*"
ElseIf denType = "HMO" Then
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
ElseIf objRst("alter_who_pays") = "PF" Then
strDetail = strDetail & "PF|"
BDPC = "PF"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
Else
If objRst2("pdDentPrem") = 0 Then
If objRst2("univDentPrem") > denHMOPrem Then
strDetail = strDetail & "PF|"
BDPC = "PF"
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
End If
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
End If
End If
Else
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetail = strDetail & "O*|"
BDPC = "*"
Else
strDetail = strDetail & "O|"
BDPC = "O"
End If
Else
strDetail = strDetail & "OF|"
BDPC = "OF"
End If
Else
If objRst2("pdDentPrem") = 0 Then
'If objRst2("univDentPrem") > denPPOPrem Then
strDetail = strDetail & "OF|"
BDPC = "OF"
'Else
' strDetail = strDetail & "O "
'End If
Else
If objRst2("pdDentPrem") = OPBaseDentSing Or objRst2("pdDentPrem") = OPBaseDentSing*2 Or objRst2("pdDentPrem") = OPBaseDentSing*3 Or objRst2("pdDentPrem") = OPBaseDentSing*4 Or objRst2("pdDentPrem") = OPBaseDentPlus Or objRst2("pdDentPrem") = OPBaseDentPlus*2 Or objRst2("pdDentPrem") = OPBaseDentPlus*3 Or objRst2("pdDentPrem") = OPBaseDentPlus*4 Or objRst2("pdDentPrem") = OPBaseDentFam Or objRst2("pdDentPrem") = OPBaseDentFam*2 Or objRst2("pdDentPrem") = OPBaseDentFam*3 Or objRst2("pdDentPrem") = OPBaseDentFam*4 Then
strDetail = strDetail & "OP|"
BDPC = "OP"
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "O*|"
BDPC = "*"
Else
strDetail = strDetail & "O|"
BDPC = "O"
End If
End If
End If
End If
End If
End If
Case 3 'Vision
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
BDPC = "*"
ElseIf objRst("redtozero") = "Y" AND objRst2("univVisPrem") < .1 Then
strDetail = strDetail & "*|"
BDPC = "*"
ElseIf objRst2("univVisPrem") < .1 Then
strDetail = strDetail & "*|"
BDPC = "*"
Else
'If medType = "HMO" Then
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetail = strDetail & "O*|"
BDPC = "*"
Else
strDetail = strDetail & "O|"
BDPC = "O"
End If
Else
strDetail = strDetail & "OF|"
BDPC = "OF"
End If
Else
If objRst2("pdVisPrem") = 0 Then
If objRst2("univVisPrem") > vision Then
strDetail = strDetail & "OF|"
BDPC = "OF"
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "O*|"
BDPC = "*"
Else
strDetail = strDetail & "O|"
BDPC = "O"
End If
End If
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "O*|"
BDPC = "*"
Else
strDetail = strDetail & "O|"
BDPC = "O"
End If
End If
End If
End If
Case 4
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
BDPC = "*"
ElseIf objRst("redtozero") = "Y" AND objRst2("univLifePrem") < .1 Then
strDetail = strDetail & "*|"
BDPC = "*"
Else
If medType = "HMO" Then
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
Else
strDetail = strDetail & "PF|"
BDPC = "PF"
End If
Else
If objRst2("pdMedPrem") = 0 Then
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
End If
End If
Else
If objRst("alter_prem") = "Y" Then
If objRst("alter_who_pays") = "P" Then
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
Else
strDetail = strDetail & "PF|"
BDPC = "PF"
End If
Else
If objRst2("pdMedPrem") = 0 Then
If objRst2("univMedPrem") > medPPOPrem Then
strDetail = strDetail & "PF|"
BDPC = "PF"
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
End If
Else
If objRst("pchange") = "Y" Then
strDetail = strDetail & "P*|"
BDPC = "*"
Else
strDetail = strDetail & "P|"
BDPC = "P"
End If
End If
End If
End If
End If
End Select
'Coverage Code 10 char
medCnt = 1
denCnt = 1
visCnt = 1
lifCnt = 1
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
Else
Select Case xx
Case 1
If objRst("redtozero") = "Y" AND objRst2("univMedPrem") < .1 Then
strDetail = strDetail & "*|"
BDCov = "*"
ElseIf objRst2("univMedPrem") < .1 Then
strDetail = strDetail & "*|"
BDCov = "*"
Else
if objRst2("dp_med") = "Y" Then medCnt = medCnt + 1
if objRst2("child1_med") = "Y" Then medCnt = medCnt + 1
if objRst2("child2_med") = "Y" Then medCnt = medCnt + 1
Select Case medCnt
Case 1
strDetail = strDetail & "1|"
BDCov = "1"
Case 2
strDetail = strDetail & "3|"
BDCov = "3"
Case Else
strDetail = strDetail & "4|"
BDCov = "4"
End Select
End If
Case 2
If objRst("redtozero") = "Y" AND objRst2("univDentPrem") < .1 Then
strDetail = strDetail & "*|"
BDCov = "*"
ElseIf objRst2("univDentPrem") < .1 Then
strDetail = strDetail & "*|"
BDCov = "*"
Else
if objRst2("dp_dent") = "Y" Then denCnt = denCnt + 1
if objRst2("child1_dent") = "Y" Then denCnt = denCnt + 1
if objRst2("child2_dent") = "Y" Then denCnt = denCnt + 1
Select Case denCnt
Case 1
strDetail = strDetail & "1|"
BDCov = "1"
Case 2
strDetail = strDetail & "3|"
BDCov = "3"
Case Else
strDetail = strDetail & "4|"
BDCov = "4"
End Select
End If
Case 3
If objRst("redtozero") = "Y" AND objRst2("univVisPrem") < .1 Then
strDetail = strDetail & "*|"
BDCov = "*"
ElseIf objRst2("univVisPrem") < .1 Then
strDetail = strDetail & "*|"
BDCov = "*"
Else
if objRst2("dp_vis") = "Y" Then visCnt = visCnt + 1
if objRst2("child1_vis") = "Y" Then visCnt = visCnt + 1
if objRst2("child2_vis") = "Y" Then visCnt = visCnt + 1
Select Case visCnt
Case 1
strDetail = strDetail & "1|"
BDCov = "1"
Case 2
strDetail = strDetail & "3|"
BDCov = "3"
Case Else
strDetail = strDetail & "4|"
BDCov = "4"
End Select
End If
Case 4
If objRst("redtozero") = "Y" AND objRst2("univLifePrem") < .1 Then
strDetail = strDetail & "*|"
BDCov = "*"
Else
strDetail = strDetail & "1|"
BDCov = "1"
End If
End Select
End If
'Employer Contribution 10 char
Select Case xx
Case 1 'MED
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univMedPrem") < .1 Then
strDetail = strDetail & "*|"
ElseIf objRst2("univMedPrem") < .1 Then
strDetail = strDetail & "*|"
Else
strDetail = strDetail & replace(formatcurrency(objRst2("univMedPrem"),2),"$","") & "|"
End If
Case 2 'DEN
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univDentPrem") < .1 Then
strDetail = strDetail & "*|"
ElseIf objRst2("univDentPrem") < .1 Then
strDetail = strDetail & "*|"
Else
strDetail = strDetail & replace(formatcurrency(objRst2("univDentPrem"),2),"$","") & "|"
End If
Case 3 'VIS
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univVisPrem") < .1 Then
strDetail = strDetail & "*|"
ElseIf objRst2("univVisPrem") < .1 Then
strDetail = strDetail & "*|"
Else
strDetail = strDetail & replace(formatcurrency(objRst2("univVisPrem"),2),"$","") & "|"
End If
Case 4 'BLIF
If objRst("terminated") = "Y" Then
strDetail = strDetail & "*|"
ElseIf objRst("redtozero") = "Y" AND objRst2("univLifePrem") < .1 Then
strDetail = strDetail & "*|"
Else
strDetail = strDetail & replace(formatcurrency(objRst2("univLifePrem"),2),"$","") & "|"
End If
End Select
Select Case xx
Case 1 'MED
BDType = "MED"
Case 2 'DEN
BDType = "DEN"
Case 3 'VIS
BDType = "VIS"
Case 4 'LIF
BDType = "LIF"
End Select
'Check if termed
If BDPC = "*" Then
'Dept Charge
strDetail = strDetail & "*|"
'Grant Charge
strDetail = strDetail & "*|"
Else
'Connect to Rate Breakdown table
strSQL4 = "SELECT DeptCharge, GrantCharge FROM dbschema.UunivRateBreakDown WHERE PlanYear = '2019' AND Type = '" & BDType & "' AND PlanCode = '" & BDPC & "' AND Coverage = '" & BDCov & "';"
If objData.GetRS(strSQL4, objRst4) Then
If Not objRst4.EOF Then
'Dept Charge
strDetail = strDetail & replace(formatcurrency(objRst4("DeptCharge"),2),"$","") & "|"
'Grant Charge
strDetail = strDetail & replace(formatcurrency(objRst4("GrantCharge"),2),"$","") & "|"
Else 'No Match, must debug if we get this response
'Dept Charge
strDetail = strDetail & "error|"
'Grant Charge
strDetail = strDetail & "error|"
End If
End If
End If
'Effective Date
strDetail = strDetail & Request.Form("effDate") & "|"
'Today's Date
strDetail = strDetail & year(date()) & "-"
If len(month(date())) < 2 Then
strDetail = strDetail & "0" & month(date()) & "-"
Else
strDetail = strDetail & month(date()) & "-"
End If
If len(day(date())) < 2 Then
strDetail = strDetail & "0" & day(date())
Else
strDetail = strDetail & day(date())
End If
strDetail = strDetail & vbcrlf
intRecCount = intRecCount + 1
Next
End If
inZone = "N"
objRst.MoveNext
Loop
End If
Else
response.Write "trouble"
End if
Set objRst3 = nothing
Set objRst2 = nothing
Set objRst = nothing
Set objData = nothing
'--------Trailer Record--------
intRecCount = intRecCount + 1
intRecCountUuniv = intRecCountUuniv + 1
'Record Type 3 char
strTrailer = "999"
strTrailerUuniv = "999"
'Record Count 12 char
intRecCountLen = len(intRecCount)
For x = 1 to (12 - intRecCountLen)
strTrailer = strTrailer & " "
Next
intRecCountLenUuniv = len(intRecCountUuniv)
For x = 1 to (12 - intRecCountLenUuniv)
strTrailerUuniv = strTrailerUuniv & " "
Next
strTrailer = strTrailer & intRecCount
strTrailerUuniv = strTrailerUuniv & intRecCountUuniv
'Filler 112 char
strTrailer = strTrailer & " "
strTrailerUuniv = strTrailerUuniv & " "
'--------Write to flat file----
Set fso = CreateObject("Scripting.FileSystemObject")
strFolder = Application.Contents("rootfolder") & "\files\uuniv\"
If request.form("stype") = 1 Then
fso.createtextfile(strFolder & "08gen\" & request.form("sFilename") & ".asp")
fso.createtextfile(strFolder & "admgen\" & request.form("sFilename") & ".asp")
Set f1 = fso.GetFile(strFolder & "08gen\" & request.form("sFilename") & ".asp")
Set f2 = fso.GetFile(strFolder & "admgen\" & request.form("sFilename") & ".asp")
Else
fso.createtextfile(strFolder & "08fin\" & request.form("sFilename") & ".asp")
fso.createtextfile(strFolder & "admfin\" & request.form("sFilename") & ".asp")
Set f1 = fso.GetFile(strFolder & "08fin\" & request.form("sFilename") & ".asp")
Set f2 = fso.GetFile(strFolder & "admfin\" & request.form("sFilename") & ".asp")
End If
'*************************************
'***Write for Weekly Change DMF*******
'*************************************
Set ts = f1.OpenAsTextStream(ForWriting, False)
ts.write "<%@LANGUAGE=""VBSCRIPT"" CODEPAGE=""1252""" & chr(37) & ">" & vbcrlf
ts.write "<%" & vbcrlf
ts.write "response.ContentType=""text/plain""" & vbcrlf
ts.write "If session.Contents(""@admactive"") = ""actuniv"" Then" & vbcrlf
ts.write chr(37) & ">" & vbcrlf
'ts.write strHeader & strDetail & strTrailer & vbcrlf
ts.write strDetail & vbcrlf
ts.write "<%" & vbcrlf
ts.write "Else" & vbcrlf
ts.write "End If" & vbcrlf
ts.write chr(37) & ">"
ts.close
'*************************************
'***Write for Full DMF****************
'*************************************
Set ts = f2.OpenAsTextStream(ForWriting, False)
ts.write "<%@LANGUAGE=""VBSCRIPT"" CODEPAGE=""1252""" & chr(37) & ">" & vbcrlf
ts.write "<%" & vbcrlf
ts.write "response.ContentType=""text/plain""" & vbcrlf
ts.write "If len(Session(""@fkg"")) < 1 Then" & vbcrlf
ts.write "Response.Redirect(""https://www.redacated-for-security/cportal/?msg=expired"")" & vbcrlf
ts.write "Else" & vbcrlf
ts.write chr(37) & ">" & vbcrlf
'ts.write strHeader & strDetailUuniv & strTrailerUuniv & vbcrlf
ts.write strDetailUuniv & vbcrlf
ts.write "<%" & vbcrlf
ts.write "End If" & vbcrlf
ts.write chr(37) & ">"
ts.close
Set ts = nothing
Set f1 = nothing
Set f2 = nothing
Set fso = nothing
If request.form("stype") = 1 Then
Response.Write "<a href='08gen/" & request.form("sFilename") & ".asp'>weekly here</a> | <a href='admgen/" & request.form("sFilename") & ".asp'>uuniv full here</a>"
Else
Response.Write "<a href='08fin/" & request.form("sFilename") & ".asp'>weekly here</a> | <a href='admfin/" & request.form("sFilename") & ".asp'>uuniv full here</a>"
End If
If request.form("stype") = 2 then
Set objData = Server.CreateObject("Ocean.cADOWrapper")
objData.Execute "UPDATE dbschema.UunivEnrollMain08 SET gp_pd_status = 'z', pd_change_reason = '' WHERE gp_pd_status = 'a' AND (who_pays_p = 'N' OR who_pays_p is null)"
objData.Execute "UPDATE dbschema.UunivEnrollMain08 SET gp_pd_status = 'a', who_pays_p = null, pd_change_reason = '' WHERE gp_pd_status = 'a' AND who_pays_p = 'Y'"
objData.Execute "UPDATE dbschema.UunivEnrollMain08 SET gp_pd_status = 'x', pd_change_reason = '' WHERE gp_pd_status = 'y'"
objData.Execute "UPDATE dbschema.UunivEnrollMain08 SET redtozero = '' WHERE redtozero = 'Y'"
Set objData = Nothing
End If
End Sub
run_process()
Function add_space(obj1, obj2, obj3)
Dim xxx, myx, stradd
xxx = obj1 - len(obj2)
For myx = 1 to xxx
stradd = stradd & obj3
Next
add_space = stradd & obj2
End Function
