01.
<?php
02.
03.
$strWard
= "SELECT a.Ward
04.
FROM [0.0.0.000].DNHOSPITAL_TEST.dbo.HNIPD_BED a
05.
GROUP BY a.Ward
06.
ORDER BY a.Ward ASC";
07.
08.
$strAdmit
= "
09.
SELECT * FROM
10.
(SELECT DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AN,
11.
DNHOSPITAL_TEST.dbo.HNIPD_MASTER.HN,
12.
cast(DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AdmDateTime
as
time)
as
AdmDateTime,
13.
DNHOSPITAL_TEST.dbo.HNIPD_MASTER.DischargeCode,
14.
DNHOSPITAL_TEST.dbo.HNIPD_DOCTOR.Doctor
as
DC,
15.
DNHOSPITAL_TEST.dbo.HNDOCTOR_MASTER.Doctor,
16.
DNHOSPITAL_TEST.dbo.HNDOCTOR_MASTER.LocalName,
17.
DNHOSPITAL_TEST.dbo.HNIPD_BED.HNBedNo,
18.
DNHOSPITAL_TEST.dbo.HNIPD_BED.Ward,
19.
DNHOSPITAL_TEST.dbo.HNIPD_MEMO.RemarksMemo,
20.
DNHOSPITAL_TEST.dbo.HNIPD_RIGHT.RightCode,
21.
DNHOSPITAL_TEST.dbo.HNPAT_NAME.InitialNameCode,
22.
DNHOSPITAL_TEST.dbo.DNSYSCONFIG.LocalName
as
SuffixName,
23.
DNHOSPITAL_TEST.dbo.HNPAT_NAME.FirstName,
24.
DNHOSPITAL_TEST.dbo.HNPAT_NAME.LastName
25.
FROM DNHOSPITAL_TEST.dbo.HNIPD_MASTER
26.
INNER JOIN DNHOSPITAL_TEST.dbo.HNIPD_DOCTOR
27.
ON DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AN = DNHOSPITAL_TEST.dbo.HNIPD_DOCTOR.AN
28.
INNER JOIN DNHOSPITAL_TEST.dbo.HNDOCTOR_MASTER
29.
ON DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AdmDoctor = DNHOSPITAL_TEST.dbo.HNDOCTOR_MASTER.Doctor
30.
INNER JOIN DNHOSPITAL_TEST.dbo.HNIPD_BED
31.
ON DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AN = DNHOSPITAL_TEST.dbo.HNIPD_BED.AN
32.
INNER JOIN DNHOSPITAL_TEST.dbo.HNIPD_MEMO
33.
ON DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AN = DNHOSPITAL_TEST.dbo.HNIPD_MEMO.AN
34.
INNER JOIN DNHOSPITAL_TEST.dbo.HNIPD_RIGHT
35.
ON DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AN = DNHOSPITAL_TEST.dbo.HNIPD_RIGHT.AN
36.
INNER JOIN DNHOSPITAL_TEST.dbo.HNPAT_NAME
37.
ON DNHOSPITAL_TEST.dbo.HNIPD_MASTER.HN = DNHOSPITAL_TEST.dbo.HNPAT_NAME.HN
38.
INNER JOIN DNHOSPITAL_TEST.dbo.DNSYSCONFIG
39.
ON DNHOSPITAL_TEST.dbo.HNPAT_NAME.InitialNameCode = DNHOSPITAL_TEST.dbo.DNSYSCONFIG.code
40.
WHERE year(DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AdmDateTime)=
'".$year."'
41.
AND month(DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AdmDateTime)=
'".$month."'
42.
AND day(DNHOSPITAL_TEST.dbo.HNIPD_MASTER.AdmDateTime)=
'".$date."'
43.
AND DNHOSPITAL_TEST.dbo.DNSYSCONFIG.CtrlCode =
'10241'
) AS AdmitToday
44.
ORDER BY AdmitToday.AdmDateTime ASC ";
45.
46.
$objWard
= odbc_exec(
$conn
,
$strWard
)
or
die
(
"Error SQL ["
.
$strWard
.
"]"
);
47.
while
(
$row
= odbc_fetch_array(
$objWard
))
48.
{
49.
$objAdmit
= odbc_exec(
$conn
,
$strAdmit
)
or
die
(
"Error SQL ["
.
$strAdmit
.
"]"
);
50.
while
(
$ResultAdmit
= odbc_fetch_array (
$objAdmit
))
51.
{
52.
if
(
$row
[
'Ward'
] ==
$ResultAdmit
[
"Ward"
])
53.
{
54.
$Ward
=
$ResultAdmit
[
"Ward"
];
55.
$AdmDateTime
=
$ResultAdmit
[
"AdmDateTime"
];
56.
$AN
=
$ResultAdmit
[
"AN"
];
57.
$HN
=
$ResultAdmit
[
"HN"
];
58.
$HNBedNo
=
$ResultAdmit
[
"HNBedNo"
];
59.
$SuffixName
=
$ResultAdmit
[
"SuffixName"
];
60.
$FirstName
=
$ResultAdmit
[
"FirstName"
];
61.
$LastName
=
$ResultAdmit
[
"LastName"
];
62.
$RemarksMemo
=
$ResultAdmit
[
"RemarksMemo"
];
63.
$NameDoctor
=
$ResultAdmit
[
"LocalName"
];
64.
?>
65.
<tr>
66.
<th scope=
"row"
colspan=
"10"
>WARD <?=
$Ward
?></th>
67.
</tr>
68.
<tr>
69.
<td><?=
$no
?></td>
70.
<td><?=
substr
(
$AdmDateTime
,0,-11)?></td>
71.
<td><?=
$AN
?></td>
72.
<td><?=
$HN
?></td>
73.
<td><?=
$HNBedNo
?></td>
74.
<td
class
=
"text-nowrap"
>
75.
<?=iconv(
'TIS-620'
,
'UTF-8'
,
substr
(
$SuffixName
,1))?>
76.
<?=iconv(
'TIS-620'
,
'UTF-8'
,
substr
(
$FirstName
,1))?>
77.
<?=iconv(
'TIS-620'
,
'UTF-8'
,
substr
(
$LastName
,1))?></td>
78.
<td
class
=
"text-wrap"
><?=iconv(
'TIS-620'
,
'UTF-8'
,
$RemarksMemo
)?></td>
79.
<td>Mark</td>
80.
<td><?=iconv(
'TIS-620'
,
'UTF-8'
,
substr
(
$NameDoctor
,1))?></td>
81.
<td>@DcgType</td>
82.
</tr>
83.
<?php
84.
}
85.
$no
++;
86.
}
87.
echo
'<tr>'
;
88.
echo
'<th scope="row" colspan="10" class="text-center"><B>Total...ราย*</B></th>'
;
89.
echo
'</tr>'
;
90.
}
91.
?>