Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT27F

DINIT27F.m

Go to the documentation of this file.
  1. DINIT27F ;SFISC/DPC-EIGN FORMAT WORD (COMMA) ;11/30/92 3:46 PM
  1. ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  1. F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT27G S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
  1. Q
  1. ENTRY ;
  1. ;;^DIST(.44,.006,0)
  1. ;;=WORD DATA FILE (COMMA)^,^^^^^1^250^1^1^^0
  1. ;;^DIST(.44,.006,1)
  1. ;;=W $$FLDNM^DDXPLIB(DDXPXTNO)
  1. ;;^DIST(.44,.006,3,0)
  1. ;;=^^5^5^2921106^
  1. ;;^DIST(.44,.006,3,1,0)
  1. ;;=The format creates records with comma delimited fields. Non-numeric
  1. ;;^DIST(.44,.006,3,2,0)
  1. ;;=fields are in quotes. The user is prompted for field names that are
  1. ;;^DIST(.44,.006,3,3,0)
  1. ;;=output as the first line of the exported file.
  1. ;;^DIST(.44,.006,3,4,0)
  1. ;;=This format was designed to be used to create a Data File for use with
  1. ;;^DIST(.44,.006,3,5,0)
  1. ;;=Microsoft Word's Print Merge utility.
  1. ;;^DIST(.44,.006,4,0)
  1. ;;=^^6^6^2921106^
  1. ;;^DIST(.44,.006,4,1,0)
  1. ;;=Use the exported file as the Data File for Microsoft Word's Print Merge
  1. ;;^DIST(.44,.006,4,2,0)
  1. ;;=utility. The Merge Field names are contained in the first line of exported
  1. ;;^DIST(.44,.006,4,3,0)
  1. ;;=data. See the Word documentation and Descriptions of Other Names for
  1. ;;^DIST(.44,.006,4,4,0)
  1. ;;=instructions for importing into various versions of Word.
  1. ;;^DIST(.44,.006,4,5,0)
  1. ;;=(Note: Word does not allow spaces and some other punctuation in the Merge
  1. ;;^DIST(.44,.006,4,6,0)
  1. ;;=Field names.)
  1. ;;^DIST(.44,.006,5,0)
  1. ;;=^.441^3^3
  1. ;;^DIST(.44,.006,5,1,0)
  1. ;;=WORD 5.0 (MACINTOSH)
  1. ;;^DIST(.44,.006,5,1,1,0)
  1. ;;=^^7^7^2921106^
  1. ;;^DIST(.44,.006,5,1,1,1,0)
  1. ;;=To use the exported file as a Data File:
  1. ;;^DIST(.44,.006,5,1,1,2,0)
  1. ;;=1) With Main Document open, select Print Merge Helper on the View menu and
  1. ;;^DIST(.44,.006,5,1,1,3,0)
  1. ;;=choose the exported file as the Data File.
  1. ;;^DIST(.44,.006,5,1,1,4,0)
  1. ;;=2)From the Insert Field Names box on the Print Merge Helper bar, insert
  1. ;;^DIST(.44,.006,5,1,1,5,0)
  1. ;;=the field names into the Main Document.
  1. ;;^DIST(.44,.006,5,1,1,6,0)
  1. ;;=3)Select Print Merge from the File menu to merge the exported data into
  1. ;;^DIST(.44,.006,5,1,1,7,0)
  1. ;;=the Main Document.
  1. ;;^DIST(.44,.006,5,2,0)
  1. ;;=WORD 4.0 (MACINTOSH)
  1. ;;^DIST(.44,.006,5,2,1,0)
  1. ;;=^^8^8^2921106^
  1. ;;^DIST(.44,.006,5,2,1,1,0)
  1. ;;=To use the exported file as a Data file:
  1. ;;^DIST(.44,.006,5,2,1,2,0)
  1. ;;=1)Into the main document enter the Merge Instruction 'DATA' followed by
  1. ;;^DIST(.44,.006,5,2,1,3,0)
  1. ;;=the file name of your exported file surrounded by Merge Quotes.
  1. ;;^DIST(.44,.006,5,2,1,4,0)
  1. ;;=2)Enter your field names in the Main Document. The names must match
  1. ;;^DIST(.44,.006,5,2,1,5,0)
  1. ;;=exactly those on the first line of the Data (exported) file and be
  1. ;;^DIST(.44,.006,5,2,1,6,0)
  1. ;;=surrounded by Merge Quotes (<OPTION-\> AND <OPTION-SHIFT-\>).
  1. ;;^DIST(.44,.006,5,2,1,7,0)
  1. ;;=3)Select Print Merge from the File menu to merge the data into the Main
  1. ;;^DIST(.44,.006,5,2,1,8,0)
  1. ;;=Document.
  1. ;;^DIST(.44,.006,5,3,0)
  1. ;;=WINWORD 2.0
  1. ;;^DIST(.44,.006,5,3,1,0)
  1. ;;=^^7^7^2921106^
  1. ;;^DIST(.44,.006,5,3,1,1,0)
  1. ;;=To use the exported file as the Data file:
  1. ;;^DIST(.44,.006,5,3,1,2,0)
  1. ;;=1) With the Main Document open, select Print Merge from the File menu and
  1. ;;^DIST(.44,.006,5,3,1,3,0)
  1. ;;=press Attach Data File button. Select your exported file as the Data
  1. ;;^DIST(.44,.006,5,3,1,4,0)
  1. ;;=file.
  1. ;;^DIST(.44,.006,5,3,1,5,0)
  1. ;;=2) Use the Insert Merge Fields box to place Merge Fields in the Main
  1. ;;^DIST(.44,.006,5,3,1,6,0)
  1. ;;=Document.
  1. ;;^DIST(.44,.006,5,3,1,7,0)
  1. ;;=3) Again select Print Merge from the File menu and press the Merge button.
  1. ;;^DIST(.44,.006,5,"B","WINWORD 2.0",3)
  1. ;;=
  1. ;;^DIST(.44,.006,5,"B","WORD 4.0 (MACINTOSH)",2)
  1. ;;=
  1. ;;^DIST(.44,.006,5,"B","WORD 5.0 (MACINTOSH)",1)
  1. ;;=