- Timestamp:
- Jan 11, 2009, 2:02:28 AM (16 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/CCRMEDS.m
r313 r321 117 117 . S @MEDVMAP@("MEDCONCVALUE")="" 118 118 . S @MEDVMAP@("MEDCONCUNIT")="" 119 . S @MEDVMAP@("MEDSIZETEXT")=""120 119 . S @MEDVMAP@("MEDDOSEINDICATOR")="" 121 120 . S @MEDVMAP@("MEDDELIVERYMETHOD")="" -
ccr/trunk/p/CCRMEDS1.m
r319 r321 130 130 . S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3) 131 131 . S @MAP@("MEDCONCUNIT")=$P(CONCDATA,U,4) 132 . S @MAP@("MEDSIZETEXT")=$P(NDFDATA(23),U,2)_" "_$P(NDFDATA(24),U,2)133 132 . S @MAP@("MEDQUANTITYVALUE")=MED(7) 134 133 . ; Oddly, there is no easy place to find the dispense unit. -
ccr/trunk/p/CCRMEDS2.m
r319 r321 145 145 . . S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3) 146 146 . . S @MAP@("MEDCONCUNIT")=$P(CONCDATA,U,4) 147 . . S @MAP@("MEDSIZETEXT")=$P(NDFDATA(23),U,2)_" "_$P(NDFDATA(24),U,2)148 147 . . S @MAP@("MEDQUANTITYVALUE")=$$GET1^DIQ(52.41,RXIEN,12) 149 148 . . ; Oddly, there is no easy place to find the dispense unit. -
ccr/trunk/p/CCRMEDS3.m
r319 r321 138 138 . . S @MAP@("MEDCONCVALUE")=$P(CONCDATA,U,3) 139 139 . . S @MAP@("MEDCONCUNIT")=$P(CONCDATA,U,4) 140 . . S @MAP@("MEDSIZETEXT")=$P(NDFDATA(23),U,2)_" "_$P(NDFDATA(24),U,2)141 140 . . S @MAP@("MEDQUANTITYVALUE")="" ; not provided for in Non-VA meds. 142 141 . . ; Oddly, there is no easy place to find the dispense unit. -
ccr/trunk/p/CCRMEDS4.m
r227 r321 105 105 . S @MAP@("MEDCONCVALUE")=$S($L(MEDIEN):$P(CONCDATA,U,3),1:"") 106 106 . S @MAP@("MEDCONCUNIT")=$S($L(MEDIEN):$P(CONCDATA,U,4),1:"") 107 . S @MAP@("MEDSIZETEXT")=$S($L(MEDIEN):$P(NDFDATA(23),U,2)_" "_$P(NDFDATA(24),U,2),1:"")108 107 . S @MAP@("MEDQUANTITYVALUE")="" ; not provided for in Non-VA meds. 109 108 . ; Oddly, there is no easy place to find the dispense unit. -
ccr/trunk/p/GPLCCR0.m
r278 r321 325 325 ;;</Units> 326 326 ;;</Concentration> 327 ;;<Size>328 ;;<Text>@@MEDSIZETEXT@@</Text>329 ;;</Size>330 327 ;;</Product> 331 328 ;;<Quantity>
Note:
See TracChangeset
for help on using the changeset viewer.