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

removed debugging writes and check for Merged Patients

This commit is contained in:
george 2008-09-05 19:26:09 +00:00
parent 0d92886464
commit eb10b46b39
3 changed files with 9134 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9130
p/CCR_1_0_3_T1_CACHE.KID Normal file
View File

File diff suppressed because it is too large Load Diff

2
p/GPLMEDS.m
View File

@ -28,7 +28,7 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
D ACTIVE^ORWPS(.MEDRSLT,DFN)
I '$D(MEDRSLT(1)) D ; NO MEDS FOR THIS PATIENT, EXIT
. W "ERROR RUNNINIG MEDICATIONS RPC",!
. I DEBUG W "MEDICATIONS RPC RETURNED NULL",!
. S @MEDOUTXML@(0)=0
. Q
; I DEBUG ZWR MEDRSLT

6
p/GPLRIMA.m
View File

@ -58,11 +58,11 @@ ANALYZE(BEGDFN,DFNCNT) ; RIM COHERANCE ANALYSIS ROUTINE
. ; COPY ALL THE VARIABLES TO THE RIM MAP AREA INDEXED BY PATIENT
. ;
. I $D(^TMP("GPLCCR",$J,"PROBVALS",1)) D ; PROBLEM VARS EXISTS
. . M @RIMBASE@("VARS",RIMDFN,"PROBLEMS")=^TMP("GPLCCR",$J,"PROBVALS")
. . M @RIMBASE@("VARS",RIMDFN,"PROBLEMS")=TMP("GPLCCR",$J,"PROBVALS")
. I $D(^TMP("GPLCCR",$J,"VITALS",1)) D ; VITALS VARS EXISTS
. . M @RIMBASE@("VARS",RIMDFN,"VITALS")=^TMP("GPLCCR",$J,"VITALS")
. . M @RIMBASE@("VARS",RIMDFN,"VITALS")=TMP("GPLCCR",$J,"VITALS")
. I $D(^TMP("GPLCCR",$J,"MEDICATIONS",1)) D ; MEDS VARS EXISTS
. . M @RIMBASE@("VARS",RIMDFN,"MEDS")=^TMP("GPLCCR",$J,"MEDICATIONS")
. . M @RIMBASE@("VARS",RIMDFN,"MEDS")=TMP("GPLCCR",$J,"MEDICATIONS")
. K ^TMP("GPLCCR",$J) ; KILL WORK AREA FOR CCR BUILDING
. ;
. ; EVALUATE THE VARIABLES AND CREATE AN ATTRIBUTE MAP