PSNFTP ;HP/ART - PPS-N National Drug File Updates File Transfer ;09/25/2015
Source file <PSNFTP.m>
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 | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PS(57.23 - [#57.23] | Classic Fileman Calls, GET1^DIQ |