Annotation of freem_fileman/DINIT00I.m, revision 1.1.1.1
1.1 snw 1: DINIT00I ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94 09:32:23
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) S @X=Y
5: Q Q
6: ;;^UTILITY(U,$J,.84,8012,1,2,0)
7: ;;=PRINT option.
8: ;;^UTILITY(U,$J,.84,8012,2,0)
9: ;;=^^1^1^2931102^
10: ;;^UTILITY(U,$J,.84,8012,2,1,0)
11: ;;=Heading
12: ;;^UTILITY(U,$J,.84,8012,5,0)
13: ;;=^.841^2^2
14: ;;^UTILITY(U,$J,.84,8012,5,1,0)
15: ;;=DIP^EN1
16: ;;^UTILITY(U,$J,.84,8012,5,2,0)
17: ;;=DIS^ENS
18: ;;^UTILITY(U,$J,.84,8013,0)
19: ;;=8013^2^^11^
20: ;;^UTILITY(U,$J,.84,8013,1,0)
21: ;;=^^3^3^2931105^^
22: ;;^UTILITY(U,$J,.84,8013,1,1,0)
23: ;;=The DD for the file of files is not completely FileMan compatible. This
24: ;;^UTILITY(U,$J,.84,8013,1,2,0)
25: ;;=is the field name prompt for the POST-SELECTION ACTION field on the file
26: ;;^UTILITY(U,$J,.84,8013,1,3,0)
27: ;;=of files. Prompt appears when file attributes.
28: ;;^UTILITY(U,$J,.84,8013,2,0)
29: ;;=^^1^1^2931105^^
30: ;;^UTILITY(U,$J,.84,8013,2,1,0)
31: ;;=POST-SELECTION ACTION
32: ;;^UTILITY(U,$J,.84,8013,5,0)
33: ;;=^.841^1^1
34: ;;^UTILITY(U,$J,.84,8013,5,1,0)
35: ;;=DIU0^6
36: ;;^UTILITY(U,$J,.84,8014,0)
37: ;;=8014^2^^11^
38: ;;^UTILITY(U,$J,.84,8014,1,0)
39: ;;=^^3^3^2931105^
40: ;;^UTILITY(U,$J,.84,8014,1,1,0)
41: ;;=The DD for the file of files is not completely FileMan compatible. This
42: ;;^UTILITY(U,$J,.84,8014,1,2,0)
43: ;;=is the field name prompt for the LOOK-UP PROGRAM field on the file
44: ;;^UTILITY(U,$J,.84,8014,1,3,0)
45: ;;=of files. Prompt appears when file attributes are edited.
46: ;;^UTILITY(U,$J,.84,8014,2,0)
47: ;;=^^1^1^2931105^
48: ;;^UTILITY(U,$J,.84,8014,2,1,0)
49: ;;=LOOK-UP PROGRAM
50: ;;^UTILITY(U,$J,.84,8014,5,0)
51: ;;=^.841^1^1
52: ;;^UTILITY(U,$J,.84,8014,5,1,0)
53: ;;=DIU0^6
54: ;;^UTILITY(U,$J,.84,8015,0)
55: ;;=8015^2^^11
56: ;;^UTILITY(U,$J,.84,8015,1,0)
57: ;;=^^2^2^2931105^
58: ;;^UTILITY(U,$J,.84,8015,1,1,0)
59: ;;=Standard prompt to verify to the user that they just deleted something
60: ;;^UTILITY(U,$J,.84,8015,1,2,0)
61: ;;=with the "@".
62: ;;^UTILITY(U,$J,.84,8015,2,0)
63: ;;=^^1^1^2931105^
64: ;;^UTILITY(U,$J,.84,8015,2,1,0)
65: ;;=Deleted.
66: ;;^UTILITY(U,$J,.84,8015,5,0)
67: ;;=^.841^1^1
68: ;;^UTILITY(U,$J,.84,8015,5,1,0)
69: ;;=DIU0^6
70: ;;^UTILITY(U,$J,.84,8016,0)
71: ;;=8016^2^y^11^
72: ;;^UTILITY(U,$J,.84,8016,1,0)
73: ;;=^^2^2^2931105^^^^
74: ;;^UTILITY(U,$J,.84,8016,1,1,0)
75: ;;=Called after performing routine existence test to tell user that routine
76: ;;^UTILITY(U,$J,.84,8016,1,2,0)
77: ;;=is already in their directory.
78: ;;^UTILITY(U,$J,.84,8016,2,0)
79: ;;=^^1^1^2931105^
80: ;;^UTILITY(U,$J,.84,8016,2,1,0)
81: ;;=Note that |1| is already in the routine directory.
82: ;;^UTILITY(U,$J,.84,8016,3,0)
83: ;;=^.845^1^1
84: ;;^UTILITY(U,$J,.84,8016,3,1,0)
85: ;;=1^Name of the routine.
86: ;;^UTILITY(U,$J,.84,8016,5,0)
87: ;;=^.841^4^4
88: ;;^UTILITY(U,$J,.84,8016,5,1,0)
89: ;;=DIU0^6
90: ;;^UTILITY(U,$J,.84,8016,5,2,0)
91: ;;=DIEZ^
92: ;;^UTILITY(U,$J,.84,8016,5,3,0)
93: ;;=DIKZ^
94: ;;^UTILITY(U,$J,.84,8016,5,4,0)
95: ;;=DIPZ^
96: ;;^UTILITY(U,$J,.84,8017,0)
97: ;;=8017^2^^11
98: ;;^UTILITY(U,$J,.84,8017,1,0)
99: ;;=^^2^2^2931105^
100: ;;^UTILITY(U,$J,.84,8017,1,1,0)
101: ;;=Message warning user that a routine does not exist in their routine
102: ;;^UTILITY(U,$J,.84,8017,1,2,0)
103: ;;=directory.
104: ;;^UTILITY(U,$J,.84,8017,2,0)
105: ;;=^^1^1^2931105^
106: ;;^UTILITY(U,$J,.84,8017,2,1,0)
107: ;;=This routine does not exist in the routine directory.
108: ;;^UTILITY(U,$J,.84,8017,5,0)
109: ;;=^.841^1^1
110: ;;^UTILITY(U,$J,.84,8017,5,1,0)
111: ;;=DIU0^6
112: ;;^UTILITY(U,$J,.84,8018,0)
113: ;;=8018^2^y^11^
114: ;;^UTILITY(U,$J,.84,8018,1,0)
115: ;;=^^2^2^2931105^
116: ;;^UTILITY(U,$J,.84,8018,1,1,0)
117: ;;=Prompt showing the user a routine name previously used for compiled
118: ;;^UTILITY(U,$J,.84,8018,1,2,0)
119: ;;=routines (input templates, print templates, cross-references).
120: ;;^UTILITY(U,$J,.84,8018,2,0)
121: ;;=^^1^1^2931105^
122: ;;^UTILITY(U,$J,.84,8018,2,1,0)
123: ;;=Previously compiled under routine name |1|.
124: ;;^UTILITY(U,$J,.84,8018,3,0)
125: ;;=^.845^1^1
126: ;;^UTILITY(U,$J,.84,8018,3,1,0)
127: ;;=1^Routine name from "DIKOLD" or "ROUOLD" nodes in templates or DD for cross-references.
128: ;;^UTILITY(U,$J,.84,8018,5,0)
129: ;;=^.841^1^1
130: ;;^UTILITY(U,$J,.84,8018,5,1,0)
131: ;;=DIU0^6
132: ;;^UTILITY(U,$J,.84,8019,0)
133: ;;=8019^2^^11
134: ;;^UTILITY(U,$J,.84,8019,1,0)
135: ;;=^^3^3^2931105^^
136: ;;^UTILITY(U,$J,.84,8019,1,1,0)
137: ;;=The DD for the file of files is not completely FileMan compatible. This
138: ;;^UTILITY(U,$J,.84,8019,1,2,0)
139: ;;=is the field name prompt for the CROSS-REFERENCE ROUTINE field on the file
140: ;;^UTILITY(U,$J,.84,8019,1,3,0)
141: ;;=of files. Prompt appears when file attributes are edited.
142: ;;^UTILITY(U,$J,.84,8019,2,0)
143: ;;=^^1^1^2931105^
144: ;;^UTILITY(U,$J,.84,8019,2,1,0)
145: ;;=CROSS-REFERENCE ROUTINE
146: ;;^UTILITY(U,$J,.84,8019,5,0)
147: ;;=^.841^1^1
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT00I.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman