Replace MSH:4 with PV1:5 need help to finish it

package require hl7
set hl7 [hl7::parse_msg [msgget $mh]]
hl7::set_field hl7 MSH.4 [hl7::get_field hl7 PV1.5]
msgset $mh [hl7::join_msg hl7]

#########################################################################################
#########################################################################################
#########################################################################################
# Name: tpsTransferField.tcl
# Purpose: – This tps tclproc moves or copies the specified Segment/Field (Source) value
# to new Specified Segment/Field (Destination)location.
# The Source Segment/Field will be set to {} for a MOVE
# The Source Segment/Field will left intact for a COPY
# – If the any of the user supplied arguments (5 of them) are omitted,
#  the message will be continued as is and an entry will be made in
# the engine log.
# – If there are mutilple occurances of the Source Segment, the value will be
# taken from the first one.
# – If there are mutilple occurances of the Destination Segment, the value
# will be moved to all of them.
# – If the Source or Destintion Segment does not exist in the message,
# the message will be continued and an entry will be put in
# the engine log.
# – If the New Field does not exist in the message but the segment does,
# blank fields will be added to create the space for the field number
#  specified.
# – If the New Field already has data in it, it will be over written.
# – The field numbers start with 0, ie the 3rd field is field number 2.
#
# UPoC type: tps
# Args: tps keyedlist containing the following keys:
#       MODE    run mode (”start”, “run” or “time”)
#       MSGID   message handle
#       ARGS    user-supplied arguments:
# 1) The user specified Function
# The key is FUNCTION (only MOVE or COPY are Valid)
# 1) The user specified Source Segment
# The key is SOURCESEG
# 2) The user can specify the Source Field Number
# The key is SOURCEFLD
# 3) The user specified Destination Segment
# The key is DESTINSEG
# 4) The user can specify the Destination Field Number
# The key is DESTINFLD
#
# Example arguments: {FUNCTION MOVE} {SOURCESEG OBR} {SOURCEFLD 25} {DESTINSEG OBR} {DESTINFLD 30}
# This will move the value that is in OBR-25 to OBR-30.
#
# Returns: tps disposition list:
#          Continues the modified message
# OR
# Continues the Un-modified message (if bad ARGS passed in)
#
# Created: John Zalesak 04/15/2009
#
#
#########################################################################################
#########################################################################################
#########################################################################################

proc tpsTransferField { args } {

#########################################################################################
# Get the Connection/Proc Name for Error/Debug Messages
#########################################################################################

global HciConnName
set myname “$HciConnName/[lindex [info level 1] 0]”
set nowis [clock format [clock scan now] -format “%D – %T”]

#########################################################################################
# Initialize Variables Used
#########################################################################################

set dispList [list] ;# Disposition List Returned to Engine

set fldSep “” ;# Field Seperator – get from MSH
set subSep “” ;# SubField Seperator – get from MSH
set repSep “” ;# Repeating Field Seperator – get from MSH

set Function “” ;# Specifies Move or Copy
set SourceSeg “” ;# Source Segment Name
set SourceFld 0 ;# Source Field Number
set DestinSeg “” ;# Destination Segment Name
set DestinFld 0 ;# Destination Segment Name

set fldVal “” ;# Value to be moved
set null {} ;# Null Value

set segList [list] ;# Message Segments in List Form
set fldList [list] ;# Segment Fields in List Form
set fldCnt [list] ;# Count of Fields in fldList

set SourceSegPos [list] ;# List of Seg Pos in segList of Source Seg
set DestinSegPos [list] ;# List of Seg Pos in segList of Destin Seg

set seg “” ;# A segment from a list of segments
set flds 0 ;# Field Counter used in a loop

#########################################################################################
# Load in the arguments we need that were passed from the caller
#########################################################################################

keylget args MODE mode             ;# The mode the engine called from

keylget args ARGS.FUNCTION Function ;# The Function reqested (MOVE/COPY)
set Function [string toupper $Function] ;# Force to uppercase

keylget args ARGS.SOURCESEG SourceSeg ;# Source Segement Name
set SourceSeg [string toupper $SourceSeg] ;# Force to uppercase
keylget args ARGS.SOURCEFLD SourceFld ;# Source Field Number

keylget args ARGS.DESTINSEG DestinSeg ;# Destination Segement Name
set DestinSeg [string toupper $DestinSeg] ;# Force to uppercase
keylget args ARGS.DESTINFLD DestinFld ;# Destination Field Number

#########################################################################################
# Switch based on what mode the engine was in when it called the procedure
#########################################################################################

 switch -exact — $mode {

   run {
    set mh [keylget args MSGID] ;# Get message handle from args
   set dispList [list “CONTINUE $mh”] ;# Initialize to good message
     set msg [msgget $mh] ;# Get a copy of the message

     set fldSep [string index $msg 3] ;# Field Seperator
     set subSep [string index $msg 4] ;# Sub-Field Seperator
     set repSep [string index $msg 5] ;# Repeating Field Seperator

set segList [split $msg r] ;# Split message into segList

#########################################################################################
# Validate the user supplied values
#########################################################################################

if { $Function == “MOVE” || $Function == “COPY” } {
} else {
 echo n n
 echo “==========================================================”
  echo “:WARN – Invalid Function Supplied !”
  echo “:WARN – Function = “$Function” ”
 echo “:WARN – Message Continued As Is.”
 echo “:WARN – Here Is: $myname”
 echo “:WARN – Now Is: $nowis”
 echo $msg
 echo “==========================================================”  
 echo n n
       return $dispList
}

if { $SourceSeg == “” || $DestinSeg == “” } {
 echo n n
 echo “==========================================================”
  echo “:WARN – Required Segment was not Supplied !”
  echo “:WARN – Source Segment = “$SourceSeg” ”
  echo “:WARN – Destination Segment = “$DestinSeg” ”
 echo “:WARN – Message Continued As Is.”
 echo “:WARN – Here Is: $myname”
 echo “:WARN – Now Is: $nowis”
 echo $msg
 echo “==========================================================”  
 echo n n
       return $dispList
}

if { $SourceFld == “” || $SourceFld == 0 ||
$DestinFld == “” || $DestinFld == 0 } {
 echo n n
 echo “==========================================================”
  echo “:WARN – Invalid or No Field Number Was Supplied !”
  echo “:WARN – Source Field Number = “$SourceFld” ”
  echo “:WARN – Destination Field Number = “$DestinFld” ”
 echo “:WARN – Message Continued As Is.”
 echo “:WARN – Here Is: $myname”
 echo “:WARN – Now Is: $nowis”
 echo $msg
 echo “==========================================================”  
 echo n n
       return $dispList
}

#########################################################################################
# Find Position of Segement(s) – If missing -> Continue Message and Return
#########################################################################################

set SourceSegPos [lsearch -all -regexp $segList “^$SourceSeg”]
if { [lindex $SourceSegPos 0] < 0 } {
 echo n n
 echo "=========================================================="
  echo ":WARN – Source Segment "$SourceSeg" Is Missing !"
 echo ":WARN – Message Continued As Is."
 echo ":WARN – Here Is: $myname"
 echo ":WARN – Now Is: $nowis"
 echo $msg
 echo "=========================================================="  
 echo n n
       return $dispList
}

set DestinSegPos [lsearch -all -regexp $segList "^$DestinSeg"]
if { [lindex $DestinSegPos 0] = [expr $SourceFld + 1]} {
set fldVal [lindex $fldList $SourceFld]
if { $Function == “MOVE” } {
lset fldList $SourceFld $null
lset segList [lindex $SourceSegPos] [join $fldList $fldSep]
}
} else {
echo n n
 echo “==========================================================”
  echo “:WARN – Source Segment “$SourceSeg” ”
  echo “:WARN – Does not Contian Field Number: “$SourceFld” ”
 echo “:WARN – Message Continued As Is.”
 echo “:WARN – Here Is: $myname”
 echo “:WARN – Now Is: $nowis”
 echo $msg
 echo “==========================================================”  
 echo n n
       return $dispList
}

#########################################################################################
# Write the Source Field Value into the Destination Field – Add blank fields if needed
#########################################################################################

foreach seg $DestinSegPos {
set fldList [split [lindex $segList $seg] $fldSep]
set fldCnt [llength $fldList]

for { set flds $fldCnt } { $flds < [expr $DestinFld + 1] } { incr flds } {
  lappend fldList $null
  }
 
  lset fldList $DestinFld $fldVal
  lset segList $seg [join $fldList $fldSep]
 
  }

#########################################################################################
# Recreate the message and store back at msg handle
#########################################################################################

 set msg [join $segList r]  
   msgset $mh $msg

}

start { }
   time { }
   shutdown { }
   default {
    echo ":WARN"
    echo ":WARN ======================================"
 echo ":WARN – tps called with invalid mode !"
echo ":WARN – Mode Is: $mode"
echo ":WARN – Here Is: $myname"
echo ":WARN – Now Is: $nowis"
echo ":WARN ======================================"
echo ":WARN"
   }
} ;# End Switch

return $dispList

} ;# End Proc
[quote][/quote]