Global: ^VAT(394.72

Information

FileMan FileNo	FileMan Filename	Package
394.72	VAQ - ENCRYPTION METHOD	Patient Data Exchange

This file defines each encryption method currently supported by PDX. Methods must use the following parameters: STRING - String to encrypt/decrypt KEY1 - Name of primary encryption/decryption key KEY2 - Name of secondary encryption/decryption key (if required) Methods must return the following: string - Encrypted or decrypted form of STRING NULL - Error Sample methods: $$ECR^VAQZZZ(STRING,KEY1,KEY2) - Encrypts STRING using the encryption keys KEY1 & KEY2 $$DCR^VAQZZZ(STRING,KEY1,KEY2) - Decrypts STRING using the decryption keys KEY1 & KEY2 Sample use: S IFN=internal file number for encryption method S STRING="TEST" S KEY1="ABCD1234" S KEY2="ZYXW0987" X ("S X="_^VAT(394.72,IFN,"ECR")) The variable X is now set to the encrypted format of STRING

Package	Total	Routines
Patient Data Exchange	5	VAQUTL2 ^VAT(394.72 VAQFIL10 VAQFIL11 VAQUTL3

Package	Total	FileMan Files
Patient Data Exchange	2	VAQ - TRANSACTION(#394.61)[41] VAQ - PARAMETER(#394.81)[21]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	Encryption Type	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `NOV 30, 1992` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `Type of encryption (name).` CROSS-REFERENCE: `394.72^B` `1)= S ^VAT(394.72,"B",$E(X,1,30),DA)=""` `2)= K ^VAT(394.72,"B",$E(X,1,30),DA)`
10	Encryption Method	ECR;E1,240	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `NOV 30, 1992` HELP-PROMPT: `Answer must be 1-240 characters in length.` DESCRIPTION: `Function call to encrypt a line of data.`
20	Decryption Method	DCR;E1,240	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `NOV 30, 1992` HELP-PROMPT: `Answer must be 1-240 characters in length.` DESCRIPTION: `Function call to decrypt a line of data.`

Encryption Type

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: NOV 30, 1992
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
Type of encryption (name).
CROSS-REFERENCE: 394.72^B
1)= S ^VAT(394.72,"B",$E(X,1,30),DA)=""
2)= K ^VAT(394.72,"B",$E(X,1,30),DA)