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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^VAT(394.4

Package: Patient Data Exchange

Global: ^VAT(394.4


Information

FileMan FileNo FileMan Filename Package
394.4 *PDX STATISTICS Patient Data Exchange

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Patient Data Exchange 1 ^VAT(394.4    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Patient Data Exchange 1 *PDX STATUS(#394.3)[1]    
Registration 1 PATIENT(#2)[5]    

Fields, Total: 8

Field # Name Loc Type Details
.01 PROCESSING DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • PRE-LOOKUP:  Q:(X="")!(X["^") I '$D(VAQFLAG) K X W:DIC(0)["E" !,*7,"Information in this file may only be entered/edited through the PDX routines"
  • CROSS-REFERENCE:  394.4^B
    1)= S ^VAT(394.4,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(394.4,"B",$E(X,1,30),DA)
1 STATUS 0;2 POINTER TO *PDX STATUS FILE (#394.3)
************************REQUIRED FIELD************************
*PDX STATUS(#394.3)

  • CROSS-REFERENCE:  394.4^AC
    1)= S ^VAT(394.4,"AC",$E(X,1,30),DA)=""
    2)= K ^VAT(394.4,"AC",$E(X,1,30),DA)
2 LOCAL DUZ 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAY 10, 1991
  • HELP-PROMPT:  Enter the DUZ of the user that sent the message
2.5 REMOTE DOMAIN 0;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  MAY 10, 1991
  • HELP-PROMPT:  Enter the address the PDX message was sent to
3 PATIENT NAME 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^394.4^6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(394.4,3,1,1,1.1) X ^DD(394.4,3,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"") S X=DIV_$P(Y(1),U,5)
    1.4)= S DIH=$S($D(^VAT(394.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=394.4,DIG=6 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.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(394.4,3,1,1,2.1) X ^DD(394.4,3,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)_$P(Y(1),U,5)
    2.4)= S DIH=$S($D(^VAT(394.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=394.4,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= PATIENT NAME_PATIENT SSN
    DELETE VALUE)= PATIENT NAME_PATIENT SSN
    FIELD)= NAME_SSN
4 PATIENT SSN 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^394.4^6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(394.4,4,1,1,1.1) X ^DD(394.4,4,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)_DIV
    1.4)= S DIH=$S($D(^VAT(394.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=394.4,DIG=6 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.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(394.4,4,1,1,2.1) X ^DD(394.4,4,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"") S X=$P(Y(1),U,4)_$P(Y(1),U,5)
    2.4)= S DIH=$S($D(^VAT(394.4,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=394.4,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= PATIENT NAME_PATIENT SSN
    DELETE VALUE)= PATIENT NAME_PATIENT SSN
    FIELD)= NAME
5 PATIENT POINTER 0;6 POINTER TO PATIENT FILE (#2) PATIENT(#2)
6 NAME_SSN 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • NOTES:  TRIGGERED by the PATIENT NAME field of the *PDX STATISTICS File
    TRIGGERED by the PATIENT SSN field of the *PDX STATISTICS File
  • CROSS-REFERENCE:  394.4^AD
    1)= S ^VAT(394.4,"AD",$E(X,1,30),DA)=""
    2)= K ^VAT(394.4,"AD",$E(X,1,30),DA)

External References

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

Global Variables Directly Accessed

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
>> D0 3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1K), 3(XREF 1n2.1), 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1K), 4(XREF 1n2.1)
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K), 6(XREF 1S), 6(XREF 1K)
>> DIC(0 .01TPL+1
>> DIG 3(XREF 1n1.4), 3(XREF 1n2.4), 4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIH 3(XREF 1n1.4), 3(XREF 1n2.4), 4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIU 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K)
DIV 3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.1), 3(XREF 1n2.4), 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1n1.4), 4(XREF 1K)
4(XREF 1n2.1), 4(XREF 1n2.4)
DIV(0 3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.4), 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
U 3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.1), 3(XREF 1n2.4), 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1n1.4), 4(XREF 1K)
4(XREF 1n2.1), 4(XREF 1n2.4)
>> VAQFLAG .01TPL+1
X .01+1*!, .01TPL+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1!, 2.5+1!, 3+1!, 3(XREF 1S)
3(XREF 1n1.1), 3(XREF 1n1.4), 3(XREF 1K), 3(XREF 1n2.1), 3(XREF 1n2.4), 4+1!, 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1n1.4), 4(XREF 1K)
4(XREF 1n2.1), 4(XREF 1n2.4), 6+1!, 6(XREF 1S), 6(XREF 1K)
Y .01+1, 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K)
Y(1 3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1K), 3(XREF 1n2.1), 4(XREF 1S), 4(XREF 1n1.1), 4(XREF 1K), 4(XREF 1n2.1)
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All