VAQPRE39 ;FO-OAKLAND/GMB - Pre-init ;09/16/96  9:44 AM
 ;;1.5;PATIENT DATA EXCHANGE;**39**;NOV 17, 1993
ENTER ;
 D DELIX^DDMOD(394.61,.01,2)
 I $D(^DD(394.61,.01,1,2)) K ^DD(394.61,.01,1,2),^DD(394.86,10,5)
 D DELIX^DDMOD(394.62,.01,2)
 I $D(^DD(394.62,.01,1,2)) K ^DD(394.62,.01,1,2),^DD(394.86,20,5)
 Q