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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMC2310 167 printed Dec 13, 2024@02:11:21 Page 2
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