001.<?php
002.
003.require_once("lib/nusoap.php");
004.
005.
006.$server = new soap_server();
007.$objConnect = mssql_connect("ITUCHKUB-PC", "sa", "aa") or die("Error Connect to Database");
008.$objDB = mssql_select_db("Medical_Records");
009.
011.$server->wsdl->schemaTargetNamespace = $namespace;
012.
013.
014.$server->configureWSDL("HelloWorld");
015.
016.
017.
018.
019.
020.$BorrowOPD = array(
021. 'HN' => "xsd:string",
022. 'department' => "xsd:string",
023. 'check_R,' => "xsd:string",
024. 'name_B,' => "xsd:string",
025. 'position_b,' => "xsd:string",
026.);
027.
028.$ReturnOPD = array(
029. 'HN' => "xsd:string",
030. 'name_r,' => "xsd:string",
031. 'position_r,' => "xsd:string",
032.);
033.
034.$server->register('BorrowOPD', $BorrowOPD, array('return' => 'xsd:string'));
035.$server->register('ReturnOPD', $ReturnOPD, array('return' => 'xsd:string'));
036.
037.function BorrowOPD($HN, $department, $check_R, $name_B, $position_b) {
038.
039.
040.
041. $strSQL = "SELECT [HN],[FIRSTNAME],[LASTNAME] FROM PATIENT_NAME WHERE HN = '$HN'";
042.
043. $objQuery = @mssql_query($strSQL);
044. $objSelect = @mssql_fetch_array($objQuery);
045.
046.
047.
048.
049. if (!$objSelect) {
050. $state = "not found";
051. } else {
052.
053. $Tim = date("H:i");
054. $da = date("d/m/Y");
055.
056. $strSQL2 = "SELECT * FROM OPD_LogBR WHERE HN = '$HN' AND date_R IS NULL";
057. $objQuery2 = @mssql_query($strSQL2);
058. $objSelect2 = @mssql_fetch_array($objQuery2);
059.
060. if (!$objSelect2) {
061.
062.
063. $HN = "$objSelect[HN]";
064. $name = "$objSelect[FIRSTNAME]";
065. $sername = "$objSelect[LASTNAME]";
066. $Tim = date("H:i");
067. $da = date("d/m/Y");
068.
069.
070. $strSQL = "INSERT INTO OPD_LogBR (HN,name,sername,department,check_R,date_b,time_b,name_borrow,position_b) VALUES ('$HN','$name','$sername','$department','$check_R','$da','$Tim','$name_B','$position_b')";
071. $objInsert = @mssql_query($strSQL);
072.
073. $state = "Record inserted";
074. } else {
075. $state = "Record already";
076. }
077. }
078.
079. return $state;
080.}
081.
082.function ReturnOPD($HN, $name_R, $position_R) {
083.
084. $strSQL = "SELECT * FROM OPD_LogBR WHERE HN = '$HN' AND date_R IS NULL";
085. $objQuery = @mssql_query($strSQL);
086. $objSelect = @mssql_fetch_array($objQuery);
087.
088.
089. if (!$objSelect) {
090. $state = "not found";
091. } else {
092.
093.
094. $Tim = date("H:i");
095. $da = date("d/m/Y");
096.
097.
098. $strSQL2 = "UPDATE OPD_LogBR SET date_r='$da',time_r='$Tim',name_return='$name_R',position_r='$position_R' WHERE HN = '$HN'";
099. $objUpdate = @mssql_query($strSQL2);
100.
101. $state = "Record Update";
102. }
103.
104.
105. return $state;
106.}
107.
108.
109.
110.$POST_DATA = isset($GLOBALS['HTTP_RAW_POST_DATA']) ? $GLOBALS['HTTP_RAW_POST_DATA'] : '';
111.
112.
113.$server->service($POST_DATA);
114.exit();
115.?>
