Global: ^PSDRUG

This field contains the internal record number of the drug.

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.

100,0)= I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED!","","!?10")

1)= S ^PSDRUG("B",$$UP^XLFSTR($E(X,1,50)),DA)=""

2)= K ^PSDRUG("B",$$UP^XLFSTR($E(X,1,50)),DA)

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)

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")

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)

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

1)= S ^PSDRUG("BCAP",$$UP^XLFSTR($E(X,1,50)),DA)=""

2)= K ^PSDRUG("BCAP",$$UP^XLFSTR($E(X,1,50)),DA)

This is the VA classification for this drug.

free text

TRIGGERED by the NATIONAL DRUG CLASS field of the DRUG File

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:$P(^PSDRUG(DA,"ND"),"^",2)="" ^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. The kill logic is only executed if the entry is not matched to NDF. It is in the form of:

^PSDRUG("VAC",X,DA)

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)

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)

Name used by ORDER ENTRY/RESULTS REPORTING.

Points to file #50.7.

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.

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)="".

This field is used to show the DEA Special Handling .

free text

1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q

2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT 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).

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),9999999)),DIV=X S $P(^(9999999),U,8)=DIV,DIH=50,DIG=9999999.08 D ^DICR

2)= Q

CREATE VALUE)= ""

DELETE VALUE)= NO EFFECT

FIELD)= EXT

This field is used as a standard maximum dosage.

numeric

9.2 =

9.3 =

9.4 = S Y=$O(^PS(51,"B",Z1,0)) Q:'Y  S Z1=$P(^PS(51,Y,0),U,2) Q:'$D(^(9))  S Y=$P(X," ",Z0-1),Y=$E(Y,$L(Y)) S:Y>1 Z1=^(9)

This field is used as a standard default for medication instructions.

free text

This is the federal stock number of this drug.

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

This field is used to indicate if a warning should be printed with the selection of this drug.

Enter a comma-delimited list of warning numbers from old and new warning files, following new file entries with an "N".

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.

contains a "Y", then the warning will print for both genders.

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.

locate NDCs to increment the drug's inventory when orders are received.

This field is used to indicate the reorder level for this drug.

numeric

This is the order unit for this drug.

This is the price per order unit for this drug.

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) 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)=X S X=1,Y(3)=X S X=4,X=$J(Y(2),Y(3),X)

1.4)= S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))

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) S DIU=X K Y S X=DIV S X="" X ^DD(50,13,1,1,2.4)

2.4)= S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))

CREATE CONDITION)= #15>0

CREATE VALUE)= $J(#13/#15,1,4)

DELETE VALUE)= @

FIELD)= #16

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(50,13,1,2,1.1) X ^DD(50,13,1,2,1.4)

1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%

1.4)= S DIH=$G(^PSDRUG(DIV(0),9999999)),DIV=X S $P(^(9999999),U,2)=DIV,DIH=50,DIG=9999999.02 D ^DICR

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(50,13,1,2,2.1) X ^DD(50,13,1,2,2.4)

2.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%

2.4)= S DIH=$G(^PSDRUG(DIV(0),9999999)),DIV=X S $P(^(9999999),U,2)=DIV,DIH=50,DIG=9999999.02 D ^DICR

CREATE VALUE)= NOW

DELETE VALUE)= NOW

FIELD)= #9999999.02

This trigger will set the Last Price Update field to the current date/time when the PRICE PER ORDER UNIT field value is changed.

This is the normal amount to order for this drug.

This is the dispense unit for this drug.

This is the dispense units per order unit for this drug.

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)):^(660),1:"") S X=$P(Y(1),U,6) 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)=X S X=1,Y(3)=X S X=4,X=$J(Y(2),Y(3),X)

1.4)= S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))

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) S DIU=X K Y S X=DIV S X="" X ^DD(50,15,1,1,2.4)

2.4)= S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))

CREATE CONDITION)= #15>0

CREATE VALUE)= $J(#13/#15,1,4)

DELETE VALUE)= @

FIELD)= #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,999999931)):^(999999931),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(50,15,1,2,1.1) X ^DD(50,15,1,2,1.4)

1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,999999931)):^(999999931),1:"") S X=$P(Y(1),U,1),X=$S(DIV:X/DIV,1:"*******"),Y(2)=X S X=1,Y(3)=X S X=3,X=$J(Y(2),Y(3),X)

1.4)= S DIH=$S($D(^PSDRUG(DIV(0),999999931)):^(999999931),1:""),DIV=X S $P(^(999999931),U,2)=DIV,DIH=50,DIG=9999999.32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,999999931)):^(999999931),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(50,15,1,2,2.4)

2.4)= S DIH=$S($D(^PSDRUG(DIV(0),999999931)):^(999999931),1:""),DIV=X S $P(^(999999931),U,2)=DIV,DIH=50,DIG=9999999.32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE CONDITION)= #15>0

CREATE VALUE)= $J(#9999999.31/#15,1,3)

DELETE VALUE)= @

FIELD)= AWP PER DISP UNIT

This cross reference updates the AWP PER DISP UNIT field.

This is the price per dispense unit for this drug.

WRITE AUTHORITY:  @

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

This field is used to indicate the source of the supply for this medication/ supply.

free text

This field is used to show the expiration date of the current supply of available drugs.

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.

This is the lab test results which should be checked before this drug is dispensed.

This is the number of days during which the results of the lab test are of interest when dispensing this drug.

This is the specimen type on which the lab test should be run.

This is the name of the routine which is called to do all necessary checking on lab test results before dispensing this drug.

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)

This field is set to "1" if the drug is marked for Lab Monitor purposes.

This is the inventory order units for this drug.

This is the pointer to the National Drug file (^PSNDF).

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

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.

1)= S ^PSDRUG("AND",$E(X,1,30),DA)=""

2)= K ^PSDRUG("AND",$E(X,1,30),DA)

This is the VA Product Name matched to in the National Drug file.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

1)= S ^PSDRUG("VAPN",$E(X,1,30),DA)=""

2)= K ^PSDRUG("VAPN",$E(X,1,30),DA)

This is the pointer to the VA Product file in the National Drug File package.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

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.

This is the pointer to the Package Size file.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

This is the pointer to the Package Type file.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

This is the pointer to the VA Drug Class file.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

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.

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

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,+D0,0)) D0=-1

This is the VA Drug Class Code along with the description of that class.

This field contains the VA CMOP National Identifier from NDF.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

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.

Indicates if this drug may be dispensed to an external interface dispensing machine.

Set of codes.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

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)

the local level.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

The amounts available form within the various additives that occurr in a TPN order will be added together and printed on the TPN lasbelbel.  EXAMPLE:  !)  10ml's of KCL (2mEq/1.0ml) will add 20 mEq of POTASSSIUM and 20 mEq

of SODIUM to the TPN label.

This is the National Drug Code for this drug.

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)

1)= Q:$D(DIU(0))  S APSQDEL=0 D SINGLE^APSQAWP

2)= Q:$D(DIU(0))  S APSQDEL=1 D SINGLE^APSQAWP

3)= USED TO DELETE THE AWP PRICING INFO IF NDC DELETED

1)= D XREF^APSPMDD S ^PSDRUG("ZNDC",X,DA)=""

2)= D XREF^APSPMDD K ^PSDRUG("ZNDC",X,DA)

3)= DO NOT DELETE

1)= S ^PSDRUG("D",$E(X,1,30),DA)=""

2)= K ^PSDRUG("D",$E(X,1,30),DA)

3)= USED FOR LOOKUPS

1)= D SETLKU^APSQUTL

2)= D KILLKU^APSQUTL

3)= USED TO LOOKUP 10 DIGIT NDC NUMBERS

This message will be printed on the Outpatient action profile along with the other information for each prescription for this drug.

free text.

This field contains the current number of the drug in stock.

TRIGGERED by the QTY PER CONTAINER field of the APSP PREPACK LOG File

TRIGGERED by the NUMBER OF PREPACKS field of the APSP PREPACK LOG File

TRIGGERED by the SUBTRACT FROM INVENTORY field of the APSP PREPACK LOG File

TRIGGERED by the SUBTRACT FROM INVENTORY field of the APSP PREPACK LOG File

This is used to designate the drug as non-formulary.

1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q

2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT 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).

This field will designate a drug that is not on the VISN Formulary.

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.

here, since it is the standard default value 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.

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.

This is used by the Unit Dose Medications package in such things as the Authorized Absence/Discharge Orders form.

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

UNEDITABLE

1)= S ^PSDRUG("IU",X,DA)=""

2)= K ^PSDRUG("IU",X,DA)

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)

This is the corresponding Primary Drug for this dispense drug.  A primary drug does not have a dosage associated with it.

primary drug of an order when a dispense drug is selected.

1)= S ^PSDRUG("AP",X,DA)=""

2)= K ^PSDRUG("AP",X,DA)

3)= Needed by Unit Dose Medications order entry.

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)

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)

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.

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.

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.

Dispensed As Written code. This value will display as the default value for the SUBSTITUTION field during prescription processing.

This field indicates the NCPDP standard billing Unit of Measure (EA - EACH; GM - GRAMS; ML - MILLILITERS).

This field was initially populated by patch PSS*1*127.

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.

This field was initially populated by patch PSS*1*127.

This is the date the drug is inactive.

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")

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.

1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q

2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT 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).

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.

This is any restrictions that may apply to this drug.

1)= I X,$D(^PSDRUG(DA,4)),$P(^(4),U,1)]"" S ^PSDRUG("IV1",$P(^PSDRUG(DA,4),U,1),DA)=""

2)= I $D(^PSDRUG(DA,4)),$P(^(4),U,1)]"" K ^PSDRUG("IV1",$P(^PSDRUG(DA,4),U,1),DA)

PACKAGE, YOU SHOULD ENTER DATA IN IT NOW.  IT WILL BE USED IN A FUTURE RELEASE OF THE PACKAGE AND ENTERING DATA NOW WILL KEEP YOU FROM HAVING TO DO IT IN THE FUTURE.

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,5)):^(5),1:"") S X=$P(Y(1),U,9) S DIU=X K Y X ^DD(50,200.8,1,1,1.1) X ^DD(50,200.8,1,1,1.4)

1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(51,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(51,D0,1)):^(1),1:"") S X=$P(Y(101),U,1) S D0=Y(1)

1.4)= S DIH=$S($D(^PSDRUG(DIV(0),5)):^(5),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(5)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=200.9 D ^DICR:$N(^DD(DIH,DIG,1,

0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,5)):^(5),1:"") S X=$P(Y(1),U,9) S DIU=X K Y S X=DIV S X="" X ^DD(50,200.8,1,1,2.4)

2.4)= S DIH=$S($D(^PSDRUG(DIV(0),5)):^(5),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(5)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=200.9 D ^DICR:$N(^DD(DIH,DIG,1,

0))>0

CREATE VALUE)= USUAL IV SIG:DEFAULT ADMIN TIMES

DELETE VALUE)= @

FIELD)= ADMIN TIMES

1)= Q

2)= K ^PSDRUG(DA,"PS")

1)= I X,$D(^PSDRUG(DA,7)),$P(^(7),U,1)]"" S ^PSDRUG("IV2",$P(^PSDRUG(DA,7),U,1),DA)=""

2)= I $D(^PSDRUG(DA,7)),$P(^(7),U,1)]"" K ^PSDRUG("IV2",$P(^PSDRUG(DA,7),U,1),DA)

This is the name that will appear on the iv label, iv profiles, etc.  It is also the name that is used during the lookup of a PRIMARY SOLUTION during order entry.

1)= S ^PSDRUG("IV2",X,DA)=""

2)= K ^PSDRUG("IV2",X,DA)

This is a numeric field.  The IV package code will attach 'ml' when appropriate.  ** You won't be able to enter 'ml' here. **

1)= Q

2)= W !!,*7,"WARNING: If IV orders already exist for this solution, then",!,"they will be using this new value to determine # of doses",!,"to make for the next Manufacturing time."

This is name that is used whenever an iv additive is identified.  It is the name that appears on iv labels, profiles, etc.  It is the name that is used during lookup of iv additives for order entry.

1)= S ^PSDRUG("IV1",X,DA)=""

2)= K ^PSDRUG("IV1",X,DA)

Enter a code or codes that will control the processing of this order.

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.

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.

does not match a mnemonic within the ATC, any pick list with this mnemonic sent to the ATC will not complete.

1)= S ^PSDRUG("XATC",$E(X,1,30),DA)=""

2)= K ^PSDRUG("XATC",$E(X,1,30),DA)

Indicates if this drug may be dispensed from the Consolidated Mail Outpatient Pharmacy System.

Set of codes

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

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)

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)

Date (Multiply asked)

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.

Free text

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.

This refers to the category that this drug is to be classified as for AMIS statistics in Automatic Replenishment/Ward Stock.

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.

The Charge Description Master (CDM) Change Control board assigns value for this field. The value should be a number between 600001-699999.

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.

To provide a direct link between the DRUG file and the ITEM MASTER file.

To connect the DRUG file (#50) to the ITEM MASTER file (#441).  This may be a one-to-many relationship.

This field is a numeric value representing the single dose of medication supplied by this product.

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.

Unit of measure. Pointer to the Drug Units File #50.607.

DELETE AUTHORITY: ^

WRITE AUTHORITY:  ^

UNEDITABLE

If a drug cannot have Possible Dosages based on the criteria not being met, then Local Possible Dosages should be created for the drug.

created.

This field will be used when transferring orders from Outpatient Pharmacy to Inpatient Medications. Only drugs marked for Inpatient Medications can be selected.

This is the lab test results of which should be checked before this drug is dispensed.

This is the number of days during which the results of the lab tests are of interest when dispensing this drug.

This is the specimen type on which the lab test should be run.

This is the name of the routine which is called to do all necessary checking on lab test results before dispensing this drug.

1)= S ^PSDRUG("ZDIV",$E(X,1,30),DA)=""

2)= K ^PSDRUG("ZDIV",$E(X,1,30),DA)

3)= No deletion allowed

This field is used to screen patients by Eligibility Status.  Do not enter information in this field if this Drug can be used for all patients regardless of Eligibility Status.

TRIGGERED by the DEA, SPECIAL HDLG field of the DRUG File

will be created and you will be asked to answer the DUE Study Criteria questions.  You may enter more than one DUE Study for this drug.

This is also known as the Average Wholesale Price (AWP) Package Price.  The package price respresents the price of the entire package.

The AWP package price or AWP per order unit can be calculated by: Package Price = Unit price * (package size * package qty)

1)= X ^DD(50,9999999.31,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,999999931)):^(999999931),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(50,9999999.31,1,1,1.1) X ^DD(50,9999999.31,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)=X S X=1,Y(3)=X S X=3,X=$J(Y(2),Y(3),X)

1.3)= 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

1.4)= S DIH=$S($D(^PSDRUG(DIV(0),999999931)):^(999999931),1:""),DIV=X S $P(^(999999931),U,2)=DIV,DIH=50,DIG=9999999.32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,999999931)):^(999999931),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(50,9999999.31,1,1,2.4)

2.4)= S DIH=$S($D(^PSDRUG(DIV(0),999999931)):^(999999931),1:""),DIV=X S $P(^(999999931),U,2)=DIV,DIH=50,DIG=9999999.32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE CONDITION)= #15>0

CREATE VALUE)= $J(#9999999.31/#15,1,3)

DELETE VALUE)= @

FIELD)= AWP PER DISP UNIT

This cross reference updates the AWP PER DISP UNIT field.

Also known as the AWP Unit Price.  The unit price represents the price of an individual unit as defined by the Package Size Unit of Measure

The AWP Unit price is calculated as: AWP unit price = AWP Package Price/Total Package Qty

TRIGGERED by the BENCHMARK PRICE PER ORDER UNIT field of the DRUG File

The date the Average Wholesale Price became effective

This field indicates the product is a compounded product. If the field equals 1 it is a compounded product.

This is the long drug name for this product.

0 = the product is available for e-prescribing 1 = it is not available for e-prescribing 2 = only available for e-prescribing