Return to DINIT27G.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT27G.m, revision 1.1

1.1     ! snw         1: DINIT27G       ;SFISC/DPC-FOREIGN FORMAT WORD(TAB) ;11/30/92  3:50 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="" ^DINIT27H S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
        !             5:        Q
        !             6: ENTRY  ;
        !             7:        ;;^DIST(.44,.007,0)
        !             8:        ;;=WORD DATA FILE (TAB)^009^^^^^1^250^1^1^^0
        !             9:        ;;^DIST(.44,.007,1)
        !            10:        ;;=W $$FLDNM^DDXPLIB(DDXPXTNO)
        !            11:        ;;^DIST(.44,.007,3,0)
        !            12:        ;;=^^5^5^2921106^
        !            13:        ;;^DIST(.44,.007,3,1,0)
        !            14:        ;;=The format creates records with <TAB> delimited fields.  Non-numeric
        !            15:        ;;^DIST(.44,.007,3,2,0)
        !            16:        ;;=fields are in quotes.  The user is prompted for field names that are
        !            17:        ;;^DIST(.44,.007,3,3,0)
        !            18:        ;;=output as the first line of the exported file.
        !            19:        ;;^DIST(.44,.007,3,4,0)
        !            20:        ;;=This format was designed to be used to create a Data File for use with
        !            21:        ;;^DIST(.44,.007,3,5,0)
        !            22:        ;;=Microsoft Word's Print Merge utility.
        !            23:        ;;^DIST(.44,.007,4,0)
        !            24:        ;;=^^6^6^2921106^
        !            25:        ;;^DIST(.44,.007,4,1,0)
        !            26:        ;;=Use the exported file as the Data File for Microsoft Word's Print Merge
        !            27:        ;;^DIST(.44,.007,4,2,0)
        !            28:        ;;=utility.  The Merge Field names are contained in the first line of exported
        !            29:        ;;^DIST(.44,.007,4,3,0)
        !            30:        ;;=data.  See the Word documentation and Descriptions of Other Names for
        !            31:        ;;^DIST(.44,.007,4,4,0)
        !            32:        ;;=instructions for importing into various versions of Word.
        !            33:        ;;^DIST(.44,.007,4,5,0)
        !            34:        ;;=(Note: Word does not allow spaces and some other punctuation in the Merge
        !            35:        ;;^DIST(.44,.007,4,6,0)
        !            36:        ;;=Field names.)
        !            37:        ;;^DIST(.44,.007,5,0)
        !            38:        ;;=^.441^3^3
        !            39:        ;;^DIST(.44,.007,5,1,0)
        !            40:        ;;=WORD 5.0 (MACINTOSH)
        !            41:        ;;^DIST(.44,.007,5,1,1,0)
        !            42:        ;;=^^7^7^2921106^
        !            43:        ;;^DIST(.44,.007,5,1,1,1,0)
        !            44:        ;;=To use the exported file as a Data File:
        !            45:        ;;^DIST(.44,.007,5,1,1,2,0)
        !            46:        ;;=1) With Main Document open, select Print Merge Helper on the View menu and
        !            47:        ;;^DIST(.44,.007,5,1,1,3,0)
        !            48:        ;;=choose the exported file as the Data File.
        !            49:        ;;^DIST(.44,.007,5,1,1,4,0)
        !            50:        ;;=2)From the Insert Field Names box on the Print Merge Helper bar, insert
        !            51:        ;;^DIST(.44,.007,5,1,1,5,0)
        !            52:        ;;=the field names into the Main Document.
        !            53:        ;;^DIST(.44,.007,5,1,1,6,0)
        !            54:        ;;=3)Select Print Merge from the File menu to merge the exported data into
        !            55:        ;;^DIST(.44,.007,5,1,1,7,0)
        !            56:        ;;=the Main Document.
        !            57:        ;;^DIST(.44,.007,5,2,0)
        !            58:        ;;=WORD 4.0 (MACINTOSH)
        !            59:        ;;^DIST(.44,.007,5,2,1,0)
        !            60:        ;;=^^8^8^2921106^
        !            61:        ;;^DIST(.44,.007,5,2,1,1,0)
        !            62:        ;;=To use the exported file as a Data file:
        !            63:        ;;^DIST(.44,.007,5,2,1,2,0)
        !            64:        ;;=1)Into the main document enter the Merge Instruction 'DATA' followed by
        !            65:        ;;^DIST(.44,.007,5,2,1,3,0)
        !            66:        ;;=the file name of your exported file surrounded by Merge Quotes.
        !            67:        ;;^DIST(.44,.007,5,2,1,4,0)
        !            68:        ;;=2)Enter your field names in the Main Document.  The names must match
        !            69:        ;;^DIST(.44,.007,5,2,1,5,0)
        !            70:        ;;=exactly those on the first line of the Data (exported) file and be
        !            71:        ;;^DIST(.44,.007,5,2,1,6,0)
        !            72:        ;;=surrounded by Merge Quotes (<OPTION-\> AND <OPTION-SHIFT-\>).
        !            73:        ;;^DIST(.44,.007,5,2,1,7,0)
        !            74:        ;;=3)Select Print Merge from the File menu to merge the data into the Main
        !            75:        ;;^DIST(.44,.007,5,2,1,8,0)
        !            76:        ;;=Document.
        !            77:        ;;^DIST(.44,.007,5,3,0)
        !            78:        ;;=WINWORD 2.0
        !            79:        ;;^DIST(.44,.007,5,3,1,0)
        !            80:        ;;=^^7^7^2921106^
        !            81:        ;;^DIST(.44,.007,5,3,1,1,0)
        !            82:        ;;=To use the exported file as the Data file:
        !            83:        ;;^DIST(.44,.007,5,3,1,2,0)
        !            84:        ;;=1) With the Main Document open, select Print Merge from the File menu and
        !            85:        ;;^DIST(.44,.007,5,3,1,3,0)
        !            86:        ;;=press Attach Data File button.  Select your exported file as the Data
        !            87:        ;;^DIST(.44,.007,5,3,1,4,0)
        !            88:        ;;=file.
        !            89:        ;;^DIST(.44,.007,5,3,1,5,0)
        !            90:        ;;=2) Use the Insert Merge Fields box to place Merge Fields in the Main
        !            91:        ;;^DIST(.44,.007,5,3,1,6,0)
        !            92:        ;;=Document.
        !            93:        ;;^DIST(.44,.007,5,3,1,7,0)
        !            94:        ;;=3) Again select Print Merge from the File menu and press the Merge button.
        !            95:        ;;^DIST(.44,.007,5,"B","WINWORD 2.0",3)
        !            96:        ;;=
        !            97:        ;;^DIST(.44,.007,5,"B","WORD 4.0 (MACINTOSH)",2)
        !            98:        ;;=
        !            99:        ;;^DIST(.44,.007,5,"B","WORD 5.0 (MACINTOSH)",1)
        !           100:        ;;=