|
Last change
on this file since 931 was 628, checked in by George Lilly, 16 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.
