source:
WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOBPOST.m@
1078
Last change on this file since 1078 was 613, checked in by , 15 years ago | |
---|---|
File size: 227 bytes |
Line | |
---|---|
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.