Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 801.04

Package: PCE Patient Care Encounter

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

Sub-Field: 801.04


Information

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
.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:  AOIR (#677) MUMPS IR ACTION WHOLE FILE (#801)
    Short Descr:  This xref add the rules to each orderable item.
    Description:  This cross-reference is used to to a create a lookup cross-reference by Orderable Item and Rule IEN.
    Set Logic:  D RULESAOI^PXRMORXR(.DA,.X)
    Set Cond:  S X=0 I +X(1)>0 S X=1
    Kill Logic:  D RULEKAOI^PXRMORXR(.DA,.X)
    Kill Cond:  S X=0 I X(1)'="" S X=1
    X(1):  RULE  (801.04,.01)  (forwards)
  • FIELD INDEX:  R (#681) 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 (#683) REGULAR IR LOOKUP & SORTING
    Unique for:  Key A (#59), 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)
Info |  Details |  All