STANDARD DATA DICTIONARY #394.73 -- VAQ - ENCRYPTED FIELDS FILE 9/29/25 PAGE 1
STORED IN ^VAT(394.73, (6 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all fields that should be encrypted in PDX Requests and Unsolicited PDXs transmitted by the facility. This file
is only relevant when encryption has been turned on.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY:
"WRITE1": W ?($X+5),"FILE: ",$P(^(0),U,2)
"WRITE2": W ?($X+5),"FIELD: ",$P(^(0),U,3)
CROSS
REFERENCED BY: File(AB1), Field(AB2), Encrypt Field(B)
394.73,.01 Encrypt Field 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 30, 1992
HELP-PROMPT: Incrementing number used to uniquely identify each entry. Entering '+' will automatically
determine this number.
DESCRIPTION: Incrementing number used to uniquely identify each entry. Entering '+' will automatically
determine this number.
PRE-LOOKUP: I X="+" S X=$$AUTO^VAQXRF2(3) K:(X<0) X
CROSS-REFERENCE: 394.73^B
1)= S ^VAT(394.73,"B",$E(X,1,30),DA)=""
2)= K ^VAT(394.73,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^394.86^30
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(394.73,.01,1,2,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X
K Y S X=DIV S X=DIV X ^DD(394.73,.01,1,2,1.4)
1.4)= S DIH=$S($D(^VAT(394.86,DIV(0),3)):^(3),1:""),DIV=X I $D(^(0)) S $P(^(3),U,1)=DIV,DIH=394.86,
DIG=30 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
89.2)= S I(0,0)=$S($D(D0):D0,1:"") S X=1,X=X S X=X K DIC S DIC="^VAT(394.86,",DIC(0)="NMF" D ^DIC S
(D,D0,DIV(0))=+Y S Y(101)=$S($D(^VAT(394.86,D0,3)):^(3),1:"")
CREATE VALUE)= Encrypt Field
DELETE VALUE)= NO EFFECT
DIC)= LOOKUP
FIELD)= 1:394.86:#30
394.73,.02 File 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."10N.N) X
LAST EDITED: MAR 30, 1993
HELP-PROMPT: Type a Number between 0 and 9999999999, 9 Decimal Digits
DESCRIPTION:
File containing the field to encrypt.
CROSS-REFERENCE: 394.73^AB1^MUMPS
1)= S VAQXRF=$$AB^VAQXRF1(DA,1) K VAQXRF
2)= S VAQXRF=$$AB^VAQXRF1(DA,0,.02,X) K VAQXRF
Creates a cross reference of all file/field combinations that have been entered into this file.
Resulting node ==> ^VAT(394.73,"A-NCRPT",[.02],[.03],DA)
Where: [.02] is field number .02
[.03] is field number .03
DA is the entry number
The resulting node is created by the AB1 and AB2 cross references. Re-indexing either of these
cross references will correctly update/create the resulting node.
394.73,.03 Field 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."10N.N) X
LAST EDITED: MAR 30, 1993
HELP-PROMPT: Type a Number between 0 and 9999999999, 9 Decimal Digits
DESCRIPTION:
Field to encrypt.
CROSS-REFERENCE: 394.73^AB2^MUMPS
1)= S VAQXRF=$$AB^VAQXRF1(DA,1) K VAQXRF
2)= S VAQXRF=$$AB^VAQXRF1(DA,0,.03,X) K VAQXRF
Creates a cross reference of all file/field combinations that have been entered into this file.
Resulting node ==> ^VAT(394.73,"A-NCRPT",[.02],[.03],DA)
Where: [.02] is field number .02
[.03] is field number .03
DA is the entry number
The resulting node is created by the AB1 and AB2 cross references. Re-indexing either of these
cross references will correctly update/create the resulting node.
FILES POINTED TO FIELDS
VAQ - AUTO-NUMBERING (#394.86) Encrypt Field (#.01)
INPUT TEMPLATE(S):
VAQ EDIT FILE JUN 08, 1993@08:43 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):