ICD14PRE.m

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 ---ICD14PRE   321     printed  Mar 13, 2025@20:52:15                                                                                                                                                                                                     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