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.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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All