DINIT27C.m

DINIT27C ;SFISC/DPC-FOREIGN FORMAT EXCEL(COMMA) ;11/30/92  3:39 PM

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 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)

 ;;=

DINIT27C  ;SFISC/DPC-FOREIGN FORMAT EXCEL(COMMA) ;11/30/92  3:39 PM

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        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

 +4        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      ;;=