ICD14PRE ;SSI/ALA-PREINSTALL PROGRAM ;[ 04/03/97 1:03 PM ]
;;14.0;DRG Grouper;;Apr 03, 1997
EN ; Delete data in temporary files
S I=0 F S I=$O(^ICDYZ(80.7,I)) Q:I="" K ^ICDYZ(80.7,I)
S I=0 F S I=$O(^ICDYZ(80.8,I)) Q:I="" K ^ICDYZ(80.8,I)
S I=0 F S I=$O(^ICDYZ(80.9,I)) Q:I="" K ^ICDYZ(80.9,I)
K I
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD14PRE 321 printed Dec 13, 2024@01:47:36 Page 2
ICD14PRE ;SSI/ALA-PREINSTALL PROGRAM ;[ 04/03/97 1:03 PM ]
+1 ;;14.0;DRG Grouper;;Apr 03, 1997
EN ; Delete data in temporary files
+1 SET I=0
FOR
SET I=$ORDER(^ICDYZ(80.7,I))
if I=""
QUIT
KILL ^ICDYZ(80.7,I)
+2 SET I=0
FOR
SET I=$ORDER(^ICDYZ(80.8,I))
if I=""
QUIT
KILL ^ICDYZ(80.8,I)
+3 SET I=0
FOR
SET I=$ORDER(^ICDYZ(80.9,I))
if I=""
QUIT
KILL ^ICDYZ(80.9,I)
+4 KILL I
+5 QUIT
