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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCARAML 916 printed Dec 13, 2024@02:12:08 Page 2
MCARAML ;WASH ISC/JKL-MUSE AUTO INSTRUMENT RETRANSMISSION LIST ;2/27/95 10:52
+1 ;;2.3;Medicine;;09/13/1996
+2 ;
+3 ;
START ; Driver for retransmission list-run during patch install
+1 ; Sends an alphabetized list of corrupted records and records
+2 ; with transmission errors from error summary file
+3 NEW MCCNT,MCDEF
+4 SET MCCNT=0
+5 SET ^TMP($JOB,0,"MC",0)=0
SET ^TMP($JOB,1,"MC",0)=0
+6 WRITE !,"This process will compile a list of EKG records that"
+7 WRITE !,"are corrupted in DHCP."
+8 WRITE !!,"The records have originated from the Marquette MUSE,"
+9 WRITE !,"and are retransmissable to DHCP from there."
+10 READ !!,"Do you wish to continue ? N //",MCDEF:30
IF '$TEST
QUIT
+11 IF $EXTRACT(MCDEF)'="Y"
QUIT
+12 WRITE !!,"Each ""."" represents 100 records.",!!,"Compiling---"
+13 ; checks for whole records
+14 DO ^MCARAMLA
+15 DO ^MCARAMLB
+16 DO ^MCARAMLC
+17 DO ^MCARAMLD
+18 DO ^MCARAMLE
+19 DO ^MCARAMLF
+20 DO ^MCARAMLG
+21 WRITE !!,MCCNT," records compiled."
+22 DO ^MCARAMLH
+23 WRITE !!,"...done."
+24 QUIT
