Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XU8P324

XU8P324.m

Go to the documentation of this file.
  1. XU8P324 ;OOIFO/SO- REINDEX 'ATR' AND RETRANSMIT DATA;6:30 AM 26 Aug 2003
  1. ;;8.0;KERNEL;**324**;Jul 10, 1995
  1. RENDX ;DELETE AND RE-INDEX THE 'ATR' CROSS REFERENCE
  1. D MES^XPDUTL("Reindexing ""ATR"" cross reference...")
  1. N DIK
  1. S DIK="^VA(200,"
  1. S DIK(1)="12.2^ATR"
  1. D ENALL^DIK ;EXECUTE THE SET LOGIC
  1. D MES^XPDUTL("Done reindexing ""ATR"" cross reference.")
  1. ;
  1. RETRANS ;RETRANSMIT ALL OF THE OAA TRAINEES
  1. I $G(XPDQUES("POS1"))="T" D MES^XPDUTL("Non-production account. No transmission of OAA data will take place.") K ^VA(200,"ATR") Q
  1. D MES^XPDUTL("Begin transmission of OAA data...")
  1. D OAA^XUOAAHL7
  1. D MES^XPDUTL("Done with transmission of OAA data.")
  1. Q