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 Dec 13, 2024@01:57:19 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
