STANDARD DATA DICTIONARY #51.29 -- PHARMACOGENOMIC EMAIL LOG FILE 3/2/26 PAGE 1
STORED IN ^PS(51.29, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the patients' genes or phenotypes that cannot map to the vendor database preventing pharmacogenomic order checks
from occurring.
DD ACCESS: @
RD ACCESS: Pp
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
APPLICATION GROUP(S): PS
CROSS
REFERENCED BY: PATIENT(B), PATIENT ICN(C)
LAST MODIFIED: MAR 2,2026@02:07:48
51.29,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: DEC 05, 2024
HELP-PROMPT: Enter the patient for which the order check is occurring.
DESCRIPTION:
This is the name of a patient.
PRE-LOOKUP: I $G(DIC(0))["L" K X D EN^DDIOL("Entries can only be added through the application.","","!?5")
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 51.29^B
1)= S ^PS(51.29,"B",$E(X,1,30),DA)=""
2)= K ^PS(51.29,"B",$E(X,1,30),DA)
51.29,1 PATIENT ICN 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>29!($L(X)<8) X
MAXIMUM LENGTH: 29
LAST EDITED: APR 23, 2025
HELP-PROMPT: Enter the Integration Control Number (ICN) of the patient.
DESCRIPTION:
This is the patient's Integration Control Number (ICN).
CROSS-REFERENCE: 51.29^C
1)= S ^PS(51.29,"C",$E(X,1,30),DA)=""
2)= K ^PS(51.29,"C",$E(X,1,30),DA)
This cross reference on the PATIENT ICN sets the global PS(51.29,"C",PATIENT ICN,DA)="".
51.29,2 GENE 1;0 Multiple #51.292 (Add New Entry without Asking)
DESCRIPTION: This multiple keeps track of lab results that were received from the Health Data Repository (HDR)
that contained a Gene or Phenotype that could not be resolved to the Gene or Phenotype term that
the vendor accepts for Pharmacogenomic (PGx) order checks.
INDEXED BY: GENE & EMAIL DATE & UNRESOLVED FLAG (AG), GENE & PHENOTYPE & EMAIL DATE (AP)
51.292,.01 GENE 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
MAXIMUM LENGTH: 25
LAST EDITED: APR 23, 2025
HELP-PROMPT: Enter the gene name that could not be mapped to a vendor gene.
DESCRIPTION:
This is the gene from the patient's lab data that can't map to a vendor gene.
CROSS-REFERENCE: 51.292^B
1)= S ^PS(51.29,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(51.29,DA(1),1,"B",$E(X,1,30),DA)
RECORD INDEXES: AG (#1724), AP (#1725)
51.292,1 PHENOTYPE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>75!($L(X)<1) X
MAXIMUM LENGTH: 75
LAST EDITED: APR 23, 2025
HELP-PROMPT: Enter the phenotype name that could not be mapped to a vendor phenotype.
DESCRIPTION:
This is the phenotype from the patient's lab data that can't map to a vendor phenotype.
RECORD INDEXES: AP (#1725)
51.292,2 UNRESOLVED FLAG 0;3 SET (Required)
'G' FOR GENE;
'P' FOR PHENOTYPE;
'B' FOR BOTH GENE & PHENOTYPE;
LAST EDITED: DEC 05, 2024
HELP-PROMPT: Enter 'G' if the problem is only with the Gene, enter 'P' if the problem is only with the
Phenotype, enter 'B' if the problem is with Both.
DESCRIPTION:
Identify if the mapping issue is on the Gene, Phenotype, or Both.
RECORD INDEXES: AG (#1724)
51.292,3 EMAIL DATE 0;4 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 24, 2025
HELP-PROMPT: Enter the date that the Email was sent concerning the unresolvable gene or phenotype.
DESCRIPTION:
This is the date an email was sent to the Pharmacy Benefits Management (PBM) Outlook mail group.
RECORD INDEXES: AG (#1724), AP (#1725)
51.292,4 PATIENT LOCATION 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
MAXIMUM LENGTH: 30
LAST EDITED: APR 23, 2025
HELP-PROMPT: Enter the location of the incident where the gene or phenotype could not be resolved to a vendor
equivalent.
DESCRIPTION:
This is the patient's location/site.
51.292,5 ORIGINATING PACKAGE 0;6 SET
'I' FOR INPATIENT;
'O' FOR OUTPATIENT;
'C' FOR CPRS;
LAST EDITED: DEC 05, 2024
HELP-PROMPT: Enter 'O' if the order check occurred in Outpatient, enter 'I' for Inpatient, enter 'C' for
CPRS.
DESCRIPTION: This is the application where the order check attempt occurred but could not be performed because
of the unresolvable gene and/or phenotype.
FILES POINTED TO FIELDS
PATIENT (#2) PATIENT (#.01)
Subfile #51.292
Record Indexes:
AG (#1724) RECORD REGULAR IR SORTING ONLY
Short Descr: SORT BY GENE, EMAIL DATE, & UNRESOLVED FLAG
Description: This cross reference is used to check for when an email was sent on a certain date for a gene that can't be
used for pharmacogenomic order checks.
Set Logic: S ^PS(51.29,DA(1),1,"AG",$E(X(1),1,25),$E(X(2),1,7),$E(X(3),1,1),DA)=""
Set Cond: S X=$S(X(1)="":0,X(2)="":0,X(3)="P":0,1:1)
Kill Logic: K ^PS(51.29,DA(1),1,"AG",$E(X(1),1,25),$E(X(2),1,7),$E(X(3),1,1),DA)
Whole Kill: K ^PS(51.29,DA(1),1,"AG")
X(1): GENE (51.292,.01) (Subscr 1) (Len 25) (forwards)
X(2): EMAIL DATE (51.292,3) (Subscr 2) (Len 7) (forwards)
X(3): UNRESOLVED FLAG (51.292,2) (Subscr 3) (Len 1) (forwards)
AP (#1725) RECORD REGULAR IR SORTING ONLY
Short Descr: SORT BY GENE, PHENOTYPE, and EMAIL DATE
Description: This cross reference is used to check for when an email was sent on a certain date for a phenotype of a
specific gene that can't be used for pharmacogenomic order checks.
Set Logic: S ^PS(51.29,DA(1),1,"AP",$E(X(1),1,25),$E(X(2),1,70),$E(X(3),1,7),DA)=""
Set Cond: S X=$S(X(1)="":0,X(2)="":0,X(3)="":0,1:1)
Kill Logic: K ^PS(51.29,DA(1),1,"AP",$E(X(1),1,25),$E(X(2),1,70),$E(X(3),1,7),DA)
Whole Kill: K ^PS(51.29,DA(1),1,"AP")
X(1): GENE (51.292,.01) (Subscr 1) (Len 25) (forwards)
X(2): PHENOTYPE (51.292,1) (Subscr 2) (Len 70) (forwards)
X(3): EMAIL DATE (51.292,3) (Subscr 3) (Len 7) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):