MCARAM0C.m

MCARAM0C ;WASH ISC/JKL- MUSE AUTO INSTRUMENT REINIT-NO DIAG ;1/31/95  11:27

 ;;2.3;Medicine;;09/13/1996

 ;

 ;

 ;Called from ^MCARAM0

 ;Deletes EKG records without diagnoses

 S MCIEN=0

 F  S MCIEN=$O(^MCAR(691.5,MCIEN)) Q:MCIEN="B"  I '$D(^MCAR(691.5,MCIEN,9)) D DEL

 Q

 ;

DEL ;

 S MCCNT=MCCNT+1

 S DA=MCIEN,DIK="^MCAR(691.5," D ^DIK

 W:MCCNT#100=0 "."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCARAM0C   370     printed  Nov 22, 2024@17:21:58                                                                                                                                                                                                     Page 2

MCARAM0C  ;WASH ISC/JKL- MUSE AUTO INSTRUMENT REINIT-NO DIAG ;1/31/95  11:27

 +1       ;;2.3;Medicine;;09/13/1996

 +2       ;

 +3       ;

 +4       ;Called from ^MCARAM0

 +5       ;Deletes EKG records without diagnoses

 +6        SET MCIEN=0

 +7        FOR 

               SET MCIEN=$ORDER(^MCAR(691.5,MCIEN))

               if MCIEN="B"

                   QUIT 

               IF '$DATA(^MCAR(691.5,MCIEN,9))

                   DO DEL

 +8        QUIT 

 +9       ;

DEL       ;

 +1        SET MCCNT=MCCNT+1

 +2        SET DA=MCIEN

           SET DIK="^MCAR(691.5,"

           DO ^DIK

 +3        if MCCNT#100=0

               WRITE "."

 +4        QUIT