Changeset 1400
- Timestamp:
- Apr 12, 2012, 7:42:10 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
pharmacy-utils/drug-file-cleanup/VWPSSXPD.m
r1399 r1400 1 VWPSSXPD 1 VWPSSXPD ; VW/SMH - Update the Drug File and friends... ; Wed Apr 12 2012 2 2 ;;WorldVista Modifications;1.0;;;Build 3 3 3 ; (C) Sam Habiel … … 5 5 ; 6 6 ; This routine contains utilities to remove a drug file and install a new drug 7 ; file in VISTA. 8 ; Workflow: 7 ; file in VISTA originating in another system. As of Build 3, you can use KIDS 8 ; to transport the file. 9 ; 10 ; Workflow (Manual, without using KIDS) 11 ; On the Origin System: 12 ; - Create a Global Output containing ^PSDRUG and ^PS(50.6) 13 ; On the Destination System: 9 14 ; 1. Call KILLDRUG to remove all Drug Data 10 15 ; 2. Restore a global containing a Drug File (^PSDRUG) and Pharmacy Orderable 11 ; Item file (^PS(50.6)) . Can use a KIDS global transport.16 ; Item file (^PS(50.6)) created on the origin system. 12 17 ; 3. Call RESTOCK to sync CPRS files back with drug files. 18 ; 19 ; Workflow (using KIDS): 20 ; On the Origin System: 21 ; - Create a KIDS build that calls the follwing: 22 ; 1. ENV is the Environment Check for the Build 23 ; 2. TRAN is the Pre-Transport Routine for your originating system drug data 24 ; 3. PRE is the Pre-Init for the Destination System 25 ; 4. POST is the Post-Init for the Destination System 26 ; - Generate the KIDS Build 27 ; On the Destination System: 28 ; - Install the KIDS Build 29 ; 30 ; --- ()()() --- 13 31 ; 14 32 ; PEPs: KILLDRUG to remove all Drugs … … 21 39 ; POST -> Post-Init for the Destination System 22 40 ; 41 ; KIDS EPs call PEPs to do their work. 42 ; 23 43 ; Environment Check falls through from the top 24 ;25 ; As of Build 3, this routine supports transporting a drug file using26 ; -> plain jane KIDS builds rather than a manual workflow outlined above.27 ;28 ; You do it by creating a KIDS build that calls the follwing:29 ; - ENV is the Environment Check for the Build30 ; - TRAN is the Pre-Transport Routine for your originating system drug data31 ; - PRE is the Pre-Init for the Destination System32 ; - POST is the Post-Init for the Destination System33 44 ; 34 45 ; -- START KIDS HOOKS -- … … 85 96 ; Files 86 97 S PSOIEN=0 F S PSOIEN=$O(^PS(50.7,PSOIEN)) Q:'PSOIEN D 87 . D MES^XPDUTL(" Updating Pharamcy Orderable Item "_PSOIEN)98 . D MES^XPDUTL("Syncing Pharamcy Orderable Item "_PSOIEN) 88 99 . D EN^PSSPOIDT(PSOIEN),EN2^PSSHL1(PSOIEN,"MUP") 89 100 D CPRS ; Update Orderable Item View files
Note:
See TracChangeset
for help on using the changeset viewer.