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

fixing a meds bug

This commit is contained in:
george 2008-10-07 14:26:02 +00:00
parent b41654cf7b
commit e6c17fc3f7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/CCRMEDS.m
View File

@ -57,7 +57,7 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
M GPLMEDS=MEDRSLT
S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
I 'HASOP K @MEDTVMAP,@MEDTARYTMP
K @MEDTVMAP,@MEDTARYTMP
; FIRST GO THROUGH MEDRSLT ARRAY AND COUNT MEDS AND LINES IN MEDS
; ZA(0) IS TOTAL NUMBER OF MEDS ZA(ZI) IS LINES IN MED ZI
N ZA,ZI,ZJ,ZK,ZN S (ZI,ZJ,ZK,ZN)=0 ; ZI IS MED NUMBER, ZJ IS LINE IN MED

4
p/CCRMEDS2.m
View File

@ -180,10 +180,10 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
. ;
. ; S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105"
. S @MAP@("MEDPTINSTRUCTIONS")=$G(^PSRX(RXIEN,"PI",1,0)) ;GPL
. W @MAP@("MEDPTINSTRUCTIONS"),!
. ; W @MAP@("MEDPTINSTRUCTIONS"),!
. ; S @MAP@("MEDFULLFILLMENTINSTRUCTIONS","F")="52.41^9"
. S @MAP@("MEDFULLFILLMENTINSTRUCTIONS")=$G(^PSRX(RXIEN,"SIG1",1,0)) ;GPL
. W @MAP@("MEDFULLFILLMENTINSTRUCTIONS"),!
. ; W @MAP@("MEDFULLFILLMENTINSTRUCTIONS"),!
. S @MAP@("MEDRFNO")=$$GET1^DIQ(52.41,RXIEN,13)
. N RESULT S RESULT=$NA(^TMP("GPLCCR",$J,"MAPPED"))
. K @RESULT