Wassup Jose Weblog nonsense at its best!

1Dec/091

Why?

If dblErrRateReadmission <= .ReadmissionEtl Then
lngPassReadmission = lngPassFlag '=1
Else
lngPassReadmission = lngNotPassFlag '=0
End If

If lngPassReadmission = 1 Then
sb.ReadmissionPassFlag = CodeEnumeration.EditPassFlags.Passed
Else
sb.ReadmissionPassFlag = CodeEnumeration.EditPassFlags.Failed
End If

Filed under: Blog Leave a comment
Comments (1) Trackbacks (0)
  1. to make things worse. Why is the flag a LONG value?


Leave a comment

(required)

 

No trackbacks yet.