STANDARD DATA DICTIONARY #394.83 -- VAQ - OUTGOING GROUP FILE 6/27/25 PAGE 1
STORED IN ^VAT(394.83, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains groups of facilities commonly accessed using PDX.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: Group Name(B)
394.83,.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.83^B
1)= S ^VAT(394.83,"B",$E(X,1,30),DA)=""
2)= K ^VAT(394.83,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^394.83^.02
1)= X ^DD(394.83,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,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.83,.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.83,D0,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.83,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.83,DIG=.02 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 outgoing group automatically stored.
CROSS-REFERENCE: ^^TRIGGER^394.83^.03
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.83,D0,0)):^(0),1:"") S X=$P(Y(1),U
,3)="" I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^D
D(394.83,.01,1,3,1.1) X ^DD(394.83,.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.83,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=394.83,DIG=.03 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 outgoing group was created automatically stored.
394.83,.02 Created By 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 01, 1993
DESCRIPTION:
Name of person who created this group.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the Group Name field of the VAQ - OUTGOING GROUP File
394.83,.03 Date Created 0;3 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 01, 1993
DESCRIPTION:
Date the group was created.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the Group Name field of the VAQ - OUTGOING GROUP File
394.83,10 Remote Facility FAC;0 POINTER Multiple #394.831
DESCRIPTION:
Multiple containing the facilities and their associated domains.
394.831,.01 Remote Facility 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $$OKDOM1^VAQXRF2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 09, 2001
DESCRIPTION:
Name of facility.
SCREEN: S DIC("S")="I $$OKDOM1^VAQXRF2(Y)"
EXPLANATION: You can't choose a Facility which points to a closed Domain.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 394.831^B
1)= S ^VAT(394.83,DA(1),"FAC","B",$E(X,1,30),DA)=""
2)= K ^VAT(394.83,DA(1),"FAC","B",$E(X,1,30),DA)
CROSS-REFERENCE: 394.831^AD1^MUMPS
1)= S VAQXRF=$$AD^VAQXRF2(DA(1),DA,1) K VAQXRF
2)= S VAQXRF=$$AD^VAQXRF2(DA(1),DA,0,.01,X) K VAQXRF
Creates a cross reference of all remote facilities and their domains that have been entered for a
given group.
Resulting node ==> ^VAT(394.83,DA(1),"FAC","A-OUTGRP",[10;.01],[10;.02],DA)
Where: [10;.01] is field number .01 of multiple field number 10
[10;.02] is field number .02 of multiple field number 10
DA(1) is the entry number within the main file
DA is the entry number within the multiple
The resulting node is created by the AD1 and AD2 cross references. Re-indexing either of these
cross references will correctly update/create the resulting node.
CROSS-REFERENCE: ^^TRIGGER^394.831^10
1)= X ^DD(394.831,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,"FAC",D1,1)):^(1),1:"") S X=
$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.831,.01,1,3,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.83,D0,"FAC",D
1,1)):^(1),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))=""
1.4)= S DIH=$S($D(^VAT(394.83,DIV(0),"FAC",DIV(1),1)):^(1),1:""),DIV=X S $P(^(1),U,1)=DIV,DIH=394.8
31,DIG=10 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 facility to outgoing group automatically stored.
CROSS-REFERENCE:^^TRIGGER^394.831^11
1)= X ^DD(394.831,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,"FAC",D1,1)):^(1),1:"") S X=
$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.831,.01,1,4,1.1) X ^DD(394.831,.01,1,4,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.83,D0,"FAC",D
1,1)):^(1),1:"") S X=$P(Y(1),U,2)=""
1.4)= S DIH=$S($D(^VAT(394.83,DIV(0),"FAC",DIV(1),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=394.8
31,DIG=11 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 facility added to outgoing group automatically stored.
CROSS-REFERENCE:^^TRIGGER^394.831^.02
1)= X ^DD(394.831,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,"FAC",D1,0)):^(0),1:"") S X=
$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.831,.01,1,5,1.1) X ^DD(394.831,.01,1,5,1.4)
1.1)= S X=DIV X ^DD(394.831,.01,1,5,49.2) S D0=$P(Y(101),U,1) S:'$D(^DIC(4.2,+D0,0)) D0=-1 S X=$S('
$D(D0):"",D0<0:"",1:D0) S D0=I(0,0) S D1=I(1,0)
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(394.831,.01,1,5,69.2) S X=$S(
'$D(^DIC(4.2,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1))'="" S D0=I(0,0) S D1=I(1,0)
1.4)= S DIH=$S($D(^VAT(394.83,DIV(0),"FAC",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.8
31,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(394.83,D0,"FAC",D1,0)):^(0),
1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(394.831,.01,1,5,2.4)
2.4)= S DIH=$S($D(^VAT(394.83,DIV(0),"FAC",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.8
31,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(4,+D0,0)) D0=-1 S I(
100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^DIC(4,D0,6)):^(6),1:"")
69.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^DIC(4,+D0,0)) D0=-1 S Y
(101)=$S($D(^DIC(4,D0,6)):^(6),1:"")
CREATE CONDITION)= Remote Facility:DOMAIN'=""
CREATE VALUE)= Remote Facility:DOMAIN:NUMBER
DELETE VALUE)= @
FIELD)= Remote Domain
394.831,.02 Remote Domain 0;2 POINTER TO DOMAIN FILE (#4.2)
INPUT TRANSFORM:S DIC("S")="I $$OKDOM2^VAQXRF2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 09, 2001
DESCRIPTION:
Facility's E-Mail address.
SCREEN: S DIC("S")="I $$OKDOM2^VAQXRF2(Y)"
EXPLANATION: You can't choose a closed Domain.
NOTES: TRIGGERED by the Remote Facility field of the Remote Facility sub-field of the VAQ - OUTGOING GROUP
File
CROSS-REFERENCE:394.831^AD2^MUMPS
1)= S VAQXRF=$$AD^VAQXRF2(DA(1),DA,1) K VAQXRF
2)= S VAQXRF=$$AD^VAQXRF2(DA(1),DA,0,.02,X) K VAQXRF
Creates a cross reference of all remote facilities and their domains that have been entered for a
given group.
Resulting node ==> ^VAT(394.83,DA(1),"FAC","A-OUTGRP",[10;.01],[10;.02],DA)
Where: [10;.01] is field number .01 of multiple field number 10
[10;.02] is field number .02 of multiple field number 10
DA(1) is the entry number within the main file
DA is the entry number within the multiple
The resulting node is created by the AD1 and AD2 cross references. Re-indexing either of these
cross references will correctly update/create the resulting node.
394.831,10 Added By 1;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 01, 1992
DESCRIPTION:
Person who added this facility.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the Remote Facility field of the Remote Facility sub-field of the VAQ - OUTGOING GROUP
File
394.831,11 Date Added 1;2 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 01, 1992
DESCRIPTION:
Date facility was added.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the Remote Facility field of the Remote Facility sub-field of the VAQ - OUTGOING GROUP
File
FILES POINTED TO FIELDS
DOMAIN (#4.2) Remote Facility:Remote Domain (#.02)
INSTITUTION (#4) Remote Facility:Remote Facility (#.01)
NEW PERSON (#200) Created By (#.02)
Remote Facility:Added By (#10)
INPUT TEMPLATE(S):
VAQ EDIT FILE JUN 08, 1993@09:35 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):