source: FOIAVistA/tag/r/PATIENT_DATA_EXCHANGE-VAQ/VAQPRE39.m@ 628

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

initial load of FOIAVistA 6/30/08 version

File size: 305 bytes
Line 
1VAQPRE39 ;FO-OAKLAND/GMB - Pre-init ;09/16/96 9:44 AM
2 ;;1.5;PATIENT DATA EXCHANGE;**39**;NOV 17, 1993
3ENTER ;
4 D DELIX^DDMOD(394.61,.01,2)
5 I $D(^DD(394.61,.01,1,2)) K ^DD(394.61,.01,1,2),^DD(394.86,10,5)
6 D DELIX^DDMOD(394.62,.01,2)
7 I $D(^DD(394.62,.01,1,2)) K ^DD(394.62,.01,1,2),^DD(394.86,20,5)
8 Q
Note: See TracBrowser for help on using the repository browser.