source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT27B.m@ 711

Last change on this file since 711 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1DINIT27B ;ISCSF/DPC-FOREIGN FORMAT 1-2-3 IMPORT NUMBERS ;1/11/93 2:34 PM
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 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
5 Q
6ENTRY ;
7 ;;^DIST(.44,.002,0)
8 ;;=1-2-3 IMPORT NUMBERS^032^^^^^^0^1^1^1^1^0
9 ;;^DIST(.44,.002,3,0)
10 ;;=^^9^9^2930107^
11 ;;^DIST(.44,.002,3,1,0)
12 ;;=This format exports data for use with LOTUS 1-2-3 spreadsheets.
13 ;;^DIST(.44,.002,3,2,0)
14 ;;=Non-numeric fields will be in quotes. Each field will be separated by
15 ;;^DIST(.44,.002,3,3,0)
16 ;;=a space. Null-valued numeric fields in the primary file will be converted
17 ;;^DIST(.44,.002,3,4,0)
18 ;;=to a zero ('0'). WARNING: If the value of a field that is not in the
19 ;;^DIST(.44,.002,3,5,0)
20 ;;=primary file or that is not defined in the VA FILEMAN data dictionary as
21 ;;^DIST(.44,.002,3,6,0)
22 ;;=numeric is null or zero, nothing is output. That is, a zero (0) is NOT
23 ;;^DIST(.44,.002,3,7,0)
24 ;;=output. This will destroy the positional results of the data and will
25 ;;^DIST(.44,.002,3,8,0)
26 ;;=install data in incorrect columns!! If this situation is possible, do NOT
27 ;;^DIST(.44,.002,3,9,0)
28 ;;=use this format; consider the 123 DATA PARSE format.
29 ;;^DIST(.44,.002,4,0)
30 ;;=^^4^4^2930107^
31 ;;^DIST(.44,.002,4,1,0)
32 ;;=To import into 1-2-3, choose FILE->IMPORT->NUMBERS.
33 ;;^DIST(.44,.002,4,2,0)
34 ;;=Field values will automatically be placed into columns.
35 ;;^DIST(.44,.002,4,3,0)
36 ;;=Lotus 1-2-3 will automatically recognize your file for import if it has an
37 ;;^DIST(.44,.002,4,4,0)
38 ;;=extension of '.PRN'.
39 ;;^DIST(.44,.002,5,0)
40 ;;=^.441^1^1
41 ;;^DIST(.44,.002,5,1,0)
42 ;;=LOTUS 123 (NUMBERS)
43 ;;^DIST(.44,.002,5,"B","LOTUS 123 (NUMBERS)",1)
44 ;;=
Note: See TracBrowser for help on using the repository browser.