STANDARD DATA DICTIONARY #801 -- REMINDER ORDER CHECK ITEMS GROUP FILE 3/24/25 PAGE 1
STORED IN ^PXD(801, (2 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of items that should have a reminder order check rule(s). The rule(s) attached to an Order Check Items
Group will only be evaluated when the pass in Orderable Item or Drug matches to at least one item the Order Check Items Group.
INDEXED BY: ITEM (AITEM), RULE (ARITEM), GROUP NAME (B), ITEM (O), ITEM (OCI), RULE (R)
LAST MODIFIED: JUN 24,2020@12:14:07
801,.01 GROUP NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:($L(X)>64)!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(.X)) X
LAST EDITED: APR 16, 2010
HELP-PROMPT: Answer must be 3-64 characters in length.
DESCRIPTION: This field is the name of the Reminder Orderable Item Group. Nationally distributed reminder
orderable items group names are prefixed with "VA-".
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FIELD INDEX: B (#1658) REGULAR IR LOOKUP & SORTING
Short Descr: B cross-reference
Description: This is the "B" cross-reference redone as a new style cross-reference.
Set Logic: S ^PXD(801,"B",$E(X,1,64),DA)=""
Kill Logic: K ^PXD(801,"B",$E(X,1,64),DA)
Whole Kill: K ^PXD(801,"B")
X(1): GROUP NAME (801,.01) (Subscr 1) (Len 64) (forwards)
801,10 DESCRIPTION 1;0 WORD-PROCESSING #801.01 (IGNORE "|")
DESCRIPTION: This field contains a description of the clinical reminder order checks. It is used to document its
purpose and intended goals.
LAST EDITED: JAN 11, 2010
801,15 ORDER CHECK ITEMS 1.5;0 VARIABLE POINTER Multiple #801.015
LAST EDITED: APR 19, 2016
DESCRIPTION: This multiple stores a list of VA Generic, VA Drug Class, Drugs, VA Product, Imaging Type, and
Orderable Item. If the ordered orderable item belongs to one of the items in this multiple than the
rules attached to the group will be evaluated.
INDEXED BY: ITEM (OCII)
801.015,.01 ITEM 0;1 VARIABLE POINTER (Multiply asked)
FILE ORDER PREFIX LAYGO MESSAGE
50 1 DR n DRUG
50.605 2 DC n VA DRUG CLASS
50.6 3 DG n VA GENERIC
79.2 10 RA n Imaging Type
101.43 15 OI n Orderable Items
50.68 4 DP n VA PRODUCT
SCREEN ON FILE 101.43: S DIC("S")="I $G(^ORD(101.43,Y,.1))="""""
SCREEN EXPLANATION: This screen will only allow selection of active orderable items
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: NOV 20, 2019
CROSS-REFERENCE: 801.015^B
1)= S ^PXD(801,DA(1),1.5,"B",$E(X,1,30),DA)=""
2)= K ^PXD(801,DA(1),1.5,"B",$E(X,1,30),DA)
3)= Required for Variable Pointer
FIELD INDEX: AITEM (#1656) MUMPS IR ACTION WHOLE FILE (#801)
Short Descr: Item List Index
Description: This cross-reference is used to update the AITEM cross-reference whenever an item is added or
deleted from/to an existing ORDER CHECK ITEMS GROUP that contains entries in the Rule List
multiple.
Set Logic: D ITEMSET^PXRMORXR(.DA,X)
Set Cond: S X=$S($D(^PXD(801,DA(1),3)):1,1:0)
Kill Logic: D ITEMKILL^PXRMORXR(.DA,X)
Kill Cond: S X=$S($D(^PXD(801,DA(1),3)):1,1:0)
Whole Kill: D ITEMKWH^PXRMORXR
X(1): ITEM (801.015,.01) (forwards)
FIELD INDEX: O (#1659) REGULAR IR LOOKUP & SORTING WHOLE FILE (#801)
Short Descr: This is a cross-reference by order check item.
Description: This allows for quick look up of items assigned to Reminder Order Check Groups.
Set Logic: S ^PXD(801,"O",X,DA(1),DA)=""
Kill Logic: K ^PXD(801,"O",X,DA(1),DA)
Whole Kill: K ^PXD(801,"O")
X(1): ITEM (801.015,.01) (Subscr 1) (forwards)
FIELD INDEX: OCI (#1660) REGULAR IR LOOKUP & SORTING WHOLE FILE (#801)
Short Descr: This cross-reference builds an index of Order Check Items
Description: This cross-reference build a list of items in Reminder Order Checks to be used by pharamcy
protocol events
Set Logic: S ^PXD(801,"OCI",X,DA(1),DA)=""
Kill Logic: K ^PXD(801,"OCI",X,DA(1),DA)
Whole Kill: K ^PXD(801,"OCI")
X(1): ITEM (801.015,.01) (Subscr 1) (forwards)
FIELD INDEX: OCII (#1662) MUMPS IR LOOKUP & SORTING
Short Descr: This cross-reference builds indexes of order check items for display.
Description: The 'OCIO' index is used by ScreenMan to get the display order. The 'OCIN' index provides an easy
way to get the display name.
Set Logic: D SOCII^PXRMOCG(.DA,X)
Kill Logic: D KOCII^PXRMOCG(.DA,X)
Whole Kill: K ^PXD(801,DA(1),1.5,"OCIN"),^PXD(801,DA(1),1.5,"OCIO")
X(1): ITEM (801.015,.01) (Subscr 1) (forwards)
801,30 RULE LIST 3;0 POINTER Multiple #801.04
LAST EDITED: JUL 07, 2009
DESCRIPTION: This multiple contains a list of rules that are evaluated for each item in the ORDER CHECK ITEMS
multiple.
PRIMARY KEY: A (#16)
Uniqueness Index: B (#1663)
File, Field: 1) RULE (801.04,.01)
INDEXED BY: RULE (B)
801.04,.01 RULE 0;1 POINTER TO REMINDER ORDER CHECK RULES FILE (#801.1) (Required) (Multiply asked)
(Key field)
INPUT TRANSFORM: S DIC("S")="I $$VRULESCR^PXRMOCG(Y,.DA)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: NOV 22, 2011
HELP-PROMPT: Answer must be 3-64 characters in length.
DESCRIPTION:
This is the IEN of the rule.
SCREEN: S DIC("S")="I $$VRULESCR^PXRMOCG(Y,.DA)"
EXPLANATION: National rules cannot be added to national groups
DELETE TEST: 1,0)= I $$VRULED^PXRMOCG(.DA)
LAYGO TEST: 1,0)= I $$VRULEA^PXRMOCG(X,.DA)
FIELD INDEX: ARITEM (#1657) MUMPS IR ACTION WHOLE FILE (#801)
Short Descr: This xref add the rules for quick look up.
Description: This cross-reference is used to create a lookup cross-reference by items in the ORDER CHECK ITEMS
multiple and the Rule IEN.
Set Logic: D RULESITM^PXRMORXR(.DA,.X)
Set Cond: S X=0 I +X(1)>0 S X=1
Kill Logic: D RULEKITM^PXRMORXR(.DA,.X)
Kill Cond: S X=0 I X(1)'="" S X=1
X(1): RULE (801.04,.01) (forwards)
FIELD INDEX: R (#1661) REGULAR IR LOOKUP & SORTING WHOLE FILE (#801)
Short Descr: This is a cross reference by order check rule IEN
Set Logic: S ^PXD(801,"R",X,DA(1),DA)=""
Kill Logic: K ^PXD(801,"R",X,DA(1),DA)
Whole Kill: K ^PXD(801,"R")
X(1): RULE (801.04,.01) (Subscr 1) (forwards)
FIELD INDEX: B (#1663) REGULAR IR LOOKUP & SORTING
Unique for: Key A (#16), File #801.04
Short Descr: Uniqueness Index for Key 'A' of Subfile #801.04
Set Logic: S ^PXD(801,DA(1),3,"B",X,DA)=""
Kill Logic: K ^PXD(801,DA(1),3,"B",X,DA)
Whole Kill: K ^PXD(801,DA(1),3,"B")
X(1): RULE (801.04,.01) (Subscr 1)
801,100 CLASS 100;1 SET (Required)
'L' FOR LOCAL;
'V' FOR VISN;
'N' FOR NATIONAL;
INPUT TRANSFORM: K:'$$VCLASS^PXRMINTR(X) X
LAST EDITED: NOV 01, 2011
HELP-PROMPT: Enter a class.
DESCRIPTION: This is the CLASS of the Orderable Item Group. Possible classes are "N" for national, "V" for VISN,
and "L" for local.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
801,101 SPONSOR 100;2 POINTER TO REMINDER SPONSOR FILE (#811.6)
LAST EDITED: JAN 25, 2010
HELP-PROMPT: Select the sponsor.
DESCRIPTION: This is the organization or group that sponsors this orderable item group.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
801,102 REVIEW DATE 100;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 25, 2010
HELP-PROMPT: Enter the date the order check group should be reviewed.
DESCRIPTION: The REVIEW DATE is used to determine when the orderable item group should be reviewed to verify
that it is current with the latest standards and guidelines.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
801,110 EDIT HISTORY 110;0 DATE Multiple #801.03 (Add New Entry without Asking)
DESCRIPTION: This multiple is used to record a history of changes made to the order check group.
801.03,.01 EDIT DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 01, 2012
HELP-PROMPT: Enter the date the record was edited (set by the system)
DESCRIPTION: This is the date and time when the editing was done. This field is set automatically and should
not be changed by the user.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 801.03^B
1)= S ^PXD(801,DA(1),110,"B",$E(X,1,30),DA)=""
2)= K ^PXD(801,DA(1),110,"B",$E(X,1,30),DA)
801.03,1 EDIT BY 0;2 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: FEB 01, 2012
HELP-PROMPT: Select the user who edited the record (set by the system)
DESCRIPTION: This is the person who did the editing. This field is set automatically and should not be changed
by the user.
801.03,2 EDIT COMMENTS 1;0 WORD-PROCESSING #801.32 (IGNORE "|")
DESCRIPTION: This word-processing field can be used to record the changes made during the editing session.
LAST EDITED: JUL 02, 2009
DESCRIPTION: This word-processing field can be used to record the changes made during the editing session.
FILES POINTED TO FIELDS
NEW PERSON (#200) EDIT HISTORY:EDIT BY (#1)
REMINDER ORDER CHECK RULES
(#801.1) RULE LIST:RULE (#.01)
REMINDER SPONSOR (#811.6) SPONSOR (#101)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
PXRM ORDER CHECK ITEMS GROUP DEC 09, 2014@12:24 USER #0 REMINDER ORDERABLE ITEM GROUP
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):
PXRM OCG EDIT OCT 31, 2011@11:49 USER #0
PXRM OCG MAIN BLOCK DD #801
PXRM OCG ORDER CHECK ITEM LISTDD #801.015
PXRM OCG ORDER CHECK ITEMS CAPDD #801
PXRM OCG RULE LIST DD #801.04
PXRM OCG RULE LIST CAPTION DD #801
PXRM OCG EDIT HISTORY NOV 10, 2011@12:59 USER #0
PXRM OCG EDIT HISTORY DD #801.03
PXRM OCG EDIT RESTRICTED NOV 02, 2011@15:02 USER #0
PXRM OCG RESTRICTED EDIT DD #801
PXRM OCG ORDER CHECK ITEM LISTDD #801.015
PXRM OCG ORDER CHECK ITEMS CAPDD #801
PXRM OCG ORDERABLE ITEM LIST DD #801.02
PXRM OCG ORDERABLE ITEM CAP DD #801
PXRM OCG RULE LIST CAPTION DD #801
PXRM OCG RULE LIST RESTRICTED DD #801.04