source: WorldVistAEHR/trunk/r/ZZOTHER/ZZTEST.m@ 862

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

initial load of WorldVistAEHR

File size: 329 bytes
RevLine 
[613]1ZZTEST ;Test rouitne to show HL7 extracts from VOE DOQIT ; 8/26/05 11:27am
2 ;
3 Q
4TEST ;
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.