Changeset 222 for ccr/trunk/p/GPLSNOA.m

Timestamp:

Oct 21, 2008, 10:06:59 AM (16 years ago)

Author:

George Lilly

Message:

Alert SNOMED research routines

File:

• ccr/trunk/p/GPLSNOA.m (modified) (3 diffs)

ccr/trunk/p/GPLSNOA.m

@@ -40 +40 @@
     . ;D CCRRPC^GPLCCR(.CCRGLO,SNOIEN,"CCR","","","") ;PROCESS THE CCR
     . W SNOIEN,@GMRBASE@(SNOIEN,0),!
-    . N SNORTN ; RETURN ARRAY
-    . D TEXTRPC(.SNORTN,$P(@GMRBASE@(SNOIEN,0),"^",1))
-    . W SNORTN(1),!
+    . N SNORTN,TTERM ; RETURN ARRAY
+    . S TTERM=$P(@GMRBASE@(SNOIEN,0),"^",1)_" ALLERGY"
+    . D TEXTRPC(.SNORTN,TTERM)
+    . I $D(SNORTN) ZWR SNORTN
     . K @SNOBASE@("VARS",SNOIEN) ; CLEAR OUT OLD VARS
+    . I $P(TTMP,"^",1)=1 S @SNOBASE@("VARS",SNOIEN)=TTERM_"^"_TTMP_"^"_SNORTN(0)
     . ;
     . ; EVALUATE THE VARIABLES AND CREATE AN ATTRIBUTE MAP
@@ -62 +64 @@
 TEXTRPC(ORTN,ITEXT) ; CALL THE LEXICON WITH ITEXT AND RETURN RESULTS IN ORTN
  ;
+ ;N TTMP
  W ITEXT,!
- W $$TEXT^LEXTRAN(ITEXT,"","","SCT",.ORTN)
+ S TTMP=$$TEXT^LEXTRAN(ITEXT,"","","SCT","ORTN")
  Q
  ;
@@ -98 +101 @@
     S SBASE=$NA(@SNOBASE@("VARS",SDFN))
     D APOST("SATTR","SNOTBL","DONE")
+    I $P(TTMP,"^",1)=1 D APOST("SATTR","SNOTBL","CODE")
+    I $P(TTMP,"^",1)=-1 D APOST("SATTR","SNOTBL","NOCODE")
     Q SATTR  ; GPL
     I $D(@SBASE@("PROBLEMS",1)) D  ;