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

Package: National Drug File

Routine: PSNOSKEY


Information

PSNOSKEY ;BIR/SJA-PPS-N SSH Key Management ;09/16/2016

Source Information

Source file <PSNOSKEY.m>

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

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

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