Changeset 236
- Timestamp:
- Oct 27, 2008, 12:08:40 PM (16 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS.m
r226 r236 55 55 . ; W MEDCNT,! 56 56 . W "HAS OP PENDING MEDS",! 57 IF '$D(TESTMEDS) G THEND ; SKIP NON-VA MEDS FOR NOW 57 58 N PENDINGXML,MEDPENDING 58 59 S PENDINGXML="MEDPENDING" ;NAME FOR ARRAY … … 66 67 . ; W MEDCNT,! 67 68 . W "HAS NON-VA MEDS",! 68 Q 69 THEND ; 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) 69 72 N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF 70 73 D ACTIVE^ORWPS(.MEDRSLT,DFN) -
ccr/trunk/p/GPLALER2.m
r235 r236 56 56 . ; WILL USE 418634005 FOR ALLERGIC REACTION TO A SUBSTANCE 57 57 . ; 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")="" 60 64 . S @ALTVMAP@("ALERTSTATUSTEXT")="" ; WHERE DO WE GET THIS? 61 65 . 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.