Last change
on this file since 1036 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
305 bytes
|
Line | |
---|
1 | VAQPRE39 ;FO-OAKLAND/GMB - Pre-init ;09/16/96 9:44 AM
|
---|
2 | ;;1.5;PATIENT DATA EXCHANGE;**39**;NOV 17, 1993
|
---|
3 | ENTER ;
|
---|
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.