程序单元间的参数传入

   身份验证（GetPatientForm） 到 划价收费（TMakePriceForm）

    主要是病历号

处方结算窗口的参数传入  case  CBLB.ItemIndex of  --病人类别

    0: gErrstr :=  MakePrice(edtBlh.Text, edtXm.ReadOnly) ;

    1:  gErrstr := PubMakePriceGf(edtBlh.Text, edtXm.ReadOnly) ;

    else

     gErrstr := PubMakePrice(edtBlh.Text, edtXm.ReadOnly,EdtJBMC.Text);

  end;

划价收费（TMakePriceForm） 到 处方结算（RecipeSettlForm）

   病历号，姓名，是否自费，病人类别

处方结算窗口的参数传入RecipeSettl(aBingLiHao,aBingRenXM:string;IsZf:boolean;aBrlb:string)

利用参数读取

  RecipeSettlForm.gBingLiHao:=aBingLiHao;

  RecipeSettlForm.gBingRenXM:=aBingRenXM;

  RecipeSettlForm.gBrlb:=aBrlb;