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: 50.065

Package: Pharmacy Data Management

DRUG(#50)-->50.065

Sub-Field: 50.065


Information

Parent File Name Number Package
DRUG(#50) FORMULARY ALTERNATIVE 50.065 Pharmacy Data Management

Details

Field # Name Loc Type Details
.01 FORMULARY ALTERNATIVE 0;1 POINTER TO DRUG FILE (#50) DRUG(#50)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),""^"",9) S X(1)=$G(^(""I"")) I $S('X(1):1,1:X(1)>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 28, 1991
  • HELP-PROMPT:  ENTER A FORMULARY DRUG AS AN ALTERNATIVE TO THIS N0N-FORMULARY DRUG.
  • DESCRIPTION:  
    This is a formulary alternative for this non-formulary drug.  Any formulary alternatives entered are shown to non-pharmacists whenever they attempt to order this non-formulary drug.
  • SCREEN:  S DIC("S")="I '$P(^(0),""^"",9) S X(1)=$G(^(""I"")) I $S('X(1):1,1:X(1)>DT)"
  • EXPLANATION:  Alternative must be formulary and active.
  • EXECUTABLE HELP:  D NFH^PSSDDUT2
  • GROUP:  psj
  • CROSS-REFERENCE:  50.065^B
    1)= S ^PSDRUG(DA(1),65,"B",$E(X,1,30),DA)=""
    2)= K ^PSDRUG(DA(1),65,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  50^AFA^MUMPS
    1)= S ^PSDRUG("AFA",X,DA(1))=""
    2)= K ^PSDRUG("AFA",X,DA(1))
    3)= Referenced when editing the NON-FORMULARY field.
    Used by the NON-FORMULARY field.  A drug cannot be made non-formulary if it is a formulary alternative for another drug.  In the form of: ^PSDRUG("AFA",Formulary Alternative ptr.,DA)
Info |  Details |  All