Changeset 242


Ignore:
Timestamp:
Oct 27, 2008, 8:24:40 PM (16 years ago)
Author:
George Lilly
Message:

fixed nonVA meds

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRMEDS.m

    r237 r242  
    5555 . ; W MEDCNT,!
    5656 . W "HAS OP PENDING MEDS",!
    57  IF 'TESTMEDS G THEND ; SKIP NON-VA MEDS FOR NOW
    5857 N PENDINGXML,MEDPENDING
    5958 S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
  • ccr/trunk/p/CCRMEDS3.m

    r241 r242  
    5858 . S @MEDMAP@(0)=@MEDMAP@(0)+1 ; INCREMENT TOTAL MEDS IN VAR ARRAY
    5959 . N RXIEN S RXIEN=$P(FDAIEN,",") ; First piece of FDAIEN is the number of the med for this patient
    60  . W "RXIEN IS ",RXIEN,!
    61  . W "MAP= ",MAP,!
     60 . I DEBUG W "RXIEN IS ",RXIEN,!
     61 . I DEBUG W "MAP= ",MAP,!
    6262 . S @MAP@("MEDOBJECTID")="MED_OUTSIDE"_MEDCOUNT ; MEDCOUNT FOR ID
    6363 . S @MAP@("MEDISSUEDATETXT")="Documented Date"
     
    116116 . . N QTYDATA M QTYDATA=^TMP($J,"QTY",MEDIEN)
    117117 . . S @MAP@("MEDQUANTITYUNIT")=QTYDATA(14.5)
    118    E  S @MAP@("MEDQUANTITYUNIT")=""
     118 . E  S @MAP@("MEDQUANTITYUNIT")=""
    119119 . ;
    120120 . ; --- START OF DIRECTIONS ---
Note: See TracChangeset for help on using the changeset viewer.