Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSOBPOST

PSOBPOST.m

Go to the documentation of this file.
PSOBPOST ;BIR/RTR - Patch PSO*6*136 post init routine
 ;;6.0;OUTPATIENT PHARMACY;**136**;APRIL 1993
 ;
 K ^PS(51,"B")
 K DIK S DIK="^PS(51,",DIK(1)=".01^B" D ENALL^DIK
 K DIK S DIK="^PS(51,",DIK(1)=".5^AE" D ENALL^DIK
 K DIK Q