Changeset 237


Ignore:
Timestamp:
Oct 27, 2008, 12:11:33 PM (16 years ago)
Author:
George Lilly
Message:

check for TESTMEDS flag in CCRMEDS

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/CCRMEDS.m

    r236 r237  
    5555 . ; W MEDCNT,!
    5656 . W "HAS OP PENDING MEDS",!
    57  IF '$D(TESTMEDS) G THEND ; SKIP NON-VA MEDS FOR NOW
     57 IF 'TESTMEDS G THEND ; SKIP NON-VA MEDS FOR NOW
    5858 N PENDINGXML,MEDPENDING
    5959 S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
Note: See TracChangeset for help on using the changeset viewer.