- This topic has 6 replies, 2 voices, and was last updated 14 years, 10 months ago by
.
-
Topic
-
The generous forum users helped me put this expression together to grab all the OBX 5 values starting with FINAL CYTOLOGIC DIAGNOSIS: and ending with The HPV Hybrid Capture, and what I am trying to do now is have the proc grab these values if The HPV Hybrid Capture is found, but if not grab all the OBX 5 values up to (Electronically Signed). I tried adding an AND statement after {set bool 1} and placing an ELSE after the HPV Hybrid Capture string, but I got an “extra characters after ELSE error. By toggling the {set boot 0} line on or off, I can get the proc to return the desired data, I just can’t figure out how to code it. Any ideas? if {[string first “FINAL CYTOLOGIC DIAGNOSIS:” $field] >=0} {set bool 1}
if {$field == “The HPV Hybrid Capture II assay is a signal amplification nucleic acid method”} {set bool 0}
#if {$field == “(Electronically Signed)”} {set bool 0}
if $bool {
append obxlist “$field”
}
-
Replies
-
-
-
-
Hi Mark, I might be confused about what you are looking for, but if you are saying if the HPV line is somewhere in the list, then take the whole list. If HPV is not anywhere in the list then take up to the electronic sig line. The following code will accomplish this.
Code:set foundHPV “”
set obxlist “”
foreach item $originalList {
if {[string equal “The HPV…” $item]} {
set foundHPV 1
}
}if {![string equal $foundHPV 1]} {
set stopRequest 0
foreach line $originalList {
if {[string equal “(Electron…” $line} {
set stopRequest 1
} else {
}
if {[string equal $stopRequest 0]} {
lappend obxList $line
} else {
}
}
} else {
set obxList $originalList
} -
Jason, here is a sketch of the data …..
…..
FINAL CYTOLOGIC DIAGNOSIS
……
……..
……..
(Electronically Signed)
………..
PROCEDURE/ADDENDA:
……..
………
The HPV Hybrid
What I am trying to do is grab everything from FINAL CY…. to (Electron.., unless PROCEDURE/ADDENDA: is there. If it is found, then continue copying data down to The HPV Hybrid
-
Assumptions:
1. orignialList is the list of segments from FINAL Cytology to the end of list
2. obxList is the list that will be contain the final list of obx.5’s that will be sent out.
Code:
set foundAddenda 0
set obxlist “”
#loop through list of obx.5’s looing for the addenda line
foreach item $originalList {
if {[string equal “PROCEDURE/ADD…” $item]} {
#if the addenda line is found set found variable to 1
set foundAddenda 1
}
}
#if the addenda flag has not been set
if {[string equal $foundAddenda 0]} {
set stopRequest 0
#since there is no addenda only take up to electronic sig line
foreach line $originalList {
if {[string equal “(Electron…” $line} {
set stopRequest 1
} else {
}
if {[string equal $stopRequest 0]} {
lappend obxList $line
} else {
}
}
} else {
set obxList $originalList
}
-
-
- The forum ‘Cloverleaf’ is closed to new topics and replies.
