DINIT27C ;SFISC/DPC-FOREIGN FORMAT EXCEL(COMMA) ;11/30/92 3:39 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="" ^DINIT27D S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.44,.003,0)
;;=EXCEL (COMMA)^,^^^^^^1000^1^1^1^1
;;^DIST(.44,.003,3,0)
;;=^^6^6^2921120^
;;^DIST(.44,.003,3,1,0)
;;=Use this format to export data to the EXCEL spreadsheet running
;;^DIST(.44,.003,3,2,0)
;;=on the Macintosh or under Windows. The exported data will have a comma
;;^DIST(.44,.003,3,3,0)
;;=between each field's value. The user will be asked to specify the data
;;^DIST(.44,.003,3,4,0)
;;=type of each exported field. Those fields that are not numeric will be
;;^DIST(.44,.003,3,5,0)
;;=surrounded by quotes ("). Commas are allowed in the non-numeric data, but
;;^DIST(.44,.003,3,6,0)
;;=quotes (") are not.
;;^DIST(.44,.003,4,0)
;;=^^3^3^2921120^^^^
;;^DIST(.44,.003,4,1,0)
;;=Select the Open command on Excel's File menu. Press the TEXT button and
;;^DIST(.44,.003,4,2,0)
;;=make sure that the Column Delimiter is set to "comma." Select the file.
;;^DIST(.44,.003,4,3,0)
;;=Each field's values will be imported into columns.
;;^DIST(.44,.003,5,0)
;;=^.441^2^2
;;^DIST(.44,.003,5,1,0)
;;=COMMA DELIMITED
;;^DIST(.44,.003,5,1,1,0)
;;=^^2^2^2921015^
;;^DIST(.44,.003,5,1,1,1,0)
;;=Exported data is delimited by commas. Non-numeric data is surrounded by
;;^DIST(.44,.003,5,1,1,2,0)
;;=quotes.
;;^DIST(.44,.003,5,2,0)
;;=CSV
;;^DIST(.44,.003,5,2,1,0)
;;=^^1^1^2921120^^
;;^DIST(.44,.003,5,2,1,1,0)
;;=Comma Separated Values.
;;^DIST(.44,.003,5,"B","COMMA DELIMITED",1)
;;=
;;^DIST(.44,.003,5,"B","CSV",2)
;;=
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT27C 2004 printed Nov 22, 2024@18:00:58 Page 2
DINIT27C ;SFISC/DPC-FOREIGN FORMAT EXCEL(COMMA) ;11/30/92 3:39 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 ^DINIT27D
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.44,.003,0)
+2 ;;=EXCEL (COMMA)^,^^^^^^1000^1^1^1^1
+3 ;;^DIST(.44,.003,3,0)
+4 ;;=^^6^6^2921120^
+5 ;;^DIST(.44,.003,3,1,0)
+6 ;;=Use this format to export data to the EXCEL spreadsheet running
+7 ;;^DIST(.44,.003,3,2,0)
+8 ;;=on the Macintosh or under Windows. The exported data will have a comma
+9 ;;^DIST(.44,.003,3,3,0)
+10 ;;=between each field's value. The user will be asked to specify the data
+11 ;;^DIST(.44,.003,3,4,0)
+12 ;;=type of each exported field. Those fields that are not numeric will be
+13 ;;^DIST(.44,.003,3,5,0)
+14 ;;=surrounded by quotes ("). Commas are allowed in the non-numeric data, but
+15 ;;^DIST(.44,.003,3,6,0)
+16 ;;=quotes (") are not.
+17 ;;^DIST(.44,.003,4,0)
+18 ;;=^^3^3^2921120^^^^
+19 ;;^DIST(.44,.003,4,1,0)
+20 ;;=Select the Open command on Excel's File menu. Press the TEXT button and
+21 ;;^DIST(.44,.003,4,2,0)
+22 ;;=make sure that the Column Delimiter is set to "comma." Select the file.
+23 ;;^DIST(.44,.003,4,3,0)
+24 ;;=Each field's values will be imported into columns.
+25 ;;^DIST(.44,.003,5,0)
+26 ;;=^.441^2^2
+27 ;;^DIST(.44,.003,5,1,0)
+28 ;;=COMMA DELIMITED
+29 ;;^DIST(.44,.003,5,1,1,0)
+30 ;;=^^2^2^2921015^
+31 ;;^DIST(.44,.003,5,1,1,1,0)
+32 ;;=Exported data is delimited by commas. Non-numeric data is surrounded by
+33 ;;^DIST(.44,.003,5,1,1,2,0)
+34 ;;=quotes.
+35 ;;^DIST(.44,.003,5,2,0)
+36 ;;=CSV
+37 ;;^DIST(.44,.003,5,2,1,0)
+38 ;;=^^1^1^2921120^^
+39 ;;^DIST(.44,.003,5,2,1,1,0)
+40 ;;=Comma Separated Values.
+41 ;;^DIST(.44,.003,5,"B","COMMA DELIMITED",1)
+42 ;;=
+43 ;;^DIST(.44,.003,5,"B","CSV",2)
+44 ;;=
