Annotation of freem_fileman/DIINI001.m, revision 1.1.1.1
1.1 snw 1: DIINI001 ; ; 22-DEC-1994
2: ;;21.0;VA FileMan;;Dec 28, 1994
3: ;Per VHA Directive 10-93-142, this routine should not be modified.
4: F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
5: Q Q
6: ;;^UTILITY(U,$J,"KEY",24,0)
7: ;;=DIEXTRACT
8: ;;^UTILITY(U,$J,"KEY",24,1,0)
9: ;;=^^3^3^2930106^
10: ;;^UTILITY(U,$J,"KEY",24,1,1,0)
11: ;;=
12: ;;^UTILITY(U,$J,"KEY",24,1,2,0)
13: ;;=This key is needed to access the menu for extracting data to a VA FileMan
14: ;;^UTILITY(U,$J,"KEY",24,1,3,0)
15: ;;=file.
16: ;;^UTILITY(U,$J,"KEY",25,0)
17: ;;=DDXP-DEFINE
18: ;;^UTILITY(U,$J,"KEY",25,1,0)
19: ;;=^^3^3^2930108^^
20: ;;^UTILITY(U,$J,"KEY",25,1,1,0)
21: ;;=Holders of this key can use the Define Foreign File Format option. That
22: ;;^UTILITY(U,$J,"KEY",25,1,2,0)
23: ;;=option defines foreign formats, modifies existing formats that have not
24: ;;^UTILITY(U,$J,"KEY",25,1,3,0)
25: ;;=been used to create an export template, and clones formats.
26: ;;^UTILITY(U,$J,"OPT",9,0)
27: ;;=DIEDIT^Enter or Edit File Entries^^A^^^^^^^^^n^1^^
28: ;;^UTILITY(U,$J,"OPT",9,1,0)
29: ;;=^^2^2^2890316^^^^
30: ;;^UTILITY(U,$J,"OPT",9,1,1,0)
31: ;;=This option is used to enter new entries in a file or edit existing ones.
32: ;;^UTILITY(U,$J,"OPT",9,1,2,0)
33: ;;=You specify the file and fields within the file to edit.
34: ;;^UTILITY(U,$J,"OPT",9,20)
35: ;;=D ^DIB
36: ;;^UTILITY(U,$J,"OPT",9,99)
37: ;;=52905,54998
38: ;;^UTILITY(U,$J,"OPT",9,"U")
39: ;;=ENTER OR EDIT FILE ENTRIES
40: ;;^UTILITY(U,$J,"OPT",10,0)
41: ;;=DIPRINT^Print File Entries^^A^^^^^^^y^^n^1^^
42: ;;^UTILITY(U,$J,"OPT",10,1,0)
43: ;;=^^3^3^2910625^^^^
44: ;;^UTILITY(U,$J,"OPT",10,1,1,0)
45: ;;=This option is used to print a report from a file, where a number of
46: ;;^UTILITY(U,$J,"OPT",10,1,2,0)
47: ;;=entries are to be listed in a columnar format. Each column can be
48: ;;^UTILITY(U,$J,"OPT",10,1,3,0)
49: ;;=individually controlled for format, tabulation, justification, etc.
50: ;;^UTILITY(U,$J,"OPT",10,20)
51: ;;=D ^DIP
52: ;;^UTILITY(U,$J,"OPT",10,99.1)
53: ;;=55061,47656
54: ;;^UTILITY(U,$J,"OPT",10,"U")
55: ;;=PRINT FILE ENTRIES
56: ;;^UTILITY(U,$J,"OPT",11,0)
57: ;;=DISEARCH^Search File Entries^^A^^^^^^^y^^n^1^^
58: ;;^UTILITY(U,$J,"OPT",11,1,0)
59: ;;=^^3^3^2930728^^^^
60: ;;^UTILITY(U,$J,"OPT",11,1,1,0)
61: ;;=This option is used to print a report in which entries are to be selected
62: ;;^UTILITY(U,$J,"OPT",11,1,2,0)
63: ;;=according to a pre-determined set of criteria. After the search criteria
64: ;;^UTILITY(U,$J,"OPT",11,1,3,0)
65: ;;=is met, a standard report will be generated.
66: ;;^UTILITY(U,$J,"OPT",11,20)
67: ;;=D ^DIS
68: ;;^UTILITY(U,$J,"OPT",11,"U")
69: ;;=SEARCH FILE ENTRIES
70: ;;^UTILITY(U,$J,"OPT",12,0)
71: ;;=DIMODIFY^Modify File Attributes^^A^^^^^^^^^n^1^^
72: ;;^UTILITY(U,$J,"OPT",12,1,0)
73: ;;=^^2^2^2890316^^^
74: ;;^UTILITY(U,$J,"OPT",12,1,1,0)
75: ;;=This option is used to modify the structure of a file or the
76: ;;^UTILITY(U,$J,"OPT",12,1,2,0)
77: ;;=characteristics of its fields.
78: ;;^UTILITY(U,$J,"OPT",12,20)
79: ;;=D ^DICATT
80: ;;^UTILITY(U,$J,"OPT",12,"U")
81: ;;=MODIFY FILE ATTRIBUTES
82: ;;^UTILITY(U,$J,"OPT",13,0)
83: ;;=DIINQUIRE^Inquire to File Entries^^A^^^^^^^^^n^1^^
84: ;;^UTILITY(U,$J,"OPT",13,1,0)
85: ;;=3^^4^4^2890316^^
86: ;;^UTILITY(U,$J,"OPT",13,1,1,0)
87: ;;=This option is used to display all the data for a group of specified
88: ;;^UTILITY(U,$J,"OPT",13,1,2,0)
89: ;;=entries in a file. This is useful for a quick look at a small number
90: ;;^UTILITY(U,$J,"OPT",13,1,3,0)
91: ;;=of entries. Use the Print File Entries option for larger numbers
92: ;;^UTILITY(U,$J,"OPT",13,1,4,0)
93: ;;=of entries.
94: ;;^UTILITY(U,$J,"OPT",13,20)
95: ;;=D INQ^DII
96: ;;^UTILITY(U,$J,"OPT",13,"U")
97: ;;=INQUIRE TO FILE ENTRIES
98: ;;^UTILITY(U,$J,"OPT",14,0)
99: ;;=DIUTILITY^Utility Functions^^M^^^^^^^^^n^^
100: ;;^UTILITY(U,$J,"OPT",14,1,0)
101: ;;=^^2^2^2901205^^^^
102: ;;^UTILITY(U,$J,"OPT",14,1,1,0)
103: ;;=This option is a menu of VA FileMan utilities used to maintain the more
104: ;;^UTILITY(U,$J,"OPT",14,1,2,0)
105: ;;=technical aspects of files.
106: ;;^UTILITY(U,$J,"OPT",14,10,0)
107: ;;=^19.01IP^10^10
108: ;;^UTILITY(U,$J,"OPT",14,10,1,0)
109: ;;=163^^6
110: ;;^UTILITY(U,$J,"OPT",14,10,1,"^")
111: ;;=DIEDFILE
112: ;;^UTILITY(U,$J,"OPT",14,10,2,0)
113: ;;=159^^2
114: ;;^UTILITY(U,$J,"OPT",14,10,2,"^")
115: ;;=DIXREF
116: ;;^UTILITY(U,$J,"OPT",14,10,3,0)
117: ;;=162^^5
118: ;;^UTILITY(U,$J,"OPT",14,10,3,"^")
119: ;;=DIITRAN
120: ;;^UTILITY(U,$J,"OPT",14,10,4,0)
121: ;;=160^^3
122: ;;^UTILITY(U,$J,"OPT",14,10,4,"^")
123: ;;=DIIDENT
124: ;;^UTILITY(U,$J,"OPT",14,10,5,0)
125: ;;=161^^4
126: ;;^UTILITY(U,$J,"OPT",14,10,5,"^")
127: ;;=DIRDEX
128: ;;^UTILITY(U,$J,"OPT",14,10,6,0)
129: ;;=164^^7
130: ;;^UTILITY(U,$J,"OPT",14,10,6,"^")
131: ;;=DIOTRAN
132: ;;^UTILITY(U,$J,"OPT",14,10,7,0)
133: ;;=165^^8
134: ;;^UTILITY(U,$J,"OPT",14,10,7,"^")
135: ;;=DITEMP
136: ;;^UTILITY(U,$J,"OPT",14,10,8,0)
137: ;;=166^^9
138: ;;^UTILITY(U,$J,"OPT",14,10,8,"^")
139: ;;=DIUNEDIT
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIINI001.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman