Changeset 242

Timestamp:

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

Author:

George Lilly

Message:

fixed nonVA meds

Location:

ccr/trunk/p

Files:

• CCRMEDS.m (modified) (1 diff)
• CCRMEDS3.m (modified) (2 diffs)

ccr/trunk/p/CCRMEDS.m

@@ -55 +55 @@
  . ; W MEDCNT,!
  . W "HAS OP PENDING MEDS",!
- IF 'TESTMEDS G THEND ; SKIP NON-VA MEDS FOR NOW
  N PENDINGXML,MEDPENDING
  S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY

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 ---