source:
WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOBPOST.m@
780
Last change on this file since 780 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.