- This topic has 13 replies, 4 voices, and was last updated 5 years, 3 months ago by
.
-
Topic
-
In an XLATE –
I’m passing a variable that could be 2 to 35 characters long > outbound to OBX:3.0
I need OBX:30.0 to be 40 characters long everytime regardless of the variable length
In the xlate COPY action – I’m using this tcl frag which has no effect on the output.
set xlateOutVals [format %-40s $xlateInVals ]
Any thoughts on what I’m doing wrong or missing?
Lawrence Nelson
System Architect - MaineHealth IT
-
Replies
-
-
-
-
-
-
-
-
This actually does work – but not the way I want
set xlateOutVals [format “%040s” $xlateInVals ]
Where in “%040s” the zero betweent the percent and the 4 pads out zeros’
Which results in
>||ST|0000000000000000000000000000Levofloxacin|2|So the current issue is that a space or the – character should do the same thing with spacing (so it would be right justified and that does not appear to be honored in the scheme of things.
Lawrence Nelson
System Architect - MaineHealth IT -
Ok, trying again
This code snippet works:
[code]
set xlateOutVals [list [format %-40s [lindex $xlateOutVals 0]]]
[/code]You can validate it with this:
[code]
hcitcl>set xlateOutVals [list abcdefghijklmnopqrstuvwxyz]
abcdefghijklmnopqrstuvwxyz
hcitcl>set xlateOutVals [list [format %-40s [lindex $xlateOutVals 0]]]
{abcdefghijklmnopqrstuvwxyz }
hcitcl>string length [lindex $xlateOutVals 0]
40
hcitcl>
[/code]If that still doesn’t work in your Xlate, make sure your variant allows for 40 characters in that field/component.
-
Ok – so in case anyone else looks at this –
I did get this to work with an xltp instead
*********************************************************************************************
######################################################################
# Name: format_OBX3
# Purpose: <description>
# UPoC type: xltp
######################################################################proc format_OBX3 {} {
upvar xlateId xlateId \
xlateInList xlateInList \
xlateInTypes xlateInTypes \
xlateInVals xlateInVals \
xlateOutList xlateOutList \
xlateOutTypes xlateOutTypes \
xlateOutVals xlateOutVals \
xlateConstType xlateConstType \
xlateConfigFileName xlateConfigFileNameset inVal [lindex $xlateInVals 0]
set outVal “”
set outVal [ format %-40s $inVal ]set xlateOutVals
Lawrence Nelson
System Architect - MaineHealth IT -
An also confirming Rob’s work – this works as well
set xlateOutVals
]]
1(0).1(2).3(0).OBX(0) : >||ST|Ampicillin |2|S|mcg/mL||0|||F||||C<
1(0).1(2).3(0).OBX(1) : >||ST|Gentamicin |2|S|mcg/mL||0|||F||||C<
1(0).1(2).3(0).OBX(2) : >||ST|Levofloxacin |2|S|mcg/mL||0|||F||||C<
1(0).1(2).3(0).OBX(3) : >||ST|Moxifloxacin |2|R|mcg/mL||2|||F||||C<
1(0).1(2).3(0).OBX(4) : >||ST|Nitrofurantoin |2|R|mcg/mL||2|||F||||C<
1(0).1(2).3(0).OBX(5) : >||ST|Oxacillin |2|R|mcg/mL||2|||F||||C<
1(0).1(2).3(0).OBX(6) : >||ST|Penicillin |2|R|mcg/mL||2|||F||||C<
1(0).1(2).3(0).OBX(7) : >||ST|Quinupristin+Dalfopristin |2|R|mcg/mL||2|||F||||C<
1(0).1(2).3(0).OBX(8) : >||ST|Rifampin |2|R|mcg/mL||2|||F||||C<
1(0).1(2).3(0).OBX(9) : >||ST|Tetracycline |2|R|mcg/mL||2|||F||||C<
1(0).1(2).3(0).OBX(10) : >||ST|Trimethoprim+Sulfamethoxazole |2|R|mcg/mL||2|||F||||C<
1(0).1(2).3(0).OBX(11) : >||ST|VancomycinLawrence Nelson
System Architect - MaineHealth IT -
-
James – when you post code put it in angle bracket “code” tags, that should protect you from any BBCode formatting.
Rob Abbott
Cloverleaf Emeritus -
-
- You must be logged in to reply to this topic.
