| 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
|
|---|
