diff --git a/addons/circulation/functions/fnc_updateInternalBleeding.sqf b/addons/circulation/functions/fnc_updateInternalBleeding.sqf
index 1a5c72535..78b424954 100644
--- a/addons/circulation/functions/fnc_updateInternalBleeding.sqf
+++ b/addons/circulation/functions/fnc_updateInternalBleeding.sqf
@@ -18,7 +18,7 @@
 params ["_unit"];
 
 private _cardiacOutput = [_unit] call ACEFUNC(medical_status,getCardiacOutput);
-private _alphaAction = _unit getVariable [QGVAR(alphaAction), 1];
+private _alphaAction = _unit getVariable [QEGVAR(pharma,alphaAction), 1];
 private _internalBleeding = 0;
 
 if (_unit getVariable [QEGVAR(breathing,hemopneumothorax), false]) then {
diff --git a/addons/pharma/XEH_postInit.sqf b/addons/pharma/XEH_postInit.sqf
index 091afe3a8..f6b83f565 100644
--- a/addons/pharma/XEH_postInit.sqf
+++ b/addons/pharma/XEH_postInit.sqf
@@ -32,6 +32,9 @@
 [QACEGVAR(medical_gui,updateInjuryListPart), LINKFUNC(gui_updateInjuryListPart)] call CBA_fnc_addEventHandler;
 [QACEGVAR(medical_gui,updateBodyImage), LINKFUNC(gui_updateBodyImage)] call CBA_fnc_addEventHandler;
 [QACEGVAR(medical_treatment,fullHealLocalMod), LINKFUNC(fullHealLocal)] call CBA_fnc_addEventHandler;
+[QACEGVAR(medical_status,getBloodLoss), {
+    _this set [1, _this#1 * (_this#0 getVariable [QGVAR(alphaAction), 1])];
+}] call CBA_fnc_addEventHandler;
 ["ace_treatmentSucceded", {
     params ["_medic", "_patient", "_bodyPart", "_classname"];
     if (!(GVAR(staminaMedication)) || ACE_Player != _patient || !(alive _patient)) exitWith {};