DBC Dutch System new args.
[openemr.git] / library / api.inc
blob782a2d4cb48b323c7e92096ef7ec33a022de1612
1 <?php\r
2 //our api for 3rd party developers\r
3 include_once("../../globals.php");\r
4 include_once("{$GLOBALS['srcdir']}/sql.inc");\r
5 include_once("{$GLOBALS['srcdir']}/billing.inc");\r
6 \r
7 $GLOBALS['form_exit_url'] = $GLOBALS['concurrent_layout'] ?\r
8         "$rootdir/patient_file/encounter/encounter_top.php" :\r
9         "$rootdir/patient_file/encounter/patient_encounter.php";\r
11 function formHeader ($title = "My Form")\r
12 {\r
13         ?>\r
14         <html>\r
15         <head>\r
16 <? html_header_show();?>\r
17         <link rel=stylesheet href="<?=$GLOBALS['css_header']?>" type="text/css">\r
18         <title><?=$title?></title>\r
19         </head>\r
20         <body background="<?=$GLOBALS['backpic']?>" topmargin=0 rightmargin=0 leftmargin=2 bottommargin=0 marginwidth=2 marginheight=0>\r
21         <?php\r
22 }\r
24 function formFooter ()\r
25 {\r
26         ?>\r
27         </body>\r
28         </form>\r
29         <?php\r
30 }\r
32 function formSubmit ($tableName, $values, $id, $authorized = "0")\r
33 {\r
34         $sql = "insert into $tableName set pid = {$_SESSION['pid']},groupname='".$_SESSION['authProvider']."',user='".$_SESSION['authUser']."',authorized=$authorized,activity=1, date = NOW(),";\r
35         while(list($key, $value) = each($values))\r
36                 if (strpos($key,"openemr_net_cpt") === 0) {\r
37                         //code to auto add cpt code\r
38                         if (!empty($value)) {\r
39                                 $code_array = split(" ",$value,2);\r
40                                 \r
41                                 addBilling(date("Ymd"), 'CPT4', $code_array[0], $code_array[1], $_SESSION['pid'], $authorized, $_SESSION['authUserID']);\r
42                         }\r
43                                         \r
44                 }\r
45                 //case where key looks like "[a-zA-Z]*diagnosis[0-9]" which is special, it is used to auto add ICD codes\r
46                 \r
47                 elseif (strpos($key,"diagnosis") == (strlen($key) -10) && !(strpos($key,"diagnosis")=== false )) {\r
48                         //icd auto add ICD9-CM\r
49                         if (!empty($value)) {\r
50                                 $code_array = split(" ",$value,2);\r
51                                 addBilling(date("Ymd"), 'ICD9-M', $code_array[0], $code_array[1], $_SESSION['pid'], $authorized, $_SESSION['authUserID']);\r
52                         }\r
53                 }\r
54                 else {\r
55                         $sql .= " $key = '$value',";\r
56                 }\r
57         $sql = substr($sql, 0, -1);\r
58         return sqlInsert($sql);\r
59 }\r
62 function formUpdate ($tableName, $values, $id, $authorized = "0")\r
63 {\r
64         $sql = "update $tableName set pid = {$_SESSION['pid']},groupname='".$_SESSION['authProvider']."',user='".$_SESSION['authUser']."',authorized=$authorized,activity=1, date = NOW(),";\r
65         while(list($key, $value) = each($values))\r
66                 $sql .= " $key = '$value',";\r
67         $sql = substr($sql, 0, -1);\r
68         $sql .= " where id=$id";\r
69         \r
70         return sqlInsert($sql);\r
71 }\r
74 function formJump ($address = "0")\r
75 {\r
76         $returnurl = $GLOBALS['concurrent_layout'] ? 'encounter_top.php' : 'patient_encounter.php';\r
77         if ($address == "0")\r
78                 $address = "{$GLOBALS['rootdir']}/patient_file/encounter/$returnurl";\r
79         echo "\n<script language='Javascript'>top.restoreSession();window.location='$address';</script>\n";\r
80         exit;\r
81 }\r
83 function formFetch ($tableName, $id, $cols="*", $activity="1")\r
84 {\r
85         return sqlQuery ( "select $cols from `$tableName` where id='$id' and pid = '{$GLOBALS['pid']}' and activity like '$activity' order by date DESC LIMIT 0,1" ) ;\r
86 }\r
88 function formGetIds ($tableName, $cols = "*", $limit='all', $start=0, $activity = "1")\r
89 {\r
90         if($limit == "all")\r
91         {\r
93                 $sql = "select $cols from `$tableName` where pid like '$pid' ";\r
94                 if ($activity != "all")\r
95                         $sql .= "and activity like '$activity' ";\r
96                 $sql .= "order by date DESC";\r
97         }\r
98         else\r
99         {\r
100                 $sql = "select $cols from pnotes where pid like '$pid' ";\r
101                 if ($activity != "all")\r
102                         $sql .= "and activity like '$activity' ";\r
103                 $sql .= "order by date DESC LIMIT $start, $limit";\r
104         }\r
106         $res = sqlStatement($sql);\r
107         \r
108         for ($iter = 0;$row = sqlFetchArray($res);$iter++)\r
109                 $all[$iter] = $row;\r
110         return $all;\r
113 function formDisappear ($tableName, $id)\r
115         if (sqlStatement("update `$tableName` set activity = '0' where id='$id' and pid='$pid'")) return true;\r
116         return false;\r
119 function formReappear ($tableName, $id)\r
121         if (sqlStatement("update `$tableName` set activity = '1' where id='$id' and pid='$pid'")) return true;\r
122         return false;\r
124 ?>\r