Last change
on this file since 808 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
887 bytes
|
Line | |
---|
1 | MCARAML ;WASH ISC/JKL-MUSE AUTO INSTRUMENT RETRANSMISSION LIST ;2/27/95 10:52
|
---|
2 | ;;2.3;Medicine;;09/13/1996
|
---|
3 | ;
|
---|
4 | ;
|
---|
5 | START ; 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.