source: FOIAVistA/trunk/r/MEDICINE-MC/MCARAML.m@ 1274

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

initial load of FOIAVistA 6/30/08 version

File size: 887 bytes
Line 
1MCARAML ;WASH ISC/JKL-MUSE AUTO INSTRUMENT RETRANSMISSION LIST ;2/27/95 10:52
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 ;
5START ; Driver for retransmission list-run during patch install
6 ; Sends an alphabetized list of corrupted records and records
7 ; with transmission errors from error summary file
8 N MCCNT,MCDEF
9 S MCCNT=0
10 S ^TMP($J,0,"MC",0)=0,^TMP($J,1,"MC",0)=0
11 W !,"This process will compile a list of EKG records that"
12 W !,"are corrupted in DHCP."
13 W !!,"The records have originated from the Marquette MUSE,"
14 W !,"and are retransmissable to DHCP from there."
15 R !!,"Do you wish to continue ? N //",MCDEF:30 I '$T Q
16 I $E(MCDEF)'="Y" Q
17 W !!,"Each ""."" represents 100 records.",!!,"Compiling---"
18 ; checks for whole records
19 D ^MCARAMLA
20 D ^MCARAMLB
21 D ^MCARAMLC
22 D ^MCARAMLD
23 D ^MCARAMLE
24 D ^MCARAMLF
25 D ^MCARAMLG
26 W !!,MCCNT," records compiled."
27 D ^MCARAMLH
28 W !!,"...done."
29 Q
Note: See TracBrowser for help on using the repository browser.