Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^VAT(394.2

Package: Patient Data Exchange

Global: ^VAT(394.2


Information

FileMan FileNo FileMan Filename Package
394.2 *PDX PARAMETER Patient Data Exchange

Description

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 INSTITUTION(#4)[4#394.26(.01)]    
MailMan 1 DOMAIN(#4.2)[3#394.26(1)]    

Fields, Total: 7

Field # Name Loc Type Details
.01 ONE 0;1 NUMBER
************************REQUIRED FIELD************************

  • 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)
1 LIFETIME OF PDX DATA 0;2 NUMBER
************************REQUIRED FIELD************************

  • 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
2 LIFETIME IN TRANSMIT QUEUE 0;3 NUMBER
************************REQUIRED FIELD************************

  • 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
3 PDX DOMAIN 0;4 POINTER TO DOMAIN FILE (#4.2)
************************REQUIRED FIELD************************
DOMAIN(#4.2)

  • LAST EDITED:  APR 16, 1990
  • HELP-PROMPT:  Enter your domain address
4 STATION NUMBER 0;5 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • 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,D0,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
5 STATION NAME 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • 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
6 WORK GROUP 1;0 POINTER Multiple #394.26 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.
Info |  Desc |  Pointer To FileMan Files |  Fields