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.02

Package: PCE Patient Care Encounter

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

Sub-Field: 801.02


Information

Parent File Name Number Package
REMINDER ORDER CHECK ITEMS GROUP(#801) ORDERABLE ITEM LIST 801.02 PCE Patient Care Encounter

Details

Field # Name Loc Type Details
.01 ORDERABLE ITEM 0;1 POINTER TO ORDERABLE ITEMS FILE (#101.43) ORDERABLE ITEMS(#101.43)

  • INPUT TRANSFORM:  S DIC("S")="I $G(^ORD(101.43,Y,.1))=""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  APR 16, 2010
  • HELP-PROMPT:  Select an orderable item to add to the group.
  • SCREEN:  S DIC("S")="I $G(^ORD(101.43,Y,.1))="""""
  • EXPLANATION:  This screen will only allow selection of active orderable items
  • CROSS-REFERENCE:  801.02^B
    1)= S ^PXD(801,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^PXD(801,DA(1),2,"B",$E(X,1,30),DA)
  • FIELD INDEX:  AOI (#676) MUMPS IR ACTION WHOLE FILE (#801)
    Short Descr:  ORDERABLE ITEM
    Description:  This cross-reference is used to update the AOIR cross-reference whenever an orderable item is added or deleted from an existing Orderable Item Group that contains entries in the Rule List multiple.
    Set Logic:  D OISAOI^PXRMORXR(.DA,X)
    Set Cond:  S X=$S($D(^PXD(801,DA(1),3)):1,1:0)
    Kill Logic:  D OIKAOI^PXRMORXR(.DA,X)
    Kill Cond:  S X=$S($D(^PXD(801,DA(1),3)):1,1:0)
    X(1):  ORDERABLE ITEM  (801.02,.01)  (forwards)
  • FIELD INDEX:  O (#679)    REGULAR    IR    LOOKUP & SORTING    WHOLE FILE (#801)
    Short Descr:  This is a cross reference by orderable item
    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):  ORDERABLE ITEM  (801.02,.01)  (Subscr 1)  (forwards)







    



Info | 
Details | 
All