At 05:38 PM 2/5/2010, Tom Frederick wrote:
What works on C:\RBTI is:
SET VAR vCurrDir TEXT = ((CVAL('CurrDir'))+'\PDFs\')
SET VAR vRep TEXT = 'MHA'
SET VAR vRepTitle TEXT = +
((CTXT(.vZID))+'_'+.vRep+'_'+.vStDate+'_'+.vStTime+'.PDF')
SET VAR vFileName TEXT = (.vCurrDir + .vRepTitle)
PRINT Mental_Health_Assemment WHERE ZID = (.vZID) +
OPTION PDF +
|FILENAME .vFileName +
edited 20 lines out
|OPEN OFF
Once the PDF is done the user can review it, decide to keep
it, print and send to storage. Under HIPPA rules I have to
limit who has access and who can write reports.
Is there a PDF folder under the current directory on the network?
If not, try the following code to assure the existence of PDF
folder under the current directory, before printing the report
as PDF with FILENAME parameter.
IF vReportOutPut = 'PDF' THEN
-- Verify the existance of PDF Sub-Directory
SET VAR vChkFile INTEGER = NULL
SET VAR vChkFile = (CHKFILE('PDF'))
IF vChkFile <> 1 THEN
MD PDF
ENDIF
ENDIF
Very Best R:egards,
Razzak.
