Changeset 236 for ccr/trunk/p/CCRMEDS.m

Timestamp:

Oct 27, 2008, 12:08:40 PM (16 years ago)

Author:

George Lilly

Message:

fixing Alerts and skipping non-VA meds unless flag TESTMEDS is set

File:

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

ccr/trunk/p/CCRMEDS.m

@@ -55 +55 @@
  . ; W MEDCNT,!
  . W "HAS OP PENDING MEDS",!
+ IF '$D(TESTMEDS) G THEND ; SKIP NON-VA MEDS FOR NOW
  N PENDINGXML,MEDPENDING
  S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
@@ -66 +67 @@
  . ; W MEDCNT,!
  . W "HAS NON-VA MEDS",!
- Q
+THEND ;
+ Q ; SKIPPING ALL THE REST OF THIS LOGIC.. IT IS NOT GOING TO BE NEEDED
+ ; ONCE NON-VA AND IP MEDS WORK (CCRMEDS3 AND CCRMEDS4)
  N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
  D ACTIVE^ORWPS(.MEDRSLT,DFN)