| 1 | ENY2REP1 ;;(WIRMFO)/DH-Y2K Category Reports ;8.19.98
|
|---|
| 2 | ;;7.0;ENGINEERING;**51,55**;August 17, 1993
|
|---|
| 3 | EN ; print counts by equipment category or manufacturer, decreasing order
|
|---|
| 4 | ; indicate Y2K status
|
|---|
| 5 | W @IOF,!,?20,"** SUMMARY OF Y2K EQUIPMENT DATA **"
|
|---|
| 6 | I $P($G(^DIC(6910,1,0)),U,2)']"" W !!,"There is no STATION NUMBER in your Engineering Init Parameters file.",!,"Can't proceed." Q
|
|---|
| 7 | W ! S DIR(0)="SM^CAT:EQUIPMENT CATEGORY;MFG:MANUFACTURER;CSN:CATEGORY STOCK NUMBER",DIR("A")="Print Summary by",DIR("B")="CAT"
|
|---|
| 8 | D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 9 | S ENTYPE=Y
|
|---|
| 10 | W ! S DIR(0)="YA",DIR("A")="Shall we ignore "_$S(ENTYPE="CAT":"EQUIPMENT CATEGORIES",ENTYPE="MFG":"MANUFACTURERS",1:"CATEGORY STOCK NUMBERS")_" with no Y2K issues? ",DIR("B")="YES"
|
|---|
| 11 | S DIR("?",1)="Enter YES if you do not wish to see counts for "_$S(ENTYPE="CAT":"EQUIPMENT CATEGORIES",ENTYPE="MFG":"MANUFACTURERS",1:"CATEGORY STOCK NUMBERS")_" for"
|
|---|
| 12 | S DIR("?")="which all of the equipment entries have Y2K CATEGORIES of 'NA' or 'FC'."
|
|---|
| 13 | D ^DIR K DIR I $D(DIRUT) K ENTYPE Q
|
|---|
| 14 | S ENSUP=Y
|
|---|
| 15 | W ! S DIR(0)="SM^A:ALPHABETICALLY;C:BY COUNT",DIR("A")="Sort List",DIR("B")="ALPHABETICALLY"
|
|---|
| 16 | S DIR("?")="If COUNT is specified then large groupings will be at the top of your list."
|
|---|
| 17 | D ^DIR K DIR I $D(DIRUT) K ENTYPE,ENSUP Q
|
|---|
| 18 | S ENSORT=Y
|
|---|
| 19 | I ENSORT="C" D I $D(DIRUT) K ENTYPE,ENSUP,ENSORT Q
|
|---|
| 20 | . W ! S DIR(0)="N^1:9999:0",DIR("A")="Only print "_$S(ENTYPE="CAT":"EQUIPMENT CATEGORIES",ENTYPE="MFG":"MANUFACTURERS",1:"CATEGORY STOCK NUMBERS")_" with COUNT of at least",DIR("B")=1
|
|---|
| 21 | . S DIR("?")="This feature allows you to print only the high count entries."
|
|---|
| 22 | . D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 23 | . S ENSORT("MIN")=Y
|
|---|
| 24 | S ENSTN=0
|
|---|
| 25 | I $P(^DIC(6910,1,0),U,10)!($D(^DIC(6910,1,3))) D I ENSTN="^" K ENTYPE,ENSUP,ENSORT,ENSTN Q
|
|---|
| 26 | . S DIR(0)="Y",DIR("A")="Do you want a breakout by station",DIR("B")="NO"
|
|---|
| 27 | . S DIR("?",1)="If you say 'NO' you will obtain a single report for all your equipment,"
|
|---|
| 28 | . S DIR("?")="regardless of which station it belongs to."
|
|---|
| 29 | . W ! D ^DIR K DIR I $D(DIRUT) S ENSTN="^" Q
|
|---|
| 30 | . S ENSTN=Y
|
|---|
| 31 | W !! K IO("Q") S %ZIS="QM" D ^%ZIS I POP K ENTYPE,ENSUP,ENSORT,ENSTN Q
|
|---|
| 32 | I $D(IO("Q")) S ZTRTN="DEQUE^ENY2REP8" D K ENTYPE,ENSUP,ENSORT,ENSTN Q
|
|---|
| 33 | . S ZTSAVE("EN*")="",ZTDESC="Y2K Counts by EQUIPMENT CATEGORY"
|
|---|
| 34 | . S ZTIO=ION D ^%ZTLOAD,HOME^%ZIS K ZTSK
|
|---|
| 35 | ;
|
|---|
| 36 | G DEQUE^ENY2REP8
|
|---|
| 37 | ;ENY2REP1
|
|---|
