Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
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

Directly Accessed By Routines, Total: 5

Package Total Routines
Patient Data Exchange 5 VAQPST03    WORK GROUP    ^VAT(394.2    VAQPST02    VAQPST20    

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.

External References

Name Field # of Occurrence
^DICR 4(XREF 1n1.4), 4(XREF 1n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 4(XREF 1n1.4), 4(XREF 1n2.4)
^DD(394.2 4(XREF 1S), 4(XREF 1K)
^DIC(4 - [#4] 4(XREF 1n1.1)
^VAT(394.2 - [#394.2] .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)

Naked Globals

Name Field # of Occurrence
^(0 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1K)
>> DA .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K)
>> DIG 4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIH 4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIU 4(XREF 1S), 4(XREF 1K)
DIV 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
DIV(0 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
>> I(0 4(XREF 1n1.1)
U 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
, 5+1!
Y 4(XREF 1S), 4(XREF 1K)
Y(1 4(XREF 1S), 4(XREF 1K)
Y(101 4(XREF 1n1.1)
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All