Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^PSDRUG

Package: Pharmacy Data Management

Global: ^PSDRUG


Information

FileMan FileNo FileMan Filename Package
50 DRUG Pharmacy Data Management

Description

Accessed By FileMan Db Calls, Total: 391

Package Total Routines
National Drug File 156 PSN105D    PSN111D    PSN114D    PSN118D    PSN121D    PSN123D    PSN125D    PSN127D
PSN130D    PSN132D    PSN135D    PSN138D    PSN142D    PSN144D    PSN146D    PSN148D
PSN149D    PSN153D    PSN155D    PSN158D    PSN161D    PSN163D    PSN166D    PSN170D
PSN172D    PSN174D    PSN177D    PSN179D    PSN182D    PSN184D    PSN186D    PSN188D
PSN190D    PSN195D    PSN198D    PSN201D    PSN204D    PSN207D    PSN210D    PSN213D
PSN216D    PSN219D    PSN222D    PSN225D    PSN228D    PSN232D    PSN235D    PSN238D
PSN241D    PSN244D    PSN247D    PSN250D    PSN253D    PSN256D    PSN259D    PSN266D
PSN269D    PSN272D    PSN275D    PSN278D    PSN281D    PSN284D    PSN287D    PSN290D
PSN293D    PSN301D    PSN304D    PSN307D    PSN310D    PSN313D    PSN316D    PSN319D
PSN322D    PSN325D    PSN328D    PSN331D    PSN334D    PSN337D    PSN339D    PSN341D
PSN344D    PSN347D    PSN350D    PSN353D    PSN356D    PSN359D    PSN362D    PSN367D
PSN370D    PSN373D    PSN376D    PSN379D    PSN382D    PSN385D    PSN388D    PSN391D
PSN394D    PSN398D    PSN401D    PSN404D    PSN408D    PSN411D    PSN415D    PSN418D
PSN421D    PSN424D    PSN427D    PSN432D    PSN435D    PSN439D    PSN443D    PSN446D
PSN450D    PSN453D    PSN456D    PSN459D    PSN462D    PSN466D    PSN469D    PSN473D
PSN478D    PSN481D    PSN484D    PSN487D    PSN490D    PSN494D    PSN497D    PSN500D
PSN503D    PSN505D    PSN508D    PSN511D    PSN515D    PSN518D    PSN521D    PSN524D
PSN527D    PSN530D    PSN533D    PSN536D    PSN542D    PSN545D    PSN548D    PSN566PO
PSNAPIS    PSNDEX    PSNDRUG    PSNFRMLY    PSNLDG    PSNLOOK    PSNODDI    PSNPSS
PSNRPT    PSNSTCL    PSNVER    PSNVIEW    
Outpatient Pharmacy 89 PSO283P1    PSO293P1    PSO467PO    PSO583PI    PSOASAP0    PSOASAP2    PSOBKDE1    PSOBKDED
PSOBPSUT    PSOCAN2    PSOCMOPR    PSOCOST    PSOCSTX    PSODDPR3    PSODGAL2    PSODIR1
PSODIR2    PSODIR5    PSODISP1    PSODRG    PSODRGN    PSODRGU0    PSOERBT    PSOERBT0
PSOERBT1    PSOERCR1    PSOERRX0    PSOERRX1    PSOERUT2    PSOERUT3    PSOERUT5    PSOERUT6
PSOERX1F    PSOERXA0    PSOERXA1    PSOERXA5    PSOERXD2    PSOERXD3    PSOERXI1    PSOERXUT
PSOERXX4    PSOFDAMG    PSOFDAUT    PSOHELP1    PSOHLDS1    PSOHLDS5    PSOHLNE3    PSON52
PSONDCUT    PSONEW    PSONVAR1    PSONVAVW    PSOORCPY    PSOORDRG    PSOORED1    PSOORFI6
PSOORNEW    PSOORNW1    PSOORNW2    PSOPKIV1    PSOPMP0    PSOPROD1    PSOPROD2    PSOREJP0
PSORELD1    PSORENW    PSORENW0    PSORENW4    PSORLLL2    PSORLLL3    PSORLST2    PSORREF
PSORRPA1    PSORRX1    PSORWRAP    PSORXL    PSORXPA1    PSORXRP2    PSORXRPT    PSOSPML2
PSOSPMU1    PSOSPMUT    PSOSPMV    PSOSUINV    PSOTPRP1    PSOUTIL    PSOUTL    PSOUTLA2
PSOVER1    
Pharmacy Data Management 62 PSS127PI    PSS189PI    PSS208P    PSS235PO    PSS50A    PSS50A1    PSS50ATC    PSS50B
PSS50B1    PSS50B2    PSS50C    PSS50C1    PSS50CMP    PSS50D    PSS50DAT    PSS50E
PSS50F    PSS50F1    PSS50LAB    PSS50NDF    PSS50P7    PSS50WS    PSS52P6B    PSS70UTL
PSSBPSUT    PSSCLOZ    PSSCREAT    PSSCSPD    PSSDDUT2    PSSDEE    PSSDEE1    PSSDEEA
PSSDELOI    PSSDOS    PSSDOSED    PSSDOSER    PSSDRDOS    PSSDSEXE    PSSFILED    PSSGIU
PSSLAB    PSSLOOK    PSSMARK    PSSMSTR    PSSNDCUT    PSSNDCUT2    PSSP130    PSSP176
PSSP198    PSSPOI    PSSPOIM2    PSSPOIMN    PSSPOST    PSSPRICE    PSSSEE    PSSUTIL
PSSUTIL1    PSSVIDRG    PSSWRNA    PSSWRNC    PSSWRNE    PSSXRF1    
Drug Accountability 24 PSAAOP    PSABRKU9    PSACON    PSAGIP1    PSANDF    PSAOUT    PSAPROC4    PSAPROC7
PSAPROC8    PSARDCBA    PSARDCU1    PSARDCUT    PSAREC    PSAREC1    PSATI    PSAUP8
PSAUTL6    PSAVER2    PSAVER6    PSAVER7    PSAVERA    PSAVERA2    PSAVERA3    PSAVINC
Inpatient Medications 18 PSGDCC    PSGFILD3    PSGFILED    PSGOE7    PSGOE82    PSGOE92    PSGOEV    PSGSICHK
PSJCLOLS    PSJCLOZ    PSJDGAL2    PSJDGCK    PSJOC    PSJPAD50    PSJPDRIN    PSJPDRUT
PSJRXLAB    PSJUTL3    
Barcode Medication Administration 8 PSBMLLKU    PSBMLTS    PSBOBL    PSBOBZ    PSBOMT    PSBRPC2    PSBRPCMO    PSBUTL
Controlled Substances 7 PSDDSOR1    PSDIPOST    PSDREC1    PSDREC2    PSDREC3    PSDREC4    PSDSUBOX    
Auto Replenishment Ward Stock 6 PSGWBGIN    PSGWCL    PSGWODP    PSGWSC    PSGWTOT    PSGWVW    
Mental Health 4 YSCLHLGT    YSCLTEST    YSCLTST2    YSCLTST5    
CMOP 3 PSXCMOP1    PSXCSUTL    PSXEDRG    
DSS Extracts 3 ECXAPHA2    ECXBCM    ECXCBFK    
Health Summary 3 GMTSPSO8    GMTSPSO9    GMTSPSTN    
E Claims Management Engine 2 BPSKBERPT    BPSUTIL    
Integrated Billing 2 IBCSC5A    IBNCPDP1    
Order Entry Results Reporting 2 ORCSEND1    ORQ21    
Emergency Department Integration Software 1 EDPHIST    
My HealtheVet 1 MHVPRNA    

Pointed To By FileMan Files, Total: 67

Package Total FileMan Files
Outpatient Pharmacy 9 DUE QUESTIONNAIRE(#50.073)[#50.07301(.01)]    DUE ANSWER SHEET(#50.0731)[2]    ADMINISTRATION SCHEDULE(#51.1)[#51.111(.01)]    PENDING OUTPATIENT ORDERS(#52.41)[11]    ERX HOLDING QUEUE(#52.49)[3.2, #52.4949(.03)]    PSO AUDIT LOG(#52.87)[7]    OUTPATIENT SITE(#59)[.52]    DRUG COST(#50.9)[#50.9002(.01), #50.9003(.01), #50.9007(.01)]
PRESCRIPTION(#52)[6]    
Pharmacy Data Management 8 APSP INTERVENTION(#9009032.4)[.05]    MEDICATION INSTRUCTION(#51)[#51.321(.01)]    IV ADDITIVES(#52.6)[1]    IV SOLUTIONS(#52.7)[1]    PHARMACY PATIENT(#55)[#55.05(1), #55.06(24), #55.0611(.02), #55.07(.01)]    PHARMACY SYSTEM(#59.7)[10.1, 70]    DRUG(#50)[62.05, 905, #50.065(.01)]
REMOTE PRESCRIPTION LOG(#52.09)[1.1]    
Auto Replenishment Ward Stock 6 PADE INBOUND TRANSACTIONS(#58.6)[2]    PADE INVENTORY SYSTEM(#58.601)[#58.60111(.01), #58.601121(.01), #58.601122(1)]
PADE OUTBOUND MESSAGES(#58.72)[14]    PHARMACY AOU STOCK(#58.1)[#58.11(.01)]    PHARMACY BACKORDER(#58.3)[.01]    AR/WS STATS FILE(#58.5)[#58.52(.01)]    
Inpatient Medications 5 IV CATEGORY(#50.2)[#50.21(1)]    NON-VERIFIED ORDERS(#53.1)[24, #53.11(.01)]    UNIT DOSE ORDER SET(#53.2)[#53.2102(.01), #53.23(.01)]    INPATIENT USER PARAMETERS(#53.45)[#53.4502(.01)]    UNIT DOSE PICK LIST STATS(#57.6)[#57.63(.01)]    
Radiology Nuclear Medicine 5 RAD/NUC MED PATIENT(#70)[#70.15(.01)]    NUC MED EXAM DATA(#70.2)[#70.21(.01)]    RAD/NUC MED PROCEDURES(#71)[#71.055(.01), #71.08(.01)]    RADIOPHARMACEUTICAL LOT(#71.9)[5]    NEW RAD PROCEDURE WORKUP(#71.11)[#71.1108(.01), #71.1155(.01)]    
Clinical Reminders 4 REMINDER DEFINITION(#811.9)[#811.902(.01)]    REMINDER FINDING ITEM PARAMETER(#801.43)[.02]    REMINDER TERM(#811.5)[#811.52(.01)]    REMINDER EXTRACT SUMMARY(#810.3)[#810.31(.04), #810.32(.01)]    
DSS Extracts 4 UNIT DOSE LOCAL EXTRACT(#727.809)[62]    IV DETAIL EXTRACT(#727.819)[67]    IV EXTRACT DATA(#728.113)[3]    UNIT DOSE EXTRACT DATA(#728.904)[3]    
Drug Accountability 4 RETURN DRUG(#58.35)[#58.3511(.01)]    DRUG ACCOUNTABILITY STATS(#58.8)[#58.8001(.01)]    DRUG ACCOUNTABILITY TRANSACTION(#58.81)[4]    DRUG ACCOUNTABILITY ORDER(#58.811)[#58.81125(1)]    
Barcode Medication Administration 3 BCMA MISSING DOSE REQUEST(#53.68)[.13]    BCMA UNABLE TO SCAN LOG(#53.77)[#53.771(.01)]    BCMA MEDICATION LOG(#53.79)[#53.795(.01)]    
Controlled Substances 3 CS WORKSHEET(#58.85)[3]    CS DESTRUCTION(#58.86)[1, 19]    CS CORRECTION LOG(#58.87)[4]    
Integrated Billing 3 IB BILL/CLAIMS PRESCRIPTION REFILL(#362.4)[.04]    TRANSFER PRICING TRANSACTIONS(#351.61)[4.01]    CLAIMS TRACKING ROI(#356.25)[.03]    
Medicine 3 MEDICATION(#695)[.01]    ENDOSCOPY/CONSULT(#699)[#699.74(.01)]    GENERALIZED PROCEDURE/CONSULT(#699.5)[#699.53(.01)]    
Order Entry Results Reporting 3 ORDER STATISTICS(#100.1)[.01]    ORDER CHECK INSTANCES(#100.05)[#100.06(.01), #100.517(2)]    ORDER DEA ARCHIVE INFO(#101.52)[29]    
Surgery 2 SURGERY(#130)[#130.33(.01), #130.47(.01), #130.48(.01)]
PHARMACY ITEMS(#131.06)[.01]    
Adverse Reaction Tracking 1 PATIENT ALLERGIES(#120.8)[1]    
Clinical Case Registries 1 ROR REGISTRY PARAMETERS(#798.1)[#798.129(.01)]    
Fee Basis 1 FEE BASIS PHARMACY INVOICE(#162.1)[#162.11(9)]    
Mental Health 1 SECLUSION/RESTRAINT(#615.2)[#615.23(.01)]    
PCE Patient Care Encounter 1 REMINDER ORDER CHECK ITEMS GROUP(#801)[#801.015(.01)]    

Pointer To FileMan Files, Total: 20

Package Total FileMan Files
National Drug File 7 VA DRUG CLASS(#50.605)[25]    DRUG UNITS(#50.607)[902]    PACKAGE TYPE(#50.608)[24]    PACKAGE SIZE(#50.609)[23]    MEDICATION ROUTES(#51.2)[62.02]    VA GENERIC(#50.6)[20]    VA PRODUCT(#50.68)[22]    
Pharmacy Data Management 5 PHARMACY ORDERABLE ITEM(#50.7)[2.1]    DOSE UNITS(#51.24)[#50.0904(4)]    DRUG TEXT(#51.7)[#50.037(.01)]    PHARMACY AUTOMATED DISPENSING DEVICES(#52.53)[#50.0906(1), #50.0906(2)]    DRUG(#50)[62.05, 905, #50.065(.01)]
Inpatient Medications 2 PRIMARY DRUG(#50.3)[64]    WARD GROUP(#57.5)[#50.0212(.01)]    
Lab Service 2 LABORATORY TEST(#60)[17.2, 623002, #50.02(.01)]
TOPOGRAPHY FIELD(#61)[17.4, 623004, #50.02(2)]
Outpatient Pharmacy 2 ORDER UNIT(#51.5)[12, #50.1(401)]    OUTPATIENT SITE(#59)[#50.032(.01), #50.0906(.01)]    
IFCAP 1 ITEM MASTER(#441)[#50.0441(.01)]    
Kernel 1 NEW PERSON(#200)[#50.0214(2), #50.03(1), #50.0321(1), #50.095(1)]    

Fields, Total: 90

Field # Name Loc Type Details
.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
.01 GENERIC NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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).
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
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)
2.1 PHARMACY ORDERABLE ITEM 2;1 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7) PHARMACY ORDERABLE ITEM(#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)
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^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).
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
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
6 FSN 0;6 FREE TEXT

  • 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
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
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
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.
9 SYNONYM 1;0 Multiple #50.1 50.1

  • 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
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
12 ORDER UNIT 660;2 POINTER TO ORDER UNIT FILE (#51.5) ORDER UNIT(#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
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.
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
14.5 DISPENSE UNIT 660;8 FREE TEXT

  • 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
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)):^(660),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.
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
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
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.
17.2 LAB TEST MONITOR CLOZ;1 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#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
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
17.4 SPECIMEN TYPE CLOZ;3 POINTER TO TOPOGRAPHY FIELD FILE (#61) TOPOGRAPHY FIELD(#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
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)
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.
17.7 CLOZAPINE LAB TEST CLOZ2;0 POINTER Multiple #50.02 50.02
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
20 NATIONAL DRUG FILE ENTRY ND;1 POINTER TO VA GENERIC FILE (#50.6) VA GENERIC(#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)
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)
22 PSNDF VA PRODUCT NAME ENTRY ND;3 POINTER TO VA PRODUCT FILE (#50.68) VA PRODUCT(#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.
23 PACKAGE SIZE ND;4 POINTER TO PACKAGE SIZE FILE (#50.609) PACKAGE SIZE(#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
24 PACKAGE TYPE ND;5 POINTER TO PACKAGE TYPE FILE (#50.608) PACKAGE TYPE(#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
25 NATIONAL DRUG CLASS ND;6 POINTER TO VA DRUG CLASS FILE (#50.605) VA DRUG CLASS(#50.605)

  • 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
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,+D0,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
27 CMOP ID ND;10 FREE TEXT

  • 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.
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)
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: ^
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)
32 NDC BY OUTPATIENT SITE NDCOP;0 POINTER Multiple #50.032 50.032
37 DRUG TEXT ENTRY 9;0 POINTER Multiple #50.037 50.037
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 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.095 DT/TM DISP UNIT PRICE CHANGED 950;0 DATE Multiple #50.095 50.095

  • 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.
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^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).
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.
62.01 DAY (nD) or DOSE (nL) LIMIT 8;1 FREE TEXT

  • 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
62.02 UNIT DOSE MED ROUTE 8;2 POINTER TO MEDICATION ROUTES FILE (#51.2) MEDICATION ROUTES(#51.2)

  • 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
62.03 UNIT DOSE SCHEDULE TYPE 8;3 SET
  • '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
62.04 UNIT DOSE SCHEDULE 8;4 FREE TEXT

  • 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
62.05 CORRESPONDING OUTPATIENT DRUG 8;5 POINTER TO DRUG FILE (#50) DRUG(#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
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)
64 *PRIMARY DRUG 2;6 POINTER TO PRIMARY DRUG FILE (#50.3) PRIMARY DRUG(#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.
65 FORMULARY ALTERNATIVE 65;0 POINTER Multiple #50.065 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
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
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
82 NCPDP DISPENSE UNIT EPH;2 SET
************************REQUIRED FIELD************************
  • '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
83 NCPDP QUANTITY MULTIPLIER EPH;3 NUMBER
************************REQUIRED FIELD************************

  • 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
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.
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.
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.
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.
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^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).
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
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
212 ATC CANISTER 212;0 POINTER Multiple #50.0212 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
212.1 *ATC CANISTER 8.5;1 NUMBER

  • 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
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)
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)
214 ACTIVITY LOG 4;0 DATE Multiple #50.0214 50.0214

  • DESCRIPTION:  Date the activity occurred.
  • TECHNICAL DESCR:  
    Date (Multiply asked)
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
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
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
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
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.
441 IFCAP ITEM NUMBER 441;0 POINTER Multiple #50.0441 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.
900 OLD NAMES 900;0 Multiple #50.01 50.01
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.
902 UNIT DOS;2 POINTER TO DRUG UNITS FILE (#50.607) DRUG UNITS(#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
903 POSSIBLE DOSAGES DOS1;0 Multiple #50.0903 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)
904 LOCAL POSSIBLE DOSAGE DOS2;0 Multiple #50.0904 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.
905 CORRESPONDING INPATIENT DRUG 8;6 POINTER TO DRUG FILE (#50) DRUG(#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
906 OPAI OPAI;0 POINTER Multiple #50.0906 50.0906

  • 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
907 RESTRICT FOR ONEVA PHARMACY 6;2 SET (BOOLEAN Data Type)
  • 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.

  • 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.
950 HISTORY PRICE DISPENSE UNIT 950;0 DATE Multiple #50.03 50.03

  • DESCRIPTION:  
    Multiple to store data related to a price change for the drug.
623002 *LAB TEST MONITOR 623002;1 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • LAST EDITED:  NOV 05, 1992
  • DESCRIPTION:  
    This is the lab test results of which should be checked before this drug is dispensed.
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.
623004 *SPECIMEN TYPE 623002;3 POINTER TO TOPOGRAPHY FIELD FILE (#61) TOPOGRAPHY FIELD(#61)

  • LAST EDITED:  NOV 05, 1992
  • DESCRIPTION:  
    This is the specimen type on which the lab test should be run.
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.

ICR, Total: 5

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2352
  • National Drug File
    		•  VA CLASSIFICATION (2).
    Access: Direct Global R/W & w/Fileman

    PHARMACY ORDERABLE ITEM (2.1).
    Access: Direct Global R/W & w/Fileman

    CMOP DISPENSE (213).
    Access: Direct Global R/W & w/Fileman

    NATIONAL DRUG FILE ENTRY (20).
    Access: Direct Global R/W & w/Fileman

    VA PRODUCT NAME (21).
    Access: Direct Global R/W & w/Fileman

    PSNDF VA PRODUCT NAME ENTRY (22).
    Access: Direct Global R/W & w/Fileman

    PACKAGE SIZE (23).
    Access: Direct Global R/W & w/Fileman

    PACKAGE TYPE (24).
    Access: Direct Global R/W & w/Fileman

    NATIONAL DRUG CLASS (25).
    Access: Direct Global R/W & w/Fileman

    CMOP ID (27).
    Access: Direct Global R/W & w/Fileman
    ICR #2367
  • CMOP
    		•  CMOP DISPENSE (213).
    Access: Direct Global R/W & w/Fileman

    VA PRODUCT NAME (21).
    Access: Read w/Fileman

    CMOP ID (27).
    Access: Direct Global R/W & w/Fileman

    NATIONAL DRUG FILE ENTRY (20).
    Access: Direct Global Read & w/Fileman

    PHARMACY ORDERALBE ITEM (2.1).
    Access: Direct Global Read & w/Fileman
    ICR #2841
  • Text Integration Utility
    		•  VA CLASSIFICATION (2).
    Access: Direct Global Read & w/Fileman

    "B" CROSS REFERENCE (B).
    Access: Direct Global Read & w/Fileman

    "ASP" CROSS REFERENCE (ASP).
    Access: Direct Global Read & w/Fileman

    DEA, SPECIAL HDLG (3).
    Access: Direct Global Read & w/Fileman
    ICR #2858
  • Clinical Reminders
    		•  The API OCL^PSOORRL returns a drug which can be an entryin the Drug file or the Pharmacy Orderable item file. We would like to use the"B" cross-reference to determine if the returned drug is from the Drug file orthe Pharmacy Orderable item file.
    ICR #3077
  • National Drug File
    		•  STRENGTH (901).
    Access: Direct Global R/W & w/Fileman

    UNIT (902).
    Access: Direct Global R/W & w/Fileman

    DISPENSE UNITS PER DOSE (.01).
    Access: Direct Global R/W & w/Fileman

    DOSE (1).
    Access: Direct Global R/W & w/Fileman

    PACKAGE (2).
    Access: Direct Global R/W & w/Fileman

    LOCAL POSSIBLE DOSAGE (.01).
    Access: Direct Global R/W & w/Fileman

    PACKAGE (1).
    Access: Direct Global R/W & w/Fileman
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All