- This topic has 3 replies, 2 voices, and was last updated 9 years, 3 months ago by
.
-
Topic
-
I am getting a Base64 encoded PDF in a Z segment of an HL7 message. Does anyone know of a way to determine how many pages are in the PDF using tcl? If there is no way to do it with a Base 64 encoded PDF, is there another encoding I can change the PDF to, that would then allow me to check the number of pages (using tcl)?
-
Replies
-
-
You can use the base64 package from Tcllib (included with Cloverleaf) to decode base64 data. Here’s an example:
Code:keylget args MSGID mh
package require hl7
package require base64
set msg [msgget $mh]
set hl7 [hl7::parse_msg $msg]
keylset userdata MRN [hl7::get_field hl7 PID.3]
keylset userdata ACCT [hl7::get_field hl7 PID.18]
keylset userdata DOC_ID [hl7::get_field hl7 OBR.2]
keylset userdata DOC_TYPE PACEEVAL
msgmetaset $mh USERDATA $userdatamsgset $mh [::base64::decode [hl7::get_field hl7 OBX.5.5]]
lappend dispList “CONTINUE $mh”After calling base64::decode you have the PDF data in a string. You have two options after that. One way is to send the data to an external utility like pdfinfo and read back the number of pages. You’d have to use the exec system call or use “open” with a piped command instead of a filename. The advantage of this option is that it is reliable and will continue to work even if the sender makes changes in the way that the PDF is produced.
The other option is to look for a string in the PDF content that has page information and parse it out of the PDF. I just looked at one of the PDFs that I’m processing and found this line:
1 0 obj<>
I could use a regular expression to get the page count (2) without sending that data to an external utility.
-
-
-
- The forum ‘Cloverleaf’ is closed to new topics and replies.
