STANDARD DATA DICTIONARY #394.4 -- *PDX STATISTICS FILE                                                           3/24/25    PAGE 1
STORED IN ^VAT(394.4,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                       (VERSION 1.5)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file has been replaced with the VAQ - WORKLOAD file (#394.87).  
 
Version 1.0 of PDX used this file to store workload statistics concerning use of PDX.  Version 1.5 of PDX has marked it for
deletion and version 2.0 will delete it.  


              DD ACCESS: @
              RD ACCESS: @
              WR ACCESS: @
             DEL ACCESS: @
           LAYGO ACCESS: @
           AUDIT ACCESS: @

CROSS
REFERENCED BY: STATUS(AC), NAME_SSN(AD), PROCESSING DATE/TIME(B)



394.4,.01     PROCESSING DATE/TIME   0;1 DATE (Required) (Multiply asked)

              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 entere
                                d/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)


394.4,1       STATUS                 0;2 POINTER TO *PDX STATUS FILE (#394.3) (Required)

              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)


394.4,2       LOCAL DUZ              0;3 NUMBER (Required)

              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 

394.4,2.5     REMOTE DOMAIN          0;8 FREE TEXT (Required)

              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 

394.4,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


394.4,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


394.4,5       PATIENT POINTER        0;6 POINTER TO PATIENT FILE (#2)


394.4,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)



      FILES POINTED TO                      FIELDS

*PDX STATUS (#394.3)              STATUS (#1)

PATIENT (#2)                      PATIENT POINTER (#5)



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):