Sub-Field: 50.065

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

Details

Field # Name Loc Type 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)`

FORMULARY ALTERNATIVE

0;1

POINTER TO DRUG FILE (#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)