source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDIN00M.m@ 623

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

initial load of WorldVistAEHR
File size: 4.7 KB
RevLine 
[613]1XPDIN00M ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 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
4Q Q
5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SCREEN TO SELECT DATA",13,13,64,7)
6 ;;=
7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SEND FULL OR PARTIAL DD...",7,7,49,18)
8 ;;=
9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SEND SECURITY CODE",7,7,49,14)
10 ;;=
11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","SITE'S DATA",13,13,64,2)
12 ;;=
13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","TRACK PACKAGE NATIONALLY","2^14^4",14,65,3)
14 ;;=
15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","CAP","UPDATE THE DATA DICTIONARY",7,7,49,16)
16 ;;=
17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","COMPE",57,2)
18 ;;=S Y="("_+$P($G(^XPD(9.6,DA(1),"KRN",DA,"NM",0)),U,4)_")"
19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.4",12,"L",8,51,5)
20 ;;=
21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.4",20,"L",8,51,2)
22 ;;=
23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.402",.01,"L",5,50,2)
24 ;;=
25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.402",3,"L",5,50,3)
26 ;;=
27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.402",4,"L",5,50,4)
28 ;;=
29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",1,45,2)
30 ;;=
31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",1,46,1)
32 ;;=
33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",2,45,2)
34 ;;=
35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",4,45,2)
36 ;;=
37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",8,67,2)
38 ;;=
39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.01,"L",14,45,2)
40 ;;=
41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",.02,"L",1,46,13)
42 ;;=
43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",1,"L",14,65,2)
44 ;;=
45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",3,"L",1,46,11)
46 ;;=
47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",5,"L",14,65,3)
48 ;;=
49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",20,"L",8,54,1)
50 ;;=
51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",21,"L",9,55,1)
52 ;;=
53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",22,"L",9,55,2)
54 ;;=
55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",913,"L",1,46,5)
56 ;;=
57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",914,"L",1,46,6)
58 ;;=
59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6",916,"L",1,46,7)
60 ;;=
61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",.01,"L",6,52,1)
62 ;;=
63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",.01,"L",14,66,1)
64 ;;=
65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",.01,"L",15,52,1)
66 ;;=
67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",1,"L",6,52,2)
68 ;;=
69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",1,"L",15,52,2)
70 ;;=
71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",2,"L",6,52,3)
72 ;;=
73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",2,"L",15,52,3)
74 ;;=
75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",3,"L",6,52,4)
76 ;;=
77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",3,"L",15,52,4)
78 ;;=
79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",4,"L",6,52,5)
80 ;;=
81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",4,"L",15,52,5)
82 ;;=
83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",5,"L",6,52,6)
84 ;;=
85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",5,"L",15,52,6)
86 ;;=
87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",6,"L",6,52,7)
88 ;;=
89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",6,"L",15,52,7)
90 ;;=
91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",7,"L",6,52,8)
92 ;;=
93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",7,"L",15,52,8)
94 ;;=
95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",10,"L",6,52,9)
96 ;;=
97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.62",10,"L",15,52,9)
98 ;;=
99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",.01,"L",4,58,1)
100 ;;=
101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",.01,"L",7,49,2)
102 ;;=
103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.1,"L",7,49,16)
104 ;;=
105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.2,"L",7,49,14)
106 ;;=
107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.3,"L",7,49,18)
108 ;;=
109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.5,"L",13,64,4)
110 ;;=
111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.6,"L",13,64,3)
112 ;;=
113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.7,"L",7,49,7)
114 ;;=
115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.8,"L",13,64,2)
116 ;;=
117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",222.9,"L",13,64,5)
118 ;;=
119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",223,"L",7,49,13)
120 ;;=
121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.64",224,"L",13,64,7)
122 ;;=
123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.641",.01,"L",11,60,1)
124 ;;=
125 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.6411",.01,"L",12,61,1)
126 ;;=
127 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.66",.01,"L",9,84,1)
128 ;;=
129 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.661",.01,"L",10,85,1)
130 ;;=
131 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.67",0,"L",2,57,2)
132 ;;=
133 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.67",.01,"L",2,57,1)
134 ;;=
135 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.68",.01,"L",3,48,1)
136 ;;=
137 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","F9.68",.03,"L",3,48,2)
138 ;;=
Note: See TracBrowser for help on using the repository browser.