Well, its 1am, and I'm up way too late...
I decided that I entirely didn't like the way the HFS
upload was being done in this function, so I have
rewritten it. It now uses $$FTG^%ZISH to load the HFS
file, rather than opening an IO channel through a
device, and then reading the file in line by line.
Here is the code if anyone is interested.:
Here is the change to TIUUPLD.m
========================================
HFS(DA) ; Read HFS file
;"---------------------- //kt
;"K. Toppenberg Modification
do LoadTIUBuf^TMGMISC(DA)
quit
========================================
Here is LoadTIUBuf^TMGMISC
LoadTIUBuf(DA)
;"Purpose: to ask user for filename, and then load
this into a
;" TIU buffer (that already has been created)
;"Input: DA : the IEN (record number) in file
^TIU(8925.2), i.e.
;" in file TIU UPLOAD BUFFER, that the file
is
;" to be loaded into.
;"Results: none
if '$data(TIUPRM0)!'$data(TIUPRM1) do SETPARM^TIULE
write @IOF
do JUSTIFY^TIUU($$TITLE^TIUU("ASCII
UPLOAD"),"C")
new FPName
new result set result=0
set FPName=$$GetFName^TMGIOUTL("Enter name of
file containing transcription","/tmp/")
if FPName'="" do
. new name,path,BuffP
. do
SplitFNamePath^TMGIOUTL(FPName,.path,.name)
. if ($get(path)="")!($get(name)="") quit
. set BuffP="^TIU(8925.2,"_DA_",""TEXT"",1,0)"
. if $$FTG^%ZISH(path,name,BuffP,4) do
. . set result=1
. . new MaxLine set
MaxLine=$order(^TIU(8925.2,DA,"TEXT",""),-1)
. . set
^TIU(8925.2,DA,"TEXT",0)="^^"_+MaxLine_"^"_+MaxLine_"^"_DT_"^^^^"
. . new index set
index=$order(^TIU(8925.2,DA,"TEXT",0))
. . for do quit:index=""
. . . if index="" quit
. . . new s set
s=$$STRIP^TIUUPLD(^TIU(8925.2,DA,"TEXT",index,0))
. . . set ^TIU(8925.2,DA,"TEXT",index,0)=s
. . . set
index=$order(^TIU(8925.2,DA,"TEXT",index))
if result=0 do
. write "Unsuccessful upload.",!
quit
========================================
I reference a few extra functions I can get anyone
that wants them.
Kevin
--- Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
> I'm having a hard time with my transcription upload
> system. At first the KERMIT upload system built
> into
> the TIU system would work after 1-4 tries. But
> today
> it's absolutely refusing to upload a text file.
>
> So I have tried to use the other built-in system:
> HFS.
>
> This is a screen log of what I see when I try this
> method:
> ------------------------
> A S C I I U P L O A D
>
> Select Host File:
>
> DEVICE: HOME// /tmp/thwing2-11-2005.txt [DEVICE
> DOES
> NOT EXIST]
> DEVICE: HOME//
>
> ------------------------
>
> Here is the relevant portion of the code (TIUUPLD.m)
>
> HFS(DA) ; Read HFS file
> N TIUI,X
> I '$D(TIUPRM0)!'$D(TIUPRM1) D SETPARM^TIULE
> W @IOF D JUSTIFY^TIUU($$TITLE^TIUU("ASCII
> UPLOAD"),"C")
> W !!,"Select Host File:",! D ^%ZIS I POP W
> !,$C(7),"Device unavailable." Q
> F U IO R X:DTIME Q:'$T!(X=EOM)!(X="^")!(X="^^") D
> . U IO(0) W X,!
> . S
>
TIUI=+$G(TIUI)+1,^TIU(8925.2,DA,"TEXT",TIUI,0)=$$STRIP(X)
> S
>
^TIU(8925.2,DA,"TEXT",0)="^^"_$G(TIUI)_"^"_$G(TIUI)_"^"_DT_"^^^^"
> D ^%ZISC
> Q
>
> ------------------------
>
> So it looks like it is using ^%ZIS to open the HFS
> file. But for some reason, its not working. It
> seems
> to me that ^%ZIS is looking for an OUTPUT file.
> Asking for help gives me info about setting margins
> etc (i.e. for an output printer.)
>
> Any ideas about what I am doing wrong here?
>
> Thanks
> Kevin
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam
> protection around
> http://mail.yahoo.com
>
>
>
-------------------------------------------------------
> SF email is sponsored by - The IT Product Guide
> Read honest & candid reviews on hundreds of IT
> Products from real users.
> Discover which products truly live up to the hype.
> Start reading now.
>
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
> _______________________________________________
> Hardhats-members mailing list
> [email protected]
>
https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
__________________________________
Do you Yahoo!?
Meet the all-new My Yahoo! - Try it today!
http://my.yahoo.com
-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
