VEPERENT ;DAOU/DLF;Add/Edit Pharmacy location
 ;;1.0; EHR - Electronic Health Record;****; 05/18/2005
 ;
 ;
 ;
START D DT^DICRW
 S DIC="^VEPER(19904.3,",DIC(0)="AEMQZ",DIC("A")="Select a Pharmacy: " D ^DIC
 Q