source:
WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOBPOST.m@
1800
| Last change on this file since 1800 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 227 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | PSOBPOST ;BIR/RTR - Patch PSO*6*136 post init routine |
| 2 | ;;6.0;OUTPATIENT PHARMACY;**136**;APRIL 1993 | |
| 3 | ; | |
| 4 | K ^PS(51,"B") | |
| 5 | K DIK S DIK="^PS(51,",DIK(1)=".01^B" D ENALL^DIK | |
| 6 | K DIK S DIK="^PS(51,",DIK(1)=".5^AE" D ENALL^DIK | |
| 7 | K DIK Q |
Note:
See TracBrowser
for help on using the repository browser.
