Return to DINIT27D.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DINIT27D	;SFISC/DPC-FOREIGN FORMAT EXCEL(DATA PARSE) ;11/30/92  3:42 PM
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, this routine should not be modified.
	F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT27E S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
	Q
ENTRY	;
	;;^DIST(.44,.004,0)
	;;=EXCEL (DATA PARSE)^^^^^1^^255^1^^^1
	;;^DIST(.44,.004,1)
	;;=W $$DPXCEL^DDXPLIB(DDXPXTNO)
	;;^DIST(.44,.004,3,0)
	;;=^^4^4^2921120^
	;;^DIST(.44,.004,3,1,0)
	;;=Use the EXCEL-DATA PARSE format to export data to the EXCEL spreadsheet
	;;^DIST(.44,.004,3,2,0)
	;;=program running on the Macintosh or under windows.  Exported data is fixed
	;;^DIST(.44,.004,3,3,0)
	;;=length.  The first line output is a guide for use by EXCEL's Data Parser
	;;^DIST(.44,.004,3,4,0)
	;;=to place data into columns.  Maximum record length is 255 characters.
	;;^DIST(.44,.004,4,0)
	;;=^^7^7^2921120^
	;;^DIST(.44,.004,4,1,0)
	;;=To import a file created in this format into Excel, choose the Open
	;;^DIST(.44,.004,4,2,0)
	;;=command on the File menu and select the file.  Each record will be put
	;;^DIST(.44,.004,4,3,0)
	;;=into a single cell.  Select the column that has the data, including the
	;;^DIST(.44,.004,4,4,0)
	;;=first record which will contain the guide for data parsing.  Then, choose
	;;^DIST(.44,.004,4,5,0)
	;;=Parse from the Data menu.  Press the GUESS button and then press OK.  The
	;;^DIST(.44,.004,4,6,0)
	;;=data will be put into correct columns.  You may need to adjust column
	;;^DIST(.44,.004,4,7,0)
	;;=widths.