source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCXVFTC.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1RCXVFTC ;DAOU/ALA-FTP for Cache NT ;16-DEC-2003
2 ;;4.5;Accounts Receivable;**201**;Mar 20, 1995
3 ;
4OUT ; 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 ;
11BAT ; 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 ;
18CTXT ;
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
Note: See TracBrowser for help on using the repository browser.