source: WorldVistAEHR/trunk/r/PATIENT_REPRESENTATIVE-QAC/QACI0.m@ 1046

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

initial load of WorldVistAEHR

File size: 882 bytes
RevLine 
[613]1QACI0 ; OAKOIFO/TKW - DATA MIGRATION - PRE-MIGRATION ERROR CHECKING AND REPORT ;11/30/06 12:22
2 ;;2.0;Patient Representative;**19**;07/25/1995;Build 55
3EN ; Build report of errors found in both Reference Tables and ROCs.
4 ; Make sure list of valid sites has been downloaded from the EMC
5 W !!,"This option is meant to be run prior to migrating data from the old",!,"Patient Representative System in VistA to the new PATS system."
6 W !!,"The option reports data problems that would prevent the data from",!,"being migrated.",!
7 I '$D(^XTMP("QACMIGR","STDINSTITUTION")) D STAERR^QACI2 Q
8 Q:$$ASK'=1
9 W !
10 N QACI0 S QACI0=1
11 D EN0^QACI2
12 F TYPE="ROC","HL","USER","PT","CC","EMPINV","FSOS" D
13 . K ^XTMP("QACMIGR",TYPE,"U") Q
14 Q
15 ;
16 ;
17ASK() ; Ask user whether they're sure they want to run the option.
18 N DIR,X,Y
19 S DIR(0)="YO",DIR("A")="Are you sure",DIR("B")="YES"
20 D ^DIR
21 Q Y
22 ;
23 ;
Note: See TracBrowser for help on using the repository browser.