DINIT27B.m

DINIT27B ;ISCSF/DPC-FOREIGN FORMAT 1-2-3 IMPORT NUMBERS ;1/11/93  2:34 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="" ^DINIT27C S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

 Q

ENTRY ;

 ;;^DIST(.44,.002,0)

 ;;=1-2-3 IMPORT NUMBERS^032^^^^^^0^1^1^1^1^0

 ;;^DIST(.44,.002,3,0)

 ;;=^^9^9^2930107^

 ;;^DIST(.44,.002,3,1,0)

 ;;=This format exports data for use with LOTUS 1-2-3 spreadsheets.

 ;;^DIST(.44,.002,3,2,0)

 ;;=Non-numeric fields will be in quotes.  Each field will be separated by

 ;;^DIST(.44,.002,3,3,0)

 ;;=a space.  Null-valued numeric fields in the primary file will be converted

 ;;^DIST(.44,.002,3,4,0)

 ;;=to a zero ('0'). WARNING: If the value of a field that is not in the

 ;;^DIST(.44,.002,3,5,0)

 ;;=primary file or that is not defined in the VA FILEMAN data dictionary as

 ;;^DIST(.44,.002,3,6,0)

 ;;=numeric is null or zero, nothing is output. That is, a zero (0) is NOT

 ;;^DIST(.44,.002,3,7,0)

 ;;=output.  This will destroy the positional results of the data and will

 ;;^DIST(.44,.002,3,8,0)

 ;;=install data in incorrect columns!!  If this situation is possible, do NOT

 ;;^DIST(.44,.002,3,9,0)

 ;;=use this format; consider the 123 DATA PARSE format.

 ;;^DIST(.44,.002,4,0)

 ;;=^^4^4^2930107^

 ;;^DIST(.44,.002,4,1,0)

 ;;=To import into 1-2-3, choose FILE->IMPORT->NUMBERS.

 ;;^DIST(.44,.002,4,2,0)

 ;;=Field values will automatically be placed into columns.

 ;;^DIST(.44,.002,4,3,0)

 ;;=Lotus 1-2-3 will automatically recognize your file for import if it has an

 ;;^DIST(.44,.002,4,4,0)

 ;;=extension of '.PRN'.

 ;;^DIST(.44,.002,5,0)

 ;;=^.441^1^1

 ;;^DIST(.44,.002,5,1,0)

 ;;=LOTUS 123 (NUMBERS)

 ;;^DIST(.44,.002,5,"B","LOTUS 123 (NUMBERS)",1)

 ;;=

DINIT27B  ;ISCSF/DPC-FOREIGN FORMAT 1-2-3 IMPORT NUMBERS ;1/11/93  2:34 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 ^DINIT27C

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

 +4        QUIT 

ENTRY     ;

 +1       ;;^DIST(.44,.002,0)

 +2       ;;=1-2-3 IMPORT NUMBERS^032^^^^^^0^1^1^1^1^0

 +3       ;;^DIST(.44,.002,3,0)

 +4       ;;=^^9^9^2930107^

 +5       ;;^DIST(.44,.002,3,1,0)

 +6       ;;=This format exports data for use with LOTUS 1-2-3 spreadsheets.

 +7       ;;^DIST(.44,.002,3,2,0)

 +8       ;;=Non-numeric fields will be in quotes.  Each field will be separated by

 +9       ;;^DIST(.44,.002,3,3,0)

 +10      ;;=a space.  Null-valued numeric fields in the primary file will be converted

 +11      ;;^DIST(.44,.002,3,4,0)

 +12      ;;=to a zero ('0'). WARNING: If the value of a field that is not in the

 +13      ;;^DIST(.44,.002,3,5,0)

 +14      ;;=primary file or that is not defined in the VA FILEMAN data dictionary as

 +15      ;;^DIST(.44,.002,3,6,0)

 +16      ;;=numeric is null or zero, nothing is output. That is, a zero (0) is NOT

 +17      ;;^DIST(.44,.002,3,7,0)

 +18      ;;=output.  This will destroy the positional results of the data and will

 +19      ;;^DIST(.44,.002,3,8,0)

 +20      ;;=install data in incorrect columns!!  If this situation is possible, do NOT

 +21      ;;^DIST(.44,.002,3,9,0)

 +22      ;;=use this format; consider the 123 DATA PARSE format.

 +23      ;;^DIST(.44,.002,4,0)

 +24      ;;=^^4^4^2930107^

 +25      ;;^DIST(.44,.002,4,1,0)

 +26      ;;=To import into 1-2-3, choose FILE->IMPORT->NUMBERS.

 +27      ;;^DIST(.44,.002,4,2,0)

 +28      ;;=Field values will automatically be placed into columns.

 +29      ;;^DIST(.44,.002,4,3,0)

 +30      ;;=Lotus 1-2-3 will automatically recognize your file for import if it has an

 +31      ;;^DIST(.44,.002,4,4,0)

 +32      ;;=extension of '.PRN'.

 +33      ;;^DIST(.44,.002,5,0)

 +34      ;;=^.441^1^1

 +35      ;;^DIST(.44,.002,5,1,0)

 +36      ;;=LOTUS 123 (NUMBERS)

 +37      ;;^DIST(.44,.002,5,"B","LOTUS 123 (NUMBERS)",1)

 +38      ;;=