Changeset 830 for cprs/trunk/CPRS-Chart/uProbs.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/uProbs.pas (modified) (11 diffs)

cprs/trunk/CPRS-Chart/uProbs.pas

@@ -65 +65 @@
    PtHNC:boolean;
    PtMST:boolean;
+   PtSHAD:boolean;
    constructor Create(Alist:TStringList);
    function GetGMPDFN(dfn:string;name:String):string;
@@ -101 +102 @@
    ServiceList:TStringList;
    constructor create;
-   destructor destroy; override;
+   destructor Destroy; override;
  end;
 
@@ -113 +114 @@
    fModDate:TKeyVal;   {.03}
    fNarrative:TKeyVal; {.05}
-   fEntDate:TKeyVal; { .08}
+   fEntDate:TKeyVal;   { .08}
    fStatus:TKeyVal;    {.12}
    fOnsetDate:TKeyVal; {.13}
    fProblem:TKeyVal;   {1.01}
    fCondition:TKeyVal;  {1.02}
-   fEntBy:TKeyVal;         {1.03}
-   fRecBy:TKeyVal;         {1.04}
+   fEntBy:TKeyVal;      {1.03}
+   fRecBy:TKeyVal;      {1.04}
    fRespProv:TKeyVal;   {1.05}
    fService:TKeyVal;     {1.06}
@@ -132 +133 @@
    fHNC:TKeyVal;          {1.15}
    fMST:TKeyVal;          {1.16}
+   fCV:TKeyVal;           {1.17}  // this is not used  value is always NULL
+   fSHAD:TKeyVal;         {1.18}
    fFieldList:TstringList; {list of fields by name and class (TKeyVal or TComment)}
    fFilerObj:TstringList;
@@ -158 +161 @@
    Function GetMSTProblem:Boolean;
    Procedure SetMSTProblem(value:Boolean);
+   Function GetSHADProblem:Boolean;
+   Procedure SetSHADProblem(value:Boolean);
    function GetStatus:String;
    procedure SetStatus(value:String);
@@ -205 +210 @@
    property HNCProblem:Boolean read GetHNCProblem write SetHNCProblem;
    property MSTProblem:Boolean read GetMSTProblem write SetMSTProblem;
+   property SHADProlem:Boolean read GetSHADProblem write SetSHADProblem;
    property Status:String read GetStatus write SetStatus;
    property Narrative:TKeyVal read fNarrative write SetNarrative;
@@ -329 +335 @@
       7: PtHNC              := (AList[i] = '1');
       8: PtMST              := (AList[i] = '1');
+     //9:CombatVet   Not tracked in Problem list
+      10: PtSHAD             := (AList[i] = '1');
     end;
 end;
@@ -469 +477 @@
   LoadField(fHNC,'1.15','HNC');
   LoadField(fMST,'1.16','MST');
+  LoadField(fMST,'1.17','CV');   // not used at this time
+  LoadField(fSHAD,'1.18','SHD');
   LoadComments;
 end;
@@ -540 +550 @@
   fHNC:=TKeyVal.create;
   fMST:=TKeyVal.create;
+  fCV := TKeyVal.create;
+  fSHAD:=TKeyVal.Create;
   fComments:=TList.create;
 end;
@@ -877 +889 @@
  end;
 
+function TProbrec.GetSHADProblem:boolean;
+begin
+    result := (fSHAD.intern ='1');
+end;
+
+procedure TProbRec.SetSHADProblem(value:boolean);
+begin
+    if value = true then
+      begin
+        fSHAD.intern := '1';
+        fSHAD.extern := 'Yes';
+      end
+    else
+      begin
+        fSHAD.intern := '0';
+        fSHAD.extern := 'No';
+      end;
+end;
+
 function TProbRec.GetStatus:String;
 begin
@@ -1029 +1060 @@
     begin
       fldID := fFieldList[i];                      
-      if pos(u + fldID + u, '^.01^.12^.13^1.01^1.05^1.07^1.08^1.1^1.11^1.12^1.13^1.15^1.16') > 0 then
+      if pos(u + fldID + u, '^.01^.12^.13^1.01^1.05^1.07^1.08^1.1^1.11^1.12^1.13^1.15^1.16^1.18') > 0 then
         {is a field eligible for update}
         begin