1 | RCXVFTC ;DAOU/ALA-FTP for Cache NT ;16-DEC-2003
|
---|
2 | ;;4.5;Accounts Receivable;**201**;Mar 20, 1995
|
---|
3 | ;
|
---|
4 | OUT ; Outgoing
|
---|
5 | D CTXT
|
---|
6 | ;
|
---|
7 | S Y=$$GTF^%ZISH($NA(^TMP($J,"RCXVFTP",1,0)),3,RCXVPTH,RCXVBAT)
|
---|
8 | K ^TMP($J,"RCXVFTP")
|
---|
9 | I 'Y S VALMSG="Not able to create the .COM file" Q
|
---|
10 | ;
|
---|
11 | BAT ; Create the .COM file
|
---|
12 | S RCXVOUT="S X=$ZF(-1,""ftp -n -s:""_RCXVPTH_RCXVBAT_"">""_RCXVPTH_RCXVSCR)"
|
---|
13 | ;
|
---|
14 | X RCXVOUT
|
---|
15 | ;
|
---|
16 | Q
|
---|
17 | ;
|
---|
18 | CTXT ;
|
---|
19 | S RCXVFTP="RCXVCBO"
|
---|
20 | S RCXVSCR=RCXVSCR_".LIS",^TMP("RCXVMSG",$J,RCXVSCR)=""
|
---|
21 | S RCXVBAT=RCXVFTP_$S($G(RCXVSYS)="VMS":".COM",1:".BAT")
|
---|
22 | S RCXVTXT=RCXVFTP_".TXT"
|
---|
23 | ;
|
---|
24 | ; Kill off the .COM and .TXT files
|
---|
25 | S RCXVARRY(RCXVTXT)="",RCXVARRY(RCXVBAT)=""
|
---|
26 | S Y=$$DEL^%ZISH(RCXVPTH,$NA(RCXVARRY))
|
---|
27 | K RCXVARRY
|
---|
28 | ;
|
---|
29 | S ^TMP($J,"RCXVFTP",1,0)="open "_RCXVIP
|
---|
30 | S ^TMP($J,"RCXVFTP",2,0)="user "_RCXVUSR_" "_RCXVPAS
|
---|
31 | ;
|
---|
32 | ; A root directory must have a slash for CACHE NT
|
---|
33 | ; but a folder cannot have a slash
|
---|
34 | I RCXVPTH?1A1":\" S RCXVROOT=$E(RCXVPTH,1,$L(RCXVPTH))
|
---|
35 | I RCXVPTH'?1A1":\" S RCXVROOT=$S($E(RCXVPTH,$L(RCXVPTH),$L(RCXVPTH))="\":$E(RCXVPTH,1,$L(RCXVPTH)-1),1:RCXVPTH)
|
---|
36 | ;
|
---|
37 | S ^TMP($J,"RCXVFTP",3,0)="lcd "_RCXVROOT
|
---|
38 | S ^TMP($J,"RCXVFTP",4,0)="put "_RCXVNME
|
---|
39 | S ^TMP($J,"RCXVFTP",5,0)="quit"
|
---|
40 | Q
|
---|