Sub-Field: 801.04

Parent File	Name	Number	Package
REMINDER ORDER CHECK ITEMS GROUP(#801)	RULE LIST	801.04	PCE Patient Care Encounter

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RULE	0;1	POINTER TO REMINDER ORDER CHECK RULES FILE (#801.1)	**********************REQUIRED FIELD********************** REMINDER ORDER CHECK RULES(#801.1) 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)`

.01

RULE

0;1

POINTER TO REMINDER ORDER CHECK RULES FILE (#801.1)

************************REQUIRED FIELD************************

REMINDER ORDER CHECK RULES(#801.1)

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)

Customize PDF page

Package: PCE Patient Care Encounter

REMINDER ORDER CHECK ITEMS GROUP(#801)-->801.04

Sub-Field: 801.04

Information

Details