Repeating field issue in tcl

So something like this first then the code I below before?

set pv1_9_list [split [lindex $fields 9] $rep_sep]

Thanks David.

Here is what I have so far:

# Consulting Doc

                    set pv1_9 [lindex $fields 9]

                    set pv1_9_list [split [lindex $fields 9] $ssub_sep]

                    for { set i 0 } { $i < [llength $pv1_9_list] } { incr i } {

                     set DocNumber_9_0 [lindex $pv1_9_list $i]

                     echo $DocNumber_9_0

                     if {$DocNumber_9_0 != “”} {

                       set nDocNum [x_prepenZeros 5 $DocNumber_9_0]

                       echo $nDocNum

                       set replaceDocNum “”

                       append replaceDocNum $hmsId $nDocNum

                       echo $replaceDocNum

                       set pv1_9_list [lreplace $pv1_9_list $i $i $replaceDocNum]

                     }

                    }

I have tried iterating over the subfields the same way as the repeating field above and still cannot quite get it to work. For some reason it is not allowing the x_prepenZeros proc to be called correctly.

Here is the output for the PV1-9 field:

|018727^BABBAR^ELEPHANT~018400^BUDDY^TEST~018727^BABBAR^ELEPHANT|

Here is what the output should be:

|01800727^BABBAR^ELEPHANT~01800400^BUDDY^TEST~01800727^BABBAR^ELEPHANT|

The doctor numbers have to be at least 8 characters in length.

What am I missing here? Any help is appreciated.

Tom,

When I inserted that code I got the following error:

Please Wait ……

Command Issued: hcitpstest -r run -f len10 -c sms_ib_data -e “hcitpstestshowbydisp ” /quovadx/qdx5.6/integrator/pod_prod_01/HCIDOCNUMISSUE “z_fixHmsToMcKesson.1.1 {HMSID 018} {MCKID A} {TOSYS HCI}”

Command output:

229^LONG^CHAD^J

[0:TEST] Tcl error:

msgId = message0

proc = ‘z_fixHmsToMcKesson.1.1’

args = ‘{HMSID 018} {MCKID A} {TOSYS HCI}’

result = ‘expected integer but got “229^LONG^CHAD^J”‘

errorInfo: ‘

expected integer but got “229^LONG^CHAD^J”

   while executing

“format %05d $DocNumber_9_0”

   (“PV1” arm line 50)

   invoked from within

“switch -exact — $type {

                MSH {

                   set msg_type_1 [lindex [split [lindex $fields 8] $sub_sep] 0]

                   …”

   (“foreach” body line 4)

   invoked from within

“foreach seg $msg {

         set fields [split $seg |]

             set type [csubstr $seg 0 3]

             switch -exact — $type {

           …”

   (“run” arm line 33)

   invoked from within

“switch -exact — $mode {

       start {

           # Perform special init functions

         # N.B.: there may or may not be a MSGID key in args

…”

   (procedure “z_fixHmsToMcKesson.1.1” line 5)

   invoked from within

“z_fixHmsToMcKesson.1.1 {MSGID message0} {CONTEXT sms_ib_data} {ARGS {{HMSID 018} {MCKID A} {TOSYS HCI}}} {MODE run} {VERSION 3.0}”‘

Since the split isn’t working correctly it still doesn’t add the zeros. It is interpreting the entire string.

result = ‘expected integer but got “229^LONG^CHAD^J”‘

So the %d will not work unless I get the second split of the sub_sep to work.

My output now looks like this after I changed the %d to %s:

018018229^TEST^CHAD^J

So it is closer but instead of the 018018229 it should be 01800229.