STANDARD DATA DICTIONARY #394.84 -- VAQ - SEGMENT GROUP FILE 6/27/25 PAGE 1
STORED IN ^VAT(394.84, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains groups of data segments commonly referenced by the facility. Groups marked as 'Public' may be referenced by all
users of PDX. Groups marked as 'Private' may only be referenced by the individual that created the group.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY:
"WRITE1": W ?35,@("$P($P($C(59)_$S($D(^DD(394.84,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(5
9),1)")
"WRITE2": S %I=Y,Y=$S('$D(^(0)):"",$D(^VA(200,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"" W ?
50,Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
CROSS
REFERENCED BY: Group Type(AE1), Created By(AE2), Group Name(B)
394.84,.01 Group Name 0;1 FREE TEXT (Required)
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 ^D
D(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.
394.84,.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.
394.84,.03 Created By 0;3 POINTER TO NEW PERSON FILE (#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
394.84,.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
394.84,10 Data Segment SEG;0 POINTER Multiple #394.841
DESCRIPTION:
Multiple containing data segments contained in this group.
394.841,.01 Data Segment 0;1 POINTER TO VAQ - DATA SEGMENT FILE (#394.71) (Multiply asked)
LAST EDITED: SEP 28, 1993
DESCRIPTION:
Data segment contained in this group.
CROSS-REFERENCE: 394.841^B
1)= S ^VAT(394.84,DA(1),"SEG","B",$E(X,1,30),DA)=""
2)= K ^VAT(394.84,DA(1),"SEG","B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^394.841^.02
1)= X ^DD(394.841,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,"SEG",D1,0)):^(0),1:"") S X=
$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.841,.01,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,"SEG",D
1,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))=""
1.4)= S DIH=$S($D(^VAT(394.84,DIV(0),"SEG",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.8
41,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= Added By=""
CREATE VALUE)= S X=$G(DUZ)
DELETE VALUE)= NO EFFECT
FIELD)= Added By
User adding segment to segment group automatically stored.
CROSS-REFERENCE:^^TRIGGER^394.841^.03
1)= X ^DD(394.841,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,"SEG",D1,0)):^(0),1:"") S X=
$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.841,.01,1,3,1.1) X ^DD(394.841,.01,1,3,1.4)
1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,"SEG",D
1,0)):^(0),1:"") S X=$P(Y(1),U,3)=""
1.4)= S DIH=$S($D(^VAT(394.84,DIV(0),"SEG",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=394.8
41,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= Date Added=""
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= Date Added
Date/time segment is added to segment group automatically stored.
394.841,.02 Added By 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 02, 1992
DESCRIPTION:
Person who added the data segment to the group.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the Data Segment field of the Data Segment sub-field of the VAQ - SEGMENT GROUP File
394.841,.03 Date Added 0;3 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 02, 1992
DESCRIPTION:
Date the data segment was added.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the Data Segment field of the Data Segment sub-field of the VAQ - SEGMENT GROUP File
394.841,.04 Time Limit 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<2)!($$VALOCC^VAQDBIH2(X,0)<0) X
LAST EDITED: SEP 15, 1993
HELP-PROMPT: Enter a valid time limit (1-5 digits followed by 'Y' or 'M' or 'D')
DESCRIPTION:
Time limit to use when extracting data segment (if applicable)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
394.841,.05 Occurrence Limit 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 02, 1993
HELP-PROMPT: Enter a valid occurrence limit (1-5 digits)
DESCRIPTION:
Occurrence limit to use when extracting data segment (if applicable)
FILES POINTED TO FIELDS
NEW PERSON (#200) Created By (#.03)
Data Segment:Added By (#.02)
VAQ - DATA SEGMENT (#394.71) Data Segment:Data Segment (#.01)
INPUT TEMPLATE(S):
VAQ EDIT FILE SEP 24, 1993@10:23 USER #11801
VAQ EDIT FILE (PRIVATE) SEP 24, 1993@08:57 USER #11801
VAQ EDIT FILE (PUBLIC) SEP 24, 1993@08:44 USER #11801
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):