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 Sep 23, 2025@20:27:10 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 ;;=
