Return to DINIT27G.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT27G.m, revision 1.1.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:        ;;=