XU8P324.m

XU8P324 ;OOIFO/SO- REINDEX 'ATR' AND RETRANSMIT DATA;6:30 AM  26 Aug 2003

 ;;8.0;KERNEL;**324**;Jul 10, 1995

RENDX ;DELETE AND RE-INDEX THE 'ATR' CROSS REFERENCE

 D MES^XPDUTL("Reindexing ""ATR"" cross reference...")

 N DIK

 S DIK="^VA(200,"

 S DIK(1)="12.2^ATR"

 D ENALL^DIK ;EXECUTE THE SET LOGIC

 D MES^XPDUTL("Done reindexing ""ATR"" cross reference.")

 ;

RETRANS ;RETRANSMIT ALL OF THE OAA TRAINEES

 I $G(XPDQUES("POS1"))="T" D MES^XPDUTL("Non-production account.  No transmission of OAA data will take place.") K ^VA(200,"ATR") Q

 D MES^XPDUTL("Begin transmission of OAA data...")

 D OAA^XUOAAHL7

 D MES^XPDUTL("Done with transmission of OAA data.")

 Q

XU8P324   ;OOIFO/SO- REINDEX 'ATR' AND RETRANSMIT DATA;6:30 AM  26 Aug 2003

 +1       ;;8.0;KERNEL;**324**;Jul 10, 1995

RENDX     ;DELETE AND RE-INDEX THE 'ATR' CROSS REFERENCE

 +1        DO MES^XPDUTL("Reindexing ""ATR"" cross reference...")

 +2        NEW DIK

 +3        SET DIK="^VA(200,"

 +4        SET DIK(1)="12.2^ATR"

 +5       ;EXECUTE THE SET LOGIC

           DO ENALL^DIK

 +6        DO MES^XPDUTL("Done reindexing ""ATR"" cross reference.")

 +7       ;

RETRANS   ;RETRANSMIT ALL OF THE OAA TRAINEES

 +1        IF $GET(XPDQUES("POS1"))="T"

               DO MES^XPDUTL("Non-production account.  No transmission of OAA data will take place.")

               KILL ^VA(200,"ATR")

               QUIT 

 +2        DO MES^XPDUTL("Begin transmission of OAA data...")

 +3        DO OAA^XUOAAHL7

 +4        DO MES^XPDUTL("Done with transmission of OAA data.")

 +5        QUIT