STANDARD DATA DICTIONARY #4.005 -- MD5 Signature FILE 3/24/25 PAGE 1
STORED IN ^DIC(4.005, (39 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 8.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
The file holds parameters related to the MD5 signature of the Master File Server(MFS).
DO NOT EDIT THIS FILE!
For each domain (Allergy, Vitals), The parameters defines the file's fields to be included in MD5 hash procedure. Local
modifications to this file will seriously disrupt standard file updating and have negative consequences to existing VistA
applications.
CROSS
REFERENCED BY: MD5 CODE SYSTEM(B)
INDEXED BY: SEQUENCE (AC)
4.005,.01 MD5 CODE SYSTEM 0;1 FREE TEXT (Required)
MD5 Code System
INPUT TRANSFORM: K:$L(X)>32!($L(X)<1) X
LAST EDITED: AUG 18, 2005
HELP-PROMPT: Answer must be 1-32 characters in length.
DESCRIPTION:
This field is the Domain name of SDS for which MD5 will be requested.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 4.005^B
1)= S ^DIC(4.005,"B",$E(X,1,30),DA)=""
2)= K ^DIC(4.005,"B",$E(X,1,30),DA)
4.005,1 FILE/SUBFILE NUMBER 1;0 Multiple #4.0051
DESCRIPTION: This field is the Internal File Number (IFN) of the MD5 table supported by the Master File Server
(MFS).
4.0051,.01 FILE/SUBFILE NUMBER 0;1 FREE TEXT (Multiply asked)
File/Subfile Number
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X S:$D(X) DINUM=X
LAST EDITED: MAY 17, 2006
HELP-PROMPT: Select file/subfile number to be included in MD5 procedure of the Master File Server (MFS)
mechanism
DESCRIPTION: This field is the Internal File Number (IFN) of the MD5 table supported by the Master File Server
(MFS).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 4.0051^B
1)= S ^DIC(4.005,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^DIC(4.005,DA(1),1,"B",$E(X,1,30),DA)
4.0051,1 FIELD NUMBER 1;0 Multiple #4.00511
DESCRIPTION: This is the field number of file/subfile to be included in MD5 procedure of the Master File
Server (MFS).
4.00511,.01 FIELD NUMBER 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<.001) X S:$D(X) DINUM=X
LAST EDITED: JAN 30, 2015
HELP-PROMPT: Select field number of file/subfile to be included in MD5 procedure of the Master File Server
(MFS).
DESCRIPTION:
Number of file/subfile to be included in MD5 procedure of the Master File Server (MFS).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 4.00511^B
1)= S ^DIC(4.005,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^DIC(4.005,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
4.00511,1 SEQUENCE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 30, 2015
HELP-PROMPT: Type the sequence # the field will be taken in MD5 hash, a number between 1 and 99999.
DESCRIPTION:
Order sequence, the field will be taken in MD5 hash.
RECORD INDEXES: AC (#534) (WHOLE FILE #4.005)
4.00511,2 External/Internal 0;3 SET
'I' FOR INTERNAL;
'E' FOR EXTERNAL;
LAST EDITED: JAN 30, 2015
HELP-PROMPT: Enter the type of FileMan value to use, Internal or External.
DESCRIPTION:
Get External or internal Fileman value. Default = External
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.00511,3 VUID FROM FILE 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."9N.N) X
LAST EDITED: APR 26, 2006
HELP-PROMPT: Enter the number of the file being pointed to. Type '@' and press Enter to clear this setting
DESCRIPTION: If Pointer type field to .01 (Name), replace Name with VUID of pointed file. Field holds
Pointed File #.
4.00511,4 Distinct values 0;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JAN 30, 2015
HELP-PROMPT: Enter 1 for 'YES', if the field value must be unique, else enter 0 for 'NO'.
DESCRIPTION: If this field is set to 'YES' and the field value already exists, only repeated value will be
excluded from MD5, other record's fields will not be affected.
4.00511,5 POST-PROCESSING LOGIC 1;E1,245 MUMPS
INPUT TRANSFORM: K:$L(X)>245 X D:$D(X) ^DIM
HELP-PROMPT: Enter Standard MUMPS code
DESCRIPTION:
This is Standard MUMPS code that gets executed for field exceptional treatment.
WRITE AUTHORITY: @
4.005,2 Vets Code System Version 2;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."6N.N) X
LAST EDITED: JUN 09, 2005
HELP-PROMPT: Type a Number between 1 and 9999999999, 5 Decimal Digits
DESCRIPTION:
Vets Code System Version
4.005,3 Vets MD5 Hash 2;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>32!($L(X)<1) X
LAST EDITED: JUN 09, 2005
HELP-PROMPT: Answer must be 1-32 characters in length.
DESCRIPTION:
Vets MD5 Hash ENTRY
4.005,4 Date of MD5 verification 2;3 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 09, 2005
DESCRIPTION:
Date of MD5 verification
4.005,5 Computed MD5 value 2;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>32!($L(X)<1) X
LAST EDITED: AUG 18, 2005
HELP-PROMPT: Don't enter the data.
DESCRIPTION:
Computed MD5 checksum value, 32 cha long.
4.005,6 Debug Mode 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<0)!(X?.E1"."2.N) X
LAST EDITED: AUG 18, 2005
HELP-PROMPT: Type a number between 0 and 9, 1 Decimal Digit
DESCRIPTION: Field indicates the level of response. MODE = 0 regular mode.. last HASH value returned in Apl.
ACK.
1 debugging mode.. all values + hash codess returned in Apl ACK
1.1 debugging mode.. all values (no hash codes) returned in Apl ACK
2 debugging mode.. all fields values, all hash values,all hash
codes returned in Apl. ACK.
4.005,7 SORT BY 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: JUN 24, 2008
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: This field determines the sorting of records for MD5 checksum calculation. It defaults to VUID
order. Enter the name of a field cross-reference in order to sort by that field. The
cross-reference must exist in the target file. If the cross-reference name does not exist, it will
default to VUID order. The field cross-referenced must not be a multiple.
To sort by the .01 field, enter "B" without the quotes. This will sort by the "B" cross reference,
which is always the .01 field.
4.005,8 FILTER BY 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: JUN 24, 2008
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
You can specify a query filter by field. Enter the field number to filter by.
Subfile #4.00511
Record Indexes:
AC (#534) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#4.005)
Short Descr: Sequence for XUMF5I routine
Set Logic: S ^DIC(4.005,"AC",X(1),$E(X(2),1,5),DA(2),DA(1),DA)=""
Kill Logic: K ^DIC(4.005,"AC",X(1),$E(X(2),1,5),DA(2),DA(1),DA)
Whole Kill: K ^DIC(4.005,"AC")
X(1): Computed Code: S X=DA(2)
(Subscr 1)
X(2): SEQUENCE (4.00511,1) (Subscr 2) (Len 5) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):