30 lines
887 B
Mathematica
30 lines
887 B
Mathematica
MCARAML ;WASH ISC/JKL-MUSE AUTO INSTRUMENT RETRANSMISSION LIST ;2/27/95 10:52
|
|
;;2.3;Medicine;;09/13/1996
|
|
;
|
|
;
|
|
START ; Driver for retransmission list-run during patch install
|
|
; Sends an alphabetized list of corrupted records and records
|
|
; with transmission errors from error summary file
|
|
N MCCNT,MCDEF
|
|
S MCCNT=0
|
|
S ^TMP($J,0,"MC",0)=0,^TMP($J,1,"MC",0)=0
|
|
W !,"This process will compile a list of EKG records that"
|
|
W !,"are corrupted in DHCP."
|
|
W !!,"The records have originated from the Marquette MUSE,"
|
|
W !,"and are retransmissable to DHCP from there."
|
|
R !!,"Do you wish to continue ? N //",MCDEF:30 I '$T Q
|
|
I $E(MCDEF)'="Y" Q
|
|
W !!,"Each ""."" represents 100 records.",!!,"Compiling---"
|
|
; checks for whole records
|
|
D ^MCARAMLA
|
|
D ^MCARAMLB
|
|
D ^MCARAMLC
|
|
D ^MCARAMLD
|
|
D ^MCARAMLE
|
|
D ^MCARAMLF
|
|
D ^MCARAMLG
|
|
W !!,MCCNT," records compiled."
|
|
D ^MCARAMLH
|
|
W !!,"...done."
|
|
Q
|