- 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 ---[H[J[2J[HENY2K8 813 printed Feb 18, 2025@23:23:43 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