MCARAML.m

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 ---MCARAML   916     printed  Apr 09, 2024@21:17:32                                                                                                                                                                                                      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