Return to DINIT27G.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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: 	;;=