Return to DINIT27D.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT27D.m, revision 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.