Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^VAT(394.73

Package: Patient Data Exchange

Global: ^VAT(394.73


Information

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

Description

Directly Accessed By Routines, Total: 4

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

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Patient Data Exchange 1 VAQPST03    

Fields, Total: 3

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.

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)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All