source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOBPOST.m@ 802

Last change on this file since 802 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 227 bytes
Line 
1PSOBPOST ;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.