- ENSP5 ;(WASH ISC)/WDS@Charleston-Facility Management Data Export ;4-23-92
- V ;;7.0;ENGINEERING;;Aug 17, 1993
- ;
- ;Present data in CSV format for capture by PC for spreadsheet
- EN I '$D(^DOSV(0,$I)) S %=2 W !!,"No Data, You must allow the print option to finish." H 2 Q
- Q
- ;
- SER ;Service Report; with count of rooms and total net sf per service
- W !!!,"Report sorted by Service is Requested"
- 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
- FUNC ;Function Report; with room count and total nsf per function
- W !!!,"Report sorted by Function is requested"
- 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
- RCS ;RCS 14-4 Report; sorted by RCS=YES and by Service
- W !!!,"Report by RCS 14-4 Services is requested"
- 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
- ;
- LST D EN I $D(%) G:%=2 EXIT1
- 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"
- 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."
- W !!,"NOTE: The last cell of your spreadsheet will contain extraneous text.",!,?7,"You'll probably want to delete it."
- D WAIT G:$E(X)=U EXIT1
- W !,"Facility Management Data",!,$P($T(@ENLT),";",2),!,"Net Square Foot and Room Count Report",!
- TLT W:$D(^DOSV(0,$I,"BY")) !,$P(^DOSV(0,$I,"BY",1),"^",3)_",COUNT,NET SQUARE FT.",!
- LOOP S N=0
- F J=0:0 S N=$O(^DOSV(0,$I,1,N)) Q:N="" D LOOP1
- EXIT W !,"Turn off data capture, Press <RETURN> when ready. " R X:DTIME
- G:X'=U MSG1
- EXIT1 K %,J,ENLT,N,^DOSV(0,$I) Q
- LOOP1 W """"_N_""","_^DOSV(0,$I,1,N,1,"N")_","_^("S"),!
- Q
- 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.",!
- W !,"No Device Selection will be asked. This option cannot be queued.",! Q
- 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
- G EXIT1
- ;
- WAIT W !!!!,"Press <RETURN> when ready, or '^' to escape. " R X:DTIME Q
- ;ENSP5
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENSP5 2581 printed Feb 18, 2025@23:22:05 Page 2
- ENSP5 ;(WASH ISC)/WDS@Charleston-Facility Management Data Export ;4-23-92
- V ;;7.0;ENGINEERING;;Aug 17, 1993
- +1 ;
- +2 ;Present data in CSV format for capture by PC for spreadsheet
- EN IF '$DATA(^DOSV(0,$IO))
- SET %=2
- WRITE !!,"No Data, You must allow the print option to finish."
- HANG 2
- QUIT
- +1 QUIT
- +2 ;
- SER ;Service Report; with count of rooms and total net sf per service
- +1 WRITE !!!,"Report sorted by Service is Requested"
- +2 DO MSG
- DO WAIT
- DO SET^ENSP
- if X=U
- GOTO EXIT1
- SET ENLT="SER"
- SET %=1
- SET BY="+1.5"
- SET FLDS="+4.5"
- SET IOP="HOME"
- DO PRINT^ENSP
- GOTO LST
- FUNC ;Function Report; with room count and total nsf per function
- +1 WRITE !!!,"Report sorted by Function is requested"
- +2 DO MSG
- DO WAIT
- DO SET^ENSP
- if X=U
- GOTO EXIT1
- SET ENLT="FUNC"
- SET %=1
- SET BY="+2.6"
- SET FLDS="+4.5"
- SET IOP="HOME"
- DO PRINT^ENSP
- GOTO LST
- RCS ;RCS 14-4 Report; sorted by RCS=YES and by Service
- +1 WRITE !!!,"Report by RCS 14-4 Services is requested"
- +2 DO MSG
- DO WAIT
- DO SET^ENSP
- if X=U
- GOTO EXIT1
- SET ENLT="RCS"
- SET %=1
- SET BY="16,+1.5"
- SET FR="YES,?"
- SET TO="YESZ,?"
- SET FLDS="+4.5"
- SET IOP="HOME"
- DO PRINT^ENSP
- GOTO LST
- +3 ;
- LST DO EN
- IF $DATA(%)
- if %=2
- GOTO EXIT1
- LST1 WRITE !!!,"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"
- +1 WRITE !!,"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."
- +2 WRITE !!,"NOTE: The last cell of your spreadsheet will contain extraneous text.",!,?7,"You'll probably want to delete it."
- +3 DO WAIT
- if $EXTRACT(X)=U
- GOTO EXIT1
- +4 WRITE !,"Facility Management Data",!,$PIECE($TEXT(@ENLT),";",2),!,"Net Square Foot and Room Count Report",!
- TLT if $DATA(^DOSV(0,$IO,"BY"))
- WRITE !,$PIECE(^DOSV(0,$IO,"BY",1),"^",3)_",COUNT,NET SQUARE FT.",!
- LOOP SET N=0
- +1 FOR J=0:0
- SET N=$ORDER(^DOSV(0,$IO,1,N))
- if N=""
- QUIT
- DO LOOP1
- EXIT WRITE !,"Turn off data capture, Press <RETURN> when ready. "
- READ X:DTIME
- +1 if X'=U
- GOTO MSG1
- EXIT1 KILL %,J,ENLT,N,^DOSV(0,$IO)
- QUIT
- LOOP1 WRITE """"_N_""","_^DOSV(0,$IO,1,N,1,"N")_","_^("S"),!
- +1 QUIT
- MSG WRITE !!,"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.",!
- +1 WRITE !,"No Device Selection will be asked. This option cannot be queued.",!
- QUIT
- MSG1 WRITE !!!,"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 "
- SET %=2
- DO YN^DICN
- if %=1
- GOTO LST
- if %=0
- GOTO MSG1
- +1 GOTO EXIT1
- +2 ;
- WAIT WRITE !!!!,"Press <RETURN> when ready, or '^' to escape. "
- READ X:DTIME
- QUIT
- +1 ;ENSP5
