Annotation of freem_fileman/DIPKI006.m, revision 1.1.1.1
1.1 snw 1: DIPKI006 ; ; 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: Q:'DIFQ(9.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: ;;^DD(9.404,1,21,0)
7: ;;=^^1^1^2920513^^
8: ;;^DD(9.404,1,21,1,0)
9: ;;=The name of the ISC where this verification was done.
10: ;;^DD(9.404,1,"DT")
11: ;;=2840815
12: ;;^DD(9.404,2,0)
13: ;;=VERSION^NJ6,2^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
14: ;;^DD(9.404,2,3)
15: ;;=Please enter the version number of this verified Package (0.00-999.99).
16: ;;^DD(9.404,2,21,0)
17: ;;=^^1^1^2920513^^
18: ;;^DD(9.404,2,21,1,0)
19: ;;=The version number of this verified Package.
20: ;;^DD(9.404,2,"DT")
21: ;;=2840815
22: ;;^DD(9.404,3,0)
23: ;;=COMMENTS^9.414^^1;0
24: ;;^DD(9.404,3,21,0)
25: ;;=^^1^1^2920513^^
26: ;;^DD(9.404,3,21,1,0)
27: ;;=Comments regarding this verified version of the Package.
28: ;;^DD(9.409,0)
29: ;;=*DELTA SUB-FIELD^NL^.01^1
30: ;;^DD(9.409,0,"NM","*DELTA")
31: ;;=
32: ;;^DD(9.409,0,"UP")
33: ;;=9.4
34: ;;^DD(9.409,.01,0)
35: ;;=DELTA^MP4'X^DIC(4,^0;1^S:$D(X) DINUM=X
36: ;;^DD(9.409,.01,3)
37: ;;=Please enter the name of the Delta Test site.
38: ;;^DD(9.409,.01,21,0)
39: ;;=^^1^1^2851007^
40: ;;^DD(9.409,.01,21,1,0)
41: ;;=The name of a Delta Test site for this Package.
42: ;;^DD(9.409,.01,"DT")
43: ;;=2840815
44: ;;^DD(9.41,0)
45: ;;=DESCRIPTION SUB-FIELD^NL^.01^1
46: ;;^DD(9.41,0,"NM","DESCRIPTION")
47: ;;=
48: ;;^DD(9.41,0,"UP")
49: ;;=9.4
50: ;;^DD(9.41,.01,0)
51: ;;=DESCRIPTION^W^^0;1^Q
52: ;;^DD(9.41,.01,3)
53: ;;=Please enter a complete and detailed description of the Package.
54: ;;^DD(9.41,.01,21,0)
55: ;;=^^2^2^2920513^^^^
56: ;;^DD(9.41,.01,21,1,0)
57: ;;=This is a complete and detailed description of the Package's functions
58: ;;^DD(9.41,.01,21,2,0)
59: ;;=and capabilities.
60: ;;^DD(9.41,.01,"DT")
61: ;;=2851007
62: ;;^DD(9.414,0)
63: ;;=COMMENTS SUB-FIELD^NL^.01^1
64: ;;^DD(9.414,0,"NM","COMMENTS")
65: ;;=
66: ;;^DD(9.414,0,"UP")
67: ;;=9.404
68: ;;^DD(9.414,.01,0)
69: ;;=COMMENTS^W^^0;1^Q
70: ;;^DD(9.414,.01,3)
71: ;;=Comments relating to verification
72: ;;^DD(9.414,.01,21,0)
73: ;;=^^1^1^2920513^^^
74: ;;^DD(9.414,.01,21,1,0)
75: ;;=Comments regarding this verified version of the Package.
76: ;;^DD(9.414,.01,"DT")
77: ;;=2840815
78: ;;^DD(9.42,0)
79: ;;=*ROUTINE SUB-FIELD^NL^.01^1
80: ;;^DD(9.42,0,"IX","B",9.42,.01)
81: ;;=
82: ;;^DD(9.42,0,"NM","*ROUTINE")
83: ;;=
84: ;;^DD(9.42,0,"UP")
85: ;;=9.4
86: ;;^DD(9.42,.01,0)
87: ;;=ROUTINE^MFX^^0;1^K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1"%".UN)) X
88: ;;^DD(9.42,.01,1,0)
89: ;;=^.1^^-1
90: ;;^DD(9.42,.01,1,1,0)
91: ;;=9.4^D
92: ;;^DD(9.42,.01,1,1,1)
93: ;;=S ^DIC(9.4,"D",X,DA(1))=""
94: ;;^DD(9.42,.01,1,1,2)
95: ;;=K ^DIC(9.4,"D",X,DA(1))
96: ;;^DD(9.42,.01,1,2,0)
97: ;;=9.42^B
98: ;;^DD(9.42,.01,1,2,1)
99: ;;=S ^DIC(9.4,DA(1),2,"B",X,DA)=""
100: ;;^DD(9.42,.01,1,2,2)
101: ;;=K ^DIC(9.4,DA(1),2,"B",X,DA)
102: ;;^DD(9.42,.01,3)
103: ;;=Please enter a routine name (1-8 characters).
104: ;;^DD(9.42,.01,21,0)
105: ;;=^^3^3^2920513^^^^
106: ;;^DD(9.42,.01,21,1,0)
107: ;;=This multiple is used for documentation purposes only and does
108: ;;^DD(9.42,.01,21,2,0)
109: ;;=not control anything during the INIT process. It is used to document
110: ;;^DD(9.42,.01,21,3,0)
111: ;;=the routines that are included in this Package.
112: ;;^DD(9.42,.01,22)
113: ;;=
114: ;;^DD(9.42,.01,"DT")
115: ;;=2850211
116: ;;^DD(9.43,0)
117: ;;=*GLOBAL SUB-FIELD^NL^5^3
118: ;;^DD(9.43,0,"DT")
119: ;;=2910827
120: ;;^DD(9.43,0,"IX","B",9.43,.01)
121: ;;=
122: ;;^DD(9.43,0,"NM","*GLOBAL")
123: ;;=
124: ;;^DD(9.43,0,"UP")
125: ;;=9.4
126: ;;^DD(9.43,.01,0)
127: ;;=GLOBAL^MF^^0;1^K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>15!($L(X)<1) X
128: ;;^DD(9.43,.01,1,0)
129: ;;=^.1
130: ;;^DD(9.43,.01,1,1,0)
131: ;;=9.43^B
132: ;;^DD(9.43,.01,1,1,1)
133: ;;=S ^DIC(9.4,DA(1),3,"B",X,DA)=""
134: ;;^DD(9.43,.01,1,1,2)
135: ;;=K ^DIC(9.4,DA(1),3,"B",X,DA)
136: ;;^DD(9.43,.01,3)
137: ;;=Enter name of global used in this package. Answer must be 1-15 characters in length. (Used for documentation only.)
138: ;;^DD(9.43,.01,21,0)
139: ;;=^^2^2^2920513^^^
140: ;;^DD(9.43,.01,21,1,0)
141: ;;=The name of a global which is part of this Package. Used for documentation
142: ;;^DD(9.43,.01,21,2,0)
143: ;;=only.
144: ;;^DD(9.43,.01,"DT")
145: ;;=2910827
146: ;;^DD(9.43,4,0)
147: ;;=DESCRIPTION^9.431^^4;0
148: ;;^DD(9.43,4,21,0)
149: ;;=^^1^1^2920513^^
150: ;;^DD(9.43,4,21,1,0)
151: ;;=This is a description of the global and how it is used by the Package.
152: ;;^DD(9.43,5,0)
153: ;;=JOURNALLING^S^M:mandatory!;O:optional--not required;N:not recommended;^5;1^Q
154: ;;^DD(9.43,5,21,0)
155: ;;=^^1^1^2920513^^^
156: ;;^DD(9.43,5,21,1,0)
157: ;;=Advises whether or not to Journal this global.
158: ;;^DD(9.43,5,"DT")
159: ;;=2850228
160: ;;^DD(9.431,0)
161: ;;=DESCRIPTION SUB-FIELD^NL^.01^1
162: ;;^DD(9.431,0,"NM","DESCRIPTION")
163: ;;=
164: ;;^DD(9.431,0,"UP")
165: ;;=9.43
166: ;;^DD(9.431,.01,0)
167: ;;=DESCRIPTION^W^^0;1^Q
168: ;;^DD(9.431,.01,21,0)
169: ;;=^^1^1^2920513^^^
170: ;;^DD(9.431,.01,21,1,0)
171: ;;=This is a description of the global and how it is used by the Package.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIPKI006.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman