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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P324 675 printed Dec 13, 2024@02:07:11 Page 2
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
