Comparing Variants [Excel 2010/14] (VBA Only)

So here is an example of the current code I have. It is correctly reading the variant srgBodyPart(1) into BodyPart to use for comparing the srgBodyPart(x). However, I need it to follow the following rules:

Facilities may receive additiional payment in excess of thefee for the primary procedure listed in fields above if (1) the additional procedures are performed on a seperate and distinct body part or system AND (2) the additional procedures would not normally be considered an integral part of a larger procedure or incidental to another procedure performed during the same session.

so basically where srgbdyPart(x) where x is 2-6, I need it to compare with all other srgbdyParts to make sure they're not of equal value to any other.

Please Login or Register  to view this content.

srgbdyPart(1) is the primary body system for a surgical procedure. The rest of the 5 (where x=2-6) srgbdyParts are currently compared to BodyPart to see if they are payable or not. However, I neglected to take into account that if there are any matches within the remaining srgbdyPart(x) they are not payable. Ie. if srgbdyPart(1) is MUSCOSKELETAL SYSTEM then any of the remaining srgBdyParts(x) [where x is 2 to 6 at this point] is equal to BodyPart [MUSCOSKELETAL SYSTEM] then they are not payable. However, if srgbdyPart(2) is equal to NERVOUS SYSTEM and srgBdyPart(4) is equal to NERVOUS SYSTEM then srgbyPart(2) is payable at 75% and srbdyPart(4) would not be payable at all.

It's not calculating correctly. bdysrgPart(1) is at 75% but it's the main procedure and should never be anything less than 100%. Then srgbdyPart(2) is calculating at above 100% when it should only be 75%.

Here you go. The EXPECTED_RESULTS tab will have the input values you need to use. Press Ctrl-e to run the macro, making sure you're on the OUTPATIENT_SURGICAL tab.

The code in question resides in the 'Calculations' module under calcSurg() sub.

77.64 is at 75%
59.79 (second one) is zeroed out
78.63 is zeroed out

Both should be zeroed out b/c they are part of the same body system per the rules given above. The 77.64 is different from the primary body system for procedure 59.79 so it should be paid at 75% while the initial 59.79 should be paid at 100%.

Only the first procedure of any system is payable. The primary (1st one entered) is payable at 100% any others are at 75%.

Bumping thread

threadbump

bump it up yo

yet once again I must bump this thread.

bump bump bump...