- DINIT27E ;SFISC/DPC-FOREIGN FORMAT EXCEL(TAB) ;11/30/92 3:44 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="" ^DINIT27F S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
- Q
- ENTRY ;
- ;;^DIST(.44,.005,0)
- ;;=EXCEL (TAB)^009^^^^^^^1^^^1
- ;;^DIST(.44,.005,3,0)
- ;;=^^2^2^2921120^
- ;;^DIST(.44,.005,3,1,0)
- ;;=Format used to export data to EXCEL spreadsheet running on the Macintosh
- ;;^DIST(.44,.005,3,2,0)
- ;;=or under Windows. A <TAB> is placed between each field's value.
- ;;^DIST(.44,.005,4,0)
- ;;=^^6^6^2921120^^^
- ;;^DIST(.44,.005,4,1,0)
- ;;=Select the Open command on Excel's File menu. Press the TEXT button and
- ;;^DIST(.44,.005,4,2,0)
- ;;=make sure that the Column Delimiter is set to "TAB." Select the file.
- ;;^DIST(.44,.005,4,3,0)
- ;;=Each field's values will be imported into columns.
- ;;^DIST(.44,.005,4,4,0)
- ;;=If you are capturing data to make your export file, be sure that the <TAB>
- ;;^DIST(.44,.005,4,5,0)
- ;;=(ASCII value 009) is not converted to spaces by your communications
- ;;^DIST(.44,.005,4,6,0)
- ;;=software.
- ;;^DIST(.44,.005,5,0)
- ;;=^.441^1^1
- ;;^DIST(.44,.005,5,1,0)
- ;;=Tab Delimited
- ;;^DIST(.44,.005,5,1,1,0)
- ;;=^^1^1^2921120^^
- ;;^DIST(.44,.005,5,1,1,1,0)
- ;;=A <TAB> is placed between each field's value.
- ;;^DIST(.44,.005,5,"B","Tab Delimited",1)
- ;;=
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT27E 1622 printed Feb 19, 2025@00:17:18 Page 2
- DINIT27E ;SFISC/DPC-FOREIGN FORMAT EXCEL(TAB) ;11/30/92 3:44 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 ^DINIT27F
- SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
- SET X=$EXTRACT(X,4,999)
- SET @X=Y
- +8 QUIT
- ENTRY ;
- +1 ;;^DIST(.44,.005,0)
- +2 ;;=EXCEL (TAB)^009^^^^^^^1^^^1
- +3 ;;^DIST(.44,.005,3,0)
- +4 ;;=^^2^2^2921120^
- +5 ;;^DIST(.44,.005,3,1,0)
- +6 ;;=Format used to export data to EXCEL spreadsheet running on the Macintosh
- +7 ;;^DIST(.44,.005,3,2,0)
- +8 ;;=or under Windows. A <TAB> is placed between each field's value.
- +9 ;;^DIST(.44,.005,4,0)
- +10 ;;=^^6^6^2921120^^^
- +11 ;;^DIST(.44,.005,4,1,0)
- +12 ;;=Select the Open command on Excel's File menu. Press the TEXT button and
- +13 ;;^DIST(.44,.005,4,2,0)
- +14 ;;=make sure that the Column Delimiter is set to "TAB." Select the file.
- +15 ;;^DIST(.44,.005,4,3,0)
- +16 ;;=Each field's values will be imported into columns.
- +17 ;;^DIST(.44,.005,4,4,0)
- +18 ;;=If you are capturing data to make your export file, be sure that the <TAB>
- +19 ;;^DIST(.44,.005,4,5,0)
- +20 ;;=(ASCII value 009) is not converted to spaces by your communications
- +21 ;;^DIST(.44,.005,4,6,0)
- +22 ;;=software.
- +23 ;;^DIST(.44,.005,5,0)
- +24 ;;=^.441^1^1
- +25 ;;^DIST(.44,.005,5,1,0)
- +26 ;;=Tab Delimited
- +27 ;;^DIST(.44,.005,5,1,1,0)
- +28 ;;=^^1^1^2921120^^
- +29 ;;^DIST(.44,.005,5,1,1,1,0)
- +30 ;;=A <TAB> is placed between each field's value.
- +31 ;;^DIST(.44,.005,5,"B","Tab Delimited",1)
- +32 ;;=