Changeset 236 for ccr/trunk


Ignore:
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:
2 edited

Legend:

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

    r226 r236  
    5555 . ; W MEDCNT,!
    5656 . W "HAS OP PENDING MEDS",!
     57 IF '$D(TESTMEDS) G THEND ; SKIP NON-VA MEDS FOR NOW
    5758 N PENDINGXML,MEDPENDING
    5859 S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY
     
    6667 . ; W MEDCNT,!
    6768 . W "HAS NON-VA MEDS",!
    68  Q
     69THEND ;
     70 Q ; SKIPPING ALL THE REST OF THIS LOGIC.. IT IS NOT GOING TO BE NEEDED
     71 ; ONCE NON-VA AND IP MEDS WORK (CCRMEDS3 AND CCRMEDS4)
    6972 N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
    7073 D ACTIVE^ORWPS(.MEDRSLT,DFN)
  • ccr/trunk/p/GPLALER2.m

    r235 r236  
    5656 . ; WILL USE 418634005 FOR ALLERGIC REACTION TO A SUBSTANCE
    5757 . ; AND  282100009 FOR ADVERSE REACTION TO A SUBSTANCE
    58  . S @ALTVMAP@("ALERTCODESYSTEM")="SNOMED CT"
    59  . S @ALTVMAP@("ALERTCODESYSTEMVERSION")="2008"
     58 . I ALTCDE'="" D  ; IF THERE IS A CODE
     59 . . S @ALTVMAP@("ALERTCODESYSTEM")="SNOMED CT"
     60 . . S @ALTVMAP@("ALERTCODESYSTEMVERSION")="2008"
     61 . E  D  ; SET TO NULL
     62 . . S @ALTVMAP@("ALERTCODESYSTEM")=""
     63 . . S @ALTVMAP@("ALERTCODESYSTEMVERSION")=""
    6064 . S @ALTVMAP@("ALERTSTATUSTEXT")="" ; WHERE DO WE GET THIS?
    6165 . N ALTPROV S ALTPROV=$P(^GMR(120.8,ALTTMP,0),U,5) ; SOURCE PROVIDER IEN
Note: See TracChangeset for help on using the changeset viewer.