source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENY2K8.m@ 1154

Last change on this file since 1154 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 797 bytes
RevLine 
[613]1ENY2K8 ;(WIRMFO)/DH-Equipment Y2K Report (Overwrite?) ;5.7.98
2 ;;7.0;ENGINEERING;**51**;August 17, 1993
3OVERWRT ; ask user what to do with existing entries
4 W !!,"Of these "_COUNT_" equipment records, "_COUNT("PRE")_" already have a Y2K CATEGORY."
5 I COUNT("FC") W !,?10,COUNT("FC")_" are FULLY COMPLIANT."
6 I COUNT("NC") W !,?10,COUNT("NC")_" are NON-COMPLIANT."
7 I COUNT("CC") W !,?10,COUNT("CC")_" are CONDITIONALLY COMPLIANT."
8 I COUNT("NA") W !,?10,COUNT("NA")_" are NOT APPLICABLE."
9 W ! S DIR(0)="Y",DIR("A")="Do you want to OVERWRITE these existing equipment records",DIR("B")="NO"
10 D ^DIR K DIR I $D(DIRUT) S ESCAPE=1 Q
11 D:'Y
12 . F J="FC","NC","CC","NA" S DA=0 F S DA=$O(^TMP($J,J,DA)) Q:'DA K ^TMP($J,DA)
13 . F J="FC","NC","CC","NA" K ^TMP($J,J)
14 I '$D(^TMP($J)) S ESCAPE=1
15 Q
16 ;ENY2K8
Note: See TracBrowser for help on using the repository browser.