begin
Label33.Visible := DBPipeline['mother_method'] = '1';
Label36.Visible := DBPipeline['mother_method'] = '2';
Label38.Visible := DBPipeline['mother_method'] = '3';
Label58.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="1" and labordrugname like"MO gr1/6" ')<>0;
Label62.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="1" and labordrugname like"Phenergan 50 mg" ')<>0;
Label66.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="1" and labordrugname like"Pethidine 50 mg" ')<>0;
Label70.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="1" and ((labordrugname not like "MO gr1/6") and (labordrugname not like "Phenergan 50 mg") '+
' and (labordrugname not like "Pethidine 50 mg") ) ')<>0;
Label76.Visible :=DBPipeline['membrane_arm_method'] = '1';
Label78.Visible := DBPipeline['membrane_arm_method'] = '2';
Label81.Visible := DBPipeline['membrane_descrip'] = '1';
Label83.Visible := DBPipeline['membrane_descrip'] = '2';
Label85.Visible := DBPipeline['membrane_descrip'] = '3';
Label87.Visible := DBPipeline['membrane_descrip'] = '4';
Label108.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="2" and labordrugname like"Methergin 1 amp." ')<>0;
Label112.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="2" and labordrugname not like"Methergin 1 amp." ')<>0;
if (DBPipeline['Infant_Abnormality'] = 'Y') then
begin
Label131.Visible := False ;
Label133.Visible := True ;
end
else begin
Label131.Visible := True ;
Label133.Visible := False ;
end ;
Label136.Visible := DBPipeline['Infant_Help_O2Tubing'] = 'Y';
Label138.Visible := DBPipeline['Infant_Help_O2Bagcmask'] = 'Y';
Label140.Visible := DBPipeline['Infant_Help_O2ETTube'] = 'Y';
Label144.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="3" and infant_id="1" and labordrugname like"Terranmycin »éÒµÒ" ')<>0;
Label146.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="3" and infant_id="1" and labordrugname like"vit K1" ')<>0;
Label148.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="3" and infant_id="1" and labordrugname like"HB vac 0.5 ml." ')<>0;
Label150.Visible := GetSQLintegerData('select count(*) as dd from labor_drug where laborid="'+DBPipeline['laborid'] +'" '+
'and labordrugtype="3" and infant_id="1" and labordrugname like"HBIG 0.5 ml." ')<>0;
if DBPipeline['Note_Effect'] = 'Y' then
begin
Label154.Visible := False;
Label156.Visible := True;
end else
begin
Label154.Visible := True;
Label156.Visible := False;
end ;
end;