DINIT27B ;ISCSF/DPC-FOREIGN FORMAT 1-2-3 IMPORT NUMBERS ;1/11/93 2:34 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="" ^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)
;;=
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT27B 2020 printed Sep 23, 2025@20:27:07 Page 2
DINIT27B ;ISCSF/DPC-FOREIGN FORMAT 1-2-3 IMPORT NUMBERS ;1/11/93 2:34 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 ^DINIT27C
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 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 ;;=
