Function

rpcAddToPersonalDxList

Module

UBACore

Last Modified

7/15/2014 3:26:34 PM

Comments

Input example ien^code(s) = 12345^306.70^431.22

Scope

Interfaced

Declaration

function  rpcAddToPersonalDxList(UserDUZ:int64; DxCodes:TStringList):boolean;

Called-By Hierarchy


                                          rpcAddToPersonalDxList
                      TfrmBALocalDiagnoses.AddToPersonalDxList┤ 
                      TfrmBALocalDiagnoses.ProcessAddToItems┘ │ 
                            TfrmBALocalDiagnoses.buOKClick┘   │ 
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList1Click┤ 
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click┤ 
                       TfrmBAOptionsDiagnoses.lbDiagnosisClick┤ 
                             TfrmBAOptionsDiagnoses.btnOKClick┘ 

Called-By

Name Declaration Comments
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList1Click procedure AddDiagnosistoPersonalDiagnosesList1Click(Sender: TObject); -
TfrmBALocalDiagnoses.AddDiagnosistoPersonalDiagnosesList2Click procedure AddDiagnosistoPersonalDiagnosesList2Click(Sender: TObject); -
TfrmBALocalDiagnoses.AddToPersonalDxList procedure AddToPersonalDxList; -
TfrmBAOptionsDiagnoses.btnOKClick procedure btnOKClick(Sender: TObject); -
TfrmBAOptionsDiagnoses.lbDiagnosisClick procedure lbDiagnosisClick(Sender: TObject); -


Source

300   function  rpcAddToPersonalDxList(UserDUZ:int64; DxCodes:TStringList):boolean;
301   //input example ien^code(s) = 12345^306.70^431.22
302   begin
303      Result := (sCallV('ORWDBA2 ADDPDL', [UserDUZ,DxCodes])= '1');
304   end;