ISCmiDetail.PDFStream

Description

This function exports Consumer medicine information for the Rx item as PDF file.

Syntax

object.PDFStream()

Part	Attribute	Type	Description
`object`	Required	ISCmiDetail	The `object` always implements the ISCmiDetail interface

Return Value

ISStream

Returns Consumer medicine information for the Rx item as PDF file.

Example

Export Cmi details for the loaded Rx items as PDF files and display the export log.

Dim aDestFilder
Dim aFileSystemObject, aFileName 
Dim aFilter
Dim aRxCollection, aRx
Dim i, j
Dim aCmiDetail
Dim aPDFStream 
Dim aMessage

aDestFilder = "D:\CmiDetails\"

'Make folder for Cmi details exporting
Set aFileSystemObject = CreateObject("Scripting.FileSystemObject")
aFileSystemObject.CreateFolder(aDestFilder)

set aFilter = Profile.CreateRxFilter
aFilter.RxName = "Pendine"
set aRxCollection = Profile.LoadRxCollection(aFilter)

aMessage = "Rx Collection Count = " & aRxCollection.Count &_
  vbNewLine & vbNewLine & "#  As String"

for i = 0 to aRxCollection.Count - 1
  set aRx = aRxCollection.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aRx.AsString & vbTab &_
    aRx.CmiDetailCount 
  for j = 0 to aRx.CmiDetailCount - 1
    set aCmiDetail = aRx.CmiDetail(j)
    aFileName = aDestFilder & (j + 1) & " - " & aRx.AsString & ".pdf"    
     
    aMessage = aMessage & vbNewLine & vbTab & (i + 1) & "." & (j + 1) & " " &_
      "Cmi detail Code: " & aCmiDetail.Code &_
      "   (saved in """ & aFileName & """)" 

    set aPDFStream = aCmiDetail.PDFStream
    aPDFStream.SaveToFile aFileName      
  next 'j 
next 'i      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Cmi details can be found in Maintain > Formulary > Rx > Show Consumer medicine information, in Clinical > Medical Record > New Encounter > Scripts > Usual Scrips tab > Show Consumer medicine information or in Clinical > New Encounter > Scripts > Usual Scrips tab > Show Consumer medicine information.

Version information

Added in v7.8.0