- 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 Feb 18, 2025@23:33:37 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