Global: ^VAT(394.82

Field #	Name	Loc	Type	Details
.01	Remote Facility	0;1	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) 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 ^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 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 ^DD(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 ^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 remote facility is added to release group automatically stored.`
.02	Remote Domain	0;2	POINTER TO DOMAIN FILE (#4.2)	DOMAIN(#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)`
10	Added By	1;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
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`

Name	Field # of Occurrence
^%DT	11+1
NOW^%DTC	.01(XREF 4n1.1)
^DICR	.01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 4n1.4)

Name

Field # of Occurrence

^%DT

11+1

NOW^%DTC

.01(XREF 4n1.1)

^DICR

.01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 4n1.4)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	.01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 4n1.4)
^DD(394.82	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K), .01(XREF 3S), .01(XREF 4S)
^DIC(4 - [#4]	.01(XREF 2n1.3), .01(XREF 2n49.2)
^DIC(4.2 - [#4.2]	.01(XREF 2n1.1), .01(XREF 2n1.3)
^VA(200 - [#200]	.01(XREF 3n1.3)
^VAT(394.82 - [#394.82]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4S) , .01(XREF 4n1.4), .02(XREF 1S), .02(XREF 1K)

Name	Field # of Occurrence
^(0	.01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3n1.3)
^(1	.01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4)
^(6	.01(XREF 2n1.3), .01(XREF 2n49.2)

Name

Field # of Occurrence

^(0

.01(XREF 2S), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3n1.3)

^(1

.01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4)

^(6

.01(XREF 2n1.3), .01(XREF 2n49.2)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	.01(XREF 4n1.1)
>> %DT	11+1*
%H	.01(XREF 4n1.1)
%I	.01(XREF 4n1.1)
>> D0	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2K), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 4S)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2n1.3), .01(XREF 2K), .01(XREF 3n1.3), .01(XREF 4S), .02(XREF 1S), .02(XREF 1K)
>> DIG	.01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 4n1.4)
>> DIH	.01(XREF 2n1.4), .01(XREF 2n2.4), .01(XREF 3n1.4), .01(XREF 4n1.4)
>> DIU	.01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 4S)
DIV	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 2n49.2), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4) , .01(XREF 4S), .01(XREF 4n1.1), .01(XREF 4n1.4)
DIV(0	.01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.4)
DUZ	.01(XREF 3S)
>> I(0	.01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n49.2)
>> I(100	.01(XREF 2n49.2)
U	.01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 4S) , .01(XREF 4n1.4)
X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3S), .01(XREF 3n1.3) , .01(XREF 3n1.4), .01(XREF 4S), .01(XREF 4n1.1), .01(XREF 4n1.4), .02(XREF 1S), .02(XREF 1K), 11+1*!
Y	.01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 4S), 11+1
Y(0	.01(XREF 2n1.3), .01(XREF 3n1.3), .01(XREF 4S)
Y(1	.01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.3), .01(XREF 4S)
Y(101	.01(XREF 2n1.1), .01(XREF 2n1.3), .01(XREF 2n49.2)

Customize PDF page

Package: Patient Data Exchange

Global: ^VAT(394.82

Information

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: