security/electronic_signatures: UJO_ES_ENHANCEMENTS_1P0.KID

KIDS Distribution saved on Mar 01, 2013@10:40:18
ES AND ENCRYPTION ENHANCEMENTS
**KIDS**:UJO ES ENHANCEMENTS 1.0^

**INSTALL NAME**
UJO ES ENHANCEMENTS 1.0
"BLD",8502,0)
UJO ES ENHANCEMENTS 1.0^^0^3130301^n
"BLD",8502,1,0)
^^18^18^3130301^
"BLD",8502,1,1,0)
Created by VISTA Expertise Network for EHS in February 2013. Funded by
"BLD",8502,1,2,0)
EHS.
"BLD",8502,1,3,0)
 
"BLD",8502,1,4,0)
Contains Electronic Signature and Encryption/Decryption enhancements.
"BLD",8502,1,5,0)
 
"BLD",8502,1,6,0)
THIS IS NOT A TURN-KEY PACKAGE. SEVERAL THINGS NEED TO BE DONE BEFORE YOU 
"BLD",8502,1,7,0)
CAN USE THIS ON A PRODUCTION SYSTEM:
"BLD",8502,1,8,0)
* Hash the electronic signatures
"BLD",8502,1,9,0)
* Convert the unencrypted data in the fields that are supposed to be 
"BLD",8502,1,10,0)
encrypted to encrypted using the encryption algorithm.
"BLD",8502,1,11,0)
* Expand the fields that will store the encrypted data as encrypted data 
"BLD",8502,1,12,0)
is typically 75% larger.
"BLD",8502,1,13,0)
 
"BLD",8502,1,14,0)
Example conversion for the hashing of electronic signatures and 
"BLD",8502,1,15,0)
encrypting data is in UJOESCON.
"BLD",8502,1,16,0)
 
"BLD",8502,1,17,0)
Documentation located at 
"BLD",8502,1,18,0)
https://trac.opensourcevista.net/wiki/security/electronic_signatures
"BLD",8502,4,0)
^9.64PA^8925^4
"BLD",8502,4,8925,0)
8925
"BLD",8502,4,8925,2,0)
^9.641^8925^1
"BLD",8502,4,8925,2,8925,0)
TIU DOCUMENT  (File-top level)
"BLD",8502,4,8925,2,8925,1,0)
^9.6411^1510^4
"BLD",8502,4,8925,2,8925,1,1503,0)
SIGNATURE BLOCK NAME
"BLD",8502,4,8925,2,8925,1,1504,0)
SIGNATURE BLOCK TITLE
"BLD",8502,4,8925,2,8925,1,1509,0)
COSIGNATURE BLOCK NAME
"BLD",8502,4,8925,2,8925,1,1510,0)
COSIGNATURE BLOCK TITLE
"BLD",8502,4,8925,222)
y^y^p^^^^n^^n
"BLD",8502,4,8925,224)

"BLD",8502,4,400000001.1,0)
400000001.1
"BLD",8502,4,400000001.1,222)
y^y^f^^n^^y^o^n
"BLD",8502,4,400000001.2,0)
400000001.2
"BLD",8502,4,400000001.2,222)
y^y^f^^n^^y^o^n
"BLD",8502,4,400000001.3,0)
400000001.3
"BLD",8502,4,400000001.3,222)
y^y^f^^n^^y^o^n
"BLD",8502,4,"APDD",8925,8925)

"BLD",8502,4,"APDD",8925,8925,1503)

"BLD",8502,4,"APDD",8925,8925,1504)

"BLD",8502,4,"APDD",8925,8925,1509)

"BLD",8502,4,"APDD",8925,8925,1510)

"BLD",8502,4,"B",8925,8925)

"BLD",8502,4,"B",400000001.1,400000001.1)

"BLD",8502,4,"B",400000001.2,400000001.2)

"BLD",8502,4,"B",400000001.3,400000001.3)

"BLD",8502,6.3)
4
"BLD",8502,"KRN",0)
^9.67PA^779.2^20
"BLD",8502,"KRN",.4,0)
.4
"BLD",8502,"KRN",.401,0)
.401
"BLD",8502,"KRN",.402,0)
.402
"BLD",8502,"KRN",.403,0)
.403
"BLD",8502,"KRN",.5,0)
.5
"BLD",8502,"KRN",.84,0)
.84
"BLD",8502,"KRN",3.6,0)
3.6
"BLD",8502,"KRN",3.8,0)
3.8
"BLD",8502,"KRN",9.2,0)
9.2
"BLD",8502,"KRN",9.8,0)
9.8
"BLD",8502,"KRN",9.8,"NM",0)
^9.68A^4^4
"BLD",8502,"KRN",9.8,"NM",1,0)
UJOSHSHP^^0^B32560742
"BLD",8502,"KRN",9.8,"NM",2,0)
UJOXCALL^^0^B2632097
"BLD",8502,"KRN",9.8,"NM",3,0)
UJOESCON^^0^B7034342
"BLD",8502,"KRN",9.8,"NM",4,0)
XUSHSHP^^0^B154851
"BLD",8502,"KRN",9.8,"NM","B","UJOESCON",3)

"BLD",8502,"KRN",9.8,"NM","B","UJOSHSHP",1)

"BLD",8502,"KRN",9.8,"NM","B","UJOXCALL",2)

"BLD",8502,"KRN",9.8,"NM","B","XUSHSHP",4)

"BLD",8502,"KRN",19,0)
19
"BLD",8502,"KRN",19.1,0)
19.1
"BLD",8502,"KRN",101,0)
101
"BLD",8502,"KRN",409.61,0)
409.61
"BLD",8502,"KRN",771,0)
771
"BLD",8502,"KRN",779.2,0)
779.2
"BLD",8502,"KRN",870,0)
870
"BLD",8502,"KRN",8989.51,0)
8989.51
"BLD",8502,"KRN",8989.52,0)
8989.52
"BLD",8502,"KRN",8994,0)
8994
"BLD",8502,"KRN","B",.4,.4)

"BLD",8502,"KRN","B",.401,.401)

"BLD",8502,"KRN","B",.402,.402)

"BLD",8502,"KRN","B",.403,.403)

"BLD",8502,"KRN","B",.5,.5)

"BLD",8502,"KRN","B",.84,.84)

"BLD",8502,"KRN","B",3.6,3.6)

"BLD",8502,"KRN","B",3.8,3.8)

"BLD",8502,"KRN","B",9.2,9.2)

"BLD",8502,"KRN","B",9.8,9.8)

"BLD",8502,"KRN","B",19,19)

"BLD",8502,"KRN","B",19.1,19.1)

"BLD",8502,"KRN","B",101,101)

"BLD",8502,"KRN","B",409.61,409.61)

"BLD",8502,"KRN","B",771,771)

"BLD",8502,"KRN","B",779.2,779.2)

"BLD",8502,"KRN","B",870,870)

"BLD",8502,"KRN","B",8989.51,8989.51)

"BLD",8502,"KRN","B",8989.52,8989.52)

"BLD",8502,"KRN","B",8994,8994)

"BLD",8502,"QDEF")
^^^^YES
"BLD",8502,"QUES",0)
^9.62^^
"BLD",8502,"REQB",0)
^9.611^^
"DATA",400000001.1,1,0)
HASH/DIGEST^1^3130225^EHS/SW
"DATA",400000001.1,1,1,0)
^400000001.11^1^1
"DATA",400000001.1,1,1,1,0)
X^1^String to hash
"DATA",400000001.1,1,2)
S X=$$UP^XLFSTR(X)
"DATA",400000001.1,1,3,0)
^^2^2^3130225^
"DATA",400000001.1,1,3,1,0)
Function provides functionality of a password hash so that the original password cannot be decrypted from the hash.
"DATA",400000001.1,1,3,2,0)
See http://crackstation.net/hashing-security.htm
"DATA",400000001.1,2,0)
ENCRYPT STRING^1^3130225^EHS/SW
"DATA",400000001.1,2,1,0)
^400000001.11^3^3
"DATA",400000001.1,2,1,1,0)
X^1^String to be encrypted
"DATA",400000001.1,2,1,2,0)
X1^1^encryption salt/password
"DATA",400000001.1,2,1,3,0)
X2^1^encryption salt/password
"DATA",400000001.1,2,2)
Q
"DATA",400000001.1,2,3,0)
^21614.13^3^3^3130225^^
"DATA",400000001.1,2,3,1,0)
Encrypts data using a password/salt
"DATA",400000001.1,2,3,2,0)
The variables X1 and X2 are values to be decided upon by the programmer
"DATA",400000001.1,2,3,3,0)
calling this utility.
"DATA",400000001.1,3,0)
DECRYPT STRING^1^3130225^EHS/SW
"DATA",400000001.1,3,1,0)
^400000001.11^3^3
"DATA",400000001.1,3,1,1,0)
X^1^Encrypted string to be decrypted
"DATA",400000001.1,3,1,2,0)
X1^1^Encryption salt/password
"DATA",400000001.1,3,1,3,0)
X2^1^Encryption salt/password
"DATA",400000001.1,3,2)
Q
"DATA",400000001.1,3,3,0)
^^3^3^3130225^
"DATA",400000001.1,3,3,1,0)
Decrypts encrypted text using X1 and X2.
"DATA",400000001.1,3,3,2,0)
If X1 and X2 are different from what was used to encrypt the string,
"DATA",400000001.1,3,3,3,0)
the encryption will fail.
"DATA",400000001.1,4,0)
UNIT TEST ENTRY^1^3130226^TESTING
"DATA",400000001.1,4,2)
S X="HELLO WORLD"
"DATA",400000001.2,1,0)
KERNEL
"DATA",400000001.3,1,0)
1
"DATA",400000001.3,1,1)
D HASH^UJOSHSHP
"DATA",400000001.3,2,0)
2
"DATA",400000001.3,2,1)
D EN^UJOSHSHP
"DATA",400000001.3,3,0)
3
"DATA",400000001.3,3,1)
D DE^UJOSHSHP
"FIA",8925)
TIU DOCUMENT
"FIA",8925,0)
^TIU(8925,
"FIA",8925,0,0)
8925IsP
"FIA",8925,0,1)
y^y^p^^^^n^^n
"FIA",8925,0,10)

"FIA",8925,0,11)

"FIA",8925,0,"RLRO")

"FIA",8925,8925)
1
"FIA",8925,8925,1503)

"FIA",8925,8925,1504)

"FIA",8925,8925,1509)

"FIA",8925,8925,1510)

"FIA",400000001.1)
UJO SUPPORTED API
"FIA",400000001.1,0)
^UJO(400000001.1,
"FIA",400000001.1,0,0)
400000001.1
"FIA",400000001.1,0,1)
y^y^f^^n^^y^o^n
"FIA",400000001.1,0,10)

"FIA",400000001.1,0,11)

"FIA",400000001.1,0,"RLRO")

"FIA",400000001.1,400000001.1)
0
"FIA",400000001.1,400000001.11)
0
"FIA",400000001.1,400000001.13)
0
"FIA",400000001.2)
UJO SUPPORTED API GROUP
"FIA",400000001.2,0)
^UJO(400000001.2,
"FIA",400000001.2,0,0)
400000001.2
"FIA",400000001.2,0,1)
y^y^f^^n^^y^o^n
"FIA",400000001.2,0,10)

"FIA",400000001.2,0,11)

"FIA",400000001.2,0,"RLRO")

"FIA",400000001.2,400000001.2)
0
"FIA",400000001.3)
UJO IMPLEMENTATION-SPECIFIC API
"FIA",400000001.3,0)
^UJO(400000001.3,
"FIA",400000001.3,0,0)
400000001.3P
"FIA",400000001.3,0,1)
y^y^f^^n^^y^o^n
"FIA",400000001.3,0,10)

"FIA",400000001.3,0,11)

"FIA",400000001.3,0,"RLRO")

"FIA",400000001.3,400000001.3)
0
"FIA",400000001.3,400000001.32)
0
"FIA",400000001.3,400000001.39)
0
"MBREQ")
0
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
YES
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
4
"RTN","UJOESCON")
0^3^B7034342
"RTN","UJOESCON",1,0)
UJOESCON ; VEN/SMH - Convert ES and Encryptions/Decryptions;2013-02-27  11:47 AM
"RTN","UJOESCON",2,0)
 ;;1.0;JORDAN SPECIFIC MODIFICATIONS;;;Build 4
"RTN","UJOESCON",3,0)
 N DIQUIET S DIQUIET=1 D DT^DICRW
"RTN","UJOESCON",4,0)
 ;
"RTN","UJOESCON",5,0)
 W "WARNING: This program cannot be run more than once. Running it again is",!
"RTN","UJOESCON",6,0)
 W "destructive",!!
"RTN","UJOESCON",7,0)
 W "There should be no users on the system when this executes.",!!
"RTN","UJOESCON",8,0)
 ;
"RTN","UJOESCON",9,0)
 N DIR,X,Y,DTOUT,DUOUT,DIRUT,DIROUT,DA
"RTN","UJOESCON",10,0)
 S DIR(0)="Y",DIR("A")="Do you want to continue" D ^DIR
"RTN","UJOESCON",11,0)
 QUIT:'$G(Y)
"RTN","UJOESCON",12,0)
 ;
"RTN","UJOESCON",13,0)
 D NP,TIU Q
"RTN","UJOESCON",14,0)
 ;
"RTN","UJOESCON",15,0)
NP ; New Person File electronic signature conversion from plain text to hashed.
"RTN","UJOESCON",16,0)
 W !,"Hashing electronic signatures",!
"RTN","UJOESCON",17,0)
 N DUZ ; Needed for the hashing algorithm
"RTN","UJOESCON",18,0)
 N I S I=0 F  S I=$O(^VA(200,I)) Q:'I  D  ; for each NP
"RTN","UJOESCON",19,0)
 . N OLDES S OLDES=$P($G(^VA(200,I,20)),U,4) ; Get old signature
"RTN","UJOESCON",20,0)
 . Q:'$L(OLDES)  ; quit if it doesn't exist.
"RTN","UJOESCON",21,0)
 . W I_" "
"RTN","UJOESCON",22,0)
 . S DUZ=I ; DUZ is a hash salt
"RTN","UJOESCON",23,0)
 . N X S X=OLDES D HASH^XUSHSHP  ; hash old sig
"RTN","UJOESCON",24,0)
 . S $P(^VA(200,I,20),U,4)=X ; store result
"RTN","UJOESCON",25,0)
 W !
"RTN","UJOESCON",26,0)
 QUIT
"RTN","UJOESCON",27,0)
 ;
"RTN","UJOESCON",28,0)
TIU ; Encrypt Signatures for TIU documents; from plain text to encrypted.
"RTN","UJOESCON",29,0)
 W !,"Encrypting Signature Names and Titles in TIU Documents",!
"RTN","UJOESCON",30,0)
 K ^TMP($J,"UJOFDA") ; FDA Array
"RTN","UJOESCON",31,0)
 N I S I=0 F  S I=$O(^TIU(8925,I)) Q:'I  D  ; for each document
"RTN","UJOESCON",32,0)
 . N SB S SB=$G(^(I,15)) ; Get signature block **NAKED**
"RTN","UJOESCON",33,0)
 . Q:SB=""
"RTN","UJOESCON",34,0)
 . W I_" "
"RTN","UJOESCON",35,0)
 . ; We get the following fields:
"RTN","UJOESCON",36,0)
 . ; - 1503      SIGNATURE BLOCK NAME (FOX), [15;3]
"RTN","UJOESCON",37,0)
 . ; - 1504      SIGNATURE BLOCK TITLE (FOX), [15;4]
"RTN","UJOESCON",38,0)
 . ; - 1509      COSIGNATURE BLOCK NAME (FXO), [15;9]
"RTN","UJOESCON",39,0)
 . ; - 1510      COSIGNATURE BLOCK TITLE (FXO), [15;10]
"RTN","UJOESCON",40,0)
 . N F1503,F1504,F1509,F1510 ; encrypted pieces now in plain text
"RTN","UJOESCON",41,0)
 . S F1503=$P(SB,U,3),F1504=$P(SB,U,4),F1509=$P(SB,U,9),F1510=$P(SB,U,10) ; get text values
"RTN","UJOESCON",42,0)
 . ;
"RTN","UJOESCON",43,0)
 . ; Store in FDA.
"RTN","UJOESCON",44,0)
 . S:$L(F1503) ^TMP($J,"UJOFDA",8925,I_",",1503)=F1503
"RTN","UJOESCON",45,0)
 . S:$L(F1504) ^TMP($J,"UJOFDA",8925,I_",",1504)=F1504
"RTN","UJOESCON",46,0)
 . S:$L(F1509) ^TMP($J,"UJOFDA",8925,I_",",1509)=F1509
"RTN","UJOESCON",47,0)
 . S:$L(F1510) ^TMP($J,"UJOFDA",8925,I_",",1510)=F1510
"RTN","UJOESCON",48,0)
 ;
"RTN","UJOESCON",49,0)
 D CLEAN^DILF ; clean up variables
"RTN","UJOESCON",50,0)
 D WAIT^DICD ; Please wait a while
"RTN","UJOESCON",51,0)
 D FILE^DIE("ET",$NA(^TMP($J,"UJOFDA"))) ; External Values, Transaction
"RTN","UJOESCON",52,0)
 ; ZEXCEPT: DIERR ; Fileman variable cleaned in CLEAN^DILF call
"RTN","UJOESCON",53,0)
 I $D(DIERR) W "An error occured",! S $EC=",U1,"
"RTN","UJOESCON",54,0)
 W !!
"RTN","UJOESCON",55,0)
 QUIT
"RTN","UJOSHSHP")
0^1^B32560742
"RTN","UJOSHSHP",1,0)
UJOSHSHP ; VEN/SMH - Encrypt Data a la XUSHSHP ;2013-02-27  9:44 AM
"RTN","UJOSHSHP",2,0)
 ;;1.0;JORDAN SPECIFIC MODIFICATIONS;;;Build 4
"RTN","UJOSHSHP",3,0)
 ;
"RTN","UJOSHSHP",4,0)
HASH ; HASH
"RTN","UJOSHSHP",5,0)
 Q:'$D(X)  Q:'$L(X)
"RTN","UJOSHSHP",6,0)
 ; Input: X from Symbol Table. X can be any length
"RTN","UJOSHSHP",7,0)
 ; Output: X hashed, as 20 characters
"RTN","UJOSHSHP",8,0)
 ;
"RTN","UJOSHSHP",9,0)
 ; Use sha512 with user stuff as salt
"RTN","UJOSHSHP",10,0)
 ; Should use PBKDF2, bcrypt, or scrypt; but not available in openssl CLI.
"RTN","UJOSHSHP",11,0)
 S X=$$UP^XLFSTR(X) ; Uppercase X; per original VA code.
"RTN","UJOSHSHP",12,0)
 N SALTED S SALTED=$P(^VA(200,DUZ,1),U,7)_X_DUZ ; Salt X with User Creation Date and DUZ.
"RTN","UJOSHSHP",13,0)
 N CALL S CALL="openssl dgst -sha512" ; SHA512 OS call
"RTN","UJOSHSHP",14,0)
 N DEVICE S DEVICE="hashPipe"
"RTN","UJOSHSHP",15,0)
 N OUTPUT
"RTN","UJOSHSHP",16,0)
 N OLDIO S OLDIO=$IO
"RTN","UJOSHSHP",17,0)
 OPEN DEVICE:(shell="/bin/sh":comm=CALL)::"PIPE"
"RTN","UJOSHSHP",18,0)
 USE DEVICE WRITE SALTED,/EOF READ OUTPUT:1 U OLDIO CLOSE DEVICE
"RTN","UJOSHSHP",19,0)
 S X=$E(OUTPUT,$L(OUTPUT)-19,$L(OUTPUT)) ; X is the return variable; only 20 characters long
"RTN","UJOSHSHP",20,0)
 QUIT
"RTN","UJOSHSHP",21,0)
 ;
"RTN","UJOSHSHP",22,0)
EN ; ENCRYPT
"RTN","UJOSHSHP",23,0)
 Q:'$D(X)!('$D(X1))!('$D(X2))  Q:'$L(X)
"RTN","UJOSHSHP",24,0)
 ; Expect X, X1, X2
"RTN","UJOSHSHP",25,0)
 ; X is the string to encrypt. X1 and X2 are salts/password
"RTN","UJOSHSHP",26,0)
 ; X1 can be the DUZ
"RTN","UJOSHSHP",27,0)
 ; X2 can be the checksum of the text to encrypt
"RTN","UJOSHSHP",28,0)
 ; Output: X, the encrypted string. Length is the same the input.
"RTN","UJOSHSHP",29,0)
 ; Maximum supported length is maximum global node length.
"RTN","UJOSHSHP",30,0)
 ; Encrypting word processing fields is not supported.
"RTN","UJOSHSHP",31,0)
 ;
"RTN","UJOSHSHP",32,0)
 ; AES- Cipher Block Chaining with Base 64 encoding with password w no salt.
"RTN","UJOSHSHP",33,0)
 N CALL S CALL="openssl enc -a -aes-256-cbc -nosalt -pass pass:"_X1_X2
"RTN","UJOSHSHP",34,0)
 ; N CALL S CALL="openssl enc -a -des-ede3-cbc -nosalt -pass pass:"_X1_X2
"RTN","UJOSHSHP",35,0)
 ; N CALL S CALL="openssl enc -bf-cbc -nosalt -pass pass:"_X1_X2
"RTN","UJOSHSHP",36,0)
 ; N CALL S CALL="openssl enc -a -rc4 -nosalt -pass pass:"_X1_X2
"RTN","UJOSHSHP",37,0)
 N DEVICE S DEVICE="encryptionPipe"
"RTN","UJOSHSHP",38,0)
 N OLDIO S OLDIO=$IO
"RTN","UJOSHSHP",39,0)
 OPEN DEVICE:(shell="/bin/sh":comm=CALL)::"PIPE"
"RTN","UJOSHSHP",40,0)
 USE DEVICE
"RTN","UJOSHSHP",41,0)
 WRITE X,/EOF ; Write the string to encrypt
"RTN","UJOSHSHP",42,0)
 N I,OUTPUT ; I = counter. OUTPUT = encyrpted tems
"RTN","UJOSHSHP",43,0)
 FOR I=1:1 READ OUTPUT(I) Q:$ZEOF  ; Read it into Output Array
"RTN","UJOSHSHP",44,0)
 U OLDIO
"RTN","UJOSHSHP",45,0)
 CLOSE DEVICE
"RTN","UJOSHSHP",46,0)
 ; Next two lines: concatentate the array into the root node
"RTN","UJOSHSHP",47,0)
 S OUTPUT="" 
"RTN","UJOSHSHP",48,0)
 F I=1:1 Q:'$D(OUTPUT(I))  S OUTPUT=OUTPUT_OUTPUT(I) K OUTPUT(I)
"RTN","UJOSHSHP",49,0)
 ; X is the output from the API
"RTN","UJOSHSHP",50,0)
 S X=OUTPUT
"RTN","UJOSHSHP",51,0)
 QUIT
"RTN","UJOSHSHP",52,0)
 ;
"RTN","UJOSHSHP",53,0)
DE ; DECRYPT
"RTN","UJOSHSHP",54,0)
 Q:'$D(X)!('$D(X1))!('$D(X2))  Q:'$L(X)
"RTN","UJOSHSHP",55,0)
 ; Expect X, X1, X2
"RTN","UJOSHSHP",56,0)
 ; X is the string to encrypt. X1 and X2 are salts/password
"RTN","UJOSHSHP",57,0)
 ; X1 can be the DUZ
"RTN","UJOSHSHP",58,0)
 ; X2 can be the checksum of the text to encrypt
"RTN","UJOSHSHP",59,0)
 ; Output: X, the decrypted string. Length is the same the input.
"RTN","UJOSHSHP",60,0)
 ; Maximum supported length is maximum global node length.
"RTN","UJOSHSHP",61,0)
 ; Encrypting word processing fields is not supported.
"RTN","UJOSHSHP",62,0)
 N CALL S CALL="openssl enc -d -a -aes-256-cbc -nosalt -pass pass:"_X1_X2
"RTN","UJOSHSHP",63,0)
 ; N CALL S CALL="openssl enc -a -d -rc4 -nosalt -pass pass:"_X1_X2
"RTN","UJOSHSHP",64,0)
 N DEVICE S DEVICE="decryptionPipe"
"RTN","UJOSHSHP",65,0)
 N OLDIO S OLDIO=$IO
"RTN","UJOSHSHP",66,0)
 OPEN DEVICE:(shell="/bin/sh":comm=CALL)::"PIPE"
"RTN","UJOSHSHP",67,0)
 USE DEVICE
"RTN","UJOSHSHP",68,0)
 F  W $E(X,1,64),! S X=$E(X,65,1024*1024*1024) Q:X=""  ; Write Input base64 style
"RTN","UJOSHSHP",69,0)
 WRITE /EOF
"RTN","UJOSHSHP",70,0)
 N OUTPUT R OUTPUT:1 ; Read Output of decryption back.
"RTN","UJOSHSHP",71,0)
 U OLDIO
"RTN","UJOSHSHP",72,0)
 CLOSE DEVICE
"RTN","UJOSHSHP",73,0)
 S X=OUTPUT ; X is output
"RTN","UJOSHSHP",74,0)
 QUIT
"RTN","UJOSHSHP",75,0)
 ;
"RTN","UJOSHSHP",76,0)
RUNTESTS S IO=$P S DIQUIET=1 D DT^DICRW D:$L($T(EN^XTMUNIT)) EN^XTMUNIT($T(+0),1) QUIT
"RTN","UJOSHSHP",77,0)
THASH ; @TEST - Test Hashing
"RTN","UJOSHSHP",78,0)
 N DUZ
"RTN","UJOSHSHP",79,0)
 S DUZ=1 N X S X="HELLO WORLD" D HASH
"RTN","UJOSHSHP",80,0)
 N RESULT1 S RESULT1=X
"RTN","UJOSHSHP",81,0)
 S DUZ=1 N X S X="HELLO WORLD" D HASH
"RTN","UJOSHSHP",82,0)
 N RESULT2 S RESULT2=X
"RTN","UJOSHSHP",83,0)
 D CHKEQ^XTMUNIT(RESULT1,RESULT2,"Hash results are not equal")
"RTN","UJOSHSHP",84,0)
 ;
"RTN","UJOSHSHP",85,0)
 S DUZ=1 N X S X="HELLO WORLD" D HASH
"RTN","UJOSHSHP",86,0)
 N RESULT1 S RESULT1=X
"RTN","UJOSHSHP",87,0)
 S DUZ=2 N X S X="HELLO WORLD" D HASH
"RTN","UJOSHSHP",88,0)
 N RESULT2 S RESULT2=X
"RTN","UJOSHSHP",89,0)
 D CHKTF^XTMUNIT(RESULT1'=RESULT2,"Hash results are not supposed to be equal")
"RTN","UJOSHSHP",90,0)
 ;
"RTN","UJOSHSHP",91,0)
 S DUZ=1
"RTN","UJOSHSHP",92,0)
 N X S X="Hello World" D HASH
"RTN","UJOSHSHP",93,0)
 N RESULT1 S RESULT1=X
"RTN","UJOSHSHP",94,0)
 N X S X="HELLO WORLD" D HASH
"RTN","UJOSHSHP",95,0)
 N RESULT2 S RESULT2=X
"RTN","UJOSHSHP",96,0)
 D CHKEQ^XTMUNIT(RESULT1,RESULT2,"Hash results of different cases aren't equal")
"RTN","UJOSHSHP",97,0)
 QUIT
"RTN","UJOSHSHP",98,0)
 ;
"RTN","UJOSHSHP",99,0)
THASH2 ; @TEST - Test Hashing using main calling routine XUSHSHP
"RTN","UJOSHSHP",100,0)
 N DUZ
"RTN","UJOSHSHP",101,0)
 S DUZ=1 N X S X="HELLO WORLD" D HASH^XUSHSHP
"RTN","UJOSHSHP",102,0)
 N RESULT1 S RESULT1=X
"RTN","UJOSHSHP",103,0)
 S DUZ=1 N X S X="HELLO WORLD" D HASH^XUSHSHP
"RTN","UJOSHSHP",104,0)
 N RESULT2 S RESULT2=X
"RTN","UJOSHSHP",105,0)
 D CHKEQ^XTMUNIT(RESULT1,RESULT2,"Hash results are not equal")
"RTN","UJOSHSHP",106,0)
 ;
"RTN","UJOSHSHP",107,0)
 S DUZ=1 N X S X="HELLO WORLD" D HASH^XUSHSHP
"RTN","UJOSHSHP",108,0)
 N RESULT1 S RESULT1=X
"RTN","UJOSHSHP",109,0)
 S DUZ=2 N X S X="HELLO WORLD" D HASH^XUSHSHP
"RTN","UJOSHSHP",110,0)
 N RESULT2 S RESULT2=X
"RTN","UJOSHSHP",111,0)
 D CHKTF^XTMUNIT(RESULT1'=RESULT2,"Hash results are not supposed to be equal")
"RTN","UJOSHSHP",112,0)
 ;
"RTN","UJOSHSHP",113,0)
 S DUZ=1
"RTN","UJOSHSHP",114,0)
 N X S X="Hello World" D HASH^XUSHSHP
"RTN","UJOSHSHP",115,0)
 N RESULT1 S RESULT1=X
"RTN","UJOSHSHP",116,0)
 N X S X="HELLO WORLD" D HASH^XUSHSHP
"RTN","UJOSHSHP",117,0)
 N RESULT2 S RESULT2=X
"RTN","UJOSHSHP",118,0)
 D CHKEQ^XTMUNIT(RESULT1,RESULT2,"Hash results of different cases aren't equal")
"RTN","UJOSHSHP",119,0)
 QUIT
"RTN","UJOSHSHP",120,0)
 ;
"RTN","UJOSHSHP",121,0)
TENC ; @TEST - Test Encryption
"RTN","UJOSHSHP",122,0)
 N VALUE S VALUE="Mary has a little lamb"
"RTN","UJOSHSHP",123,0)
 S X=VALUE,X1=1,X2=234234234
"RTN","UJOSHSHP",124,0)
 D EN,DE ; encrypt, decrypt X
"RTN","UJOSHSHP",125,0)
 D CHKEQ^XTMUNIT(VALUE,X,"Encryption and decryption didn't happen properly")
"RTN","UJOSHSHP",126,0)
 ;
"RTN","UJOSHSHP",127,0)
 N VALUE2 S VALUE2="Mary has a little lamb"
"RTN","UJOSHSHP",128,0)
 S X=VALUE2,X1=88,X2=234234234
"RTN","UJOSHSHP",129,0)
 D EN ; encrypt
"RTN","UJOSHSHP",130,0)
 N ENCSTR1 S ENCSTR1=X
"RTN","UJOSHSHP",131,0)
 S X=VALUE2,X1=1,X2=234234234 ; Different X1
"RTN","UJOSHSHP",132,0)
 D EN ; encrypt
"RTN","UJOSHSHP",133,0)
 N ENCSTR2 S ENCSTR2=X
"RTN","UJOSHSHP",134,0)
 D CHKTF^XTMUNIT(ENCSTR1'=ENCSTR2,"Encrypted strings with different passwords are not supposed to be equal")
"RTN","UJOSHSHP",135,0)
 QUIT
"RTN","UJOSHSHP",136,0)
 ;
"RTN","UJOSHSHP",137,0)
TENC2 ; @TEST - Test Encryption by calling XUSHSHP
"RTN","UJOSHSHP",138,0)
 N VALUE S VALUE="Mary has a little lamb"
"RTN","UJOSHSHP",139,0)
 S X=VALUE,X1=1,X2=234234234
"RTN","UJOSHSHP",140,0)
 D EN^XUSHSHP,DE^XUSHSHP ; encrypt, decrypt X
"RTN","UJOSHSHP",141,0)
 D CHKEQ^XTMUNIT(VALUE,X,"Encryption and decryption didn't happen properly")
"RTN","UJOSHSHP",142,0)
 ;
"RTN","UJOSHSHP",143,0)
 N VALUE2 S VALUE2="Mary has a little lamb"
"RTN","UJOSHSHP",144,0)
 S X=VALUE2,X1=88,X2=234234234
"RTN","UJOSHSHP",145,0)
 D EN^XUSHSHP ; encrypt
"RTN","UJOSHSHP",146,0)
 N ENCSTR1 S ENCSTR1=X
"RTN","UJOSHSHP",147,0)
 S X=VALUE2,X1=1,X2=234234234 ; Different X1
"RTN","UJOSHSHP",148,0)
 D EN^XUSHSHP ; encrypt
"RTN","UJOSHSHP",149,0)
 N ENCSTR2 S ENCSTR2=X
"RTN","UJOSHSHP",150,0)
 D CHKTF^XTMUNIT(ENCSTR1'=ENCSTR2,"Encrypted strings with different passwords are not supposed to be equal")
"RTN","UJOSHSHP",151,0)
 QUIT
"RTN","UJOSHSHP",152,0)
LENGTH ; @TEST - Test Lengths
"RTN","UJOSHSHP",153,0)
 N X,X1,X2,I
"RTN","UJOSHSHP",154,0)
 S (X1,X2)=982734987234
"RTN","UJOSHSHP",155,0)
 W !
"RTN","UJOSHSHP",156,0)
 F I=1:1:60 K X S $P(X,"A",I)="A" W $L(X) D EN W ?30,$L(X),!
"RTN","UJOSHSHP",157,0)
 QUIT
"RTN","UJOXCALL")
0^2^B2632097
"RTN","UJOXCALL",1,0)
UJOXCALL ;VEN/SMH - External APIs call wrapper ;2013-02-26  3:38 PM
"RTN","UJOXCALL",2,0)
 ;;1.0;JORDAN SPECIFIC MODIFICATIONS;;;Build 4
"RTN","UJOXCALL",3,0)
 Q
"RTN","UJOXCALL",4,0)
X(APINAME) ; Private Proc; Call API based on files
"RTN","UJOXCALL",5,0)
 ; Input: APINAME, by Value. External API Name in file 400000001.1
"RTN","UJOXCALL",6,0)
 ; Output: None. Executes API. API determines Input and Output variables
"RTN","UJOXCALL",7,0)
 ;
"RTN","UJOXCALL",8,0)
 N IEN S IEN=$O(^UJO(400000001.1,"B",APINAME,"")) Q:'IEN  ; IEN of API, DINUMMED in imp specific code file (400000001.3)
"RTN","UJOXCALL",9,0)
 I $L($G(^UJO(400000001.3,IEN,1))) X ^(1) QUIT  ; Try Implementation specific first
"RTN","UJOXCALL",10,0)
 I $L($G(^UJO(400000001.1,IEN,2))) X ^(2) QUIT  ; Otherwise, use default one
"RTN","UJOXCALL",11,0)
 ;
"RTN","UJOXCALL",12,0)
 ;
"RTN","UJOXCALL",13,0)
 ;
"RTN","UJOXCALL",14,0)
RUNTESTS I $L($T(EN^XTMUNIT)) S IO=$P,DIQUIET=1 D DT^DICRW,EN^XTMUNIT($T(+0),1) QUIT
"RTN","UJOXCALL",15,0)
TESTAPI ; @TEST - Test calling X(APINAME) with existent and non-existent entries.
"RTN","UJOXCALL",16,0)
 N X,X1,X2
"RTN","UJOXCALL",17,0)
 D X("UNIT TEST ENTRY")
"RTN","UJOXCALL",18,0)
 D CHKEQ^XTMUNIT(X,"HELLO WORLD","API wasn't called")
"RTN","UJOXCALL",19,0)
 ;
"RTN","UJOXCALL",20,0)
 N STR S STR="HELLO WORLD2"
"RTN","UJOXCALL",21,0)
 S X=STR,X1="LKJSDF",X2=23432
"RTN","UJOXCALL",22,0)
 D X("ENCRYPT STRING")
"RTN","UJOXCALL",23,0)
 D CHKTF^XTMUNIT(X'="HELLO WORLD2","Encrypt failed")
"RTN","UJOXCALL",24,0)
 D X("DECRYPT STRING")
"RTN","UJOXCALL",25,0)
 D CHKEQ^XTMUNIT(X,"HELLO WORLD2","Encrypt/Decrypt failed")
"RTN","UJOXCALL",26,0)
 ;
"RTN","UJOXCALL",27,0)
 D X("LKSJDKLFDF") ; Make sure there is no crash
"RTN","UJOXCALL",28,0)
 QUIT
"RTN","XUSHSHP")
0^4^B154851
"RTN","XUSHSHP",1,0)
XUSHSHP ;SF/STAFF - HASHING ROUTINE FOR SIG BLOCK IN FILE 200 ;2013-02-26  2:32 PM
"RTN","XUSHSHP",2,0)
 ;;8.0;KERNEL;;Jul 10, 1995;Build 4
"RTN","XUSHSHP",3,0)
 ;
"RTN","XUSHSHP",4,0)
HASH ; PEP: HASH; Fallthrough
"RTN","XUSHSHP",5,0)
 D X^UJOXCALL("HASH/DIGEST")
"RTN","XUSHSHP",6,0)
 Q
"RTN","XUSHSHP",7,0)
EN ; PEP: Encrypt
"RTN","XUSHSHP",8,0)
 D X^UJOXCALL("ENCRYPT STRING")
"RTN","XUSHSHP",9,0)
 Q
"RTN","XUSHSHP",10,0)
DE ; PEP: Decrypt
"RTN","XUSHSHP",11,0)
 D X^UJOXCALL("DECRYPT STRING")
"RTN","XUSHSHP",12,0)
 Q
"SEC","^DIC",400000001.1,400000001.1,0,"AUDIT")
@
"SEC","^DIC",400000001.1,400000001.1,0,"DD")
@
"SEC","^DIC",400000001.1,400000001.1,0,"DEL")
@
"SEC","^DIC",400000001.1,400000001.1,0,"LAYGO")
@
"SEC","^DIC",400000001.1,400000001.1,0,"RD")

"SEC","^DIC",400000001.1,400000001.1,0,"WR")
@
"SEC","^DIC",400000001.2,400000001.2,0,"AUDIT")
@
"SEC","^DIC",400000001.2,400000001.2,0,"DD")
@
"SEC","^DIC",400000001.2,400000001.2,0,"DEL")
@
"SEC","^DIC",400000001.2,400000001.2,0,"LAYGO")
@
"SEC","^DIC",400000001.2,400000001.2,0,"RD")

"SEC","^DIC",400000001.2,400000001.2,0,"WR")
@
"SEC","^DIC",400000001.3,400000001.3,0,"AUDIT")
@
"SEC","^DIC",400000001.3,400000001.3,0,"DD")
@
"SEC","^DIC",400000001.3,400000001.3,0,"DEL")
@
"SEC","^DIC",400000001.3,400000001.3,0,"LAYGO")
@
"SEC","^DIC",400000001.3,400000001.3,0,"RD")

"SEC","^DIC",400000001.3,400000001.3,0,"WR")
@
"VER")
8.0^22.0
"^DD",8925,8925,1503,0)
SIGNATURE BLOCK NAME^FOX^^15;3^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>120!($L(X)<3) X
"^DD",8925,8925,1503,2)
S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
"^DD",8925,8925,1503,2.1)
S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
"^DD",8925,8925,1503,3)
Answer must be 3-30 characters in length.
"^DD",8925,8925,1503,"DT")
2980828
"^DD",8925,8925,1504,0)
SIGNATURE BLOCK TITLE^FOX^^15;4^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>120!($L(X)<2) X
"^DD",8925,8925,1504,2)
S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
"^DD",8925,8925,1504,2.1)
S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
"^DD",8925,8925,1504,3)
Answer must be 2-60 characters in length.
"^DD",8925,8925,1504,21,0)
^^2^2^2940413^
"^DD",8925,8925,1504,21,1,0)
This is the encrypted signature block title of the person who signed the
"^DD",8925,8925,1504,21,2,0)
document.
"^DD",8925,8925,1504,"DT")
2980828
"^DD",8925,8925,1509,0)
COSIGNATURE BLOCK NAME^FXO^^15;9^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>120!($L(X)<2) X
"^DD",8925,8925,1509,2)
S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
"^DD",8925,8925,1509,2.1)
S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
"^DD",8925,8925,1509,3)
This encrypted cosignature block will be automatically saved by the system.
"^DD",8925,8925,1509,"DT")
2980828
"^DD",8925,8925,1510,0)
COSIGNATURE BLOCK TITLE^FXO^^15;10^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC("^TIU(8925,"_+DA_",""TEXT"")")) K:$L(X)>120!($L(X)<2) X
"^DD",8925,8925,1510,2)
S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
"^DD",8925,8925,1510,2.1)
S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC("^TIU(8925,"_$S(+$G(DA):+DA,+$G(D0):+D0,1:"")_",""TEXT"")"))
"^DD",8925,8925,1510,3)
Answer must be 2-60 characters in length.
"^DD",8925,8925,1510,"DT")
2980828
"^DD",400000001.1,400000001.1,0)
FIELD^^4^8
"^DD",400000001.1,400000001.1,0,"DT")
3130226
"^DD",400000001.1,400000001.1,0,"IX","B",400000001.1,.01)

"^DD",400000001.1,400000001.1,0,"NM","UJO SUPPORTED API")

"^DD",400000001.1,400000001.1,.01,0)
NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
"^DD",400000001.1,400000001.1,.01,1,0)
^.1
"^DD",400000001.1,400000001.1,.01,1,1,0)
400000001.1^B
"^DD",400000001.1,400000001.1,.01,1,1,1)
S ^UJO(400000001.1,"B",$E(X,1,30),DA)=""
"^DD",400000001.1,400000001.1,.01,1,1,2)
K ^UJO(400000001.1,"B",$E(X,1,30),DA)
"^DD",400000001.1,400000001.1,.01,3)
Name must be 3-30 characters in length, not numeric or punctuation.
"^DD",400000001.1,400000001.1,.01,21,0)
^^1^1^3090112^
"^DD",400000001.1,400000001.1,.01,21,1,0)
This field records the supported API name.
"^DD",400000001.1,400000001.1,.01,"DT")
3090112
"^DD",400000001.1,400000001.1,.02,0)
APPLICATION GROUP^P400000001.2^UJO(400000001.2,^0;2^Q
"^DD",400000001.1,400000001.1,.02,3)
Enter the primary class or group to which this API belongs.
"^DD",400000001.1,400000001.1,.02,21,0)
^^1^1^3090112^
"^DD",400000001.1,400000001.1,.02,21,1,0)
This field classifies the supported API into an application group.
"^DD",400000001.1,400000001.1,.02,"DT")
3130226
"^DD",400000001.1,400000001.1,.03,0)
DATE CREATED^D^^0;3^S %DT="E" D ^%DT S X=Y K:Y<1 X
"^DD",400000001.1,400000001.1,.03,3)

"^DD",400000001.1,400000001.1,.03,21,0)
^^1^1^3090112^
"^DD",400000001.1,400000001.1,.03,21,1,0)
This field records the date that this supported API was created.
"^DD",400000001.1,400000001.1,.03,"DT")
3090112
"^DD",400000001.1,400000001.1,.04,0)
RESPONSIBLE PERSON^F^^0;4^K:$L(X)>45!($L(X)<3) X
"^DD",400000001.1,400000001.1,.04,3)
Enter the name of the person who maintains this API, 3-45 characters in length.
"^DD",400000001.1,400000001.1,.04,21,0)
^^2^2^3090112^
"^DD",400000001.1,400000001.1,.04,21,1,0)
This field records the developer or maintenance person, associated with
"^DD",400000001.1,400000001.1,.04,21,2,0)
this supported API.
"^DD",400000001.1,400000001.1,.04,"DT")
3090112
"^DD",400000001.1,400000001.1,1,0)
SUPPORTED VARIABLE^400000001.11^^1;0
"^DD",400000001.1,400000001.1,2,0)
DEFAULT XECUTE^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
"^DD",400000001.1,400000001.1,2,3)
This is Standard MUMPS code, argument of XECUTE.
"^DD",400000001.1,400000001.1,2,9)
@
"^DD",400000001.1,400000001.1,2,21,0)
^^5^5^3090112^
"^DD",400000001.1,400000001.1,2,21,1,0)
This field may contain non implementation-specific M code, which will
"^DD",400000001.1,400000001.1,2,21,2,0)
be replaced by implementation-specific code, if defined.
"^DD",400000001.1,400000001.1,2,21,3,0)
If no implementation-specific entry exists, then the default code
"^DD",400000001.1,400000001.1,2,21,4,0)
will be executed.  If neither implementation-specific nor default
"^DD",400000001.1,400000001.1,2,21,5,0)
XECUTE code exists, then standard in-line code will be executed.
"^DD",400000001.1,400000001.1,2,"DT")
3090112
"^DD",400000001.1,400000001.1,3,0)
REMARKS^400000001.13^^3;0
"^DD",400000001.1,400000001.1,4,0)
SET VARIABLE^F^^4;1^K:$L(X)>80!($L(X)<1) X
"^DD",400000001.1,400000001.1,4,3)
Name of variable that the API must set, 1-80 characters in length.
"^DD",400000001.1,400000001.1,4,21,0)
^^7^7^3130226^
"^DD",400000001.1,400000001.1,4,21,1,0)
This field optionally identifies a variable.  If this field
"^DD",400000001.1,400000001.1,4,21,2,0)
is valued, the supported API must set the named variable.
"^DD",400000001.1,400000001.1,4,21,3,0)
The value serves as the API's return, as if it were invoked
"^DD",400000001.1,400000001.1,4,21,4,0)
as an extrinsic function. Normally the variable will be
"^DD",400000001.1,400000001.1,4,21,5,0)
unsubscripted and namespaced, for example, UJOABC.
"^DD",400000001.1,400000001.1,4,21,6,0)
However, subscripts are also permitted, for example,
"^DD",400000001.1,400000001.1,4,21,7,0)
UJO($J,"ABC").
"^DD",400000001.1,400000001.1,4,"DT")
3130226
"^DD",400000001.1,400000001.11,0)
SUPPORTED VARIABLE SUB-FIELD^^.03^3
"^DD",400000001.1,400000001.11,0,"IX","B",400000001.11,.01)

"^DD",400000001.1,400000001.11,0,"NM","SUPPORTED VARIABLE")

"^DD",400000001.1,400000001.11,0,"UP")
400000001.1
"^DD",400000001.1,400000001.11,.01,0)
SUPPORTED VARIABLE^MF^^0;1^K:$L(X)>8!($L(X)<1) X
"^DD",400000001.1,400000001.11,.01,1,0)
^.1
"^DD",400000001.1,400000001.11,.01,1,1,0)
400000001.11^B
"^DD",400000001.1,400000001.11,.01,1,1,1)
S ^UJO(400000001.1,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",400000001.1,400000001.11,.01,1,1,2)
K ^UJO(400000001.1,DA(1),1,"B",$E(X,1,30),DA)
"^DD",400000001.1,400000001.11,.01,3)
Answer must be 1-8 characters in length.
"^DD",400000001.1,400000001.11,.01,21,0)
^^2^2^3090112^
"^DD",400000001.1,400000001.11,.01,21,1,0)
This multiple field records variables that are available in the
"^DD",400000001.1,400000001.11,.01,21,2,0)
context of this supported API.
"^DD",400000001.1,400000001.11,.01,"DT")
3090112
"^DD",400000001.1,400000001.11,.02,0)
ALWAYS DEFINED^S^0:NO;1:YES;^0;2^Q
"^DD",400000001.1,400000001.11,.02,3)
Indicate whether the variable is defined from every calling point.
"^DD",400000001.1,400000001.11,.02,21,0)
^^2^2^3090112^
"^DD",400000001.1,400000001.11,.02,21,1,0)
If this field is valued 'YES' references the the variable do not require
"^DD",400000001.1,400000001.11,.02,21,2,0)
$GET.
"^DD",400000001.1,400000001.11,.02,"DT")
3090112
"^DD",400000001.1,400000001.11,.03,0)
BRIEF DESCRIPTION^F^^0;3^K:$L(X)>80!($L(X)<3) X
"^DD",400000001.1,400000001.11,.03,3)
Enter a description of the variable, 3-80 characters in length.
"^DD",400000001.1,400000001.11,.03,21,0)
^^1^1^3090112^
"^DD",400000001.1,400000001.11,.03,21,1,0)
This field briefly describes the supported variable.
"^DD",400000001.1,400000001.11,.03,"DT")
3090112
"^DD",400000001.1,400000001.13,0)
REMARKS SUB-FIELD^^.01^1
"^DD",400000001.1,400000001.13,0,"NM","REMARKS")

"^DD",400000001.1,400000001.13,0,"UP")
400000001.1
"^DD",400000001.1,400000001.13,.01,0)
REMARKS^Wx^^0;1^Q
"^DD",400000001.1,400000001.13,.01,3)
Describe any special considerations pertaining to this implementation-specific API.
"^DD",400000001.1,400000001.13,.01,21,0)
^^2^2^3090112^
"^DD",400000001.1,400000001.13,.01,21,1,0)
This field records notes or special considerations regarding the
"^DD",400000001.1,400000001.13,.01,21,2,0)
implementation-specific API.
"^DD",400000001.1,400000001.13,.01,"DT")
3090112
"^DD",400000001.2,400000001.2,0)
FIELD^^.01^1
"^DD",400000001.2,400000001.2,0,"IX","B",400000001.2,.01)

"^DD",400000001.2,400000001.2,0,"NM","UJO SUPPORTED API GROUP")

"^DD",400000001.2,400000001.2,0,"PT",400000001.1,.02)

"^DD",400000001.2,400000001.2,.01,0)
NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X
"^DD",400000001.2,400000001.2,.01,1,0)
^.1
"^DD",400000001.2,400000001.2,.01,1,1,0)
400000001.2^B
"^DD",400000001.2,400000001.2,.01,1,1,1)
S ^UJO(400000001.2,"B",$E(X,1,30),DA)=""
"^DD",400000001.2,400000001.2,.01,1,1,2)
K ^UJO(400000001.2,"B",$E(X,1,30),DA)
"^DD",400000001.2,400000001.2,.01,3)
Enter class name, 3-45 characters in length.
"^DD",400000001.2,400000001.2,.01,21,0)
^^2^2^3090112^
"^DD",400000001.2,400000001.2,.01,21,1,0)
This field records a class or application group, to which
"^DD",400000001.2,400000001.2,.01,21,2,0)
one or more supported APIs belong.
"^DD",400000001.2,400000001.2,.01,"DT")
3090112
"^DD",400000001.3,400000001.3,0)
FIELD^^9^4
"^DD",400000001.3,400000001.3,0,"IX","B",400000001.3,.01)

"^DD",400000001.3,400000001.3,0,"IX","C",400000001.39,.01)

"^DD",400000001.3,400000001.3,0,"NM","UJO IMPLEMENTATION-SPECIFIC API")

"^DD",400000001.3,400000001.3,.01,0)
NAME^RP400000001.1'X^UJO(400000001.1,^0;1^S:$D(X) DINUM=X
"^DD",400000001.3,400000001.3,.01,1,0)
^.1
"^DD",400000001.3,400000001.3,.01,1,1,0)
400000001.3^B
"^DD",400000001.3,400000001.3,.01,1,1,1)
S ^UJO(400000001.3,"B",$E(X,1,30),DA)=""
"^DD",400000001.3,400000001.3,.01,1,1,2)
K ^UJO(400000001.3,"B",$E(X,1,30),DA)
"^DD",400000001.3,400000001.3,.01,3)

"^DD",400000001.3,400000001.3,.01,"DT")
3130226
"^DD",400000001.3,400000001.3,1,0)
XECUTE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
"^DD",400000001.3,400000001.3,1,3)
This is Standard MUMPS code, argument of XECUTE.
"^DD",400000001.3,400000001.3,1,9)
@
"^DD",400000001.3,400000001.3,1,21,0)
^^2^2^3090112^
"^DD",400000001.3,400000001.3,1,21,1,0)
This is the implementation-specific version of the XECUTE code for
"^DD",400000001.3,400000001.3,1,21,2,0)
this supported API.
"^DD",400000001.3,400000001.3,1,"DT")
3090112
"^DD",400000001.3,400000001.3,2,0)
NOTES^400000001.32^^2;0
"^DD",400000001.3,400000001.3,9,0)
SITE ID^400000001.39^^9;0
"^DD",400000001.3,400000001.32,0)
NOTES SUB-FIELD^^.01^1
"^DD",400000001.3,400000001.32,0,"NM","NOTES")

"^DD",400000001.3,400000001.32,0,"UP")
400000001.3
"^DD",400000001.3,400000001.32,.01,0)
NOTES^Wx^^0;1^Q
"^DD",400000001.3,400000001.32,.01,21,0)
^^2^2^3090112^
"^DD",400000001.3,400000001.32,.01,21,1,0)
This field records any factors that need to be considered when
"^DD",400000001.3,400000001.32,.01,21,2,0)
using this implementation-specific API.
"^DD",400000001.3,400000001.32,.01,"DT")
3090112
"^DD",400000001.3,400000001.39,0)
SITE ID SUB-FIELD^^.01^1
"^DD",400000001.3,400000001.39,0,"IX","B",400000001.39,.01)

"^DD",400000001.3,400000001.39,0,"NM","SITE ID")

"^DD",400000001.3,400000001.39,0,"UP")
400000001.3
"^DD",400000001.3,400000001.39,.01,0)
SITE ID^MF^^0;1^K:$L(X)>8!($L(X)<3) X
"^DD",400000001.3,400000001.39,.01,1,0)
^.1
"^DD",400000001.3,400000001.39,.01,1,1,0)
400000001.39^B
"^DD",400000001.3,400000001.39,.01,1,1,1)
S ^UJO(400000001.3,DA(1),9,"B",$E(X,1,30),DA)=""
"^DD",400000001.3,400000001.39,.01,1,1,2)
K ^UJO(400000001.3,DA(1),9,"B",$E(X,1,30),DA)
"^DD",400000001.3,400000001.39,.01,1,2,0)
400000001.3^C
"^DD",400000001.3,400000001.39,.01,1,2,1)
S ^UJO(400000001.3,"C",$E(X,1,30),DA(1),DA)=""
"^DD",400000001.3,400000001.39,.01,1,2,2)
K ^UJO(400000001.3,"C",$E(X,1,30),DA(1),DA)
"^DD",400000001.3,400000001.39,.01,1,2,"%D",0)
^^3^3^3090115^
"^DD",400000001.3,400000001.39,.01,1,2,"%D",1,0)
This index will be used primarily to select entries for transport
"^DD",400000001.3,400000001.39,.01,1,2,"%D",2,0)
through KIDS builds.  However, it can also be used to "find" entries
"^DD",400000001.3,400000001.39,.01,1,2,"%D",3,0)
belonging to a particular site, through lookup.
"^DD",400000001.3,400000001.39,.01,1,2,"DT")
3090115
"^DD",400000001.3,400000001.39,.01,3)
Enter site identifier as STATION NUMBER, 3-8 characters in length.
"^DD",400000001.3,400000001.39,.01,21,0)
^^3^3^3090115^
"^DD",400000001.3,400000001.39,.01,21,1,0)
This field value will be used when transporting file entries, to screen
"^DD",400000001.3,400000001.39,.01,21,2,0)
implementation-specific APIs by target site.  Only entries that are
"^DD",400000001.3,400000001.39,.01,21,3,0)
relevant to a specific site will be sent as data.
"^DD",400000001.3,400000001.39,.01,"DT")
3090115
"^DIC",400000001.1,400000001.1,0)
UJO SUPPORTED API^400000001.1
"^DIC",400000001.1,400000001.1,0,"GL")
^UJO(400000001.1,
"^DIC",400000001.1,400000001.1,"%",0)
^1.005^^
"^DIC",400000001.1,400000001.1,"%D",0)
^^6^6^3130226^
"^DIC",400000001.1,400000001.1,"%D",1,0)
Each entry in this file defines an API that can be called externally from 
"^DIC",400000001.1,400000001.1,"%D",2,0)
the Mumps Database. Entries in UJO IMPLEMENTATION-SPECIFIC API file are 
"^DIC",400000001.1,400000001.1,"%D",3,0)
DINUMMED to this file and override the default implementation of the API 
"^DIC",400000001.1,400000001.1,"%D",4,0)
specified in this file if a DINUMMED entry is present in the other file.
"^DIC",400000001.1,400000001.1,"%D",5,0)
 
"^DIC",400000001.1,400000001.1,"%D",6,0)
File design based on SIS ADT Filer files 29320.75*, with permission.
"^DIC",400000001.1,"B","UJO SUPPORTED API",400000001.1)

"^DIC",400000001.2,400000001.2,0)
UJO SUPPORTED API GROUP^400000001.2
"^DIC",400000001.2,400000001.2,0,"GL")
^UJO(400000001.2,
"^DIC",400000001.2,400000001.2,"%",0)
^1.005^^
"^DIC",400000001.2,400000001.2,"%D",0)
^^4^4^3130226^
"^DIC",400000001.2,400000001.2,"%D",1,0)
This is a laygo file for the UJO SUPPORTED API file APPLICATION GROUP 
"^DIC",400000001.2,400000001.2,"%D",2,0)
field. It's only used as a text field; not used elsewhere.
"^DIC",400000001.2,400000001.2,"%D",3,0)
 
"^DIC",400000001.2,400000001.2,"%D",4,0)
File design based on SIS ADT Filer files 29320.75*, with permission.
"^DIC",400000001.2,"B","UJO SUPPORTED API GROUP",400000001.2)

"^DIC",400000001.3,400000001.3,0)
UJO IMPLEMENTATION-SPECIFIC API^400000001.3
"^DIC",400000001.3,400000001.3,0,"GL")
^UJO(400000001.3,
"^DIC",400000001.3,400000001.3,"%",0)
^1.005^^
"^DIC",400000001.3,400000001.3,"%D",0)
^^6^6^3130226^
"^DIC",400000001.3,400000001.3,"%D",1,0)
This file stores platform specific implementations of algorithms specified
"^DIC",400000001.3,400000001.3,"%D",2,0)
in UJO SUPPORTED API file. Any algorithm specified in this file overrides
"^DIC",400000001.3,400000001.3,"%D",3,0)
the default algorithm specified in UJO SUPPORTED API file. 
"^DIC",400000001.3,400000001.3,"%D",4,0)
 
"^DIC",400000001.3,400000001.3,"%D",5,0)
This file's design is based on SIS ADT Filer files 29320.75*, with
"^DIC",400000001.3,400000001.3,"%D",6,0)
permission.
"^DIC",400000001.3,"B","UJO IMPLEMENTATION-SPECIFIC AP",400000001.3)

**END**
**END**