- DINIT27G ;SFISC/DPC-FOREIGN FORMAT WORD(TAB) ;11/30/92 3:50 PM
- ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- ;;Per VA Directive 6402, this routine should not be modified.
- ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- ;;Licensed under the terms of the Apache License, Version 2.0.
- ;
- 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
- Q
- ENTRY ;
- ;;^DIST(.44,.007,0)
- ;;=WORD DATA FILE (TAB)^009^^^^^1^250^1^1^^0
- ;;^DIST(.44,.007,1)
- ;;=W $$FLDNM^DDXPLIB(DDXPXTNO)
- ;;^DIST(.44,.007,3,0)
- ;;=^^5^5^2921106^
- ;;^DIST(.44,.007,3,1,0)
- ;;=The format creates records with <TAB> delimited fields. Non-numeric
- ;;^DIST(.44,.007,3,2,0)
- ;;=fields are in quotes. The user is prompted for field names that are
- ;;^DIST(.44,.007,3,3,0)
- ;;=output as the first line of the exported file.
- ;;^DIST(.44,.007,3,4,0)
- ;;=This format was designed to be used to create a Data File for use with
- ;;^DIST(.44,.007,3,5,0)
- ;;=Microsoft Word's Print Merge utility.
- ;;^DIST(.44,.007,4,0)
- ;;=^^6^6^2921106^
- ;;^DIST(.44,.007,4,1,0)
- ;;=Use the exported file as the Data File for Microsoft Word's Print Merge
- ;;^DIST(.44,.007,4,2,0)
- ;;=utility. The Merge Field names are contained in the first line of exported
- ;;^DIST(.44,.007,4,3,0)
- ;;=data. See the Word documentation and Descriptions of Other Names for
- ;;^DIST(.44,.007,4,4,0)
- ;;=instructions for importing into various versions of Word.
- ;;^DIST(.44,.007,4,5,0)
- ;;=(Note: Word does not allow spaces and some other punctuation in the Merge
- ;;^DIST(.44,.007,4,6,0)
- ;;=Field names.)
- ;;^DIST(.44,.007,5,0)
- ;;=^.441^3^3
- ;;^DIST(.44,.007,5,1,0)
- ;;=WORD 5.0 (MACINTOSH)
- ;;^DIST(.44,.007,5,1,1,0)
- ;;=^^7^7^2921106^
- ;;^DIST(.44,.007,5,1,1,1,0)
- ;;=To use the exported file as a Data File:
- ;;^DIST(.44,.007,5,1,1,2,0)
- ;;=1) With Main Document open, select Print Merge Helper on the View menu and
- ;;^DIST(.44,.007,5,1,1,3,0)
- ;;=choose the exported file as the Data File.
- ;;^DIST(.44,.007,5,1,1,4,0)
- ;;=2)From the Insert Field Names box on the Print Merge Helper bar, insert
- ;;^DIST(.44,.007,5,1,1,5,0)
- ;;=the field names into the Main Document.
- ;;^DIST(.44,.007,5,1,1,6,0)
- ;;=3)Select Print Merge from the File menu to merge the exported data into
- ;;^DIST(.44,.007,5,1,1,7,0)
- ;;=the Main Document.
- ;;^DIST(.44,.007,5,2,0)
- ;;=WORD 4.0 (MACINTOSH)
- ;;^DIST(.44,.007,5,2,1,0)
- ;;=^^8^8^2921106^
- ;;^DIST(.44,.007,5,2,1,1,0)
- ;;=To use the exported file as a Data file:
- ;;^DIST(.44,.007,5,2,1,2,0)
- ;;=1)Into the main document enter the Merge Instruction 'DATA' followed by
- ;;^DIST(.44,.007,5,2,1,3,0)
- ;;=the file name of your exported file surrounded by Merge Quotes.
- ;;^DIST(.44,.007,5,2,1,4,0)
- ;;=2)Enter your field names in the Main Document. The names must match
- ;;^DIST(.44,.007,5,2,1,5,0)
- ;;=exactly those on the first line of the Data (exported) file and be
- ;;^DIST(.44,.007,5,2,1,6,0)
- ;;=surrounded by Merge Quotes (<OPTION-\> AND <OPTION-SHIFT-\>).
- ;;^DIST(.44,.007,5,2,1,7,0)
- ;;=3)Select Print Merge from the File menu to merge the data into the Main
- ;;^DIST(.44,.007,5,2,1,8,0)
- ;;=Document.
- ;;^DIST(.44,.007,5,3,0)
- ;;=WINWORD 2.0
- ;;^DIST(.44,.007,5,3,1,0)
- ;;=^^7^7^2921106^
- ;;^DIST(.44,.007,5,3,1,1,0)
- ;;=To use the exported file as the Data file:
- ;;^DIST(.44,.007,5,3,1,2,0)
- ;;=1) With the Main Document open, select Print Merge from the File menu and
- ;;^DIST(.44,.007,5,3,1,3,0)
- ;;=press Attach Data File button. Select your exported file as the Data
- ;;^DIST(.44,.007,5,3,1,4,0)
- ;;=file.
- ;;^DIST(.44,.007,5,3,1,5,0)
- ;;=2) Use the Insert Merge Fields box to place Merge Fields in the Main
- ;;^DIST(.44,.007,5,3,1,6,0)
- ;;=Document.
- ;;^DIST(.44,.007,5,3,1,7,0)
- ;;=3) Again select Print Merge from the File menu and press the Merge button.
- ;;^DIST(.44,.007,5,"B","WINWORD 2.0",3)
- ;;=
- ;;^DIST(.44,.007,5,"B","WORD 4.0 (MACINTOSH)",2)
- ;;=
- ;;^DIST(.44,.007,5,"B","WORD 5.0 (MACINTOSH)",1)
- ;;=
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT27G 4117 printed Feb 19, 2025@00:17:20 Page 2
- DINIT27G ;SFISC/DPC-FOREIGN FORMAT WORD(TAB) ;11/30/92 3:50 PM
- +1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- +4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- +5 ;;Licensed under the terms of the Apache License, Version 2.0.
- +6 ;
- +7 FOR I=1:2
- SET X=$TEXT(ENTRY+I)
- if X=""
- GOTO ^DINIT27H
- SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
- SET X=$EXTRACT(X,4,999)
- SET @X=Y
- +8 QUIT
- ENTRY ;
- +1 ;;^DIST(.44,.007,0)
- +2 ;;=WORD DATA FILE (TAB)^009^^^^^1^250^1^1^^0
- +3 ;;^DIST(.44,.007,1)
- +4 ;;=W $$FLDNM^DDXPLIB(DDXPXTNO)
- +5 ;;^DIST(.44,.007,3,0)
- +6 ;;=^^5^5^2921106^
- +7 ;;^DIST(.44,.007,3,1,0)
- +8 ;;=The format creates records with <TAB> delimited fields. Non-numeric
- +9 ;;^DIST(.44,.007,3,2,0)
- +10 ;;=fields are in quotes. The user is prompted for field names that are
- +11 ;;^DIST(.44,.007,3,3,0)
- +12 ;;=output as the first line of the exported file.
- +13 ;;^DIST(.44,.007,3,4,0)
- +14 ;;=This format was designed to be used to create a Data File for use with
- +15 ;;^DIST(.44,.007,3,5,0)
- +16 ;;=Microsoft Word's Print Merge utility.
- +17 ;;^DIST(.44,.007,4,0)
- +18 ;;=^^6^6^2921106^
- +19 ;;^DIST(.44,.007,4,1,0)
- +20 ;;=Use the exported file as the Data File for Microsoft Word's Print Merge
- +21 ;;^DIST(.44,.007,4,2,0)
- +22 ;;=utility. The Merge Field names are contained in the first line of exported
- +23 ;;^DIST(.44,.007,4,3,0)
- +24 ;;=data. See the Word documentation and Descriptions of Other Names for
- +25 ;;^DIST(.44,.007,4,4,0)
- +26 ;;=instructions for importing into various versions of Word.
- +27 ;;^DIST(.44,.007,4,5,0)
- +28 ;;=(Note: Word does not allow spaces and some other punctuation in the Merge
- +29 ;;^DIST(.44,.007,4,6,0)
- +30 ;;=Field names.)
- +31 ;;^DIST(.44,.007,5,0)
- +32 ;;=^.441^3^3
- +33 ;;^DIST(.44,.007,5,1,0)
- +34 ;;=WORD 5.0 (MACINTOSH)
- +35 ;;^DIST(.44,.007,5,1,1,0)
- +36 ;;=^^7^7^2921106^
- +37 ;;^DIST(.44,.007,5,1,1,1,0)
- +38 ;;=To use the exported file as a Data File:
- +39 ;;^DIST(.44,.007,5,1,1,2,0)
- +40 ;;=1) With Main Document open, select Print Merge Helper on the View menu and
- +41 ;;^DIST(.44,.007,5,1,1,3,0)
- +42 ;;=choose the exported file as the Data File.
- +43 ;;^DIST(.44,.007,5,1,1,4,0)
- +44 ;;=2)From the Insert Field Names box on the Print Merge Helper bar, insert
- +45 ;;^DIST(.44,.007,5,1,1,5,0)
- +46 ;;=the field names into the Main Document.
- +47 ;;^DIST(.44,.007,5,1,1,6,0)
- +48 ;;=3)Select Print Merge from the File menu to merge the exported data into
- +49 ;;^DIST(.44,.007,5,1,1,7,0)
- +50 ;;=the Main Document.
- +51 ;;^DIST(.44,.007,5,2,0)
- +52 ;;=WORD 4.0 (MACINTOSH)
- +53 ;;^DIST(.44,.007,5,2,1,0)
- +54 ;;=^^8^8^2921106^
- +55 ;;^DIST(.44,.007,5,2,1,1,0)
- +56 ;;=To use the exported file as a Data file:
- +57 ;;^DIST(.44,.007,5,2,1,2,0)
- +58 ;;=1)Into the main document enter the Merge Instruction 'DATA' followed by
- +59 ;;^DIST(.44,.007,5,2,1,3,0)
- +60 ;;=the file name of your exported file surrounded by Merge Quotes.
- +61 ;;^DIST(.44,.007,5,2,1,4,0)
- +62 ;;=2)Enter your field names in the Main Document. The names must match
- +63 ;;^DIST(.44,.007,5,2,1,5,0)
- +64 ;;=exactly those on the first line of the Data (exported) file and be
- +65 ;;^DIST(.44,.007,5,2,1,6,0)
- +66 ;;=surrounded by Merge Quotes (<OPTION-\> AND <OPTION-SHIFT-\>).
- +67 ;;^DIST(.44,.007,5,2,1,7,0)
- +68 ;;=3)Select Print Merge from the File menu to merge the data into the Main
- +69 ;;^DIST(.44,.007,5,2,1,8,0)
- +70 ;;=Document.
- +71 ;;^DIST(.44,.007,5,3,0)
- +72 ;;=WINWORD 2.0
- +73 ;;^DIST(.44,.007,5,3,1,0)
- +74 ;;=^^7^7^2921106^
- +75 ;;^DIST(.44,.007,5,3,1,1,0)
- +76 ;;=To use the exported file as the Data file:
- +77 ;;^DIST(.44,.007,5,3,1,2,0)
- +78 ;;=1) With the Main Document open, select Print Merge from the File menu and
- +79 ;;^DIST(.44,.007,5,3,1,3,0)
- +80 ;;=press Attach Data File button. Select your exported file as the Data
- +81 ;;^DIST(.44,.007,5,3,1,4,0)
- +82 ;;=file.
- +83 ;;^DIST(.44,.007,5,3,1,5,0)
- +84 ;;=2) Use the Insert Merge Fields box to place Merge Fields in the Main
- +85 ;;^DIST(.44,.007,5,3,1,6,0)
- +86 ;;=Document.
- +87 ;;^DIST(.44,.007,5,3,1,7,0)
- +88 ;;=3) Again select Print Merge from the File menu and press the Merge button.
- +89 ;;^DIST(.44,.007,5,"B","WINWORD 2.0",3)
- +90 ;;=
- +91 ;;^DIST(.44,.007,5,"B","WORD 4.0 (MACINTOSH)",2)
- +92 ;;=
- +93 ;;^DIST(.44,.007,5,"B","WORD 5.0 (MACINTOSH)",1)
- +94 ;;=