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

use DUZ("AG")="I" to test for RPMS

This commit is contained in:
george 2009-01-19 19:42:52 +00:00
parent 9b4776deba
commit 528c03f6da
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/CCRMEDS.m
View File

@ -37,7 +37,7 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
S @MEDTVMAP@(0)=0 ; INITIALIZE NUMBER OF MEDS PROCESSED
S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
K @MEDTARYTMP ; KILL XML ARRAY
I $D(^TMP("GPLCCR","RPMS")) G USERPC ; FOR RPMS, USE THE RPC FOR MEDS
I $G(DUZ("AG"))="I" G USERPC ; FOR RPMS, USE THE RPC FOR MEDS
D EXTRACT^CCRMEDS1(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
I @MEDOUTXML@(0)>0 D ; CCRMEDS FOUND ACTIVE OP MEDS
. S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML

6
p/CCRUNIT.m
View File

@ -3,8 +3,8 @@ CCRUNIT ; A routine that tests some crap
Q
;
MEDS
N DEBUG S DEBUG=0
N DFN S DFN=1
N DEBUG S DEBUG=1
N DFN S DFN=5685
K ^TMP($J)
W "Loading CCR Template into T using LOAD^GPLCCR0($NA(^TMP($J,""CCR"")))",!!
N T S T=$NA(^TMP($J,"CCR")) D LOAD^GPLCCR0(T)
@ -16,5 +16,5 @@ MEDS
W "Executing EXTRACT^CCRMEDS(MINXML,DFN,OUTXML)",!
W "OUTXML will be ^TMP($J,""OUT"")",!
N OUTXML S OUTXML=$NA(^TMP($J,"OUT"))
D EXTRACT^CCRMEDS($NA(MINXML),DFN,OUTXML)
D EXTRACT^CCRMEDS6($NA(MINXML),DFN,OUTXML)
Q