Routine: PSNFTP2

Information

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

Package	Total	Call Graph
Kernel	5	($$FTG,CLOSE,DEL,OPEN)^%ZISH USE^%ZISUTL ($$OS,$$VERSION)^%ZOSV $$UP^XLFSTR $$DECRYP^XUSRB1
VA FileMan	2	^DIE $$GET1^DIQ
National Drug File	1	($$GETD,$$GETOS,CREATDAT)^PSNFTP

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

Package	Total	Caller Graph
National Drug File	5	PSNFTP PSNOSKEY PSNPARM PSNPPSDL PSNPPSMG

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/")

External References

Name	Field # of Occurrence
$$FTG^%ZISH	EXECUTE+9, LINUXFTP+48, WINFTP+43, FILSIZE+6, FILSIZE+13
CLOSE^%ZISH	VMSFTP+37, VMSFTP+43, LINUXFTP+37, WINFTP+34, SAVEKEYS+9, SAVEKEYS+17, SAVEKEYS+30
DEL^%ZISH	DELFILES+12
OPEN^%ZISH	VMSFTP+30, VMSFTP+39, LINUXFTP+29, WINFTP+24, SAVEKEYS+5, SAVEKEYS+13, SAVEKEYS+26
USE^%ZISUTL	VMSFTP+32, VMSFTP+41, LINUXFTP+31, WINFTP+26, SAVEKEYS+6, SAVEKEYS+14, SAVEKEYS+27
$$OS^%ZOSV	SAVEKEYS+11, SAVEKEYS+19, DIREXIST+6, MAKEDIR+5, DELFILES+5
$$VERSION^%ZOSV	DIREXIST+4, MAKEDIR+4
^DIE	FILSIZE+21
$$GET1^DIQ	SAVEKEYS+3, SAVEKEYS+21
$$GETD^PSNFTP	FILSIZE+3
$$GETOS^PSNFTP	FILSIZE+2, FILSIZQ+1
CREATDAT^PSNFTP	VMSFTP+26, LINUXFTP+26
$$UP^XLFSTR	LINUXFTP+54, DIREXIST+4, MAKEDIR+4
$$DECRYP^XUSRB1	SAVEKEYS+8, SAVEKEYS+16, SAVEKEYS+29

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
Routine Call	DIE Line Location: FILSIZE+21

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]	FILSIZE+19, SAVEKEYS+7, SAVEKEYS+8, SAVEKEYS+15, SAVEKEYS+16, SAVEKEYS+28, SAVEKEYS+29
^TMP("PSNFSIZELOG"	FILSIZE+6, FILSIZE+8, FILSIZE+9, FILSIZQ+5!
^TMP("PSNFSIZELOG2"	FILSIZE+13, FILSIZE+15, FILSIZE+16
^TMP("PSNFTPLOG"	EXECUTE+7!, EXECUTE+9, EXECUTE+13, EXECUTE+14, LINUXFTP+46!, LINUXFTP+48, LINUXFTP+52, LINUXFTP+53, WINFTP+41!, WINFTP+43 , WINFTP+49, WINFTP+50

Label References

Name	Line Occurrences
$$DIREXIST	MAKEDIR+7
$$XVMSDIR	VMSFTP+35, VMSFTP+42
DELFILES	EXECUTE+28, LINUXFTP+63
FILSIZQ	FILSIZE+18, FILSIZE+20
VMSDEL	FILSIZQ+3, FILSIZQ+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	FILSIZE+1~
DA	FILSIZE+1~, FILSIZE+7, FILSIZE+14, FILSIZE+21*
DEBUG1	LINUXFTP+28~*
DIE	FILSIZE+1~, FILSIZE+7, FILSIZE+14, FILSIZE+21*
DIR	DIREXIST~, DIREXIST+5, DIREXIST+8*, MAKEDIR~, MAKEDIR+7
DIREXIST	DIREXIST+3~, DIREXIST+10
DR	FILSIZE+1~, FILSIZE+7, FILSIZE+14, FILSIZE+21*
ERROR	FILSIZE+1~
FILE2DEL	DELFILES+3~
FILE2DEL(	DELFILES+6, DELFILES+7, DELFILES+8*
FILE2DEL("PSNSIZE.DAT"	DELFILES+10*
FILE2DEL("VSSHID."	DELFILES+9*
FILE2DEL("VSSHKEY"	DELFILES+10, DELFILES+11
FILE2DEL("VSSHKEY."	DELFILES+9*
FILE2DEL("VSSHKEY.PUB"	DELFILES+9, DELFILES+11
FILE2DEL("uxsshkey"	DELFILES+10*
FTPPORT	VMSFTP+29~*, VMSFTP+35
LOCDIR	SAVEKEYS~, SAVEKEYS+5, SAVEKEYS+13, SAVEKEYS+22, SAVEKEYS+26, SAVEKEYS+31, DELFILES~, DELFILES+4, DELFILES+12
LOGFILE	DELFILES~, DELFILES+6
MKDIR	MAKEDIR+3~, MAKEDIR+9
POP	VMSFTP+29~, VMSFTP+31, VMSFTP+40, LINUXFTP+28~, LINUXFTP+30, WINFTP+23~, WINFTP+25
PSADDR	VMSFTP~, VMSFTP+15, VMSFTP+35, LINUXFTP~, LINUXFTP+15, LINUXFTP+35, WINFTP~, WINFTP+14, WINFTP+27
PSCMDFIL	WINFTP~, WINFTP+20, WINFTP+24, WINFTP+37
PSCOMFIL	VMSFTP~, VMSFTP+21, VMSFTP+30, EXECUTE+2, EXECUTE+28, LINUXFTP+63, DELFILES~, DELFILES+7
PSDATFIL	VMSFTP~, VMSFTP+23, VMSFTP+26, VMSFTP+35, EXECUTE+28, LINUXFTP~, LINUXFTP+23, LINUXFTP+26, LINUXFTP+35, LINUXFTP+63 , DELFILES~, DELFILES+8
PSDIR	FILSIZE~, FILSIZE+1~, FILSIZE+3*, FILSIZE+5, FILSIZE+6, FILSIZE+12, FILSIZE+13, FILSIZQ+3, FILSIZQ+4, VMSDEL~ , VMSDEL+7, VMSDEL+9
PSERRMSG	VMSFTP~
PSERRMSG(1	EXECUTE+27, LINUXFTP+62
PSFILE	FILSIZE~, FILSIZE+5, FILSIZE+12, FILSIZE+19, VMSDEL~, VMSDEL+8, VMSDEL+9
PSFSIZL	FILSIZE+1~, FILSIZE+4*, FILSIZE+5, FILSIZE+6, FILSIZQ+3
PSFSIZL2	FILSIZE+1~, FILSIZE+11*, FILSIZE+12, FILSIZE+13, FILSIZQ+4
PSIEN	FILSIZE+1~, FILSIZE+7, FILSIZE+14, FILSIZE+19*, FILSIZE+20, FILSIZE+21
PSLOCDIR	VMSFTP~, VMSFTP+18, VMSFTP+34, LINUXFTP~, LINUXFTP+18, WINFTP~, WINFTP+17, WINFTP+29
PSLOGFIL	VMSFTP~, VMSFTP+22, EXECUTE+2, EXECUTE+9, EXECUTE+28, LINUXFTP~, LINUXFTP+22, LINUXFTP+35, LINUXFTP+41, LINUXFTP+48 , LINUXFTP+63, WINFTP~, WINFTP+21, WINFTP+37, WINFTP+43
PSNFLAG1	FILSIZE~, FILSIZE+18, FILSIZE+21
PSNUSER	VMSFTP~, VMSFTP+16, VMSFTP+35, LINUXFTP~, LINUXFTP+16, LINUXFTP+35
PSNVER	DIREXIST+3~, DIREXIST+4, DIREXIST+7, MAKEDIR+3~, MAKEDIR+4, MAKEDIR+6
PSOOS	DELFILES+3~, DELFILES+5*, DELFILES+9, DELFILES+10, DELFILES+11
PSOS	FILSIZE+1~, FILSIZE+2, FILSIZQ+1, FILSIZQ+2
PSPNG	EXECUTE+11~, EXECUTE+12, EXECUTE+13, EXECUTE+14, LINUXFTP+50~, LINUXFTP+51, LINUXFTP+52, LINUXFTP+53, WINFTP+45~, WINFTP+46* , WINFTP+49*, WINFTP+50
PSPNG1	EXECUTE+11~, EXECUTE+12, EXECUTE+14, EXECUTE+15, EXECUTE+16, EXECUTE+17, EXECUTE+18, EXECUTE+19, EXECUTE+20, EXECUTE+21 , EXECUTE+22, EXECUTE+23, EXECUTE+24, EXECUTE+25, EXECUTE+26, LINUXFTP+50~, LINUXFTP+51, LINUXFTP+53, LINUXFTP+54, LINUXFTP+55 , LINUXFTP+56, LINUXFTP+57, LINUXFTP+58, LINUXFTP+59, LINUXFTP+60, WINFTP+45~, WINFTP+47, WINFTP+50, WINFTP+51, WINFTP+52 , WINFTP+53, WINFTP+54, WINFTP+55, WINFTP+56
PSRC	VMSFTP~, VMSFTP+15, VMSFTP+16, VMSFTP+17, VMSFTP+18, VMSFTP+19, VMSFTP+20, VMSFTP+21, VMSFTP+22, VMSFTP+23* , VMSFTP+26, VMSFTP+31, VMSFTP+40, EXECUTE+4, EXECUTE+15, EXECUTE+16, EXECUTE+17, EXECUTE+18, EXECUTE+19, EXECUTE+20* , EXECUTE+21, EXECUTE+22, EXECUTE+23, EXECUTE+24, EXECUTE+25, EXECUTE+26, LINUXFTP~, LINUXFTP+15, LINUXFTP+16, LINUXFTP+17* , LINUXFTP+18, LINUXFTP+19, LINUXFTP+20, LINUXFTP+21, LINUXFTP+22, LINUXFTP+23, LINUXFTP+26, LINUXFTP+30, LINUXFTP+43, LINUXFTP+55* , LINUXFTP+56, LINUXFTP+57, LINUXFTP+58, LINUXFTP+59, LINUXFTP+60, LINUXFTP+61, WINFTP~, WINFTP+14, WINFTP+15, WINFTP+16* , WINFTP+17, WINFTP+18, WINFTP+19, WINFTP+20, WINFTP+21, WINFTP+25, WINFTP+39, WINFTP+51, WINFTP+52, WINFTP+53 , WINFTP+54, WINFTP+55, WINFTP+56, VMSDEL~, VMSDEL+7, VMSDEL+8, VMSDEL+10
PSREMDIR	VMSFTP~, VMSFTP+19, VMSFTP+26, LINUXFTP~, LINUXFTP+19, LINUXFTP+26, WINFTP~, WINFTP+18, WINFTP+30
PSREMFIL	VMSFTP~, VMSFTP+20, VMSFTP+26, LINUXFTP~, LINUXFTP+20, LINUXFTP+26, WINFTP~, WINFTP+19, WINFTP+32
PSSEQ	FILSIZE+1~, FILSIZE+7, FILSIZE+8, FILSIZE+9, FILSIZE+14, FILSIZE+15, FILSIZE+16
PSSEQD	FILSIZE+1~, FILSIZE+7, FILSIZE+9, FILSIZE+10, FILSIZE+14, FILSIZE+16, FILSIZE+17
PSSHFILE	LINUXFTP~, LINUXFTP+21, LINUXFTP+29, LINUXFTP+41
PSSIZE	FILSIZE~, FILSIZE+10, FILSIZE+17, FILSIZE+21
PSSTOP	EXECUTE+11~, EXECUTE+12, EXECUTE+13, EXECUTE+15, EXECUTE+16, EXECUTE+17, EXECUTE+18, EXECUTE+19, EXECUTE+20, EXECUTE+21 , EXECUTE+22, EXECUTE+23, EXECUTE+24, EXECUTE+25, EXECUTE+26, EXECUTE+27, LINUXFTP+50~, LINUXFTP+51, LINUXFTP+52, LINUXFTP+55* , LINUXFTP+56, LINUXFTP+57, LINUXFTP+58, LINUXFTP+59, LINUXFTP+60, LINUXFTP+61, LINUXFTP+62, WINFTP+45~, WINFTP+48, WINFTP+49 , WINFTP+51, WINFTP+52, WINFTP+53, WINFTP+54, WINFTP+55, WINFTP+56*
PSUID	WINFTP~, WINFTP+15, WINFTP+28
PSWRKDIR	VMSFTP~, VMSFTP+17, VMSFTP+26, VMSFTP+30, VMSFTP+35, VMSFTP+39, VMSFTP+40, VMSFTP+42, EXECUTE+2, EXECUTE+9 , EXECUTE+28, LINUXFTP~, LINUXFTP+17, LINUXFTP+26, LINUXFTP+29, LINUXFTP+34, LINUXFTP+35, LINUXFTP+41, LINUXFTP+48, LINUXFTP+63 , WINFTP~, WINFTP+16, WINFTP+24, WINFTP+37, WINFTP+43
PSXLOG	EXECUTE+8~, EXECUTE+9, LINUXFTP+47~, LINUXFTP+48, WINFTP+42~, WINFTP+43, FILSIZE+1~, FILSIZE+6, FILSIZE+13*
PSZFRC	EXECUTE+1~, EXECUTE+2, EXECUTE+4, LINUXFTP+40~, LINUXFTP+41, LINUXFTP+43, WINFTP+36~, WINFTP+37, WINFTP+39, VMSDEL+9 , VMSDEL+10
UXEXIT	LINUXFTP+50~, LINUXFTP+51, LINUXFTP+54, LINUXFTP+61, LINUXFTP+62
VMSDIR	XVMSDIR~, XVMSDIR+4
WLN	SAVEKEYS+2~, SAVEKEYS+7, SAVEKEYS+8, SAVEKEYS+15, SAVEKEYS+16, SAVEKEYS+28*, SAVEKEYS+29
X	FILSIZE+1~, FILSIZE+5, FILSIZE+12
XPV	SAVEKEYS+2~, SAVEKEYS+22, SAVEKEYS+23, SAVEKEYS+31, SAVEKEYS+32

Customize PDF page

Package: National Drug File