BMS-HOSxP Community

HOSxP => Development => ข้อความที่เริ่มโดย: doramon ที่ พฤษภาคม 08, 2008, 13:09:30 PM

หัวข้อ: HOSxP 3.51.5.9
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 08, 2008, 13:09:30 PM

HOSxP 3.51.5.9

โค๊ด: SQL

1. Checking STRUCTURE phase 2
2. ALTER TABLE operation_list  ADD `operation_note` text NULL  
3. ALTER TABLE operation_list  ADD `chronic_disease` VARCHAR(250) NULL  
4. ALTER TABLE icd9cm2  MODIFY COLUMN `code`  VARCHAR(9)    
5. ALTER TABLE icd102  MODIFY COLUMN `code`  VARCHAR(9)    
6. ALTER TABLE dttm  MODIFY COLUMN `icd9cm`  VARCHAR(9)  
7. ALTER TABLE dttm  MODIFY COLUMN `icd10`  VARCHAR(9)  
8. Checking STRUCTURE phase 1
9.  
10.  

HOSxP 3.51.5.8  แล้วเปลียนเป็นเก่าวันเดียวกัน

หัวข้อ: Re: HOSxP 3.51.5.8
เริ่มหัวข้อโดย: SrWooD ที่ พฤษภาคม 08, 2008, 13:14:42 PM

มีอะไรใหม่บ้างครับ

 ;D ;D ;D

หัวข้อ: Re: HOSxP 3.51.5.8
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 08, 2008, 13:44:22 PM

tc1:=tclientdataset.create(nil);
  tc2:=tclientdataset.creat?e(nil);
  tc1.data:=hosxp_getdatase?t('select * from patient where hn = "'+hnedit.text+'"');
  tc2.data:=hosxp_getdatase?t('select * from person where cid = "'+cid+'"  and cid is not null and cid<>""');

  tc2.append;
  tc2.fieldbyname('person_i?d').asinteger:=getserialnumber('p?erson_id');
  tc2.fieldbyname('house_id'?).asinteger:=house_id;
  tc2.fieldbyname('cid').as?string:=cid;
  tc2.fieldbyname('pname').?asstring:=tc1.fieldbyname('pname'?).asstring;
  tc2.fieldbyname('fname').?asstring:=tc1.fieldbyname('fname'?).asstring;
  tc2.fieldbyname('lname').?asstring:=tc1.fieldbyname('lname'?).asstring;
  tc2.fieldbyname('sex').as?string:=tc1.fieldbyname('sex').as?string;
  tc2.fieldbyname('birthdat?e').asdatetime:=tc1.fieldbyname('?birthday').asdatetime;
  tc2.fieldbyname('occupati?on').asstring:=tc1.fieldbyname('o?ccupation').asstring;
  tc2.fieldbyname('national?ity').asstring:=tc1.fieldbyname('?nationality').asstring;
  tc2.fieldbyname('citizens?hip').asstring:=tc1.fieldbyname('?citizenship').asstring;
  tc2.fieldbyname('religion'?).asstring:=tc1.fieldbyname('reli?gion').asstring;
  tc2.fieldbyname('marrysta?tus').asstring:=tc1.fieldbyname('?marrystatus').asstring;
  tc2.fieldbyname('pttype')?.asstring:=tc1.fieldbyname('pttyp?e').asstring;
  tc2.post;

  hosxp_updatedelta(tc2.del?ta, 'select * from person where cid = "'+cid+'"  and cid is not null and cid<>""');

  tc2.free;
  tc1.free;

หัวข้อ: Re: HOSxP 3.51.5.9
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 09, 2008, 02:04:25 AM

 ;D  3.51.5.9 ออกมาติดติด