Routine: PSNFTP

Information

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

Package	Total	Call Graph
Kernel	4	($$DEL,$$FTG,CLOSE,OPEN)^%ZISH USE^%ZISUTL $$OS^%ZOSV ($$FMTE,$$NOW)^XLFDT
VA FileMan	3	NOW^%DTC (,FILE,UPDATE)^DIE $$GET1^DIQ
National Drug File	2	($$DIREXIST,@(,DELFILES,FILSIZE,LINUXFTP,MAKEDIR,SAVEKEYS,VMSFTP,WINFTP)^PSNFTP2 $$MG^PSNPPSMG
MailMan	1	^XMD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
National Drug File	6	PSNFTP2 PSNPPSDL PSNPPSMG PSNPPSMS PSNPPSNF PSNPPSNV

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	;

External References

Name	Field # of Occurrence
NOW^%DTC	EN+6, EN+95, UPDTCTRL+5
$$DEL^%ZISH	DELFILES+9
$$FTG^%ZISH	EN+86, VMSPING+33, LINXPING+19, WINPING+21
CLOSE^%ZISH	VMSPING+24, CREATDAT+9
OPEN^%ZISH	VMSPING+15, CREATDAT+2
USE^%ZISUTL	VMSPING+17, CREATDAT+4
$$OS^%ZOSV	GETOS+2, GETD+2
^DIE	EN+13, EN+76, EN+94, EN+95
FILE^DIE	UPDTCTRL+12
UPDATE^DIE	MAILFTP+12, UPDTCTRL+2, UPDTCTRL+9
$$GET1^DIQ	EN+2, EN+17, PING+10, FTP+14, FTP+15, FTP+18, MAILFTP+28, MAILFTP+29, GETD+3, GETD+4
$$DIREXIST^PSNFTP2	EN+11
@(^PSNFTP2	EN+42
DELFILES^PSNFTP2	EN+89, VMSPING+39
FILSIZE^PSNFTP2	EN+80
LINUXFTP^PSNFTP2	FTP+35
MAKEDIR^PSNFTP2	EN+11
SAVEKEYS^PSNFTP2	FTP+24
VMSFTP^PSNFTP2	FTP+28
WINFTP^PSNFTP2	FTP+42
$$MG^PSNPPSMG	MAILFTP+28, MAILFTP+29
$$FMTE^XLFDT	MAILFTP+24
$$NOW^XLFDT	MAILFTP+24
^XMD	MAILFTP+30

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
Routine Call	DIE Line Location: EN+13 EN+76 EN+94 EN+95
Routine Call	DIE Line Location: UPDTCTRL+12
Routine Call	DIE Line Location: MAILFTP+12 UPDTCTRL+2 UPDTCTRL+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(57.23 - [#57.23]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(57.23 - [#57.23]	MAILFTP+9, MAILFTP+10, UPDTCTRL+1, UPDTCTRL+3, UPDTCTRL+10, UPDTCTRL+11
^PS(59.7 - [#59.7]	MAILFTP+15
^TMP("PSNFSIZELOG"	EN+86, EN+87
^TMP("PSNPINGLOG"	VMSPING+31!, VMSPING+33, VMSPING+35, VMSPING+36, LINXPING+17!, LINXPING+19, LINXPING+20, LINXPING+21, WINPING+19!, WINPING+21 , WINPING+24, WINPING+25
^XUSEC("PSNMGR"	MAILFTP+27

Label References

Name	Line Occurrences
$$DELFILES	PING+20, FTP+30, FTP+37, FTP+44
$$GETD	EN+10, PING+12, FTP+16, FTP+17
$$GETOS	EN+8, PING+7
FTP	EN+46
LINUXDEL	EN+53, EN+54, EN+55, EN+56
LINXPING	PING+23
MAILFTP	EN+20, EN+34, EN+62, EN+67, EN+89
MSGTEXT0	MAILFTP+21, MAILFTP+25
MSGTEXT1	MAILFTP+22
PING	EN+31
UPDTCTRL	EN+91, MAILFTP+7
VMSPING	PING+18
WINPING	PING+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+6, EN+95, UPDTCTRL+6
CDIR	GETD+1~, GETD+3, GETD+4*, GETD+5
CTRLIEN	MAILFTP+8~, MAILFTP+9, UPDTCTRL+1!, UPDTCTRL+4, UPDTCTRL+6, UPDTCTRL+7, UPDTCTRL+8, UPDTCTRL+12
CTRLXIEN	MAILFTP+8~, MAILFTP+10, MAILFTP+11, UPDTCTRL+3!, UPDTCTRL+4, UPDTCTRL+6, UPDTCTRL+7, UPDTCTRL+8, UPDTCTRL+11
DA	EN+4~, EN+12!, EN+13!, EN+75!, EN+76!, EN+93!, EN+94!, EN+95!, EN+96!, MAILFTP+27*
DIE	EN+4~, EN+12!, EN+13!, EN+75!, EN+76!, EN+93!, EN+94!, EN+95!, EN+96!
DR	EN+4~, EN+12!, EN+13!, EN+75!, EN+76!, EN+93!, EN+94!, EN+95!, EN+96!
FDA	UPDTCTRL+2!, UPDTCTRL+4!, UPDTCTRL+12!
FDA(	MAILFTP+11, UPDTCTRL+2, UPDTCTRL+4, UPDTCTRL+6, UPDTCTRL+7, UPDTCTRL+8, UPDTCTRL+12*
LOCDIR	EN+4~
POP	VMSPING+14~, VMSPING+16, CREATDAT+1~, CREATDAT+3
PRSC	EN+5~, EN+92*
PSADDR	PING+5~, PING+10, PING+18, PING+23, PING+26, FTP+6~, FTP+14, FTP+28, FTP+35, FTP+42 , VMSPING~, VMSPING+9, VMSPING+21, VMSPING+37, VMSPING+38, LINXPING~, LINXPING+8, LINXPING+13, LINXPING+22, WINPING~ , WINPING+8, WINPING+14, WINPING+26
PSCMDFIL	FTP+7~, FTP+21*, FTP+42, FTP+43
PSCOMFIL	PING+5~, PING+13, PING+18, PING+19, FTP+6~, FTP+19, FTP+28, FTP+29, VMSPING~, VMSPING+11 , VMSPING+15, VMSPING+27, VMSPING+39
PSDATFIL	FTP+7~, FTP+23*, FTP+28, FTP+35, CREATDAT~, CREATDAT+2
PSDIR	DELFILES~, DELFILES+9, LINUXDEL~, LINUXDEL+7, LINUXDEL+9
PSERRMSG	EN+5~, EN+46, PING+5~, FTP~, FTP+28, MAILFTP~, MAILFTP+7, MAILFTP+11, MAILFTP+25, MSGTEXT0~ , MSGTEXT0+21, UPDTCTRL+8
PSERRMSG(1	EN+15, EN+19, EN+45, PING+6, PING+10, FTP+8*, FTP+14
PSERRMSG(2	PING+7, PING+12, FTP+9, FTP+15
PSERRMSG(3	FTP+10*, FTP+16
PSERRMSG(4	FTP+11*, FTP+17
PSERRMSG(5	FTP+12*, FTP+18
PSFDCNT	EN+5~, EN+7, EN+25, EN+26
PSFFND	EN+4~, EN+7, EN+27, EN+28, EN+58, EN+61, EN+66, EN+74
PSFILE	EN+4~, EN+9, EN+24, EN+25, EN+80, EN+84, EN+89, MAILFTP~, MAILFTP+19, MAILFTP+20 , MAILFTP+21, MAILFTP+22, MAILFTP+24, MAILFTP+25, MSGTEXT0~, MSGTEXT0+13, MSGTEXT1~, MSGTEXT1+6, LINUXDEL~, LINUXDEL+8 , LINUXDEL+9
PSFILES	PING+5~, PING+20, FTP+30, FTP+37, FTP+44, DELFILES~, DELFILES+9
PSFILES(	PING+19, FTP+29, FTP+36, FTP+43
PSFILES("VSSHID."	FTP+29*
PSFILES("VSSHKEY"	FTP+36*
PSFILES("VSSHKEY."	FTP+29*
PSFILES("VSSHKEY.PUB"	FTP+29*
PSFILES("uxsshkey"	FTP+36*
PSGRP	MAILFTP+6~, MAILFTP+28, MAILFTP+29
PSLAST	EN+5~, EN+17*, EN+18, EN+23, EN+24
PSLOCDIR	FTP+7~, FTP+17, FTP+28, FTP+34, FTP+35, FTP+41*, FTP+42
PSLOGFIL	PING+5~, PING+14, PING+18, PING+23, PING+26, FTP+7~, FTP+22, FTP+28, FTP+35, FTP+42 , VMSPING~, VMSPING+12, VMSPING+27, VMSPING+33, VMSPING+39, LINXPING~, LINXPING+10, LINXPING+13, LINXPING+19, WINPING~ , WINPING+10, WINPING+14, WINPING+21
PSMSGTXT	MAILFTP+6~, MAILFTP+22, MAILFTP+25, MSGTEXT0~, MSGTEXT1~
PSMSGTXT(1	MSGTEXT0+6, MSGTEXT1+6
PSMSGTXT(10	MSGTEXT0+15*
PSMSGTXT(11	MSGTEXT0+16*
PSMSGTXT(12	MSGTEXT0+17*
PSMSGTXT(13	MSGTEXT0+18*
PSMSGTXT(14	MSGTEXT0+19*
PSMSGTXT(15	MSGTEXT0+20*
PSMSGTXT(16	MSGTEXT0+21*
PSMSGTXT(17	MSGTEXT0+22*
PSMSGTXT(18	MSGTEXT0+23*
PSMSGTXT(19	MSGTEXT0+24*
PSMSGTXT(2	MSGTEXT0+7, MSGTEXT1+7
PSMSGTXT(20	MSGTEXT0+25*
PSMSGTXT(21	MSGTEXT0+26*
PSMSGTXT(22	MSGTEXT0+27*
PSMSGTXT(23	MSGTEXT0+28*
PSMSGTXT(24	MSGTEXT0+29*
PSMSGTXT(3	MSGTEXT0+8, MSGTEXT1+8
PSMSGTXT(4	MSGTEXT0+9, MSGTEXT1+9
PSMSGTXT(5	MSGTEXT0+10, MSGTEXT1+10
PSMSGTXT(6	MSGTEXT0+11, MSGTEXT1+11
PSMSGTXT(7	MSGTEXT0+12*
PSMSGTXT(8	MSGTEXT0+13*
PSMSGTXT(9	MSGTEXT0+14*
PSMSGTYP	MAILFTP~, MAILFTP+17, MAILFTP+23
PSNDNLDB	EN+4~, EN+6*, UPDTCTRL+4
PSNEW	EN+5~, EN+23*, EN+24, EN+76
PSNPS	EN+5~, MAILFTP+15*, MAILFTP+20
PSNUSER	FTP+6~, FTP+15*, FTP+28, FTP+35
PSOLDF	EN+5~, EN+9, EN+25, EN+63, EN+68
PSOS	EN+4~, EN+8, EN+11, EN+21, EN+31, EN+34, EN+35, EN+36, EN+37, EN+41 , EN+46, EN+48, EN+52, EN+64, EN+69, EN+72, EN+80, EN+83, PING~, PING+17 , PING+23, PING+26, FTP~, FTP+27, FTP+33, FTP+40, GETOS+2~, GETOS+3*, GETOS+4, CREATDAT+6
PSOS2	EN+5~, EN+36*, EN+42
PSOSX	GETD+1~, GETD+2*, GETD+3, GETD+4
PSOUNXLD	EN+5~
PSPNG	VMSPING+32~, VMSPING+34, VMSPING+35, VMSPING+36, LINXPING+18~, LINXPING+20, LINXPING+21, WINPING+22~, WINPING+23, WINPING+24 , WINPING+25
PSPNG1	VMSPING+32~, VMSPING+34, VMSPING+36, VMSPING+37, VMSPING+38, LINXPING+18~, LINXPING+21, LINXPING+22, WINPING+22~, WINPING+23* , WINPING+25*, WINPING+26
PSPREV	EN+5~
PSRC	EN+4~, EN+7, EN+14, EN+19, EN+20, EN+21, EN+31, EN+33, EN+34, EN+35 , EN+42, EN+45, EN+46, EN+53, EN+54, EN+55, EN+56, EN+58, EN+61, EN+62 , EN+64, EN+66, EN+67, EN+69, EN+72, EN+73, PING~, PING+9, PING+10, PING+12 , PING+18, PING+23, PING+26, FTP~, FTP+13, FTP+14, FTP+15, FTP+16, FTP+17, FTP+18 , FTP+28, FTP+35, FTP+42, VMSPING~, VMSPING+9, VMSPING+10, VMSPING+11, VMSPING+12, VMSPING+16, VMSPING+29 , VMSPING+37, VMSPING+38, LINXPING~, LINXPING+8, LINXPING+9, LINXPING+10, LINXPING+15, LINXPING+22, WINPING~, WINPING+8 , WINPING+9, WINPING+10, WINPING+16, WINPING+26, CREATDAT~, CREATDAT+3, DELFILES+8~, DELFILES+9, DELFILES+10, LINUXDEL~ , LINUXDEL+7, LINUXDEL+8, LINUXDEL+10*
PSREMDIR	FTP+6~, FTP+18*, FTP+28, FTP+35, FTP+42, CREATDAT~, CREATDAT+5
PSREMFIL	EN+4~, EN+9, EN+24, EN+27, EN+28, EN+34, EN+46, EN+59, EN+62, EN+63 , EN+67, EN+68, EN+90, FTP~, FTP+28, FTP+35, FTP+42, MAILFTP+10, CREATDAT~, CREATDAT+7 , UPDTCTRL+2, UPDTCTRL+3, UPDTCTRL+10, UPDTCTRL+11
PSSHFILE	FTP+6~, FTP+20*, FTP+35, FTP+36
PSSIZE	EN+5~, EN+77, EN+80, EN+87, EN+89, MAILFTP~, MAILFTP+19, MAILFTP+20, MAILFTP+21, MAILFTP+22 , MSGTEXT1~, MSGTEXT1+6, UPDTCTRL+7
PSUID	EN+4~, FTP+42
PSWRKDIR	EN+5~, EN+10, EN+11, EN+42, EN+53, EN+54, EN+55, EN+56, EN+80, EN+84 , EN+86, EN+89, PING+12, PING+18, PING+20, PING+23, PING+26, FTP+16*, FTP+24, FTP+28 , FTP+30, FTP+35, FTP+37, FTP+42, FTP+44, VMSPING~, VMSPING+10, VMSPING+15, VMSPING+19, VMSPING+27 , VMSPING+33, VMSPING+39, LINXPING~, LINXPING+9, LINXPING+13, LINXPING+19, WINPING~, WINPING+9, WINPING+14, WINPING+21 , CREATDAT~, CREATDAT+2
PSXLOG	EN+86, VMSPING+32~, VMSPING+33, LINXPING+18~, LINXPING+19, WINPING+20~, WINPING+21
PSZFRC	VMSPING+26~, VMSPING+27, VMSPING+29, LINXPING+12~, LINXPING+13, LINXPING+15, WINPING+13~, WINPING+14, WINPING+16, LINUXDEL+9 , LINUXDEL+10
U	EN+20, EN+34, EN+62, EN+67
X	EN+5~
XMDUZ	MAILFTP+6~, MAILFTP+16*
XMSUB	MAILFTP+6~, MAILFTP+16, MAILFTP+19, MAILFTP+20, MAILFTP+24
XMTEXT	MAILFTP+6~, MAILFTP+26*
XMY	MAILFTP+6~
XMY(	MAILFTP+27, MAILFTP+28, MAILFTP+29*
XMZ	MAILFTP+6~
XPV	EN+5~, EN+84*, EN+85

Customize PDF page

Package: National Drug File