| 1 | ENSP5 ;(WASH ISC)/WDS@Charleston-Facility Management Data Export ;4-23-92
|
|---|
| 2 | V ;;7.0;ENGINEERING;;Aug 17, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;Present data in CSV format for capture by PC for spreadsheet
|
|---|
| 5 | EN I '$D(^DOSV(0,$I)) S %=2 W !!,"No Data, You must allow the print option to finish." H 2 Q
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | SER ;Service Report; with count of rooms and total net sf per service
|
|---|
| 9 | W !!!,"Report sorted by Service is Requested"
|
|---|
| 10 | D MSG,WAIT,SET^ENSP G:X=U EXIT1 S ENLT="SER",%=1,BY="+1.5",FLDS="+4.5",IOP="HOME" D PRINT^ENSP G LST
|
|---|
| 11 | FUNC ;Function Report; with room count and total nsf per function
|
|---|
| 12 | W !!!,"Report sorted by Function is requested"
|
|---|
| 13 | D MSG,WAIT,SET^ENSP G:X=U EXIT1 S ENLT="FUNC",%=1,BY="+2.6",FLDS="+4.5",IOP="HOME" D PRINT^ENSP G LST
|
|---|
| 14 | RCS ;RCS 14-4 Report; sorted by RCS=YES and by Service
|
|---|
| 15 | W !!!,"Report by RCS 14-4 Services is requested"
|
|---|
| 16 | D MSG,WAIT,SET^ENSP G:X=U EXIT1 S ENLT="RCS",%=1,BY="16,+1.5",FR="YES,?",TO="YESZ,?",FLDS="+4.5",IOP="HOME" D PRINT^ENSP G LST
|
|---|
| 17 | ;
|
|---|
| 18 | LST D EN I $D(%) G:%=2 EXIT1
|
|---|
| 19 | LST1 W !!!,"Ready to list Spreadsheet data in Comma Separated Value (CSV) format.",!!,"Turn on your ASCII file capture feature and save an MS-DOS file with an",!,"extension of CSV, ie. ASCII file name = ________.CSV"
|
|---|
| 20 | W !!,"At the end of the data listing, Turn off your ASCII file capture feature",!,"and then open the CSV file in your spreadsheet program to produce graphs."
|
|---|
| 21 | W !!,"NOTE: The last cell of your spreadsheet will contain extraneous text.",!,?7,"You'll probably want to delete it."
|
|---|
| 22 | D WAIT G:$E(X)=U EXIT1
|
|---|
| 23 | W !,"Facility Management Data",!,$P($T(@ENLT),";",2),!,"Net Square Foot and Room Count Report",!
|
|---|
| 24 | TLT W:$D(^DOSV(0,$I,"BY")) !,$P(^DOSV(0,$I,"BY",1),"^",3)_",COUNT,NET SQUARE FT.",!
|
|---|
| 25 | LOOP S N=0
|
|---|
| 26 | F J=0:0 S N=$O(^DOSV(0,$I,1,N)) Q:N="" D LOOP1
|
|---|
| 27 | EXIT W !,"Turn off data capture, Press <RETURN> when ready. " R X:DTIME
|
|---|
| 28 | G:X'=U MSG1
|
|---|
| 29 | EXIT1 K %,J,ENLT,N,^DOSV(0,$I) Q
|
|---|
| 30 | LOOP1 W """"_N_""","_^DOSV(0,$I,1,N,1,"N")_","_^("S"),!
|
|---|
| 31 | Q
|
|---|
| 32 | MSG W !!,"I must do a FileMan sort to organize the data you want to export. The data will",!,"Print in FileMan format on your screen. At the end of the print you will be",!,"instructed on how to capture the data you have requested.",!
|
|---|
| 33 | W !,"No Device Selection will be asked. This option cannot be queued.",! Q
|
|---|
| 34 | MSG1 W !!!,"I still have this data stored and can list it for capture again without",!,"re-running the FileMan sort in case you missed it the first time.",!!,"Want to list the data again " S %=2 D YN^DICN G:%=1 LST G:%=0 MSG1
|
|---|
| 35 | G EXIT1
|
|---|
| 36 | ;
|
|---|
| 37 | WAIT W !!!!,"Press <RETURN> when ready, or '^' to escape. " R X:DTIME Q
|
|---|
| 38 | ;ENSP5
|
|---|
