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 Dec 13, 2024@02:51:06 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 ;;=
