|
Last change
on this file since 767 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
797 bytes
|
| Line | |
|---|
| 1 | ENY2K8 ;(WIRMFO)/DH-Equipment Y2K Report (Overwrite?) ;5.7.98
|
|---|
| 2 | ;;7.0;ENGINEERING;**51**;August 17, 1993
|
|---|
| 3 | OVERWRT ; 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.
