Annotation of freem_fileman/DIINI002.m, revision 1.1.1.1
1.1 snw 1: DIINI002 ; ; 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,"OPT",14,10,9,0)
7: ;;=158^^1
8: ;;^UTILITY(U,$J,"OPT",14,10,9,"^")
9: ;;=DIVERIFY
10: ;;^UTILITY(U,$J,"OPT",14,10,10,0)
11: ;;=336^^10
12: ;;^UTILITY(U,$J,"OPT",14,10,10,"^")
13: ;;=DIFIELD CHECK
14: ;;^UTILITY(U,$J,"OPT",14,20)
15: ;;=
16: ;;^UTILITY(U,$J,"OPT",14,99)
17: ;;=55633,47369
18: ;;^UTILITY(U,$J,"OPT",14,"U")
19: ;;=UTILITY FUNCTIONS
20: ;;^UTILITY(U,$J,"OPT",15,0)
21: ;;=DISTATISTICS^Statistics^^A^^^^^^^^^n^1^^
22: ;;^UTILITY(U,$J,"OPT",15,1,0)
23: ;;=^^3^3^2890316^^^
24: ;;^UTILITY(U,$J,"OPT",15,1,1,0)
25: ;;=After generating output from the Print File Entries or Search File Entries
26: ;;^UTILITY(U,$J,"OPT",15,1,2,0)
27: ;;=options, call upon the Statistics option to produce your choice of
28: ;;^UTILITY(U,$J,"OPT",15,1,3,0)
29: ;;=seven types of statistical tallies.
30: ;;^UTILITY(U,$J,"OPT",15,20)
31: ;;=D ^DIX
32: ;;^UTILITY(U,$J,"OPT",15,"U")
33: ;;=STATISTICS
34: ;;^UTILITY(U,$J,"OPT",16,0)
35: ;;=DILIST^List File Attributes^^A^^^^^^^y^^n^1^^
36: ;;^UTILITY(U,$J,"OPT",16,1,0)
37: ;;=^^3^3^2890316^^^^
38: ;;^UTILITY(U,$J,"OPT",16,1,1,0)
39: ;;=This option is used to print data dictionary listings for a given file.
40: ;;^UTILITY(U,$J,"OPT",16,1,2,0)
41: ;;=This listing is useful for programmers, analysts, and others interested
42: ;;^UTILITY(U,$J,"OPT",16,1,3,0)
43: ;;=in data base structures.
44: ;;^UTILITY(U,$J,"OPT",16,20)
45: ;;=D ^DID
46: ;;^UTILITY(U,$J,"OPT",16,99.1)
47: ;;=54447,33461
48: ;;^UTILITY(U,$J,"OPT",16,"U")
49: ;;=LIST FILE ATTRIBUTES
50: ;;^UTILITY(U,$J,"OPT",17,0)
51: ;;=DITRANSFER^Transfer Entries^^A^^^^^^^^^n^1^^
52: ;;^UTILITY(U,$J,"OPT",17,1,0)
53: ;;=^^2^2^2890316^^^^
54: ;;^UTILITY(U,$J,"OPT",17,1,1,0)
55: ;;=This option is used to transfer entries from one file to another or to
56: ;;^UTILITY(U,$J,"OPT",17,1,2,0)
57: ;;=merge data from one entry to another in the same file.
58: ;;^UTILITY(U,$J,"OPT",17,20)
59: ;;=D ^DIT
60: ;;^UTILITY(U,$J,"OPT",17,"U")
61: ;;=TRANSFER ENTRIES
62: ;;^UTILITY(U,$J,"OPT",18,0)
63: ;;=DIUSER^VA FileMan^^M^^^^^^^^^n^1^^
64: ;;^UTILITY(U,$J,"OPT",18,1,0)
65: ;;=^^2^2^2910205^^^^
66: ;;^UTILITY(U,$J,"OPT",18,1,1,0)
67: ;;=This option branches to the VA FileMan main menu, which allows you
68: ;;^UTILITY(U,$J,"OPT",18,1,2,0)
69: ;;=to enter, edit, report, inquire, and maintain data dictionaries.
70: ;;^UTILITY(U,$J,"OPT",18,10,0)
71: ;;=^19.01IP^11^9
72: ;;^UTILITY(U,$J,"OPT",18,10,1,0)
73: ;;=9^^1
74: ;;^UTILITY(U,$J,"OPT",18,10,1,"^")
75: ;;=DIEDIT
76: ;;^UTILITY(U,$J,"OPT",18,10,2,0)
77: ;;=13^^5
78: ;;^UTILITY(U,$J,"OPT",18,10,2,"^")
79: ;;=DIINQUIRE
80: ;;^UTILITY(U,$J,"OPT",18,10,4,0)
81: ;;=12^^4
82: ;;^UTILITY(U,$J,"OPT",18,10,4,"^")
83: ;;=DIMODIFY
84: ;;^UTILITY(U,$J,"OPT",18,10,5,0)
85: ;;=10^^2
86: ;;^UTILITY(U,$J,"OPT",18,10,5,"^")
87: ;;=DIPRINT
88: ;;^UTILITY(U,$J,"OPT",18,10,6,0)
89: ;;=11^^3
90: ;;^UTILITY(U,$J,"OPT",18,10,6,"^")
91: ;;=DISEARCH
92: ;;^UTILITY(U,$J,"OPT",18,10,8,0)
93: ;;=17^^9
94: ;;^UTILITY(U,$J,"OPT",18,10,8,"^")
95: ;;=DITRANSFER
96: ;;^UTILITY(U,$J,"OPT",18,10,9,0)
97: ;;=14^^6
98: ;;^UTILITY(U,$J,"OPT",18,10,9,"^")
99: ;;=DIUTILITY
100: ;;^UTILITY(U,$J,"OPT",18,10,10,0)
101: ;;=292^^10
102: ;;^UTILITY(U,$J,"OPT",18,10,10,"^")
103: ;;=DIOTHER
104: ;;^UTILITY(U,$J,"OPT",18,10,11,0)
105: ;;=349^^8
106: ;;^UTILITY(U,$J,"OPT",18,10,11,"^")
107: ;;=DI DDU
108: ;;^UTILITY(U,$J,"OPT",18,20)
109: ;;=W !!?10,"VA FileMan Version "_^DD("VERSION")
110: ;;^UTILITY(U,$J,"OPT",18,99)
111: ;;=55633,47363
112: ;;^UTILITY(U,$J,"OPT",18,99.1)
113: ;;=53890,48786
114: ;;^UTILITY(U,$J,"OPT",18,1613)
115: ;;=
116: ;;^UTILITY(U,$J,"OPT",18,"U")
117: ;;=VA FILEMAN
118: ;;^UTILITY(U,$J,"OPT",104,0)
119: ;;=DI DDMAP^Map Pointer Relations^^R^^^^^^^^^^
120: ;;^UTILITY(U,$J,"OPT",104,1,0)
121: ;;=^^3^3^2910706^
122: ;;^UTILITY(U,$J,"OPT",104,1,1,0)
123: ;;=This option prints a map of the pointer relations between a group of
124: ;;^UTILITY(U,$J,"OPT",104,1,2,0)
125: ;;=files. The file selection is from the package file or entered
126: ;;^UTILITY(U,$J,"OPT",104,1,3,0)
127: ;;=individually.
128: ;;^UTILITY(U,$J,"OPT",104,25)
129: ;;=DDMAP
130: ;;^UTILITY(U,$J,"OPT",104,136)
131: ;;=
132: ;;^UTILITY(U,$J,"OPT",104,"U")
133: ;;=MAP POINTER RELATIONS
134: ;;^UTILITY(U,$J,"OPT",158,0)
135: ;;=DIVERIFY^Verify Fields^^A^^^^^^^^^n^1^^
136: ;;^UTILITY(U,$J,"OPT",158,1,0)
137: ;;=^^4^4^2890316^^^
138: ;;^UTILITY(U,$J,"OPT",158,1,1,0)
139: ;;=This option is used to double check the data that exists in a field
140: ;;^UTILITY(U,$J,"OPT",158,1,2,0)
141: ;;=to see that it matches the Data Dictionary specifications. The user
142: ;;^UTILITY(U,$J,"OPT",158,1,3,0)
143: ;;=is allowed to store the discrepancies in a search template so that they
144: ;;^UTILITY(U,$J,"OPT",158,1,4,0)
145: ;;=can easily be retrieved for examination and correction.
146: ;;^UTILITY(U,$J,"OPT",158,20)
147: ;;=S DI=1 G EN^DIU
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIINI002.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman