YuCheng Hu 2024-08-02 10:10:03 -04:00
parent 74e9cd1c95
commit 93430d4d38
49 changed files with 9257 additions and 1 deletions

View File

@ -17,3 +17,6 @@ https://trac.opensourcevista.net/svn/qrda
## pharmacy_utils
https://trac.opensourcevista.net/svn/pharmacy-utils
## mu_tests
https://trac.opensourcevista.net/svn/mu-tests

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,378 @@
--- KIDS TEXT ----
Created by Sam Habiel on Thursday 12 April 2011 for WorldVistA.
--- WARNING ---
If you install the KIDS build produced by this tool on a production system
containing pharmacy patient data, you will cause database corruption and
jeopardize patient safety.
--- WARNING ---
This KIDS Build transports the following files from a source system to a
destination system and then syncs CPRS OE/RR files with the new files.
; ^PSDRUG DRUG
; ^PS(50.7) PHARMACY ORDERABLE ITEM
; ^PS(51.7) DRUG TEXT
; ^PS(52.6) IV ADDITIVES
; ^PS(52.7) IV SOLUTIONS
; ^PS(50.4) DRUG ELECTROLYTES
Workflow (using KIDS):
; On the Origin System:
; - Create a KIDS build that calls the following:
; 1. VWPSSXPD to call from top is the Environment Check for the
; Build
; 2. PRE^VWPSSXPD is the Pre-Init for the Destination System
; 3. POST^VWPSSXPD is the Post-Init for the Destination System
; 4. TRAN^VWPSSXPD is the Pre-Transport Routine for your originating system drug data
; - Generate the KIDS Build. The file will have all the Drug Data from the
; Origin System.
;
; On the Destination System:
; - Install the KIDS Build
The entry points in the attached routine (VWPSSXPD) can be used by
themselves to remove an old drug file and add a new one.
Documentation for using the Drug File updating utility WITH and WITHOUT KIDS
can be found in VWPSSXPD.m.
KIDS file contains this routine plus a sample drug file to be installed
into a destination system.
--- END KIDS TEXT ----
License is AGPL.
Author is Sam Habiel for WorldVistA.
Limitations/Ideas for Future Development:
- Not sure if the MEDICATION ROUTES should be transmitted or not. While
additions are allowed, they are by my experience uncommon.
- Many reference files (e.g. PACKAGE SIZE or DRUG UNITS) are not part of the
NDF, yet they are not user modifiable. Yet, they are referenced almost
exclusively from the National Drug Files; which means that they cannot be
changed without corrupting the NDF data. I am trying to find documentation
to say that they are standard.
- If the Administration Schedules from the originating system and destination
system don't match, you need to either change the schedules on the orderable
items, or make the schedules on the destination system the same as the
ones from incoming drug file, otherwise, the problems you run into is this:
- Orders do not calculate frequency correctly if the schedule is not present
in the destination system. This means that the proper number of pills
cannot be calculated.
- In Outpatient Pharmacy, Schedules do not expand into patient readable
instructions
- If the National Drug Files are not up to date in the destination system,
there will be some broken pointers. All you have to do is update the NDF with
the latest patches.
- If some drugs are linked with lab tests, these need to be re-linked.
Preferably, these should be removed prior to transporting the drug file.
Remarks on Broken Pointers in Destination Systems as a result of using this
package:
Because many files point to the Pharmacy Orderable Item and Drug files, you
practically cannot use this package on a database that contains patient-
specific pharmacy data since all data will be corrupted.
When installing a new drug and pharmacy orderable item file, the following may
be broken:
For Drug File:
- LAB TEST MONITOR field.
- SPECIMEN TYPE field.
- CLOZAPINE LAB TEST:LAB TEST MONITOR field
- CLOZAPINE LAB TEST:SPECIMEN TYPE field
- ATC CANISTER:WARD GROUP FOR CANISTER
- ACTIVITY LOG:INITIATOR OF ACTIVITY (field not used currently)
- NDC BY OUTPATIENT SITE:OUTPATIENT SITE
- IFCAP ITEM NUMBER:ITEM NUMBER (field not used currently)
- Custom UNIT DOSE MED ROUTE (field not used currently)
- NATIONAL DRUG FILE ENTRY (if you don't have a recently patched NDF)
- PSNDF VA PRODUCT NAME ENTRY (if you don't have a recently patched NDF).
For Pharmacy Orderable Item File:
- MEDICATION ROUTES (additions are allowed, not deletions)
The National Drug Files are Standardized. However, a system may be out of date.
If you do not have the latest National Drug Files, you have will broken
pointers if the source of your drug files has a more recent National Drug File.
For best results, the source system and the destination system should have a
commensurate NDF patch level.
To check for broken pointers, use the VERIFY FIELDs option in Fileman.
Here is an example of a drug file from a patched system installed on a system
that is not patched:
==============================================================================
GTM>D P^DI
VA FileMan 22.0
Select OPTION: UTILITY FUNCTIONS
Select UTILITY OPTION: VERIFY FIELDS
MODIFY WHAT FILE: DRUG//
VERIFY WHICH FIELD: PSNDF VA PRODUCT NAME ENTRY
DEVICE: HOME//
VERIFY FIELDS REPORT
DRUG FILE (#50) APR 16, 2012 12:40 PAGE 1
-------------------------------------------------------------------------------
POINTER
(CANNOT CHECK CROSS-REFERENCE)
ENTRY# GENERIC NAME ERROR
148 GUANFACINE 1MG TAB ER No '21739' in pointed-to File
149 GUANFACINE 2MG TAB ER No '21740' in pointed-to File
168 LURASIDONE 40MG TAB No '22028' in pointed-to File
169 LURASIDONE 80MG TAB No '22030' in pointed-to File
221 LEVONORGESTREL 1.5MG TAB No '21157' in pointed-to File
450 LIDOCAINE 5% PATCH No '22004' in pointed-to File
456 NEOMYCIN/POLYMYXIN/BACITRACIN OINT No '21497' in pointed-to File
485 MICONAZOLE 4% VAGINAL CREAM No '22325' in pointed-to File
585 PALIPERIDONE 234MG INJ SUSP PFSNo '21021' in pointed-to File
586 PALIPERIDONE 156MG INJ SUSP PFSNo '21022' in pointed-to File
==============================================================================
Below you will find the pointer relations of all the files that are transmitted in this KIDS build.
File/Package: DRUG Date: APR 12,2012
FILE (#) POINTER (#) FILE
POINTER FIELD TYPE POINTER FIELD FILE POINTED TO
------------------------------------------------------------------------------------------------------------------------------------
L=Laygo S=File not in set N=Normal Ref. C=Xref.
*=Truncated m=Multiple v=Variable Pointer
-------------------------------
DRUG (#50) | |
CORRESPONDING OUTPATIENT DRUG .................. (N )-> | 50 DRUG |
CORRESPONDING INPATIENT DRUG ................... (N )-> | PHARMACY ORDERABLE ITEM |-> PHARMACY ORDERABLE ITEM (inc)
FORMULARY ALTERNATIVE .......................... (N C )-> | ORDER UNIT |-> ORDER UNIT (only modifiable
from FM, possibly standard)
DUE QUESTIONNAIRE (#50.07301) | |
DRUG ........................................... (N S C )-> | LAB TEST MONITOR |-> LABORATORY TEST (possible brok pt)
DUE ANSWER SHEET (#50.0731) | |
DRUG ........................................... (N S C )-> | SPECIMEN TYPE |-> TOPOGRAPHY FIELD (possible break)
IV CATEGORY (#50.21) | |
IV DRUG:GENERIC DRUG ........................... (N S )-> | NATIONAL DRUG FILE ENTRY |-> VA GENERIC (standard)
DRUG COST (#50.9002) | |
PHYSICIAN DATA:DRUG ............................ (N S )-> | PSNDF VA PRODUCT NAME EN* |-> VA PRODUCT (standard)
DRUG DATA:DRUG ................................. (N S )-> | PACKAGE SIZE |-> PACKAGE SIZE (only mod from FM)
(possibly standard)
DIVISION DATA:DRUG DATA:DRUG ................... (N S )-> | PACKAGE TYPE |-> PACKAGE TYPE (only mod from FM)
(possibly standard)
PRESCRIPTION (#52) | |
DRUG ........................................... (N S C )-> | NATIONAL DRUG CLASS |-> VA DRUG CLASS (standard)
PENDING OUTPATIENT O (#52.41) | |
DRUG ........................................... (N S )-> | UNIT DOSE MED ROUTE |-> MEDICATION ROUTES (addable)
IV ADDITIVES (#52.6) | |
GENERIC DRUG ................................... (N S C )-> | CORRESPONDING OUTPATIENT* |-> DRUG (this file)
IV SOLUTIONS (#52.7) | |
GENERIC DRUG ................................... (N S C )-> | *PRIMARY DRUG |-> PRIMARY DRUG (not used)
NON-VERIFIED ORDERS (#53.1) | |
SOLUTION ....................................... (N S )-> | UNIT |-> DRUG UNITS (only mod from FM)
(possibly standard)
DISPENSE DRUG .................................. (N S )-> | CORRESPONDING INPATIENT * |-> DRUG (this file)
UNIT DOSE ORDER SET (#53.2102) | |
*DRUG:*DISPENSE DRUG ........................... (N S C )-> | *LAB TEST MONITOR |-> LABORATORY TEST (not used)
ORDERABLE ITEM:DISPENSE DRUG ................... (N S )-> | *SPECIMEN TYPE |-> TOPOGRAPHY FIELD (not used)
INPATIENT USER PARAM (#53.4502) | |
DISPENSE DRUG .................................. (N S C )-> | m CLOZAPINE L:LAB TEST MO* |-> LABORATORY TEST (broken)
BCMA MISSING DOSE RE (#53.68) | |
DRUG REQUESTED ................................. (N S )-> | CLOZAPINE L:SPECIMEN TY* |-> TOPOGRAPHY FIELD (broken)
BCMA UNABLE TO SCAN (#53.771) | |
DISPENSE DRUG .................................. (N S C )-> | m ATC CANISTE:WARD GROUP * |-> WARD GROUP (site specific)
BCMA MEDICATION VARI (#53.78) | |
DRUG SCANNED ................................... (N S )-> | ACTIVITY LO:INITIATOR O* |-> NEW PERSON (not used)
BCMA MEDICATION LOG (#53.795) | |
DISPENSE DRUG .................................. (N S C )-> | NDC BY OUTP:OUTPATIENT * |-> OUTPATIENT SITE (site specific)
PHARMACY PATIENT (#55.05) | |
NON-VA MEDS:DISPENSE DRUG ...................... (N S )-> | m DRUG TEXT E:DRUG TEXT E* |-> DRUG TEXT (included)
UNIT DOSE:*SOLUTION ............................ (N S )-> | m IFCAP ITEM :ITEM NUMBER* |-> ITEM MASTER (WV empty file)
UNIT DOSE:DISPENSE LOG:DISPENSE DRUG ........... (N S )-> | m FORMULARY A:FORMULARY A* |-> DRUG (this file)
UNIT DOSE:DISPENSE DRUG ........................ (N S )-> | |
UNIT DOSE PICK LIST (#57.63) | |
WARD:PROVIDER:DRUG ............................. (N S )-> | |
PHARMACY AOU STOCK (#58.11) | |
ITEM ........................................... (N S )-> | |
PHARMACY BACKORDER (#58.3) | |
ITEM ........................................... (N S C )-> | |
AR/WS STATS FILE (#58.52) | |
INPATIENT SITE:RECALCULATE AMIS:DRUG ........... (N S )-> | |
DRUG ACCOUNTABILITY (#58.8001) | |
DRUG ........................................... (N S C )-> | |
DRUG ACCOUNTABILITY (#58.81) | |
DRUG ........................................... (N S )-> | |
DRUG ACCOUNTABILITY (#58.81125) | |
INVOICE DATA:LINE ITEM DATA:DRUG ............... (N S )-> | |
CS WORKSHEET (#58.85) | |
DRUG ........................................... (N S )-> | |
CS DESTRUCTION (#58.86) | |
DRUG ........................................... (N S )-> | |
PRICE PER DISPENSE UNIT ........................ (N S )-> | |
CS CORRECTION LOG (#58.87) | |
DRUG ........................................... (N S )-> | |
OUTPATIENT SITE (#59) | |
METHADONE DRUG ................................. (N S )-> | |
PHARMACY SYSTEM (#59.7) | |
LAST DRUG CONVERTED ............................ (N S )-> | |
LAST DRUG LINKED ............................... (N S )-> | |
RAD/NUC MED PATIENT (#70.15) | |
REGISTERE:EXAMINATION:MEDICATIONS:MED ADMINIS* . (N S )-> | |
NUC MED EXAM DATA (#70.21) | |
RADIOPHARMACEUTICALS:RADIOPHARMACEUTICAL ....... (N S )-> | |
RAD/NUC MED PROCEDUR (#71.055) | |
DEFAULT MEDICATIONS:DEFAULT MEDICATION ......... (N S C )-> | |
DEFAULT RADIOPHARMACEU:DEFAULT RADIOPHARMACEUTI* (N S )-> | |
RADIOPHARMACEUTICAL (#71.9) | |
RADIOPHARM ..................................... (N S )-> | |
ORDER STATISTICS (#100.1) | |
NAME v ...........................................(N S C L)-> | |
PATIENT ALLERGIES (#120.8) | |
GMR ALLERGY v ....................................(N S L)-> | |
SURGERY (#130.33) | |
MEDICATIONS .................................... (N S )-> | |
ANESTHESIA TECHNIQUE:ANESTHESIA AGENTS ......... (N S )-> | |
ANESTHESIA TECHNIQUE:TEST DOSE ................. (N S )-> | |
FEE BASIS PHARMACY I (#162.11) | |
PRESCRIPTION NUMBER:GENERIC DRUG ............... (N S )-> | |
TRANSFER PRICING TRA (#351.61) | |
DRUG ........................................... (N S )-> | |
IB BILL/CLAIMS PRESC (#362.4) | |
DRUG ........................................... (N S )-> | |
SECLUSION/RESTRAINT (#615.23) | |
MEDICATIONS .................................... (N S )-> | |
MEDICATION (#695) | |
GENERIC NAME ................................... (N S C )-> | |
GENERALIZED PROCEDUR (#699.53) | |
MEDICATIONS .................................... (N S )-> | |
ENDOSCOPY/CONSULT (#699.74) | |
PRESCRIPTION GIVEN ............................. (N S )-> | |
UNIT DOSE LOCAL EXTR (#727.809) | |
BCMA DRUG DISPENSED ............................ (N S )-> | |
IV DETAIL EXTRACT (#727.819) | |
BCMA DRUG DISPENSED ............................ (N S )-> | |
IV EXTRACT DATA (#728.113) | |
DRUG ........................................... (N S )-> | |
UNIT DOSE EXTRACT DA (#728.904) | |
DRUG ........................................... (N S )-> | |
ROR REGISTRY PARAMET (#798.129) | |
LOCAL DRUG NAME ................................ (N S C )-> | |
REMINDER FINDING ITE (#801.43) | |
FINDING ITEM v ...................................(N S L)-> | |
REMINDER EXTRACT SUM (#810.31) | |
EXTRACT FINDINGS:FINDING ITEM v ..................(N S L)-> | |
LREPI FINDING TOTALS:FINDING ITEM v ..............(N S L)-> | |
REMINDER TERM (#811.52) | |
FINDINGS:FINDING ITEM v ..........................(N S L)-> | |
REMINDER DEFINITION (#811.902) | |
FINDINGS:FINDING ITEM v ..........................(N S C L)-> | |
APSP INTERVENTION (#9009032.4) | |
DRUG ........................................... (N S )-> | |
-------------------------------
File/Package: PHARM ORD ITEM Date: APR 12,2012
FILE (#) POINTER (#) FILE
POINTER FIELD TYPE POINTER FIELD FILE POINTED TO
------------------------------------------------------------------------------------------------------------------------------------
L=Laygo S=File not in set N=Normal Ref. C=Xref.
*=Truncated m=Multiple v=Variable Pointer
-------------------------------
DRUG (#50) | |
PHARMACY ORDERABLE ITEM ........................ (N S C L)-> | 50.7 PHARMACY ORDERABLE I* |
PRESCRIPTION (#52) | |
PHARMACY ORDERABLE ITEM ........................ (N S )-> | DOSAGE FORM |-> DOSAGE FORM (file locked down)
PENDING OUTPATIENT O (#52.41) | |
PHARMACY ORDERABLE ITEM ........................ (N S )-> | MED ROUTE |-> MEDICATION ROUTES (addable)
IV ADDITIVES (#52.6) | |
PHARMACY ORDERABLE ITEM ........................ (N S C )-> | m DIVISION/SI:DIVISION/SI* |-> OUTPATIENT SITE (not used)
IV SOLUTIONS (#52.7) | |
PHARMACY ORDERABLE ITEM ........................ (N S C L)-> | m OI-DRUG TEX:OI-DRUG TEX* |-> DRUG TEXT (used -- included)
NON-VERIFIED ORDERS (#53.1) | |
ORDERABLE ITEM ................................. (N S )-> | |
UNIT DOSE ORDER SET (#53.22) | |
ORDERABLE ITEM ................................. (N S )-> | |
PICK LIST (#53.52) | |
PATIENT:ORDER:ORDERABLE ITEM ................... (N S )-> | |
BCMA MEDICATION LOG (#53.79) | |
ADMINISTRATION MEDICATION ...................... (N S )-> | |
PHARMACY PATIENT (#55.01) | |
IV:ORDERABLE ITEM .............................. (N S )-> | |
NON-VA MEDS:ORDERABLE ITEM ..................... (N S )-> | |
UNIT DOSE:ORDERABLE ITEM ....................... (N S )-> | |
-------------------------------
File/Package: DRUG TEXT Date: APR 16,2012
FILE (#) POINTER (#) FILE
POINTER FIELD TYPE POINTER FIELD FILE POINTED TO
------------------------------------------------------------------------------------------------------------------------------------
L=Laygo S=File not in set N=Normal Ref. C=Xref.
*=Truncated m=Multiple v=Variable Pointer
-------------------------------
DRUG (#50.037) | |
DRUG TEXT ENTRY ................................ (N S C )-> | 51.7 DRUG TEXT |
PHARMACY ORDERABLE I (#50.76) | |
OI-DRUG TEXT ENTRY ............................. (N S )-> | |
-------------------------------
File/Package: IV FILES Date: APR 16,2012
FILE (#) POINTER (#) FILE
POINTER FIELD TYPE POINTER FIELD FILE POINTED TO
------------------------------------------------------------------------------------------------------------------------------------
L=Laygo S=File not in set N=Normal Ref. C=Xref.
*=Truncated m=Multiple v=Variable Pointer
-------------------------------
IV ADDITIVES (#52.62) | |
ELECTROYLTES:ELECTROLYTE ....................... (N )-> | 50.4 DRUG ELECTROLYTES |
IV SOLUTIONS (#52.702) | |
ELECTROLYTES ................................... (N )-> | |
-------------------------------
-------------------------------
IV CATEGORY (#50.2) | |
IV DRUG v ........................................(N S L)-> | 52.6 IV ADDITIVES |
IV DRUG v ........................................(N S L)-> | GENERIC DRUG |-> DRUG
NON-VERIFIED ORDERS (#53.157) | |
ADDITIVE ....................................... (N S C )-> | PHARMACY ORDERABLE ITEM |-> PHARMACY ORDERABLE ITEM
BCMA MISSING DOSE RE (#53.686) | |
ADDITIVES ...................................... (N S C )-> | *PRIMARY DRUG |-> PRIMARY DRUG
BCMA UNABLE TO SCAN (#53.7711) | |
ADDITIVE ....................................... (N S C )-> | QUICK CODE:USUAL IV SO* |-> IV SOLUTIONS
BCMA MEDICATION LOG (#53.796) | |
ADDITIVES ...................................... (N S C )-> | QUICK CODE:MED ROUTE |-> MEDICATION ROUTES
PHARMACY PATIENT (#55.02) | |
IV:ADDITIVE .................................... (N S )-> | m ELECTROYLTES:ELECTROLYTE |-> DRUG ELECTROLYTES
BCMA ID:ADDITIVE ............................... (N S )-> | |
PHARMACY QUICK ORDER (#57.17) | |
ADDITIVE ....................................... (N S )-> | |
-------------------------------
-------------------------------
IV CATEGORY (#50.2) | |
IV DRUG v ........................................(N S L)-> | 52.7 IV SOLUTIONS |
IV DRUG v ........................................(N S L)-> | GENERIC DRUG |-> DRUG
IV ADDITIVES (#52.61) | |
QUICK CODE:USUAL IV SOLUTION ................... (N )-> | PHARMACY ORDERABLE ITEM |-> PHARMACY ORDERABLE ITEM
NON-VERIFIED ORDERS (#53.158) | |
SOLUTION ....................................... (N S C )-> | *PRIMARY DRUG |-> PRIMARY DRUG
BCMA MISSING DOSE RE (#53.687) | |
SOLUTIONS ...................................... (N S C )-> | m ELECTROLYTES:ELECTROLYTES |-> DRUG ELECTROLYTES
BCMA UNABLE TO SCAN (#53.7712) | |
SOLUTIONS ...................................... (N S C )-> | |
BCMA MEDICATION LOG (#53.797) | |
SOLUTIONS ...................................... (N S C )-> | |
PHARMACY PATIENT (#55.1058) | |
BCMA ID:SOLUTION ............................... (N S )-> | |
IV:SOLUTION .................................... (N S )-> | |
PHARMACY QUICK ORDER (#57.18) | |
SOLUTION ....................................... (N S )-> | |
-------------------------------

View File

@ -0,0 +1,205 @@
VWPSSXPD ; VW/SMH - Update the Drug File and friends... ; 4/17/12 8:39am
;;1.0;WorldVista Modifications;;;Build 5
; (C) Sam Habiel
; Licensed under AGPL
;
; This routine contains utilities to remove a drug file and install a new drug
; file in VISTA originating in another system. As of Build 3, you can use KIDS
; to transport the file.
;
; Workflow (Manual, without using KIDS)
; On the Origin System:
; - Create a Global Output containing:
; ^PSDRUG DRUG
; ^PS(50.7) PHARMACY ORDERABLE ITEM
; ^PS(51.7) DRUG TEXT
; ^PS(52.6) IV ADDITIVES
; ^PS(52.7) IV SOLUTIONS
; ^PS(50.4) DRUG ELECTROLYTES
;
; On the Destination System:
; 1. Call KILLDRUG to remove all Drug Data
; 2. Restore the global created above.
; 3. Call RESTOCK to sync CPRS files back with drug files.
;
; Workflow (using KIDS):
; On the Origin System:
; - Create a KIDS build that calls the following:
; 1. This Routine Name to call from top is the Environment Check for the Build
; 2. TRAN is the Pre-Transport Routine for your originating system drug data
; 3. PRE is the Pre-Init for the Destination System
; 4. POST is the Post-Init for the Destination System
; - Generate the KIDS Build. The file will have all the Drug Data from the Origin
; System.
; On the Destination System:
; - Install the KIDS Build
;
; Limitations:
; - If the Administration Schedules from the originating system and destination
; system don't match, you need to either change the schedules on the orderable
; items, or make the schedules on the destination system the same as the
; ones from incoming drug file, otherwise, the problems you run into is this:
; - Orders do not calculate frequency correctly if the schedule is not present
; in the destination system. This means that the proper number of pills cannot
; be calculated.
; - In Outpatient Pharmacy, Schedules do not expand into patient readable
; instructions
; - If the National Drug Files are not up to date in the destination system, there
; will be some broken pointers. All you have to do is update them.
; - If some drugs are linked with lab tests, these need to be re-linked. Preferably,
; these should be removed prior to transporting the drug file.
;
; --- ()()() ---
;
; PEPs: KILLDRUG to remove all Drugs
; RESTOCK to add the drugs back to CPRS
;
; KIDS EPs:
; Top EP Fall through -> Environment Check (call the routine from the top)
; PRE -> Pre-Init for the Destination System
; POST -> Post-Init for the Destination System
; TRAN -> Pre-Transport Routine (to get data from original system)
;
; KIDS EPs call PEPs to do their work.
;
; Environment Check falls through from the top
;
; -- START KIDS HOOKS --
;
ENV ; Environment Check Routine; KIDS EP; top fallthough
W $$CJ^XLFSTR("------ WARNING WARNING WARNING -----",80),!! ; Center Justify
W "This package will delete your drug file and add a new drug file contained",!
W "in the distribution.",!!
W "If you have patient pharmacy data, this will CORRUPT your database.",!!
N VWPROD S VWPROD=$$PROD^XUPROD() ; Check if a production acc; +ve val is yes
W "You are running in a "_$S(VWPROD:"Production",1:"Test")_" Environment.",!!
W "Are you sure you want to continue? Type a full YES/yes if you want to proceed)",!
N X R "ANSWER: ",X:60
S X=$$UP^XLFSTR(X) ; uppercase
I X'="YES" S XPDQUIT=1 ; Quit if the user doesn't say yes
QUIT
;
TRAN ; Pre-Transport routine for KIDS to ship off the 50, 50.7, 51.7 globals
M @XPDGREF@("VWPSSXPD",50)=^PSDRUG ; DRUG
M @XPDGREF@("VWPSSXPD",50.7)=^PS(50.7) ; PHARMACY ORDERABLE ITEM
M @XPDGREF@("VWPSSXPD",51.7)=^PS(51.7) ; DRUG TEXT
M @XPDGREF@("VWPSSXPD",52.6)=^PS(52.6) ; IV ADDITIVES
M @XPDGREF@("VWPSSXPD",52.7)=^PS(52.7) ; IV SOLUTIONS
M @XPDGREF@("VWPSSXPD",50.4)=^PS(50.4) ; DRUG ELECTROLYTES
QUIT
;
PRE ; Pre-Init routine for KIDS
DO KILLDRUG ; Remove old drugs from system.
QUIT
;
POST ; Post-Init routine for KIDS
; Load new drugs into system
M ^PSDRUG=@XPDGREF@("VWPSSXPD",50) ; DRUG
M ^PS(50.7)=@XPDGREF@("VWPSSXPD",50.7) ; PHARMACY ORDERABLE ITEM
M ^PS(51.7)=@XPDGREF@("VWPSSXPD",51.7) ; DRUG TEXT
M ^PS(52.6)=@XPDGREF@("VWPSSXPD",52.6) ; IV ADDITIVES
M ^PS(52.7)=@XPDGREF@("VWPSSXPD",52.7) ; IV SOLUTIONS
M ^PS(50.4)=@XPDGREF@("VWPSSXPD",50.4) ; DRUG ELECTROLYTES
; Restock the CPRS files from the new drug files
DO RESTOCK
QUIT
;
; -- END KIDS HOOKS --
;
; -- BEGIN Public Entry Points --
KILLDRUG ; Remove all Drug Data. PEP. Use this to call the routine.
D DT^DICRW ; Min FM Vars
D MES^XPDUTL("Killing Drug (50)") D DRUG
D MES^XPDUTL("Killing Pharmacy Orderable Item (OI) (50.7)") D PO
D MES^XPDUTL("Killing Drug Text (51.7)") D DRUGTEXT
D MES^XPDUTL("Killing IV Additives (52.6)") D IVADD
D MES^XPDUTL("Killing IV Solutions (52.7)") D IVSOL
D MES^XPDUTL("Killing Drug Electrolytes (50.4)") D DRUGELEC
D MES^XPDUTL("Removing Pharmacy OIs from the Orderable Item (101.43)") D O
D MES^XPDUTL("Syncing the Order Quick View (101.44)") D CPRS
QUIT
;
RESTOCK ; Restock CPRS Orderable Items from new Drug & Pharmacy Orderable Item
; File. Public Entry Point.
; Call this after repopulating the drug file (50) and the pharmacy orderable
; item file (50.7)
N PSOIEN ; Looper variable
D DT^DICRW ; Establish FM Basic Variables
;
; Loop through Orderable Item file and call
; 1. The Active/Inactive Updater for the Orderable Item
; 2. the protocol file updater to CPRS Files
S PSOIEN=0 F S PSOIEN=$O(^PS(50.7,PSOIEN)) Q:'PSOIEN D
. D MES^XPDUTL("Syncing Pharamcy Orderable Item "_PSOIEN)
. D EN^PSSPOIDT(PSOIEN),EN2^PSSHL1(PSOIEN,"MUP")
D CPRS ; Update Orderable Item View files
QUIT
;
; -- END Public Entry Points --
;
; -- The rest is private --
DRUG ; Kill Drug File; Private
N %1 S %1=^PSDRUG(0)
K ^PSDRUG
S ^PSDRUG(0)=%1
S $P(^PSDRUG(0),"^",3,4)=""
QUIT
;
PO ; Kill Pharmacy Orderable Items; Private
N %1 S %1=^PS(50.7,0)
K ^PS(50.7)
S ^PS(50.7,0)=%1
S $P(^PS(50.7,0),"^",3,4)=""
QUIT
;
DRUGTEXT ; Kill Drug Text Entries ; Private
N %1 S %1=^PS(51.7,0)
K ^PS(51.7)
S ^PS(51.7,0)=%1
S $P(^PS(51.7,0),"^",3,4)=""
QUIT
;
IVADD ; Kill IV Additives ; Private
N %1 S %1=^PS(52.6,0)
K ^PS(52.6)
S ^PS(52.6,0)=%1
S $P(^PS(52.6,0),"^",3,4)=""
QUIT
;
IVSOL ; Kill IV Solutions ; Private
N %1 S %1=^PS(52.7,0)
K ^PS(52.7)
S ^PS(52.7,0)=%1
S $P(^PS(52.7,0),"^",3,4)=""
QUIT
;
DRUGELEC ; Kill Drug Electrolytes ; Private
N %1 S %1=^PS(50.4,0)
K ^PS(50.4)
S ^PS(50.4,0)=%1
S $P(^PS(50.4,0),"^",3,4)=""
QUIT
;
O ; Kill off Pharamcy Order Items (Only!) in the Orderable Item file; Private
N DA ; Used in For loop below
N DIK S DIK="^ORD(101.43,"
N I S I=0
FOR S I=$O(^ORD(101.43,"ID",I)) QUIT:I="" DO
. I I["PSP" S DA=$O(^ORD(101.43,"ID",I,"")) D ^DIK
QUIT
;
CPRS ; Now, update the CPRS lists (sync with Orderable Item file) -
; Uses a CPRS API to do this; Private
; Next 3 variables are required as inputs
N ATTEMPT S ATTEMPT=0 ; Attempt to Update
N UPDTIME S UPDTIME=$HOROLOG ; Update Time
N DGNM ; Dialog Name
; IVA RX -> Additives; IVB RX -> Solutions
; IVM RX -> Inpatient Meds for Outpatients
; NV RX -> Non-VA Meds ; O RX -> Outpatient
; UD RX -> Unit Dose
FOR DGNM="IVA RX","IVB RX","IVM RX","NV RX","O RX","UD RX" DO
. D MES^XPDUTL(" --> Rebuilding "_DGNM)
. D FVBLD^ORWUL
QUIT
;

View File

@ -0,0 +1,20 @@
KBANCLN ; WV/SMH - Jordan Drug File Clean-up; 5/16/12 1:18pm
N KBANFDA
N KBANIEN S KBANIEN=0
; Loop through Drug File (no indexes)
F S KBANIEN=$O(^PSDRUG(KBANIEN)) Q:'+KBANIEN DO
. W KBANIEN
. W " "
. ; Remove Arabic Local Possible Dossages
. N KBANLD S KBANLD=0
. F S KBANLD=$O(^PSDRUG(KBANIEN,"DOS2",KBANLD)) Q:'+KBANLD S KBANFDA(50.0904,KBANLD_","_KBANIEN_",",3)="@"
. ; Remove ATC Ward Groups
. N KBANATC S KBANATC=0
. F S KBANATC=$O(^PSDRUG(KBANIEN,212,KBANATC)) Q:'+KBANATC S KBANFDA(50.0212,KBANATC_","_KBANIEN_",",.01)="@"
. ; Remove IFCAP item pointers
. N IFCAP S IFCAP=0
. F S IFCAP=$O(^PSDRUG(KBANIEN,441,IFCAP)) Q:'+IFCAP S KBANFDA(50.0441,IFCAP_","_KBANIEN_",",.01)="@"
N ERR
; Delete!
D FILE^DIE("","KBANFDA","ERR")
ZWRITE:$D(ERR) ERR

View File

@ -0,0 +1,378 @@
--- KIDS TEXT ----
Created by Sam Habiel on Thursday 12 April 2011 for WorldVistA.
--- WARNING ---
If you install the KIDS build produced by this tool on a production system
containing pharmacy patient data, you will cause database corruption and
jeopardize patient safety.
--- WARNING ---
This KIDS Build transports the following files from a source system to a
destination system and then syncs CPRS OE/RR files with the new files.
; ^PSDRUG DRUG
; ^PS(50.7) PHARMACY ORDERABLE ITEM
; ^PS(51.7) DRUG TEXT
; ^PS(52.6) IV ADDITIVES
; ^PS(52.7) IV SOLUTIONS
; ^PS(50.4) DRUG ELECTROLYTES
Workflow (using KIDS):
; On the Origin System:
; - Create a KIDS build that calls the following:
; 1. VWPSSXPD to call from top is the Environment Check for the
; Build
; 2. PRE^VWPSSXPD is the Pre-Init for the Destination System
; 3. POST^VWPSSXPD is the Post-Init for the Destination System
; 4. TRAN^VWPSSXPD is the Pre-Transport Routine for your originating system drug data
; - Generate the KIDS Build. The file will have all the Drug Data from the
; Origin System.
;
; On the Destination System:
; - Install the KIDS Build
The entry points in the attached routine (VWPSSXPD) can be used by
themselves to remove an old drug file and add a new one.
Documentation for using the Drug File updating utility WITH and WITHOUT KIDS
can be found in VWPSSXPD.m.
KIDS file contains this routine plus a sample drug file to be installed
into a destination system.
--- END KIDS TEXT ----
License is AGPL.
Author is Sam Habiel for WorldVistA.
Limitations/Ideas for Future Development:
- Not sure if the MEDICATION ROUTES should be transmitted or not. While
additions are allowed, they are by my experience uncommon.
- Many reference files (e.g. PACKAGE SIZE or DRUG UNITS) are not part of the
NDF, yet they are not user modifiable. Yet, they are referenced almost
exclusively from the National Drug Files; which means that they cannot be
changed without corrupting the NDF data. I am trying to find documentation
to say that they are standard.
- If the Administration Schedules from the originating system and destination
system don't match, you need to either change the schedules on the orderable
items, or make the schedules on the destination system the same as the
ones from incoming drug file, otherwise, the problems you run into is this:
- Orders do not calculate frequency correctly if the schedule is not present
in the destination system. This means that the proper number of pills
cannot be calculated.
- In Outpatient Pharmacy, Schedules do not expand into patient readable
instructions
- If the National Drug Files are not up to date in the destination system,
there will be some broken pointers. All you have to do is update the NDF with
the latest patches.
- If some drugs are linked with lab tests, these need to be re-linked.
Preferably, these should be removed prior to transporting the drug file.
Remarks on Broken Pointers in Destination Systems as a result of using this
package:
Because many files point to the Pharmacy Orderable Item and Drug files, you
practically cannot use this package on a database that contains patient-
specific pharmacy data since all data will be corrupted.
When installing a new drug and pharmacy orderable item file, the following may
be broken:
For Drug File:
- LAB TEST MONITOR field.
- SPECIMEN TYPE field.
- CLOZAPINE LAB TEST:LAB TEST MONITOR field
- CLOZAPINE LAB TEST:SPECIMEN TYPE field
- ATC CANISTER:WARD GROUP FOR CANISTER
- ACTIVITY LOG:INITIATOR OF ACTIVITY (field not used currently)
- NDC BY OUTPATIENT SITE:OUTPATIENT SITE
- IFCAP ITEM NUMBER:ITEM NUMBER (field not used currently)
- Custom UNIT DOSE MED ROUTE (field not used currently)
- NATIONAL DRUG FILE ENTRY (if you don't have a recently patched NDF)
- PSNDF VA PRODUCT NAME ENTRY (if you don't have a recently patched NDF).
For Pharmacy Orderable Item File:
- MEDICATION ROUTES (additions are allowed, not deletions)
The National Drug Files are Standardized. However, a system may be out of date.
If you do not have the latest National Drug Files, you have will broken
pointers if the source of your drug files has a more recent National Drug File.
For best results, the source system and the destination system should have a
commensurate NDF patch level.
To check for broken pointers, use the VERIFY FIELDs option in Fileman.
Here is an example of a drug file from a patched system installed on a system
that is not patched:
==============================================================================
GTM>D P^DI
VA FileMan 22.0
Select OPTION: UTILITY FUNCTIONS
Select UTILITY OPTION: VERIFY FIELDS
MODIFY WHAT FILE: DRUG//
VERIFY WHICH FIELD: PSNDF VA PRODUCT NAME ENTRY
DEVICE: HOME//
VERIFY FIELDS REPORT
DRUG FILE (#50) APR 16, 2012 12:40 PAGE 1
-------------------------------------------------------------------------------
POINTER
(CANNOT CHECK CROSS-REFERENCE)
ENTRY# GENERIC NAME ERROR
148 GUANFACINE 1MG TAB ER No '21739' in pointed-to File
149 GUANFACINE 2MG TAB ER No '21740' in pointed-to File
168 LURASIDONE 40MG TAB No '22028' in pointed-to File
169 LURASIDONE 80MG TAB No '22030' in pointed-to File
221 LEVONORGESTREL 1.5MG TAB No '21157' in pointed-to File
450 LIDOCAINE 5% PATCH No '22004' in pointed-to File
456 NEOMYCIN/POLYMYXIN/BACITRACIN OINT No '21497' in pointed-to File
485 MICONAZOLE 4% VAGINAL CREAM No '22325' in pointed-to File
585 PALIPERIDONE 234MG INJ SUSP PFSNo '21021' in pointed-to File
586 PALIPERIDONE 156MG INJ SUSP PFSNo '21022' in pointed-to File
==============================================================================
Below you will find the pointer relations of all the files that are transmitted in this KIDS build.
File/Package: DRUG Date: APR 12,2012
FILE (#) POINTER (#) FILE
POINTER FIELD TYPE POINTER FIELD FILE POINTED TO
------------------------------------------------------------------------------------------------------------------------------------
L=Laygo S=File not in set N=Normal Ref. C=Xref.
*=Truncated m=Multiple v=Variable Pointer
-------------------------------
DRUG (#50) | |
CORRESPONDING OUTPATIENT DRUG .................. (N )-> | 50 DRUG |
CORRESPONDING INPATIENT DRUG ................... (N )-> | PHARMACY ORDERABLE ITEM |-> PHARMACY ORDERABLE ITEM (inc)
FORMULARY ALTERNATIVE .......................... (N C )-> | ORDER UNIT |-> ORDER UNIT (only modifiable
from FM, possibly standard)
DUE QUESTIONNAIRE (#50.07301) | |
DRUG ........................................... (N S C )-> | LAB TEST MONITOR |-> LABORATORY TEST (possible brok pt)
DUE ANSWER SHEET (#50.0731) | |
DRUG ........................................... (N S C )-> | SPECIMEN TYPE |-> TOPOGRAPHY FIELD (possible break)
IV CATEGORY (#50.21) | |
IV DRUG:GENERIC DRUG ........................... (N S )-> | NATIONAL DRUG FILE ENTRY |-> VA GENERIC (standard)
DRUG COST (#50.9002) | |
PHYSICIAN DATA:DRUG ............................ (N S )-> | PSNDF VA PRODUCT NAME EN* |-> VA PRODUCT (standard)
DRUG DATA:DRUG ................................. (N S )-> | PACKAGE SIZE |-> PACKAGE SIZE (only mod from FM)
(possibly standard)
DIVISION DATA:DRUG DATA:DRUG ................... (N S )-> | PACKAGE TYPE |-> PACKAGE TYPE (only mod from FM)
(possibly standard)
PRESCRIPTION (#52) | |
DRUG ........................................... (N S C )-> | NATIONAL DRUG CLASS |-> VA DRUG CLASS (standard)
PENDING OUTPATIENT O (#52.41) | |
DRUG ........................................... (N S )-> | UNIT DOSE MED ROUTE |-> MEDICATION ROUTES (addable)
IV ADDITIVES (#52.6) | |
GENERIC DRUG ................................... (N S C )-> | CORRESPONDING OUTPATIENT* |-> DRUG (this file)
IV SOLUTIONS (#52.7) | |
GENERIC DRUG ................................... (N S C )-> | *PRIMARY DRUG |-> PRIMARY DRUG (not used)
NON-VERIFIED ORDERS (#53.1) | |
SOLUTION ....................................... (N S )-> | UNIT |-> DRUG UNITS (only mod from FM)
(possibly standard)
DISPENSE DRUG .................................. (N S )-> | CORRESPONDING INPATIENT * |-> DRUG (this file)
UNIT DOSE ORDER SET (#53.2102) | |
*DRUG:*DISPENSE DRUG ........................... (N S C )-> | *LAB TEST MONITOR |-> LABORATORY TEST (not used)
ORDERABLE ITEM:DISPENSE DRUG ................... (N S )-> | *SPECIMEN TYPE |-> TOPOGRAPHY FIELD (not used)
INPATIENT USER PARAM (#53.4502) | |
DISPENSE DRUG .................................. (N S C )-> | m CLOZAPINE L:LAB TEST MO* |-> LABORATORY TEST (broken)
BCMA MISSING DOSE RE (#53.68) | |
DRUG REQUESTED ................................. (N S )-> | CLOZAPINE L:SPECIMEN TY* |-> TOPOGRAPHY FIELD (broken)
BCMA UNABLE TO SCAN (#53.771) | |
DISPENSE DRUG .................................. (N S C )-> | m ATC CANISTE:WARD GROUP * |-> WARD GROUP (site specific)
BCMA MEDICATION VARI (#53.78) | |
DRUG SCANNED ................................... (N S )-> | ACTIVITY LO:INITIATOR O* |-> NEW PERSON (not used)
BCMA MEDICATION LOG (#53.795) | |
DISPENSE DRUG .................................. (N S C )-> | NDC BY OUTP:OUTPATIENT * |-> OUTPATIENT SITE (site specific)
PHARMACY PATIENT (#55.05) | |
NON-VA MEDS:DISPENSE DRUG ...................... (N S )-> | m DRUG TEXT E:DRUG TEXT E* |-> DRUG TEXT (included)
UNIT DOSE:*SOLUTION ............................ (N S )-> | m IFCAP ITEM :ITEM NUMBER* |-> ITEM MASTER (WV empty file)
UNIT DOSE:DISPENSE LOG:DISPENSE DRUG ........... (N S )-> | m FORMULARY A:FORMULARY A* |-> DRUG (this file)
UNIT DOSE:DISPENSE DRUG ........................ (N S )-> | |
UNIT DOSE PICK LIST (#57.63) | |
WARD:PROVIDER:DRUG ............................. (N S )-> | |
PHARMACY AOU STOCK (#58.11) | |
ITEM ........................................... (N S )-> | |
PHARMACY BACKORDER (#58.3) | |
ITEM ........................................... (N S C )-> | |
AR/WS STATS FILE (#58.52) | |
INPATIENT SITE:RECALCULATE AMIS:DRUG ........... (N S )-> | |
DRUG ACCOUNTABILITY (#58.8001) | |
DRUG ........................................... (N S C )-> | |
DRUG ACCOUNTABILITY (#58.81) | |
DRUG ........................................... (N S )-> | |
DRUG ACCOUNTABILITY (#58.81125) | |
INVOICE DATA:LINE ITEM DATA:DRUG ............... (N S )-> | |
CS WORKSHEET (#58.85) | |
DRUG ........................................... (N S )-> | |
CS DESTRUCTION (#58.86) | |
DRUG ........................................... (N S )-> | |
PRICE PER DISPENSE UNIT ........................ (N S )-> | |
CS CORRECTION LOG (#58.87) | |
DRUG ........................................... (N S )-> | |
OUTPATIENT SITE (#59) | |
METHADONE DRUG ................................. (N S )-> | |
PHARMACY SYSTEM (#59.7) | |
LAST DRUG CONVERTED ............................ (N S )-> | |
LAST DRUG LINKED ............................... (N S )-> | |
RAD/NUC MED PATIENT (#70.15) | |
REGISTERE:EXAMINATION:MEDICATIONS:MED ADMINIS* . (N S )-> | |
NUC MED EXAM DATA (#70.21) | |
RADIOPHARMACEUTICALS:RADIOPHARMACEUTICAL ....... (N S )-> | |
RAD/NUC MED PROCEDUR (#71.055) | |
DEFAULT MEDICATIONS:DEFAULT MEDICATION ......... (N S C )-> | |
DEFAULT RADIOPHARMACEU:DEFAULT RADIOPHARMACEUTI* (N S )-> | |
RADIOPHARMACEUTICAL (#71.9) | |
RADIOPHARM ..................................... (N S )-> | |
ORDER STATISTICS (#100.1) | |
NAME v ...........................................(N S C L)-> | |
PATIENT ALLERGIES (#120.8) | |
GMR ALLERGY v ....................................(N S L)-> | |
SURGERY (#130.33) | |
MEDICATIONS .................................... (N S )-> | |
ANESTHESIA TECHNIQUE:ANESTHESIA AGENTS ......... (N S )-> | |
ANESTHESIA TECHNIQUE:TEST DOSE ................. (N S )-> | |
FEE BASIS PHARMACY I (#162.11) | |
PRESCRIPTION NUMBER:GENERIC DRUG ............... (N S )-> | |
TRANSFER PRICING TRA (#351.61) | |
DRUG ........................................... (N S )-> | |
IB BILL/CLAIMS PRESC (#362.4) | |
DRUG ........................................... (N S )-> | |
SECLUSION/RESTRAINT (#615.23) | |
MEDICATIONS .................................... (N S )-> | |
MEDICATION (#695) | |
GENERIC NAME ................................... (N S C )-> | |
GENERALIZED PROCEDUR (#699.53) | |
MEDICATIONS .................................... (N S )-> | |
ENDOSCOPY/CONSULT (#699.74) | |
PRESCRIPTION GIVEN ............................. (N S )-> | |
UNIT DOSE LOCAL EXTR (#727.809) | |
BCMA DRUG DISPENSED ............................ (N S )-> | |
IV DETAIL EXTRACT (#727.819) | |
BCMA DRUG DISPENSED ............................ (N S )-> | |
IV EXTRACT DATA (#728.113) | |
DRUG ........................................... (N S )-> | |
UNIT DOSE EXTRACT DA (#728.904) | |
DRUG ........................................... (N S )-> | |
ROR REGISTRY PARAMET (#798.129) | |
LOCAL DRUG NAME ................................ (N S C )-> | |
REMINDER FINDING ITE (#801.43) | |
FINDING ITEM v ...................................(N S L)-> | |
REMINDER EXTRACT SUM (#810.31) | |
EXTRACT FINDINGS:FINDING ITEM v ..................(N S L)-> | |
LREPI FINDING TOTALS:FINDING ITEM v ..............(N S L)-> | |
REMINDER TERM (#811.52) | |
FINDINGS:FINDING ITEM v ..........................(N S L)-> | |
REMINDER DEFINITION (#811.902) | |
FINDINGS:FINDING ITEM v ..........................(N S C L)-> | |
APSP INTERVENTION (#9009032.4) | |
DRUG ........................................... (N S )-> | |
-------------------------------
File/Package: PHARM ORD ITEM Date: APR 12,2012
FILE (#) POINTER (#) FILE
POINTER FIELD TYPE POINTER FIELD FILE POINTED TO
------------------------------------------------------------------------------------------------------------------------------------
L=Laygo S=File not in set N=Normal Ref. C=Xref.
*=Truncated m=Multiple v=Variable Pointer
-------------------------------
DRUG (#50) | |
PHARMACY ORDERABLE ITEM ........................ (N S C L)-> | 50.7 PHARMACY ORDERABLE I* |
PRESCRIPTION (#52) | |
PHARMACY ORDERABLE ITEM ........................ (N S )-> | DOSAGE FORM |-> DOSAGE FORM (file locked down)
PENDING OUTPATIENT O (#52.41) | |
PHARMACY ORDERABLE ITEM ........................ (N S )-> | MED ROUTE |-> MEDICATION ROUTES (addable)
IV ADDITIVES (#52.6) | |
PHARMACY ORDERABLE ITEM ........................ (N S C )-> | m DIVISION/SI:DIVISION/SI* |-> OUTPATIENT SITE (not used)
IV SOLUTIONS (#52.7) | |
PHARMACY ORDERABLE ITEM ........................ (N S C L)-> | m OI-DRUG TEX:OI-DRUG TEX* |-> DRUG TEXT (used -- included)
NON-VERIFIED ORDERS (#53.1) | |
ORDERABLE ITEM ................................. (N S )-> | |
UNIT DOSE ORDER SET (#53.22) | |
ORDERABLE ITEM ................................. (N S )-> | |
PICK LIST (#53.52) | |
PATIENT:ORDER:ORDERABLE ITEM ................... (N S )-> | |
BCMA MEDICATION LOG (#53.79) | |
ADMINISTRATION MEDICATION ...................... (N S )-> | |
PHARMACY PATIENT (#55.01) | |
IV:ORDERABLE ITEM .............................. (N S )-> | |
NON-VA MEDS:ORDERABLE ITEM ..................... (N S )-> | |
UNIT DOSE:ORDERABLE ITEM ....................... (N S )-> | |
-------------------------------
File/Package: DRUG TEXT Date: APR 16,2012
FILE (#) POINTER (#) FILE
POINTER FIELD TYPE POINTER FIELD FILE POINTED TO
------------------------------------------------------------------------------------------------------------------------------------
L=Laygo S=File not in set N=Normal Ref. C=Xref.
*=Truncated m=Multiple v=Variable Pointer
-------------------------------
DRUG (#50.037) | |
DRUG TEXT ENTRY ................................ (N S C )-> | 51.7 DRUG TEXT |
PHARMACY ORDERABLE I (#50.76) | |
OI-DRUG TEXT ENTRY ............................. (N S )-> | |
-------------------------------
File/Package: IV FILES Date: APR 16,2012
FILE (#) POINTER (#) FILE
POINTER FIELD TYPE POINTER FIELD FILE POINTED TO
------------------------------------------------------------------------------------------------------------------------------------
L=Laygo S=File not in set N=Normal Ref. C=Xref.
*=Truncated m=Multiple v=Variable Pointer
-------------------------------
IV ADDITIVES (#52.62) | |
ELECTROYLTES:ELECTROLYTE ....................... (N )-> | 50.4 DRUG ELECTROLYTES |
IV SOLUTIONS (#52.702) | |
ELECTROLYTES ................................... (N )-> | |
-------------------------------
-------------------------------
IV CATEGORY (#50.2) | |
IV DRUG v ........................................(N S L)-> | 52.6 IV ADDITIVES |
IV DRUG v ........................................(N S L)-> | GENERIC DRUG |-> DRUG
NON-VERIFIED ORDERS (#53.157) | |
ADDITIVE ....................................... (N S C )-> | PHARMACY ORDERABLE ITEM |-> PHARMACY ORDERABLE ITEM
BCMA MISSING DOSE RE (#53.686) | |
ADDITIVES ...................................... (N S C )-> | *PRIMARY DRUG |-> PRIMARY DRUG
BCMA UNABLE TO SCAN (#53.7711) | |
ADDITIVE ....................................... (N S C )-> | QUICK CODE:USUAL IV SO* |-> IV SOLUTIONS
BCMA MEDICATION LOG (#53.796) | |
ADDITIVES ...................................... (N S C )-> | QUICK CODE:MED ROUTE |-> MEDICATION ROUTES
PHARMACY PATIENT (#55.02) | |
IV:ADDITIVE .................................... (N S )-> | m ELECTROYLTES:ELECTROLYTE |-> DRUG ELECTROLYTES
BCMA ID:ADDITIVE ............................... (N S )-> | |
PHARMACY QUICK ORDER (#57.17) | |
ADDITIVE ....................................... (N S )-> | |
-------------------------------
-------------------------------
IV CATEGORY (#50.2) | |
IV DRUG v ........................................(N S L)-> | 52.7 IV SOLUTIONS |
IV DRUG v ........................................(N S L)-> | GENERIC DRUG |-> DRUG
IV ADDITIVES (#52.61) | |
QUICK CODE:USUAL IV SOLUTION ................... (N )-> | PHARMACY ORDERABLE ITEM |-> PHARMACY ORDERABLE ITEM
NON-VERIFIED ORDERS (#53.158) | |
SOLUTION ....................................... (N S C )-> | *PRIMARY DRUG |-> PRIMARY DRUG
BCMA MISSING DOSE RE (#53.687) | |
SOLUTIONS ...................................... (N S C )-> | m ELECTROLYTES:ELECTROLYTES |-> DRUG ELECTROLYTES
BCMA UNABLE TO SCAN (#53.7712) | |
SOLUTIONS ...................................... (N S C )-> | |
BCMA MEDICATION LOG (#53.797) | |
SOLUTIONS ...................................... (N S C )-> | |
PHARMACY PATIENT (#55.1058) | |
BCMA ID:SOLUTION ............................... (N S )-> | |
IV:SOLUTION .................................... (N S )-> | |
PHARMACY QUICK ORDER (#57.18) | |
SOLUTION ....................................... (N S )-> | |
-------------------------------

View File

@ -0,0 +1,205 @@
VWPSSXPD ; VW/SMH - Update the Drug File and friends... ; 4/17/12 8:39am
;;1.0;WorldVista Modifications;;;Build 5
; (C) Sam Habiel
; Licensed under AGPL
;
; This routine contains utilities to remove a drug file and install a new drug
; file in VISTA originating in another system. As of Build 3, you can use KIDS
; to transport the file.
;
; Workflow (Manual, without using KIDS)
; On the Origin System:
; - Create a Global Output containing:
; ^PSDRUG DRUG
; ^PS(50.7) PHARMACY ORDERABLE ITEM
; ^PS(51.7) DRUG TEXT
; ^PS(52.6) IV ADDITIVES
; ^PS(52.7) IV SOLUTIONS
; ^PS(50.4) DRUG ELECTROLYTES
;
; On the Destination System:
; 1. Call KILLDRUG to remove all Drug Data
; 2. Restore the global created above.
; 3. Call RESTOCK to sync CPRS files back with drug files.
;
; Workflow (using KIDS):
; On the Origin System:
; - Create a KIDS build that calls the following:
; 1. This Routine Name to call from top is the Environment Check for the Build
; 2. TRAN is the Pre-Transport Routine for your originating system drug data
; 3. PRE is the Pre-Init for the Destination System
; 4. POST is the Post-Init for the Destination System
; - Generate the KIDS Build. The file will have all the Drug Data from the Origin
; System.
; On the Destination System:
; - Install the KIDS Build
;
; Limitations:
; - If the Administration Schedules from the originating system and destination
; system don't match, you need to either change the schedules on the orderable
; items, or make the schedules on the destination system the same as the
; ones from incoming drug file, otherwise, the problems you run into is this:
; - Orders do not calculate frequency correctly if the schedule is not present
; in the destination system. This means that the proper number of pills cannot
; be calculated.
; - In Outpatient Pharmacy, Schedules do not expand into patient readable
; instructions
; - If the National Drug Files are not up to date in the destination system, there
; will be some broken pointers. All you have to do is update them.
; - If some drugs are linked with lab tests, these need to be re-linked. Preferably,
; these should be removed prior to transporting the drug file.
;
; --- ()()() ---
;
; PEPs: KILLDRUG to remove all Drugs
; RESTOCK to add the drugs back to CPRS
;
; KIDS EPs:
; Top EP Fall through -> Environment Check (call the routine from the top)
; PRE -> Pre-Init for the Destination System
; POST -> Post-Init for the Destination System
; TRAN -> Pre-Transport Routine (to get data from original system)
;
; KIDS EPs call PEPs to do their work.
;
; Environment Check falls through from the top
;
; -- START KIDS HOOKS --
;
ENV ; Environment Check Routine; KIDS EP; top fallthough
W $$CJ^XLFSTR("------ WARNING WARNING WARNING -----",80),!! ; Center Justify
W "This package will delete your drug file and add a new drug file contained",!
W "in the distribution.",!!
W "If you have patient pharmacy data, this will CORRUPT your database.",!!
N VWPROD S VWPROD=$$PROD^XUPROD() ; Check if a production acc; +ve val is yes
W "You are running in a "_$S(VWPROD:"Production",1:"Test")_" Environment.",!!
W "Are you sure you want to continue? Type a full YES/yes if you want to proceed)",!
N X R "ANSWER: ",X:60
S X=$$UP^XLFSTR(X) ; uppercase
I X'="YES" S XPDQUIT=1 ; Quit if the user doesn't say yes
QUIT
;
TRAN ; Pre-Transport routine for KIDS to ship off the 50, 50.7, 51.7 globals
M @XPDGREF@("VWPSSXPD",50)=^PSDRUG ; DRUG
M @XPDGREF@("VWPSSXPD",50.7)=^PS(50.7) ; PHARMACY ORDERABLE ITEM
M @XPDGREF@("VWPSSXPD",51.7)=^PS(51.7) ; DRUG TEXT
M @XPDGREF@("VWPSSXPD",52.6)=^PS(52.6) ; IV ADDITIVES
M @XPDGREF@("VWPSSXPD",52.7)=^PS(52.7) ; IV SOLUTIONS
M @XPDGREF@("VWPSSXPD",50.4)=^PS(50.4) ; DRUG ELECTROLYTES
QUIT
;
PRE ; Pre-Init routine for KIDS
DO KILLDRUG ; Remove old drugs from system.
QUIT
;
POST ; Post-Init routine for KIDS
; Load new drugs into system
M ^PSDRUG=@XPDGREF@("VWPSSXPD",50) ; DRUG
M ^PS(50.7)=@XPDGREF@("VWPSSXPD",50.7) ; PHARMACY ORDERABLE ITEM
M ^PS(51.7)=@XPDGREF@("VWPSSXPD",51.7) ; DRUG TEXT
M ^PS(52.6)=@XPDGREF@("VWPSSXPD",52.6) ; IV ADDITIVES
M ^PS(52.7)=@XPDGREF@("VWPSSXPD",52.7) ; IV SOLUTIONS
M ^PS(50.4)=@XPDGREF@("VWPSSXPD",50.4) ; DRUG ELECTROLYTES
; Restock the CPRS files from the new drug files
DO RESTOCK
QUIT
;
; -- END KIDS HOOKS --
;
; -- BEGIN Public Entry Points --
KILLDRUG ; Remove all Drug Data. PEP. Use this to call the routine.
D DT^DICRW ; Min FM Vars
D MES^XPDUTL("Killing Drug (50)") D DRUG
D MES^XPDUTL("Killing Pharmacy Orderable Item (OI) (50.7)") D PO
D MES^XPDUTL("Killing Drug Text (51.7)") D DRUGTEXT
D MES^XPDUTL("Killing IV Additives (52.6)") D IVADD
D MES^XPDUTL("Killing IV Solutions (52.7)") D IVSOL
D MES^XPDUTL("Killing Drug Electrolytes (50.4)") D DRUGELEC
D MES^XPDUTL("Removing Pharmacy OIs from the Orderable Item (101.43)") D O
D MES^XPDUTL("Syncing the Order Quick View (101.44)") D CPRS
QUIT
;
RESTOCK ; Restock CPRS Orderable Items from new Drug & Pharmacy Orderable Item
; File. Public Entry Point.
; Call this after repopulating the drug file (50) and the pharmacy orderable
; item file (50.7)
N PSOIEN ; Looper variable
D DT^DICRW ; Establish FM Basic Variables
;
; Loop through Orderable Item file and call
; 1. The Active/Inactive Updater for the Orderable Item
; 2. the protocol file updater to CPRS Files
S PSOIEN=0 F S PSOIEN=$O(^PS(50.7,PSOIEN)) Q:'PSOIEN D
. D MES^XPDUTL("Syncing Pharamcy Orderable Item "_PSOIEN)
. D EN^PSSPOIDT(PSOIEN),EN2^PSSHL1(PSOIEN,"MUP")
D CPRS ; Update Orderable Item View files
QUIT
;
; -- END Public Entry Points --
;
; -- The rest is private --
DRUG ; Kill Drug File; Private
N %1 S %1=^PSDRUG(0)
K ^PSDRUG
S ^PSDRUG(0)=%1
S $P(^PSDRUG(0),"^",3,4)=""
QUIT
;
PO ; Kill Pharmacy Orderable Items; Private
N %1 S %1=^PS(50.7,0)
K ^PS(50.7)
S ^PS(50.7,0)=%1
S $P(^PS(50.7,0),"^",3,4)=""
QUIT
;
DRUGTEXT ; Kill Drug Text Entries ; Private
N %1 S %1=^PS(51.7,0)
K ^PS(51.7)
S ^PS(51.7,0)=%1
S $P(^PS(51.7,0),"^",3,4)=""
QUIT
;
IVADD ; Kill IV Additives ; Private
N %1 S %1=^PS(52.6,0)
K ^PS(52.6)
S ^PS(52.6,0)=%1
S $P(^PS(52.6,0),"^",3,4)=""
QUIT
;
IVSOL ; Kill IV Solutions ; Private
N %1 S %1=^PS(52.7,0)
K ^PS(52.7)
S ^PS(52.7,0)=%1
S $P(^PS(52.7,0),"^",3,4)=""
QUIT
;
DRUGELEC ; Kill Drug Electrolytes ; Private
N %1 S %1=^PS(50.4,0)
K ^PS(50.4)
S ^PS(50.4,0)=%1
S $P(^PS(50.4,0),"^",3,4)=""
QUIT
;
O ; Kill off Pharamcy Order Items (Only!) in the Orderable Item file; Private
N DA ; Used in For loop below
N DIK S DIK="^ORD(101.43,"
N I S I=0
FOR S I=$O(^ORD(101.43,"ID",I)) QUIT:I="" DO
. I I["PSP" S DA=$O(^ORD(101.43,"ID",I,"")) D ^DIK
QUIT
;
CPRS ; Now, update the CPRS lists (sync with Orderable Item file) -
; Uses a CPRS API to do this; Private
; Next 3 variables are required as inputs
N ATTEMPT S ATTEMPT=0 ; Attempt to Update
N UPDTIME S UPDTIME=$HOROLOG ; Update Time
N DGNM ; Dialog Name
; IVA RX -> Additives; IVB RX -> Solutions
; IVM RX -> Inpatient Meds for Outpatients
; NV RX -> Non-VA Meds ; O RX -> Outpatient
; UD RX -> Unit Dose
FOR DGNM="IVA RX","IVB RX","IVM RX","NV RX","O RX","UD RX" DO
. D MES^XPDUTL(" --> Rebuilding "_DGNM)
. D FVBLD^ORWUL
QUIT
;

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,542 @@
Remarks on the Jordan Drug File:
- Contains some data encoded as Windows-1256. It will not work on GT.M running
in UTF-8 mode.
- List of Broken Pointers:
--> Med Route in Pharmacy Orderable Item File:
VERIFY FIELDS REPORT
PHARMACY ORDERABLE ITEM FILE (#50.7) MAY 16, 2012 12:06 PAGE 1
-------------------------------------------------------------------------------
ENTRY# NAME ERROR
192 METHYLPREDNISOLONE "177" fails Input Transform
298 DIAZEPAM No '271' in pointed-to File
455 CALCITONIN No '273' in pointed-to File
888 INSULIN REGULAR "95" fails Input Transform
1058 RANIBIZUMAB No '274' in pointed-to File
--> WARD GROUP in ATC CANISTER multiple in the drug file.
VERIFY FIELDS REPORT
ATC CANISTER SUB-FILE (#50.0212) MAY 16, 2012 12:13 PAGE 1
-----------------------------------------------------------------------------------------------------------------------------------
POINTER
(CHECKING CROSS-REFERENCE)
ENTRY#'S WARD GROUP FOR ATC CANISTER ERROR
1254 ASPIRIN 100MG TAB,ORAL
1 1 "1" fails Input Transform
1254 ASPIRIN 100MG TAB,ORAL
5 11 No '11' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
6 13 No '13' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
7 14 No '14' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
8 15 No '15' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
9 16 No '16' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
10 17 No '17' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
11 18 No '18' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
12 21 No '21' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
13 22 No '22' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
14 23 No '23' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
15 24 No '24' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
16 25 No '25' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
17 26 No '26' in pointed-to File
1254 ASPIRIN 100MG TAB,ORAL
18 27 No '27' in pointed-to File
ITEM NUMBER in IFCAP ITEM NUMBER in the Drug File.
------------
VERIFY FIELDS REPORT
IFCAP ITEM NUMBER SUB-FILE (#50.0441) MAY 16, 2012 12:16 PAGE 1
-------------------------------------------------------------------------------
POINTER
(CHECKING CROSS-REFERENCE)
ENTRY#'S ITEM NUMBER ERROR
1002 HYDROXYUREA 500MG CAP,ORAL
1 4107 No '4107' in pointed-to File
1003 METHOTREXATE 2.5MG TAB,ORAL
1 953 No '953' in pointed-to File
1006 NOREPINEPHRINE BITARTRATE 1MG/ML INJ
1 2739 No '2739' in pointed-to File
1010 DIGOXIN 0.125MG TAB,ORAL
1 1580 No '1580' in pointed-to File
1011 DIGOXIN INJ 0.25MG/ML 2ML AMP
1 713 No '713' in pointed-to File
1012 DIGOXIN 0.25MG TAB,ORAL
1 1557 No '1557' in pointed-to File
1013 PROPRANOLOL HCL 10MG TAB,ORAL
1 367 No '367' in pointed-to File
1014 PROPRANOLOL HCL 40MG TAB,ORAL
1 369 No '369' in pointed-to File
1015 HYDRALAZINE HCL INJ 20MG/ML INJ
1 214 No '214' in pointed-to File
1016 HYDRALAZINE HCL 25MG TAB,ORAL
1 97 No '97' in pointed-to File
1017 METHYLDOPA 250MG TAB,ORAL
1 113 No '113' in pointed-to File
1018 ISOSORBIDE DINITRATE 5MG SL TAB
1 1076 No '1076' in pointed-to File
1019 IBUPROFEN 400MG TAB,ORAL
1 1311 No '1311' in pointed-to File
1020 INDOMETHACIN 25MG CAP,ORAL
1 101 No '101' in pointed-to File
1021 NALOXONE HCL 0.4MG/ML INJ
1 77 No '77' in pointed-to File
1022 CARBAMAZEPINE 200MG TAB,ORAL
1 2697 No '2697' in pointed-to File
1023 PHENYTOIN NA 100MG CAP,ORAL,SA
1 3005 No '3005' in pointed-to File
1025 IMIPRAMINE HCL 25MG TAB,ORAL
1 342 No '342' in pointed-to File
1028 HALOPERIDOL 5MG TAB,ORAL
1 5450 No '5450' in pointed-to File
1029 HALOPERIDOL 2MG/ML DROPS,ORAL
1 3591 No '3591' in pointed-to File
1031 TRIFLUOPERAZINE HCL 5MG TAB,ORAL
1 169 No '169' in pointed-to File
1032 METHYLPHENIDATE 10MG TAB,ORAL
1 787 No '787' in pointed-to File
1033 PHENOBARBITAL 15MG TAB,ORAL
1 902 No '902' in pointed-to File
1034 SIMETHICONE 40MG TAB,CHEWABLE
1 2652 No '2652' in pointed-to File
1036 SODIUM CHLORIDE 0.45% INJ 1000ML
1 3673 No '3673' in pointed-to File
1040 DEXTROSE 5% INJ 1000ML
1 3974 No '3974' in pointed-to File
1041 FUROSEMIDE 10MG/ML INJ 2ML VIAL
1 212 No '212' in pointed-to File
1042 MANNITOL 20% INJ 500ML BAG
1 505 No '505' in pointed-to File
1043 SPIRONOLACTONE 25MG TAB,ORAL
1 1514 No '1514' in pointed-to File
1044 ERYTHROMYCIN ES 200MG/5ML SUSP,ORAL
1 3624 No '3624' in pointed-to File
1045 GENTAMICIN 0.3% SOLN,OPHT
1 202 No '202' in pointed-to File
1050 FLUOROMETHOLONE 0.1% SUSP,OPHT
1 1181 No '1181' in pointed-to File
1051 PREDNISOLONE 1% SUSP,OPHT
1 2614 No '2614' in pointed-to File
1053 BISACODYL 5MG TAB,ORAL,EC
1 815 No '815' in pointed-to File
1054 BISACODYL 10MG SUPP,RECTAL
1 1303 No '1303' in pointed-to File
1057 HYDROCORTISONE BUTYRATE 0.1% (DON'T USE)
1 223 No '223' in pointed-to File
1058 DEFEROXAMINE MESYLATE 500MG/VIAL INJ
1 779 No '779' in pointed-to File
1059 PENICILLAMINE 250MG CAP,ORAL
1 358 No '358' in pointed-to File
1060 DEXAMETHASONE NA PO4 4MG/ML INJ 1ML
1 58 No '58' in pointed-to File
1061 METHYLPREDNISOLONE ACET. 40MG/ML INJ
1 3825 No '3825' in pointed-to File
1063 GLUCAGON 1MG/VIAL INJ
1 882 No '882' in pointed-to File
1064 CALCIUM GLUCONATE 10% INJ 10ML
1 817 No '817' in pointed-to File
1065 BUPIVACAINE HCL 0.5% INJ
1 1247 No '1247' in pointed-to File
1066 LIDOCAINE HCL 1% INJ
1 69 No '69' in pointed-to File
1067 BETAMETHASONE VALERATE 0.1% CREAM,TOP
1 2687 No '2687' in pointed-to File
1070 CYANOCOBALAMIN 1000MCG/ML INJ
1 4912 No '4912' in pointed-to File
1071 ALLOPURINOL 100MG TAB,ORAL
1 3970 No '3970' in pointed-to File
1072 ALLOPURINOL 300MG TAB,ORAL
1 1528 No '1528' in pointed-to File
1074 CHLORPHENIRAMINE MALEATE 4MG TAB,ORAL
1 934 No '934' in pointed-to File
1076 CEFAZOLIN SOD 1GM/VIAL INJ
1 206 No '206' in pointed-to File
1078 AMOXICILLIN 500MG CAP,ORAL
1 1201 No '1201' in pointed-to File
1079 PYRAZINAMIDE 500MG TAB,ORAL
1 964 No '964' in pointed-to File
1080 STREPTOMYCIN SULFATE 1GM INJ
1 922 No '922' in pointed-to File
1081 DOXYCYCLINE HYCLATE 100MG TAB
1 81 No '81' in pointed-to File
1082 CLINDAMYCIN HCL 150MG CAP,ORAL
1 326 No '326' in pointed-to File
1083 GENTAMICIN SULF 40MG/ML INJ 2ML/VL
1 211 No '211' in pointed-to File
1084 ETHAMBUTOL 400MG TAB,ORAL
1 337 No '337' in pointed-to File
1085 ISONIAZID 100MG TAB,ORAL
1 6232 No '6232' in pointed-to File
1086 ROXITHROMYCIN 150MG TAB,ORAL
1 373 No '373' in pointed-to File
1087 SULFASALAZINE 500MG TAB,ORAL
1 159 No '159' in pointed-to File
1089 METRONIDAZOLE 250MG TAB,ORAL
1 440 No '440' in pointed-to File
1090 NITROFURANTOIN 100MG TAB,ORAL
1 123 No '123' in pointed-to File
1091 AMANTADINE HCL 100MG CAP,100
1 31 No '31' in pointed-to File
1092 CHLORHEXIDINE GLUCONATE 0.2% RINSE,ORAL
1 5025 No '5025' in pointed-to File
1094 AMITRIPTYLINE HCL 25MG TAB,ORAL
1 929 No '929' in pointed-to File
1095 ASCORBIC ACID 500MG TAB,ORAL
1 39 No '39' in pointed-to File
1100 TIMOLOL MALEATE 0.5% SOLN,OPHT
1 1608 No '1608' in pointed-to File
1102 METOPROLOL SUCCINATE 100MG TAB,ORAL
1 349 No '349' in pointed-to File
1103 MICONAZOLE NITRATE CREAM,TOP 30GM
1 16 No '16' in pointed-to File
1105 VANCOMYCIN HCL 500MG/VIAL INJ.
1 907 No '907' in pointed-to File
1106 WARFARIN 5MG TAB,ORAL
1 4324 No '4324' in pointed-to File
1107 DIPYRIDAMOLE 75MG TAB,ORAL
1 4592 No '4592' in pointed-to File
1108 IMIPRAMINE HCL 10MG TAB,ORAL
1 3482 No '3482' in pointed-to File
1110 THEOPHYLLINE 300MG CAP,ORAL,SA
1 7210 No '7210' in pointed-to File
1112 AMPICILLIN 500MG/VIAL INJ
1 40 No '40' in pointed-to File
1113 BETAXOLOL 20MG TAB,ORAL
1 6009 No '6009' in pointed-to File
1117 ISOSORBIDE DINITRATE 20MG TAB,ORAL,SA
1 529 No '529' in pointed-to File
1120 AMILORIDE 5MG/HCTZ 50MG TAB,ORAL
1 645 No '645' in pointed-to File
1121 NITROGLYCERIN 0.4MG(10MG/24H) PATCH,TOP
1 792 No '792' in pointed-to File
1122 FINASTERIDE 5MG TAB,ORAL
1 7306 No '7306' in pointed-to File
1125 PROMETHAZINE 25MG/ML INJ
1 445 No '445' in pointed-to File
1126 CEFACLOR 250MG CAP,ORAL
1 873 No '873' in pointed-to File
1129 DIGOXIN 0.05MG/ML SOLN,ORAL
1 715 No '715' in pointed-to File
1130 PROPRANOLOL HCL 1MG/ML INJ
1 5598 No '5598' in pointed-to File
1132 HYDROCHLOROTHIAZIDE 25MG TAB,ORAL
1 1394 No '1394' in pointed-to File
1136 TOBRAMYCIN 0.3% SOLN,OPHT
1 3440 No '3440' in pointed-to File
1137 TOBRAMYCIN 0.3% OINT,OPHT
1 1417 No '1417' in pointed-to File
1138 CAPTOPRIL 25MG TAB,ORAL
1 1629 No '1629' in pointed-to File
1144 CLONAZEPAM 0.5MG TAB,ORAL
1 1024 No '1024' in pointed-to File
1145 CLONAZEPAM 2MG TAB,ORAL
1 1025 No '1025' in pointed-to File
1146 PHENOBARBITAL 60MG TAB,ORAL
1 5991 No '5991' in pointed-to File
1147 CEFOTAXIME SODIUM 1GM/VIAL INJ
1 3008 No '3008' in pointed-to File
1150 BECLOMETHASONE DIPROP 50MCG INH,NASAL
1 6311 No '6311' in pointed-to File
1151 BROMOCRIPTINE MESYLATE 2.5MG TAB,ORAL
1 5880 No '5880' in pointed-to File
1152 ALPRAZOLAM 0.5MG TAB,ORAL
1 267 No '267' in pointed-to File
1154 HYDROGEN PEROXIDE 6% SOLN,TOP 1000ML
1 1322 No '1322' in pointed-to File
1156 TRETINOIN 0.05% CREAM,TOP
1 3397 No '3397' in pointed-to File
1161 CROTAMITON 10% CREAM,TOP
1 5038 No '5038' in pointed-to File
1162 CROTAMITON 10% LOTION,TOP
1 4882 No '4882' in pointed-to File
1163 SODIUM BICARBONATE 8.4% INJ
1 89 No '89' in pointed-to File
1167 HYDROCORTISONE ACETATE 1% CREAM,TOP
1 1511 No '1511' in pointed-to File
1168 HYDROCORTISONE ACETATE 1% OINT,TOP
1 2751 No '2751' in pointed-to File
1169 HYDROCORTISONE NA SUCC. 100MG/2ML INJ
1 215 No '215' in pointed-to File
1170 FAMOTIDINE 40MG TAB,ORAL
1 3210 No '3210' in pointed-to File
1171 VERAPAMIL HCL 240MG TAB,ORAL,SA
1 1080 No '1080' in pointed-to File
1171 VERAPAMIL HCL 240MG TAB,ORAL,SA
2 7195 No '7195' in pointed-to File
1172 ISOSORBIDE DINITRATE 40MG TAB,ORAL,SA
1 3241 No '3241' in pointed-to File
1173 IPRATROPIUM 20MCG/PUFF INHALER,ORAL
1 672 No '672' in pointed-to File
1174 AZATHIOPRINE 50MG TAB,ORAL
1 312 No '312' in pointed-to File
1175 AZTREONAM 1GM/VIAL INJ
1 1202 No '1202' in pointed-to File
1176 MICONAZOLE NITRATE 2% CREAM,VAG 20GM
1 4183 No '4183' in pointed-to File
1179 CIPROFLOXACIN HCL 500MG TAB,ORAL
1 1084 No '1084' in pointed-to File
1180 PHENYTOIN NA 50MG/ML INJ
1 84 No '84' in pointed-to File
1181 FLUOXETINE HCL 20MG CAP,ORAL
1 903 No '903' in pointed-to File
1182 ENALAPRIL MALEATE 20MG TAB,ORAL
1 661 No '661' in pointed-to File
1185 RANITIDINE HCL 25MG/ML INJ
1 3736 No '3736' in pointed-to File
1186 CARBAMAZEPINE 100MG/5ML SUSP (2% 250ML)
1 741 No '741' in pointed-to File
1188 FUROSEMIDE 10MG/ML SOLN,ORAL 60ML
1 1161 No '1161' in pointed-to File
1190 UREA 10% LOTION,TOP
1 1012 No '1012' in pointed-to File
1192 CILASTIN 500MG/IMIPENEM 500MG/VIAL INJ
1 651 No '651' in pointed-to File
1194 HEPARIN NA 1000UNIT/ML INJ 1ML
1 1155 No '1155' in pointed-to File
1195 RANITIDINE HCL 150MG TAB,ORAL
1 1647 No '1647' in pointed-to File
1196 DICLOFENAC SODIUM 50MG TAB,ORAL,EC
1 3539 No '3539' in pointed-to File
1198 CYCLOSPORINE 100MG/ML SOLN,ORAL
1 1143 No '1143' in pointed-to File
1199 HALOPERIDOL DECANOATE 100MG/ML INJ
1 4722 No '4722' in pointed-to File
1201 AMOXICILLIN 500/CLAVULANATE 125 TAB,ORAL
1 36 No '36' in pointed-to File
1202 CYCLOPENTOLATE HCL 1% SOLN,OPHT
1 1406 No '1406' in pointed-to File
1203 CALCIUM CARBONATE 500MG TAB,ORAL
1 5577 No '5577' in pointed-to File
1208 PENTOXIFYLLINE 400MG TAB,ORAL,SA
1 1651 No '1651' in pointed-to File
1211 PENICILLIN G BENZATHINE 1.2 MIL UNIT INJ
1 520 No '520' in pointed-to File
1212 AMOXICILLIN 250/CLAVULANATE 125 TAB,ORAL
1 34 No '34' in pointed-to File
1214 AMOXICILLIN/CLAVULANATE 250MG/5ML SUSP
1 1370 No '1370' in pointed-to File
1215 DIAZEPAM 10MG/2ML INJ
1 939 No '939' in pointed-to File
1216 GRISEOFULVIN 125MG/5ML SUSP,ORAL
1 1184 No '1184' in pointed-to File
1218 CEFTRIAXONE SODIUM 1GM/VIAL INJ
1 1034 No '1034' in pointed-to File
1219 ACYCLOVIR 250MG/VIAL INJ
1 733 No '733' in pointed-to File
1220 EPHEDRINE 30MG/ML INJ
1 881 No '881' in pointed-to File
1221 MEPERIDINE HCL 50MG/ML INJ
1 3154 No '3154' in pointed-to File
1222 MEPERIDINE HCL 100MG/ML INJ
1 1162 No '1162' in pointed-to File
1227 BETAXOLOL HCL 0.5% SOLN,OPHT
1 1405 No '1405' in pointed-to File
1228 GEMFIBROZIL 600MG TAB,ORAL
1 4564 No '4564' in pointed-to File
1229 ENALAPRIL MALEATE 5MG TAB,ORAL
1 1673 No '1673' in pointed-to File
1232 HALOPERIDOL DECANOATE 50MG/ML INJ
1 213 No '213' in pointed-to File
1233 ACETAZOLAMIDE 250MG TAB,ORAL
1 938 No '938' in pointed-to File
1234 AMIODARONE HCL 200MG TAB,ORAL
1 4764 No '4764' in pointed-to File
1235 OMEPRAZOLE 20MG CAP,ORAL,EC
1 4924 No '4924' in pointed-to File
1238 CALCIUM CHLORIDE 100MG/10ML (10%) INJ
1 5056 No '5056' in pointed-to File
1242 EPOETIN ALFA RECOMBINANT 2000U/ML INJ
1 6231 No '6231' in pointed-to File
1244 TERAZOSIN 5MG TAB,ORAL
1 6492 No '6492' in pointed-to File
1245 FOSINOPRIL SODIUM 10MG TAB,ORAL
1 7124 No '7124' in pointed-to File
1246 FENTANYL TRANSDERM 25MCG/HR PATCH,TOP
1 7109 No '7109' in pointed-to File
1247 CLOZAPINE 25MG TAB,ORAL
1 7111 No '7111' in pointed-to File
1248 CLOZAPINE 100MG TAB,ORAL
1 7110 No '7110' in pointed-to File
1250 FENTANYL TRANSDERM 50MCG/HR PATCH,TOP
1 7171 No '7171' in pointed-to File
STORE THESE ENTRY ID'S IN TEMPLATE: