STANDARD DATA DICTIONARY #394.82 -- VAQ - RELEASE GROUP FILE 3/24/25 PAGE 1
STORED IN ^VAT(394.82, *** 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 the facilities that have been granted 'Automatic Processing'. In order for a request to be automatically
processed, the requesting facility must have an entry in this file.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: Remote Facility(B), Remote Domain(C)
394.82,.01 Remote Facility 0;1 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: NOV 01, 1994
DESCRIPTION:
Name of remote facility being granted 'Automatic Processing'.
CROSS-REFERENCE: 394.82^B
1)= S ^VAT(394.82,"B",$E(X,1,30),DA)=""
2)= K ^VAT(394.82,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^394.82^.02
1)= X ^DD(394.82,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.82,D0,0)):^(0),1:"") S X=$P(Y(1),U,
2),X=X S DIU=X K Y X ^DD(394.82,.01,1,2,1.1) X ^DD(394.82,.01,1,2,1.4)
1.1)= S X=DIV X ^DD(394.82,.01,1,2,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)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S 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:"") S X=$S('$D(^DIC(4.2,+$P(Y(101),U,1),0)):"",1:$P(^(
0),U,1))'="" S D0=I(0,0)
1.4)= S DIH=$S($D(^VAT(394.82,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.82,DIG=.02 D ^
DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.82,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S
DIU=X K Y S X="" X ^DD(394.82,.01,1,2,2.4)
2.4)= S DIH=$S($D(^VAT(394.82,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.82,DIG=.02 D ^
DICR:$O(^DD(DIH,DIG,1,0))>0
49.2)= S 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:"")
CREATE CONDITION)= Remote Facility:DOMAIN'=""
CREATE VALUE)= Remote Facility:DOMAIN:NUMBER
DELETE VALUE)= @
FIELD)= Remote Domain
CROSS-REFERENCE: ^^TRIGGER^394.82^10
1)= X ^DD(394.82,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.82,D0,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.82,.01,1,3,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.82,D0,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.82,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,1)=DIV,DIH=394.82,DIG=10 D ^D
ICR:$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 remote facility to release group automatically stored
CROSS-REFERENCE: ^^TRIGGER^394.82^11
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.82,D0,1)):^(1),1:"") S X=$P(Y(1),U
,2)="" I X S X=DIV S Y(1)=$S($D(^VAT(394.82,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^D
D(394.82,.01,1,4,1.1) X ^DD(394.82,.01,1,4,1.4)
1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
1.4)= S DIH=$S($D(^VAT(394.82,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=394.82,DIG=11 D ^D
ICR:$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 remote facility is added to release group automatically stored.
394.82,.02 Remote Domain 0;2 POINTER TO DOMAIN FILE (#4.2)
LAST EDITED: MAR 31, 1993
DESCRIPTION:
Remote facility's E-Mail address.
NOTES: TRIGGERED by the Remote Facility field of the VAQ - RELEASE GROUP File
CROSS-REFERENCE: 394.82^C
1)= S ^VAT(394.82,"C",$E(X,1,30),DA)=""
2)= K ^VAT(394.82,"C",$E(X,1,30),DA)
394.82,10 Added By 1;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 01, 1992
DESCRIPTION:
User who added this facility to the Release Group.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the Remote Facility field of the VAQ - RELEASE GROUP File
394.82,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 the facility was added.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the Remote Facility field of the VAQ - RELEASE GROUP File
FILES POINTED TO FIELDS
DOMAIN (#4.2) Remote Domain (#.02)
INSTITUTION (#4) Remote Facility (#.01)
NEW PERSON (#200) Added By (#10)
INPUT TEMPLATE(S):
VAQ EDIT FILE JUN 08, 1993@09:24 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):