Last change
on this file since 623 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
305 bytes
|
Rev | Line | |
---|
[613] | 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.