Return to DINIT27D.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT27D.m, revision 1.1.1.1

1.1       snw         1: DINIT27D       ;SFISC/DPC-FOREIGN FORMAT EXCEL(DATA PARSE) ;11/30/92  3:42 PM
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        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
                      5:        Q
                      6: ENTRY  ;
                      7:        ;;^DIST(.44,.004,0)
                      8:        ;;=EXCEL (DATA PARSE)^^^^^1^^255^1^^^1
                      9:        ;;^DIST(.44,.004,1)
                     10:        ;;=W $$DPXCEL^DDXPLIB(DDXPXTNO)
                     11:        ;;^DIST(.44,.004,3,0)
                     12:        ;;=^^4^4^2921120^
                     13:        ;;^DIST(.44,.004,3,1,0)
                     14:        ;;=Use the EXCEL-DATA PARSE format to export data to the EXCEL spreadsheet
                     15:        ;;^DIST(.44,.004,3,2,0)
                     16:        ;;=program running on the Macintosh or under windows.  Exported data is fixed
                     17:        ;;^DIST(.44,.004,3,3,0)
                     18:        ;;=length.  The first line output is a guide for use by EXCEL's Data Parser
                     19:        ;;^DIST(.44,.004,3,4,0)
                     20:        ;;=to place data into columns.  Maximum record length is 255 characters.
                     21:        ;;^DIST(.44,.004,4,0)
                     22:        ;;=^^7^7^2921120^
                     23:        ;;^DIST(.44,.004,4,1,0)
                     24:        ;;=To import a file created in this format into Excel, choose the Open
                     25:        ;;^DIST(.44,.004,4,2,0)
                     26:        ;;=command on the File menu and select the file.  Each record will be put
                     27:        ;;^DIST(.44,.004,4,3,0)
                     28:        ;;=into a single cell.  Select the column that has the data, including the
                     29:        ;;^DIST(.44,.004,4,4,0)
                     30:        ;;=first record which will contain the guide for data parsing.  Then, choose
                     31:        ;;^DIST(.44,.004,4,5,0)
                     32:        ;;=Parse from the Data menu.  Press the GUESS button and then press OK.  The
                     33:        ;;^DIST(.44,.004,4,6,0)
                     34:        ;;=data will be put into correct columns.  You may need to adjust column
                     35:        ;;^DIST(.44,.004,4,7,0)
                     36:        ;;=widths.