STANDARD DATA DICTIONARY #349.9 -- AR TRANSMISSION SEGMENTS FILE 9/29/25 PAGE 1
STORED IN ^RCT(349.9, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the information for AR transmission routers based on type.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: NAME(B)
349.9,.01 NAME 0;1 POINTER TO AR TRANSMISSION TYPE FILE (#349.1) (Required)
LAST EDITED: AUG 20, 1996
DESCRIPTION:
This is the name of the segment/router.
CROSS-REFERENCE: 349.9^B
1)= S ^RCT(349.9,"B",$E(X,1,30),DA)=""
2)= K ^RCT(349.9,"B",$E(X,1,30),DA)
349.9,.02 MESSAGE SEQUENCE RECEIVED 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 20, 1996
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This is the number of messages received.
349.9,.03 LAST MESSAGE SEQUENCE RECEIVED 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 20, 1996
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This is the last message sequence number received.
349.9,11 REMOTE USER 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUN 26, 1996
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is the user name at the remote address which receives the transmission.
349.9,12 DOMAIN NAME 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUN 26, 1996
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is the name of the remote domain.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the DOMAIN field of the AR TRANSMISSION SEGMENTS File
349.9,13 DOMAIN 1;3 POINTER TO DOMAIN FILE (#4.2)
LAST EDITED: JUN 26, 1996
DESCRIPTION:
This is the link to the DOMAIN file (4.2).
CROSS-REFERENCE: ^^TRIGGER^349.9^12
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349.9,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S
DIU=X K Y X ^DD(349.9,13,1,1,1.1) X ^DD(349.9,13,1,1,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(4.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4
.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
1.4)= S DIH=$S($D(^RCT(349.9,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=349.9,DIG=12 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349.9,D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S
DIU=X K Y X ^DD(349.9,13,1,1,2.1) X ^DD(349.9,13,1,1,2.4)
2.1)= S X=DIV X ^DD(349.9,13,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
2.4)= S DIH=$S($D(^RCT(349.9,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,2)=DIV,DIH=349.9,DIG=12 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^RCT(349.9,D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^D
IC(4.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4.2,D0,0)):^(0),1:"")
CREATE VALUE)= DOMAIN:.01
DELETE VALUE)= DOMAIN:.01
FIELD)= DOMAIN NAME
349.9,21 ACTIVE 2;1 SET
'1' FOR ACTIVE;
'0' FOR NOT ACTIVE;
LAST EDITED: JUN 26, 1996
DESCRIPTION:
This field indicates if the domain is actively receiving tranmissions from the AR software.
FILES POINTED TO FIELDS
AR TRANSMISSION TYPE (#349.1) NAME (#.01)
DOMAIN (#4.2) DOMAIN (#13)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):