source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENY2REP1.m@ 701

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1ENY2REP1 ;;(WIRMFO)/DH-Y2K Category Reports ;8.19.98
2 ;;7.0;ENGINEERING;**51,55**;August 17, 1993
3EN ; 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
Note: See TracBrowser for help on using the repository browser.