/library/freeb/Procedure.class.php

https://github.com/md-tech/openemr · PHP · 1418 lines · 990 code · 230 blank · 198 comment · 187 complexity · 1c9b40d5735f75b149cd02728b6e397a MD5 · raw file 

    

  1. <?php
    2. 

  2. require_once("DataObjectBase.class.php");
    3. 

  3. require_once("xmlrpc.inc");
    4. 

  4. class Procedure Extends DataObjectBase {
    5. 

  5. 

  6. 	function Procedure($xuser) {
    7. 

  7. 		parent::DataObjectBase($xuser);
    8. 

  8. 		$this->_addFunc("isusingclearinghouse",		array(	"name"	=>	"FreeB.FBProcedure.isUsingClearingHouse",
    9. 

  9. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    10. 

  10. 															"doc"	=>	""));
    11. 

  11. 		$this->_addFunc("cpt4code",					array(	"name"	=>	"FreeB.FBProcedure.CPT4Code",
    12. 

  12. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    13. 

  13. 															"doc"	=>	""));
    14. 

  14. 		$this->_addFunc("cpt5code",					array(	"name"	=>	"FreeB.FBProcedure.CPT5Code",
    15. 

  15. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    16. 

  16. 															"doc"	=>	""));
    17. 

  17. 		$this->_addFunc("cptunits",					array(	"name"	=>	"FreeB.FBProcedure.CPTUnits",
    18. 

  18. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    19. 

  19. 															"doc"	=>	""));
    20. 

  20. 		$this->_addFunc("cptmodifier",				array(	"name"	=>	"FreeB.FBProcedure.CPTModifier",
    21. 

  21. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    22. 

  22. 															"doc"	=>	""));
    23. 

  23. 		$this->_addFunc("cptcharges",				array(	"name"	=>	"FreeB.FBProcedure.CPTCharges",
    24. 

  24. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    25. 

  25. 															"doc"	=>	""));
    26. 

  26. 		$this->_addFunc("cptemergency",				array(	"name"	=>	"FreeB.FBProcedure.CPTEmergency",
    27. 

  27. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    28. 

  28. 															"doc"	=>	""));
    29. 

  29. 		$this->_addFunc("cptcob",					array(	"name"	=>	"FreeB.FBProcedure.CPTCOB",
    30. 

  30. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    31. 

  31. 															"doc"	=>	""));
    32. 

  32. 		$this->_addFunc("cptepsdt",					array(	"name"	=>	"FreeB.FBProcedure.CPTEPSDT",
    33. 

  33. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    34. 

  34. 															"doc"	=>	""));
    35. 

  35. 		$this->_addFunc("amountpaid",				array(	"name"	=>	"FreeB.FBProcedure.AmountPaid",
    36. 

  36. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCARRAY),
    37. 

  37. 															"doc"	=>	""));
    38. 

  38. 		$this->_addFunc("typeofservice",			array(	"name"	=>	"FreeB.FBProcedure.TypeOfService",
    39. 

  39. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    40. 

  40. 															"doc"	=>	""));
    41. 

  41. 		$this->_addFunc("priorauth",				array(	"name"	=>	"FreeB.FBProcedure.PriorAuth",
    42. 

  42. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    43. 

  43. 															"doc"	=>	""));
    44. 

  44. 		$this->_addFunc("dateofservicestart",		array(	"name"	=>	"FreeB.FBProcedure.DateOfServiceStart",
    45. 

  45. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    46. 

  46. 															"doc"	=>	""));
    47. 

  47. 		$this->_addFunc("dateofserviceend",			array(	"name"	=>	"FreeB.FBProcedure.DateOfServiceEnd",
    48. 

  48. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    49. 

  49. 															"doc"	=>	""));
    50. 

  50. 		$this->_addFunc("dateofhospitalstart",		array(	"name"	=>	"FreeB.FBProcedure.DateOfHospitalStart",
    51. 

  51. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    52. 

  52. 															"doc"	=>	""));
    53. 

  53. 		$this->_addFunc("ishospitalized",			array(	"name"	=>	"FreeB.FBProcedure.isHospitalized",
    54. 

  54. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    55. 

  55. 															"doc"	=>	""));
    56. 

  56. 		$this->_addFunc("isoutsidelab",				array(	"name"	=>	"FreeB.FBProcedure.isOutsideLab",
    57. 

  57. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    58. 

  58. 															"doc"	=>	""));
    59. 

  59. 		$this->_addFunc("outsidelabcharges",		array(	"name"	=>	"FreeB.FBProcedure.OutsideLabCharges",
    60. 

  60. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    61. 

  61. 															"doc"	=>	""));
    62. 

  62. 		$this->_addFunc("dateofhospitalend",		array(	"name"	=>	"FreeB.FBProcedure.DateOfHospitalEnd",
    63. 

  63. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    64. 

  64. 															"doc"	=>	""));
    65. 

  65. 		$this->_addFunc("medicaidresubmissioncode",	array(	"name"	=>	"FreeB.FBProcedure.MedicaidResubmissionCode",
    66. 

  66. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    67. 

  67. 															"doc"	=>	""));
    68. 

  68. 		$this->_addFunc("medicaidoriginalreference",array(	"name"	=>	"FreeB.FBProcedure.MedicaidOriginalReference",
    69. 

  69. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    70. 

  70. 															"doc"	=>	""));
    71. 

  71. 		$this->_addFunc("weightgrams",				array(	"name"	=>	"FreeB.FBProcedure.WeightGrams",
    72. 

  72. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT,XMLRPCSTRING),
    73. 

  73. 															"doc"	=>	""));
    74. 

  74. 		$this->_addFunc("weightpounds",				array(	"name"	=>	"FreeB.FBProcedure.WeightPounds",
    75. 

  75. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    76. 

  76. 															"doc"	=>	""));
    77. 

  77. 		$this->_addFunc("hcfalocaluse10d",			array(	"name"	=>	"FreeB.FBProcedure.HCFALocalUse10d",
    78. 

  78. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    79. 

  79. 															"doc"	=>	""));
    80. 

  80. 		$this->_addFunc("hcfalocaluse19",	array(	"name"	=>	"FreeB.FBProcedure.HCFALocalUse19",
    81. 

  81. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    82. 

  82. 															"doc"	=>	""));
    83. 

  83. 		$this->_addFunc("procarray", 		array(	"name"	=>	"FreeB.FBProcedure.ProcArray",
    84. 

  84. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCSTRING),
    85. 

  85. 															"doc"	=>	""));
    86. 

  86. 		$this->_addFunc("diagarray", 		array(	"name"	=>	"FreeB.FBProcedure.DiagArray",
    87. 

  87. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    88. 

  88. 															"doc"	=>	""));
    89. 

  89. 		$this->_addFunc("patientkey",		array(	"name"	=>	"FreeB.FBProcedure.PatientKey",
    90. 

  90. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    91. 

  91. 															"doc"	=>	""));
    92. 

  92. 		$this->_addFunc("practicekey",		array(	"name"	=>	"FreeB.FBProcedure.PracticeKey",
    93. 

  93. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    94. 

  94. 															"doc"	=>	""));
    95. 

  95. 		$this->_addFunc("providerkey",		array(	"name"	=>	"FreeB.FBProcedure.ProviderKey",
    96. 

  96. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    97. 

  97. 															"doc"	=>	""));
    98. 

  98. 		$this->_addFunc("referringproviderkey",	array(	"name"	=>	"FreeB.FBPatient.ReferringProviderKey",
    99. 

  99. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    100. 

  100. 															"doc"	=>	""));
    101. 

  101. 		$this->_addFunc("insuredkey",		array(	"name"	=>	"FreeB.FBProcedure.InsuredKey",
    102. 

  102. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    103. 

  103. 															"doc"	=>	""));
    104. 

  104. 		$this->_addFunc("otherinsuredkey",	array(	"name"	=>	"FreeB.FBProcedure.OtherInsuredKey",
    105. 

  105. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    106. 

  106. 															"doc"	=>	""));
    107. 

  107. 		$this->_addFunc("payerkey", 		array(	"name"	=>	"FreeB.FBProcedure.PayerKey",
    108. 

  108. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    109. 

  109. 															"doc"	=>	""));
    110. 

  110. 		$this->_addFunc("secondpayerkey", 	array(	"name"	=>	"FreeB.FBProcedure.SecondPayerKey",
    111. 

  111. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    112. 

  112. 															"doc"	=>	""));
    113. 

  113. 		$this->_addFunc("facilitykey", 		array(	"name"	=>	"FreeB.FBProcedure.FacilityKey",
    114. 

  114. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    115. 

  115. 															"doc"	=>	""));
    116. 

  116. 		$this->_addFunc("billingcontactkey",array(	"name"	=>	"FreeB.FBProcedure.BillingContactKey",
    117. 

  117. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    118. 

  118. 															"doc"	=>	""));
    119. 

  119. 		$this->_addFunc("billingservicekey",array(	"name"	=>	"FreeB.FBProcedure.BillingServiceKey",
    120. 

  120. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    121. 

  121. 															"doc"	=>	""));
    122. 

  122. 		$this->_addFunc("isusingbillingservice",array("name"	=>	"FreeB.FBProcedure.isUsingBillingService",
    123. 

  123. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    124. 

  124. 															"doc"	=>	""));
    125. 

  125. 		$this->_addFunc("clearinghousekey", array(	"name"	=>	"FreeB.FBProcedure.ClearingHouseKey",
    126. 

  126. 															"sig"	=>	array(XMLRPCSTRING,XMLRPCINT),
    127. 

  127. 															"doc"	=>	""));
    128. 

  128. 		$this->_addFunc("ndcline",					array("name" => "FreeB.FBProcedure.NDCLine",
    129. 

  129. 															"sig" => array(XMLRPCSTRING,XMLRPCINT),
    130. 

  130. 															"doc" => ""));
    131. 

  131. 

  132. 	}
    133. 

  133. 

  134. 	function isusingclearinghouse($m) {
    135. 

  135. 

  136. 		$err="";
    137. 

  137. 

  138. 		$retval = false;
    139. 

  139. 

  140. 		// if we generated an error, create an error return response
    141. 

  141. 		if ($err) {
    142. 

  142. 			return $this->_handleError($err);
    143. 

  143. 		}
    144. 

  144.   		else {
    145. 

  145. 			// otherwise, we create the right response
    146. 

  146. 			// with the state name
    147. 

  147. 			return new xmlrpcresp(new xmlrpcval($retval,"i4"));
    148. 

  148. 		}
    149. 

  149. 	}
    150. 

  150. 

  151. 	function cpt4code($m) {
    152. 

  152. 

  153. 		$err="";
    154. 

  154. 		$retval = "";
    155. 

  155. 		$obj= $m->getparam(0);
    156. 

  156. 		$key = $obj->getval();
    157. 

  157. 

  158. 		$sql = "SELECT * FROM billing where id = '" . $key . "'";
    159. 

  159. 		//echo $sql;
    160. 

  160. 		$db = $GLOBALS['adodb']['db'];
    161. 

  161. 		$results = $db->Execute($sql);
    162. 

  162. 

  163. 		if (!$results) {
    164. 

  164. 			$err = $db->ErrorMsg();
    165. 

  165. 		}
    166. 

  166. 		else {
    167. 

  167. 			if (!$results->EOF) {
    168. 

  168. 				$retval = $results->fields['code'];
    169. 

  169. 			}
    170. 

  170. 		}
    171. 

  171. 

  172. 		// if we generated an error, create an error return response
    173. 

  173. 		if ($err) {
    174. 

  174. 			return $this->_handleError($err);
    175. 

  175. 		}
    176. 

  176.   		else {
    177. 

  177. 			// otherwise, we create the right response
    178. 

  178. 			// with the state name
    179. 

  179. 			return new xmlrpcresp(new xmlrpcval($retval,"string"));
    180. 

  180. 		}
    181. 

  181. 	}
    182. 

  182. 

  183. 	function cpt5code($m) {
    184. 

  184. 

  185. 		$err="";
    186. 

  186. 

  187. 		$pkey = false;
    188. 

  188. 

  189. 		// if we generated an error, create an error return response
    190. 

  190. 		if ($err) {
    191. 

  191. 			return $this->_handleError($err);
    192. 

  192. 		}
    193. 

  193.   		else {
    194. 

  194. 			// otherwise, we create the right response
    195. 

  195. 			// with the state name
    196. 

  196. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    197. 

  197. 		}
    198. 

  198. 	}
    199. 

  199. 

  200. 	function cptunits($m) {
    201. 

  201. 

  202. 		$err="";
    203. 

  203. 		$retval = "";
    204. 

  204. 		$obj= $m->getparam(0);
    205. 

  205. 		$key = $obj->getval();
    206. 

  206. 

  207. 		$sql = "SELECT * FROM billing where id = '" . $key . "'";
    208. 

  208. 		//echo $sql;
    209. 

  209. 		$db = $GLOBALS['adodb']['db'];
    210. 

  210. 		$results = $db->Execute($sql);
    211. 

  211. 

  212. 		if (!$results) {
    213. 

  213. 			$err = $db->ErrorMsg();
    214. 

  214. 		}
    215. 

  215. 		else {
    216. 

  216. 			if (!$results->EOF) {
    217. 

  217. 				$retval = $results->fields['units'];
    218. 

  218. 			}
    219. 

  219. 		}
    220. 

  220. 

  221. 		if (empty ($retval) || $retval < 1) {
    222. 

  222. 			$retval = 1;
    223. 

  223. 		}
    224. 

  224. 

  225. 		// if we generated an error, create an error return response
    226. 

  226. 		if ($err) {
    227. 

  227. 			return $this->_handleError($err);
    228. 

  228. 		}
    229. 

  229.   		else {
    230. 

  230. 			// otherwise, we create the right response
    231. 

  231. 			// with the state name
    232. 

  232. 			return new xmlrpcresp(new xmlrpcval($retval,"string"));
    233. 

  233. 		}
    234. 

  234. 	}
    235. 

  235. 

  236. 

  237. 	function cptmodifier($m) {
    238. 

  238. 

  239. 		$err="";
    240. 

  240. 		$retval = "";
    241. 

  241. 		$obj= $m->getparam(0);
    242. 

  242. 		$key = $obj->getval();
    243. 

  243. 

  244. 		$sql = "SELECT * FROM billing where id = '" . $key . "'";
    245. 

  245. 		//echo $sql;
    246. 

  246. 		$db = $GLOBALS['adodb']['db'];
    247. 

  247. 		$results = $db->Execute($sql);
    248. 

  248. 

  249. 		if (!$results) {
    250. 

  250. 			$err = $db->ErrorMsg();
    251. 

  251. 		}
    252. 

  252. 		else {
    253. 

  253. 			if (!$results->EOF) {
    254. 

  254. 				$retval = $results->fields['modifier'];
    255. 

  255. 			}
    256. 

  256. 		}
    257. 

  257. 

  258. 		// if we generated an error, create an error return response
    259. 

  259. 		if ($err) {
    260. 

  260. 			return $this->_handleError($err);
    261. 

  261. 		}
    262. 

  262.   		else {
    263. 

  263. 			// otherwise, we create the right response
    264. 

  264. 			// with the state name
    265. 

  265. 			return new xmlrpcresp(new xmlrpcval($retval,"string"));
    266. 

  266. 		}
    267. 

  267. 	}
    268. 

  268. 

  269. 

  270. 	function cptcharges($m) {
    271. 

  271. 

  272. 		$err="";
    273. 

  273. 

  274. 		$obj= $m->getparam(0);
    275. 

  275. 		$key = $obj->getval();
    276. 

  276. 

  277. 		$sql = "SELECT * FROM billing where id = '" . $key . "'";
    278. 

  278. 		//echo $sql;
    279. 

  279. 		$db = $GLOBALS['adodb']['db'];
    280. 

  280. 		$results = $db->Execute($sql);
    281. 

  281. 

  282. 		if (!$results) {
    283. 

  283. 			$err = $db->ErrorMsg();
    284. 

  284. 		}
    285. 

  285. 		else {
    286. 

  286. 			if (!$results->EOF) {
    287. 

  287. 				$retval = $results->fields['fee'];
    288. 

  288. 			}
    289. 

  289. 		}
    290. 

  290. 

  291. 		// if we generated an error, create an error return response
    292. 

  292. 		if ($err) {
    293. 

  293. 			return $this->_handleError($err);
    294. 

  294. 		}
    295. 

  295.   		else {
    296. 

  296. 			// otherwise, we create the right response
    297. 

  297. 			// with the state name
    298. 

  298. 			return new xmlrpcresp(new xmlrpcval($retval,"double"));
    299. 

  299. 		}
    300. 

  300. 	}
    301. 

  301. 

  302. 	function cptemergency($m) {
    303. 

  303. 

  304. 		$err="";
    305. 

  305. 

  306. 		$pkey = "";
    307. 

  307. 

  308. 		// if we generated an error, create an error return response
    309. 

  309. 		if ($err) {
    310. 

  310. 			return $this->_handleError($err);
    311. 

  311. 		}
    312. 

  312.   		else {
    313. 

  313. 			// otherwise, we create the right response
    314. 

  314. 			// with the state name
    315. 

  315. 			return new xmlrpcresp(new xmlrpcval($pkey));
    316. 

  316. 		}
    317. 

  317. 	}
    318. 

  318. 

  319. 	function cptcob($m) {
    320. 

  320. 

  321. 		$err="";
    322. 

  322. 

  323. 		$pkey = "";
    324. 

  324. 

  325. 		// if we generated an error, create an error return response
    326. 

  326. 		if ($err) {
    327. 

  327. 			return $this->_handleError($err);
    328. 

  328. 		}
    329. 

  329.   		else {
    330. 

  330. 			// otherwise, we create the right response
    331. 

  331. 			// with the state name
    332. 

  332. 			return new xmlrpcresp(new xmlrpcval($pkey));
    333. 

  333. 		}
    334. 

  334. 	}
    335. 

  335. 

  336. 	function cptepsdt($m) {
    337. 

  337. 

  338. 		$err="";
    339. 

  339. 

  340. 		$pkey = "";
    341. 

  341. 

  342. 		// if we generated an error, create an error return response
    343. 

  343. 		if ($err) {
    344. 

  344. 			return $this->_handleError($err);
    345. 

  345. 		}
    346. 

  346.   		else {
    347. 

  347. 			// otherwise, we create the right response
    348. 

  348. 			// with the state name
    349. 

  349. 			return new xmlrpcresp(new xmlrpcval($pkey));
    350. 

  350. 		}
    351. 

  351. 	}
    352. 

  352. 

  353. 	function amountpaid($m) {
    354. 

  354. 

  355. 		$err="";
    356. 

  356. 

  357. 		$obj= $m->getparam(0);
    358. 

  358. 		$key = $obj->getval();
    359. 

  359. 

  360. 		$sql = "SELECT * FROM billing where activity = '1' and encounter = '" . $_SESSION['billkey'] . "'  and pid = '" . $_SESSION['patient_id'] . "' and code_type = 'COPAY'";
    361. 

  361. 		//echo $sql;
    362. 

  362. 		$db = $GLOBALS['adodb']['db'];
    363. 

  363. 		$results = $db->Execute($sql);
    364. 

  364. 

  365. 		if (!$results) {
    366. 

  366. 			$err = $db->ErrorMsg();
    367. 

  367. 		}
    368. 

  368. 		else {
    369. 

  369. 			if (!$results->EOF) {
    370. 

  370. 				$retval = $results->fields['fee'];
    371. 

  371. 			}
    372. 

  372. 		}
    373. 

  373. 

  374. 		if (empty($retval)) {
    375. 

  375. 			$retval = "0000";
    376. 

  376. 		}
    377. 

  377. 

  378. 		$retval = str_replace(".","",$retval);
    379. 

  379. 

  380. 		// if we generated an error, create an error return response
    381. 

  381. 		if ($err) {
    382. 

  382. 			return $this->_handleError($err);
    383. 

  383. 		}
    384. 

  384.   		else {
    385. 

  385. 			// otherwise, we create the right response
    386. 

  386. 			// with the state name
    387. 

  387. 			return new xmlrpcresp(new xmlrpcval($retval,"i4"));
    388. 

  388. 		}
    389. 

  389. 	}
    390. 

  390. 

  391. 	function typeofservice($m) {
    392. 

  392. 

  393. 		$err="";
    394. 

  394. 		$retval = "";
    395. 

  395. 		$obj= $m->getparam(0);
    396. 

  396. 		$key = $obj->getval();
    397. 

  397. 

  398. 		//phased out by HIPPA, use cpt modifiers instead
    399. 

  399. 		$retval = "";
    400. 

  400. 		// if we generated an error, create an error return response
    401. 

  401. 		if ($err) {
    402. 

  402. 			return $this->_handleError($err);
    403. 

  403. 		}
    404. 

  404.   		else {
    405. 

  405. 			// otherwise, we create the right response
    406. 

  406. 			// with the state name
    407. 

  407. 			return new xmlrpcresp(new xmlrpcval($retval,"string"));
    408. 

  408. 		}
    409. 

  409. 	}
    410. 

  410. 

  411. 	function priorauth($m) {
    412. 

  412. 

  413. 		$err="";
    414. 

  414. 		$retval = "";
    415. 

  415. 		$obj= $m->getparam(0);
    416. 

  416. 		$key = $obj->getval();
    417. 

  417. 

  418. 		$sql = "SELECT * FROM forms JOIN form_misc_billing_options as fpa on fpa.id = forms.form_id where forms.encounter = '" . $_SESSION['billkey'] . "' and forms.pid = '" . $_SESSION['patient_id'] . "' and forms.formdir = 'misc_billing_options' order by forms.date";
    419. 

  419. 		//echo $sql;
    420. 

  420. 		$db = $GLOBALS['adodb']['db'];
    421. 

  421. 		$results = $db->Execute($sql);
    422. 

  422. 

  423. 		if (!$results) {
    424. 

  424. 			$err = $db->ErrorMsg();
    425. 

  425. 		}
    426. 

  426. 		else {
    427. 

  427. 			if (!$results->EOF) {
    428. 

  428. 				$retval = $results->fields['prior_auth_number'];
    429. 

  429. 			}
    430. 

  430. 		}
    431. 

  431. 		// if we generated an error, create an error return response
    432. 

  432. 		if ($err) {
    433. 

  433. 			return $this->_handleError($err);
    434. 

  434. 		}
    435. 

  435.   		else {
    436. 

  436. 			// otherwise, we create the right response
    437. 

  437. 			// with the state name
    438. 

  438. 			return new xmlrpcresp(new xmlrpcval($retval,"string"));
    439. 

  439. 		}
    440. 

  440. 	}
    441. 

  441. 

  442. 	function dateofservicestart($m) {
    443. 

  443. 

  444. 		$err="";
    445. 

  445. 

  446. 		$retval = "";
    447. 

  447. 		$obj= $m->getparam(0);
    448. 

  448. 		$key = $obj->getval();
    449. 

  449. 

  450. 		$sql = "SELECT * FROM billing where pid = '" . $_SESSION['patient_id'] . "' and  encounter = '" . $_SESSION['billkey'] . "'and id ='" . $key ."'";
    451. 

  451. 		//echo $sql;
    452. 

  452. 		$db = $GLOBALS['adodb']['db'];
    453. 

  453. 		$results = $db->Execute($sql);
    454. 

  454. 

  455. 		if (!$results) {
    456. 

  456. 			$err = $db->ErrorMsg();
    457. 

  457. 		}
    458. 

  458. 		else {
    459. 

  459. 			if (!$results->EOF) {
    460. 

  460. 				$retval  =	$results->fields['date'];
    461. 

  461. 			}
    462. 

  462. 		}
    463. 

  463. 

  464. 

  465. 		$retval = $this->_isodate(date("Y-m-d",strtotime($retval)));
    466. 

  466. 

  467. 		// if we generated an error, create an error return response
    468. 

  468. 		if ($err) {
    469. 

  469. 			return $this->_handleError($err);
    470. 

  470. 		}
    471. 

  471.   		else {
    472. 

  472. 			// otherwise, we create the right response
    473. 

  473. 			// with the state name
    474. 

  474. 			return new xmlrpcresp(new xmlrpcval($retval,XMLRPCDATETIME));
    475. 

  475. 		}
    476. 

  476. 	}
    477. 

  477. 

  478. 	function dateofserviceend($m) {
    479. 

  479. 

  480. 		$err="";
    481. 

  481. 

  482. 		$retval = "";
    483. 

  483. 		$obj= $m->getparam(0);
    484. 

  484. 		$key = $obj->getval();
    485. 

  485. 

  486. 		$sql = "SELECT * FROM billing where pid = '" . $_SESSION['patient_id'] . "' and  encounter = '" . $_SESSION['billkey'] . "'and id ='" . $key ."'";
    487. 

  487. 		//echo $sql;
    488. 

  488. 		$db = $GLOBALS['adodb']['db'];
    489. 

  489. 		$results = $db->Execute($sql);
    490. 

  490. 

  491. 		if (!$results) {
    492. 

  492. 			$err = $db->ErrorMsg();
    493. 

  493. 		}
    494. 

  494. 		else {
    495. 

  495. 			if (!$results->EOF) {
    496. 

  496. 				$retval  =	$results->fields['date'];
    497. 

  497. 			}
    498. 

  498. 		}
    499. 

  499. 

  500. 		$retval = $this->_isodate(date("Y-m-d",strtotime($retval)));
    501. 

  501. 

  502. 		// if we generated an error, create an error return response
    503. 

  503. 		if ($err) {
    504. 

  504. 			return $this->_handleError($err);
    505. 

  505. 		}
    506. 

  506.   		else {
    507. 

  507. 			// otherwise, we create the right response
    508. 

  508. 			// with the state name
    509. 

  509. 			return new xmlrpcresp(new xmlrpcval($retval,XMLRPCDATETIME));
    510. 

  510. 		}
    511. 

  511. 	}
    512. 

  512. 

  513. 	function dateofhospitalstart($m) {
    514. 

  514. 		$err="";
    515. 

  515. 		//Now implemented by OpenEMR with Form: Misc Billing Options
    516. 

  516. 		$retval = "";
    517. 

  517. 		$obj= $m->getparam(0);
    518. 

  518. 		$key = $obj->getval();
    519. 

  519. 

  520. 		$sql = "SELECT * FROM forms JOIN form_misc_billing_options as fpa on fpa.id = forms.form_id where forms.encounter = '" . $_SESSION['billkey'] . "' and forms.pid = '" . $_SESSION['patient_id'] . "' and forms.formdir = 'misc_billing_options' order by forms.date";
    521. 

  521. 		//echo $sql;
    522. 

  522. 		$db = $GLOBALS['adodb']['db'];
    523. 

  523. 		$results = $db->Execute($sql);
    524. 

  524. 

  525. 		if (!$results) {
    526. 

  526. 			$err = $db->ErrorMsg();
    527. 

  527. 		}
    528. 

  528. 		else {
    529. 

  529. 			if (!$results->EOF) {
    530. 

  530. 				$retval = $results->fields['hospitalization_date_from'];
    531. 

  531. 				}
    532. 

  532. 		}
    533. 

  533. 		$retval = date("Y-m-d",strtotime($retval));
    534. 

  534. 		$retval = $this->_isodate($retval);		
    535. 

  535. 		// if we generated an error, create an error return response
    536. 

  536. 		if ($err) {
    537. 

  537. 			return $this->_handleError($err);
    538. 

  538. 		}
    539. 

  539.   		else {
    540. 

  540. 			// otherwise, we create the right response
    541. 

  541. 			// with the state name
    542. 

  542. 			return new xmlrpcresp(new xmlrpcval($retval,XMLRPCDATETIME));
    543. 

  543. 		}
    544. 

  544. 	}
    545. 

  545. 

  546. 

  547. 

  548. 	function ishospitalized($m) {
    549. 

  549. 		$err="";
    550. 

  550. 		//Now implemented by OpenEMR with Form: Misc Billing Options
    551. 

  551. 		$pkey = false;
    552. 

  552. 		$retval = "";
    553. 

  553. 		$obj= $m->getparam(0);
    554. 

  554. 		$key = $obj->getval();
    555. 

  555. 

  556. 		$sql = "SELECT * FROM forms JOIN form_misc_billing_options as fpa on fpa.id = forms.form_id where forms.encounter = '" . $_SESSION['billkey'] . "' and forms.pid = '" . $_SESSION['patient_id'] . "' and forms.formdir = 'misc_billing_options' order by forms.date";
    557. 

  557. 		//echo $sql;
    558. 

  558. 		$db = $GLOBALS['adodb']['db'];
    559. 

  559. 		$results = $db->Execute($sql);
    560. 

  560. 

  561. 		if (!$results) {
    562. 

  562. 			$err = $db->ErrorMsg();
    563. 

  563. 		}
    564. 

  564. 		else {
    565. 

  565. 			if (!$results->EOF) {
    566. 

  566. 				$retval = $results->fields['is_hospitalized'];
    567. 

  567. 				if ($retval == "1") {$pkey = true;};
    568. 

  568. 					}
    569. 

  569. 		}
    570. 

  570. 		// if we generated an error, create an error return response
    571. 

  571. 		if ($err) {
    572. 

  572. 			return $this->_handleError($err);
    573. 

  573. 		}
    574. 

  574.   		else {
    575. 

  575. 			// otherwise, we create the right response
    576. 

  576. 			// with the state name
    577. 

  577. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    578. 

  578. 		}
    579. 

  579. 	}
    580. 

  580. 

  581. 

  582. 	function isoutsidelab($m) {
    583. 

  583. 		$err="";
    584. 

  584. 		//Now implemented by OpenEMR with Form: Misc Billing Options
    585. 

  585. 		$pkey = false;
    586. 

  586. 		$retval = "";
    587. 

  587. 		$obj= $m->getparam(0);
    588. 

  588. 		$key = $obj->getval();
    589. 

  589. 

  590. 		$sql = "SELECT * FROM forms JOIN form_misc_billing_options as fpa on fpa.id = forms.form_id where forms.encounter = '" . $_SESSION['billkey'] . "' and forms.pid = '" . $_SESSION['patient_id'] . "' and forms.formdir = 'misc_billing_options' order by forms.date";
    591. 

  591. 		//echo $sql;
    592. 

  592. 		$db = $GLOBALS['adodb']['db'];
    593. 

  593. 		$results = $db->Execute($sql);
    594. 

  594. 

  595. 		if (!$results) {
    596. 

  596. 			$err = $db->ErrorMsg();
    597. 

  597. 		}
    598. 

  598. 		else {
    599. 

  599. 			if (!$results->EOF) {
    600. 

  600. 				$retval = $results->fields['outside_lab'];
    601. 

  601. 				if ($retval == "1") {$pkey = true;};
    602. 

  602. 					}
    603. 

  603. 		}
    604. 

  604. 		// if we generated an error, create an error return response
    605. 

  605. 		if ($err) {
    606. 

  606. 			return $this->_handleError($err);
    607. 

  607. 		}
    608. 

  608.   		else {
    609. 

  609. 			// otherwise, we create the right response
    610. 

  610. 			// with the state name
    611. 

  611. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    612. 

  612. 		}
    613. 

  613. 	}
    614. 

  614. 

  615. 	function outsidelabcharges($m) {
    616. 

  616. 

  617. 		$err="";
    618. 

  618. 

  619. 		//Now implemented by OpenEMR with form_misc_billing_options
    620. 

  620. 		$retval = "";
    621. 

  621. 		$obj= $m->getparam(0);
    622. 

  622. 		$key = $obj->getval();
    623. 

  623. 

  624. 		$sql = "SELECT * FROM forms JOIN form_misc_billing_options as fpa on fpa.id = forms.form_id where forms.encounter = '" . $_SESSION['billkey'] . "' and forms.pid = '" . $_SESSION['patient_id'] . "' and forms.formdir = 'misc_billing_options' order by forms.date";
    625. 

  625. 		//echo $sql;
    626. 

  626. 		$db = $GLOBALS['adodb']['db'];
    627. 

  627. 		$results = $db->Execute($sql);
    628. 

  628. 

  629. 		if (!$results) {
    630. 

  630. 			$err = $db->ErrorMsg();
    631. 

  631. 		}
    632. 

  632. 		else {
    633. 

  633. 			if (!$results->EOF) {
    634. 

  634. 				$retval = $results->fields['lab_amount'];
    635. 

  635. 			}
    636. 

  636. 		}
    637. 

  637. 

  638. 		// if we generated an error, create an error return response
    639. 

  639. 		if ($err) {
    640. 

  640. 			return $this->_handleError($err);
    641. 

  641. 		}
    642. 

  642.   		else {
    643. 

  643. 			// otherwise, we create the right response
    644. 

  644. 			// with the state name
    645. 

  645. 			return new xmlrpcresp(new xmlrpcval($retval,"double"));
    646. 

  646. 		}
    647. 

  647. 	}
    648. 

  648. 

  649. 	function dateofhospitalend($m) {
    650. 

  650. 		$err="";
    651. 

  651. 		//Now implemented by OpenEMR with Form: Misc Billing Options
    652. 

  652. 		$retval = "";
    653. 

  653. 		$obj= $m->getparam(0);
    654. 

  654. 		$key = $obj->getval();
    655. 

  655. 

  656. 		$sql = "SELECT * FROM forms JOIN form_misc_billing_options as fpa on fpa.id = forms.form_id where forms.encounter = '" . $_SESSION['billkey'] . "' and forms.pid = '" . $_SESSION['patient_id'] . "' and forms.formdir = 'misc_billing_options' order by forms.date";
    657. 

  657. 		//echo $sql;
    658. 

  658. 		$db = $GLOBALS['adodb']['db'];
    659. 

  659. 		$results = $db->Execute($sql);
    660. 

  660. 

  661. 		if (!$results) {
    662. 

  662. 			$err = $db->ErrorMsg();
    663. 

  663. 		}
    664. 

  664. 		else {
    665. 

  665. 			if (!$results->EOF) {
    666. 

  666. 				$retval = $results->fields['hospitalization_date_to'];
    667. 

  667. 				}
    668. 

  668. 		}
    669. 

  669. 		$retval = date("Y-m-d",strtotime($retval));
    670. 

  670. 		$retval = $this->_isodate($retval);		
    671. 

  671. 		// if we generated an error, create an error return response
    672. 

  672. 		if ($err) {
    673. 

  673. 			return $this->_handleError($err);
    674. 

  674. 		}
    675. 

  675.   		else {
    676. 

  676. 			// otherwise, we create the right response
    677. 

  677. 			// with the state name
    678. 

  678. 			return new xmlrpcresp(new xmlrpcval($retval,XMLRPCDATETIME));
    679. 

  679. 		}
    680. 

  680. 	}
    681. 

  681. 

  682. 

  683. 

  684. 	function medicaidresubmissioncode($m) {
    685. 

  685. 

  686. 		$err="";
    687. 

  687. 		$retval = "";
    688. 

  688. 		$obj= $m->getparam(0);
    689. 

  689. 		$key = $obj->getval();
    690. 

  690. 

  691. 		$sql = "SELECT * FROM forms JOIN form_misc_billing_options as fpa on fpa.id = forms.form_id where forms.encounter = '" . $_SESSION['billkey'] . "' and forms.pid = '" . $_SESSION['patient_id'] . "' and forms.formdir = 'misc_billing_options' order by forms.date";
    692. 

  692. 		//echo $sql;
    693. 

  693. 		$db = $GLOBALS['adodb']['db'];
    694. 

  694. 		$results = $db->Execute($sql);
    695. 

  695. 

  696. 		if (!$results) {
    697. 

  697. 			$err = $db->ErrorMsg();
    698. 

  698. 		}
    699. 

  699. 		else {
    700. 

  700. 			if (!$results->EOF) {
    701. 

  701. 				$retval = $results->fields['medicaid_resubmission_code'];
    702. 

  702. 				
    703. 

  703. 			}
    704. 

  704. 		}
    705. 

  705. 		// if we generated an error, create an error return response
    706. 

  706. 		if ($err) {
    707. 

  707. 			return $this->_handleError($err);
    708. 

  708. 		}
    709. 

  709.   		else {
    710. 

  710. 			// otherwise, we create the right response
    711. 

  711. 			// with the state name
    712. 

  712. 			return new xmlrpcresp(new xmlrpcval($retval,"string"));
    713. 

  713. 		}
    714. 

  714. 	}
    715. 

  715. 

  716. 	function medicaidoriginalreference($m) {
    717. 

  717. 

  718. 		$err="";
    719. 

  719. 		$retval = "";
    720. 

  720. 		$obj= $m->getparam(0);
    721. 

  721. 		$key = $obj->getval();
    722. 

  722. 

  723. 		$sql = "SELECT * FROM forms JOIN form_misc_billing_options as fpa on fpa.id = forms.form_id where forms.encounter = '" . $_SESSION['billkey'] . "' and forms.pid = '" . $_SESSION['patient_id'] . "' and forms.formdir = 'misc_billing_options' order by forms.date";
    724. 

  724. 		//echo $sql;
    725. 

  725. 		$db = $GLOBALS['adodb']['db'];
    726. 

  726. 		$results = $db->Execute($sql);
    727. 

  727. 

  728. 		if (!$results) {
    729. 

  729. 			$err = $db->ErrorMsg();
    730. 

  730. 		}
    731. 

  731. 		else {
    732. 

  732. 			if (!$results->EOF) {
    733. 

  733. 				$retval = $results->fields['medicaid_original_reference'];
    734. 

  734. 				
    735. 

  735. 			}
    736. 

  736. 		}
    737. 

  737. 		// if we generated an error, create an error return response
    738. 

  738. 		if ($err) {
    739. 

  739. 			return $this->_handleError($err);
    740. 

  740. 		}
    741. 

  741.   		else {
    742. 

  742. 			// otherwise, we create the right response
    743. 

  743. 			// with the state name
    744. 

  744. 			return new xmlrpcresp(new xmlrpcval($retval,"string"));
    745. 

  745. 		}
    746. 

  746. 	}
    747. 

  747. 

  748. 

  749. 	function weightgrams($m) {
    750. 

  750. 

  751. 		$err="";
    752. 

  752. 

  753. 		$pkey = "2300";
    754. 

  754. 

  755. 		// if we generated an error, create an error return response
    756. 

  756. 		if ($err) {
    757. 

  757. 			return $this->_handleError($err);
    758. 

  758. 		}
    759. 

  759.   		else {
    760. 

  760. 			// otherwise, we create the right response
    761. 

  761. 			// with the state name
    762. 

  762. 			return new xmlrpcresp(new xmlrpcval($pkey));
    763. 

  763. 		}
    764. 

  764. 	}
    765. 

  765. 

  766. 	function weightpounds($m) {
    767. 

  767. 

  768. 		$err="";
    769. 

  769. 		//unimplemented by OpenEMR
    770. 

  770. 		$pkey = "";
    771. 

  771. 

  772. 		// if we generated an error, create an error return response
    773. 

  773. 		if ($err) {
    774. 

  774. 			return $this->_handleError($err);
    775. 

  775. 		}
    776. 

  776.   		else {
    777. 

  777. 			// otherwise, we create the right response
    778. 

  778. 			// with the state name
    779. 

  779. 			return new xmlrpcresp(new xmlrpcval($pkey));
    780. 

  780. 		}
    781. 

  781. 	}
    782. 

  782. 

  783. 	function hcfalocaluse10d($m) {
    784. 

  784. 

  785. 		$err="";
    786. 

  786. 

  787. 		//this needs to be customized on a payer to payer and state to state basis
    788. 

  788. 		$pkey = "";
    789. 

  789. 

  790. 		// if we generated an error, create an error return response
    791. 

  791. 		if ($err) {
    792. 

  792. 			return $this->_handleError($err);
    793. 

  793. 		}
    794. 

  794.   		else {
    795. 

  795. 			// otherwise, we create the right response
    796. 

  796. 			// with the state name
    797. 

  797. 			return new xmlrpcresp(new xmlrpcval($pkey,"string"));
    798. 

  798. 		}
    799. 

  799. 	}
    800. 

  800. 

  801. 	function hcfalocaluse19($m) {
    802. 

  802. 

  803. 		$err="";
    804. 

  804. 

  805. 		//this needs to be customized on a payer to payer and state to state basis
    806. 

  806. 		$pkey = "";
    807. 

  807. 

  808. 		// if we generated an error, create an error return response
    809. 

  809. 		if ($err) {
    810. 

  810. 			return $this->_handleError($err);
    811. 

  811. 		}
    812. 

  812.   		else {
    813. 

  813. 			// otherwise, we create the right response
    814. 

  814. 			// with the state name
    815. 

  815. 			return new xmlrpcresp(new xmlrpcval($pkey,"string"));
    816. 

  816. 		}
    817. 

  817. 	}
    818. 

  818. 

  819. 	function procarray($m) {
    820. 

  820. 

  821. 		$err="";
    822. 

  822. 

  823. 		$procs = array();
    824. 

  824. 

  825. 		$obj= $m->getparam(0);
    826. 

  826. 		$key = $obj->getval();
    827. 

  827. 

  828. 		$keys = split("-",$key);
    829. 

  829. 		$patient_id = $keys[0];
    830. 

  830. 		$encounter = $keys[1];
    831. 

  831. 

  832. 		$_SESSION['billkey'] = $encounter;
    833. 

  833. 		$_SESSION['patient_id'] = $patient_id;
    834. 

  834. 

  835. 		// Sort by procedure timestamp in order to get some consistency.  In particular
    836. 

  836. 		// freeb determines the provider from the first procedure in this array.
    837. 

  837. 		$sql = "SELECT * FROM billing where (code_type = 'CPT4' or code_type = 'HCPCS') AND " .
    838. 

  838. 			"encounter = '$encounter' AND pid = '$patient_id' and activity = '1' " .
    839. 

  839. 			"order by date, id";
    840. 

  840. 		//echo $sql;
    841. 

  841. 		$db = $GLOBALS['adodb']['db'];
    842. 

  842. 		$results = $db->Execute($sql);
    843. 

  843. 

  844. 		if (!$results) {
    845. 

  845. 			$err = $db->ErrorMsg();
    846. 

  846. 		}
    847. 

  847. 		else {
    848. 

  848. 			while (!$results->EOF) {
    849. 

  849. 				$procs[] = 	new xmlrpcval($results->fields['id'],"i4");
    850. 

  850. 				$results->MoveNext();
    851. 

  851. 			}
    852. 

  852. 		}
    853. 

  853. 

  854. 

  855. 		// if we generated an error, create an error return response
    856. 

  856. 		if ($err) {
    857. 

  857. 			return $this->_handleError($err);
    858. 

  858. 		}
    859. 

  859.   		else {
    860. 

  860. 			// otherwise, we create the right response
    861. 

  861. 			// with the state name
    862. 

  862. 			return new xmlrpcresp(new xmlrpcval($procs,"array"));
    863. 

  863. 		}
    864. 

  864. 	}
    865. 

  865. 

  866. 	function diagarray($m) {
    867. 

  867. 

  868. 		$err="";
    869. 

  869. 		$diags = array();
    870. 

  870. 

  871. 		$obj= $m->getparam(0);
    872. 

  872. 		$key = $obj->getval();
    873. 

  873. 

  874. 		$sql = "SELECT * FROM billing where id = '$key'";
    875. 

  875. 		//echo $sql;
    876. 

  876. 		$db = $GLOBALS['adodb']['db'];
    877. 

  877. 		$results = $db->Execute($sql);
    878. 

  878. 

  879. 		if (!$results) {
    880. 

  880. 			$err = $db->ErrorMsg();
    881. 

  881. 		}
    882. 

  882. 		else {
    883. 

  883. 			if (!$results->EOF) {
    884. 

  884. 				$diagstring = $results->fields['justify'];
    885. 

  885. 			}
    886. 

  886. 		}
    887. 

  887. 

  888. 		if (!empty($diagstring)) {
    889. 

  889. 

  890. 			$diag_codes = split(":",$diagstring);
    891. 

  891. 			$diag_sql = "";
    892. 

  892. 			foreach ($diag_codes as $dc) {
    893. 

  893. 				if (!empty($dc)) {
    894. 

  894. 					$diag_sql .= "'$dc',";
    895. 

  895. 				}
    896. 

  896. 			}
    897. 

  897. 			if (substr($diag_sql,strlen($diag_sql) -1) == ",") {
    898. 

  898. 				$diag_sql = substr($diag_sql,0,strlen($diag_sql) -1);
    899. 

  899. 			}
    900. 

  900. 

  901. 			$sql = "SELECT * FROM billing where code in ($diag_sql) and  code_type = 'ICD9' AND encounter = '" . $_SESSION['billkey'] . "' and pid ='" . $_SESSION['patient_id'] . "' and activity = '1'";
    902. 

  902. 

  903. 			$results = $db->Execute($sql);
    904. 

  904. 			if (!$results) {
    905. 

  905. 				$err .= $db->ErrorMsg();
    906. 

  906. 			}
    907. 

  907. 			else {
    908. 

  908. 				while (!$results->EOF) {
    909. 

  909. 					$diags[$results->fields['code']] = 	new xmlrpcval($results->fields['id'],"i4");
    910. 

  910. 					$results->MoveNext();
    911. 

  911. 				}
    912. 

  912. 			}
    913. 

  913. 			$tmp_diags = $diags;
    914. 

  914. 			$tmp_keys = array_keys($tmp_diags);
    915. 

  915. 			$diags = array();
    916. 

  916. 			foreach ($diag_codes as $code) {
    917. 

  917. 				if (in_array($code,$tmp_keys)) {
    918. 

  918. 					$diags[] = $tmp_diags[$code];
    919. 

  919. 				}
    920. 

  920. 			}
    921. 

  921. 		}
    922. 

  922. 		else {
    923. 

  923. 			$diags[] = 	new xmlrpcval(0,"i4");
    924. 

  924. 		}
    925. 

  925. 

  926. 

  927. 

  928. 		// if we generated an error, create an error return response
    929. 

  929. 		if ($err) {
    930. 

  930. 			return $this->_handleError($err);
    931. 

  931. 		}
    932. 

  932.   		else {
    933. 

  933. 			// otherwise, we create the right response
    934. 

  934. 			// with the state name
    935. 

  935. 			return new xmlrpcresp(new xmlrpcval($diags,"array"));
    936. 

  936. 		}
    937. 

  937. 	}
    938. 

  938. 

  939. 	function patientkey($m) {
    940. 

  940. 

  941. 		$err="";
    942. 

  942. 		$pkey ="";
    943. 

  943. 

  944. 		$pkey = $_SESSION['patient_id'];
    945. 

  945. 

  946. 		// if we generated an error, create an error return response
    947. 

  947. 		if ($err) {
    948. 

  948. 			return $this->_handleError($err);
    949. 

  949. 		}
    950. 

  950.   		else {
    951. 

  951. 			// otherwise, we create the right response
    952. 

  952. 			// with the state name
    953. 

  953. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    954. 

  954. 		}
    955. 

  955. 	}
    956. 

  956. 

  957.   // Practice Key is the billing location.
    958. 

  958.   //
    959. 

  959. 	function practicekey($m) {
    960. 

  960. 

  961. 		$err="";
    962. 

  962. 

  963. 		$sql = "SELECT * FROM facility ORDER BY billing_location DESC, id ASC LIMIT 1";
    964. 

  964. 		$db = $GLOBALS['adodb']['db'];
    965. 

  965. 		$results = $db->Execute($sql);
    966. 

  966. 

  967. 		if (!$results) {
    968. 

  968. 			$err = $db->ErrorMsg();
    969. 

  969. 		}
    970. 

  970. 		else {
    971. 

  971. 			if (!$results->EOF) {
    972. 

  972. 				$fkey = $results->fields['id'];
    973. 

  973. 			}
    974. 

  974. 		}
    975. 

  975. 

  976. 		if ($err) {
    977. 

  977. 			return $this->_handleError($err);
    978. 

  978. 		}
    979. 

  979.   		else {
    980. 

  980. 			return new xmlrpcresp(new xmlrpcval($fkey,"i4"));
    981. 

  981. 		}
    982. 

  982. 	}
    983. 

  983. 

  984. 	function providerkey($m) {
    985. 

  985. 

  986. 		$err="";
    987. 

  987. 

  988. 		$pkey ="";
    989. 

  989. 		$obj= $m->getparam(0);
    990. 

  990. 		$key = $obj->getval();
    991. 

  991. 

  992. 		$sql = "SELECT * FROM billing where id = '" . $key . "'";
    993. 

  993. 		//echo $sql;
    994. 

  994. 		$db = $GLOBALS['adodb']['db'];
    995. 

  995. 		$results = $db->Execute($sql);
    996. 

  996. 

  997. 		if (!$results) {
    998. 

  998. 			$err = $db->ErrorMsg();
    999. 

  999. 		}
    1000. 

  1000. 		else {
    1001. 

  1001. 			if (!$results->EOF) {
    1002. 

  1002. 				$pkey =	$results->fields['provider_id'];
    1003. 

  1003. 			}
    1004. 

  1004. 		}
    1005. 

  1005. 

  1006. 		// if we generated an error, create an error return response
    1007. 

  1007. 		if ($err) {
    1008. 

  1008. 			return $this->_handleError($err);
    1009. 

  1009. 		}
    1010. 

  1010.   		else {
    1011. 

  1011. 			// otherwise, we create the right response
    1012. 

  1012. 			// with the state name
    1013. 

  1013. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    1014. 

  1014. 		}
    1015. 

  1015. 	}
    1016. 

  1016. 

  1017. 	function referringproviderkey($m) {
    1018. 

  1018. 

  1019. 		$err="";
    1020. 

  1020. 

  1021. 		$pkey ="";
    1022. 

  1022. 		$obj= $m->getparam(0);
    1023. 

  1023. 		$key = $obj->getval();
    1024. 

  1024. 

  1025. 		$sql = "SELECT * FROM patient_data where pid = '" . $key . "'";
    1026. 

  1026. 		//echo $sql;
    1027. 

  1027. 		$db = $GLOBALS['adodb']['db'];
    1028. 

  1028. 		$results = $db->Execute($sql);
    1029. 

  1029. 

  1030. 		if (!$results) {
    1031. 

  1031. 			$err = $db->ErrorMsg();
    1032. 

  1032. 		}
    1033. 

  1033. 		else {
    1034. 

  1034. 			if (!$results->EOF) {
    1035. 

  1035. 				$pkey =	$results->fields['providerID'];
    1036. 

  1036. 			}
    1037. 

  1037. 		}
    1038. 

  1038. 

  1039. 

  1040. 		// if we generated an error, create an error return response
    1041. 

  1041. 		if ($err) {
    1042. 

  1042. 			return $this->_handleError($err);
    1043. 

  1043. 		}
    1044. 

  1044.   		else {
    1045. 

  1045. 			// otherwise, we create the right response
    1046. 

  1046. 			// with the state name
    1047. 

  1047. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    1048. 

  1048. 		}
    1049. 

  1049. 	}
    1050. 

  1050. 

  1051. 	function insuredkey($m) {
    1052. 

  1052. 

  1053. 		$err="";
    1054. 

  1054. 

  1055. 		$payer_id = "";
    1056. 

  1056. 		$patient_id = "";
    1057. 

  1057. 		$dos = "";
    1058. 

  1058. 		$obj= $m->getparam(0);
    1059. 

  1059. 		$key = $obj->getval();
    1060. 

  1060. 

  1061.     // $sql = "SELECT * FROM billing where id = '" . $key . "'";
    1062. 

  1062.     $sql = "SELECT b.pid, b.payer_id, fe.date FROM " .
    1063. 

  1063.       "billing AS b, form_encounter AS fe WHERE " .
    1064. 

  1064.       "b.id = '$key' AND fe.pid = b.pid AND fe.encounter = b.encounter";
    1065. 

  1065. 

  1066. 		//echo $sql;
    1067. 

  1067. 		$db = $GLOBALS['adodb']['db'];
    1068. 

  1068. 		$results = $db->Execute($sql);
    1069. 

  1069. 

  1070. 		if (!$results) {
    1071. 

  1071. 			// $err = $db->ErrorMsg();
    1072. 

  1072. 			return $this->_handleError($db->ErrorMsg());
    1073. 

  1073. 		}
    1074. 

  1074. 		else {
    1075. 

  1075. 			if (!$results->EOF) {
    1076. 

  1076. 				$payer_id = $results->fields['payer_id'];
    1077. 

  1077.         $patient_id = $results->fields['pid'];
    1078. 

  1078.         $dos = $results->fields['date'];
    1079. 

  1079. 			}
    1080. 

  1080. 		}
    1081. 

  1081. 		$insured_id = "";
    1082. 

  1082. 

  1083.     // $sql = "SELECT * FROM insurance_data WHERE pid = '" . $_SESSION['patient_id'] . "' and provider = '" . $payer_id . "'";
    1084. 

  1084.     $sql = "SELECT id FROM insurance_data WHERE " .
    1085. 

  1085.       "pid = '$patient_id' AND provider = '$payer_id' AND " .
    1086. 

  1086.       "date <= '$dos' ORDER BY date DESC LIMIT 1";
    1087. 

  1087. 

  1088. 		//echo $sql;
    1089. 

  1089. 		$db = $GLOBALS['adodb']['db'];
    1090. 

  1090. 		$results = $db->Execute($sql);
    1091. 

  1091. 

  1092. 		if (!$results) {
    1093. 

  1093. 			$err = $db->ErrorMsg();
    1094. 

  1094. 		}
    1095. 

  1095. 		else {
    1096. 

  1096. 			if (!$results->EOF) {
    1097. 

  1097. 				$insured_id = $results->fields['id'];
    1098. 

  1098. 			}
    1099. 

  1099. 		}
    1100. 

  1100. 		//we are returning the record id of the appropriate entry in insurance_data
    1101. 

  1101. 		//there is no relational data, all the subscriber/insured information is kept monolithically in that table
    1102. 

  1102. 

  1103. 		// if we generated an error, create an error return response
    1104. 

  1104. 		if ($err) {
    1105. 

  1105. 			return $this->_handleError($err);
    1106. 

  1106. 		}
    1107. 

  1107.   		else {
    1108. 

  1108. 			// otherwise, we create the right response
    1109. 

  1109. 			// with the state name
    1110. 

  1110. 			return new xmlrpcresp(new xmlrpcval($insured_id,"i4"));
    1111. 

  1111. 		}
    1112. 

  1112. 	}
    1113. 

  1113. 

  1114. 	function otherinsuredkey($m) {
    1115. 

  1115. 

  1116. 		$err="";
    1117. 

  1117. 		//openemr does not currently implement other insured
    1118. 

  1118. 		$pkey = 0;
    1119. 

  1119. 

  1120. 		// if we generated an error, create an error return response
    1121. 

  1121. 		if ($err) {
    1122. 

  1122. 			return $this->_handleError($err);
    1123. 

  1123. 		}
    1124. 

  1124.   		else {
    1125. 

  1125. 			// otherwise, we create the right response
    1126. 

  1126. 			// with the state name
    1127. 

  1127. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    1128. 

  1128. 		}
    1129. 

  1129. 	}
    1130. 

  1130. 

  1131. 	function payerkey($m) {
    1132. 

  1132. 		$err="";
    1133. 

  1133. 

  1134. 		$pkey = "";
    1135. 

  1135. 		$obj= $m->getparam(0);
    1136. 

  1136. 		$key = $obj->getval();
    1137. 

  1137. 

  1138. 		$sql = "SELECT * FROM billing where id = '" . $key . "'";
    1139. 

  1139. 		$db = $GLOBALS['adodb']['db'];
    1140. 

  1140. 		$results = $db->Execute($sql);
    1141. 

  1141. 

  1142. 

  1143. 		if (!$results) {
    1144. 

  1144. 			$err = $db->ErrorMsg() . " $sql";
    1145. 

  1145. 		}
    1146. 

  1146. 		else {
    1147. 

  1147. 			while (!$results->EOF) {
    1148. 

  1148. 				$pkey = $results->fields['payer_id'];
    1149. 

  1149. 				$results->MoveNext();
    1150. 

  1150. 			}
    1151. 

  1151. 		}
    1152. 

  1152. 

  1153. 		// if we generated an error, create an error return response
    1154. 

  1154. 		if ($err) {
    1155. 

  1155. 			return $this->_handleError($err);
    1156. 

  1156. 		}
    1157. 

  1157.   		else {
    1158. 

  1158. 			// otherwise, we create the right response
    1159. 

  1159. 			// with the state name
    1160. 

  1160. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    1161. 

  1161. 		}
    1162. 

  1162. 	}
    1163. 

  1163. 

  1164. 	function secondpayerkey($m) {
    1165. 

  1165. 

  1166. 		$err="";
    1167. 

  1167. 		//unimplemented by OpenEMR
    1168. 

  1168. 		$pkey = 0;
    1169. 

  1169. 

  1170. 		// if we generated an error, create an error return response
    1171. 

  1171. 		if ($err) {
    1172. 

  1172. 			return $this->_handleError($err);
    1173. 

  1173. 		}
    1174. 

  1174.   		else {
    1175. 

  1175. 			// otherwise, we create the right response
    1176. 

  1176. 			// with the state name
    1177. 

  1177. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    1178. 

  1178. 		}
    1179. 

  1179. 	}
    1180. 

  1180. 

  1181.   // This is for the facility where service was rendered.
    1182. 

  1182.   //
    1183. 

  1183. 	function facilitykey($m) {
    1184. 

  1184. 

  1185. 		$eid = "";
    1186. 

  1186. 		$patient_id = "";
    1187. 

  1187. 		$fname ="";
    1188. 

  1188. 

  1189. 		$obj= $m->getparam(0);
    1190. 

  1190. 		$key = $obj->getval();
    1191. 

  1191. 

  1192. 		$sql = "SELECT pid, encounter FROM billing where id = '$key'";
    1193. 

  1193. 

  1194. 		$db = $GLOBALS['adodb']['db'];
    1195. 

  1195. 		$results = $db->Execute($sql);
    1196. 

  1196. 

  1197. 		if (!$results) {
    1198. 

  1198. 			$err = $db->ErrorMsg();
    1199. 

  1199. 		}
    1200. 

  1200. 		else {
    1201. 

  1201. 			if (!$results->EOF) {
    1202. 

  1202. 				$eid = $results->fields['encounter'];
    1203. 

  1203. 				$patient_id = $results->fields['pid'];
    1204. 

  1204. 			}
    1205. 

  1205. 		}
    1206. 

  1206. 

  1207. 		$sql = "SELECT facility_id FROM form_encounter where encounter = '$eid' and pid = '$patient_id'";
    1208. 

  1208. 

  1209. 		$results = $db->Execute($sql);
    1210. 

  1210. 

  1211. 		if (!$results) {
    1212. 

  1212. 			$err = $db->ErrorMsg();
    1213. 

  1213. 		}
    1214. 

  1214. 		else {
    1215. 

  1215. 			if (!$results->EOF) {
    1216. 

  1216. 				$facility_id = $results->fields['facility_id'];
    1217. 

  1217. 			}
    1218. 

  1218. 		}
    1219. 

  1219. 

  1220.     /****
    1221. 

  1221. 		$sql = "SELECT * FROM facility where name = '" . $fname . "'";
    1222. 

  1222. 		$results = $db->Execute($sql);
    1223. 

  1223. 		if (!$results) {
    1224. 

  1224. 			echo "error";
    1225. 

  1225. 			$err = $db->ErrorMsg();
    1226. 

  1226. 		}
    1227. 

  1227. 		else {
    1228. 

  1228. 			if (!$results->EOF) {
    1229. 

  1229. 				$fkey =	$results->fields['id'];
    1230. 

  1230. 			}
    1231. 

  1231. 		}
    1232. 

  1232.     ****/
    1233. 

  1233. 

  1234. 		if ($err) {
    1235. 

  1235. 			return $this->_handleError($err);
    1236. 

  1236. 		}
    1237. 

  1237. 		else {
    1238. 

  1238. 			return new xmlrpcresp(new xmlrpcval($facility_id, "i4"));
    1239. 

  1239. 		}
    1240. 

  1240. 	}
    1241. 

  1241. 

  1242. 	function billingcontactkey($m) {
    1243. 

  1243. 

  1244. 		$err="";
    1245. 

  1245. 

  1246. 		$pkey = 0;
    1247. 

  1247. 

  1248. 		// if we generated an error, create an error return response
    1249. 

  1249. 		if ($err) {
    1250. 

  1250. 			return $this->_handleError($err);
    1251. 

  1251. 		}
    1252. 

  1252.   		else {
    1253. 

  1253. 			// otherwise, we create the right response
    1254. 

  1254. 			// with the state name
    1255. 

  1255. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    1256. 

  1256. 		}
    1257. 

  1257. 	}
    1258. 

  1258. 	function billingservicekey($m) {
    1259. 

  1259. 

  1260. 		$err="";
    1261. 

  1261. 

  1262. 		$pkey = 0;
    1263. 

  1263. 

  1264. 		// if we generated an error, create an error return response
    1265. 

  1265. 		if ($err) {
    1266. 

  1266. 			return $this->_handleError($err);
    1267. 

  1267. 		}
    1268. 

  1268.   		else {
    1269. 

  1269. 			// otherwise, we create the right response
    1270. 

  1270. 			// with the state name
    1271. 

  1271. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    1272. 

  1272. 		}
    1273. 

  1273. 	}
    1274. 

  1274. 

  1275. 

  1276. 	function isusingbillingservice($m) {
    1277. 

  1277. 

  1278. 		$err="";
    1279. 

  1279. 

  1280. 		$pkey = false;
    1281. 

  1281. 

  1282. 		// if we generated an error, create an error return response
    1283. 

  1283. 		if ($err) {
    1284. 

  1284. 			return $this->_handleError($err);
    1285. 

  1285. 		}
    1286. 

  1286.   		else {
    1287. 

  1287. 			// otherwise, we create the right response
    1288. 

  1288. 			// with the state name
    1289. 

  1289. 			return new xmlrpcresp(new xmlrpcval($pkey,"i4"));
    1290. 

  1290. 		}
    1291. 

  1291. 	}
    1292. 

  1292. 

  1293. 	function clearinghousekey($m) {
    1294. 

  1294. 

  1295. 		$err="";
    1296. 

  1296. 

  1297. 		$eid = "";
    1298. 

  1298. 		$patient_id = "";
    1299. 

  1299. 		$fname ="";
    1300. 

  1300. 

  1301. 		$obj= $m->getparam(0);
    1302. 

  1302. 		$key = $obj->getval();
    1303. 

  1303. 

  1304. 		$sql = "SELECT * FROM billing where id = '" . $key . "'";
    1305. 

  1305. 

  1306. 		$db = $GLOBALS['adodb']['db'];
    1307. 

  1307. 		$results = $db->Execute($sql);
    1308. 

  1308. 

  1309. 		if (!$results) {
    1310. 

  1310. 			$err = $db->ErrorMsg();
    1311. 

  1311. 		}
    1312. 

  1312. 		else {
    1313. 

  1313. 			if (!$results->EOF) {
    1314. 

  1314. 				$eid = $results->fields['encounter'];
    1315. 

  1315. 				$patient_id = $results->fields['pid'];
    1316. 

  1316. 			}
    1317. 

  1317. 		}
    1318. 

  1318. 

  1319. 		$sql = "SELECT * FROM form_encounter where encounter = '" . $eid ."' and pid = '" . $patient_id ."'";
    1320. 

  1320. 

  1321. 		$results = $db->Execute($sql);
    1322. 

  1322. 

  1323. 		if (!$results) {
    1324. 

  1324. 			$err = $db->ErrorMsg();
    1325. 

  1325. 		}
    1326. 

  1326. 		else {
    1327. 

  1327. 			if (!$results->EOF) {
    1328. 

  1328. 				$fname = $results->fields['facility'];
    1329. 

  1329. 			}
    1330. 

  1330. 		}
    1331. 

  1331. 

  1332. 		$sql = "SELECT * FROM facility where name = '" . $fname ."'";
    1333. 

  1333. 		$results = $db->Execute($sql);
    1334. 

  1334. 		if (!$results) {
    1335. 

  1335. 			echo "error";
    1336. 

  1336. 			$err = $db->ErrorMsg();
    1337. 

  1337. 		}
    1338. 

  1338. 		else {
    1339. 

  1339. 			if (!$results->EOF) {
    1340. 

  1340. 				$fkey =	$results->fields['id'];
    1341. 

  1341. 			}
    1342. 

  1342. 		}
    1343. 

  1343. 

  1344. 		// if we generated an error, create an error return response
    1345. 

  1345. 		if ($err) {
    1346. 

  1346. 			return $this->_handleError($err);
    1347. 

  1347. 		}
    1348. 

  1348.   		else {
    1349. 

  1349. 			// otherwise, we create the right response
    1350. 

  1350. 			// with the state name
    1351. 

  1351. 			return new xmlrpcresp(new xmlrpcval($fkey,"i4"));
    1352. 

  1352. 		}
    1353. 

  1353. 

  1354. 	}
    1355. 

  1355. 

  1356. 	function ndcline($m) {
    1357. 

  1357. 		$err="";
    1358. 

  1358. 		$retval = "";
    1359. 

  1359. 		$obj= $m->getparam(0);
    1360. 

  1360. 		$key = $obj->getval();
    1361. 

  1361. 		$sql = "SELECT ndc_info FROM billing where id = '$key'";
    1362. 

  1362. 		$db = $GLOBALS['adodb']['db'];
    1363. 

  1363. 		$results = $db->Execute($sql);
    1364. 

  1364. 		if (!$results) {
    1365. 

  1365. 			$err = $db->ErrorMsg();
    1366. 

  1366. 		}
    1367. 

  1367. 		else {
    1368. 

  1368. 			if (!$results->EOF) {
    1369. 

  1369.         // Medicare says the NDC number must be 11 digits with no dashes.
    1370. 

  1370.         $ndcinfo = $results->fields['ndc_info'];
    1371. 

  1371.         if (preg_match('/^N4(\S+)\s+(\S*)/', $ndcinfo, $tmpa)) {
    1372. 

  1372.           $ndc = $tmpa[1];
    1373. 

  1373.           if (preg_match('/^(\d+)-(\d+)-(\d+)$/', $ndc, $tmpb)) {
    1374. 

  1374.             $ndc = sprintf('%05d%04d%02d', $tmpb[1], $tmpb[2], $tmpb[3]);
    1375. 

  1375.           }
    1376. 

  1376.           $ndcinfo = "N4$ndc   " . $tmpa[2];
    1377. 

  1377.         }
    1378. 

  1378. 				$retval = $ndcinfo;
    1379. 

  1379. 			}
    1380. 

  1380. 		}
    1381. 

  1381. 		if ($err) {
    1382. 

  1382. 			return $this->_handleError($err);
    1383. 

  1383. 		}
    1384. 

  1384. 		else {
    1385. 

  1385. 			return new xmlrpcresp(new xmlrpcval($retval, "string"));
    1386. 

  1386. 		}
    1387. 

  1387. 	}
    1388. 

  1388. 

  1389. }
    1390. 

  1390. 

  1391. //'FreeB.FBProcedure.isUsingClearingHouse' 	=> \&FreeB_FBProcedure_isUsingClearingHouse,
    1392. 

  1392. //'FreeB.FBProcedure.ProcArray' 			=> \&FreeB_FBProcedure_ProcArray,
    1393. 

  1393. //'FreeB.FBProcedure.DiagArray' 			=> \&FreeB_FBProcedure_DiagArray,
    1394. 

  1394. //'FreeB.FBProcedure.CPT4Code' 			=> \&FreeB_FBProcedure_CPT4Code,
    1395. 

  1395. //'FreeB.FBProcedure.CPT5Code' 			=> \&FreeB_FBProcedure_CPT4Code,
    1396. 

  1396. //'FreeB.FBProcedure.CPTUnits' 			=> \&FreeB_FBProcedure_CPTUnits,
    1397. 

  1397. //'FreeB.FBProcedure.CPTModifier' 		=> \&FreeB_FBProcedure_CPTModifier,
    1398. 

  1398. //'FreeB.FBProcedure.CPTCharges'	 		=> \&FreeB_FBProcedure_CPTCharges,
    1399. 

  1399. //'FreeB.FBProcedure.CPTEmergency' 		=> \&FreeB_FBProcedure_CPTEmergency,
    1400. 

  1400. //'FreeB.FBProcedure.CPTCOB' 			=> \&FreeB_FBProcedure_CPTCOB,
    1401. 

  1401. //'FreeB.FBProcedure.CPTEPSDT' 			=> \&FreeB_FBProcedure_CPTEPSDT,
    1402. 

  1402. //'FreeB.FBProcedure.AmountPaid' 			=> \&FreeB_FBProcedure_AmountPaid,
    1403. 

  1403. //'FreeB.FBProcedure.TypeOfService' 		=> \&FreeB_FBProcedure_TypeOfService,
    1404. 

  1404. //'FreeB.FBProcedure.PriorAuth' 			=> \&FreeB_FBProcedure_PriorAuth,
    1405. 

  1405. //'FreeB.FBProcedure.DateOfServiceStart' 		=> \&FreeB_FBProcedure_DateOfServiceStart,
    1406. 

  1406. //'FreeB.FBProcedure.DateOfServiceEnd' 		=> \&FreeB_FBProcedure_DateOfServiceEnd,
    1407. 

  1407. //'FreeB.FBProcedure.DateOfHospitalStart' 	=> \&FreeB_FBProcedure_DateOfHospitalStart,
    1408. 

  1408. //'FreeB.FBProcedure.isHospitalized' 		=> \&FreeB_FBProcedure_isHospitalized,
    1409. 

  1409. //'FreeB.FBProcedure.isOutsideLab' 		=> \&FreeB_FBProcedure_isOutsideLab,
    1410. 

  1410. //'FreeB.FBProcedure.OutsideLabCharges' 		=> \&FreeB_FBProcedure_OutSideLabCharges,
    1411. 

  1411. //'FreeB.FBProcedure.DateOfHospitalEnd' 		=> \&FreeB_FBProcedure_DateOfHospitalEnd,
    1412. 

  1412. //'FreeB.FBProcedure.MedicaidResubmissionCode' 	=> \&FreeB_FBProcedure_MedicaidResubmissionCode,
    1413. 

  1413. //'FreeB.FBProcedure.MedicaidOriginalReference' 	=> \&FreeB_FBProcedure_MedicaidOriginalReference,
    1414. 

  1414. //'FreeB.FBProcedure.WeightGrams' 		=> \&FreeB_FBProcedure_WeightGrams,
    1415. 

  1415. //'FreeB.FBProcedure.WeightPounds'	 	=> \&FreeB_FBProcedure_WeightPounds,
    1416. 

  1416. //'FreeB.FBProcedure.HCFALocalUse10d' 		=> \&FreeB_FBProcedure_HCFALocalUse10d,
    1417. 

  1417. //'FreeB.FBProcedure.HCFALocalUse19' 		=> \&FreeB_FBProcedure_HCFALocalUse19,
    1418. 

  1418. ?>
    1419.