source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIPKI00B.m@ 1297

Last change on this file since 1297 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.5 KB
Line 
1DIPKI00B ; ; 30-MAR-1999
2 ;;22.0;VA FileMan;;Mar 30, 1999
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
5Q Q
6 ;;^UTILITY(U,$J,"SBF",9.4,9.4)
7 ;;=
8 ;;^UTILITY(U,$J,"SBF",9.4,9.402)
9 ;;=
10 ;;^UTILITY(U,$J,"SBF",9.4,9.404)
11 ;;=
12 ;;^UTILITY(U,$J,"SBF",9.4,9.409)
13 ;;=
14 ;;^UTILITY(U,$J,"SBF",9.4,9.41)
15 ;;=
16 ;;^UTILITY(U,$J,"SBF",9.4,9.414)
17 ;;=
18 ;;^UTILITY(U,$J,"SBF",9.4,9.415007)
19 ;;=
20 ;;^UTILITY(U,$J,"SBF",9.4,9.42)
21 ;;=
22 ;;^UTILITY(U,$J,"SBF",9.4,9.43)
23 ;;=
24 ;;^UTILITY(U,$J,"SBF",9.4,9.431)
25 ;;=
26 ;;^UTILITY(U,$J,"SBF",9.4,9.432)
27 ;;=
28 ;;^UTILITY(U,$J,"SBF",9.4,9.44)
29 ;;=
30 ;;^UTILITY(U,$J,"SBF",9.4,9.444)
31 ;;=
32 ;;^UTILITY(U,$J,"SBF",9.4,9.45)
33 ;;=
34 ;;^UTILITY(U,$J,"SBF",9.4,9.454)
35 ;;=
36 ;;^UTILITY(U,$J,"SBF",9.4,9.455)
37 ;;=
38 ;;^UTILITY(U,$J,"SBF",9.4,9.456)
39 ;;=
40 ;;^UTILITY(U,$J,"SBF",9.4,9.46)
41 ;;=
42 ;;^UTILITY(U,$J,"SBF",9.4,9.47)
43 ;;=
44 ;;^UTILITY(U,$J,"SBF",9.4,9.48)
45 ;;=
46 ;;^UTILITY(U,$J,"SBF",9.4,9.485)
47 ;;=
48 ;;^UTILITY(U,$J,"SBF",9.4,9.49)
49 ;;=
50 ;;^UTILITY(U,$J,"SBF",9.4,9.4901)
51 ;;=
52 ;;^UTILITY(U,$J,"SBF",9.4,9.49011)
53 ;;=
54 ;;^UTILITY(U,$J,"SBF",9.4,9.491)
55 ;;=
56 ;;^UTILITY(U,$J,"SBF",9.4,9.492)
57 ;;=
58 ;;^UTILITY(U,$J,"SBF",9.4,9.493)
59 ;;=
60 ;;^UTILITY(U,$J,"SBF",9.4,9.495)
61 ;;=
62 ;;^UTILITY(U,$J,"SBF",9.4,9.4961)
63 ;;=
64 ;;^UTILITY(U,$J,"SBF",9.4,9.4962)
65 ;;=
66 ;;^UTILITY(U,$J,"SBF",9.4,9.4963)
67 ;;=
68 ;;^UTILITY(U,$J,"SBF",9.4,9.54)
69 ;;=
Note: See TracBrowser for help on using the repository browser.