Annotation of freem_fileman/DIINI003.m, revision 1.1.1.1
1.1 snw 1: DIINI003 ; ; 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",158,"U")
7: ;;=VERIFY FIELDS
8: ;;^UTILITY(U,$J,"OPT",159,0)
9: ;;=DIXREF^Cross-Reference A Field^^A^^^^^^^^^n^1^^
10: ;;^UTILITY(U,$J,"OPT",159,1,0)
11: ;;=^^5^5^2890316^
12: ;;^UTILITY(U,$J,"OPT",159,1,1,0)
13: ;;=The Cross-Reference a Field sub-option of the Utility Functions option
14: ;;^UTILITY(U,$J,"OPT",159,1,2,0)
15: ;;=allows you to identify a field or sub-field for cross-referencing or
16: ;;^UTILITY(U,$J,"OPT",159,1,3,0)
17: ;;=for removing cross-referencing from an identified field.
18: ;;^UTILITY(U,$J,"OPT",159,1,4,0)
19: ;;=VA FileMan currently has seven types of cross-references -- Regular,
20: ;;^UTILITY(U,$J,"OPT",159,1,5,0)
21: ;;=KWIC, Mnemonic, MUMPS, Soundex, Trigger and Bulletin.
22: ;;^UTILITY(U,$J,"OPT",159,20)
23: ;;=S DI=2 G EN^DIU
24: ;;^UTILITY(U,$J,"OPT",159,"U")
25: ;;=CROSS-REFERENCE A FIELD
26: ;;^UTILITY(U,$J,"OPT",160,0)
27: ;;=DIIDENT^Identifier^^A^^^^^^^^^n^1^^
28: ;;^UTILITY(U,$J,"OPT",160,1,0)
29: ;;=^^4^4^2890316^
30: ;;^UTILITY(U,$J,"OPT",160,1,1,0)
31: ;;=Use the Identifier sub-option of the Utility Functions option to associate
32: ;;^UTILITY(U,$J,"OPT",160,1,2,0)
33: ;;=a field with the .01 (or NAME) field of a file. The field designated as
34: ;;^UTILITY(U,$J,"OPT",160,1,3,0)
35: ;;=an identifier can be displayed along with the selected entry to help
36: ;;^UTILITY(U,$J,"OPT",160,1,4,0)
37: ;;=a user positively identify the entry.
38: ;;^UTILITY(U,$J,"OPT",160,20)
39: ;;=S DI=3 G EN^DIU
40: ;;^UTILITY(U,$J,"OPT",160,"U")
41: ;;=IDENTIFIER
42: ;;^UTILITY(U,$J,"OPT",161,0)
43: ;;=DIRDEX^Re-Index File^^A^^^^^^^^^n^1^^
44: ;;^UTILITY(U,$J,"OPT",161,1,0)
45: ;;=^^4^4^2890316^
46: ;;^UTILITY(U,$J,"OPT",161,1,1,0)
47: ;;=The Re-index a File sub-option of the Utility Functions option allows
48: ;;^UTILITY(U,$J,"OPT",161,1,2,0)
49: ;;=you to re-index a file. This VA FileMan feature is especially helpful
50: ;;^UTILITY(U,$J,"OPT",161,1,3,0)
51: ;;=when you create a new cross reference on a field that already contains
52: ;;^UTILITY(U,$J,"OPT",161,1,4,0)
53: ;;=data.
54: ;;^UTILITY(U,$J,"OPT",161,20)
55: ;;=S DI=4 G EN^DIU
56: ;;^UTILITY(U,$J,"OPT",161,"U")
57: ;;=RE-INDEX FILE
58: ;;^UTILITY(U,$J,"OPT",162,0)
59: ;;=DIITRAN^Input Transform (Syntax)^^A^^^^^^^^^n^1^^
60: ;;^UTILITY(U,$J,"OPT",162,1,0)
61: ;;=^^4^4^2901212^^^
62: ;;^UTILITY(U,$J,"OPT",162,1,1,0)
63: ;;=The Input Transform sub-option of the Utility Functions option allows
64: ;;^UTILITY(U,$J,"OPT",162,1,2,0)
65: ;;=you to enter an executable string of MUMPS code which is used to check
66: ;;^UTILITY(U,$J,"OPT",162,1,3,0)
67: ;;=the validity of user input and will then convert the input into an
68: ;;^UTILITY(U,$J,"OPT",162,1,4,0)
69: ;;=internal form for storage.
70: ;;^UTILITY(U,$J,"OPT",162,20)
71: ;;=Q:DUZ(0)'="@" S DI=5 G EN^DIU
72: ;;^UTILITY(U,$J,"OPT",162,"U")
73: ;;=INPUT TRANSFORM (SYNTAX)
74: ;;^UTILITY(U,$J,"OPT",163,0)
75: ;;=DIEDFILE^Edit File^^A^^^^^^^^^n^1^^
76: ;;^UTILITY(U,$J,"OPT",163,1,0)
77: ;;=^^3^3^2890316^^
78: ;;^UTILITY(U,$J,"OPT",163,1,1,0)
79: ;;=This option allows the user to document and control a file. The user
80: ;;^UTILITY(U,$J,"OPT",163,1,2,0)
81: ;;=may describe the purpose of the file, assign it security, indicate
82: ;;^UTILITY(U,$J,"OPT",163,1,3,0)
83: ;;=application groups which use the file, and change the name of the file.
84: ;;^UTILITY(U,$J,"OPT",163,20)
85: ;;=S DI=6 G EN^DIU
86: ;;^UTILITY(U,$J,"OPT",163,"U")
87: ;;=EDIT FILE
88: ;;^UTILITY(U,$J,"OPT",164,0)
89: ;;=DIOTRAN^Output Transform^^A^^^^^^^^^n^1^^
90: ;;^UTILITY(U,$J,"OPT",164,1,0)
91: ;;=^^3^3^2890316^
92: ;;^UTILITY(U,$J,"OPT",164,1,1,0)
93: ;;=The Output Transform sub-option of the Utility Functions option allows
94: ;;^UTILITY(U,$J,"OPT",164,1,2,0)
95: ;;=you to enter an executable string of MUMPS code which converts internally
96: ;;^UTILITY(U,$J,"OPT",164,1,3,0)
97: ;;=stored data into a readable display.
98: ;;^UTILITY(U,$J,"OPT",164,20)
99: ;;=S DI=7 G EN^DIU
100: ;;^UTILITY(U,$J,"OPT",164,"U")
101: ;;=OUTPUT TRANSFORM
102: ;;^UTILITY(U,$J,"OPT",165,0)
103: ;;=DITEMP^Template Edit^^A^^^^^^^^^n^1^^
104: ;;^UTILITY(U,$J,"OPT",165,1,0)
105: ;;=^^4^4^2890316^
106: ;;^UTILITY(U,$J,"OPT",165,1,1,0)
107: ;;=The Template Edit sub-option of the Utility Functions option allows you
108: ;;^UTILITY(U,$J,"OPT",165,1,2,0)
109: ;;=to enter a description of any sort, print or input templates in a selected
110: ;;^UTILITY(U,$J,"OPT",165,1,3,0)
111: ;;=file. These descriptions will be printed when you request a Templates
112: ;;^UTILITY(U,$J,"OPT",165,1,4,0)
113: ;;=Only data dictionary listing.
114: ;;^UTILITY(U,$J,"OPT",165,20)
115: ;;=S DI=8 G EN^DIU
116: ;;^UTILITY(U,$J,"OPT",165,"U")
117: ;;=TEMPLATE EDIT
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIINI003.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman