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.4

Package: Patient Data Exchange

Global: ^VAT(394.4


Information

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

Description

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)
Info |  Desc |  Pointer To FileMan Files |  Fields