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

fixed variable protocol in non-VA meds

This commit is contained in:
george 2010-01-31 00:30:58 +00:00
parent 779936bfda
commit f3778e3705
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
p/C0CMED3.m
View File

@ -230,13 +230,16 @@ EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT) ; Extract medications into provided xml temp
. N MEDINT2,INTXML2 S INTXML2="MEDINT2" ; VARIABLE AND NAME VARIABLE RESULT . N MEDINT2,INTXML2 S INTXML2="MEDINT2" ; VARIABLE AND NAME VARIABLE RESULT
. D QUERY^C0CXPATH(MINXML,"//Medications/Medication/PatientInstructions",INTXML1) . D QUERY^C0CXPATH(MINXML,"//Medications/Medication/PatientInstructions",INTXML1)
. D REPLACE^C0CXPATH(RESULT,"","//Medications/Medication/PatientInstructions") . D REPLACE^C0CXPATH(RESULT,"","//Medications/Medication/PatientInstructions")
. N MDI1 . ;N MDI1 ; removing the "I" which is not in the protocol gpl 1/2010
. S MDI1=$NA(@MAP@("I")) . ;S MDI1=$NA(@MAP@("I"))
. ; S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105" . ; S @MAP@("MEDPTINSTRUCTIONS","F")="52.41^105"
. I $D(MED(10,1)) D ; . I $D(MED(10,1)) D ;
. . S @MAP@("I","MEDPTINSTRUCTIONS")=$P(MED(10,1)," ",1) ; WP Field . . ;S @MAP@("I","MEDPTINSTRUCTIONS")=$P(MED(10,1)," ",1) ; WP Field
. E S @MAP@("I","MEDPTINSTRUCTIONS")="" . . S @MAP@("MEDPTINSTRUCTIONS")=$P(MED(10,1)," ",1) ; WP Field
. D MAP^C0CXPATH(INTXML1,MDI1,INTXML2) . E S @MAP@("MEDPTINSTRUCTIONS")=""
. ;E S @MAP@("I","MEDPTINSTRUCTIONS")=""
. ;D MAP^C0CXPATH(INTXML1,MDI1,INTXML2)
. D MAP^C0CXPATH(INTXML1,MAP,INTXML2) ; JUST MAP WORKS.. GPL
. D INSERT^C0CXPATH(RESULT,INTXML2,"//Medications/Medication") . D INSERT^C0CXPATH(RESULT,INTXML2,"//Medications/Medication")
. ; . ;
. ; FLAG HAS TO BE RESET OUTSIDE THE IF STATMENT. . ; FLAG HAS TO BE RESET OUTSIDE THE IF STATMENT.