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

check for no dose data present

This commit is contained in:
george 2008-11-17 19:48:14 +00:00
parent 941bc01837
commit f89fa6d680
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
p/CCRMEDS2.m
View File

@ -84,9 +84,13 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
. S @MAP@("MEDPRODUCTNAMECODEVERSION")="none" . S @MAP@("MEDPRODUCTNAMECODEVERSION")="none"
. S @MAP@("MEDBRANDNAMETEXT")="" . S @MAP@("MEDBRANDNAMETEXT")=""
. D DOSE^PSS50(MEDIEN,,,,,"DOSE") . D DOSE^PSS50(MEDIEN,,,,,"DOSE")
. N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN) . I $D(^TMP($J,"DOSE",MEDIEN)) D ; GPL ; CALL SUCCESSFUL
. S @MAP@("MEDSTRENGTHVALUE")=DOSEDATA(901) . . N DOSEDATA M DOSEDATA=^TMP($J,"DOSE",MEDIEN)
. S @MAP@("MEDSTRENGTHUNIT")=$P(DOSEDATA(902),U,2) . . S @MAP@("MEDSTRENGTHVALUE")=DOSEDATA(901)
. . S @MAP@("MEDSTRENGTHUNIT")=$P(DOSEDATA(902),U,2)
. E D ; GPL CALL UNSUCCESSUFL
. . S @MAP@("MEDSTRENGTHVALUE")="" ; NO DOSE INFORMATION AVAILABLE
. . S @MAP@("MEDSTRENGTHUNIT")="" ;
. ; Units, concentration, etc, come from another call . ; Units, concentration, etc, come from another call
. ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit . ; $$CPRS^PSNAPIS which returns dosage-form^va class^strengh^unit
. ; This call takes nodes 1 and 3 of ^PSDRUG(D0,"ND") as parameters . ; This call takes nodes 1 and 3 of ^PSDRUG(D0,"ND") as parameters