ENY2K8.m

ENY2K8 ;(WIRMFO)/DH-Equipment Y2K Report (Overwrite?) ;5.7.98

 ;;7.0;ENGINEERING;**51**;August 17, 1993

OVERWRT ;  ask user what to do with existing entries

 W !!,"Of these "_COUNT_" equipment records, "_COUNT("PRE")_" already have a Y2K CATEGORY."

 I COUNT("FC") W !,?10,COUNT("FC")_" are FULLY COMPLIANT."

 I COUNT("NC") W !,?10,COUNT("NC")_" are NON-COMPLIANT."

 I COUNT("CC") W !,?10,COUNT("CC")_" are CONDITIONALLY COMPLIANT."

 I COUNT("NA") W !,?10,COUNT("NA")_" are NOT APPLICABLE."

 W ! S DIR(0)="Y",DIR("A")="Do you want to OVERWRITE these existing equipment records",DIR("B")="NO"

 D ^DIR K DIR I $D(DIRUT) S ESCAPE=1 Q

 D:'Y

 . F J="FC","NC","CC","NA" S DA=0 F  S DA=$O(^TMP($J,J,DA)) Q:'DA  K ^TMP($J,DA)

 . F J="FC","NC","CC","NA" K ^TMP($J,J)

 I '$D(^TMP($J)) S ESCAPE=1

 Q

 ;ENY2K8

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENY2K8   813     printed  Apr 09, 2024@21:01:49                                                                                                                                                                                                       Page 2

ENY2K8    ;(WIRMFO)/DH-Equipment Y2K Report (Overwrite?) ;5.7.98

 +1       ;;7.0;ENGINEERING;**51**;August 17, 1993

OVERWRT   ;  ask user what to do with existing entries

 +1        WRITE !!,"Of these "_COUNT_" equipment records, "_COUNT("PRE")_" already have a Y2K CATEGORY."

 +2        IF COUNT("FC")

               WRITE !,?10,COUNT("FC")_" are FULLY COMPLIANT."

 +3        IF COUNT("NC")

               WRITE !,?10,COUNT("NC")_" are NON-COMPLIANT."

 +4        IF COUNT("CC")

               WRITE !,?10,COUNT("CC")_" are CONDITIONALLY COMPLIANT."

 +5        IF COUNT("NA")

               WRITE !,?10,COUNT("NA")_" are NOT APPLICABLE."

 +6        WRITE !

           SET DIR(0)="Y"

           SET DIR("A")="Do you want to OVERWRITE these existing equipment records"

           SET DIR("B")="NO"

 +7        DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)

               SET ESCAPE=1

               QUIT 

 +8        if 'Y

               Begin DoDot:1

 +9                FOR J="FC","NC","CC","NA"

                       SET DA=0

                       FOR 

                           SET DA=$ORDER(^TMP($JOB,J,DA))

                           if 'DA

                               QUIT 

                           KILL ^TMP($JOB,DA)

 +10               FOR J="FC","NC","CC","NA"

                       KILL ^TMP($JOB,J)

               End DoDot:1

 +11       IF '$DATA(^TMP($JOB))

               SET ESCAPE=1

 +12       QUIT 

 +13      ;ENY2K8