source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P324.m@ 699

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

initial load of WorldVistAEHR

File size: 659 bytes
RevLine 
[613]1XU8P324 ;OOIFO/SO- REINDEX 'ATR' AND RETRANSMIT DATA;6:30 AM 26 Aug 2003
2 ;;8.0;KERNEL;**324**;Jul 10, 1995
3RENDX ;DELETE AND RE-INDEX THE 'ATR' CROSS REFERENCE
4 D MES^XPDUTL("Reindexing ""ATR"" cross reference...")
5 N DIK
6 S DIK="^VA(200,"
7 S DIK(1)="12.2^ATR"
8 D ENALL^DIK ;EXECUTE THE SET LOGIC
9 D MES^XPDUTL("Done reindexing ""ATR"" cross reference.")
10 ;
11RETRANS ;RETRANSMIT ALL OF THE OAA TRAINEES
12 I $G(XPDQUES("POS1"))="T" D MES^XPDUTL("Non-production account. No transmission of OAA data will take place.") K ^VA(200,"ATR") Q
13 D MES^XPDUTL("Begin transmission of OAA data...")
14 D OAA^XUOAAHL7
15 D MES^XPDUTL("Done with transmission of OAA data.")
16 Q
Note: See TracBrowser for help on using the repository browser.