STANDARD DATA DICTIONARY #101.62 -- PDMP QUERY LOG FILE                                                           3/24/25    PAGE 1
STORED IN ^ORD(101.62,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                      (VERSION 3.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used to log Prescription Drug Monitoring Program (PDMP) queries initiated from within CPRS/VistA.  


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

CROSS
REFERENCED BY: PATIENT(B)

INDEXED BY:    USER & STATUS & VIEWED REPORT? & DATE/TIME (AC), NOTE (AT)


    LAST MODIFIED: OCT 5,2022@14:55:07

101.62,.01    PATIENT                0;1 POINTER TO PATIENT FILE (#2) (Required)

              LAST EDITED:      OCT 29, 2019 
              HELP-PROMPT:      Enter the patient who a PDMP query was executed for. 
              DESCRIPTION:
                                This is the patient who a PDMP query was executed for. 

              CROSS-REFERENCE:  101.62^B 
                                1)= S ^ORD(101.62,"B",$E(X,1,30),DA)=""
                                2)= K ^ORD(101.62,"B",$E(X,1,30),DA)


101.62,1      QUERIES                1;0 DATE Multiple #101.621

              LAST EDITED:      SEP 11, 2019 
              DESCRIPTION:
                                This is the list of PDMP queries for this patient.  


101.621,.01     DATE/TIME              0;1 DATE

                INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
                LAST EDITED:      FEB 10, 2020 
                HELP-PROMPT:      Enter the date/time the PDMP query was submitted. 
                DESCRIPTION:
                                  This is the date/time the PDMP query was submitted.  

                CROSS-REFERENCE:  101.621^B 
                                  1)= S ^ORD(101.62,DA(1),1,"B",$E(X,1,30),DA)=""
                                  2)= K ^ORD(101.62,DA(1),1,"B",$E(X,1,30),DA)

                RECORD INDEXES:   AC (#1704) (WHOLE FILE #101.62)

101.621,.02     USER                   0;2 POINTER TO NEW PERSON FILE (#200)

                LAST EDITED:      FEB 10, 2020 
                HELP-PROMPT:      Enter the user who submitted the query. 
                DESCRIPTION:
                                  This is the user who submitted the query.  

                RECORD INDEXES:   AC (#1704) (WHOLE FILE #101.62)

101.621,.03     COSIGNER               0;3 POINTER TO NEW PERSON FILE (#200)

                LAST EDITED:      MAR 23, 2020 
                HELP-PROMPT:      Enter the cosigner that was selected to cosign the PDMP progress note. 
                DESCRIPTION:
                                  This is the cosigner selected to sign the PDMP progress note.  


101.621,.04     STATUS                 0;4 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
                MAXIMUM LENGTH:   30
                LAST EDITED:      MAR 24, 2020 
                HELP-PROMPT:      Enter the status of the query. Answer must be 1-30 characters in length. 
                DESCRIPTION:
                                  This is the status of the query.  

                RECORD INDEXES:   AC (#1704) (WHOLE FILE #101.62)

101.621,.05     DATA SHARED?           0;5 SET

                                  '0' FOR NO; 
                                  '1' FOR YES; 
                LAST EDITED:      MAR 23, 2020 
                HELP-PROMPT:      Enter if the patient's information was shared with a third party. 
                DESCRIPTION:      This field will indicate if the patient's information was shared with another agency that is
                                  outside of the VA.  


101.621,.06     QUERY STATS            0;6 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."3.N) X
                LAST EDITED:      MAR 23, 2020 
                HELP-PROMPT:      Type a number between 0 and 10000, 2 decimal digits. 
                DESCRIPTION:
                                  This is the number of seconds it took for the PDMP query to complete.  


101.621,.07     VIEWED REPORT?         0;7 SET

                                  'NO' FOR NO; 
                                  'YES' FOR YES; 
                                  'QCANCEL' FOR QUERY CANCELLED; 
                                  'RCANCEL' FOR REVIEW CANCELLED; 
                                  'ERROR' FOR ERROR; 
                LAST EDITED:      MAR 23, 2020 
                HELP-PROMPT:      Enter if the user viewed the returned PDMP report.  
                DESCRIPTION:
                                  This field will indicate if the user viewed the returned PDMP report.  

                RECORD INDEXES:   AC (#1704) (WHOLE FILE #101.62)

101.621,.08     AUTHORIZED USER?       0;8 SET

                                  '0' FOR NO; 
                                  '1' FOR YES; 
                LAST EDITED:      MAR 23, 2020 
                HELP-PROMPT:      Is the user who initiated the query a PDMP authorized user? 
                DESCRIPTION:
                                  Enter 'Yes' if the user who initiated the query is a PDMP authorized user.  


101.621,.09     NOTE                   0;9 POINTER TO TIU DOCUMENT FILE (#8925)

                LAST EDITED:      FEB 26, 2020 
                HELP-PROMPT:      Enter the progress note that was created. 
                DESCRIPTION:
                                  This is the progress note that was created to document the PDMP findings.  

                FIELD INDEX:      AT (#1705)    REGULAR    IR    SORTING ONLY    WHOLE FILE (#101.62)
                    Short Descr:  This index is used for sorting queries by note.
                    Description:  This cross reference is used for sorting queries in sequence by note and internal entry number.  
                      Set Logic:  S ^ORD(101.62,"AT",X,DA(1),DA)=""
                     Kill Logic:  K ^ORD(101.62,"AT",X,DA(1),DA)
                     Whole Kill:  K ^ORD(101.62,"AT")
                           X(1):  NOTE  (101.621,.09)  (Subscr 1)  (forwards)


101.621,.1      NOTE STATUS            0;10 SET

                                  'D' FOR DELETED; 
                                  'R' FOR RETRACTED; 
                                  'A' FOR REASSIGNED; 
                LAST EDITED:      MAR 23, 2020 
                HELP-PROMPT:      Enter the status of the progress note. 
                DESCRIPTION:
                                  If the progress note was deleted, retracted, or reassigned this field will denote that.  


101.621,.11     SESSION ID             0;11 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
                MAXIMUM LENGTH:   30
                LAST EDITED:      MAR 16, 2020 
                HELP-PROMPT:      Enter the session ID. Answer must be 1-30 characters in length. 
                DESCRIPTION:
                                  This is the middleware session ID for this query.  


101.621,.12     FROM REMINDERS         0;12 SET (BOOLEAN Data Type)

                LAST EDITED:      AUG 26, 2021 
                HELP-PROMPT:      Enter if the PDMP report was opened from a Reminder Dialog Template. 
                DESCRIPTION:
                                  This field will indicate if the PDMP report was opened from a Reminder Dialog Template.  


101.621,1       ERROR INFO             1;0   WORD-PROCESSING #101.6211   (IGNORE "|")

                LAST EDITED:      DEC 16, 2019 
                DESCRIPTION:
                                  If the query resulted in an error, this field will contains more information about the error.  


                  LAST EDITED:      MAR 23, 2020 
                  HELP-PROMPT:      Enter more information about this error. 
                  DESCRIPTION:
                                    If the query failed, this field will contain more information about the error.  







      FILES POINTED TO                      FIELDS

NEW PERSON (#200)                 QUERIES:USER (#.02)
                                  COSIGNER (#.03)

PATIENT (#2)                      PATIENT (#.01)

TIU DOCUMENT (#8925)              QUERIES:NOTE (#.09)


Subfile #101.621

  Record Indexes:

  AC (#1704)    RECORD    REGULAR    IR    SORTING ONLY    WHOLE FILE (#101.62)
      Short Descr:  Index by Patient, User, Status, Viewed Report, and Date/Time.
      Description:  This index is on the following fields: Patient, User, Status, Viewed Report, and Date/Time. For example, it can
                    be used to find the most recent query initiated by a user for a given patient, that was successful, and where
                    the report has not been viewed yet.  
        Set Logic:  S ^ORD(101.62,"AC",X(1),X(2),X(3),X(4),X(5),DA(1),DA)=""
       Kill Logic:  K ^ORD(101.62,"AC",X(1),X(2),X(3),X(4),X(5),DA(1),DA)
       Whole Kill:  K ^ORD(101.62,"AC")
             X(1):  Computed Code: S X=+$P($G(^ORD(101.62,DA(1),0)),U,1)
                      (Subscr 1)
             X(2):  USER  (101.621,.02)  (Subscr 2)  (forwards)
             X(3):  STATUS  (101.621,.04)  (Subscr 3)  (forwards)
             X(4):  VIEWED REPORT?  (101.621,.07)  (Subscr 4)  (forwards)
             X(5):  DATE/TIME  (101.621,.01)  (Subscr 5)  (forwards)


INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):