INPUT TRANSFORM: S DIC("S")="N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""^"",2) I $S('ZC:1,1:ZC>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 18, 2005
HELP-PROMPT: This field is used to associate entries from the DRUG TEXT File (#51.7) with Pharmacy Orderable Items. This information will be seen in CPRS and Pharmacy during the medication order entry process.
DESCRIPTION: This is a pointer to the DRUG TEXT File (#51.7). This file contains such information as drug restrictions, guidelines and protocols to help assure that medications are being used according to formulary specifications.
This information will be seen in CPRS and Pharmacy, when a medication order is placed for the Pharmacy Orderable Item. New entries to the DRUG TEXT File (#51.7) must be made through the Drug Text Enter/Edit [PSS EDIT
TEXT] option.
SCREEN: S DIC("S")="N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""^"",2) I $S('ZC:1,1:ZC>DT)"
EXPLANATION: Only active entries may be selected.
CROSS-REFERENCE: 50.76^B
1)= S ^PS(50.7,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(50.7,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 50.7^DTXT
1)= S ^PS(50.7,"DTXT",$E(X,1,30),DA(1),DA)=""
2)= K ^PS(50.7,"DTXT",$E(X,1,30),DA(1),DA)
3)= Do Not Delete
This is used to lookup Drug Text entries linked to Orderable Item.