Procedure

FormatLCtoWCDisplayTextOnAccept

Module

rODLab

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure FormatLCtoWCDisplayTextOnAccept(InputList, OutputList: TStrings);

Calls Hierarchy


FormatLCtoWCDisplayTextOnAccept
 └GetLCtoWCInstructions

Called-By Hierarchy


   FormatLCtoWCDisplayTextOnAccept
CheckForChangeFromLCtoWCOnAccept┘ 
TfrmODLab.DisplayChangedOrders┘   
          TfrmODLab.Validate┘     

Calls

Name Declaration Comments
GetLCtoWCInstructions function GetLCtoWCInstructions(Alocation: integer): string; -

Called-By

Name Declaration Comments
CheckForChangeFromLCtoWCOnAccept procedure CheckForChangeFromLCtoWCOnAccept(Dest: TStrings; ALocation: integer; AStartDate, ACollType, ASchedule, ADuration: string); -


Source

253   procedure FormatLCtoWCDisplayTextOnAccept(InputList, OutputList: TStrings);
254   var
255     i: integer;
256     x: string;
257   begin
258     OutputList.Clear;
259     for i := InputList.Count - 1 downto 0 do
260       if Piece(InputList[i], U, 2) = '1' then InputList.Delete(i);
261     if InputList.Count > 0 then
262     begin
263       SetListFMDateTime('mmm dd, yyyy@hh:nn', TStringList(InputList), U, 1);
264       with OutputList do
265       begin
266         Add(TX0);
267         Add(TX_BLANK);
268         Add('Patient :' + #9 + Patient.Name);
269         Add('SSN     :' + #9 + Patient.SSN);
270         Add('Location:' + #9 + Encounter.LocationName + CRLF);
271         for i := 0 to InputList.Count - 1 do
272           Add(Piece(InputList[i], U, 1) + #9 + Piece(InputList[i], U, 3));
273         Add(TX_BLANK);
274         x := GetLCtoWCInstructions(Encounter.Location);
275         if x = '' then x := TX5;
276         Add(x);
277         Add(TX6);
278       end;
279     end;
280   end;