iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

updated alert coding analysis

This commit is contained in:
george 2008-11-19 17:01:28 +00:00
parent d8b48f2e5d
commit 879c00d44a
1 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
p/KBAICSNA.m
View File

@ -42,22 +42,22 @@ ANALYZE(BEGIEN,IENCNT) ; SNOMED RETRIEVAL ANALYSIS ROUTINE
. N SNORTN,TTERM ; RETURN ARRAY
. 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
; D PARY^GPLXPATH(@SNOBASE@("ATTRTBL"))
@ -182,10 +182,11 @@ REUSE ; GET SAVED VALUES FROM ^TMP("GPLSAV") AND PUT THEM IN A DATABASE
D AINIT
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
. S SNOI=$O(@SAVBASE@(SNOI))
@ -196,14 +197,16 @@ REUSE ; GET SAVED VALUES FROM ^TMP("GPLSAV") AND PUT THEM IN A DATABASE
. S SNOSNO=$P(SNOJ,"^",4) ; SNOMED CODE
. 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,!
. W SNOJ,!
S OARY=$NA(@CSVARY@(1)) ; SETUP FOR OUTPUT ROUTINE
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,!
Q