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

Package: National Drug File

Routine: PSNFTP


Information

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

Source Information

Source file <PSNFTP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main Entry Point for PPS-N National Drug File Updates File Transfer
PING(PSRC,PSOS) ; Check for availability of server (ping)
FTP(PSRC,PSOS,PSREMFIL,PSERRMSG) ; ftp (get) a file
GETOS() ;Determine OS
VMSPING(PSRC,PSADDR,PSWRKDIR,PSCOMFIL,PSLOGFIL) ; PING VMS server to ensure it is available
LINXPING(PSRC,PSADDR,PSWRKDIR,PSLOGFIL) ; PING Unix/Linux server to ensure it is available
WINPING(PSRC,PSADDR,PSWRKDIR,PSLOGFIL) ; PING server to ensure it is available
MAILFTP(PSMSGTYP,PSFILE,PSSIZE,PSERRMSG) ; mail message to notify users of the NDF Update File download status
MSGTEXT0(PSFILE,PSERRMSG,PSMSGTXT) ;build message text
MSGTEXT1(PSFILE,PSSIZE,PSMSGTXT) ;build message text
CREATDAT(PSRC,PSDATFIL,PSWRKDIR,PSREMDIR,PSREMFIL) ; create .dat file with sftp commands - "PSNSFTP.DAT"
DELFILES(PSDIR,PSFILES) ;Delete Local Host File, any OS
LINUXDEL(PSRC,PSDIR,PSFILE) ;Delete Local Host File
GETD() ; get the right directory based on OS type
UPDTCTRL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Determine remote file name failed ",PSOS," rc=",PSRC,!
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !!,"Beginning download for Update file name: ",PSREMFIL
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !!,"Continuing with the next file sequence. Attempting download",!," for: "_PSREMFIL
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: "Server ping failed ",PSOS," rc=",PSRC,!
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: "Server ping successful ",PSOS," rc=",PSRC,!
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !!,PSREMFIL_" does not exist.",!!,"PPS-N/NDF Download process is complete.",!
  • Line Location: EN+59
Function Call: WRITE
  • Prompt: "file transfer failed ",PSOS," rc=",PSRC,!
  • Line Location: EN+64
Function Call: WRITE
  • Prompt: "remote file not found ",PSOS," rc=",PSRC,!
  • Line Location: EN+69
Function Call: WRITE
  • Prompt: "file transfer successful ",PSOS," rc=",PSRC,!
  • Line Location: EN+72
Function Call: WRITE
  • Prompt: !!,"Completed download for: ",PSREMFIL,!!
  • Line Location: EN+90
Function Call: WRITE
  • Prompt: !,"File cleanup/delete failed.",!
  • Line Location: PING+20
Function Call: WRITE
  • Prompt: !,"File cleanup/delete failed.",!
  • Line Location: FTP+30
Function Call: WRITE
  • Prompt: !,"File cleanup/delete failed.",!
  • Line Location: FTP+37
Function Call: WRITE
  • Prompt: "$ SET VERIFY=(PROCEDURE,IMAGE)",!
  • Line Location: VMSPING+18
Function Call: WRITE
  • Prompt: "$ SET DEFAULT "_PSWRKDIR,!
  • Line Location: VMSPING+19
Function Call: WRITE
  • Prompt: "$ TCPIP",!
  • Line Location: VMSPING+20
Function Call: WRITE
  • Prompt: "PING "_PSADDR,!
  • Line Location: VMSPING+21
Function Call: WRITE
  • Prompt: "EXIT",!
  • Line Location: VMSPING+22
Function Call: WRITE
  • Prompt: "$ EXIT 3",!
  • Line Location: VMSPING+23
Function Call: WRITE
  • Prompt: "cd ",PSREMDIR,!
  • Line Location: CREATDAT+5
Function Call: WRITE
  • Prompt: "ascii",!
  • Line Location: CREATDAT+6
Function Call: WRITE
  • Prompt: "get ",PSREMFIL,!
  • Line Location: CREATDAT+7
Function Call: WRITE
  • Prompt: "exit",!
  • Line Location: CREATDAT+8

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