PageRenderTime 120ms CodeModel.GetById 21ms RepoModel.GetById 2ms app.codeStats 0ms

/include/imgcreator/inc_etik.php

https://github.com/timschofield/2.8
PHP | 366 lines | 256 code | 49 blank | 61 comment | 23 complexity | 121826af65a60b1c5ed71b7a0291900f MD5 | raw file
Possible License(s): LGPL-2.1, BSD-3-Clause, GPL-2.0 
    

  1. <?php
    2. 

  2. /**
    3. 

  3. * This script is included by the barcode-etik.php for non arabic languages
    4. 

  4. */
    5. 

  5. 

  6. 		# Location info, admission class, blood group
    7. 

  7. 		$locstr=strtoupper($location['dept_id']).' '.strtoupper($location['ward_id']).' '.$location['roomprefix'];
    8. 

  8. 		if($location['room_nr'])  $locstr.='-'.$location['room_nr'];
    9. 

  9. 		if($location['bed_nr']) $locstr.=' '.strtoupper(chr($location['bed_nr']+96));
    10. 

  10. 		$locstr.=' '.$admit_type.' ';
    11. 

  11. 		$locstr.=$LDInsShortID[$result['insurance_class_nr']];
    12. 

  12. 		
    13. 

  13.     $bc = ImageCreateFrompng(CARE_BASE .'cache/barcodes/en_'.$full_en.'.png');
    14. 

  14. 

  15.     $w=745;  // The width of the image = equal to the width of DIN-A4 paper
    16. 

  16.     $h=1080; // The height of the image = egual to the height of DIN-A4 paper
    17. 

  17. 	
    18. 

  18.     $im=ImageCreate($w,$h);
    19. 

  19. 

  20.     $white = ImageColorAllocate ($im, 255,255,255); //white bkgrnd
    21. 

  21.     $background= ImageColorAllocate ($im, 205, 225, 236);
    22. 

  22.     $blue=ImageColorAllocate($im, 0, 127, 255);
    23. 

  23.     $black = ImageColorAllocate ($im, 0, 0, 0);
    24. 

  24.   
    25. 

  25.     // draw black lines
    26. 

  26.     ImageLine($im,0,25,569,25,$black);
    27. 

  27.     ImageLine($im,0,220,569,220,$black);
    28. 

  28.     ImageLine($im,0,334,569,334,$black);
    29. 

  29.     for($n=0,$j=95;$n<3;$n++,$j+=95) ImageLine($im,$j,0,$j,25,$black);
    30. 

  30.     for($n=0,$j=114;$n<4;$n++,$j+=114) ImageLine($im,$j,334,$j,359,$black);
    31. 

  31.     ImageLine($im,285,26,285,220,$black);
    32. 

  32.     ImageLine($im,285,50,569,50,$black);
    33. 

  33.     ImageLine($im,285,75,569,75,$black);
    34. 

  34.     for($n=0,$j=380;$n<2;$n++,$j+=95) ImageLine($im,$j,0,$j,50,$black);
    35. 

  35. 	
    36. 

  36. 

  37. 	
    38. 

  38. 	# Draw the main information - the largest label
    39. 

  39.     // write item labels
    40. 

  40. 	if($ttf_render){
    41. 

  41. 	
    42. 

  42. 	ImageTTFText($im,9,0,5,11,$black,$arial,"$LDCaseNr:");
    43. 

  43.     ImageTTFText($im,10,0,5,24,$black,$arial,$full_en);
    44. 

  44.     ImageTTFText($im,9,0,100,11,$black,$arial,':'."$LDAdmitDate:");
    45. 

  45.     ImageTTFText($im,10,0,105,24,$black,$arial,formatDate2Local($result['encounter_date'],$date_format));
    46. 

  46.     ImageTTFText($im,9,0,195,11,$black,$arial,"$LDAdmitTime:");
    47. 

  47.     ImageTTFText($im,10,0,205,24,$black,$arial,formatDate2Local($result['encounter_date'],$date_format,1,1));
    48. 

  48.     ImageTTFText($im,9,0,290,11,$black,$arial,"$LDDept:");
    49. 

  49.     ImageTTFText($im,10,0,295,24,$black,$arial,$result['current_dept']);
    50. 

  50. 	ImageTTFText($im,9,0,385,11,$black,$arial,"$LDRoomNr:");
    51. 

  51.     ImageTTFText($im,10,0,390,24,$black,$arial,$result['current_room']);
    52. 

  52. 	ImageTTFText($im,9,0,480,11,$black,$arial,"$LDAdmitType:");
    53. 

  53.     ImageTTFText($im,10,0,485,24,$black,$arial,$result['encounter_type']);
    54. 

  54.     ImageTTFText($im,9,0,290,36,$black,$arial,"$LDBday:");
    55. 

  55.     ImageTTFText($im,10,0,290,49,$black,$arial,formatDate2Local($result['date_birth'],$date_format));
    56. 

  56.     ImageTTFText($im,9,0,385,36,$black,$arial,"$LDSex:");
    57. 

  57.     ImageTTFText($im,10,0,425,49,$black,$arial,strtoupper($result['sex']));
    58. 

  58.     ImageTTFText($im,9,0,480,36,$black,$arial,"$LDCivilStat:");
    59. 

  59.     ImageTTFText($im,10,0,485,49,$black,$arial,$result['civil_status']);
    60. 

  60. 	ImageTTFText($im,9,0,290,61,$black,$arial,"$LDPhone:");
    61. 

  61.     ImageTTFText($im,10,0,350,75,$black,$arial,$result['phone_1_nr']);
    62. 

  62. 	ImageTTFText($im,9,0,290,88,$black,$arial,"$LDInsurance:");
    63. 

  63.     ImageTTFText($im,10,0,300,110,$black,$arial,$result['insurance_co_id']);
    64. 

  64. 	ImageTTFText($im,9,0,290,205,$black,$arial,"$LDInsuranceNr:");
    65. 

  65.     ImageTTFText($im,10,0,360,205,$black,$arial,$result['insurance_nr']);
    66. 

  66. 

  67. 	// name & address
    68. 

  68.    	ImageTTFText($im,9,0,5,50,$black,$arial,"$LDNameAddr:");
    69. 

  69.    	ImageTTFText($im,12,0,10,80,$black,$arial,$result['name_last'].', '.$result['name_first']);
    70. 

  70.    	ImageTTFText($im,12,0,10,100,$black,$arial,ucfirst($result['addr_str']).' '.$result['addr_str_nr']);
    71. 

  71.    	ImageTTFText($im,12,0,10,115,$black,$arial,ucfirst($result['addr_zip']).' '.$result['name']);
    72. 

  72. 

  73. 	// diagnosis, therapie, 
    74. 

  74.     ImageTTFText($im,12,0,10,235,$black,$arial,"$LDDiagnosis: ".$result['referrer_diagnosis']);
    75. 

  75.     ImageTTFText($im,12,0,10,250,$black,$arial,"$LDRecBy: ".$result['referrer']);
    76. 

  76.     ImageTTFText($im,12,0,10,265,$black,$arial,"$LDTherapy: ".$result['referrer_recom_therapy']);
    77. 

  77.     ImageTTFText($im,12,0,10,280,$black,$arial,"$LDSpecials: ".$result['referrer_notes']);
    78. 

  78.     ImageTTFText($im,12,0,10,295,$black,$arial,"$LDAdmitDiagnosis :".$result['referrer_diagnosis']);
    79. 

  79.     ImageTTFText($im,12,0,10,310,$black,$arial,"$LDInfo2: ".$result['info2']);
    80. 

  80. 	    // -- print date, religion, 
    81. 

  81.    ImageTTFText($im,9,0,5,345,$black,$arial,"$LDPrintDate: ");
    82. 

  82.     ImageTTFText($im,10,0,5,358,$black,$arial,formatDate2Local(date('Y-m-d'),$date_format));
    83. 

  83.     ImageTTFText($im,9,119,345,$black,$arial,"$LDReligion: ");
    84. 

  84.     ImageTTFText($im,10,0,119,358,$black,$arial,$result['religion']);
    85. 

  85.     ImageTTFText($im,9,0,238,345,$black,$arial,"$LDTherapyType: ");
    86. 

  86.     ImageTTFText($im,10,0,238,358,$black,$arial,$result['therapy_type']);
    87. 

  87.     ImageTTFText($im,9,0,352,345,$black,$arial,"$LDTherapyOpt: ");
    88. 

  88.     ImageTTFText($im,10,0,352,358,$black,$arial,$result['therapy_option']);
    89. 

  89. 	ImageTTFText($im,9,0,466,345,$black,$arial,"$LDServiceType: ");
    90. 

  90.     ImageTTFText($im,10,0,466,358,$black,$arial,$result['service_type']);
    91. 

  91. 	 # Bill payer information
    92. 

  92. 	 #  Note: the address format is german
    93. 

  93.      #
    94. 

  94.      ImageTTFText($im,9,0,5,155,$black,$arial,"$LDBillInfo: ");	
    95. 

  95. 	}else{
    96. 

  96. 	
    97. 

  97.     ImageString($im,1,5,1,"$LDCaseNr:",$black);
    98. 

  98.     ImageString($im,4,5,9,$full_en,$black);
    99. 

  99.     ImageString($im,1,100,1,"$LDAdmitDate:",$black);
    100. 

  100.     ImageString($im,4,105,9,formatDate2Local($result['encounter_date'],$date_format),$black);
    101. 

  101.     ImageString($im,1,195,1,"$LDAdmitTime:",$black);
    102. 

  102.     ImageString($im,4,205,9,formatDate2Local($result['encounter_date'],$date_format,1,1),$black);
    103. 

  103.     ImageString($im,1,290,1,"$LDDept:",$black);
    104. 

  104.     ImageString($im,4,295,9,$result['current_dept'],$black);
    105. 

  105.     ImageString($im,1,385,1,"$LDRoomNr:",$black);
    106. 

  106.     ImageString($im,4,390,9,$result['current_room'],$black);
    107. 

  107.     ImageString($im,1,480,1,"$LDAdmitType:",$black);
    108. 

  108.     ImageString($im,4,485,9,$result['encounter_type'],$black);
    109. 

  109.     ImageString($im,1,290,26,"$LDBday:",$black);
    110. 

  110.     ImageString($im,4,290,34,formatDate2Local($result['date_birth'],$date_format),$black);
    111. 

  111.     ImageString($im,1,385,26,"$LDSex:",$black);
    112. 

  112.     ImageString($im,4,425,34,strtoupper($result['sex']),$black);
    113. 

  113.     ImageString($im,1,480,26,"$LDCivilStat:",$black);
    114. 

  114.     ImageString($im,4,485,34,$result['civil_status'],$black);
    115. 

  115.     ImageString($im,1,290,51,"$LDPhone:",$black);
    116. 

  116.     ImageString($im,4,350,60,$result['phone_1_nr'],$black);
    117. 

  117.     ImageString($im,1,290,78,"$LDInsurance:",$black);
    118. 

  118.     ImageString($im,4,300,95,$result['insurance_co_id'],$black);
    119. 

  119.     ImageString($im,1,290,195,"$LDInsuranceNr:",$black);
    120. 

  120.     ImageString($im,4,360,195,$result['insurance_nr'],$black);
    121. 

  121.     // name & address
    122. 

  122.     ImageString($im,1,5,40,"$LDNameAddr:",$black);
    123. 

  123.     ImageString($im,3,10,70,$result['name_last'].', '.$result['name_first'],$black);	
    124. 

  124. 	
    125. 

  125.     //for($a=0,$l=90;$a<sizeof($addr);$a++,$l+=15) ImageString($im,3,10,$l,$addr[$a],$black);
    126. 

  126.      ImageString($im,3,10,90,$result['addr_str'].' '.$result['addr_str_nr'],$black);
    127. 

  127.      ImageString($im,3,10,105,$result['addr_zip'].' '.$result['name'],$black);
    128. 

  128. 

  129. 	
    130. 

  130.     // diagnosis, therapie, 
    131. 

  131.     ImageString($im,3,10,225,$LDDiagnosis.': '.$result['referrer_diagnosis'],$black);
    132. 

  132.     ImageString($im,3,10,240,$LDRecBy.': '.$result['referrer'],$black);
    133. 

  133.     ImageString($im,3,10,255,$LDTherapy.': '.$result['referrer_recom_therapy'],$black);
    134. 

  134.     ImageString($im,3,10,270,$LDSpecials.': '.$result['referrer_notes'],$black);
    135. 

  135.     ImageString($im,3,10,285,$LDAdmitDiagnosis.': '.$result['referrer_diagnosis'],$black);
    136. 

  136.     ImageString($im,3,10,300,$LDInfo2.': '.$result[info2],$black);
    137. 

  137. 

  138. 		
    139. 

  139.     // -- print date, religion, 
    140. 

  140.     ImageString($im,1,5,336,"$LDPrintDate:",$black);
    141. 

  141.     ImageString($im,4,5,343,formatDate2Local(date('Y-m-d'),$date_format),$black);
    142. 

  142.     ImageString($im,1,119,336,"$LDReligion:",$black);
    143. 

  143.     ImageString($im,4,119,343,$result['religion'],$black);
    144. 

  144.     ImageString($im,1,238,336,"$LDTherapyType:",$black);
    145. 

  145.     ImageString($im,4,238,343,$result[therapy_type],$black);
    146. 

  146.     ImageString($im,1,352,336,"$LDTherapyOpt:",$black);
    147. 

  147.     ImageString($im,4,352,343,$result[therapy_option],$black);
    148. 

  148.     ImageString($im,1,466,336,"$LDServiceType:",$black);
    149. 

  149.     ImageString($im,4,466,343,$result['service_type'],$black);
    150. 

  150. 	 # Bill payer information
    151. 

  151. 	 #  Note: the address format is german
    152. 

  152.      #
    153. 

  153.      ImageString($im,1,5,145,"$LDBillInfo:",$black);	
    154. 

  154. 	 }
    155. 

  155. 	
    156. 

  156. 	// place the barcode
    157. 

  157.     ImageCopy($im,$bc,110,28,9,9,170,37);
    158. 

  158. 

  159. 

  160. 

  161. 	 
    162. 

  162. 	 if ($result['payer_other']=='')
    163. 

  163. 	 {
    164. 

  164. 	 	if($ttf_render){
    165. 

  165.      	 	ImageTTFText($im,12,0,10,170,$black,$arial,$result['name_last'].', '.$result['name_first']);
    166. 

  166.    	     	ImageTTFText($im,12,0,10,185,$black,$arial,ucfirst($result['addr_str']).' '.$result['addr_str_nr']);
    167. 

  167.     	 	ImageTTFText($im,12,0,10,200,$black,$arial,ucfirst($result['addr_zip']).' '.$result['name']);
    168. 

  168. 	 }else{
    169. 

  169.          	ImageString($im,3,10,160,$result['name_last'].', '.$result['name_first'],$black);
    170. 

  170.          	ImageString($im,3,10,175,$result['addr_str'].' '.$result['addr_str_nr'],$black);
    171. 

  171.          	ImageString($im,3,10,190,$result['addr_zip'].' '.$result['name'],$black);
    172. 

  172. 		}
    173. 

  173. 	}
    174. 

  174. 	else
    175. 

  175. 	{
    176. 

  176. 	    $addr_buffer=nl2br($result['payer_other']);
    177. 

  177. 		$addr_buffer=explode('<br>',$addr_buffer);
    178. 

  178. 		for($i=0,$n=160;$i<sizeof($addr_buffer);$i++,$n+=15)
    179. 

  179. 		{
    180. 

  180. 			if($ttf_render){
    181. 

  181. 			}else{
    182. 

  182.             	ImageString($im,3,10,$n,trim($addr_buffer[$i]),$black);
    183. 

  183. 			}
    184. 

  184. 		}
    185. 

  185. 			
    186. 

  186. 	}
    187. 

  187. 

  188. 	
    189. 

  189. 	// Contact person
    190. 

  190. 	if($result['contact_person']!='')
    191. 

  191. 	{
    192. 

  192. 	    //$addr_buffer=nl2br($result['contact_person']);
    193. 

  193. 		$addr_buffer=str_replace("\r",', ',$result['contact_person']);
    194. 

  194. 		$addr_buffer=str_replace("\n",'',$addr_buffer);
    195. 

  195.         ImageString($im,4,90,305,$addr_buffer,$black);
    196. 

  196. 	}
    197. 

  197. 

  198. 	
    199. 

  199. 	# Create the medium large labels
    200. 

  200. 	
    201. 

  201.     // -- create label 
    202. 

  202.     $label=ImageCreate(282,178);
    203. 

  203.     $ewhite = ImageColorAllocate ($label, 255,255,255); //white bkgrnd
    204. 

  204.     $elightgreen= ImageColorAllocate ($im, 205, 225, 236);
    205. 

  205.     $eblue=ImageColorAllocate($im, 0, 127, 255);
    206. 

  206.     $eblack = ImageColorAllocate ($label, 0, 0, 0);
    207. 

  207. 	// place the barcode
    208. 

  208.     ImageCopy($label,$bc,101,4,9,9,170,37);
    209. 

  209. 

  210. 

  211. 

  212. 	if($ttf_ok){
    213. 

  213. 		
    214. 

  214. 		$tmargin=2;
    215. 

  215. 		$lmargin=6;
    216. 

  216. 		
    217. 

  217.   		#  Full encounter nr
    218. 

  218.     	ImageTTFText($label,12,0,$lmargin,$tmargin+14,$eblack,$arial,$full_en);
    219. 

  219. 		# Encounter admission date
    220. 

  220.     	ImageTTFText($label,11,0,$lmargin,$tmargin+30,$eblack,$arial,formatDate2Local($result['encounter_date'],$date_format));
    221. 

  221. 		# Family name, first name
    222. 

  222.     	ImageTTFText($label,16,0,$lmargin,$tmargin+56,$eblack,$arial,$result['name_last'].', '.$result['name_first']);
    223. 

  223. 		# Date of birth
    224. 

  224.     	ImageTTFText($label,11,0,$lmargin,$tmargin+74,$eblack,$arial,formatDate2Local($result['date_birth'],$date_format));
    225. 

  225. 		# Address street nr, street name
    226. 

  226.     	ImageTTFText($label,11,0,$lmargin,$tmargin+93,$eblack,$arial,ucfirst($result['addr_str'].' '.$result['addr_str_nr']));
    227. 

  227. 		# Address, zip, city/town name
    228. 

  228.     	ImageTTFText($label,11,0,$lmargin,$tmargin+108,$eblack,$arial,ucfirst($result['addr_zip']).' '.$result['name']);
    229. 

  229. 		# Sex
    230. 

  230.     	ImageTTFText($label,14,0,$lmargin,$tmargin+130,$eblack,$arial,strtoupper($result['sex']));
    231. 

  231. 		# Family name, repeat print
    232. 

  232.     	ImageTTFText($label,14,0,$lmargin+30,$tmargin+130,$eblack,$arial,$result['name_last']);
    233. 

  233. 		# Insurance co name
    234. 

  234.     	ImageTTFText($label,14,0,$lmargin,$tmargin+150,$eblack,$arial,$ins_obj->getFirmName($result['insurance_firm_id']));
    235. 

  235. 		# Location
    236. 

  236.     	ImageTTFText($label,9,0,$lmargin,$tmargin+170,$eblack,$arial,$locstr);
    237. 

  237. 		#Blood group
    238. 

  238. 		if(stristr('AB',$result['blood_group'])){
    239. 

  239.     		ImageTTFText($label,24,0,$lmargin+240,$tmargin+127,$eblack,$arial,$result['blood_group']);
    240. 

  240. 		}else{
    241. 

  241.     		ImageTTFText($label,24,0,$lmargin+245,$tmargin+127,$eblack,$arial,$result['blood_group']);
    242. 

  242. 		}
    243. 

  243. 	}else{ # Use system fonts
    244. 

  244. 	   
    245. 

  245. 		# encounter number
    246. 

  246.     	ImageString($label,4,2,2,$full_en,$black);
    247. 

  247. 		# encounter date
    248. 

  248.    	 	ImageString($label,2,2,18,formatDate2Local($result['encounter_date'],$date_format),$black); 
    249. 

  249.     	ImageString($label,5,10,40,$result['name_last'].', '.$result['name_first'],$black);
    250. 

  250.     	ImageString($label,3,10,55,formatDate2Local($result['date_birth'],$date_format),$black);
    251. 

  251.      	ImageString($label,4,10,75,$result['addr_str'].' '.$result['addr_str_nr'],$black);
    252. 

  252.      	ImageString($label,4,10,90,$result['addr_zip'].' '.$result['name'],$black);
    253. 

  253. 	
    254. 

  254.     	ImageString($label,5,10,125,strtoupper($result['sex']),$black);
    255. 

  255.     	ImageString($label,5,30,125,$result['name_last'],$black);
    256. 

  256.     	ImageString($label,4,10,140,$ins_obj->getFirmName($result['insurance_firm_id']),$black);
    257. 

  257.     	ImageString($label,3,10,160,$locstr,$black);
    258. 

  258. 		#Blood group
    259. 

  259. 		if(stristr('AB',$result['blood_group'])){
    260. 

  260.     		ImageString($label,5,257,125,$result['blood_group'],$black);
    261. 

  261. 		}else{
    262. 

  262.     		ImageString($label,5,265,125,$result['blood_group'],$black);
    263. 

  263. 		}
    264. 

  264. 	
    265. 

  265. 	}
    266. 

  266. 

  267. 	
    268. 

  268.     # -- create smaller label
    269. 

  269.     $label2=ImageCreate(173,133);
    270. 

  270.     $e2white = ImageColorAllocate ($label2, 255,255,255); //white bkgrnd
    271. 

  271.     $black = ImageColorAllocate ($label2, 0, 0, 0);
    272. 

  272. 	# -- place barcode
    273. 

  273.     ImageCopy($label2,$bc,2,0,9,7,170,37);
    274. 

  274. 

  275. 	if($ttf_ok){
    276. 

  276.    	ImageTTFText($label2,9,0,10,45,$black,$arial,$full_en);
    277. 

  277.     	ImageTTFText($label2,9,0,105,45,$black,$arial,formatDate2Local($result['encounter_date'],$date_format));
    278. 

  278.     	ImageTTFText($label2,11,0,10,60,$black,$arial,$result['name_last'].',');
    279. 

  279.     	ImageTTFText($label2,11,0,10,75,$black,$arial,$result['name_first']);
    280. 

  280.     	ImageTTFText($label2,11,0,10,95,$black,$arial,strtoupper($result['sex']));
    281. 

  281.     	ImageTTFText($label2,10,0,50,95,$black,$arial,formatDate2Local($result['date_birth'],$date_format));
    282. 

  282.     	ImageTTFText($label2,10,0,10,109,$black,$arial,$ins_obj->getFirmName($result['insurance_firm_id']));
    283. 

  283.     	ImageTTFText($label2,9,0,10,124,$black,$arial,$locstr);
    284. 

  284.     }else{
    285. 

  285. 		ImageString($label2,2,10,34,$full_en,$black);
    286. 

  286.     	ImageString($label2,2,110,34,formatDate2Local($result['encounter_date'],$date_format),$black);
    287. 

  287.     	ImageString($label2,4,10,50,$result['name_last'].',',$black);
    288. 

  288.     	ImageString($label2,4,10,65,$result['name_first'],$black);
    289. 

  289.     	ImageString($label2,4,10,85,strtoupper($result['sex']),$black);
    290. 

  290.     	ImageString($label2,3,50,85,formatDate2Local($result['date_birth'],$date_format),$black);
    291. 

  291.     	ImageString($label2,3,10,100,$result['insurance_co_id'],$black);
    292. 

  292.     	ImageString($label2,2,10,115,$locstr,$black);
    293. 

  293.     }
    294. 

  294. 	
    295. 

  295. 	
    296. 

  296.     # ----- create smaller label without barcode
    297. 

  297.     $label3=ImageCreate(173,133);
    298. 

  298.     $e3white = ImageColorAllocate ($label3, 255,255,255); # white bkgrnd
    299. 

  299.     $black = ImageColorAllocate ($label3, 0, 0, 0);
    300. 

  300. 	$addr1=$result['addr_str'].' '.$result['addr_str_nr'];
    301. 

  301. 	$addr2= $result['addr_zip'].' - '.$result['name'];
    302. 

  302. 	
    303. 

  303. 	if($ttf_ok){
    304. 

  304.     	ImageTTFText($label3,12,0,10,11,$black,$arial,$full_en);
    305. 

  305.     	ImageTTFText($label3,9,0,110,11,$black,$arial,formatDate2Local($result['encounter_date'],$date_format));
    306. 

  306.     	ImageTTFText($label3,12,0,10,34,$black,$arial,$result['name_last'].',');
    307. 

  307.     	ImageTTFText($label3,12,0,10,49,$black,$arial,$result['name_first']);
    308. 

  308.     	ImageTTFText($label3,10,0,10,64,$black,$arial,formatDate2Local($result['date_birth'],$date_format));
    309. 

  309.     	ImageTTFText($label3,10,0,10,84,$black,$arial,$addr1);
    310. 

  310.     	ImageTTFText($label3,10,0,10,99,$black,$arial,$addr2);
    311. 

  311. 	}else{
    312. 

  312. 	
    313. 

  313.     	ImageString($label3,4,10,2,$full_en,$black);
    314. 

  314.     	ImageString($label3,2,110,2,formatDate2Local($result['encounter_date'],$date_format),$black);
    315. 

  315.     	ImageString($label3,4,10,25,$result['name_last'].',',$black);
    316. 

  316.     	ImageString($label3,4,10,40,$result['name_first'],$black);
    317. 

  317.     	ImageString($label3,2,10,55,formatDate2Local($result['date_birth'],$date_format),$black);
    318. 

  318.      	ImageString($label3,2,10,75,$addr1,$black);
    319. 

  319.      	ImageString($label3,2,10,90,$addr2,$black);
    320. 

  320. 	} 
    321. 

  321. 	
    322. 

  322.     //-------------- place 6 labels
    323. 

  323.     for($i=0,$wi=359;$i<4;$i++,$wi+=179)
    324. 

  324.     {
    325. 

  325.         ImageCopy($im,$label,1,$wi,0,0,282,178);
    326. 

  326.         ImageCopy($im,$label,285,$wi,0,0,282,178);
    327. 

  327.         if(defined('DRAW_BORDER')&&DRAW_BORDER) ImageLine($im,0,$wi,569,$wi,$blue);
    328. 

  328.     }
    329. 

  329. 

  330.     // ---  place the smaller labels
    331. 

  331.     for($i=0,$j=1;$i<1080;$i+=135,$j++)
    332. 

  332.     {
    333. 

  333.         if($j>4) ImageCopy($im,$label2,570,$i+5,0,0,173,133);
    334. 

  334. 	        else ImageCopy($im,$label3,570,$i+5,0,0,173,133);
    335. 

  335.         if(defined('DRAW_BORDER')&&DRAW_BORDER) ImageLine($im,569,$i,$w-1,$i,$blue);
    336. 

  336.     }
    337. 

  337. 	
    338. 

  338. 	if(defined('DRAW_BORDER')&&DRAW_BORDER){
    339. 

  339.     	ImageLine($im,0,0,$w-1,0,$blue);
    340. 

  340.     	ImageLine($im,0,0,0,$h-1,$blue);
    341. 

  341.     	ImageLine($im,0,$h-1,$w-1,$h-1,$blue);
    342. 

  342.     	ImageLine($im,$w-1,0,$w-1,$h-1,$blue);
    343. 

  343.     	ImageLine($im,569,0,569,$h-1,$blue);
    344. 

  344.     	ImageLine($im,284,359,284,$h-1,$blue);
    345. 

  345. 	}
    346. 

  346. 	
    347. 

  347.     Imagepng ($im);
    348. 

  348. 	
    349. 

  349. 	// *******************************************************************
    350. 

  350.     // * comment the following one line if you want to deactivate caching of 
    351. 

  351. 	// * the barcode label image
    352. 

  352. 	// *******************************************************************
    353. 

  353. /*    
    354. 

  354. 	// START
    355. 

  355.     Imagepng ($im,"../cache/barcodes/pn_".$pn."_bclabel_".$lang.".png");
    356. 

  356. 	// END
    357. 

  357. */	
    358. 

  358. 	// Do not edit the following lines
    359. 

  359. /*    ImageDestroy ($label);
    360. 

  360.     ImageDestroy ($label2);
    361. 

  361.     ImageDestroy ($label3);*/
    362. 

  362. /*
    363. 

  363. }
    364. 

  364. */
    365. 

  365. ImageDestroy ($im);
    366. 

  366. ?>
    367.