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

Package: PCE Patient Care Encounter

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

Sub-Field: 801.015


Information

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

Details

Field # Name Loc Type Details
.01 PHARMACY ITEM 0;1 VARIABLE POINTER DRUG(#50)  VA DRUG CLASS(#50.605)  VA GENERIC(#50.6)  

  • OUTPUT TRANSFORM:  S Y=$$PIOT^PXRMOCG(.DA,Y)
  • LAST EDITED:  FEB 02, 2012
  • 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:  ADRUGR (#675) MUMPS IR ACTION WHOLE FILE (#801)
    Short Descr:  Pharmacy Item Index
    Description:  This cross-reference is used to update the ADRUGR cross-reference whenever a  pharmacy item is added or deleted from an existing Orderable Item Group that contains entries in the  Rule List multiple.
    Set Logic:  D DRUGSET^PXRMORXR(.DA,X)
    Set Cond:  S X=$S($D(^PXD(801,DA(1),3)):1,1:0)
    Kill Logic:  D DRUGKILL^PXRMORXR(.DA,X)
    Kill Cond:  S X=$S($D(^PXD(801,DA(1),3)):1,1:0)
    Whole Kill:  D DRUGKWH^PXRMORXR
    X(1):  PHARMACY ITEM  (801.015,.01)  (forwards)
  • FIELD INDEX:  P (#680) REGULAR IR LOOKUP & SORTING WHOLE FILE (#801)
    Short Descr:  This is a cross-reference by pharmacy item.
    Set Logic:  S ^PXD(801,"P",X,DA(1),DA)=""
    Kill Logic:  K ^PXD(801,"P",X,DA(1),DA)
    Whole Kill:  K ^PXD(801,"P")
    X(1):  PHARMACY ITEM  (801.015,.01)  (Subscr 1)  (forwards)
  • FIELD INDEX:  PID (#682) MUMPS IR LOOKUP & SORTING
    Short Descr:  This index builds a formatted list of pharmacy items for display purposes.
    Description:  The 'PIDO' index is used by ScreenMan to get the display order. The 'PIDN' index provides an easy way to get the display name.
    Set Logic:  D SPID^PXRMOCG(.DA,X)
    Kill Logic:  D KPID^PXRMOCG(.DA,X)
    Whole Kill:  K ^PXD(801,DA(1),1.5,"PIDN"),^PXD(801,DA(1),1.5,"PIDO")
    X(1):  PHARMACY ITEM  (801.015,.01)  (forwards)







    



Info | 
Details | 
All