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

Removed Size from XML and all references in Med files -- I changed my mind and think now that it is a useless field.

This commit is contained in:
sam 2009-01-11 07:02:28 +00:00
parent 8b0d266f4e
commit 2b0a030651
6 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
p/CCRMEDS.m
View File

@ -116,7 +116,6 @@ USERPC ; ENTRY POINT FOR RPMS
. S @MEDVMAP@("MEDDETAILUNADORNED")=""
. S @MEDVMAP@("MEDCONCVALUE")=""
. S @MEDVMAP@("MEDCONCUNIT")=""
. S @MEDVMAP@("MEDSIZETEXT")=""
. S @MEDVMAP@("MEDDOSEINDICATOR")=""
. S @MEDVMAP@("MEDDELIVERYMETHOD")=""
. S @MEDVMAP@("MEDRATEVALUE")=""

1
p/CCRMEDS1.m
View File

@ -129,7 +129,6 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
. S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
. S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3)
. S @MAP@("MEDCONCUNIT")=$P(CONCDATA,U,4)
. S @MAP@("MEDSIZETEXT")=$P(NDFDATA(23),U,2)_" "_$P(NDFDATA(24),U,2)
. S @MAP@("MEDQUANTITYVALUE")=MED(7)
. ; Oddly, there is no easy place to find the dispense unit.
. ; It's not included in the original call, so we have to go to the drug file.

1
p/CCRMEDS2.m
View File

@ -144,7 +144,6 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
. . S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
. . S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3)
. . S @MAP@("MEDCONCUNIT")=$P(CONCDATA,U,4)
. . S @MAP@("MEDSIZETEXT")=$P(NDFDATA(23),U,2)_" "_$P(NDFDATA(24),U,2)
. . S @MAP@("MEDQUANTITYVALUE")=$$GET1^DIQ(52.41,RXIEN,12)
. . ; Oddly, there is no easy place to find the dispense unit.
. . ; It's not included in the original call, so we have to go to the drug file.

1
p/CCRMEDS3.m
View File

@ -137,7 +137,6 @@ EXTRACT(MINXML,DFN,OUTXML) ; Extract medications into provided xml template
. . S @MAP@("MEDFORMTEXT")=$P(CONCDATA,U,1)
. . S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3)
. . S @MAP@("MEDCONCUNIT")=$P(CONCDATA,U,4)
. . S @MAP@("MEDSIZETEXT")=$P(NDFDATA(23),U,2)_" "_$P(NDFDATA(24),U,2)
. . S @MAP@("MEDQUANTITYVALUE")="" ; not provided for in Non-VA meds.
. . ; Oddly, there is no easy place to find the dispense unit.
. . ; It's not included in the original call, so we have to go to the drug file.

1
p/CCRMEDS4.m
View File

@ -104,7 +104,6 @@ EXTRACT(MINXML,DFN,OUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEM
. S @MAP@("MEDFORMTEXT")=$S($L(MEDIEN):$P(CONCDATA,U,1),1:"")
. S @MAP@("MEDCONCVALUE")=$S($L(MEDIEN):$P(CONCDATA,U,3),1:"")
. S @MAP@("MEDCONCUNIT")=$S($L(MEDIEN):$P(CONCDATA,U,4),1:"")
. S @MAP@("MEDSIZETEXT")=$S($L(MEDIEN):$P(NDFDATA(23),U,2)_" "_$P(NDFDATA(24),U,2),1:"")
. S @MAP@("MEDQUANTITYVALUE")="" ; not provided for in Non-VA meds.
. ; Oddly, there is no easy place to find the dispense unit.
. ; It's not included in the original call, so we have to go to the drug file.

3
p/GPLCCR0.m
View File

@ -324,9 +324,6 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
;;<Unit>@@MEDCONCUNIT@@</Unit>
;;</Units>
;;</Concentration>
;;<Size>
;;<Text>@@MEDSIZETEXT@@</Text>
;;</Size>
;;</Product>
;;<Quantity>
;;<Value>@@MEDQUANTITYVALUE@@</Value>