Changeset 1409 for pharmacy-utils

Timestamp:

Apr 16, 2012, 1:40:04 PM (12 years ago)

Author:

Sam Habiel

Message:

updated file

File:

• pharmacy-utils/drug-file-cleanup/VWPSSXPD.m (modified) (1 diff)

pharmacy-utils/drug-file-cleanup/VWPSSXPD.m

@@ -1 @@
-VWPSSXPD ; VW/SMH - Update the Drug File and friends... ; Wed Apr 13 2012
-        ;;1.0;WorldVista Modifications;;;Build 4
-        ; (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, ^PS(50.7), AND ^PS(51.7)
-        ; On the Destination System:
-        ; 1. Call KILLDRUG to remove all Drug Data
-        ; 2. Restore a global containing a Drug File (^PSDRUG), Pharmacy Orderable 
-        ;    Item file (^PS(50.7)), and Drug Text (^PS(51.7)).
-        ; 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 follwing:
-        ;  1. ENV 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
-        ; 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:
-        ;       ENV -> Environment Check
-        ;       TRAN -> Pre-Transport Routine (to get data from original system)
-        ;       PRE -> Pre-Init for the Destination System
-        ;       POST -> Post-Init for the Destination 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:30
-        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
-        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)
-        M ^PS(50.7)=@XPDGREF@("VWPSSXPD",50.7)
-        M ^PS(51.7)=@XPDGREF@("VWPSSXPD",51.7)
-        ; 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 File (50)") D DRUG
-        D MES^XPDUTL("Killing Pharmacy Orderable Item (OI) File (50.7)") D PO
-        D MES^XPDUTL("Killing Drug Text File (51.7)") D DRUGTEXT
-        D MES^XPDUTL("Removing Pharmacy OIs from the Orderable Item file (101.43)") D O
-        D MES^XPDUTL("Syncing the Order Quick View file (101.44)") D CPRS
-        QUIT
-        ;
+VWPSSXPD ; VW/SMH - Update the Drug File and friends... ; Wed Apr 13 2012 ; 4/16/12 11:02am
+ ;;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 follwing:
+ ;  1. ENV 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
+ ; 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:
+ ;       ENV -> Environment Check (call the routine from the top)
+ ;       TRAN -> Pre-Transport Routine (to get data from original system)
+ ;       PRE -> Pre-Init for the Destination System
+ ;       POST -> Post-Init for the Destination 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 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
-        ;
+ ; 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
-        ;
-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
-        ;
+ 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
+ ;