Annotation of freem_fileman/DINIT007.m, revision 1.1.1.1
1.1 snw 1: DINIT007 ; 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,330,3,1,0)
7: ;;=1^Passed Value.
8: ;;^UTILITY(U,$J,.84,330,3,2,0)
9: ;;=2^Data Type.
10: ;;^UTILITY(U,$J,.84,348,0)
11: ;;=348^1^y^11^
12: ;;^UTILITY(U,$J,.84,348,1,0)
13: ;;=^^2^2^2940214^
14: ;;^UTILITY(U,$J,.84,348,1,1,0)
15: ;;=The calling application passed us a variable pointer value. That value
16: ;;^UTILITY(U,$J,.84,348,1,2,0)
17: ;;=points to a file that does not exist, or that lacks a Header Node.
18: ;;^UTILITY(U,$J,.84,348,2,0)
19: ;;=^^2^2^2940214^
20: ;;^UTILITY(U,$J,.84,348,2,1,0)
21: ;;=The passed value '|1|' points to a file that does not exist or lacks a
22: ;;^UTILITY(U,$J,.84,348,2,2,0)
23: ;;=Header Node.
24: ;;^UTILITY(U,$J,.84,348,3,0)
25: ;;=^.845^1^1
26: ;;^UTILITY(U,$J,.84,348,3,1,0)
27: ;;=1^Passed Value.
28: ;;^UTILITY(U,$J,.84,349,0)
29: ;;=349^2^y^11^
30: ;;^UTILITY(U,$J,.84,349,1,0)
31: ;;=^^2^2^2940310^^^
32: ;;^UTILITY(U,$J,.84,349,1,1,0)
33: ;;=Text used by the Replace...With editor
34: ;;^UTILITY(U,$J,.84,349,1,2,0)
35: ;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
36: ;;^UTILITY(U,$J,.84,349,2,0)
37: ;;=^^1^1^2940310^^
38: ;;^UTILITY(U,$J,.84,349,2,1,0)
39: ;;= String too long by |1| character(s)!
40: ;;^UTILITY(U,$J,.84,349,3,0)
41: ;;=^.845^1^1
42: ;;^UTILITY(U,$J,.84,349,3,1,0)
43: ;;=1^Number of characters over the limit.
44: ;;^UTILITY(U,$J,.84,349,4,0)
45: ;;=^.847P^^0
46: ;;^UTILITY(U,$J,.84,350,0)
47: ;;=350^2^^11
48: ;;^UTILITY(U,$J,.84,350,1,0)
49: ;;=^^1^1^2940310^
50: ;;^UTILITY(U,$J,.84,350,1,1,0)
51: ;;=Message from the Replace...With editor.
52: ;;^UTILITY(U,$J,.84,350,2,0)
53: ;;=^^1^1^2940310^
54: ;;^UTILITY(U,$J,.84,350,2,1,0)
55: ;;= String too long! '^' to quit.
56: ;;^UTILITY(U,$J,.84,350,4,0)
57: ;;=^.847P^^0
58: ;;^UTILITY(U,$J,.84,351,0)
59: ;;=351^1^y^11
60: ;;^UTILITY(U,$J,.84,351,1,0)
61: ;;=^^4^4^2941021^
62: ;;^UTILITY(U,$J,.84,351,1,1,0)
63: ;;=When passing an FDA to the Updater, any entries intended as Finding or
64: ;;^UTILITY(U,$J,.84,351,1,2,0)
65: ;;=LAYGO Finding nodes must include a .01 node that has the lookup value.
66: ;;^UTILITY(U,$J,.84,351,1,3,0)
67: ;;=This value need not be a legitimate .01 field value, but it must be a
68: ;;^UTILITY(U,$J,.84,351,1,4,0)
69: ;;=valid and unambiguous lookup value for the file.
70: ;;^UTILITY(U,$J,.84,351,2,0)
71: ;;=^^1^1^2941021^
72: ;;^UTILITY(U,$J,.84,351,2,1,0)
73: ;;=FDA nodes for lookup '|IENS|' omit a .01 node with a lookup value.
74: ;;^UTILITY(U,$J,.84,351,3,0)
75: ;;=^.845^2^2
76: ;;^UTILITY(U,$J,.84,351,3,1,0)
77: ;;=FILE^File #.
78: ;;^UTILITY(U,$J,.84,351,3,2,0)
79: ;;=IENS^IENS Subscript for Finding or LAYGO Finding node.
80: ;;^UTILITY(U,$J,.84,401,0)
81: ;;=401^1^y^11^
82: ;;^UTILITY(U,$J,.84,401,1,0)
83: ;;=^^2^2^2931123^^^
84: ;;^UTILITY(U,$J,.84,401,1,1,0)
85: ;;=The specified file or subfile does not exist; it is not present in the
86: ;;^UTILITY(U,$J,.84,401,1,2,0)
87: ;;=data dictionary.
88: ;;^UTILITY(U,$J,.84,401,2,0)
89: ;;=^^1^1^2931123^^^
90: ;;^UTILITY(U,$J,.84,401,2,1,0)
91: ;;=File #|FILE| does not exist.
92: ;;^UTILITY(U,$J,.84,401,3,0)
93: ;;=^.845^1^1
94: ;;^UTILITY(U,$J,.84,401,3,1,0)
95: ;;=FILE^File number.
96: ;;^UTILITY(U,$J,.84,402,0)
97: ;;=402^1^y^11^
98: ;;^UTILITY(U,$J,.84,402,1,0)
99: ;;=^^2^2^2940316^^^^
100: ;;^UTILITY(U,$J,.84,402,1,1,0)
101: ;;=The specified file or subfile lacks a valid global root; the global root
102: ;;^UTILITY(U,$J,.84,402,1,2,0)
103: ;;=is missing or is syntactically not valid.
104: ;;^UTILITY(U,$J,.84,402,2,0)
105: ;;=^^1^1^2940316^^^^
106: ;;^UTILITY(U,$J,.84,402,2,1,0)
107: ;;=The global root of file #|FILE| is missing or not valid.
108: ;;^UTILITY(U,$J,.84,402,3,0)
109: ;;=^.845^3^3
110: ;;^UTILITY(U,$J,.84,402,3,1,0)
111: ;;=FILE^File number.
112: ;;^UTILITY(U,$J,.84,402,3,2,0)
113: ;;=ROOT^File root.
114: ;;^UTILITY(U,$J,.84,402,3,3,0)
115: ;;=IENS^IEN String.
116: ;;^UTILITY(U,$J,.84,403,0)
117: ;;=403^1^y^11^
118: ;;^UTILITY(U,$J,.84,403,1,0)
119: ;;=^^3^3^2940213^
120: ;;^UTILITY(U,$J,.84,403,1,1,0)
121: ;;=The File Header Node, the top level of the data file as described in the
122: ;;^UTILITY(U,$J,.84,403,1,2,0)
123: ;;=Programmer Manual, must be present for FileMan to determine certain kinds
124: ;;^UTILITY(U,$J,.84,403,1,3,0)
125: ;;=of information about a file.
126: ;;^UTILITY(U,$J,.84,403,2,0)
127: ;;=^^1^1^2940213^
128: ;;^UTILITY(U,$J,.84,403,2,1,0)
129: ;;=File #|FILE| lacks a Header Node.
130: ;;^UTILITY(U,$J,.84,403,3,0)
131: ;;=^.845^1^1
132: ;;^UTILITY(U,$J,.84,403,3,1,0)
133: ;;=FILE^File #.
134: ;;^UTILITY(U,$J,.84,404,0)
135: ;;=404^1^y^11^
136: ;;^UTILITY(U,$J,.84,404,1,0)
137: ;;=^^4^4^2940214^
138: ;;^UTILITY(U,$J,.84,404,1,1,0)
139: ;;=We have identified a file by the global node of its data file, and found
140: ;;^UTILITY(U,$J,.84,404,1,2,0)
141: ;;=its Header Node. We needed to use the Header Node to identify the number
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT007.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman