source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQPRE39.m@ 1800

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

initial load of WorldVistAEHR

File size: 305 bytes
RevLine 
[613]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.