source:
WorldVistAEHR/trunk/r/ZZOTHER/ZZTEST.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 329 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | ZZTEST ;Test rouitne to show HL7 extracts from VOE DOQIT ; 8/26/05 11:27am |
2 | ; | |
3 | Q | |
4 | TEST ; | |
5 | W !,"Building extract manually",!! | |
6 | S DUZ("AG")="E",DUZ=9,DUZ(0)="@",DUZ(2)=67 | |
7 | D AUTO^PXRMETX("VOE DOQ-IT CAD EXTRACTION") | |
8 | D AUTO^PXRMETX("VOE DOQ-IT DM EXTRACTION") | |
9 | D AUTO^PXRMETX("VOE DOQ-IT HF EXTRACTION") | |
10 | W !,"Extract completed" | |
11 | Q |
Note:
See TracBrowser
for help on using the repository browser.