Changeset 288 for ccr

Timestamp:

Nov 19, 2008, 12:01:28 PM (16 years ago)

Author:

George Lilly

Message:

updated alert coding analysis

File:

• ccr/trunk/p/KBAICSNA.m (modified) (4 diffs)

ccr/trunk/p/KBAICSNA.m

@@ -43 +43 @@
     . S TTERM=$P(@GMRBASE@(SNOIEN,0),"^",1)_" ALLERGY"
     . D TEXTRPC(.SNORTN,TTERM)
-    . I '$D(SNORTN) Q  ;
-    . S TVUID=$$GET1^DIQ(120.82,SNOIEN,"VUID")
-    . W "VUID:",VUID,!
-    . 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
-    . ;
-    . S RATTR=$$SETATTR(SNOIEN) ; SET THE ATTRIBUTE STRING BASED ON THE VARS
-    . S @SNOBASE@("ATTR",SNOIEN)=RATTR ; SAVE THE ATRIBUTES FOR THIS DRUG
-    . ;
-    . N CATNAME,CATTBL
-    . S CATNAME=""
-    . D CPUSH(.CATNAME,SNOBASE,"SNOTBL",SNOIEN,RATTR) ; ADD TO CATEGORY
-    . ; W "CATEGORY NAME: ",CATNAME,!
-    . ;
+    . I $D(SNORTN) D  ;
+    . . S TVUID=$$GET1^DIQ(120.82,SNOIEN,"VUID")
+    . . W "VUID:",TVUID,!
+    . . K @SNOBASE@("VARS",SNOIEN) ; CLEAR OUT OLD VARS
+    . . I $P(TTMP,"^",1)=1 S @SNOBASE@("VARS",SNOIEN)=TTERM_"^"_TTMP_"^"_SNORTN(0)_"^"_TVUID_"^"_SNORTN("F")
+    . . ;
+    . . ; EVALUATE THE VARIABLES AND CREATE AN ATTRIBUTE MAP
+    . . ;
+    . . S RATTR=$$SETATTR(SNOIEN) ; SET THE ATTRIBUTE STRING BASED ON THE VARS
+    . . S @SNOBASE@("ATTR",SNOIEN)=RATTR ; SAVE THE ATRIBUTES FOR THIS DRUG
+    . . ;
+    . . N CATNAME,CATTBL
+    . . S CATNAME=""
+    . . D CPUSH(.CATNAME,SNOBASE,"SNOTBL",SNOIEN,RATTR) ; ADD TO CATEGORY
+    . . ; W "CATEGORY NAME: ",CATNAME,!
+    . . ;
     . S SNOIEN=$O(@GMRBASE@(SNOIEN)) ; NEXT RECORD
     . S @SNOBASE@("RESUME")=SNOIEN ; WHERE WE ARE LEAVING OFF THIS RUN
@@ -183 +183 @@
  N SNOI,SNOJ,SNOK,SNOSNO,SNOSEC,SNOIEN,SNOOLD,SNOSRCH
  D DO^KBAICX1 ; INITIALIZE GPLSAV VARIABLES
- S SAVBASE=$NA(^TMP("GPLSAV","VARS"))
+ ;S SAVBASE=$NA(^TMP("GPLSAV","VARS"))
+ S SAVBASE=$NA(@SNOBASE@("VARS"))
  S CSVARY=$NA(^TMP("GPLSNO","CSV"))
  K @CSVARY
- D PUSH^GPLXPATH(CSVARY,"OLDCODE|GMRText|MediationCode|MediationText") ; header for CSV file
+ D PUSH^GPLXPATH(CSVARY,"VUID|VUIDText|MediationCode|MediationText") ; header for CSV file
  S SNOI=""
  F  D  Q:$O(@SAVBASE@(SNOI))="" ;THE WHOLE LIST
@@ -197 +198 @@
  . S SNOSEC=$P(SNOJ,"^",5) ; SECTION OF SNOMED FOR THIS CODE
  . S SNOOLD=$P(SNOJ,"^",7) ; OLD NUMBER FOR THIS CODE
- . D PUSH^GPLXPATH(CSVARY,SNOOLD_"|"_$P(SNOSRCH," ALLERGY",1)_"|"_SNOSNO_"|"_SNOSRCH_"("_SNOSEC_")")
+ . S SNOVUID=$P(SNOJ,"^",9) ; VUID FOR THIS RECORD
+ . S SNOTXT=$P(SNOJ,"^",10) ; NOMED TEXT FOR CODE
+ . D PUSH^GPLXPATH(CSVARY,SNOVUID_"|"_$P(SNOSRCH," ALLERGY",1)_"|"_SNOSNO_"|"_SNOTXT)
  . W "SEARCH:",SNOSRCH," IEN:",SNOIEN," CODE:",SNOSNO," SEC:",SNOSEC," OLD:",SNOOLD,!
  . W SNOK,!
@@ -204 +207 @@
  D PARY^GPLXPATH(CSVARY)
  S OFILE="GMR_ALLERGY_MAPPING_TABLE.csv"
- S ODIR="/home/glilly/"
+ S ODIR="/home/vademo2/"
  S ZY=$$OUTPUT^GPLXPATH(OARY,OFILE,ODIR)
  I ZY W "WROTE ",OFILE," to ",ODIR,!