Changeset 242 for ccr/trunk/p/CCRMEDS3.m

Timestamp:

Oct 27, 2008, 8:24:40 PM (16 years ago)

Author:

George Lilly

Message:

fixed nonVA meds

File:

• ccr/trunk/p/CCRMEDS3.m (modified) (2 diffs)

ccr/trunk/p/CCRMEDS3.m

@@ -58 +58 @@
  . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; INCREMENT TOTAL MEDS IN VAR ARRAY
  . N RXIEN S RXIEN=$P(FDAIEN,",") ; First piece of FDAIEN is the number of the med for this patient
- . W "RXIEN IS ",RXIEN,!
- . W "MAP= ",MAP,!
+ . I DEBUG W "RXIEN IS ",RXIEN,!
+ . I DEBUG W "MAP= ",MAP,!
  . S @MAP@("MEDOBJECTID")="MED_OUTSIDE"_MEDCOUNT ; MEDCOUNT FOR ID
  . S @MAP@("MEDISSUEDATETXT")="Documented Date"
@@ -116 +116 @@
  . . N QTYDATA M QTYDATA=^TMP($J,"QTY",MEDIEN)
  . . S @MAP@("MEDQUANTITYUNIT")=QTYDATA(14.5)
-   E  S @MAP@("MEDQUANTITYUNIT")=""
+ . E  S @MAP@("MEDQUANTITYUNIT")=""
  . ;
  . ; --- START OF DIRECTIONS ---