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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^VAT(394.84

Package: Patient Data Exchange

Global: ^VAT(394.84


Information

FileMan FileNo FileMan Filename Package
394.84 VAQ - SEGMENT GROUP Patient Data Exchange

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Patient Data Exchange 6 VAQPST04    ^VAT(394.84    Data Segment    VAQPST03    VAQREQ04    VAQXRF2    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Patient Data Exchange 4 VAQPST03    VAQPST04    VAQREQ04    VAQREQ09    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.03#394.841(.02)]    
Patient Data Exchange 1 VAQ - DATA SEGMENT(#394.71)[#394.841(.01)]    

Fields, Total: 5

Field # Name Loc Type Details
.01 Group Name 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  SEP 28, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Name of group.
  • CROSS-REFERENCE:  394.84^B
    1)= S ^VAT(394.84,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(394.84,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^394.84^.03
    1)= X ^DD(394.84,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.84,.01,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"",1:$P(^(0),U,1))=""
    1.4)= S DIH=$S($D(^VAT(394.84,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=394.84,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= Created By=""
    CREATE VALUE)= S X=$G(DUZ)
    DELETE VALUE)= NO EFFECT
    FIELD)= Created By
    User creating segment group automatically stored.
  • CROSS-REFERENCE:  ^^TRIGGER^394.84^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)="" I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(394.84,.01,1,3,1.1) X
    ^DD(394.84,.01,1,3,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$S($D(^VAT(394.84,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=394.84,DIG=.04 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= Date Created=""
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= Date Created
    Date/time segment group was created automatically stored.
.02 Group Type 0;2 SET
  • '1' FOR PUBLIC;
  • '0' FOR PRIVATE;

  • LAST EDITED:  SEP 27, 1993
  • DESCRIPTION:  
    Set to PRIVATE if the group can only be referenced by the person who created the group.  Set to PUBLIC if the group can be referenced by all users.
  • CROSS-REFERENCE:  394.84^AE1^MUMPS
    1)= S VAQXRF=$$AE^VAQXRF2(DA,1) K VAQXRF
    2)= S VAQXRF=$$AE^VAQXRF2(DA,0,.02,X) K VAQXRF
    Creates a cross reference based on the group type and creator for each segment group entered.
    Resulting node ==> ^VAT(394.84,"A-SEGGRP",[.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 AE1 and AE2 cross references.  Re-indexing either of these cross references will correctly update/create the resulting node.
.03 Created By 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 27, 1993
  • DESCRIPTION:  
    Person who created this group.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the Group Name field of the VAQ - SEGMENT GROUP File
  • CROSS-REFERENCE:  394.84^AE2^MUMPS
    1)= S VAQXRF=$$AE^VAQXRF2(DA,1) K VAQXRF
    2)= S VAQXRF=$$AE^VAQXRF2(DA,0,.03,X) K VAQXRF
    Creates a cross reference based on the group type and creator for each segment group entered.
    Resulting node ==> ^VAT(394.84,"A-SEGGRP",[.02],[.03],DA)
    Where:  [.02] is field number .02
    [.03] is field number .03
    DA is the entry number
.04 Date Created 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 02, 1992
  • DESCRIPTION:  
    Date the group was created.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the Group Name field of the VAQ - SEGMENT GROUP File
10 Data Segment SEG;0 POINTER Multiple #394.841 394.841

  • DESCRIPTION:  
    Multiple containing data segments contained in this group.

Found Entries, Total: 1

Group Name: ALL    

External References

Name Field # of Occurrence
^%DT .04+1
NOW^%DTC .01(XREF 3n1.1)
^DICR .01(XREF 2n1.4), .01(XREF 3n1.4)
Y^DIQ IDWRITE2+1
$$AE^VAQXRF2 .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 3n1.4)
^DD(200 IDWRITE2+1
^DD(394.84 .01(XREF 2S), .01(XREF 3S)
^VA(200 - [#200] IDWRITE2+1, .01(XREF 2n1.3)
^VAT(394.84 - [#394.84] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .01(XREF 3n1.1)
>> %DT .04+1*
%H .01(XREF 3n1.1)
%I IDWRITE2+1*!, .01(XREF 3n1.1)
>> C IDWRITE2+1*
>> D0 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), .01(XREF 3S), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
>> DIC IDWRITE1+1, IDWRITE2+1
>> DIG .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIH .01(XREF 2n1.4), .01(XREF 3n1.4)
>> DIU .01(XREF 2S), .01(XREF 3S)
DIV .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4)
DIV(0 .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
DUZ .01(XREF 2S)
U IDWRITE2+1, .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.4)
VAQXRF .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .02(XREF 1K)
.03(XREF 1K), .04+1*!
Y IDWRITE2+1*, .01(XREF 2S), .01(XREF 3S), .04+1
Y(0 .01(XREF 2n1.3), .01(XREF 3S)
Y(1 .01(XREF 2S), .01(XREF 2n1.3), .01(XREF 3S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All