PST_calib_method - Method source - Fisher Controls Intl LLC - DVC6200 SIS-000A

Loading…

Method Name: PST_calib_method

Method ID: 0x433C

Method Label: PST Calibration

Method Help:

{
float qa, qb, qc, qd, qe; int q, q0, q1, q2, q3; char S[3];
int q01, q02, q03, q04, q05, q06, q07, q08, q09, q10, q11, q12, q13, q14, q15, q16, q17, q18, q19, q20, q21, q23, q24, qj, qk; float qa0, qa1, qa2, qa3, qa4, qa5, qa6, qa7, qa8, qa9, qb0, qb1, qb2, qb3, qb4, qb5, qx;
float fRoundingFactor;
long ids[3];
_set_device_status(0xFF,0);
_set_xmtr_device_status(0xFF,0);
_set_all_resp_code(1);
_set_resp_code((8),0);
send(151,S); if(_ivar_value(16804) > 1) { ACKNOWLEDGE("|en|The DD revision is not compatible with the firmware in the device.\nContact your Fisher sales office for an upgrade to your Device Description."); return; };
q = 0.9; fRoundingFactor = 0.0; if(q < 1) fRoundingFactor = 0.5;
if(_ivar_value(16509) == 0x02)
{
ACKNOWLEDGE("|en|This operation is not supported in Pressure Control Mode. Please switch the device to Travel Control mode and try again.");
process_abort();
}
send_trans(129,0,S); _vassign(16452,16427); save_values(); if(1==_ivar_value(167)) { ACKNOWLEDGE("|en|Protection must be disabled to perform this operation."); process_abort(); } if((_ivar_value(16427))) { if(((_ivar_value(16465) & 0x01C0) == 0x0100)) { _get_dev_var_value(("|en|WARNING! Output will not track input and the SIS safety function will be disabled when Instrument Mode is Out of Service."),0,16452); } else { _get_dev_var_value(("|en|WARNING! Output will not track input when Instrument Mode is Out of Service."),0,16452); } save_values(); if(_ivar_value(16452)>0) { ACKNOWLEDGE("|en|Instrument Mode is still In Service."); process_abort(); } else { send_trans(130,6,S); } } send_trans(129,0,S); if((1==_ivar_value(16472)) || (5==_ivar_value(16472))) { if(1==_ivar_value(16472)) { ACKNOWLEDGE("|en|Access restricted\n\nInstrument was set to 'Out of Service' by a secondary master."); } else { ACKNOWLEDGE("|en|Access restricted\n\nInstrument was set to 'Out of Service' by a primary master."); } process_abort(); } _add_abort_method(17167); DELAY(1,"|en|Please wait...");
if(1 - SELECT_FROM_LIST("|en|WARNING! Calibration will cause sudden changes in instrument output and loss of process control.","|en|Continue;Exit"))
{
send(138,S); q0 = 0; q1 = 1; while((_ivar_value(16792) & 0x08) > 0) { if(1 == q1) { send_trans(129,34,S); if((1 == _ivar_value(16464)) && ((_ivar_value(16794)) & 0x08)) { q0 = SELECT_FROM_LIST("|en|The Auxiliary Terminal Action is configured for a connected local control panel, but no local control panel is detected. You will need to correct the Auxiliary Terminal Action configuration or exit and fix the connected local control panel.","|en|Change Configuration;Exit"); if(0 == q0) { q == SELECT_FROM_LIST("|en|Aux Terminal Action","|en|Disabled;PST Diagnostic"); _iassign(16464,((2 * q))); send_trans(130,86,S); } } } if(0 == q0) { q0 = SELECT_FROM_LIST("|en|Instrument is locked in safety and must be unlocked before proceeding.\nWARNING! Unlocking the device may cause the valve to move.","|en|Unlock;Exit"); } if(1 == q0) { remove_all_abort(); _add_abort_method(17167); process_abort(); } if(1 == q1) { q2 = _ivar_value(16529); if(2 == q2) q2 = -1; q2 = q2 * ((-2 * _ivar_value(16508)) + 1); if(0 == 0) { if((_ivar_value(171) == 0)) { if(2 == _ivar_value(16529)) { qa = 0.0; } else { qa = 1.0; } _fassign(16640,(qa)); send_trans(130,78,S); } _iassign(16452,(1)); save_values(); send_trans(130,6,S); } } if((_ivar_value(171) == 0)) { if(1 == q1) { q1 = 2; _fassign(16405,((qa * 100.0))); save_values(); send_trans(130,4,S); } if(1 == _ivar_value(16464)) { ACKNOWLEDGE("|en|To unlock the device, press the button next to GREEN light on Local Control Panel for more than 1/2 second."); } else { ACKNOWLEDGE("|en|To unlock the device, short the Aux. terminals between 3 and 5 seconds."); } } else { if(1 == _ivar_value(16464)) { if(q2 < 0) { ACKNOWLEDGE("|en|To unlock the device\n1. Set the input current to 8 mA if the Local Control Panel is loop powered or 4 mA if the LCP has a seperate power supply.\n2. Press the button next to GREEN light on Local Control Panel for more than 1/2 second."); } else { ACKNOWLEDGE("|en|To unlock the device\n1. Set the input current to 20 mA.\n2. Press the button next to GREEN light on Local Control Panel for more than 1/2 second."); } } else { if(q2 < 0) { ACKNOWLEDGE("|en|To unlock the device\n1. Set the input current to 4 mA.\n2. Short the Aux. terminals between 3 and 5 seconds."); } else { ACKNOWLEDGE("|en|To unlock the device\n1. Set the input current to 20 mA.\n2. Press the button next to GREEN light on Local Control Panel for more than 1/2 second."); } } } send(138,S); } if(0 == 0) { _iassign(16452,(0)); save_values(); send_trans(130,6,S); send_trans(129,0,S); };
if(((_ivar_value(16496) & 0x01) > 0)) { if((_ivar_value(171) == 0)) { ACKNOWLEDGE("|en|The Hardware Shutdown DIP switch on the main electronics board must be Disabled to operate in multidrop mode."); process_abort(); } else { send(3,S); if((3 == _ivar_value(16496))) { while (_fvar_value(16418) > 9.0) { if(select_from_list("|en|Adjust the Analog Input current to move the valve to its normal (not tripped) position.", ids,"|en|Adjust Analog Input and continue;Exit")) { process_abort(); } send(3,S); } } if((1 == _ivar_value(16496))) { while (_fvar_value(16418) < 15.0) { if(select_from_list("|en|Adjust the Analog Input current to move the valve to its normal (not tripped) position.", ids,"|en|Adjust Analog Input and continue;Exit")) { process_abort(); } send(3,S); } } } } else { send(138,S); if((_ivar_value(171) > 0)) { send(3,S); while (_fvar_value(16418) < 3.8) { if(select_from_list("|en|Input must exceed 3.8 mA (7.8 mA if loop powered local control panel is attached.)", ids,"|en|Adjust Analog Input and continue;Exit")) { process_abort(); } send(3,S); } }; };
send(138,S); send_trans(129,0,S); if(((_ivar_value(16790) & 0x31) > 0) || (_ivar_value(10098) == 0)) { send_trans(142,6,S); send_trans(142,1,S); send_trans(157,0,S); if(1 != _ivar_value(167)) { _iassign(16622,(0)); save_values(); send_trans(130,74,S); } if((_ivar_value(171) == 0)) _iassign(16453,(2)); else _iassign(16453,(3)); save_values(); send_trans(130,7,S); send_trans(129,0,S); DELAY(1,"|en|Please wait..."); };
send_trans(129,12,S);
if((1 != _ivar_value(16551)) && (4 != _ivar_value(16810)))
{
remove_all_abort();
_add_abort_method(17213);
process_abort();
}
send_trans(129,34,S);
_fassign(16608,(0));
send_trans(130,125,S);
_iassign(16563,(1));
send_trans(130,99,S);
send_trans(129,18,S);
if((_fvar_value(16583) < 0.99) || (1 == _ivar_value(16464)))
{
_fassign(16583,(0.99));
send_trans(130,119,S);
}
if((_fvar_value(16584) > 0.01) || (1 == _ivar_value(16464)))
{
_fassign(16584,(0.01));
send_trans(130,120,S);
}
remove_all_abort();
_add_abort_method(17214);
q = 0.9; qb3 = 0.0; if(q < 1) qb3 = 0.5;
do
{
q1 = _ivar_value(16529);
q = !q1;
if(((_ivar_value(16530) & 0x01) > 0) && ((_ivar_value(16532) & 0x03) > 0)) q = q + 2;
if(1 == q) ACKNOWLEDGE("|en|The Partial Stroke Start Pt is not configured.");
if(2 == q) ACKNOWLEDGE("|en|INVALID CONFIGURATION\nA Double-Acting actuator must be used with a Relay Type A.");
if(3 == q) ACKNOWLEDGE("|en|INVALID CONFIGURATION\nThe The Partial Stroke Start Pt is not configured is not configured and a Double-Acting actuator must be used with a Relay Type A.");
if(q)
{
if(SELECT_FROM_LIST("|en|Do you wish to edit the configuration manually or exit and run the Device Setup?","|en|Edit;Exit"))
{
process_abort();
}
else
{
if(2 != q)
{
ids[0] = 16508;
_get_dev_var_value(("|en|Partial Stroke Start Pt:\n(%[L]{0} = %{0})"),(ids),16529);
send_trans(130,98,S);
}
if(q > 1)
{
_get_dev_var_value(("|en|Actuator Style"),0,16530);
_get_dev_var_value(("|en|Relay Type"),0,16532);
send_trans(130,94,S);
}
}
}
} while(q);
if(2 == q1) q1 = -1;
q2 = (-2 * _ivar_value(16508)) + 1;
q01 = q1 * q2;
if((_ivar_value(171) > 0))
{
if(-1 == q01)
{
qa = 3.8;
}
else
{
qa = 8.0;
}
send(3,S);
q08 = 0;
while (_fvar_value(16418) < qa)
{
if(1 != _ivar_value(16464))
{
if(-1 == q01)
{
q08 = select_from_list("|en|Input must exceed 3.8 mA", ids,"|en|Adjust Analog Input and continue;Exit");
}
else
{
q08 = select_from_list("|en|Input must exceed 8.0 mA", ids,"|en|Adjust Analog Input and continue;Exit");
}
}
else
{
if(-1 == q01)
{
q08 = select_from_list("|en|Input must exceed 3.8 mA (7.8 mA if loop powered local control panel is attached.)", ids,"|en|Adjust Analog Input and continue;Exit");
}
else
{
q08 = select_from_list("|en|Input must exceed 8.0 mA (12.0 mA if loop powered local control panel is attached.)", ids,"|en|Adjust Analog Input and continue;Exit");
}
}
if(1 == q08)
{
remove_all_abort();
process_abort();
}
send(3,S);
}
}
q1 = 1 + -3 * (_ivar_value(16532) & 0x01);
q2 = 1 + 2 * (_ivar_value(16530) & 0x01);
q02 = q1 * q2 * q01;
q11 = 0;
q12 = 0;
q13 = 0;
q08 = 0;
send(138,S);
if((_ivar_value(16789) & 0x02) > 0)

Please login for more