Changeset 236 for ccr

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

Location:

ccr/trunk/p

Files:

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

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)

ccr/trunk/p/GPLALER2.m

@@ -56 +56 @@
  . ; WILL USE 418634005 FOR ALLERGIC REACTION TO A SUBSTANCE
  . ; AND  282100009 FOR ADVERSE REACTION TO A SUBSTANCE
- . S @ALTVMAP@("ALERTCODESYSTEM")="SNOMED CT"
- . S @ALTVMAP@("ALERTCODESYSTEMVERSION")="2008"
+ . I ALTCDE'="" D  ; IF THERE IS A CODE
+ . . S @ALTVMAP@("ALERTCODESYSTEM")="SNOMED CT"
+ . . S @ALTVMAP@("ALERTCODESYSTEMVERSION")="2008"
+ . E  D  ; SET TO NULL
+ . . S @ALTVMAP@("ALERTCODESYSTEM")=""
+ . . S @ALTVMAP@("ALERTCODESYSTEMVERSION")=""
  . S @ALTVMAP@("ALERTSTATUSTEXT")="" ; WHERE DO WE GET THIS?
  . N ALTPROV S ALTPROV=$P(^GMR(120.8,ALTTMP,0),U,5) ; SOURCE PROVIDER IEN