Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSNFTP2

Package: National Drug File

Routine: PSNFTP2


Information

PSNFTP2 ;HP/ART - PPS-N National Drug File Updates File Transfer ;09/25/2015

Source Information

Source file <PSNFTP2.m>

Entry Points

Name Comments DBIA/ICR reference
VMSFTP(PSRC,PSADDR,PSNUSER,PSWRKDIR,PSLOCDIR,PSREMDIR,PSREMFIL,PSCOMFIL,PSLOGFIL,PSDATFIL,PSERRMSG) ; VMS FTP
; ALL PARARMETERS ARE REQUIRED EXCEPT PASSWORD
EXECUTE ;Execute .COM file, create logfile
LINUXFTP(PSRC,PSADDR,PSNUSER,PSWRKDIR,PSLOCDIR,PSREMDIR,PSREMFIL,PSSHFILE,PSLOGFIL,PSDATFIL) ; Linux FTP
; ALL PARARMETERS ARE REQUIRED EXCEPT PASSWORD
WINFTP(PSRC,PSADDR,PSUID,PSWRKDIR,PSLOCDIR,PSREMDIR,PSREMFIL,PSCMDFIL,PSLOGFIL) ; Windows FTP
; ALL PARARMETERS ARE REQUIRED EXCEPT PASSWORD
FILSIZE(PSDIR,PSFILE,PSSIZE,PSNFLAG1) ;get the file size after retrieval
FILSIZQ ;
VMSDEL(PSRC,PSDIR,PSFILE) ;Delete Local Host File
SAVEKEYS(LOCDIR) ; Saves Key to local directory
DIREXIST(DIR) ; Returns whether the Linux Directory for sFTP already exists
MAKEDIR(DIR) ; Create a new directory
DELFILES(LOCDIR,LOGFILE,PSCOMFIL,PSDATFIL) ; Delete Files
XVMSDIR(VMSDIR) ; Converts a VMS directory
; Input: VMSDIR - OpenVMS directory name (e.g., "USER$:[SFTP.PPSN]")
; Output: $$XVMSDIR - Converted VMS directory (e.g., "/USER$/PPSN/")

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "$ set verify=(PROCEDURE,IMAGE)",!
  • Line Location: VMSFTP+33
Function Call: WRITE
  • Prompt: "$ set default ",PSLOCDIR,!
  • Line Location: VMSFTP+34
Function Call: WRITE
  • Prompt: "$ sftp"_$S(FTPPORT:" -oPort="_FTPPORT,1:"")_" -oIdentityFile="""_$$XVMSDIR(PSWRKDIR)_"VSSHID."" -""B"" "_PSWRKDIR_PSDATFIL_" -oUser="_PSNUSER_" "_PSADDR,!
  • Line Location: VMSFTP+35
Function Call: WRITE
  • Prompt: "$ exit",!
  • Line Location: VMSFTP+36
Function Call: WRITE
  • Prompt: "IDKEY "_$$XVMSDIR(PSWRKDIR)_"VSSHKEY"
  • Line Location: VMSFTP+42
Function Call: WRITE
  • Prompt: "#!/bin/bash",!!
  • Line Location: LINUXFTP+33
Function Call: WRITE
  • Prompt: "cd ",PSWRKDIR,!
  • Line Location: LINUXFTP+34
Function Call: WRITE
  • Prompt: "sftp"_" -oIdentityFile="""""_PSWRKDIR_"uxsshkey"""" -b "_PSWRKDIR_PSDATFIL_" -oStrictHostKeyChecking=no -oUser="_PSNUSER_" "_PSADDR_" >> "_PSWRKDIR_PSLOGFIL
  • Line Location: LINUXFTP+35
Function Call: WRITE
  • Prompt: !,"exit",!
  • Line Location: LINUXFTP+36
Function Call: WRITE
  • Prompt: "open ",PSADDR,!
  • Line Location: WINFTP+27
Function Call: WRITE
  • Prompt: PSUID,!
  • Line Location: WINFTP+28
Function Call: WRITE
  • Prompt: "lcd ",PSLOCDIR,!
  • Line Location: WINFTP+29
Function Call: WRITE
  • Prompt: "cd ",PSREMDIR,!
  • Line Location: WINFTP+30
Function Call: WRITE
  • Prompt: "ascii",!
  • Line Location: WINFTP+31
Function Call: WRITE
  • Prompt: "get ",PSREMFIL,!
  • Line Location: WINFTP+32
Function Call: WRITE
  • Prompt: "quit",!
  • Line Location: WINFTP+33
Function Call: WRITE
  • Prompt: $$DECRYP^XUSRB1(^PS(57.23,1,"PRVKEY",WLN,0)),!
  • Line Location: SAVEKEYS+8
Function Call: WRITE
  • Prompt: $$DECRYP^XUSRB1(^PS(57.23,1,"PUBKEY",WLN,0)),!
  • Line Location: SAVEKEYS+16
Function Call: WRITE
  • Prompt: $$DECRYP^XUSRB1(^PS(57.23,1,"PRVKEY",WLN,0)),!
  • Line Location: SAVEKEYS+29

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(57.23 - [#57.23] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call