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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^VAT(394

Package: Patient Data Exchange

Global: ^VAT(394


Information

FileMan FileNo FileMan Filename Package
394 *PDX TRANSACTION Patient Data Exchange

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Patient Data Exchange 4 VAQPST21    VAQPST22    VAQPST23    VAQUTL1    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Patient Data Exchange 1 *PDX DATA(#394.1)[.03]    

Pointer To FileMan Files, Total: 2

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

Fields, Total: 22

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

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 15, 1990
  • DESCRIPTION:  
    This is the date/time that the request was entered or returned from the processing site.
  • 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^B
    1)= S ^VAT(394,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(394,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  394^AC^MUMPS
    1)= S $P(^VAT(394,DA,0),U,2)=DA
    2)= Q
1 PDX REQUEST # 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
2 PARENT PDX # 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
3 PATIENT NAME 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 15, 1990
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  394^NAME
    1)= S ^VAT(394,"NAME",$E(X,1,30),DA)=""
    2)= K ^VAT(394,"NAME",$E(X,1,30),DA)
4 SOCIAL SECURITY # 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1)!'((X?9N)!(X?9N1"P")) X
  • LAST EDITED:  DEC 03, 1990
  • HELP-PROMPT:  Enter patient's SSN without dashes (123-45-6789 becomes 123456789)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  394^SS
    1)= S ^VAT(394,"SS",$E(X,1,30),DA)=""
    2)= K ^VAT(394,"SS",$E(X,1,30),DA)
5 CLAIM # 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  NOV 19, 1990
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
6 DATE OF BIRTH 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 03, 1990
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 PID 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
8 PATIENT POINTER 0;9 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  APR 11, 1990
9 REQUESTOR DUZ 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAY 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 1 Decimal Digit
9.5 REQUESTOR NAME 0;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 24, 1990
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
9.7 REQUESTOR FACILITY 0;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  NOV 13, 1990
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
9.9 NETWORK ADDRESS 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 15, 1990
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    THIS IS THE "RETURN" ADDRESS FOR THE MESSAGE. THE NETWORK ADDRESS OF THE SITE SENDING THIS MESSAGE IS STORED HERE.
10 PDX CODE 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Answer must be 1-7 characters in length.
11 PDX STATUS 0;12 POINTER TO *PDX STATUS FILE (#394.3) *PDX STATUS(#394.3)

  • LAST EDITED:  NOV 13, 1990
  • CROSS-REFERENCE:  394^AD
    1)= S ^VAT(394,"AD",$E(X,1,30),DA)=""
    2)= K ^VAT(394,"AD",$E(X,1,30),DA)
11.5 COMMENTS 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  JUN 18, 1991
  • HELP-PROMPT:  Enter any comments included with the message
12 REMOTE MESSAGE ID 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
13 LOCAL MESSAGE ID 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 19, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
  • CROSS-REFERENCE:  394^AE
    1)= S ^VAT(394,"AE",$E(X,1,30),DA)=""
    2)= K ^VAT(394,"AE",$E(X,1,30),DA)
14 AUTHORIZER DUZ 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  MAY 24, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999999, 1 Decimal Digit
15 AUTHORIZER NAME 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 11, 1990
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
16 AUTHORIZER FACILITY 0;17 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  APR 28, 1993
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • CROSS-REFERENCE:  394^BS5^MUMPS
    1)= Q:($P(^VAT(394,DA,0),U,4)']"")!($P(^VAT(394,DA,0),U,5)']"")  S ^VAT(394,"BS5",$E($P(^(0),U,4),1)_$E($P(^(0),U,5),6,9),DA)=""
    2)= Q:($P(^VAT(394,DA,0),U,4)']"")!($P(^VAT(394,DA,0),U,5)']"")  K ^VAT(394,"BS5",$E($P(^(0),U,4),1)_$E($P(^(0),U,5),6,9),DA)
  • CROSS-REFERENCE:  394^APDX^MUMPS
    1)= Q:($P(^VAT(394,DA,0),U,1)']"")!($P(^(0),U,4)']"")  S VAQTMP=0 S:'$D(VAQ15) VAQ15=$O(^VAT(394.3,"B",15,"")),VAQ16=$O(^VAT(394.3,"B",16,"")),VAQTMP=1 D APDX^VAQUTL1
    2)= Q:($P(^VAT(394,DA,0),U,1)']"")!($P(^(0),U,4)']"")  K ^VAT(394,"APDX",$P(^(0),U,4),X,(9999999.999999-$P(^(0),U,1)),DA)
  • CROSS-REFERENCE:  394^A1AY^MUMPS
    1)= Q:($T(^A1AYFMX2)="")  D PDXTRIG^A1AYFMX2(1)
    2)= Q:($T(^A1AYFMX2)="")  D PDXTRIG^A1AYFMX2(0)
    This MUMPS cross-reference is used to update information in the A1AY FOREIGN FACILITY XREF file (#11400.2).  It updates the following information :
    LAST PDX TRANSACTION (#3) - Sets/kills the pointer to PDX message
    LAST PDX DATE (#4) - Sets field to date of PDX message
    LAST PDX STATUS (#5) - Sets field to status of PDX message
17 PURGE 0;18 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 11, 1990
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All