ReportBuilder end user function

[manoi]

เนื่องจากในการอบรมการเขียน Report โดยใช้ Report Designer ใน HOSxP ได้มีผู้เรียกร้องให้เพิ่ม Utility function ต่างๆ เป็นจำนวนมาก ผมก็เลยได้ Idea ว่าถ้าให้ผู้ที่ทำ Report จริงๆ จังๆ เขียน Function ที่ต้องการเพิ่มเข้ามาได้เองน่าจะสะดวกและมีประโยชน์มากกว่า ดังนั้นใครที่อยากเพิ่ม Function ต่างๆ เข้าไปในระบบ Rap ของ Report Designer ใน HOSxP สามารถเขียนตามตัวอย่างใน Unit ที่ผมแนบ ได้เลยครับ แล้วผมจะเอามา Compile ใส่ไว้ใน HOSxP นะครับ

[ittipol]

ขอบคุณครับ
มีประโยชน์มากครับ

[LDHP]

เยี่ยมเลยค่ะ ใช้ได้ทั้ง hosxp และ hosxp_pcu ด้วยหรือเปล่าคะ

[manoi]

ใช่ครับ แต่ไม่เห็นมีใครส่ง function เข้ามาเลยครับ

[armds]

ขอคนแรกได้ไหมครับ  อ.mn
ไม่แน่ใจว่าจะได้ไหมนะครับ

//ตัวนี้เอาไว้หาคะแนน  ของผลแลป fbs  ครับ โดยตั้งค่าคงที่ไว้ที่  select sys_value from sys_var where sys_name like"LAB_Criterion_FBS_1"

โค๊ด: Delphi

1. function GetGradelab_fbs(lab_result:string): string;
2. begin
3.   result := '';
4.   if StrToFloat(lab_result) < getsqldata('select sys_value from sys_var where sys_name like"LAB_Criterion_FBS_1" ') then
5.               result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_FBS_1" ')
6.            else if StrToFloat(lab_result) < getsqldata('select sys_value from sys_var where sys_name like"LAB_Criterion_FBS_2" ') then
7.                   result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_FBS_2" ')
8.                 else if StrToFloat(lab_result) < getsqldata('select sys_value from sys_var where sys_name like"LAB_Criterion_FBS_3" ') then
9.                        result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_FBS_3" ')
10.                      else  if StrToFloat(lab_result) < getsqldata('select sys_value from sys_var where sys_name like"LAB_Criterion_FBS_4" ') then
11.                            result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_FBS_4" ')
12.                            else
13.                            result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_FBS_5" ');
14. end;

//ตัวนี้เอาไว้หาคะแนน  ของผลแลป hba1c  ครับ โดยตั้งค่าคงที่ไว้ที่  select sys_value from sys_var where sys_name like"LAB_Criterion_HbA1C_1"

โค๊ด: Delphi

1. function GetGradelab_hba1c(lab_result:string): string;
2. begin
3.   result := '';
4.   if StrToFloat(lab_result) < getsqldata('select sys_value from sys_var where sys_name like"LAB_Criterion_HbA1C_1" ') then
5.             result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_HbA1C_1" ')
6.          else if StrToFloat(lab_result) < getsqldata('select sys_value from sys_var where sys_name like"LAB_Criterion_HbA1C_2" ') then
7.                  result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_HbA1C_2" ')
8.               else  if StrToFloat(lab_result) < getsqldata('select sys_value from sys_var where sys_name like"LAB_Criterion_HbA1C_3" ') then
9.                     result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_HbA1C_3" ')
10.                     else  if StrToFloat(lab_result) < getsqldata('select sys_value from sys_var where sys_name like"LAB_Criterion_HbA1C_4" ') then
11.                           result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_HbA1C_4" ')
12.                           else
13.                           result := getsqldata('select sys_var_guid from sys_var where sys_name like"LAB_Criterion_HbA1C_5" ');
14. end;

// //ตัวนี้เอาไว้หาคะแนน  ของผลแลป bp  ครับ  แต่ค่าคงที่ยัง fix ตายตัวอยู่  ยังหาที่เก็บไว้ไม่ได้ครับ

โค๊ด: Delphi

1. function GetGradebp(bps,bpd:string): string;
2. begin
3.   result := '';
4.  
5.   case strtoint(bps)  of
6.      1..140   : begin
7.                      if strtoint(bpd)<=90 then
8.                      result := '5';
9.                 end;
10.      141..150 : begin
11.                      if strtoint(bpd)<=90 then
12.                      result := '4'
13.                      else if strtoint(bpd)<=95 then
14.                           result := '3';
15.                 end;
16.      151..160 : begin
17.                      if strtoint(bpd)>95  then
18.                      result := '2'
19.                      else
20.                      result := '2';
21.                 end;
22.      161..300 : begin
23.                      if strtoint(bpd)>100  then
24.                      result := '1'
25.                      else
26.                      result := '1';
27.                 end;
28.      else result := '0';
29.   end;
30. end;

[chitvichai]

// //ตัวนี้เอาไว้หาคะแนน  ของผลแลป bp  ครับ  แต่ค่าคงที่ยัง fix ตายตัวอยู่  ยังหาที่เก็บไว้ไม่ได้ครับ

โค๊ด: Delphi

1. function GetGradebp(bps,bpd:string): string;
2. begin
3.   result := '';
4.  
5.   case strtoint(bps)  of
6.      1..140   : begin
7.                      if strtoint(bpd)<=90 then
8.                      result := '5';
9.                 end;
10.      141..150 : begin
11.                      if strtoint(bpd)<=90 then
12.                      result := '4'
13.                      else if strtoint(bpd)<=95 then
14.                           result := '3';
15.                 end;
16.      151..160 : begin
17.                      if strtoint(bpd)>95  then
18.                      result := '2'
19.                      else
20.                      result := '2';
21.                 end;
22.      161..300 : begin
23.                      if strtoint(bpd)>100  then
24.                      result := '1'
25.                      else
26.                      result := '1';
27.                 end;
28.      else result := '0';
29.   end;
30. end;

ช่วยอธิบายความหมายของแต่ละ grade 0-5 หน่อยครับว่าคืออะไร เพราะมีบาง case แบ่ง grade ไม่ได้ครับ
เช่นผู้ป่วย วัด bps 139 bpd 93 result:= ''

[armds]

ช่วยอธิบายความหมายของแต่ละ grade 0-5 หน่อยครับว่าคืออะไร เพราะมีบาง case แบ่ง grade ไม่ได้ครับ
เช่นผู้ป่วย วัด bps 139 bpd 93 result:= ''

อ้อ อันนี้หมอเขาต้องการดู grade ของคนไข้ความดันครับ
ถ้าในกรณี  bps 139 bpd 93 result:= '0'  ผลลัพก็จะได้  0 ครับ
แต่ความหมายในทางการวิเคราะห์ผมก็ไม่ทราบครับ  เขาอยากแบ่งแบบนี้ครับ 
เดี่ยวไปถามพี่พยาบาลก่อนนะครับ

[manoi]

เอาไปใส่ไว้ใน Unit ตามตัวอย่างแฟ้มใน post แรกได้หรืเปล่าครับ

[armds]

เอาไปใส่ไว้ใน Unit ตามตัวอย่างแฟ้มใน post แรกได้หรืเปล่าครับ

ตัวอย่าง  THOSxPRapGetGradelab_fbsFunction  นี้ได้ไหมครับ
ถ้าได้จะได้เพิ่มที่เหลือครับ   

อ้อลืม อีกบรรทัดครับ 
raRegisterFunction('GetGradelab_fbs', THOSxPRapGetGradelab_fbsFunction);
บรรทัดสุดท้าย
แนบไฟล์ใหม่แล้วนะครับ อ.mn

[manoi]

ลบ class ของ function ตัวอย่างออกแล้วแก้ให้เป็น Unit สำหรับ Function นี้ได้เลยครับ ผมลองแก้ให้แล้วครับ แต่ถ้าใครอยากจะใส่ Function ของตัวเอง ก็แก้ตาม Unit นี้ได้ครับ

[manoi]

ผม link unit นี้ให้แล้วนะครับใน 3.55.7.13

[armds]

ผม link unit นี้ให้แล้วนะครับใน 3.55.7.13

เพิ่มอีก 2 ฟังชันครับ  อ.mn   
GetGradelab_hba1c
GetGradebp

[manoi]

เพิ่มให้แล้วครับ 

[armds]

เพิ่มให้แล้วครับ 

เพิ่มเติมครับ อ.mn
GetHOSVariable

อันนี้ไม่ได้เขียนเองครับ  อยู่ใน hosxp  แล้วแต่อยากใช้งานกับรายงานด้วยครับ

[chitvichai]

ช่วยอธิบายความหมายของแต่ละ grade 0-5 หน่อยครับว่าคืออะไร เพราะมีบาง case แบ่ง grade ไม่ได้ครับ
เช่นผู้ป่วย วัด bps 139 bpd 93 result:= ''

อ้อ อันนี้หมอเขาต้องการดู grade ของคนไข้ความดันครับ
ถ้าในกรณี  bps 139 bpd 93 result:= '0'  ผลลัพก็จะได้  0 ครับ
แต่ความหมายในทางการวิเคราะห์ผมก็ไม่ทราบครับ  เขาอยากแบ่งแบบนี้ครับ 
เดี่ยวไปถามพี่พยาบาลก่อนนะครับ

ผมลอง แล้วครับ GetGradebp('139','93');
มัน return value ='' ครับ ไม่ใช่ 0 นะครับ

[armds]

ช่วยอธิบายความหมายของแต่ละ grade 0-5 หน่อยครับว่าคืออะไร เพราะมีบาง case แบ่ง grade ไม่ได้ครับ
เช่นผู้ป่วย วัด bps 139 bpd 93 result:= ''

อ้อ อันนี้หมอเขาต้องการดู grade ของคนไข้ความดันครับ
ถ้าในกรณี  bps 139 bpd 93 result:= '0'  ผลลัพก็จะได้  0 ครับ
แต่ความหมายในทางการวิเคราะห์ผมก็ไม่ทราบครับ  เขาอยากแบ่งแบบนี้ครับ 
เดี่ยวไปถามพี่พยาบาลก่อนนะครับ

ผมลอง แล้วครับ GetGradebp('139','93');
มัน return value ='' ครับ ไม่ใช่ 0 นะครับ

ครับ โอกาสที่ bpd จะเป็น 93 ก็เป็นไปได้  แต่ผลลัพที่ไม่มีในเงื่อนไขก็จะเป็นค่าว่างครับ 
ผมก็เอาค่า returen value = '' หรือ 0 ก็มีความเดียวกันครับ

ประมาณนี้ครับ
function GetGradebp(bps,bpd:string): string;
begin
  result := '';

  case strtoint(bps)  of
     1..140   : begin
                     if strtoint(bpd)<=90 then
                     result := '5'
                     else
                     result := '0';
                end;
     141..150 : begin
                     if strtoint(bpd)<=90 then
                     result := '4'
                     else if strtoint(bpd)<=95 then
                          result := '3'
                          else
                          result := '0';
                end;
     151..160 : begin
                     if strtoint(bpd)>95  then
                     result := '2'
                     else
                     result := '2';
                end;
     161..300 : begin
                     if strtoint(bpd)>100  then
                     result := '1'
                     else
                     result := '1';
                end;
     else result := '0';
  end;
end;