MC2310.m

MC2310 ;HCIOFO/DAD-PREINSTALL: DELETE CARD CATH IMAGE MULT ;7/8/97  10:25

 ;;2.3;Medicine;**10**;09/13/1996

 ;

 N DIU

 S DIU=691.12005,DIU(0)="S"

 D EN^DIU2

 Q

MC2310    ;HCIOFO/DAD-PREINSTALL: DELETE CARD CATH IMAGE MULT ;7/8/97  10:25

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

 +2       ;

 +3        NEW DIU

 +4        SET DIU=691.12005

           SET DIU(0)="S"

 +5        DO EN^DIU2

 +6        QUIT