Global: ^VAT(394.73

FileMan FileNo	FileMan Filename	Package
394.73	VAQ - ENCRYPTED FIELDS	Patient Data Exchange

Directly Accessed By Routines, Total: 4

Package	Total	Routines
Patient Data Exchange	4	VAQPST03 VAQXRF1 ^VAT(394.73 VAQUTL2

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Patient Data Exchange	1	VAQPST03

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	Encrypt Field	0;1	NUMBER	**********************REQUIRED FIELD********************** 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`
.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.`
.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.`

.01

Encrypt Field

0;1

NUMBER

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

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

.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.

.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.

External References

Name	Field # of Occurrence
^DIC	.01(XREF 2n89.2)
^DICR	.01(XREF 2n1.4)
$$AB^VAQXRF1	.02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
$$AUTO^VAQXRF2	.01TPL+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4)
^DD(394.73	.01(XREF 2S)
^VAT(394.73 - [#394.73]	.01(XREF 1S), .01(XREF 1K)
^VAT(394.86 - [#394.86]	.01(XREF 2n1.4), .01(XREF 2n89.2)

Naked Globals

Name	Field # of Occurrence
^(0	IDWRITE1+1, IDWRITE2+1, .01(XREF 2n1.4)
^(3	.01(XREF 2n1.4), .01(XREF 2n89.2)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D	.01(XREF 2n89.2)
>> D0	.01(XREF 2S), .01(XREF 2n89.2)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
DIC	.01(XREF 2n89.2)
DIC(0	.01(XREF 2n89.2)
>> DIG	.01(XREF 2n1.4)
>> DIH	.01(XREF 2n1.4)
>> DIU	.01(XREF 2S)
DIV	.01(XREF 2S), .01(XREF 2n1.4)
DIV(0	.01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2n89.2)
>> I(0	.01(XREF 2S), .01(XREF 2n89.2)
U	IDWRITE1+1, IDWRITE2+1, .01(XREF 2S), .01(XREF 2n1.4)
VAQXRF	.02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
X	.01+1!, .01TPL+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2n89.2), .02+1!, .02(XREF 1K), .03+1! , .03(XREF 1K)
Y	.01(XREF 2S), .01(XREF 2n89.2)
Y(101	.01(XREF 2S), .01(XREF 2n89.2)

Customize PDF page

Package: Patient Data Exchange

Global: ^VAT(394.73

Information

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 1

Fields, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: