- This topic has 1 reply, 2 voices, and was last updated 9 years, 11 months ago by
.
-
Topic
-
Does any one have an example of scripts for sending out a repeating group into one message? I have an Material Management file with mulitple cd1, cd2 and cd3 segments.
I need to build each set of 123 segment into an hl7 message and send one message for each group.
If I can see proc that does a similar task I should be able to apply the logic to my script.
-
Replies
-
-
Here is one I wrote to convert to the CD1/CD2/CD3 stuff (I think its lawson ic527 file) to hl7.
Code:
set fileptr [open $localfilepathandname]
set mFS |
set mCS ^
set mRS ~
set mEC \
set mSS &
set msgNumber 0
while { [gets $fileptr line] >= 0 } {
set fieldList [split $line $mFS]
set segName [lindex $fieldList 0]
switch -exact — $segName {
MSH {
set sequenceNumber [lindex $fieldList 12]
}
MFI {
set masterFileIdentifier [lindex $fieldList 1]
set enteredDateTime [lindex $fieldList 3]
}
CD1 {
set productCategory [lindex $fieldList 7]
if { $productCategory ne “IMPL” } {
set itemCategory SUPPLY
}
}
CD2 {
set itemInfo [lindex $fieldList 2]
set itemId [string trimleft [lindex [split $itemInfo $mCS] 0] 0]
puts “itemId $itemId”
set itemName [string trim [lindex [split $itemInfo $mCS] 1]]
set itemIdType SUPID
set packageUnitOfMeasure [lindex $fieldList 4]
set packageQuantity [lindex $fieldList 5]
set manufacturerInfo [lindex $fieldList 12]
set manufacturerId [string trim [lindex [split $manufacturerInfo $mCS] 0]]
set manufacturerName [string trim [lindex [split $manufacturerInfo $mCS] 2]]
set manufacturerCatalog [string trim [lindex $fieldList 13]]
set supplierId [string trim [lindex $fieldList 14]]
set supplierCatalog [string trim [lindex $fieldList 15]]
}
CD3 {
set itemStatus [lindex $fieldList 30]
set patientChargeable [lindex $fieldList 19]
set patientPrice [string trimleft [lindex $fieldList 25] 0]
set chargeCDM [lindex $fieldList 26]
set out {}
incr msgNumber
set fields [list MSH$mFS$mCS$mRS$mEC$mSS IC527 LAWSON “” “” $dateTime “” [join [list “MFN” “M16″] $mCS] $dateTime $processingId 2.5 “${sequenceNumber}:${msgNumber}”]
lappend out [join $fields $mFS]
set fields [list MFI $masterFileIdentifier “” $enteredDateTime]
lappend out [join $fields $mFS]
set fields [list MFE “” “” $enteredDateTime]
lappend out [join $fields $mFS]
set fields [list ITM [join [list $itemId $itemName $itemIdType] $mCS] $itemStatus SUPPLY $itemCategory “” [join [list $manufacturerId $manufacturerName] $mCS] $manufacturerCatalog “” $patientChargeable $chargeCDM $patientPrice ]
lappend out [join $fields $mFS]
set fields [list VND “” $supplierId $supplierCatalog]
lappend out [join $fields $mFS]
set fields [list PKG “” $packageUnitOfMeasure “” $packageQuantity]
lappend out [join $fields $mFS]
set fields [list IVT 1 BHMC]
lappend out [join $fields $mFS]
set fields [list ZBL $patientPrice]
lappend out [join $fields $mFS]
set msg [join $out r]
set mh [msgcreate]
msgset $mh “$msgr”
lappend dispList “CONTINUE $mh”
}
}
}
close $fileptr
-
- The forum ‘Tcl Library’ is closed to new topics and replies.
