 <cfquery  name="GetComm" datasource="#Application.DataSrc#">
  SELECT DISTINCT c.Comm_Id, c.CommSub_Id, c.Comm_Date
	      ,cs.CommSub_Id, cs.Subject,c.Memo,c.Followup_Desc, c.Followup_Memo,c.Resolved
	      ,e.Emp_ID, e.Emp_Last, e.Emp_First
	      ,(SELECT Pt_Last FROM #Request.prefix_db_agency#.pPatients WHERE Patient_Id = c.Patient_Id AND pPatients.Status < 2) AS Last_Name_M0040
	      ,(SELECT Pt_First FROM #Request.prefix_db_agency#.pPatients WHERE Patient_Id = c.Patient_Id  AND pPatients.Status < 2) AS First_Name_M0040
  FROM  #Request.prefix_db_agency#.Communication c, 
  #Request.prefix_db_lookup#.pEmployee e, #Request.prefix_db_agency#.CommunicationSubjects cs
  WHERE c.Agency_ID = '#session.AgencyId#'
  AND   e.Emp_ID = c.Employee_Id
 <!--- <cfif session.isagencylogin neq 1>
   AND   c.Employee_Id =  <cfqueryparam cfsqltype="cf_sql_integer" value="#session.employeeid#"> 
  </cfif> --->
  AND   cs.CommSub_Id = c.CommSub_Id
  AND   c.Resolved = 'No'
  ORDER BY c.Comm_Id DESC
 </cfquery> 
 
 
 <cfdocument   format = "PDF"   orientation = "portrait"   overwrite = "yes" marginbottom=".6"
margintop=".7" marginleft=".5" marginright=".5">
 <cfdocumentitem type="header">
 <table cellpadding="0" cellspacing="0" border="0" width="100%">
 <tr> 
 <td align="left" colspan="8">
	 <table cellpadding="0" cellspacing="0" border="0" width="100%">
	 <tr>
	 <td align="left" width="50%" style="font-family:Arial;font-size:14px;">
	  <b>Communication History</b>
	 </td>
	 <td align="right" width="50%" style="font-family:Arial;font-size:14px;">
	 <b><cfoutput>#session.Display#</cfoutput>&nbsp;(<cfoutput>#session.AgencyLogin#</cfoutput>)</b>
	 </td>
	 </tr>
	 </table>
 </td>
 </tr> 
 <tr>
   <td height="30px" width="10%" valign="middle" style="font-family:Arial;font-size:12px;border-bottom:1px solid 666666;border-top:1px solid 666666;">Date</td>
   <td height="30px" width="15%" valign="middle" style="padding-left:25px;font-family:Arial;font-size:12px;border-bottom:1px solid 666666;border-top:1px solid 666666;">Subject</td> 
   <td height="30px" width="20%" valign="middle" style="padding-left:15px;font-family:Arial;font-size:12px;border-bottom:1px solid 666666;border-top:1px solid 666666;">Memo</td>
   <td height="30px" width="12%" align="left" valign="middle" style="padding-left:0px;font-family:Arial;font-size:12px;border-bottom:1px solid 666666;border-top:1px solid 666666;">FU Action</td> 
   <td height="30px" width="15%" align="left" valign="middle" style="padding-left:15px;font-family:Arial;font-size:12px;border-bottom:1px solid 666666;border-top:1px solid 666666;">FU Memo</td>  
   <td height="30px" width="12%" align="left" valign="middle" style="padding-left:10px;font-family:Arial;font-size:12px;border-bottom:1px solid 666666;border-top:1px solid 666666;">Assigned to</td>
   <td height="30px" width="8%" align="left" valign="middle" style="padding-left:5px;font-family:Arial;font-size:12px;border-bottom:1px solid 666666;border-top:1px solid 666666;">Patient</td>
   <td height="30px" width="10%" align="left"  valign="middle" style="font-family:Arial;font-size:12px;border-bottom:1px solid 666666;border-top:1px solid 666666;">Resolved?</td>    
  </tr>  
 </table> 
 </cfdocumentitem> 
 <table cellpadding="0" cellspacing="0" border="0" width="100%" style='margin-top:none;padding-top:none;'>  
  <cfoutput query="getComm">
  <tr>
   <td valign='top' width="10%" style='text-align:center;border-bottom:1px solid 666666;font-size:12;font-family:Courier New;'>#DateFormat(GetComm.Comm_Date,"mm/dd/yyyy")#</td>
   <td valign='top' width="15%" style='text-align:left;border-bottom:1px solid 666666;padding-right:5px;font-size:12;font-family:Courier New'>#Subject#</td>
   <td valign='top' width="20%" style='padding-left:5px;border-bottom:1px solid 666666;font-size:12;font-family:Courier New;word-wrap: break-word'>#Memo#</td>
   <td valign='top' width="10%" style='padding-left:25px;border-bottom:1px solid 666666;font-size:12;font-family:Courier New'>#Followup_Desc#</td>
   <td valign='top' width="15%" style='padding-left:5px;border-bottom:1px solid 666666;font-size:12;font-family:Courier New'>#Followup_Memo#</td>    
   <td valign='top' width="12%" style='padding-left:5px;border-bottom:1px solid 666666;font-size:12;font-family:Courier New'>
   <cfquery  name="geta" datasource="#Application.DataSrc#">
   SELECT ct.Viewed, e.Emp_Last, e.Emp_First
   FROM   #Request.prefix_db_agency#.communication_to ct, #Request.prefix_db_lookup#.pEmployee e
   WHERE  ct.Comm_Id = '#Comm_Id#'
   AND    e.Emp_ID = ct.Employee_Id
   ORDER BY e.Emp_Last, e.Emp_First
  </cfquery>
  <cfset i = 0 />   
   <cfif geta.Viewed eq 'N'>
    #geta.Emp_Last# ,#LEFT(geta.Emp_First,1)# 
   <cfelse>   
    #geta.Emp_Last# ,#LEFT(geta.Emp_First,1)#.#DateFormat(geta.Viewed, "mm/dd")# @ #LCASE(TimeFormat(geta.Viewed, "hh:mm tt"))#
   </cfif>  
   </td>
   <td valign='top' width="8%" style='padding-left:5px;border-bottom:1px solid 666666;font-size:12;font-family:Courier New;'>#GetComm.Last_Name_M0040#<cfif GetComm.Last_Name_M0040 neq ''>,    </cfif>#GetComm.First_Name_M0040#</td> 
   <td valign='top' width="10%" style='text-align:center;border-bottom:1px solid 666666;padding-right:5px;font-size:12;font-family:Courier New'>#Resolved#</td>    
  </tr>  
 </cfoutput>
 </table>
 </cfdocument>



