Changeset 830 for cprs/trunk/CPRS-Chart/fProbEdt.pas
- Timestamp:
- Jul 7, 2010, 4:51:54 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/fProbEdt.pas
r456 r830 6 6 SysUtils, windows, Messages, Classes, Graphics, Controls, 7 7 Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, 8 ORCtrls, Vawrgrid, uCore, Menus, uConst; 8 ORCtrls, Vawrgrid, uCore, Menus, uConst, fBase508Form, 9 VA508AccessibilityManager; 9 10 10 11 const … … 12 13 13 14 type 14 TfrmdlgProb = class(T Form)15 TfrmdlgProb = class(TfrmBase508Form) 15 16 Label1: TLabel; 16 17 Label5: TLabel; … … 43 44 ckHNC: TCheckBox; 44 45 ckMST: TCheckBox; 46 ckSHAD: TCheckBox; 45 47 ckVerify: TCheckBox; 46 48 edRecDate: TCaptionEdit; … … 128 130 {$R *.DFM} 129 131 130 uses ORFn, uProbs, fProbs, rProbs, fCover, rCover, rCore, fProbCmt, fProbLex, rPCE, uInit ; 132 uses ORFn, uProbs, fProbs, rProbs, fCover, rCover, rCore, fProbCmt, fProbLex, rPCE, uInit , 133 VA508AccessibilityRouter; 131 134 132 135 type … … 247 250 ckHNC.enabled := false; 248 251 ckMST.enabled := false; 252 ckSHAD.enabled := false; 249 253 if Reason = 'R' then bbFile.caption := 'Remove'; 250 254 end; … … 260 264 begin {edit,remove or display existing problem} 261 265 problemIFN := Piece(subjProb, u, 1); 262 //AList.Assign(EditLoad(ProblemIFN,pProviderID,PLPt.ptVAMC)) ; 263 AList.Assign(EditLoad(ProblemIFN,User.DUZ,PLPt.ptVAMC)) ; //V17.5 RV 266 FastAssign(EditLoad(ProblemIFN, User.DUZ, PLPt.ptVAMC), AList) ; //V17.5 RV 264 267 end 265 268 else {new problem} … … 312 315 ckHNC.enabled := PtHNC ; 313 316 ckMST.enabled := PtMST ; 317 ckSHAD.Enabled := PtSHAD; 314 318 ckAO.checked := Probrec.AOProblem and PtAgentOrange; 315 319 ckRAD.checked := Probrec.RADProblem and PtRadiation; … … 317 321 ckHNC.checked := Probrec.HNCProblem and PtHNC; 318 322 ckMST.checked := Probrec.MSTProblem and PtMST; 323 ckSHAD.Checked := Probrec.SHADProlem and PtSHAD; 319 324 end ; 320 325 cbProv.InitLongList(ProbRec.RespProvider.extern) ; … … 511 516 if ckHNC.enabled then ProbRec.HNCProblem := ckHNC.Checked; 512 517 if ckMST.enabled then ProbRec.MSTProblem := ckMST.Checked; 518 if ckSHAD.Enabled then ProbRec.SHADProlem := ckSHAD.Checked; 513 519 if cbProv.itemindex = -1 then {Get provider} 514 520 begin … … 539 545 ut := ''; 540 546 if PLUser.usPrimeUser then ut := '1'; 541 //AList.Assign(EditSave(ProblemIFN,pProviderID,PLPt.ptVAMC,ut,ProbRec.FilerObject)) ; 542 AList.Assign(EditSave(ProblemIFN,User.DUZ,PLPt.ptVAMC,ut,ProbRec.FilerObject)) ; //V17.5 RV 547 FastAssign(EditSave(ProblemIFN, User.DUZ, PLPt.ptVAMC, ut, ProbRec.FilerObject), AList) ; //V17.5 RV 543 548 end; 544 549 'A','a': {new problem} 545 AList.Assign(AddSave(PLPt.GetGMPDFN(Patient.DFN, Patient.Name),546 pProviderID, PLPt.ptVAMC,ProbRec.FilerObject)) ; //*DFN*550 FastAssign(AddSave(PLPt.GetGMPDFN(Patient.DFN, Patient.Name), 551 pProviderID, PLPt.ptVAMC, ProbRec.FilerObject), AList) ; //*DFN* 547 552 'R','r': {remove problem} 548 553 begin … … 551 556 if TComment(Probrec.comments[pred(probrec.commentcount)]).IsNew then 552 557 remcom := TComment(Probrec.comments[pred(probrec.commentcount)]).Narrative; 553 AList.Assign(ProblemDelete(ProbRec.PIFN,User.DUZ,PLPt.ptVAMC,remcom)) ; //changed in v14 554 //AList.Assign(ProblemDelete(ProbRec.PIFN,Encounter.Provider,PLPt.ptVAMC,remcom)) ; 558 FastAssign(ProblemDelete(ProbRec.PIFN, User.DUZ, PLPt.ptVAMC, remcom), AList) ; //changed in v14 555 559 end 556 560 else exit; … … 715 719 alist.add('NEW' + v + '1.12' + v + '0' + u + 'NO'); {RAD} 716 720 alist.add('NEW' + v + '1.13' + v + '0' + u + 'NO'); {ENV} 717 alist.add('NEW' + v + '1.14' + v + ''); 721 alist.add('NEW' + v + '1.14' + v + '0' + u + 'NO'); {SHD} 722 alist.add('NEW' + v + '1.15' + v + ''); 718 723 end; 719 724 … … 808 813 alist := TstringList.create; 809 814 try 810 AList.Assign(ProviderList('',25,V,V)) ;815 FastAssign(ProviderList('', 25, V, V), AList) ; 811 816 if alist.count > 0 then 812 817 begin … … 831 836 alist := TstringList.create; 832 837 try 833 AList.Assign(ClinicSearch(' ')) ;834 if alist.count > 0 then cbLoc.Items.assign(Alist);838 FastAssign(ClinicSearch(' '), AList) ; 839 if alist.count > 0 then FastAssign(Alist, cbLoc.Items); 835 840 finally 836 841 alist.free; … … 1003 1008 end; 1004 1009 1010 initialization 1011 SpecifyFormIsNotADialog(TfrmdlgProb); 1012 1005 1013 end.
Note:
See TracChangeset
for help on using the changeset viewer.