Forum Replies Created
-
AuthorReplies
-
September 9, 2020 at 11:54 pm in reply to: Create multible OBX-5 based on \.br\ in the original message #117834
thanks much!
thanks for the replies. I know it connects and starts to write the file, in this case “test.txt”. below is a snippet from the receiving system’s log.
18:58:20 10.80.46.13 [1]USER SERVER01hciuser 331 0
18:58:20 10.80.46.13 [1]PASS – 230 0
18:58:20 10.80.46.13 [1]CWD Meditrain 250 0
18:58:20 10.80.46.13 [1]created test.txt 550 5
18:58:20 10.80.46.13 [1]QUIT – 550 0
no other indication though. any more ideas anyone?
thanks much to all who responded.
thanks, I’ll give it a try.
######################################################################
# Name: cpacs_string_reports
# Purpose:
# UPoC type: xltp
# Args: none
# Notes: All data is presented through special variables. The initial
# upvar in this proc provides access to the required variables.
#
# This proc style only works when called from a code fragment
# within an XLT.
#
proc cpacs_string_reports {} {
upvar xlateId xlateId
xlateInList xlateInList
xlateInTypes xlateInTypes
xlateInVals xlateInVals
xlateOutList xlateOutList
xlateOutTypes xlateOutTypes
xlateOutVals xlateOutVals
set xlateOutVals [string match “*Procedure:*” $xlateInVals]
echo in $xlateInVals
echo out $xlateOutVals
}
it will end up being case sensitive, I just had those in there for testing, I was changing values a lot for test purposes.
I’m also really bad at TCL. I’m sure your code suggestions are much more valid than my testing suggests. Can you give me the code in the proc I gave, where in the proc it goes?
this is a part of the message format. I’m looking at OBX-5. When certain words are found the proc returns a “1”, then I have IF logic that alters that field to send BOLD code for the word to our HIS. I want to be able to specify multiple words to search for. Being that it’s an iteration it isn’t searching for more than the first value. I know I have the syntax wrong to put multiple search values in the code.
OBX|1|TX|DefaultObservationID|1|||||||F
OBX|2|TX|DefaultObservationID|1| Good Samaritan Regional Medical Center||||||F
OBX|3|TX|DefaultObservationID|1| 3600 NW Samaritan Dr||||||F
OBX|4|TX|DefaultObservationID|1| Corvallis, OR 97330||||||F
OBX|5|TX|DefaultObservationID|1| 541-768-5111||||||F
OBX|6|TX|DefaultObservationID|1| Transthoracic Echocardiogram Report||||||F
OBX|7|TX|DefaultObservationID|1|Name: TEST, GSR233 DOB: 02/23/1957||||||F
OBX|8|TX|DefaultObservationID|1|Facility MRN: MG00000158 Age: 53 yrs||||||F
OBX|9|TX|DefaultObservationID|1|Study Date: 07/20/2010 Gender: Female||||||F
OBX|10|TX|DefaultObservationID|1|Pt. Location: GED Height: 70 in||||||F
OBX|11|TX|DefaultObservationID|1|Ordering Physician: Dale, P Weight: 185 lb||||||F
OBX|12|TX|DefaultObservationID|1|Referring Physician: Dale, P Daniel BSA: 2.0 meters2||||||F
OBX|13|TX|DefaultObservationID|1|Performed By: Ron DeYoung BP: 115/85 mmHg||||||F
OBX|14|TX|DefaultObservationID|1| HR: 85||||||F
OBX|15|TX|DefaultObservationID|1|||||||F
OBX|16|TX|DefaultObservationID|1|||||||F
OBX|17|TX|DefaultObservationID|1|Interpretation Summary||||||F
OBX|18|TX|DefaultObservationID|1|||||||F
OBX|19|TX|DefaultObservationID|1|||||||F
OBX|20|TX|DefaultObservationID|1|Procedure:||||||F
OBX|21|TX|DefaultObservationID|1|A two-dimensional transthoracic echocardiogram with color flow Doppler||||||F
OBX|22|TX|DefaultObservationID|1|was performed. The patient was in atrial fibrillation with controlled||||||F
OBX|23|TX|DefaultObservationID|1|ventricular rate during the exam.||||||F
OBX|24|TX|DefaultObservationID|1|Procedure:Ventricle:||||||F
OBX|25|TX|DefaultObservationID|1|Procedure: ventricle is normal in size, thickness and function. A mass||||||F
OBX|26|TX|DefaultObservationID|1|is noted in the left ventricle. The left ventricle is normal in||||||F
OBX|27|TX|DefaultObservationID|1|structure and function. There are regional wall motion abnormalities||||||F
that still returns a “1” for Procedure and nothing for Left. My problem is getting multiple values in the code, it will search for the first value but never for the second one. I appreciate greatly any help on this.
thanks Jim. long time…
thank you everyone, that helps a lot.
jason
[/b]
Thanks to Jim and Thomas, it looks like it’s working fine now! I should have thought of that, thank you, I will try that first as my tcl is not up to par yet. Thanks again. Thank you, I will give that a try. -
AuthorReplies