STANDARD DATA DICTIONARY #50 -- DRUG FILE 3/24/25 PAGE 1
STORED IN ^PSDRUG( *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the information related to each drug that can be used to fill a prescription. It is pointed to from several other
files and should be handled carefully, usually only by special individuals in the pharmacy service. Entries are not typically
deleted, but rather made inactive by entering an inactive date.
This file must be built by Pharmacy Service BEFORE going on-line. It is common to use another centers file and edit it to match
your center's unique formulary.
DD ACCESS: @
APPLICATION GROUP(S): PS
IDENTIFIED BY: VA CLASSIFICATION (#2), FSN (#6), NATIONAL DRUG CLASS (#25), LOCAL NON-FORMULARY (#51), INACTIVE DATE (#100),
MESSAGE (#101), RESTRICTION (#102)
POINTED TO BY: CORRESPONDING OUTPATIENT DRUG field (#62.05) of the DRUG File (#50)
CORRESPONDING INPATIENT DRUG field (#905) of the DRUG File (#50)
FORMULARY ALTERNATIVE field (#.01) of the FORMULARY ALTERNATIVE sub-field (#50.065) of the DRUG File (#50)
DRUG field (#.01) of the DRUG sub-field (#50.07301) of the DUE QUESTIONNAIRE File (#50.073)
DRUG field (#2) of the DUE ANSWER SHEET File (#50.0731)
GENERIC DRUG field (#1) of the IV DRUG sub-field (#50.21) of the IV CATEGORY File (#50.2)
DRUG field (#.01) of the DRUG sub-field (#50.9002) of the PHYSICIAN DATA sub-field (#50.9001) of the DRUG COST File
(#50.9)
DRUG field (#.01) of the DRUG DATA sub-field (#50.9003) of the DRUG COST File (#50.9)
DRUG field (#.01) of the DRUG DATA sub-field (#50.9007) of the DIVISION DATA sub-field (#50.9006) of the DRUG COST
File (#50.9)
DRUG(S) FOR DOSING CHK FREQ field (#.01) of the DRUG(S) FOR DOSING CHK FREQ sub-field (#51.111) of the
ADMINISTRATION SCHEDULE File (#51.1)
DRUG(S) FOR DOSING CHK FREQ field (#.01) of the DRUG(S) FOR DOSING CHK FREQ sub-field (#51.321) of the MEDICATION
INSTRUCTION File (#51)
DRUG field (#6) of the PRESCRIPTION File (#52)
LOCAL (MATCHED) DRUG field (#1.1) of the REMOTE PRESCRIPTION LOG File (#52.09)
DRUG field (#11) of the PENDING OUTPATIENT ORDERS File (#52.41)
MATCHED DRUG/SUPPLY field (#3.2) of the ERX HOLDING QUEUE File (#52.49)
DRUG IEN field (#.03) of the MEDICATION DISPENSED/REQUESTED sub-field (#52.4949) of the ERX HOLDING QUEUE File
(#52.49)
GENERIC DRUG field (#1) of the IV ADDITIVES File (#52.6)
GENERIC DRUG field (#1) of the IV SOLUTIONS File (#52.7)
DRUG field (#7) of the PSO AUDIT LOG File (#52.87)
SOLUTION field (#24) of the NON-VERIFIED ORDERS File (#53.1)
DISPENSE DRUG field (#.01) of the DISPENSE DRUG sub-field (#53.11) of the NON-VERIFIED ORDERS File (#53.1)
*DISPENSE DRUG field (#.01) of the *DISPENSE DRUG sub-field (#53.2102) of the *DRUG sub-field (#53.21) of the UNIT
DOSE ORDER SET File (#53.2)
DISPENSE DRUG field (#.01) of the DISPENSE DRUG sub-field (#53.23) of the ORDERABLE ITEM sub-field (#53.22) of the
UNIT DOSE ORDER SET File (#53.2)
DISPENSE DRUG field (#.01) of the DISPENSE DRUG sub-field (#53.4502) of the INPATIENT USER PARAMETERS File (#53.45)
DRUG REQUESTED field (#.13) of the BCMA MISSING DOSE REQUEST File (#53.68)
DISPENSE DRUG field (#.01) of the DISPENSE DRUG sub-field (#53.771) of the BCMA UNABLE TO SCAN LOG File (#53.77)
DISPENSE DRUG field (#.01) of the DISPENSE DRUG sub-field (#53.795) of the BCMA MEDICATION LOG File (#53.79)
DISPENSE DRUG field (#1) of the NON-VA MEDS sub-field (#55.05) of the PHARMACY PATIENT File (#55)
*SOLUTION field (#24) of the UNIT DOSE sub-field (#55.06) of the PHARMACY PATIENT File (#55)
DISPENSE DRUG field (#.02) of the DISPENSE LOG sub-field (#55.0611) of the UNIT DOSE sub-field (#55.06) of the
PHARMACY PATIENT File (#55)
DISPENSE DRUG field (#.01) of the DISPENSE DRUG sub-field (#55.07) of the UNIT DOSE sub-field (#55.06) of the
PHARMACY PATIENT File (#55)
DRUG field (#.01) of the DRUG sub-field (#57.63) of the PROVIDER sub-field (#57.62) of the WARD sub-field (#57.61)
of the UNIT DOSE PICK LIST STATS File (#57.6)
ITEM field (#.01) of the ITEM sub-field (#58.11) of the PHARMACY AOU STOCK File (#58.1)
ITEM field (#.01) of the PHARMACY BACKORDER File (#58.3)
DRUG field (#.01) of the RETURN ITEM sub-field (#58.3511) of the RETURN BATCH sub-field (#58.351) of the RETURN DRUG
File (#58.35)
DRUG field (#.01) of the RECALCULATE AMIS sub-field (#58.52) of the INPATIENT SITE sub-field (#58.501) of the AR/WS
STATS FILE File (#58.5)
DRUG field (#2) of the PADE INBOUND TRANSACTIONS File (#58.6)
DRUG (DEVICE) field (#.01) of the DRUG (DEVICE) sub-field (#58.60111) of the DISPENSING DEVICE sub-field (#58.6011)
of the PADE INVENTORY SYSTEM File (#58.601)
DRUG (DRAWER) field (#.01) of the DRUG (DRAWER) sub-field (#58.601121) of the DRAWER sub-field (#58.60112) of the
DISPENSING DEVICE sub-field (#58.6011) of the PADE INVENTORY SYSTEM File (#58.601)
DRUG (POCKET) field (#1) of the POCKET/SUBDRAWER ID sub-field (#58.601122) of the DRAWER sub-field (#58.60112) of
the DISPENSING DEVICE sub-field (#58.6011) of the PADE INVENTORY SYSTEM File (#58.601)
DRUG field (#14) of the PADE OUTBOUND MESSAGES File (#58.72)
DRUG field (#.01) of the DRUG sub-field (#58.8001) of the DRUG ACCOUNTABILITY STATS File (#58.8)
DRUG field (#4) of the DRUG ACCOUNTABILITY TRANSACTION File (#58.81)
DRUG field (#1) of the LINE ITEM DATA sub-field (#58.81125) of the INVOICE DATA sub-field (#58.8112) of the DRUG
ACCOUNTABILITY ORDER File (#58.811)
DRUG field (#3) of the CS WORKSHEET File (#58.85)
DRUG field (#1) of the CS DESTRUCTION File (#58.86)
PRICE PER DISPENSE UNIT field (#19) of the CS DESTRUCTION File (#58.86)
DRUG field (#4) of the CS CORRECTION LOG File (#58.87)
METHADONE DRUG field (#.52) of the OUTPATIENT SITE File (#59)
LAST DRUG CONVERTED field (#10.1) of the PHARMACY SYSTEM File (#59.7)
LAST DRUG LINKED field (#70) of the PHARMACY SYSTEM File (#59.7)
MED ADMINISTERED field (#.01) of the MEDICATIONS sub-field (#70.15) of the EXAMINATIONS sub-field (#70.03) of the
REGISTERED EXAMS sub-field (#70.02) of the RAD/NUC MED PATIENT File (#70)
RADIOPHARMACEUTICAL field (#.01) of the RADIOPHARMACEUTICALS sub-field (#70.21) of the NUC MED EXAM DATA File
(#70.2)
DEFAULT MEDICATION field (#.01) of the DEFAULT MEDICATIONS sub-field (#71.055) of the RAD/NUC MED PROCEDURES File
(#71)
DEFAULT RADIOPHARMACEUTICAL field (#.01) of the DEFAULT RADIOPHARMACEUTICALS sub-field (#71.08) of the RAD/NUC MED
PROCEDURES File (#71)
DEFAULT RADIOPHARMACEUTICALS field (#.01) of the DEFAULT RADIOPHARMACEUTICALS sub-field (#71.1108) of the NEW RAD
PROCEDURE WORKUP File (#71.11)
DEFAULT MEDICATION field (#.01) of the DEFAULT MEDICATIONS sub-field (#71.1155) of the NEW RAD PROCEDURE WORKUP File
(#71.11)
RADIOPHARM field (#5) of the RADIOPHARMACEUTICAL LOT File (#71.9)
DISPENSE DRUG field (#.01) of the DISPENSE DRUGS sub-field (#100.06) of the ORDER CHECK INSTANCES File (#100.05)
NAME field (#.01) of the ORDER STATISTICS File (#100.1)
CAUSATIVE AGENT field (#2) of the DRUG ALLERGIES sub-field (#100.517) of the ORDER CHECK INSTANCES File (#100.05)
DISPENSE DRUG field (#29) of the ORDER DEA ARCHIVE INFO File (#101.52)
GMR ALLERGY field (#1) of the PATIENT ALLERGIES File (#120.8)
MEDICATIONS field (#.01) of the MEDICATIONS sub-field (#130.33) of the SURGERY File (#130)
ANESTHESIA AGENTS field (#.01) of the ANESTHESIA AGENTS sub-field (#130.47) of the ANESTHESIA TECHNIQUE sub-field
(#130.06) of the SURGERY File (#130)
TEST DOSE field (#.01) of the TEST DOSE sub-field (#130.48) of the ANESTHESIA TECHNIQUE sub-field (#130.06) of the
SURGERY File (#130)
DRUG NAME field (#.01) of the PHARMACY ITEMS File (#131.06)
GENERIC DRUG field (#9) of the PRESCRIPTION NUMBER sub-field (#162.11) of the FEE BASIS PHARMACY INVOICE File
(#162.1)
DRUG field (#4.01) of the TRANSFER PRICING TRANSACTIONS File (#351.61)
DRUG field (#.03) of the CLAIMS TRACKING ROI File (#356.25)
DRUG field (#.04) of the IB BILL/CLAIMS PRESCRIPTION REFILL File (#362.4)
MEDICATIONS field (#.01) of the MEDICATIONS sub-field (#615.23) of the SECLUSION/RESTRAINT File (#615.2)
GENERIC NAME field (#.01) of the MEDICATION File (#695)
MEDICATIONS field (#.01) of the MEDICATIONS sub-field (#699.53) of the GENERALIZED PROCEDURE/CONSULT File (#699.5)
PRESCRIPTION GIVEN field (#.01) of the PRESCRIPTION GIVEN sub-field (#699.74) of the ENDOSCOPY/CONSULT File (#699)
PLACEHOLDER field (#62) of the UNIT DOSE LOCAL EXTRACT File (#727.809)
PLACEHOLDER field (#67) of the IV DETAIL EXTRACT File (#727.819)
DRUG field (#3) of the IV EXTRACT DATA File (#728.113)
DRUG field (#3) of the UNIT DOSE EXTRACT DATA File (#728.904)
LOCAL DRUG NAME field (#.01) of the LOCAL DRUG NAME sub-field (#798.129) of the ROR REGISTRY PARAMETERS File
(#798.1)
ITEM field (#.01) of the ORDER CHECK ITEMS sub-field (#801.015) of the REMINDER ORDER CHECK ITEMS GROUP File (#801)
FINDING ITEM field (#.02) of the REMINDER FINDING ITEM PARAMETER File (#801.43)
FINDING ITEM field (#.04) of the EXTRACT FINDINGS sub-field (#810.31) of the REMINDER EXTRACT SUMMARY File (#810.3)
FINDING ITEM field (#.01) of the LREPI FINDING TOTALS sub-field (#810.32) of the REMINDER EXTRACT SUMMARY File
(#810.3)
FINDING ITEM field (#.01) of the FINDINGS sub-field (#811.52) of the REMINDER TERM File (#811.5)
FINDING ITEM field (#.01) of the FINDINGS sub-field (#811.902) of the REMINDER DEFINITION File (#811.9)
DRUG field (#.05) of the APSP INTERVENTION File (#9009032.4)
CROSS
REFERENCED BY: ITEM NUMBER(AB), GENERIC NAME(AC), VA CLASSIFICATION(AC), MONITOR ROUTINE(ACLOZ), INACTIVE DATE(AD),
PHARMACY ORDERABLE ITEM(AE), EXPIRATION DATE(AEXP), DEA, SPECIAL HDLG(AF), FORMULARY ALTERNATIVE(AFA),
CMOP DISPENSE(AG), STRENGTH(AH), INACTIVE DATE(AI), APPLICATION PACKAGES' USE(AIU), GENERIC NAME(AIUU),
LOCAL NON-FORMULARY(AJ), GENERIC NAME(AK), NATIONAL DRUG FILE ENTRY(AND), VA CLASSIFICATION(AOCC),
*PRIMARY DRUG(AP), *PRIMARY DRUG(APC), VA CLASSIFICATION(APCC), *PRIMARY DRUG(APN),
NATIONAL DRUG FILE ENTRY(APN1), PSNDF VA PRODUCT NAME ENTRY(APN2), PSNDF VA PRODUCT NAME ENTRY(APR),
CMOP DISPENSE(AQ), CMOP ID(AQ1), OP EXTERNAL DISPENSE(AQ2), INACTIVE DATE(AR), PHARMACY ORDERABLE ITEM(ASP),
GENERIC NAME(AUDAP), VSN(AVSN), GENERIC NAME(B), SYNONYM(C), DRUG TEXT ENTRY(DTXT),
DISPENSE UNITS PER ORDER UNIT(DUO), APPLICATION PACKAGES' USE(IU), NDC(NDC), PRICE PER ORDER UNIT(PRC),
NATIONAL DRUG CLASS(VAC), VA PRODUCT NAME(VAPN), ATC MNEMONIC(XATC)
INDEXED BY: PHARMACY ORDERABLE ITEM & VA CLASSIFICATION (AOC)
LAST MODIFIED: AUG 22,2024@15:16:58
50,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
DESCRIPTION:
This field contains the internal record number of the drug.
GROUP: PS
50,.01 GENERIC NAME 0;1 FREE TEXT (Required) (audited)
INPUT TRANSFORM: D ^PSSGENM
LAST EDITED: OCT 19, 2000
HELP-PROMPT: Answer must be 1-40 characters in length. GENERIC NAME cannot be edited if entry marked for CMOP.
DESCRIPTION: This is the generic name of the drug. In addition, if this entry is marked for CMOP transmission,
the generic name cannot be edited unless it is UNmarked for CMOP transmission first.
AUDIT: YES, ALWAYS
DELETE TEST: .01,0)= I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED!","","!?10")
100,0)= I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED!","","!?10")
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50^B
1)= S ^PSDRUG("B",$E(X,1,40),DA)=""
2)= K ^PSDRUG("B",$E(X,1,40),DA)
CROSS-REFERENCE: 50^AC^MUMPS
1)= Q
2)= F PSI=1:1 I '$D(^PSDRUG(DA,900,PSI)) S ^PSDRUG(DA,900,PSI,0)=X_"^"_DT Q
3)= Do Not Delete!
This xref is used to update the Old Names field (#900). It is in the form of:
^PSDRUG(DA,900,IEN,0)
CROSS-REFERENCE: 50^AUDAP^MUMPS
1)= I '$D(PSGINITF) S ^PSDRUG("AUDAP")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
1.1)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$P(Y(1),U,1) S XMB(1)=X
1.2)= S X=Y(0) S Y(2)=$C(59)_$S($D(^DD(50,51,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PSDRUG(D0,0)):^(0),
1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_":",2),$C(59),1) S XMB(2)=X
1.3)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$S('$D(^PS(50.5,+$P(Y(1),U,2),0)):"",1:$P
(^(0),U,1)) S XMB(3)=X
1.4)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$P(Y(1),U,10) S XMB(4)=X
2)= Q
2.2)= S X=Y(0) S Y(2)=$C(59)_$S($D(^DD(50,51,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PSDRUG(D0,0)):^(0),
1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_":",2),$C(59),1) S XMB(2)=X
2.3)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$S('$D(^PS(50.5,+$P(Y(1),U,2),0)):"",1:$P
(^(0),U,1)) S XMB(3)=X
2.4)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$P(Y(1),U,10) S XMB(4)=X
3)= Used by the Unit Dose/Inpatient Medications packages.
CREATE PARAMETER #1)= GENERIC NAME
CREATE PARAMETER #2)= NON-FORMULARY
CREATE PARAMETER #3)= CLASSIFICATION
CREATE PARAMETER #4)= MESSAGE
CREATE VALUE)= PSZDRUGCHANGE
DELETE PARAMETER #1)= OLD GENERIC NAME
DELETE PARAMETER #2)= NON-FORMULARY
DELETE PARAMETER #3)= CLASSIFICATION
DELETE PARAMETER #4)= MESSAGE
DELETE VALUE)= PSZDRUGCHANGE
This is used by the post-init process of the Unit Dose/Inpatient Medication packages' inits. If
this is not set, the post-init process will mark every entry for use with Inpatient Medications
package through the APPLICATION PACKAGES' USE field. In the form of: ^PSDRUG("AUDAP")
CROSS-REFERENCE: 50^AIUU^MUMPS
1)= I $D(X),$P($G(^PSDRUG(DA,2)),"^",3)]"" F Y(2)=1:1:$L($P(^PSDRUG(DA,2),"^",3)) S ^PSDRUG("AIU"_$
E($P(^PSDRUG(DA,2),"^",3),Y(2)),X,DA)=""
2)= I $D(X),$P($G(^PSDRUG(DA,2)),"^",3)]"" F Y(2)=1:1:$L($P(^PSDRUG(DA,2),"^",3)) K ^PSDRUG("AIU"_$
E($P(^PSDRUG(DA,2),"^",3),Y(2)),X,DA)
3)= This xref is used to update the 'AIU' xref.
This xref is used to keep the AIU xref in sync when the drug name is edited. It is in the form of:
^PSDRUG("AIU"_$P(^PSDRUG(DA,2),"^",3),Y(2),DA)
CROSS-REFERENCE: 50^AK^MUMPS
1)= Q
2)= Q
This cross reference is a place holder. A cross reference is being set in the form of
^PSDRUG("A526",Dispense Drug IEN,IV Additive IEN)="". This is being set from the Generic Drug field
(#1) of the IV ADDITIVES file (#52.6). Another cross reference is being set in the form of
^PSDRUG("A527",Dispense Drug IEN, IV Solution IEN)="". This is being set from the Generic Drug
field (#1) of the IV SOLUTIONS file (#52.7). This data will be used to maintain the Pharmacy
Orderable Items when changes are made in other files that point to the PHARMACY ORDERABLE ITEM file
(#50.7).
50,1 AHFS NUMBER ; COMPUTED
MUMPS CODE: S X=$P(^PSDRUG(D0,0),U,2),X=$J(X/100,7,2),X=$E(X,1,2)_":"_$E(X,3,7)
ALGORITHM: S X=$P(^PSDRUG(D0,0),U,2)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,2 VA CLASSIFICATION 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)<1!($L(X)>5) X I $D(X) K:$S($D(^PSDRUG(DA,"ND")):+^("ND"),1:0)
X W:'$D(X) " Uneditable" Q:'$D(X) S DIC="^PS(50.605,",DIC(0)="EQM" D ^DIC K:Y<0 X S:Y>0 X=$P(Y,
"^",2)
LAST EDITED: JAN 22, 2019
HELP-PROMPT: Enter the VA Classification.
DESCRIPTION:
This is the VA classification for this drug.
TECHNICAL DESCR:
free text
EXECUTABLE HELP: S DIC="^PS(50.605,",DIC(0)="EQM" D ^DIC
DELETE TEST: 2,0)= I $D(^PSDRUG(DA,"ND")) D EN^DDIOL("Deletions are not allowed")
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the NATIONAL DRUG CLASS field of the DRUG File
CROSS-REFERENCE: 50^AC^MUMPS
1)= S X=$O(^PS(50.605,"B",X,0)),$P(^PSDRUG(DA,"ND"),"^",6)=X,^PSDRUG("VAC",X,DA)=""
2)= I $D(^PSDRUG(DA,"ND")) S X=+$P(^PSDRUG(DA,"ND"),"^",6) K:X ^PSDRUG("VAC",X,DA) K:$P(^PSDRUG(DA,
"ND"),"^",2)="" ^PSDRUG(DA,"ND")
3)= SPECIAL CROSS-REFERENCE - DO NOT DELETE.
This cross-reference stores the resolved pointer value from Field 25 (NATIONAL DRUG CLASS) which
points to File 50.605. It is in the form of: ^PSDRUG("VAC",X,DA)
CROSS-REFERENCE: 50^APCC^MUMPS
1)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) S:X(1) ^PSDRUG("APC",X(1),X,DA)=""
2)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) K:X(1) ^PSDRUG("APC",X(1),X,DA)
3)= Do not Delete!
This cross reference is used as a link between Primary Drug and VA Class.
It is in the form of: ^PSDRUG("APC",X(1),X,DA)
CROSS-REFERENCE: 50^AOCC^MUMPS
1)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",1) S:X(1) ^PSDRUG("AOC",X(1),X,DA)=""
2)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",1) K:X(1) ^PSDRUG("AOC",X(1),X,DA)
3)= Do not Delete!
This cross reference is used as a link between Pharmacy Orderable Item
and VA Classification. Cross-reference created: ^PSDRUG("AOC",X(1),X,DA)
X(1) => Orderable Item (IEN)
X => VA Classification
DA => Dispense Drug (IEN)
RECORD INDEXES: AOC (#38)
50,2.1 PHARMACY ORDERABLE ITEM 2;1 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7)
INPUT TRANSFORM: I $D(X) N ND S ND=$G(^PSDRUG(DA,"ND")) I +ND,+$P(ND,"^",3),+$$PSJDF^PSNAPIS(0,$P(ND,"^",3))'=$P(^PS
(50.7,X,0),"^",2) K X
LAST EDITED: OCT 18, 2000
HELP-PROMPT: Enter a PHARMACY ORDERABLE ITEM to tie this drug to.
DESCRIPTION:
Name used by ORDER ENTRY/RESULTS REPORTING.
TECHNICAL DESCR:
Points to file #50.7.
GROUP: PSO
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50^ASP
1)= S ^PSDRUG("ASP",$E(X,1,30),DA)=""
2)= K ^PSDRUG("ASP",$E(X,1,30),DA)
3)= Do not delete
Cross-reference to PHARMACY ORDERABLE ITEM file #50.7.
CROSS-REFERENCE: 50^AE^MUMPS
1)= D SET1^PSSPOID1
2)= D KILL1^PSSPOID1
3)= (Do Not Delete)
This cross reference is used to update the Pharmacy Orderable Item pointer field (#15) in the IV
ADDITIVES file (#52.6) and the Pharmacy Orderable Item pointer field (#9) in the IV SOLUTIONS file
(#52.7), for IV Additives and IV Solutions that are matched to this Drug by the Generic Drug
pointer field (#1) in each of these files. Pharmacy Orderable Item pointers in these two files must
be the same as the Pharmacy Orderable Item pointer for the Drug that the IV Additive or IV Solution
is matched to. This cross reference is also used to keep the Pharmacy Orderable Item entries in the
PHARMACY ORDERABLE ITEM file (#50.7) up to date with current information, based on all active
Drugs, IV Additives, and IV Solutions that are matched to the Pharmacy Orderable Item. This
information includes Inactivation Date status, Non-Formulary status, Supply status, and Usage
status. This information is also sent to CPRS (Computerized Patient Record System) by using the "PS
MFSEND OR" protocol to update the corresponding Orderable Item entry in the ORDERABLE ITEMS file
(#101.43). The cross references that are set and killed are: ^PS(50.7,"A50",Pharmacy Orderable Item
IEN,Dispense Drug IEN)="", ^PS(52.6,"AOI",Pharmacy Orderable Item IEN,IV Additive IEN)="",
^PS(52.7,"AOI",Pharmacy Orderable Item IEN,IV Solution IEN)="".
RECORD INDEXES: AOC (#38)
50,3 DEA, SPECIAL HDLG 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1)!'(X?.N.U) X D EDIT^PSSDDUT2:$D(X)
LAST EDITED: MAY 01, 2007
HELP-PROMPT: ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
DESCRIPTION:
This field is used to show the DEA Special Handling .
TECHNICAL DESCR:
free text
EXECUTABLE HELP: D:X="?" DEA^PSSDDUT2 D:X?2."?" DEATBL^PSSDDUT2
GROUP: PSO
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50^AF^MUMPS
1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSP
OIDT K PSSCROSS Q
2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSP
OIDT K PSSCROSS Q
3)= (Do Not Delete)
This cross reference is used to keep the Pharmacy Orderable Item entry in the PHARMACY ORDERABLE
ITEM file (#50.7) up to date with current information, based on all active Drugs, IV Additives, and
IV Solutions that are matched to the Pharmacy Orderable Item. This information includes
Inactivation Date status, Non-Formulary status, Supply status, and Usage status. This information
is also sent to CPRS (Computerized Patient Record System) by using the "PS MFSEND OR" protocol to
update the corresponding Orderable Item entry in the ORDERABLE ITEMS file (#101.43).
50,4 MAXIMUM DOSE PER DAY 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X
LAST EDITED: OCT 18, 1989
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999
DESCRIPTION:
This field is used as a standard maximum dosage.
TECHNICAL DESCR:
numeric
GROUP: PS
50,5 STANDARD SIG 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<2) X D:$D(X) SIG^PSSDDUT2 D:$D(X) EN^DDIOL(" "_"("_$G(SIG)_" )","","?0") K Z0,Z1
,SIG
9.2 =
9.3 =
LAST EDITED: JUN 26, 1997
HELP-PROMPT: ANSWER MUST BE 2-60 CHARACTERS IN LENGTH
DESCRIPTION:
This field is used as a standard default for medication instructions.
TECHNICAL DESCR:
free text
EXECUTABLE HELP: S DIC=51,DIC(0)="Q" D ^DIC S DIC=DIE
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,6 FSN 0;6 FREE TEXT
FEDERAL STOCK NUMBER
INPUT TRANSFORM: K:$L(X)>20!($L(X)<5) X
HELP-PROMPT: Answer must be 5-20 characters in length.
DESCRIPTION:
This is the federal stock number of this drug.
GROUP: PS
50,8 WARNING LABEL 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1)!'(X?.NP) X D:$D(X) DRUGW^PSSDDUT2 K Z0,Z1
9.2 = F Z0=1:1 Q:$P(X,",",Z0,99)="" S Z1=$P(X,",",Z0) W:$D(^PS(54,Z1,0)) ?35,$P(^(0),U,1),! I '$D(
^(0)) W ?35,"NO SUCH WARNING LABEL" K X Q
LAST EDITED: MAR 17, 1999
HELP-PROMPT: ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
DESCRIPTION:
This field is used to indicate if a warning should be printed with the selection of this drug.
EXECUTABLE HELP: S DIC=54,DIC(0)="Q" D ^DIC S DIC=DIE
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,8.1 NEW WARNING LABEL LIST WARN;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X D VALID^PSSWRNE
LAST EDITED: MAY 24, 2004
HELP-PROMPT: Enter comma-delimited list of warnings from old and new files, following new file entries with an
"N".
DESCRIPTION: Enter a comma-delimited list of warning numbers from old and new warning files, following new file
entries with an "N".
TECHNICAL DESCR: If it is desired to use some warning labels from both the old RX CONSULT file (#54) and the new
WARNING LABEL-ENGLISH (#50.625) or WARNING LABEL-SPANISH (#50.626) file, a comma delimited list
with entries from both files can be entered. Entries from the new warning label file must be
followed with an "N". e.g. 22,5N,128N will print local warning number 22 from the RX CONSULT file
(#54) followed by warnings 5 and 128 from the new warning file (English or Spanish) when the
PHARMACY SYSTEM file (#59.7) WARNING LABEL SOURCE field (#16) is set to "N" for new.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,8.2 GENDER SPECIFIC LBLS ON ALL RX WARN;2 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: NOV 18, 2004
HELP-PROMPT: If a new warning is specific to one gender, set this field to "N" to print the warning only for
patients of that gender.
DESCRIPTION: If this field contains "N", warning labels that are marked with a SPECIFIC TO GENDER value of "M"
for Male or "F" for Female will only print for this drug when the patient is that specific gender.
If this field is null or contains a "Y", then the warning will print for both genders.
TECHNICAL DESCR: If this field is answered "N", the SPECIFIC TO GENDER FIELD (#2) of the WARNING LABEL-ENGLISH file
(#50.625) or the WARNING LABEL-SPANISH file (#50.626) will be examined and this warning will not
print if the gender is not the same as what the warning is specific for. If this field contains a
"Y" or is null, then the warning will print for both genders.
50,9 SYNONYM 1;0 Multiple #50.1 (Add New Entry without Asking)
DESCRIPTION: This multiple contains the Synonym, NDC Code, Intended Use, VSN, Order Unit, Price per Order Unit,
Dispense Units per Order Unit, Price per Dispense Unit, and Vendor fields. It is used for a quick
code for look ups or to locate NDCs to increment the drug's inventory when orders are received.
GROUP: PH
50.1,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
TRADE NAME
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: SEP 21, 2015
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
DESCRIPTION: This field is used as a quick code for look ups or to locate NDCs so the drug's inventory can be
incremented when orders are received.
TECHNICAL DESCR:
free text.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50^C
1)= S ^PSDRUG("C",$E(X,1,40),DA(1),DA)=""
2)= K ^PSDRUG("C",$E(X,1,40),DA(1),DA)
3)= Do not Delete.
This field is used as a quick code for lookups. It is also used to locate NDCs to increment the
drug's inventory when orders are received.
50.1,1 INTENDED USE 0;3 SET
'0' FOR TRADE NAME;
'1' FOR QUICK CODE;
'D' FOR DRUG ACCOUNTABILITY;
'C' FOR CONTROLLED SUBSTANCES;
LAST EDITED: MAY 03, 1996
HELP-PROMPT: Enter the intended use of the synonym.
DESCRIPTION: If you designate a synonym as a quick code, then it will not appear on the formulary listing for
distribution in the hospital. If it is designated as a trade name, then it will appear on the
listing. This field does not affect the ability to look-up a drug by quick code or trade name.
If the intended use is for Controlled Substances or Drug Accountability, the synonym is used to
locate NDCs so the drug's inventory can be incremented when orders are received.
50.1,2 NDC CODE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<5) X
LAST EDITED: MAY 03, 1996
HELP-PROMPT: ANSWER MUST BE 5-20 CHARACTERS IN LENGTH
DESCRIPTION:
This field will contain the national drug code.
TECHNICAL DESCR:
free text
50.1,400 VSN 0;4 FREE TEXT
Vendor Stock Number
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 03, 1996
HELP-PROMPT: Enter the vendor's stock number corresponding to the NDC.
DESCRIPTION:
This is the vendor's stock number for the NDC.
CROSS-REFERENCE: 50^AVSN
1)= S ^PSDRUG("AVSN",$E(X,1,30),DA(1),DA)=""
2)= K ^PSDRUG("AVSN",$E(X,1,30),DA(1),DA)
3)= Do not delete.
This cross-reference stores the vendor's stock number of the drug. It is used by Drug
Accountability and Controlled Substances packages.
50.1,401 ORDER UNIT 0;5 POINTER TO ORDER UNIT FILE (#51.5)
Order Unit
LAST EDITED: MAY 03, 1996
HELP-PROMPT: Enter the NDC's packaging unit.
DESCRIPTION:
This is the NDC's unit of order.
TECHNICAL DESCR:
The Order Unit field points to the ORDER UNIT file (#51.5).
50.1,402 PRICE PER ORDER UNIT 0;6 NUMBER
Price per Order Unit
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: AUG 30, 2010
HELP-PROMPT: Type a Dollar Amount between 0 and 999999, 2 Decimal Digits.
DESCRIPTION:
This is the price for one unit of order.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^50.1^404
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=Y(0)>0 I X S X=DIV S Y(1)=$S($D(^
PSDRUG(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(50.1,402,1,1,1.1) X ^DD(50.1,4
02,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S X=DIV,X=$S($P(Y(1),U,7):X/$P(Y(1),U,7),
1:"*******"),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=4,X=$J(Y(2),Y(3),X)
1.4)= S DIH=$G(^PSDRUG(DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=50.1,DIG=404 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S
X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV
,DIH=50.1,DIG=404 D ^DICR
CREATE CONDITION)= #402>0
CREATE VALUE)= $J(#402/#403,1,4)
DELETE VALUE)= @
FIELD)= #404
TRIGGERS the calculation PRICE PER DISPENSE UNIT field of the SYNONYM sub-field of the DRUG File by
DIVIDING the PRICE PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File BY the DISPENSE
UNITS PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File
50.1,403 DISPENSE UNITS PER ORDER UNIT 0;7 NUMBER
Dispense Units per Order Unit
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."5.N) X
LAST EDITED: AUG 30, 2010
HELP-PROMPT: Type a number between 1 and 999999, 4 Decimal Digits
DESCRIPTION:
This is the number of dispense units in one order unit.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:^^TRIGGER^50.1^404
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=Y(0)>0 I X S X=DIV S Y(1)=$S($D(^
PSDRUG(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(50.1,403,1,1,1.1) X ^DD(50.1,4
03,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,6),X=$S(DIV:X/DIV,1:"******
*"),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=4,X=$J(Y(2),Y(3),X)
1.4)= S DIH=$G(^PSDRUG(DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=50.1,DIG=404 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSDRUG(D0,1,D1,0)):^(0),1:"") S
X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV
,DIH=50.1,DIG=404 D ^DICR
CREATE CONDITION)= #403>0
CREATE VALUE)= $J(#402/#403,1,4)
DELETE VALUE)= @
FIELD)= #404
TRIGGERS the calculation PRICE PER DISPENSE UNIT field of the SYNONYM sub-field of the DRUG File by
DIVIDING the PRICE PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File BY the DISPENSE
UNITS PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File
50.1,404 PRICE PER DISPENSE UNIT 0;8 NUMBER
Price per Dispense Unit
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."5N.N) X
LAST EDITED: AUG 30, 2010
HELP-PROMPT: Type a Number between 0 and 999999, 4 Decimal Digits.
DESCRIPTION:
This is the cost of one dispense unit.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the PRICE PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File
TRIGGERED by the DISPENSE UNITS PER ORDER UNIT field of the SYNONYM sub-field of the DRUG File
50.1,405 VENDOR 0;9 FREE TEXT
Vendor
INPUT TRANSFORM:K:$L(X)>35!($L(X)<1) X
LAST EDITED: MAY 03, 1996
HELP-PROMPT: Enter the vendor's name.
DESCRIPTION:
This is the name of the vendor from which the drug was purchased.
50,11 REORDER LEVEL 660;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
DESCRIPTION:
This field is used to indicate the reorder level for this drug.
TECHNICAL DESCR:
numeric
GROUP: PS
50,12 ORDER UNIT 660;2 POINTER TO ORDER UNIT FILE (#51.5)
LAST EDITED: NOV 10, 1990
HELP-PROMPT: Enter the order unit for this drug.
DESCRIPTION:
This is the order unit for this drug.
GROUP: PS
50,13 PRICE PER ORDER UNIT 660;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0)!(X?.E1"."3.N) X
LAST EDITED: APR 23, 2020
HELP-PROMPT: Type a Dollar Amount between 0 and 999999, 2 Decimal Digits.
DESCRIPTION:
This is the price per order unit for this drug.
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^50^16
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U
,5)>0 I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD
(50,13,1,1,1.1) X ^DD(50,13,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=DIV,X=$S($P(Y(1),U,5):X/$P(Y(1),U,5),1
:"*******"),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=4,X=$J(Y(2),Y(3),X)
1.4)= S DIH=$G(^PSDRUG(DIV(0),660)),DIV=X S $P(^(660),U,6)=DIV,DIH=50,DIG=16 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,6),X=X S
DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),660)),DIV=X S $P(^(660),U,6)=DIV,DIH=50,DIG=16 D ^DICR
CREATE CONDITION)= #15>0
CREATE VALUE)= $J(#13/#15,1,4)
DELETE VALUE)= @
FIELD)= #16
CROSS-REFERENCE: 50^PRC^MUMPS
1)= D ST^PSSPRICE(DA,DUZ,DI)
2)= S:X'="" X=X
Cross-reference to set history of price change multiple (field #950) for changes to this field.
CROSS-REFERENCE: ^^TRIGGER^50^30
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,6)):^(6),1:"") S X=$P(Y(1),U,2),X=X S DIU
=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^PSDRUG(DIV(0),6)),DIV=X S $P(^(6),U,2)=DIV,DIH=50,DIG=30 D
^DICR
2)= Q
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= DATE/TIME PRICE LAST CHANGED
Trigger cross-reference to set the value of the DATE/TIME PRICE LAST CHANGED (#30) field.
50,14 NORMAL AMOUNT TO ORDER 660;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 07, 1983
HELP-PROMPT: Type a whole Number between 0 and 999, 0 Decimal Digits.
DESCRIPTION:
This is the normal amount to order for this drug.
GROUP: PS
50,14.5 DISPENSE UNIT 660;8 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: JUN 13, 1994
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION:
This is the dispense unit for this drug.
AUDIT: YES, ALWAYS
DELETE TEST: 550,0)= N X S X="PSXREF" X ^%ZOSF("TEST") I $T D DISPUNIT^PSXREF
GROUP: PS
50,15 DISPENSE UNITS PER ORDER UNIT 660;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."5N.N) X
LAST EDITED: AUG 22, 2019
HELP-PROMPT: Type a Number between 1 and 99999, 4 Decimal Digits
DESCRIPTION:
This is the dispense units per order unit for this drug.
TECHNICAL DESCR:
GROUP: PS
CROSS-REFERENCE: ^^TRIGGER^50^16
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)>0 I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(6
60),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(50,15,1,1,1.1) X ^DD(50,15,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,3),X=$S(DIV:X/DIV,1:"*******
"),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=4,X=$J(Y(2),Y(3),X)
1.4)= S DIH=$G(^PSDRUG(DIV(0),660)),DIV=X S $P(^(660),U,6)=DIV,DIH=50,DIG=16 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,6),X=X S
DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),660)),DIV=X S $P(^(660),U,6)=DIV,DIH=50,DIG=16 D ^DICR
CREATE CONDITION)= #15>0
CREATE VALUE)= $J(#13/#15,1,4)
DELETE VALUE)= @
FIELD)= #16
CROSS-REFERENCE: 50^DUO^MUMPS
1)= D ST^PSSPRICE(DA,DUZ,DI)
2)= S:X'="" X=X
Cross-reference to set history of price change multiple (field #950) for changes to this field.
Also, the bulletin Pharmacy Price Tracker will be created and sent to the PSS DEE AUDIT mail group.
50,16 PRICE PER DISPENSE UNIT 660;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."5N.N) X
LAST EDITED: MAY 23, 2017
HELP-PROMPT: Type a number between 0 and 999999, 4 Decimal Digits.
DESCRIPTION:
This is the price per dispense unit for this drug.
WRITE AUTHORITY: @
GROUP: PS
NOTES: TRIGGERED by the PRICE PER ORDER UNIT field of the DRUG File
TRIGGERED by the DISPENSE UNITS PER ORDER UNIT field of the DRUG File
50,17 SOURCE OF SUPPLY 660;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X?1N.U) X
LAST EDITED: JUL 29, 1987
DESCRIPTION:
This field is used to indicate the source of the supply for this medication/ supply.
TECHNICAL DESCR:
free text
EXECUTABLE HELP: D P^PSSDDUT2
GROUP: PS
50,17.1 EXPIRATION DATE 660;9 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 03, 1992
HELP-PROMPT: Enter date that the current supply expires.
DESCRIPTION:
This field is used to show the expiration date of the current supply of available drugs.
GROUP: PS
CROSS-REFERENCE: 50^AEXP
1)= S ^PSDRUG("AEXP",$E(X,1,30),DA)=""
2)= K ^PSDRUG("AEXP",$E(X,1,30),DA)
This cross reference is used to index expiration date of the current drug supply.
50,17.2 LAB TEST MONITOR CLOZ;1 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: OCT 29, 1993
HELP-PROMPT: Answer must be the lab test number or name.
DESCRIPTION:
This is the lab test results which should be checked before this drug is dispensed.
DELETE TEST: 17.2,0)= I $P($G(^PSDRUG(DA,"CLOZ1")),"^")="PSOCLO1" D CLOZ^PSSDDUT2
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,17.3 MONITOR MAX DAYS CLOZ;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 29, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: This is the number of days during which the results of the lab test are of interest when dispensing
this drug.
DELETE TEST: 17.3,0)= I $P($G(^PSDRUG(DA,"CLOZ1")),"^")="PSOCLO1" D CLOZ^PSSDDUT2
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,17.4 SPECIMEN TYPE CLOZ;3 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: OCT 29, 1993
HELP-PROMPT: Answer with the topography field number or name.
DESCRIPTION:
This is the specimen type on which the lab test should be run.
DELETE TEST: 17.4,0)= I $P($G(^PSDRUG(DA,"CLOZ1")),"^")="PSOCLO1" D CLOZ^PSSDDUT2
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,17.5 MONITOR ROUTINE CLOZ1;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<3) X
LAST EDITED: FEB 01, 1993
HELP-PROMPT: Answer must be 3-8 characters in length.
DESCRIPTION: This is the name of the routine which is called to do all necessary checking on lab test results
before dispensing this drug.
CROSS-REFERENCE: 50^ACLOZ^MUMPS
1)= S:X="PSOCLO1" ^PSDRUG("ACLOZ",DA)=""
2)= K ^PSDRUG("ACLOZ",DA)
3)= DO NOT DELETE !
This cross reference is used for quick lookups on drugs identified as drugs used in the Clozapine
study. It is in the form of: ^PSDRUG("ACLOZ",DA)
50,17.6 LAB MONITOR MARK CLOZ1;2 SET
'1' FOR YES;
LAST EDITED: APR 25, 1997
DESCRIPTION:
This field is set to "1" if the drug is marked for Lab Monitor purposes.
50,17.7 CLOZAPINE LAB TEST CLOZ2;0 POINTER Multiple #50.02
50.02,.01 LAB TEST MONITOR 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
LAST EDITED: NOV 19, 1998
HELP-PROMPT: Answer must be the lab test name.
DESCRIPTION:
This field is used to hold the lab test for Clozapine medication dispensing.
TECHNICAL DESCR:
pointer to file 60
GROUP: PSO
50.02,1 MONITOR MAX DAYS 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 19, 1998
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
This field is the number of days in the past to go to check for lab values.
TECHNICAL DESCR:
number.
GROUP: PSO
50.02,2 SPECIMEN TYPE 0;3 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: NOV 19, 1998
HELP-PROMPT: Answer with the topography field name.
DESCRIPTION:
This is the specimen type used for Clozapine dispensing.
TECHNICAL DESCR:
pointer to file 61.
GROUP: PSO
50.02,3 TYPE OF TEST 0;4 SET (Required)
'1' FOR WBC;
'2' FOR ANC;
LAST EDITED: NOV 19, 1998
HELP-PROMPT: Enter Type test.
DESCRIPTION:
This set of codes will be used to determine which test is being entered.
TECHNICAL DESCR:
set of codes
GROUP: PSO
50,18 INV ORDER UNITS ; COMPUTED
MUMPS CODE: S Y(18,2)=$S($D(^PSDRUG(D0,660)):^(660),1:""),Y(18,1)=$S($D(^(660.1)):^(660.1),1:"") S X=$P(Y(18,1)
,U,1),X=$S($P(Y(18,2),U,5):X/$P(Y(18,2),U,5),1:"*******") S X=$J(X,0,2)
ALGORITHM: #50/#15 (ALWAYS 2 DECIMAL DIGITS)
DESCRIPTION:
This is the inventory order units for this drug.
GROUP: PS
50,20 NATIONAL DRUG FILE ENTRY ND;1 POINTER TO VA GENERIC FILE (#50.6)
LAST EDITED: FEB 15, 2000
HELP-PROMPT: Enter the corresponding National Drug File entry.
DESCRIPTION:
This is the pointer to the National Drug file (^PSNDF).
TECHNICAL DESCR:
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PSN
CROSS-REFERENCE: 50^APN1^MUMPS
1)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) I X(1) S X(2)=$P($G(^("ND")),"^",3) I X(2)]"" S ^PSDRUG("APN
",X(1),X_"A"_X(2),DA)=""
2)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) I X(1) S X(2)=$P($G(^("ND")),"^",3) I X(2)]"" K ^PSDRUG("APN
",X(1),X_"A"_X(2),DA)
3)= Needed by Inpatient Medications.
Used by Inpatient Medications as a gateway from Primary Drug to National Drug File.
CROSS-REFERENCE: 50^AND
1)= S ^PSDRUG("AND",$E(X,1,30),DA)=""
2)= K ^PSDRUG("AND",$E(X,1,30),DA)
50,21 VA PRODUCT NAME ND;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>70!($L(X)<1) X
LAST EDITED: JUL 30, 1993
HELP-PROMPT: Answer must be 1-70 characters in length.
DESCRIPTION:
This is the VA Product Name matched to in the National Drug file.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PSN
CROSS-REFERENCE: 50^VAPN
1)= S ^PSDRUG("VAPN",$E(X,1,30),DA)=""
2)= K ^PSDRUG("VAPN",$E(X,1,30),DA)
50,22 PSNDF VA PRODUCT NAME ENTRY ND;3 POINTER TO VA PRODUCT FILE (#50.68)
OUTPUT TRANSFORM: D FORM^PSNOUT
LAST EDITED: AUG 05, 2016
DESCRIPTION:
This is the pointer to the VA Product file in the National Drug File package.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PSN
CROSS-REFERENCE: 50^APN2^MUMPS
1)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) I X(1) S X(2)=$P($G(^("ND")),"^") I X(2)]"" S ^PSDRUG("APN",
X(1),X(2)_"A"_X,DA)=""
2)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) I X(1) S X(2)=$P($G(^("ND")),"^") I X(2)]"" K ^PSDRUG("APN",
X(1),X(2)_"A"_X,DA)
3)= Needed by Inpatient Medications
Used by Inpatient Medications as a gateway from Primary Drug to National Drug File.
CROSS-REFERENCE: 50^APR
1)= S ^PSDRUG("APR",$E(X,1,30),DA)=""
2)= K ^PSDRUG("APR",$E(X,1,30),DA)
This cross reference indexes the drug with the VA PRODUCT in file #50.67.
50,23 PACKAGE SIZE ND;4 POINTER TO PACKAGE SIZE FILE (#50.609)
LAST EDITED: DEC 09, 1987
HELP-PROMPT: Enter a package size for this drug.
DESCRIPTION:
This is the pointer to the Package Size file.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PSN
50,24 PACKAGE TYPE ND;5 POINTER TO PACKAGE TYPE FILE (#50.608)
LAST EDITED: DEC 09, 1987
HELP-PROMPT: Enter a package type for this drug.
DESCRIPTION:
This is the pointer to the Package Type file.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PSN
50,25 NATIONAL DRUG CLASS ND;6 POINTER TO VA DRUG CLASS FILE (#50.605)
VA DRUG CLASS POINTER
LAST EDITED: MAR 23, 1992
HELP-PROMPT: Enter a VA Drug Class for this drug.
DESCRIPTION:
This is the pointer to the VA Drug Class file.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PS
NOTES: TRIGGERED by the VA CLASSIFICATION field of the DRUG File
CROSS-REFERENCE: 50^VAC
1)= S ^PSDRUG("VAC",$E(X,1,30),DA)=""
2)= K ^PSDRUG("VAC",$E(X,1,30),DA)
3)= DO NOT DELETE
This cross-reference stores the pointer to the VA Drug Class file. This is used for look-up
purposes.
CROSS-REFERENCE: ^^TRIGGER^50^2
1)= S X=$P(^PS(50.605,X,0),U),DIU=$S($D(^PSDRUG(DA,0)):$P(^(0),U,2),1:"") I X'=DIU S $P(^(0),U,2)=X
I $O(^DD(50,2,1,0)) K DIV,Y S DIV=X,(D0,DIV(0))=DA,DIH=50,DIG=2 D ^DICR
2)= S DIU=$S($D(^PSDRUG(DA,0)):$P(^(0),U,2),1:"") I DIU]"" S $P(^(0),U,2)="" I $O(^DD(50,2,1,0)) K
DIV,Y S (DIV,X)="",(D0,DIV(0))=DA,DIH=50,DIG=2 D ^DICR
3)= SPECIAL TRIGGER - DO NOT DELETE.
CREATE CONDITION)= S (DIV,X)=$P(^PS(50.605,X,0),"^")
CREATE VALUE)= VA DRUG CLASS
DELETE VALUE)= @
FIELD)= #2
50,26 VA DRUG CLASS CODE ; COMPUTED
MUMPS CODE: X ^DD(50,26,9.3) S:X]"" X=$P(X,U)_" "_$P(X,U,2) S D0=Y(50,26,80)
9.2 = S Y(50,26,80)=$S($D(D0):D0,1:""),Y(50,26,3)=$S($D(^PSDRUG(D0,0)):^(0),1:""),Y(50,26,1)=$S($D(
^("ND")):^("ND"),1:"")
9.3 = X ^DD(50,26,9.2) S X=$S('$D(^PS(50.605,+$P(Y(50,26,1),U,6),0)):"",1:^(0)) S:'$D(^PS(50.605,+D
0,0)) D0=-1
ALGORITHM: NATIONAL DRUG CLASS_" "_NATIONAL DRUG CLASS:CLASSIF
LAST EDITED: JAN 10, 1989
DESCRIPTION:
This is the VA Drug Class Code along with the description of that class.
GROUP: PSN
50,27 CMOP ID ND;10 FREE TEXT
OLD PSNDF
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
LAST EDITED: APR 21, 1994
HELP-PROMPT: Answer must be 1-5 characters in length.
DESCRIPTION:
This field contains the VA CMOP National Identifier from NDF.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PSN
CROSS-REFERENCE: 50^AQ1
1)= S ^PSDRUG("AQ1",$E(X,1,30),DA)=""
2)= K ^PSDRUG("AQ1",$E(X,1,30),DA)
3)= DO NOT DELETE
This cross-reference contains the CMOP ID.
50,28 OP EXTERNAL DISPENSE 6;1 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 13, 1997
DESCRIPTION:
Indicates if this drug may be dispensed to an external interface dispensing machine.
TECHNICAL DESCR:
Set of codes.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 50^AQ2^MUMPS
1)= S:X=1 ^PSDRUG("AQ2",DA)=""
2)= K ^PSDRUG("AQ2",DA)
3)= DO NOT DELETE
This cross-reference is present if the drug file entry is matched to NDF, has a CMOP ID, and has
been marked to send to an external interface dispensing machine. It is in the form of:
^PSDRUG("AQ2",DA)
50,29 NATIONAL FORMULARY INDICATOR ND;11 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 07, 1999
HELP-PROMPT: Enter a '1' if this drug is to be on the National Formulary or a '0' if this drug is not on the
National Formulary.
DESCRIPTION: This field will be used to determine whether this drug is on the National Formulary. Data will be
maintained at the national level. This field will be populated during the NDF matching process. The
data cannot be edited at the local level.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50,31 NDC 2;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<5)!'((X?4N1"-"4N1"-"2N)!(X?5N1"-"3N1"-"2N)!(X?5N1"-"4N1"-"1N)!(X?5N1"-"4N1"-"2N)!
(X?6N1"-"4N1"-"2N)) X
LAST EDITED: AUG 09, 1996
HELP-PROMPT: Answer with dashes in correct NDC format ( e.g., 4-4-2, 5-3-2, 5-4-1, 5-4-2, or 6-4-2).
DESCRIPTION:
This is the National Drug Code for this drug.
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50^NDC^MUMPS
1)= S ^PSDRUG("NDC",$$RJ^XLFSTR($P(X,"-"),6,0)_$$RJ^XLFSTR($P(X,"-",2),4,0)_$$RJ^XLFSTR($P(X,"-",3)
,2,0),DA)=""
2)= K ^PSDRUG("NDC",$$RJ^XLFSTR($P(X,"-"),6,0)_$$RJ^XLFSTR($P(X,"-",2),4,0)_$$RJ^XLFSTR($P(X,"-",3)
,2,0),DA)
3)= DO NOT DELETE!//
This cross-reference is used as a lookup by DSS (Decision Support System) software. The format of
the cross-reference is intended to match the format of the DSS feeder keys used for DSS pharmacy
extracts. In the form of: ^PSDRUG("NDC",12 Digit NDC(no "-"),DA)
50,32 NDC BY OUTPATIENT SITE NDCOP;0 POINTER Multiple #50.032
50.032,.01 OUTPATIENT SITE 0;1 POINTER TO OUTPATIENT SITE FILE (#59)
LAST EDITED: OCT 15, 2004
CROSS-REFERENCE: 50.032^B
1)= S ^PSDRUG(DA(1),"NDCOP","B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),"NDCOP","B",$E(X,1,30),DA)
50.032,1 LAST LOCAL NDC 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5) X
LAST EDITED: OCT 15, 2004
HELP-PROMPT: Answer must be 5-15 characters in length
DESCRIPTION: This field contains the last NDC number dispensed from a window fill for this drug by a specific
Division. It is used to present a default NDC number to the finishing pharmacist. They may use
this number or enter a different one based on the NDC number on the bottle they are filling the
prescription.
50.032,2 LAST CMOP NDC 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5) X
LAST EDITED: OCT 15, 2004
HELP-PROMPT: Answer must be 5-15 characters in length
DESCRIPTION: This field contains the last NDC number dispensed by a CMOP Center for this drug for a specific
division. It is to as a default NDC Number for the next CMOP prescription for the same drug and
division.
50.032,3 NDC BY OUTPATIENT SITE AUDIT 1;0 DATE Multiple #50.0321 (Add New Entry without Asking)
LAST EDITED: JUN 01, 2021
DESCRIPTION: Audit log of edits made to LAST LOCAL NDC and LAST CMOP NDC on a drug. Audit log will show the
before and after values for each field along with the user who performed the edit and date/time
of the edit.
50.0321,.01 DATE TIME 0;1 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: SEP 21, 2021
HELP-PROMPT: Enter the date/time the drug was edited.
DESCRIPTION:
Date/time the edit was performed.
CROSS-REFERENCE: 50.0321^B
1)= S ^PSDRUG(DA(2),"NDCOP",DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(2),"NDCOP",DA(1),1,"B",$E(X,1,30),DA)
50.0321,1 USER 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: SEP 17, 2021
HELP-PROMPT: Enter the user who performed the edit.
DESCRIPTION:
User who performed edit.
50.0321,2 LAST LOCAL NDC BEFORE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5) X
MAXIMUM LENGTH: 15
LAST EDITED: SEP 17, 2021
HELP-PROMPT: Answer must be 5-15 characters in length.
DESCRIPTION:
Value of LAST LOCAL NDC before edit was performed.
50.0321,3 LAST LOCAL NDC AFTER 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5) X
MAXIMUM LENGTH: 15
LAST EDITED: SEP 17, 2021
HELP-PROMPT: Answer must be 5-15 characters in length.
DESCRIPTION:
Value of LAST LOCAL NDC after the edit was performed.
50.0321,4 LAST CMOP NDC BEFORE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5) X
MAXIMUM LENGTH: 15
LAST EDITED: SEP 17, 2021
HELP-PROMPT: Answer must be 5-15 characters in length.
DESCRIPTION:
Value of LAST CMOP NDC before the edit was performed.
50.0321,5 LAST CMOP NDC AFTER 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<5) X
MAXIMUM LENGTH: 15
LAST EDITED: SEP 17, 2021
HELP-PROMPT: Answer must be 5-15 characters in length.
DESCRIPTION:
Value of LAST CMOP NDC after the edit was performed.
50,37 DRUG TEXT ENTRY 9;0 POINTER Multiple #50.037
50.037,.01 DRUG TEXT ENTRY 0;1 POINTER TO DRUG TEXT FILE (#51.7) (Multiply asked)
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: SEP 01, 2000
HELP-PROMPT: This field is used to associate a drug entry with text entries in the DRUG TEXT file (#51.7).
DESCRIPTION:
This field points to various drug text entries located in the DRUG TEXT file (#51.7).
SCREEN: S DIC("S")="N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""^"",2) I $S('ZC:1,1:ZC>DT)"
EXPLANATION: This is used to screen out inactive entries.
CROSS-REFERENCE:50.037^B
1)= S ^PSDRUG(DA(1),9,"B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),9,"B",$E(X,1,30),DA)
CROSS-REFERENCE:50^DTXT
1)= S ^PSDRUG("DTXT",$E(X,1,30),DA(1),DA)=""
2)= K ^PSDRUG("DTXT",$E(X,1,30),DA(1),DA)
3)= Do Not Delete
This cross-reference is used to lookup entries linked to a Drug Text entry.
50,40 ACTION PROFILE MESSAGE (OP) PSO;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>120!($L(X)<1) X
LAST EDITED: APR 23, 1996
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION: This message will be printed on the Outpatient action profile along with the other information for
each prescription for this drug.
TECHNICAL DESCR:
free text.
GROUP: PSO
50,50 CURRENT INVENTORY 660.1;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."1.N) X
LAST EDITED: OCT 30, 2000
HELP-PROMPT: Enter Current Inventory Level.
DESCRIPTION:
This field contains the current number of the drug in stock.
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,50.095 DT/TM DISP UNIT PRICE CHANGED 950;0 DATE Multiple #50.095 (Add New Entry without Asking)
DESCRIPTION: This field tracks the Date and Time whenever the PRICE PER DISPENSE UNIT (#16) field is changed.
It is set using a trigger cross-reference on the PRICE PER DISPENSE UNIT (#16) field.
50.095,.01 DT/TM DISP UNIT PRICE CHANGED 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 22, 2018
HELP-PROMPT: Enter the Date/Time the dispense unit price was changed.
DESCRIPTION: This field tracks the Date and Time whenever the PRICE PER DISPENSE UNIT (#16) field is changed.
It is set using a trigger cross-reference on the PRICE PER DISPENSE UNIT (#16) field.
CROSS-REFERENCE: 50.095^B
1)= S ^PSDRUG(DA(1),950,"B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),950,"B",$E(X,1,30),DA)
50.095,1 EDITED BY 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 22, 2018
HELP-PROMPT: Select the person making the price change.
DESCRIPTION:
This is the name of the person making the price change.
50.095,3 NEW VALUE 0;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99999)!(X<0) X
LAST EDITED: MAY 22, 2018
HELP-PROMPT: Type a dollar amount between 0 and 99999.99999, 5 decimal digits.
DESCRIPTION:
This is the new price value to be tracked.
50,51 LOCAL NON-FORMULARY 0;9 SET
'1' FOR N/F;
INPUT TRANSFORM: I X,$O(^PSDRUG("AFA",DA,0)) D NONF^PSSDDUT2
LAST EDITED: OCT 17, 2000
HELP-PROMPT: Enter a '1' if this is not to appear on the formulary list.
DESCRIPTION:
This is used to designate the drug as non-formulary.
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50^AJ^MUMPS
1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSP
OIDT K PSSCROSS Q
2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSP
OIDT K PSSCROSS Q
This cross reference is used to keep the Pharmacy Orderable Item entry in the PHARMACY ORDERABLE
ITEM file (#50.7) up to date with current information, based on all active Drugs, IV Additives, and
IV Solutions that are matched to the Pharmacy Orderable Item. This information includes
Inactivation Date status, Non-Formulary status, Supply status, and Usage status. This information
is also sent to CPRS (Computerized Patient Record System) by using the "PS MFSEND OR" protocol to
update the corresponding Orderable Item entry in the ORDERABLE ITEMS file (#101.43).
50,52 VISN NON-FORMULARY 0;11 SET
'1' FOR V-N/F;
LAST EDITED: SEP 07, 1999
HELP-PROMPT: Enter a '1' if this item is not to appear on the VISN formulary.
DESCRIPTION:
This field will designate a drug that is not on the VISN Formulary.
50,62.01 DAY (nD) or DOSE (nL) LIMIT 8;1 FREE TEXT
ENTER NUMBER OF DAYS A UNIT DOSE ORDER (WITH THIS DRUG) WILL LAST
INPUT TRANSFORM: K:$S('X:1,X?1.2N1"D":0,1:X'?1.2N1"L") X
LAST EDITED: SEP 24, 1986
HELP-PROMPT: Type a whole Number between 0 and 99, 0 Decimal Digits, followed by either a 'D' (for NUMBER OF
DAYS) or an 'L' (for DOSE LIMIT).
DESCRIPTION: This is mainly for NARCOTICS and ANTIBIOTICS. If a number is found here when this medication is
selected for a UNIT DOSE order, that number will be used to calculate the DEFAULT value for the
STOP DATE/TIME prompt in the entry of that order. If the number entered is followed by a "D", that
number of days will be added to the START DATE. If the number is followed by an "L", that number
will be used to calculate the DOSE LIMIT.
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,62.02 UNIT DOSE MED ROUTE 8;2 POINTER TO MEDICATION ROUTES FILE (#51.2)
STANDARD UNIT DOSE MEDICATION ROUTE
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"")'=""ORAL"",$P(^(0),""^"",4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 29, 1986
HELP-PROMPT: Enter the most common MED ROUTE associated with this medication.
DESCRIPTION: If data is found here when this medication is selected for a UNIT DOSE order, that data will be
used as the DEFAULT value for the MED ROUTE prompt in ORDER ENTRY. Please note that ORAL is not
selectable as a MED ROUTE here, since it is the standard default value in order entry.
SCREEN: S DIC("S")="I $P(^(0),""^"")'=""ORAL"",$P(^(0),""^"",4)"
EXPLANATION: ONLY MED ROUTES MARKED FOR USE BY ALL PACKAGES ARE SELECTABLE.
GROUP: PSJU
50,62.03 UNIT DOSE SCHEDULE TYPE 8;3 SET
STANDARD UNIT DOSE SCHEDULE TYPE
'OC' FOR ON CALL;
'O' FOR ONE TIME;
'P' FOR PRN;
'R' FOR FILL on REQUEST;
LAST EDITED: DEC 29, 1986
HELP-PROMPT: Enter the most common SCHEDULE TYPE associated with this medication.
DESCRIPTION: If data is found here when this medication is selected for a UNIT DOSE order, that data will be
used as the DEFAULT value for the SCHEDULE TYPE prompt in ORDER ENTRY.
Please note that you will NOT find CONTINUOUS as a SCHEDULE TYPE here, since it is the standard
default in order entry.
GROUP: PSJU
50,62.04 UNIT DOSE SCHEDULE 8;4 FREE TEXT
STANDARD UNIT DOSE SCHEDULE
INPUT TRANSFORM: K:X[""""!($A(X)=45)!($L(X," ")>$S(X["PRN":4,1:3))!($L(X)>70)!($L(X)<1) X D:$D(X)#2 SCH^PSSDDUT I $D
(X)#2,'PSGS0Y,PSGS0XT D EN^DDIOL(" Every "_PSGS0XT_" minutes","","?0")
LAST EDITED: AUG 18, 2014
HELP-PROMPT: Enter the most common SCHEDULE associated with this medication.
DESCRIPTION: If a schedule is found here when this medication is selected for a UNIT DOSE order, that schedule
will be used as a default value for the SCHEDULE prompt in order entry.
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,62.05 CORRESPONDING OUTPATIENT DRUG 8;5 POINTER TO DRUG FILE (#50)
INPUT TRANSFORM: S DIC("S")="I $D(^(2)),$P(^(2),""^"",3)[""O""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 24, 1990
HELP-PROMPT: Enter an Outpatient medication that corresponds to this Unit Dose medication.
DESCRIPTION: This is used by the Unit Dose Medications package in such things as the Authorized
Absence/Discharge Orders form.
SCREEN: S DIC("S")="I $D(^(2)),$P(^(2),""^"",3)[""O"""
EXPLANATION: ONLY DRUGS MARKED AS OUTPATIENT DRUGS ARE SELECTABLE.
GROUP: PSJU
50,63 APPLICATION PACKAGES' USE 2;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>90!($L(X)<1) X
LAST EDITED: DEC 21, 1990
HELP-PROMPT: Answer must be 1-90 characters in length.
DESCRIPTION: This field is free text, but contains the codes of the DHCP packages that consider this drug part
of its formulary. This field is set through the routine ^PSGIU, and NOT through VA FileMan.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PS
UNEDITABLE
CROSS-REFERENCE: 50^IU
1)= S ^PSDRUG("IU",X,DA)=""
2)= K ^PSDRUG("IU",X,DA)
CROSS-REFERENCE: 50^AIU^MUMPS
1)= S Y(1)=$P(^PSDRUG(DA,0),"^") I Y(1)]"" F Y(2)=1:1:$L(X) S ^PSDRUG("AIU"_$E(X,Y(2)),Y(1),DA)=""
2)= S Y(1)=$P(^PSDRUG(DA,0),"^") I Y(1)]"" F Y(2)=1:1:$L(X) K ^PSDRUG("AIU"_$E(X,Y(2)),Y(1),DA)
3)= Do Not Delete
Sets application package use field (63) cross-ref. In the form of:
^PSDRUG("AIU"_$E(X,Y(2),Y(1),DA)
50,64 *PRIMARY DRUG 2;6 POINTER TO PRIMARY DRUG FILE (#50.3)
LAST EDITED: FEB 28, 1995
HELP-PROMPT: Enter a primary drug for this drug.
DESCRIPTION: This is the corresponding Primary Drug for this dispense drug. A primary drug does not have a
dosage associated with it.
TECHNICAL DESCR: This is the corresponding primary drug for this dispense drug. The primary drug will show on the
profiles and other reports. (This dispense drug shows on the expanded view of the order.) This is
also used to find the primary drug of an order when a dispense drug is selected.
GROUP: PS
CROSS-REFERENCE: 50^AP
1)= S ^PSDRUG("AP",X,DA)=""
2)= K ^PSDRUG("AP",X,DA)
3)= Needed by Unit Dose Medications order entry.
CROSS-REFERENCE: 50^APC^MUMPS
1)= S X(1)=$P($G(^PSDRUG(DA,0)),"^",2) S:X(1)]"" ^PSDRUG("APC",X,X(1),DA)=""
2)= S X(1)=$P($G(^PSDRUG(DA,0)),"^",2) K:X(1)]"" ^PSDRUG("APC",X,X(1),DA)
3)= This is needed by Unit Dose Medications to do class checking.
This allows the Unit Dose Medications package to do class checking for drugs designated as
primary drugs. In the form of: ^PSDRUG("APC",PRIMARY DRUG ptr.,VA Class Code,DA)
CROSS-REFERENCE: 50^APN^MUMPS
1)= S X(1)=$G(^PSDRUG(DA,"ND")) I $P(X(1),"^")]"",$P(X(1),"^",3)]"" S ^PSDRUG("APN",X,$P(X(1),"^")_
"A"_$P(X(1),"^",3),DA)=""
2)= S X(1)=$G(^PSDRUG(DA,"ND")) I $P(X(1),"^")]"",$P(X(1),"^",3)]"" K ^PSDRUG("APN",X,$P(X(1),"^")_
"A"_$P(X(1),"^",3),DA)
3)= Needed by Inpatient Medications as a gateway from Primary to National Drug File.
This is used by the Inpatient Medications package as a gateway from Primary Drug to the National
Drug File. In the form of: ^PSDRUG("APN",PRIMARY DRUG ptr.,P(1) of "ND" node_A_P(3) of "ND"
node,DA)
CROSS-REFERENCE: ^^TRIGGER^52.6^16
1)= K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.6,16,1,0)) X ^DD(50,64,1,4,1.1) K PSJ,PSJ1,PSJ2,PSJ3
1.1)= F PSJ3=0:0 S PSJ3=$O(^PS(52.6,"AC",PSJ1,PSJ3)) Q:'PSJ3 I $D(^PS(52.6,PSJ3,0)) S DIU=$P(^(0),
"^",12) I DIU'=PSJ S $P(^(0),"^",12)=PSJ I PSJ2 S DIV=PSJ,(D0,DIV(0))=PSJ3,DIH=52.6,DIG=16 D ^DICR
2)= K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.6,16,1,0)) X ^DD(50,64,1,4,2.1) K PSJ,PSJ1,PSJ2,PSJ3
2.1)= F PSJ3=0:0 S PSJ3=$O(^PS(52.6,"AC",PSJ1,PSJ3)) Q:'PSJ3 I $D(^PS(52.6,PSJ3,0)) S DIU=$P(^(0),
"^",12) I DIU]"" S $P(^(0),"^",12)="" I PSJ2 S DIV="",(D0,DIV(0))=PSJ3,DIH=52.6,DIG=16 D ^DICR
3)= Needed to update the PRIMARY DRUG field in the IV ADDITIVES file.
CREATE VALUE)= X
DELETE VALUE)= @
FIELD)= GENERIC NAME:IV ADDITIVES:PRIMARY DRUG
This trigger is needed to update the PRIMARY DRUG field in the IV ADDITIVES file for all
additives that point to this GENERIC DRUG.
CROSS-REFERENCE: ^^TRIGGER^52.7^16
1)= K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.7,16,1,0)) X ^DD(50,64,1,5,1.1) K PSJ,PSJ1,PSJ2,PSJ3
1.1)= F PSJ3=0:0 S PSJ3=$O(^PS(52.7,"AC",PSJ1,PSJ3)) Q:'PSJ3 I $D(^PS(52.7,PSJ3,0)) S DIU=$P(^(0),
"^",12) I DIU'=PSJ S $P(^(0),"^",12)=PSJ I PSJ2 S DIV=PSJ,(D0,DIV(0))=PSJ3,DIH=52.7,DIG=16 D ^DICR
2)= K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.7,16,1,0)) X ^DD(50,64,1,5,2.1) K PSJ,PSJ1,PSJ2,PSJ3
2.1)= F PSJ3=0:0 S PSJ3=$O(^PS(52.7,"AC",PSJ1,PSJ3)) Q:'PSJ3 I $D(^PS(52.7,PSJ3,0)) S DIU=$P(^(0),
"^",12) I DIU]"" S $P(^(0),"^",12)="" I PSJ2 S DIV="",(D0,DIV(0))=PSJ3,DIH=52.7,DIG=16 D ^DICR
3)= Needed to update the PRIMARY DRUG field in the IV SOLUTIONS file.
CREATE VALUE)= X
DELETE VALUE)= @
FIELD)= GENERIC NAME:IV SOLUTIONS:PRIMARY DRUG
This trigger is needed to update the PRIMARY DRUG field in the IV SOLUTIONS file for all
additives that point to this GENERIC DRUG.
50,65 FORMULARY ALTERNATIVE 65;0 POINTER Multiple #50.065
HELP-PROMPT: Enter a formulary drug that may be used as an alternative to this non-formulary drug.
DESCRIPTION: This is a formulary alternative to this non-formulary drug. Any formulary alternatives are shown
to non-pharmacists whenever they attempt to order a non-formulary drug.
SCREEN: S DIC("S")="I '$P(^(0),""^"",9)"
EXPLANATION: Alternative must be a formulary item.
GROUP: PSJ
50.065,.01 FORMULARY ALTERNATIVE 0;1 POINTER TO DRUG FILE (#50) (Multiply asked)
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)
50,66 MAXIMUM DAYS SUPPLY 2;7 NUMBER
INPUT TRANSFORM: D MXDAYSUP^PSSDDUT2
LAST EDITED: APR 05, 2016
HELP-PROMPT: Enter the maximum number of days supply allowed for this drug. Enter ?? for important information
regarding default values and copays.
DESCRIPTION: This field is used to determine the maximum number for days supply that may be assigned to this
drug. If this field is left blank, the MAXIMUM DAYS SUPPLY is set to a default of 90 unless the
drug is a controlled substance or Clozapine. Any value greater than 90 increases the number of
potential copay units above 3.
The maximum value allowed for this field is 365 (days) for most drugs, however:
- Schedule 2 controlled substances have a 30-day maximum days supply
limit.
- Schedules 3 thru 5 controlled substances have a 90-day maximum days
supply limit.
- The maximum number of days supply for this drug cannot exceed the
National Drug File (NDF) maximum value if it exists.
- No value can be entered for Clozapine drugs as the maximum days supply
is controlled by the Clozapine functionality.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,81 DAW CODE EPH;1 NUMBER
INPUT TRANSFORM: D INPUT^PSSDAWUT
LAST EDITED: NOV 08, 2005
HELP-PROMPT: Dispensed As Written code. This information is used for NCPDP electronic claim transmission to
third party payers (insurance companies).
DESCRIPTION: Dispensed As Written code. This information is used for NCPDP electronic claim transmission to
third party payers (insurance companies).
EXECUTABLE HELP: D HLP^PSSDAWUT
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,82 NCPDP DISPENSE UNIT EPH;2 SET (Required)
'EA' FOR EACH;
'GM' FOR GRAMS;
'ML' FOR MILLILITERS;
INPUT TRANSFORM: D NCINIT^PSSDDUT2
LAST EDITED: MAY 18, 2007
HELP-PROMPT: Enter EA for EACH, GM for GRAMS or ML for MILLILITERS.
DESCRIPTION: The NCPDP QUANTITY MULTIPLIER field and this field are used to determine metric quantity for
electronic 3rd Party billing purposes.
This field indicates the NCPDP standard billing Unit of Measure (EA - EACH; GM - GRAMS; ML -
MILLILITERS).
TECHNICAL DESCR:
This field was initially populated by patch PSS*1*127.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,83 NCPDP QUANTITY MULTIPLIER EPH;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999.99999)!(X<.00001)!(X?.E1"."6.N) X D NCPDPQM^PSSDDUT2
LAST EDITED: NOV 05, 2014
HELP-PROMPT: Type a number between .00001 and 99999.99999, 5 decimal digits.
DESCRIPTION: The NCPDP DISPENSE UNIT field and this field are used to determine metric quantity for electronic
3rd Party billing purposes.
This field contains the number that will be multiplied by the quantity in the prescription in order
to determine the correct quantity to electronically bill 3rd party insurance companies.
TECHNICAL DESCR:
This field was initially populated by patch PSS*1*127.
EXECUTABLE HELP: D EN^PSSNCPDP
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,84 EPHARMACY BILLABLE EPH;4 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: SEP 30, 2015
HELP-PROMPT: Enter 'YES' if this drug is billable, otherwise enter 'NO'.
DESCRIPTION: This field indicates whether a prescription for this drug is billable. In general, OTCs and
supplies are not covered, except insulin, glucose test strips, insulin syringes and needles. Some
plans cover preventative care OTC products. A review of the Payable Claims Report may help
determine if a product marked as billable is covered.
50,85 EPHARMACY BILLABLE (TRICARE) EPH;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: SEP 22, 2015
HELP-PROMPT: Enter 'YES' if this drug is TRICARE billable, otherwise enter 'NO'. If unanswered, it will default
to the response for the general "EPHARMACY BILLABLE" field.
DESCRIPTION: This field indicates whether a prescription for this drug is TRICARE billable. In general, OTCs and
supplies are not covered, except insulin, glucose test strips, insulin syringes, needles and
inhaler spacers. If unsure mark as billable and change if prescriptions reject as not covered.
50,86 EPHARMACY BILLABLE (CHAMPVA) EPH;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAY 20, 2015
HELP-PROMPT: Enter 'YES' if this drug is CHAMPVA billable, otherwise enter 'NO'. If unanswered, it will default
to the response for the general "EPHARMACY BILLABLE" field.
DESCRIPTION: This field indicates whether a prescription for this drug is CHAMPVA billable. In general, OTCs
and supplies are not covered, except insulin, glucose test scripts, insulin syringes, needles and
inhaler spacers. If unsure mark as billable and change if prescriptions reject as not covered.
50,87 SENSITIVE DIAGNOSIS DRUG EPH;7 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: SEP 22, 2015
HELP-PROMPT: Enter 'YES' if this drug is used EXCLUSIVELY to treat a sensitive diagnosis, otherwise enter 'NO'.
DESCRIPTION: This field indicates whether this drug is used EXCLUSIVELY to treat one of the VA's sensitive
diagnoses, HIV, drug abuse, alcohol abuse and Sickle Cell anemia.
50,100 INACTIVE DATE I;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 17, 2000
HELP-PROMPT: Enter the date the drug became inactive.
DESCRIPTION:
This is the date the drug is inactive.
GROUP: PS
CROSS-REFERENCE: 50^AI^MUMPS
1)= S ^PSDRUG(DA,"I")=X
2)= K ^PSDRUG(DA,"I")
3)= Do Not Delete
This cross-reference insures that the "I" node is killed when the inactive date is deleted. In the
form of: ^PSDRUG(DA,"I")
CROSS-REFERENCE: 50^AR^MUMPS
1)= Q
2)= ; I '$D(DIU(0)) S X="PSNOUT" X ^%ZOSF("TEST") I D REACT^PSNOUT
This cross-reference calls up the NDF matching process when the entry is reactivated to insure that
it is matched. In the form of: ^PSDRUG(DA,"ND") No longer used at this time.
CROSS-REFERENCE: 50^AD^MUMPS
1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSP
OIDT K PSSCROSS Q
2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSP
OIDT K PSSCROSS Q
3)= Do Not Delete
This cross reference is used to keep the Pharmacy Orderable Item entry in the PHARMACY ORDERABLE
ITEM file (#50.7) up to date with current information, based on all active Drugs, IV Additives, and
IV Solutions that are matched to the Pharmacy Orderable Item. This information includes
Inactivation Date status, Non-Formulary status, Supply status, and Usage status. This information
is also sent to CPRS (Computerized Patient Record System) by using the "PS MFSEND OR" protocol to
update the corresponding Orderable Item entry in the ORDERABLE ITEMS file (#101.43).
50,101 MESSAGE 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>68!($L(X)<1) X
LAST EDITED: MAY 21, 1984
HELP-PROMPT: ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
DESCRIPTION: Message displayed whenever drug is selected for RX. Commonly used to warn about restrictions to
certain services, doctors, etc. This is purely a passive informational free text field.
GROUP: PS
50,102 RESTRICTION 2;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>13!($L(X)<13) X
LAST EDITED: OCT 27, 1989
HELP-PROMPT: ENTER THE LITERAL "RESTRICTED TO"
DESCRIPTION:
This is any restrictions that may apply to this drug.
GROUP: PS
50,212 ATC CANISTER 212;0 POINTER Multiple #50.0212
DESCRIPTION: This is the ATC dispensing machine canister number(s) for this drug by ward group. If a ward
group does not have a canister number, the pick lists for the ward group will not send this drug to
the ATC.
GROUP: PSJU
50.0212,.01 WARD GROUP FOR ATC CANISTER 0;1 POINTER TO WARD GROUP FILE (#57.5) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 11, 1990
HELP-PROMPT: Enter a Pharmacy ward group for which pick lists will be sent to the ATC.
DESCRIPTION: This is a ward group that has pick lists for this drug to be sent to the ATC dispensing
machine.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)=""P"""
EXPLANATION: ONLY PHARMACY WARD GROUPS ARE SELECTABLE.
GROUP: PSJU
CROSS-REFERENCE: 50.0212^B
1)= S ^PSDRUG(DA(1),212,"B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),212,"B",$E(X,1,30),DA)
50.0212,1 ATC CANISTER 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>800)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 19, 2000
HELP-PROMPT: Type a number between 1 and 800, 0 Decimal Digits. Use numbers 213-500 only if your site is using
the ATC Profile, and numbers 213-800 if your site is using either the FDS 330 or the FDS 520
machine.
DESCRIPTION: This should be the number of the canister from the Baxter ATC dispensing machine that contains
this drug. If no number is entered here, the Unit Dose package will assume that this drug is NOT
currently in the ATC.
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50.0212^AC^MUMPS
1)= S ^PSDRUG(DA(1),212,"AC",+^PSDRUG(DA(1),212,DA,0),X,DA)=""
2)= K ^PSDRUG(DA(1),212,"AC",+^PSDRUG(DA(1),212,DA,0),X,DA)
Sets ATC Canister sub-field ATC Canister (1) cross-ref. In the form of:
^PSDRUG(DA(1),212,"AC",+^PSDRUG(DA(1),212,DA,0),X,DA)
50,212.1 *ATC CANISTER 8.5;1 NUMBER
ATC CANISTER (OLD)
INPUT TRANSFORM: K:+X'=X!(X>212)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 06, 1987
HELP-PROMPT: Enter a Number between 1 and 212, 0 Decimal Digits.
DESCRIPTION: This should be the number of the canister from the Baxter ATC 212 dispensing machine that
contains this drug. If no number is entered here, the Unit Dose package will assume that this drug
is NOT currently in the ATC.
GROUP: PSJU
50,212.2 ATC MNEMONIC 8.5;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1)!'(X'?1.N) X
LAST EDITED: MAY 25, 2000
HELP-PROMPT: Answer must be 1-15 characters in length
DESCRIPTION: This is the link between the Unit Dose package and the ATC dispensing machine. The data here is
sent to the ATC, and therefore MUST match the mnemonic entered for this same drug in the ATC. If
the mnemonic entered here does not match a mnemonic within the ATC, any pick list with this
mnemonic sent to the ATC will not complete.
EXECUTABLE HELP: D ATC^PSSDDUT2
GROUP: PSJU
CROSS-REFERENCE: 50^XATC
1)= S ^PSDRUG("XATC",$E(X,1,30),DA)=""
2)= K ^PSDRUG("XATC",$E(X,1,30),DA)
50,213 CMOP DISPENSE 3;1 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAY 01, 1995
DESCRIPTION:
Indicates if this drug may be dispensed from the Consolidated Mail Outpatient Pharmacy System.
TECHNICAL DESCR:
Set of codes
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 50^AQ^MUMPS
1)= S:X=1 ^PSDRUG("AQ",DA)=""
2)= K ^PSDRUG("AQ",DA)
3)= Do Not Delete
This cross reference is present if the drug file entry has been marked to send to the Consolidated
Mail Outpatient Pharmacy (CMOP) system. In the form of: ^PSDRUG("AQ",DA)
CROSS-REFERENCE: 50^AG^MUMPS
1)= S TMP=X N X S X="PSXREF" X ^%ZOSF("TEST") Q:'$T S X=TMP K TMP D ACT^PSXREF
2)= Q
3)= DO NOT DELETE
This cross reference sets the appropriate data in the Activity Log multiple to audit editing of
this field. In the form of: ^PSDRUG(DA,4,IEN,0)
50,214 ACTIVITY LOG 4;0 DATE Multiple #50.0214 (Add New Entry without Asking)
DESCRIPTION: Date the activity occurred.
TECHNICAL DESCR:
Date (Multiply asked)
50.0214,.01 ACTIVITY LOG 0;1 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 06, 1993
DESCRIPTION: Date the activity occurred.
TECHNICAL DESCR:
Date (Multiply asked)
CROSS-REFERENCE: 50.0214^B
1)= S ^PSDRUG(DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),4,"B",$E(X,1,30),DA)
50.0214,1 REASON 0;2 SET
'E' FOR EDIT;
LAST EDITED: AUG 06, 1993
HELP-PROMPT: Enter code to indicate the activity taking place for this entry.
DESCRIPTION: The activity responsible for this entry.
50.0214,2 INITIATOR OF ACTIVITY 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 06, 1993
HELP-PROMPT: Enter the name of the person initiating the activity.
DESCRIPTION: Pointer to the New Person file. The person initiating this activity.
50.0214,3 FIELD EDITED 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X
LAST EDITED: AUG 06, 1993
HELP-PROMPT: Answer must be 3-25 characters in length.
DESCRIPTION: The free text name of the field that is being edited.
50.0214,4 NEW VALUE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X
LAST EDITED: AUG 06, 1993
HELP-PROMPT: Answer must be 3-25 characters in length.
DESCRIPTION: The new value of the field being edited.
50.0214,5 NDF UPDATE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X
LAST EDITED: JAN 23, 2001
HELP-PROMPT: Answer must be 3-25 characters in length.
DESCRIPTION: This field will be set to the text 'NDF Update' if this change was made by an NDF Data Update
patch.
TECHNICAL DESCR:
Hard set to 'NDF Update' by the post-install routine of an NDF Data Update patch.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50,215 QUANTITY DISPENSE MESSAGE 5;1 FREE TEXT
INPUT TRANSFORM: K:($L(X)>68)!($L(X)<1) X
LAST EDITED: JAN 31, 1994
HELP-PROMPT: Answer must be 1-68 characters in length.
DESCRIPTION: This is a free text description used by pharmacy personnel to indicate which quantities for the
drug/item are stocked by the Outpatient Pharmacy system for this facility.
TECHNICAL DESCR:
Free text
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,300 INPATIENT PHARMACY LOCATION PSG;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
LAST EDITED: JUN 21, 1984
HELP-PROMPT: Answer must be 1-12 characters in length.
DESCRIPTION: Enter from 1 to 3 location codes, each separated by commas, that define the location of this item
in the inpatient pharmacy storage. This will be used to sort Automatic Replenishment reports for
easier location of items.
GROUP: PSGW
50,301 AR/WS AMIS CATEGORY PSG;2 SET
'0' FOR Field 03 or 04 - Doses by Type;
'1' FOR Field 06 or 07 - Units of Issue;
'2' FOR Field 17 - Fluids and Admin Sets;
'3' FOR Field 22 - Blood Products;
LAST EDITED: DEC 13, 1988
HELP-PROMPT: Enter the category that this drug is to be classified as for AMIS statistics in Automatic
Replenishment/Ward Stock.
DESCRIPTION: This refers to the category that this drug is to be classified as for AMIS statistics in Automatic
Replenishment/Ward Stock.
GROUP: PSGW
50,302 AR/WS AMIS CONVERSION NUMBER PSG;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 01, 1987
HELP-PROMPT: Enter a whole number between 1 and 9999, 0 Decimal Digits.
DESCRIPTION: This number reflects the number of doses/units contained in the dispensed drug for Automatic
Replenishment/Ward Stock AMIS statistics. For example: For a 20cc vial, the quantity dispensed is
1, and
the conversion number is 20.
For 5 oz. antacid, the quantity dispensed is 1, and
the conversion number is 1.
For a bottle of 100 aspirin, the quantity dispensed is 1,
and the conversion number is 100.
GROUP: PSGW
50,400 SERVICE CODE PFS;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>699999)!(X<600001)!(X?.E1"."1N.N) X
LAST EDITED: MAY 18, 2005
HELP-PROMPT: This is required for external billing purposes only. Answer must be between 600001-699999.
DESCRIPTION: The Charge Description Master (CDM) Change Control board assigns value for this field. The value
should be a number between 600001-699999.
TECHNICAL DESCR: This field was introduced as part of the Patient Financial Services System (PFSS) project, to
implement a new COTS billing system. Pharmacy application will maintain a CDM/Service Code for
every dispensed item. It requires that every prescription charge transaction passed to the external
billing system to pass a service code. If the drug is not matched to NDF or the Service Code field
in the VA PRODUCT file #50.68 is undefined, this field will be prompted during DRUG ENTER/EDIT [PSS
DRUG ENTER/EDIT] option. In the event the drug is matched later to a NDF entry, previously defined
Service Code will be retained.
50,441 IFCAP ITEM NUMBER 441;0 POINTER Multiple #50.0441
LAST EDITED: MAR 17, 1992
DESCRIPTION:
To provide a direct link between the DRUG file and the ITEM MASTER file.
TECHNICAL DESCR: To connect the DRUG file (#50) to the ITEM MASTER file (#441). This may be a one-to-many
relationship.
50.0441,.01 ITEM NUMBER 0;1 POINTER TO ITEM MASTER FILE (#441) (Multiply asked)
INPUT TRANSFORM: D:$G(DA) FI^PSSAUTL S DIC("S")="I $E($G(^(3)),1)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 31, 1992
HELP-PROMPT: Enter ITEM MASTER Number or short description.
DESCRIPTION: This field contains any or all items in the ITEM MASTER file that relate to this drug. This
relationship will enable automated receiving from the IFCAP Inventory module.
TECHNICAL DESCR: With the "AB" cross reference this multiple will be used when PRCP routines pass receiving data
to PSA routines.
SCREEN: S DIC("S")="I $E($G(^(3)),1)'=1"
EXPLANATION: Cannot select Inactive items.
LAYGO TEST: 1,0)= N PSA S PSA=$O(^PSDRUG("AB",+X,0)) S:PSA=DA PSA=$O(^(DA)) W:$G(PSA) $C(7),!!,$P($G(^PSDRUG(
+$O(^PSDRUG("AB",+X,0)),0)),U)," is already linked to",!!,"Item #",X," ",$$DESCR^PRCPUX1(0,X) I '$
G(PSA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:50.0441^B
1)= S ^PSDRUG(DA(1),441,"B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),441,"B",$E(X,1,30),DA)
CROSS-REFERENCE:50^AB
1)= S ^PSDRUG("AB",$E(X,1,30),DA(1),DA)=""
2)= K ^PSDRUG("AB",$E(X,1,30),DA(1),DA)
To locate drug by ITEM MASTER file number.
50,900 OLD NAMES 900;0 Multiple #50.01 (Add New Entry without Asking)
50.01,.01 OLD NAMES 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: MAR 25, 1985
HELP-PROMPT: ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
UNEDITABLE
50.01,.02 DATE CHANGED 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 25, 1985
50,901 STRENGTH DOS;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."5N.N)!('$P($G(^PSDRUG(DA,"DOS")),"^",2)) X
LAST EDITED: MAR 12, 2000
HELP-PROMPT: This field is a numeric value representing the single dose of medication supplied by this product.
DESCRIPTION:
This field is a numeric value representing the single dose of medication supplied by this product.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50^AH^MUMPS
1)= D SETS^PSSDOSED
2)= D KILLS^PSSDOSED
This cross reference is used to update all the Possible Dosages for this drug. It sets piece 2 of
^PSDRUG(DA(1),"DOS1",DA,0)= Strength times (*) Dispense Units Per Dose.
50,902 UNIT DOS;2 POINTER TO DRUG UNITS FILE (#50.607)
LAST EDITED: MAR 13, 2000
HELP-PROMPT: Unit of measure. Pointer to the Drug Units File #50.607.
DESCRIPTION:
Unit of measure. Pointer to the Drug Units File #50.607.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
UNEDITABLE
50,903 POSSIBLE DOSAGES DOS1;0 Multiple #50.0903
LAST EDITED: MAR 06, 2000
DESCRIPTION: This multiple contains the dispense units per dose, dose and package fields. Possible Dosages can
be created only for drugs that meet the specified criteria based on the VA Product File match.
Possible Dosages are numeric. If a drug cannot have Possible Dosages based on the criteria not
being met, then Local Possible Dosages should be created for the drug.
IDENTIFIED BY: DOSE(#1)
50.0903,.01 DISPENSE UNITS PER DOSE 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."5N.N)!('$P($G(^PSDRUG(DA(1),"DOS")),"^",2)) X
LAST EDITED: APR 24, 2001
HELP-PROMPT: Type a Number between 0 and 99999999, 4 Decimal Digits
DESCRIPTION: This numeric entry shall be used with the strength to compute the dose. Only drugs that meet the
specified criteria based on the VA Product File match can have Possible Dosages.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50.0903^B
1)= S ^PSDRUG(DA(1),"DOS1","B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),"DOS1","B",$E(X,1,30),DA)
CROSS-REFERENCE: 50.0903^AC^MUMPS
1)= D SET^PSSDOSED
2)= D KILL^PSSDOSED
This cross reference is used to update the Dose field for this Dispense Units Per Dose entry. It
sets piece 2 of ^PSDRUG(DA(1),"DOS1",DA,0)= Strength times (*) Dispense Units Per Dose.
50.0903,1 DOSE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."5N.N) X
LAST EDITED: MAR 13, 2000
HELP-PROMPT: Type a Number between 0 and 9999999999, 4 Decimal Digits
DESCRIPTION: The value in this field shall be computed by multiplying the Dispense Units Per Dose by the
Strength.
UNEDITABLE
50.0903,2 PACKAGE 0;3 FREE TEXT
INPUT TRANSFORM: D IO^PSSDOSED
LAST EDITED: MAR 12, 2000
HELP-PROMPT: Enter an 'I' for Inpatient, 'O' for Outpatient, 'IO' for both.
DESCRIPTION: This field will allow a dose to be marked for Inpatient Medications and/or Outpatient Pharmacy
package use. It will allow a package to be marked only if the combination of Dose Form and Unit
from the National Drug File match is marked as convertible in the Dosage Form (#50.606) file.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50.0903,3 BCMA UNITS PER DOSE 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 05, 2001
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits. If there is a number entered, it will be used
as a default for the Units Per Dose field within the Unit Dose order.
DESCRIPTION: This field represents the BCMA UNITS PER DOSE, which is associated with the Dosage for Inpatient
Medication orders. This field will be used to populate the Units Per Dose field that designates
the number of Dispense Drug units required to deliver a needed Dosage through the BCMA
application.
50,904 LOCAL POSSIBLE DOSAGE DOS2;0 Multiple #50.0904
DESCRIPTION: This multiple contains the local possible dose and package. If a drug does not have Possible
Dosages because it does not meet the specified criteria based on the VA Product File match, then
Local Possible Dosages should be created.
50.0904,.01 LOCAL POSSIBLE DOSAGE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: D AMPCHK^PSSORPH1 K:$L(X)>60!($L(X)<1) X
LAST EDITED: JUL 23, 2008
HELP-PROMPT: Answer must be 1-60 characters in length.
DESCRIPTION: This field represents the Dosage selections that will display in CPRS for this drug when the
Pharmacy Orderable Item that this drug is matched to is selected. These dosages will be presented
for selection only if there are no Possible Dosages available for the Pharmacy type of order
being entered. Local Possible Dosages should be created when a drug does not have any Possible
Dosages. The Possible Dosages can only be created when the VA Product File match of the drug meet
specified criteria.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50.0904^B
1)= S ^PSDRUG(DA(1),"DOS2","B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),"DOS2","B",$E(X,1,30),DA)
50.0904,1 PACKAGE 0;2 SET
'I' FOR Inpatient;
'O' FOR Outpatient;
'IO' FOR Both;
'OI' FOR Both;
LAST EDITED: APR 25, 2000
HELP-PROMPT: Enter an 'I' for Inpatient, 'O' for Outpatient, 'IO' or 'OI' for both.
DESCRIPTION: This field will allow a dose to be marked for Inpatient Medications and/or Outpatient Pharmacy
package use.
50.0904,2 BCMA UNITS PER DOSE 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 05, 2001
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits. If there is a number entered, it will be used
as a default for the Units Per Dose field within the Unit Dose order.
DESCRIPTION: This field represents the BCMA UNITS PER DOSE, which is associated with the Dosage for Inpatient
Medication orders. This field will be used to populate the Units Per Dose field that designates
the number of Dispense Drug units required to deliver a needed Dosage through the BCMA
application.
50.0904,3 OTHER LANGUAGE DOSAGE NAME 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: SEP 16, 2002
HELP-PROMPT: Answer must be 1-60 characters in length.
DESCRIPTION:
This field is used to store local possible dosage in another language.
TECHNICAL DESCR:
free text.
GROUP: PSO
50.0904,4 DOSE UNIT 0;5 POINTER TO DOSE UNITS FILE (#51.24)
INPUT TRANSFORM: S DIC("S")="I '$$SCREEN^XTID(51.24,.01,+Y_"","")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 09, 2008
HELP-PROMPT: Enter the Dose Unit to be used with the Numeric Dose for the dosage check on this Local Possible
Dosage.
DESCRIPTION: This is the Dose Unit for this Local Possible Dosage. If this Local Possible Dosage is used for a
medication order, the dosage check will be performed using this Dose Unit, along with the Numeric
Dose associated with this Local Possible Dosage.
SCREEN: S DIC("S")="I '$$SCREEN^XTID(51.24,.01,+Y_"","")"
EXPLANATION: Inactive Dose Units will not be selectable.
50.0904,5 NUMERIC DOSE 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999999)!(X<.00001)!(X?.E1"."6N.N) X
OUTPUT TRANSFORM: S:$E(Y,1)="." Y=0_Y
LAST EDITED: OCT 01, 2008
HELP-PROMPT: Type a Number between .00001 and 99999999999999, 5 Decimal Digits, to be used with the Dose Unit
for the dosage check on this Local Possible Dosage.
DESCRIPTION: This is the Numeric Dose for this Local Possible Dosage. If this Local Possible Dosage is used
for a medication order, the dosage check will be performed using this Numeric Dose, along with
the Dose Unit associated with this Local Possible Dosage.
50,905 CORRESPONDING INPATIENT DRUG 8;6 POINTER TO DRUG FILE (#50)
INPUT TRANSFORM: K:$P($G(^PSDRUG(X,2)),"^",3)'["I"&($P($G(^PSDRUG(X,2)),"^",3)'["U") X
LAST EDITED: APR 03, 2000
HELP-PROMPT: Enter the appropriate corresponding Inpatient Medications drug. Only drugs marked for Unit Dose or
IV are selectable.
DESCRIPTION: This field will be used when transferring orders from Outpatient Pharmacy to Inpatient Medications.
Only drugs marked for Inpatient Medications can be selected.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50,906 OPAI OPAI;0 POINTER Multiple #50.0906 (Add New Entry without Asking)
DESCRIPTION:
This multiple contains the automated dispensing devices associated with a division for this drug.
IDENTIFIED BY:
"W1": S %I=Y,Y=$S('$D(^(0)):"",$D(^PS(52.53,+$P(^(0),U,2),0))#2:$P(^(0),U,1)_" ("_$P(^(0),U,2)_")",1:""),
C=$P(^DD(52.53,.01,0),U,2) D Y^DIQ:Y]"" D EN^DDIOL(Y,,"?30") S Y=%I K %I
50.0906,.01 DIVISION 0;1 POINTER TO OUTPATIENT SITE FILE (#59) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUN 04, 2010
HELP-PROMPT: Enter the division associated with the automated dispensing device.
DESCRIPTION:
This is the division associated with the automated dispensing device for this drug.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50.0906^B
1)= S ^PSDRUG(DA(1),"OPAI","B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),"OPAI","B",$E(X,1,30),DA)
50.0906,1 WINDOW DNS NAME 0;2 POINTER TO PHARMACY AUTOMATED DISPENSING DEVICES FILE (#52.53)
LAST EDITED: OCT 04, 2011
HELP-PROMPT: Enter the automated dispensing device for orders with a window route.
DESCRIPTION: This is the name of the automated dispensing device associated with this site. Orders with a
window route will be sent to this ADD.
50.0906,2 MAIL DNS NAME 0;3 POINTER TO PHARMACY AUTOMATED DISPENSING DEVICES FILE (#52.53)
LAST EDITED: OCT 04, 2011
HELP-PROMPT: Enter the automated dispensing device for orders with a mail route.
DESCRIPTION: This is the name of the automated dispensing device associated with this site. Orders with a mail
route will be sent to this ADD.
50,907 RESTRICT FOR ONEVA PHARMACY 6;2 SET (BOOLEAN Data Type)
LAST EDITED: FEB 23, 2024
HELP-PROMPT: Enter '1' to prevent a drug from being processed by OneVA Pharmacy. Select '0' to allow
processing.
DESCRIPTION: This flag will control if a drug can be processed using OneVA Pharmacy. A value of 1 indicates
prescriptions for this drug may not be filled via OneVA Pharmacy. A value of 0 or blank indicates
prescriptions for this drug may be filled via OneVA Pharmacy. Setting this field to 1 at either the
Host site or Dispensing site will prevent prescriptions for this drug from being filled via OneVA
Pharmacy.
50,950 HISTORY PRICE DISPENSE UNIT 950;0 DATE Multiple #50.03
DESCRIPTION:
Multiple to store data related to a price change for the drug.
50.03,.01 DT/TM DISP UNIT PRICE CHANGE 0;1 DATE (Multiply asked)
DT/TM DISP UNIT PRICE CHANGED
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 03, 2018
HELP-PROMPT: Enter the date/time the price was changed.
DESCRIPTION: This field tracks the Date and Time whenever the PRICE PER DISPENSE UNIT (#16) field is changed.
It is set using a trigger cross-reference on the PRICE PER DISPENSE UNIT (#16) field.
CROSS-REFERENCE: 50.03^B
1)= S ^PSDRUG(DA(1),950,"B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),950,"B",$E(X,1,30),DA)
50.03,1 EDITED BY 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 06, 2017
HELP-PROMPT: Select the person making the price change.
DESCRIPTION:
This is a pointer to the NEW PERSON (#200) file for the price change.
50.03,3 NEW VALUE 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999.99999)!(X<0)!(X?.E1"."6N.N) X
LAST EDITED: MAR 06, 2017
HELP-PROMPT: Type a number between 0 and 99999.99999, 5 decimal digits.
DESCRIPTION:
This is the new price value to be tracked.
50,623002 *LAB TEST MONITOR 623002;1 POINTER TO LABORATORY TEST FILE (#60)
LAST EDITED: NOV 05, 1992
DESCRIPTION:
This is the lab test results of which should be checked before this drug is dispensed.
50,623003 *MONITOR MAX DAYS 623002;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 05, 1992
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: This is the number of days during which the results of the lab tests are of interest when
dispensing this drug.
50,623004 *SPECIMEN TYPE 623002;3 POINTER TO TOPOGRAPHY FIELD FILE (#61)
LAST EDITED: NOV 05, 1992
DESCRIPTION:
This is the specimen type on which the lab test should be run.
50,623008 *MONITOR ROUTINE 623008;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<3) X
LAST EDITED: NOV 05, 1992
HELP-PROMPT: Answer must be 3-8 characters in length.
DESCRIPTION: This is the name of the routine which is called to do all necessary checking on lab test results
before dispensing this drug.
FILES POINTED TO FIELDS
DOSE UNITS (#51.24) LOCAL POSSIBLE DOSAGE:DOSE UNIT (#4)
DRUG (#50) CORRESPONDING OUTPATIENT DRUG (#62.05)
CORRESPONDING INPATIENT DRUG (#905)
FORMULARY ALTERNATIVE:FORMULARY ALTERNATIVE (#.01)
DRUG TEXT (#51.7) DRUG TEXT ENTRY:DRUG TEXT ENTRY (#.01)
DRUG UNITS (#50.607) UNIT (#902)
ITEM MASTER (#441) IFCAP ITEM NUMBER:ITEM NUMBER (#.01)
IV ADDITIVES (#52.6) *PRIMARY DRUG (#64)
IV SOLUTIONS (#52.7) *PRIMARY DRUG (#64)
LABORATORY TEST (#60) LAB TEST MONITOR (#17.2)
*LAB TEST MONITOR (#623002)
CLOZAPINE LAB TEST:LAB TEST MONITOR (#.01)
MEDICATION ROUTES (#51.2) UNIT DOSE MED ROUTE (#62.02)
NEW PERSON (#200) ACTIVITY LOG:INITIATOR OF ACTIVITY (#2)
HISTORY PRICE DISPENSE UNIT:EDITED BY (#1)
NDC BY OUTPATIENT SITE AUDIT:USER (#1)
DT/TM DISP UNIT PRICE CHANGED:EDITED BY (#1)
ORDER UNIT (#51.5) ORDER UNIT (#12)
FIELD^NL^405^9:ORDER UNIT (#401)
OUTPATIENT SITE (#59) NDC BY OUTPATIENT SITE:OUTPATIENT SITE (#.01)
OPAI:DIVISION (#.01)
PACKAGE SIZE (#50.609) PACKAGE SIZE (#23)
PACKAGE TYPE (#50.608) PACKAGE TYPE (#24)
PHARMACY AUTOMATED DISPENSING
(#52.53) OPAI:WINDOW DNS NAME (#1)
MAIL DNS NAME (#2)
PHARMACY ORDERABLE ITEM (#50.7) PHARMACY ORDERABLE ITEM (#2.1)
PRIMARY DRUG (#50.3) *PRIMARY DRUG (#64)
TOPOGRAPHY FIELD (#61) SPECIMEN TYPE (#17.4)
*SPECIMEN TYPE (#623004)
CLOZAPINE LAB TEST:SPECIMEN TYPE (#2)
VA DRUG CLASS (#50.605) NATIONAL DRUG CLASS (#25)
VA GENERIC (#50.6) NATIONAL DRUG FILE ENTRY (#20)
VA PRODUCT (#50.68) PSNDF VA PRODUCT NAME ENTRY (#22)
WARD GROUP (#57.5) ATC CANISTER:WARD GROUP FOR ATC CANISTER (#.01)
File #50
Record Indexes:
AOC (#38) RECORD REGULAR IR SORTING ONLY
Short Descr: Link between Pharmacy Orderable Item and VA Classification fields.
Description: This cross reference is used as a link between Pharmacy Orderable Item
and VA Classification. Cross-reference created: ^PSDRUG("AOC",X(1),X,DA)
X(1) => Orderable Item (IEN)
X => VA Classification
DA => Dispense Drug (IEN)
Set Logic: S ^PSDRUG("AOC",X(1),$E(X(2),1,30),DA)=""
Kill Logic: K ^PSDRUG("AOC",X(1),$E(X(2),1,30),DA)
Whole Kill: K ^PSDRUG("AOC")
X(1): PHARMACY ORDERABLE ITEM (50,2.1) (Subscr 1) (forwards)
X(2): VA CLASSIFICATION (50,2) (Subscr 2) (Len 30) (forwards)
INPUT TEMPLATE(S):
PSGW ENTER/EDIT AMIS DATA MAY 02, 1988 USER #0
PSJ FILED APR 15, 1994@09:49 USER #0
PSJU DRUG EDIT FEB 20, 1991@22:51 USER #0
PSJU FILED JUL 22, 1992@13:31 USER #0
PSO CLOZDRUG APR 23, 1996@15:12 USER #0
PSS CLOZDRUG SEP 03, 1997@14:25 USER #0
PSS SYNONYM MAY 04, 2000@10:35 USER #0
PSSCOMMON JUN 08, 2021@07:06 USER #0
PSSOP MAR 21, 2001@12:04 USER #0
PSX DRUG FEB 03, 1994 USER #0
PRINT TEMPLATE(S):
CAPTIONED USER #0
PSADRI APR 01, 1997@10:26 USER #0 ^PSADRI @
PSADRIH DEC 01, 1992@10:23 USER #0 @
PSADRIP OCT 28, 1993@15:01 USER #0 [PSADRIH]
PSNFRMPRT MAR 12, 1993@08:40 USER #0 DRUG LIST
PSNHEAD DEC 03, 1998@08:52 USER #0 DRUG LIST
PSNLDG1 NOV 15, 1998@18:03 USER #0 DRUG LIST
PSNODDI1 MAY 12, 2003@15:22 USER #0 DRUG LIST
PSNODDI2 MAY 13, 2003@12:43 USER #0 DRUG LIST
PSNRPT4 SEP 03, 1991@21:49 USER #0 DRUG LIST
PSO ALPHA DRUG LIST JAN 08, 1993@15:48 USER #0 ALPHABETIC DRUG LIST AND SYNONYMS
PSO DRUG LIST AUG 29, 1985 USER #0 FORMULARY LISTING
PSO INACTIVE DRUG LIST AUG 29, 1985 USER #0 INACTIVE DRUG LIST
PSO N/F LIST AUG 29, 1985 USER #0 NON-FORMULARY DRUG LIST
PSO SYNONYM LIST JAN 19, 1983 USER #0 DRUG LIST BY SYNONYM
SORT TEMPLATE(S):
PSNFRMSRT SEP 25, 1992@12:59 USER #0
SORT BY: @VA DRUG CLASS CODE;S1// (User is asked range)
WITHIN VA DRUG CLASS CODE, SORT BY: @NON-FORMULARY// From '@' To '@^@'
WITHIN NON-FORMULARY, SORT BY: @GENERIC NAME//
WITHIN GENERIC NAME, SORT BY: @@@SYNONYM//
FIELD: INTENDED USE// From '-1^0' To '0^0'
PSO DRUG LIST MAY 12, 1982 USER #0
SORT BY: 'INACTIVE DATE// From '@' To '@'
WITHIN INACTIVE DATE, SORT BY: @NON-FORMULARY// From '@' To '@'
WITHIN NON-FORMULARY, SORT BY: GENERIC NAME//
FORM(S)/BLOCK(S):