Changeset 1693 for cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults/rConsults.pas

Timestamp:

May 8, 2015, 7:52:55 AM (10 years ago)

Author:

healthsevak

Message:

Committing the files for first time to this new branch

File:

• cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults/rConsults.pas (modified) (5 diffs)

cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults/rConsults.pas

@@ -96 +96 @@
 function GetServicePrerequisites(Service: string): TStrings;
 procedure GetProvDxMode(var ProvDx: TProvisionalDiagnosis; SvcIEN: string);
+function IsProstheticsService(SvcIen: int64) : string;
 
 { Clinical Procedures Specific}
@@ -354 +355 @@
       Findings              := Piece(x, U, 19)  ;
       TIUResultNarrative    := StrToIntDef(Piece(x, U, 20),0);
+      EarliestDate          := StrToFloatDef(Piece(x, U, 98), 0);
+      //LatestDate            := StrToFloatDef(Piece(x, U, 99), 0); //dropped requirement WAT
       //ProvDiagnosis         := Piece(x, U, 23);  NO!!!!! Up to 180 Characters!!!!
       alist.delete(0) ;
@@ -668 +671 @@
          Urgency         := StrToIntDef(Piece(ExtractDefault(Dest, 'URGENCY'), U, 3), 0);
          UrgencyName     := Piece(ExtractDefault(Dest, 'URGENCY'), U, 2);
+         EarliestDate    := StrToFloatDef(Piece(ExtractDefault(Dest, 'EARLIEST'), U, 2), 0);
+         //LatestDate      := StrToFloatDef(Piece(ExtractDefault(Dest, 'LATEST'), U, 2), 0); //dropped requirement WAT
          Place           := Piece(ExtractDefault(Dest, 'PLACE'), U, 1);
          PlaceName       := Piece(ExtractDefault(Dest, 'PLACE'), U, 2);
@@ -734 +739 @@
                 Mult['10,' + IntToStr(i+1)] := NewComments.Strings[i];
             end;
+          if EarliestDate > 0 then
+             Mult['11']  := 'GMRCERDT^'  + FloatToStr(EarliestDate);  //wat renamed v28
+          {if LatestDate > 0 then
+             Mult['12']  := 'GMRCLATE^'  + FloatToStr(LatestDate);} //dropped requirement WAT
         end;
       CallBroker;
@@ -836 +845 @@
 end;
 
+function IsProstheticsService(SvcIen : int64) : string;  //wat v28
+ begin
+   Result := sCallV('ORQQCN ISPROSVC', [SvcIen]);
+ end;
+
 initialization
   uLastOrderedIEN := 0;