Changeset 793 for cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas

Timestamp:

Jun 10, 2010, 3:13:12 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas (modified) (5 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas

@@ -592 +592 @@
   RPCBrokerV.remoteprocedure := 'TMG GET PATIENT DEMOGRAPHICS';
   RPCBrokerV.param[0].value := Patient.DFN;   RPCBrokerV.param[0].ptype := literal;
-  RPCBrokerV.Call;
-  
+  //RPCBrokerV.Call;
+  CallBroker;
+
   with FServerPatientInfo do begin
     //Store results in a hash table for easier random access
@@ -743 +744 @@
     end;
 
-    RPCBrokerV.Call;
+    //RPCBrokerV.Call;
+    CallBroker;
     if RPCBrokerV.Results.Strings[0]<>'1' then begin
       MessageDlg(RPCBrokerV.Results.Strings[0],mtError,[mbOK],0);
@@ -1463 +1465 @@
       cmd := 'GET ONE RECORD^2^' + IENS;
       RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
-      RPCBrokerV.Call;
+      //RPCBrokerV.Call;
+      CallBroker;
       RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
       //Results[1]='FileNum^IENS^FieldNum^ExtValue^FieldName^DDInfo...
@@ -1642 +1645 @@
     RPCBrokerV.param[0].ptype := list;
     RPCBrokerV.Param[0].Mult['"REQUEST"'] := 'IS WP FIELD^' + FileNum + '^' + FieldNum;
-    RPCBrokerV.Call;
+    //RPCBrokerV.Call;
+    CallBroker;
     RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
     if piece(RPCResult,'^',1)='-1' then begin
@@ -1833 +1837 @@
       cmd := 'GET ONE RECORD^' + FileNum + '^' + IENS;
       RPCBrokerV.Param[0].Mult['"REQUEST"'] := cmd;
-      RPCBrokerV.Call;
+      //RPCBrokerV.Call;
+      CallBroker;
       RPCResult := RPCBrokerV.Results[0];    //returns:  error: -1;  success=1
       if piece(RPCResult,'^',1)='-1' then begin