STANDARD DATA DICTIONARY #394.2 -- *PDX PARAMETER FILE 3/24/25 PAGE 1
STORED IN ^VAT(394.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file has been replaced with the VAQ - PARAMETER file (#394.81).
Version 1.0 of PDX used this file to store site specific information concerning the use of PDX. Version 1.5 of PDX has marked it
for deletion and version 2.0 will delete it.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: ONE(B)
394.2,.01 ONE 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 24, 1990
HELP-PROMPT: Enter '1' as the value for this field
CROSS-REFERENCE: 394.2^B
1)= S ^VAT(394.2,"B",$E(X,1,30),DA)=""
2)= K ^VAT(394.2,"B",$E(X,1,30),DA)
394.2,1 LIFETIME OF PDX DATA 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 28, 1990
HELP-PROMPT: Enter the number of days PDX information is valid
394.2,2 LIFETIME IN TRANSMIT QUEUE 0;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 28, 1990
HELP-PROMPT: Enter the number of days a PDX message can stay in the transmit queue
394.2,3 PDX DOMAIN 0;4 POINTER TO DOMAIN FILE (#4.2) (Required)
LAST EDITED: APR 16, 1990
HELP-PROMPT: Enter your domain address
394.2,4 STATION NUMBER 0;5 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: NOV 28, 1990
HELP-PROMPT: Enter your station (site) number
CROSS-REFERENCE: ^^TRIGGER^394.2^5
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S
DIU=X K Y X ^DD(394.2,4,1,1,1.1) X ^DD(394.2,4,1,1,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D
0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
1.4)= S DIH=$S($D(^VAT(394.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=394.2,DIG=5 D ^DICR
:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S
DIU=X K Y S X="" X ^DD(394.2,4,1,1,2.4)
2.4)= S DIH=$S($D(^VAT(394.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=394.2,DIG=5 D ^DICR
:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= STATION NUMBER:NAME
DELETE VALUE)= @
FIELD)= STATION NAME
394.2,5 STATION NAME 0;6 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 28, 1990
HELP-PROMPT: Enter your station (site) name [3-30 characters]
NOTES: TRIGGERED by the STATION NUMBER field of the *PDX PARAMETER File
394.2,6 WORK GROUP 1;0 POINTER Multiple #394.26
DESCRIPTION: MULTIPLE CONTAINING INSTITUTIONS IN YOUR PDX WORKING GROUP. INSTITUTIONS IN YOUR WORKING GROUP ARE
ALLOWED TO HAVE PDX REQUESTS AUTOMATICALLY PROCESSED UPON THEIR RECEIPT. IN ADDITION TO THIS, THE
SAME PDX MAY BE SENT TO THE WORKING GROUP WITHOUT HAVING TO MAKE A REQUEST FOR EACH INSTITUTION.
394.26,.01 WORK GROUP 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
LAST EDITED: MAY 15, 1991
HELP-PROMPT: Enter the name of an institution to add to your PDX working group
DESCRIPTION:
NAME OF THE INSTITUTION IN THE WORK GROUP
CROSS-REFERENCE: 394.26^B
1)= S ^VAT(394.2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^VAT(394.2,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^394.26^1
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(394.2,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.26,.01,1,2,1.1) X ^DD(394.26,.01,1,2,1.4)
1.1)= S X=DIV X ^DD(394.26,.01,1,2,49.2) S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)
1.4)= S DIH=$S($D(^VAT(394.2,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.26,DIG
=1 D ^DICR:$N(^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.2,D0,1,D1,0)):^(0),1:"")
S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(394.26,.01,1,2,2.4)
2.4)= S DIH=$S($D(^VAT(394.2,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.26,DIG
=1 D ^DICR:$N(^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:"") S X=2910402 K DIC S DIC="^DIC(4.2,",DI
C(0)="NMF" D ^DIC S (D,D0)=+Y S Y(101)=$S($D(^DIC(4.2,D0,0)):^(0),1:"")
CREATE VALUE)= 4.2:DOMAIN
DELETE VALUE)= @
FIELD)= NETWORK AD
394.26,1 NETWORK ADDRESS 0;2 POINTER TO DOMAIN FILE (#4.2) (Required)
LAST EDITED: MAY 06, 1991
HELP-PROMPT: Enter the network address of the institution
DESCRIPTION:
NETWORK ADDRESS OF THE INSTITUTION
NOTES: TRIGGERED by the WORK GROUP field of the WORK GROUP sub-field of the *PDX PARAMETER File
CROSS-REFERENCE:394.26^NET
1)= S ^VAT(394.2,DA(1),1,"NET",$E(X,1,30),DA)=""
2)= K ^VAT(394.2,DA(1),1,"NET",$E(X,1,30),DA)
CROSS REFERENCE ON THE NETWORK ADDRESS FOR INSTITUTIONS IN THE PDX WORKING GROUP
FILES POINTED TO FIELDS
DOMAIN (#4.2) PDX DOMAIN (#3)
WORK GROUP:NETWORK ADDRESS (#1)
INSTITUTION (#4) STATION NUMBER (#4)
WORK GROUP:WORK GROUP (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):