Annotation of freem_fileman/DIPKI00E.m, revision 1.1.1.1
1.1 snw 1: DIPKI00E ; ; 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,"PKG",1,0)
7: ;;=DIPK (PACKAGE FILE INIT)^DIPK^FileMan Init of Package File
8: ;;^UTILITY(U,$J,"PKG",1,1,0)
9: ;;=^^2^2^2930702^^^
10: ;;^UTILITY(U,$J,"PKG",1,1,1,0)
11: ;;=Init of Package file to be used by VA FileMan Site that wish to export
12: ;;^UTILITY(U,$J,"PKG",1,1,2,0)
13: ;;=software using DIFROM.
14: ;;^UTILITY(U,$J,"PKG",1,4,0)
15: ;;=^9.44PA^1^1
16: ;;^UTILITY(U,$J,"PKG",1,4,1,0)
17: ;;=9.4
18: ;;^UTILITY(U,$J,"PKG",1,4,1,222)
19: ;;=y^y^^n^^^n
20: ;;^UTILITY(U,$J,"PKG",1,4,"B",9.4,1)
21: ;;=
22: ;;^UTILITY(U,$J,"PKG",1,5)
23: ;;=SAN FRANCISCO
24: ;;^UTILITY(U,$J,"PKG",1,7)
25: ;;=SAN FRANCISCO^^I
26: ;;^UTILITY(U,$J,"PKG",1,11)
27: ;;=9.4^9.4
28: ;;^UTILITY(U,$J,"PKG",1,22,0)
29: ;;=^9.49I^21^12
30: ;;^UTILITY(U,$J,"PKG",1,22,6.5,0)
31: ;;=6.5^2900607
32: ;;^UTILITY(U,$J,"PKG",1,22,17.78,0)
33: ;;=17.78^2900731^2901105
34: ;;^UTILITY(U,$J,"PKG",1,22,18.3,0)
35: ;;=18.30^2901205
36: ;;^UTILITY(U,$J,"PKG",1,22,18.4,0)
37: ;;=18.33^2910324^2910801
38: ;;^UTILITY(U,$J,"PKG",1,22,18.5,0)
39: ;;=19.0T6^2910827^2911210
40: ;;^UTILITY(U,$J,"PKG",1,22,18.6,0)
41: ;;=19.0V9^2911212^2911217
42: ;;^UTILITY(U,$J,"PKG",1,22,18.7,0)
43: ;;=19.0V10^2920420^2920420
44: ;;^UTILITY(U,$J,"PKG",1,22,18.8,0)
45: ;;=19.0^2920714^2920824
46: ;;^UTILITY(U,$J,"PKG",1,22,18.9,0)
47: ;;=20.0^2930702^2940912
48: ;;^UTILITY(U,$J,"PKG",1,22,19,0)
49: ;;=21.0V01^2940920
50: ;;^UTILITY(U,$J,"PKG",1,22,20,0)
51: ;;=21.0V02^2941025
52: ;;^UTILITY(U,$J,"PKG",1,22,21,0)
53: ;;=21.0^2941222
54: ;;^UTILITY(U,$J,"PKG",1,22,"B",6.5,6.5)
55: ;;=
56: ;;^UTILITY(U,$J,"PKG",1,22,"B",17.78,17.78)
57: ;;=
58: ;;^UTILITY(U,$J,"PKG",1,22,"B",18.33,18.4)
59: ;;=
60: ;;^UTILITY(U,$J,"PKG",1,22,"B","18.30",18.3)
61: ;;=
62: ;;^UTILITY(U,$J,"PKG",1,22,"B","19.0",18.8)
63: ;;=
64: ;;^UTILITY(U,$J,"PKG",1,22,"B","19.0T6",18.5)
65: ;;=
66: ;;^UTILITY(U,$J,"PKG",1,22,"B","19.0V10",18.7)
67: ;;=
68: ;;^UTILITY(U,$J,"PKG",1,22,"B","19.0V9",18.6)
69: ;;=
70: ;;^UTILITY(U,$J,"PKG",1,22,"B","20.0",18.9)
71: ;;=
72: ;;^UTILITY(U,$J,"PKG",1,22,"B","21.0",21)
73: ;;=
74: ;;^UTILITY(U,$J,"PKG",1,22,"B","21.0V01",19)
75: ;;=
76: ;;^UTILITY(U,$J,"PKG",1,22,"B","21.0V02",20)
77: ;;=
78: ;;^UTILITY(U,$J,"PKG",1,"DEV")
79: ;;=TKW/SF
80: ;;^UTILITY(U,$J,"PKG",1,"DIBT",0)
81: ;;=^9.48^^0
82: ;;^UTILITY(U,$J,"PKG",1,"DIPT",0)
83: ;;=^9.46^^0
84: ;;^UTILITY(U,$J,"PKG",1,"INI")
85: ;;=^
86: ;;^UTILITY(U,$J,"PKG",1,"INIT")
87: ;;=^
88: ;;^UTILITY(U,$J,"SBF",9.4,9.4)
89: ;;=
90: ;;^UTILITY(U,$J,"SBF",9.4,9.402)
91: ;;=
92: ;;^UTILITY(U,$J,"SBF",9.4,9.404)
93: ;;=
94: ;;^UTILITY(U,$J,"SBF",9.4,9.409)
95: ;;=
96: ;;^UTILITY(U,$J,"SBF",9.4,9.41)
97: ;;=
98: ;;^UTILITY(U,$J,"SBF",9.4,9.414)
99: ;;=
100: ;;^UTILITY(U,$J,"SBF",9.4,9.42)
101: ;;=
102: ;;^UTILITY(U,$J,"SBF",9.4,9.43)
103: ;;=
104: ;;^UTILITY(U,$J,"SBF",9.4,9.431)
105: ;;=
106: ;;^UTILITY(U,$J,"SBF",9.4,9.432)
107: ;;=
108: ;;^UTILITY(U,$J,"SBF",9.4,9.44)
109: ;;=
110: ;;^UTILITY(U,$J,"SBF",9.4,9.444)
111: ;;=
112: ;;^UTILITY(U,$J,"SBF",9.4,9.45)
113: ;;=
114: ;;^UTILITY(U,$J,"SBF",9.4,9.454)
115: ;;=
116: ;;^UTILITY(U,$J,"SBF",9.4,9.455)
117: ;;=
118: ;;^UTILITY(U,$J,"SBF",9.4,9.456)
119: ;;=
120: ;;^UTILITY(U,$J,"SBF",9.4,9.46)
121: ;;=
122: ;;^UTILITY(U,$J,"SBF",9.4,9.47)
123: ;;=
124: ;;^UTILITY(U,$J,"SBF",9.4,9.48)
125: ;;=
126: ;;^UTILITY(U,$J,"SBF",9.4,9.485)
127: ;;=
128: ;;^UTILITY(U,$J,"SBF",9.4,9.49)
129: ;;=
130: ;;^UTILITY(U,$J,"SBF",9.4,9.4901)
131: ;;=
132: ;;^UTILITY(U,$J,"SBF",9.4,9.49011)
133: ;;=
134: ;;^UTILITY(U,$J,"SBF",9.4,9.491)
135: ;;=
136: ;;^UTILITY(U,$J,"SBF",9.4,9.492)
137: ;;=
138: ;;^UTILITY(U,$J,"SBF",9.4,9.493)
139: ;;=
140: ;;^UTILITY(U,$J,"SBF",9.4,9.495)
141: ;;=
142: ;;^UTILITY(U,$J,"SBF",9.4,9.4961)
143: ;;=
144: ;;^UTILITY(U,$J,"SBF",9.4,9.4962)
145: ;;=
146: ;;^UTILITY(U,$J,"SBF",9.4,9.4963)
147: ;;=
148: ;;^UTILITY(U,$J,"SBF",9.4,9.54)
149: ;;=
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIPKI00E.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman