Routine: PSNOSKEY

Package	Total	Call Graph
Kernel	8	($$FTG,CLOSE,DEL,OPEN)^%ZISH USE^%ZISUTL ($$OS,$$VERSION)^%ZOSV ^%ZTLOAD ($$FMTHL7,$$HTFM,$$NOW)^XLFDT $$LOW^XLFSTR SIG^XUSESIG ($$DECRYP,$$ENCRYP)^XUSRB1
VA FileMan	3	(,UPDATE)^DIE $$GET1^DIQ ^DIR
National Drug File	1	($$DIREXIST,MAKEDIR)^PSNFTP2

Package	Total	Caller Graph
Kernel	1	^DIC(19
National Drug File	1	PSN PPS SSH KEY MANAGEMENT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- Entry point
ACTION	; -- SSH Key Action
END	;
NEWKEY(ENCRTYPE)	; Generate and store a pair of SSH keys ; Input: (o) ENCRTYPE - SSH Encryption Type (DSA/RSA) (Default: RSA)
RETRIEVE(KTYPE)	; Retrieve the SSH Key into the ^TMP global ; (o) KTYPE - SSH Key Type (PUB - Public/PRV - PRivate) (Default: Public)
VIEW	; Displays the SSH Public Key ; ^TMP("PSNPUBKY",$J,0)="SSH Key Format (SSH2/OpenSSH)^Encryption Type (DSA/RSA)" ; ^TMP("PSNPUBKY",$J,1-N)=[SSH Key Content]
DELETE	; Delete Both SSH Keys associated
OPENSSH()	; Returns the SSH Public Key in OpenSSH Format (Converts if necessary)
ENDOS()	; Returns the Backend Server Operating System (OS)
SETOS(JOB)	; Sets the Operating Systems in ^XTMP("PSNKEY",$J,"OS") (Called via Taskman)
HELP	; Encryption Type Help
HELP1	; Encryption Type Help
PAUSE	; Pauses screen until user hits Return
ASK()	; confirm creating new pair

External References

Name	Field # of Occurrence
$$FTG^%ZISH	NEWKEY+40, NEWKEY+43
CLOSE^%ZISH	NEWKEY+21
DEL^%ZISH	NEWKEY+47
OPEN^%ZISH	NEWKEY+17
USE^%ZISUTL	NEWKEY+18
$$OS^%ZOSV	NEWKEY+4, ENDOS+10, SETOS+2
$$VERSION^%ZOSV	NEWKEY+30, NEWKEY+33
^%ZTLOAD	ENDOS+7
^DIE	NEWKEY+66, DELETE+2
UPDATE^DIE	NEWKEY+61
$$GET1^DIQ	ACTION+19, ACTION+25, NEWKEY+5, RETRIEVE+7, RETRIEVE+12
^DIR	ACTION+3, ACTION+28, ACTION+34, ACTION+39, ACTION+63, PAUSE+1, ASK+4
$$DIREXIST^PSNFTP2	NEWKEY+27
MAKEDIR^PSNFTP2	NEWKEY+27
$$FMTHL7^XLFDT	NEWKEY+10
$$HTFM^XLFDT	NEWKEY+10
$$NOW^XLFDT	ENDOS+7
$$LOW^XLFSTR	NEWKEY+20, NEWKEY+29, NEWKEY+32
SIG^XUSESIG	ACTION+10
$$DECRYP^XUSRB1	RETRIEVE+10
$$ENCRYP^XUSRB1	NEWKEY+58, NEWKEY+59

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ACTION+13
Function Call: WRITE	Prompt: !!,"No action taken!",$C(7) Line Location: ACTION+17
Function Call: WRITE	Prompt: "Done",$C(7) Line Location: ACTION+55
Function Call: WRITE	Prompt: !!,"[No SSH Key Pair found]",$C(7) Line Location: ACTION+60
Function Call: WRITE	Prompt: "Done",$C(7) Line Location: ACTION+64
Function Call: WRITE	Prompt: !,"Public SSH Key (",$P($G(^TMP("PSNPUBKY",$J,0)),"^",2),") content (does not include dash lines):" Line Location: VIEW+5
Function Call: WRITE	Prompt: !,DASHLN Line Location: VIEW+6
Function Call: WRITE	Prompt: !,$E(SSHKEY,1,80) Line Location: VIEW+7
Function Call: WRITE	Prompt: !,DASHLN Line Location: VIEW+8
Function Call: WRITE	Prompt: !!,"Secure SHell (SSH) Encryption Keys are used to allow data file download." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Follow the steps below to successfully setup data file download from Austin " Line Location: HELP+2
Function Call: WRITE	Prompt: !,"server to VistA sites:",! Line Location: HELP+3
Function Call: WRITE	Prompt: !,"Step 1: Select the 'C' (Create New SSH Key Pair) Action and follow the prompts" Line Location: HELP+4
Function Call: WRITE	Prompt: !," to create a new pair of SSH keys. If you already have an existing SSH" Line Location: HELP+5
Function Call: WRITE	Prompt: !," Key Pair you can skip this step." Line Location: HELP+6
Function Call: WRITE	Prompt: !," You can check whether you already have an existing SSH Key Pair" Line Location: HELP+7
Function Call: WRITE	Prompt: !," through the 'V' (View Public SSH Key) Action." Line Location: HELP+8
Function Call: WRITE	Prompt: !,"" Line Location: HELP+9
Function Call: WRITE	Prompt: !!,"Step 2: Share the Public SSH Key content with the PPS-N SFTP server (Austin)." Line Location: HELP+11
Function Call: WRITE	Prompt: !," In order to successfully establish the data download files, the SFTP " Line Location: HELP+12
Function Call: WRITE	Prompt: !," server at Austin needs to install/configure the new SSH Key created in" Line Location: HELP+13
Function Call: WRITE	Prompt: !," step 1 for the user id they assigned to your site. Use the 'V' (View " Line Location: HELP+14
Function Call: WRITE	Prompt: !," Public SSH Key) Action to retrieve the content of the Public SSH key." Line Location: HELP+15
Function Call: WRITE	Prompt: !," The Public SSH Key should not contain line-feed characters, therefore " Line Location: HELP+16
Function Call: WRITE	Prompt: !," after you copy & paste it from the terminal emulator into an email or " Line Location: HELP+17
Function Call: WRITE	Prompt: !," text editor make sure it contains only one line of text (no wrapping)." Line Location: HELP+18
Function Call: WRITE	Prompt: !," Encryption Type: RSA or ECDSA?" Line Location: HELP1+1
Function Call: WRITE	Prompt: !," -----------------------------------" Line Location: HELP1+2
Function Call: WRITE	Prompt: !," Rivest, Shamir & Adleman (RSA) has been one of the most common" Line Location: HELP1+3
Function Call: WRITE	Prompt: !," encryption algorithms used by the IT industry for securely sharing data." Line Location: HELP1+4
Function Call: WRITE	Prompt: !,"" Line Location: HELP1+5
Function Call: WRITE	Prompt: !," Elliptic Curve Digital Signature Algorithm (ECDSA) is a more complex" Line Location: HELP1+6
Function Call: WRITE	Prompt: !," public key cryptography encryption algorithm that is now supported by" Line Location: HELP1+7
Function Call: WRITE	Prompt: !," the VA. If ECDSA is selected you will be prompted to enter the Bit size." Line Location: HELP1+8
Function Call: WRITE	Prompt: !," Valid selections are 256, 384 or 521." Line Location: HELP1+9
Function Call: WRITE	Prompt: !,"" Line Location: HELP1+10
Function Call: WRITE	Prompt: !," You will need to contact the Austin SFTP server support to determine" Line Location: HELP1+11
Function Call: WRITE	Prompt: !," which type to select." Line Location: HELP1+12
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: !! Line Location: ASK+3
Routine Call	DIE Line Location: NEWKEY+66 DELETE+2
Routine Call	DIE Line Location: NEWKEY+61
Routine Call	DIR Line Location: ACTION+3 ACTION+28 ACTION+34 ACTION+39 ACTION+63 PAUSE+1 ASK+4

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)
^TMP(	NEWKEY+52, NEWKEY+55, NEWKEY+56, NEWKEY+57, NEWKEY+58, NEWKEY+62!, RETRIEVE+9!, RETRIEVE+10, RETRIEVE+11, RETRIEVE+12
^TMP("PSNPRVKY"	NEWKEY+38!, NEWKEY+40, NEWKEY+41, DELETE+3!
^TMP("PSNPUBKY"	ACTION+7!, ACTION+8, ACTION+36, ACTION+42, ACTION+52, ACTION+60, NEWKEY+38!, NEWKEY+43, NEWKEY+44, VIEW+5 , DELETE+3!, OPENSSH+6, OPENSSH+7, OPENSSH+8, OPENSSH+9, OPENSSH+10, OPENSSH+13, OPENSSH+14, ASK+1
^XTMP("PSNKEY"	ENDOS+4!, ENDOS+8, ENDOS+9!, SETOS+2*
^XUSEC("PSN PPS COORD"	ACTION+5

Label References

Name	Line Occurrences
$$ASK	ACTION+17
$$ENDOS	ACTION+18
$$OPENSSH	VIEW+4
ACTION	ACTION+5, ACTION+8, ACTION+10, ACTION+13, ACTION+16, ACTION+58, ACTION+66, ACTION+67
DELETE	ACTION+42, ACTION+64, NEWKEY+12
END	ACTION+4
HELP	ACTION+66
HELP1	HELP+10
NEWKEY	ACTION+51
PAUSE	ACTION+9, ACTION+13, ACTION+22, ACTION+54, HELP+10
RETRIEVE	ACTION+7, ACTION+51, ACTION+59
VIEW	ACTION+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COMFILE	NEWKEY+16~*, NEWKEY+17, NEWKEY+22, NEWKEY+23
DA	NEWKEY+3~, NEWKEY+65, DELETE+1~, DELETE+2
DASHLN	VIEW+3~, VIEW+4*, VIEW+6, VIEW+8
DIE	NEWKEY+3~, NEWKEY+65!, DELETE+1~, DELETE+2
DIR	EN+1~, ACTION+1!, ACTION+23!, ACTION+32!, ACTION+38!, ACTION+62!, PAUSE+1!, ASK+2!
DIR("?"	ACTION+23, ACTION+32, ASK+2*
DIR("A"	ACTION+1, ACTION+23, ACTION+32, ACTION+38, ACTION+62, PAUSE+1, ASK+3*
DIR("B"	ACTION+2, ACTION+28, ACTION+34, ACTION+38, ACTION+62, ASK+4
DIR(0	ACTION+2, ACTION+26, ACTION+27, ACTION+33, ACTION+38, ACTION+62, PAUSE+1, ASK+2
DIRUT	ACTION+4, ACTION+28, ACTION+31, ACTION+39, ACTION+63, ASK+2!
DR	NEWKEY+3~, NEWKEY+66, DELETE+1~, DELETE+2
DTE	NEWKEY+3~, NEWKEY+10*, NEWKEY+16
DUOUT	ACTION+4, ACTION+28, ACTION+31, ACTION+39, ACTION+63, ASK+2!
DUZ	ACTION+5
ENCRBITS	EN+1~, ACTION+35, NEWKEY+28, NEWKEY+31*, NEWKEY+32, NEWKEY+34, NEWKEY+35
ENCRTYPE	ACTION+29, ACTION+31, ACTION+35, ACTION+51, NEWKEY~, NEWKEY+8, NEWKEY+20, NEWKEY+29, NEWKEY+32, NEWKEY+34 , NEWKEY+35, NEWKEY+66, OPENSSH+4~, OPENSSH+7, OPENSSH+11
ENDOS	ENDOS+3~, ENDOS+5, ENDOS+8, ENDOS+10
FILE2DEL	NEWKEY+3~
FILE2DEL(	NEWKEY+23, NEWKEY+36
I	ENDOS+3~, ENDOS+8*
>> IOBOFF	ACTION+37, ACTION+61
>> IOBON	ACTION+37, ACTION+61
JOB	SETOS~, SETOS+2
KEYFILE	NEWKEY+3~, NEWKEY+10*, NEWKEY+20, NEWKEY+23, NEWKEY+32, NEWKEY+34, NEWKEY+35, NEWKEY+36, NEWKEY+40, NEWKEY+43 , NEWKEY+67
KTYPE	RETRIEVE~, RETRIEVE+6*, RETRIEVE+7, RETRIEVE+8
KYTXT	NEWKEY+3~, NEWKEY+51!, RETRIEVE+5~
KYTXT(	NEWKEY+58*, RETRIEVE+10
KYTXT(1	NEWKEY+55, NEWKEY+57, NEWKEY+59*
LN	NEWKEY+3~, NEWKEY+52, NEWKEY+55, NEWKEY+56, NEWKEY+57, NEWKEY+58, RETRIEVE+5~, RETRIEVE+10, OPENSSH+4~, OPENSSH+8* , OPENSSH+9, OPENSSH+10, OPENSSH+13*, OPENSSH+14
LOCALDIR	EN+1~, ACTION+19, ACTION+20, NEWKEY+3~, NEWKEY+5, NEWKEY+17, NEWKEY+20, NEWKEY+22, NEWKEY+27, NEWKEY+32 , NEWKEY+34, NEWKEY+35, NEWKEY+40, NEWKEY+43, NEWKEY+47
OPENSSH	OPENSSH+4~, OPENSSH+5, OPENSSH+7, OPENSSH+10, OPENSSH+11, OPENSSH+14*, OPENSSH+15
OVFLN	NEWKEY+3~, NEWKEY+56*, NEWKEY+57
PSNDSA	EN+1~, ACTION+25*, ACTION+26, ACTION+27
PSNOS	EN+1~, ACTION+18, ACTION+19, ACTION+21, NEWKEY+3~, NEWKEY+4, NEWKEY+5, NEWKEY+15, NEWKEY+26, NEWKEY+40 , NEWKEY+43, NEWKEY+54, NEWKEY+59, NEWKEY+66
PSNSPC	NEWKEY+3~, NEWKEY+50, NEWKEY+52, NEWKEY+54, NEWKEY+55, NEWKEY+56, NEWKEY+57, NEWKEY+58, NEWKEY+59, NEWKEY+60 , NEWKEY+62, RETRIEVE+5~, RETRIEVE+8, RETRIEVE+9, RETRIEVE+10, RETRIEVE+11, RETRIEVE+12
PV	NEWKEY+3~, NEWKEY+34, NEWKEY+35
SAVEKEY	NEWKEY+3~, NEWKEY+51!
SAVEKEY(	NEWKEY+60*
SSHKEY	VIEW+3~, VIEW+4, VIEW+7
X	EN+1~, ACTION+10, NEWKEY+40, NEWKEY+43, RETRIEVE+5~, RETRIEVE+7*, ASK+2!
X1	EN+1~, ACTION+10
Y	EN+1~, ACTION+5, ACTION+8, ACTION+10, ACTION+13, ACTION+16, ACTION+29, ACTION+35, ACTION+39, ACTION+58 , ACTION+63, ACTION+66, ASK+1~*, ASK+2!, ASK+5
ZTDESC	ENDOS+3~, ENDOS+6*
ZTDTH	ENDOS+3~, ENDOS+7*
ZTIO	ENDOS+3~, ENDOS+5*
ZTRTN	ENDOS+3~, ENDOS+5*
ZTSK	ENDOS+3~

Customize PDF page

Package: National Drug File

Routine: PSNOSKEY

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: