Changeset 1325 for ccr/branches/ohum/p/C0CMED6.m

Timestamp:

Dec 31, 2011, 12:08:05 AM (12 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

• ccr/branches/ohum/p/C0CMED6.m (modified) (3 diffs)

ccr/branches/ohum/p/C0CMED6.m

@@ -1 +1 @@
 C0CMED6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09
- ;;1.0;C0C;;May 19, 2009;
+ ;;1.0;C0C;;May 19, 2009;Build 39
  ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
  ; General Public License See attached copy of the License.
@@ -165 +165 @@
  . ; we want the components.
  . ; It's in multiple 113 in the Prescription File (52)
- . ; #.01 DOSAGE ORDERED [1F]                   "20"
- . ; #1 DISPENSE UNITS PER DOSE [2N]    "1"
- . ; #2 UNITS [3P:50.607]                               "MG"
- . ; #3 NOUN [4F]                                               "TABLET"
- . ; #4 DURATION [5F]                                   "10D"
- . ; #5 CONJUNCTION [6S]                                "AND"
- . ; #6 ROUTE [7P:51.2]                                 "ORAL"
- . ; #7 SCHEDULE [8F]                                   "BID"
- . ; #8 VERB [9F]                                               "TAKE"
+ . ; #.01 DOSAGE ORDERED [1F]    "20"
+ . ; #1 DISPENSE UNITS PER DOSE [2N]  "1"
+ . ; #2 UNITS [3P:50.607]     "MG"
+ . ; #3 NOUN [4F]      "TABLET"
+ . ; #4 DURATION [5F]      "10D"
+ . ; #5 CONJUNCTION [6S]     "AND"
+ . ; #6 ROUTE [7P:51.2]     "ORAL"
+ . ; #7 SCHEDULE [8F]      "BID"
+ . ; #8 VERB [9F]       "TAKE"
  . ;
  . ; Will use GETS^DIQ to get fields.
@@ -306 +306 @@
  Q
  ;
-GETRXN(NDC)     ; Extrinsic Function; PUBLIC; NDC to RxNorm
+GETRXN(NDC) ; Extrinsic Function; PUBLIC; NDC to RxNorm
  ;; Get RxNorm Concept Number for a Given NDC
  ;