Excel VBA Macros

-1

Good day Pros,

Please is it Posible to write a VBA code based on the below algorithms? iF SO PLEASE HELP..All my definition should be by column headers because column heading changes. Sample file is attached.

Thank you.

1. W/O CC/MCC

(Note, I want to be able to add multiple comments in parenthesis under comments heading e.g. (Comment = Comment + (new comment))Also note green colors are column headings..yellow colors are determinant factors.(Cell Values)

Select W/O CC MCC from DRG Type W CC MCC

Look for j44.9 and or J44.1 from DX1 to DX10 then look for (j96.21 and or j96.00 and or j96.01 and or j96.20) on same row. Is j96.21 or j96.00 present?. Yes do nothing, No, give red font for (Chronic obstructive pulmonary disease, unspecified) and then insert at the COMMENT (Check for Resp Failure).

Look for A41.9 under DX1, then give red font for (Sepsis, unspecified organism) and then insert under COMMENT (Check to see if Septic Shock Documented)

Look for K72.90 then make (Hepatic failure, unspecified without coma) a red font and insert comment (Query for Aquity of hepatic Encephalopathy)

If DRG Type W CC MCC = W/O CC/MCC and I26.92 or I96.99 is present in DX1 to DX10, then insert comment (Check for Pulmonary Embolism with Cor Pulmonale)

All cases with W/O CC/MCC where there is E86.0 and there is no N17.0, N17.1, N17.2, N17.8 or N17.9, then insert comment (Check for Renal failure) and give rent font to (Dehydration)

For All cases with W/O CC/MCC where there is I10 and no I50.21, I50.22, I50.1, I50.23, I50.31, I50.32, I50.33, I50.41, I50.42, I50.43 Insert Comment (Check for heart failure) and then give red font to (Essential (primary) hypertension)

2. DRG

For all DRG 004 insert comment (Check for Isthmus resection)

For All DRG 003 insert OK

For All DRG 282 where there is no I50.21, I50.22, I50.1, I50.23, I50.31, I50.32, I50.33, I50.41, I50.42, I50.43 Insert Comment (Check for heart failure or Acuity of HF) and then give red font to

ST elevation (STEMI) myocardial infarction involving left main coronary artery

ST elevation (STEMI) myocardial infarction involving left anterior descending coronary artery

ST elevation (STEMI) myocardial infarction involving other coronary artery of anterior wall

ST elevation (STEMI) myocardial infarction involving right coronary artery

ST elevation (STEMI) myocardial infarction involving other coronary artery of inferior wall

ST elevation (STEMI) myocardial infarction involving left circumflex coronary artery

ST elevation (STEMI) myocardial infarction involving other sites

ST elevation (STEMI) myocardial infarction of unspecified site

Non-ST elevation (NSTEMI) myocardial infarction

Subsequent ST elevation (STEMI) myocardial infarction of anterior wall

Subsequent ST elevation (STEMI) myocardial infarction of inferior wall

Subsequent non-ST elevation (NSTEMI) myocardial infarction

Subsequent ST elevation (STEMI) myocardial infarction of other sites

Subsequent ST elevation (STEMI) myocardial infarction of unspecified site

For All DRG 870 insert comment (Check for Tracheostomy)

For All DRG 871 insert comment (check for Missed Procedure)

For All DRG 872 insert comment (Review for MCC or check documentation for Septic shock)

For All DRG 440 insert comment (look for malnutrition) and give red font to (Acute pancreatitis, unspecified, Other acute pancreatitis or Alcohol induced acute pancreatitis, Biliary acute pancreatitis, Idiopathic acute pancreatitis)

3. W MCC

For All Cases W MCC where there is N39.0 and DRG does not contain 870, 871, or 872 then Insert comment (Check for Sepsis) and then give red font to (Urinary tract infection, site not specified).

Miscellaneous

Any case with J18.9 and there is no A40.3, J12.81 J13. J14. J15.0 J15.1 J15.20 J15.211 J15.212 J15.29 J15.3 J15.4 J15.5 J15.6 J15.7 J15.8 J16.8 J17, A40.0 A40.1 A40.3 A40.9 A41.01 A41.02 A41.1 A41.2 A41.3 A41.4 A41.51 A41.52 A41.53 A41.81 A41.9 R65.20 R65.21

In PX1 to PX4, when there is 5A1935Z or 5A1945Z. or 5A1955Z and DRG is not 208, or 207 then insert comment (look for respiratory condition to be made PDX, also look for Tracheostomy and calculate vent hours) then red font for 5A1935Z or 5A1945Z. or 5A1955Z.

In PX1 to PX4 when there is 5A1935Z or 5A1945Z and LOS > 4.0 then insert comment (Please calculate Vent hours) and give red font to 5A1935Z or 5A1945Z.

1.

Answer
Discuss

Answers

1

Hire someone to do this!

Discuss

Discussion

Thank you, that's not a problem, but this is a file i use at work and i keep repeating this same thing each time i receive the file, so i dont see any reason why i can not automate it instead of repeating same thing. I have to keep updating it, because there are more scenarios than posted, and also code changes, so if i hire someone to do it, will i keep hiring whenever i need to update the code? besides i thought the side say teach excel and not sell excel or free lancer or something, i am not that new to VBA myself, its just beyond my knowledge for now and ofcourse, i am learning everyday, may be i will get to be able to do it by myself from scratch at the long run without been told to hire some one to do it.
dshexy Jul 17, '16 at 1:02 am
This site DOES teach Excel, BUT you just put on here a ton of requirements for your work and asked someone to do all them of you. That is NOT COOL! Ask a specific, targeted question about creating a macro and then you will get help. If it's a big problem, break it down into small tasks and ask separate questions for each of them.
don (rep: 1247) Jul 17, '16 at 11:19 am
But do not ask all of the questions at once! Ask one, get an Answer, select the Answer, ask another.
don (rep: 1247) Jul 17, '16 at 11:20 am
Do you have idea, who to hire and how much it may cost?
dshexy Jul 18, '16 at 9:25 pm
If you want consulting you can use the contact form here and submit a request. But, I don't know how much it will cost, probably a good bit though.
don (rep: 1247) Jul 18, '16 at 10:15 pm
Add to Discussion

Answer the Question

You must create an account to use the forum. Create an Account or Login