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/XPDIN00G.m@ 1211

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

initial load of WorldVistAEHR
File size: 4.7 KB
RevLine 
[613]1XPDIN00G ; ; 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,"DIBT",39,0)
6 ;;=XPD DISPLAY ENTRY^2940404.1515^@^9.6^^@^2940405
7 ;;^UTILITY(U,$J,"DIBT",39,2,1)
8 ;;=9.6^0^NUMBER^@^
9 ;;^UTILITY(U,$J,"DIBT",39,2,1,"ASK")
10 ;;=
11 ;;^UTILITY(U,$J,"DIBT",39,2,1,"F")
12 ;;=3.99999^4
13 ;;^UTILITY(U,$J,"DIBT",39,2,1,"T")
14 ;;=4^4
15 ;;^UTILITY(U,$J,"DIBT",39,2,2)
16 ;;=9.68^.01^ENTRIES^^
17 ;;^UTILITY(U,$J,"DIBT",39,2,2,9.6)
18 ;;=KRN
19 ;;^UTILITY(U,$J,"DIBT",39,2,2,9.67)
20 ;;=NM
21 ;;^UTILITY(U,$J,"DIE",39,0)
22 ;;=XPD EDIT BUILD^2931105.1421^@^9.6^^@^2931105
23 ;;^UTILITY(U,$J,"DIE",39,"DIAB",1,1,9.602,0)
24 ;;=ALL
25 ;;^UTILITY(U,$J,"DIE",39,"DIAB",1,1,9.64,0)
26 ;;=ALL
27 ;;^UTILITY(U,$J,"DIE",39,"DIAB",1,2,9.68,0)
28 ;;=ALL
29 ;;^UTILITY(U,$J,"DIE",39,"DR",1,9.6)
30 ;;=.01;1;2;3;6;7;11;12;13;20;200.1;200.2;913;914;916;
31 ;;^UTILITY(U,$J,"DIE",39,"DR",2,9.602)
32 ;;=.01:4
33 ;;^UTILITY(U,$J,"DIE",39,"DR",2,9.64)
34 ;;=.01:223
35 ;;^UTILITY(U,$J,"DIE",39,"DR",2,9.67)
36 ;;=10;
37 ;;^UTILITY(U,$J,"DIE",39,"DR",3,9.65)
38 ;;=.01
39 ;;^UTILITY(U,$J,"DIE",39,"DR",3,9.68)
40 ;;=.01
41 ;;^UTILITY(U,$J,"DIPT",57,0)
42 ;;=XPD BUILD ENTRY^2940405.0815^@^9.6^^@^2940405
43 ;;^UTILITY(U,$J,"DIPT",57,"F",1)
44 ;;=.01;N;C1;""~2;C3;N;""~3,.01;N;C5;""~"ENVIRONMENT CHECK ROUTINE: ";N;S1;""~913;N;C30;""~"POST-INIT ROUTINE: ";N;C1;""~914;N;C20;""~
45 ;;^UTILITY(U,$J,"DIPT",57,"F",2)
46 ;;="PRE-INIT ROUTINE: ";N;C1;""~916;N;C20;""~7,.01;S1;N;""~7,10,.01;C5;N;X~7,10,.03;C40;N;X~
47 ;;^UTILITY(U,$J,"DIPT",57,"H")
48 ;;=BUILD ENTRY
49 ;;^UTILITY(U,$J,"DIST(.403,",11,0)
50 ;;=XPD EDIT BUILD^#^^^2931104^^^9.6^0^0^1
51 ;;^UTILITY(U,$J,"DIST(.403,",11,40,0)
52 ;;=^.4031I^15^15
53 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,0)
54 ;;=1^^1,1^4
55 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,1)
56 ;;=Page 1
57 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,0)
58 ;;=^.4032PI^46^2
59 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,45,0)
60 ;;=XPD EDIT BUILD HDR^1^1,1^d
61 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,46,0)
62 ;;=XPD EDIT BUILD1^2^1,1^e
63 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"AC",1,45)
64 ;;=
65 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"AC",2,46)
66 ;;=
67 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"B",45,45)
68 ;;=
69 ;;^UTILITY(U,$J,"DIST(.403,",11,40,1,40,"B",46,46)
70 ;;=
71 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,0)
72 ;;=2^^1,1^14^4
73 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,1)
74 ;;=Page 2
75 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,12)
76 ;;=
77 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,0)
78 ;;=^.4032PI^57^3
79 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,45,0)
80 ;;=XPD EDIT BUILD HDR^1^1,1^d
81 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,47,0)
82 ;;=XPD EDIT BUILD2^2^1,1^e
83 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,57,0)
84 ;;=XPD EDIT BUILD30^3^5,1^e
85 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,57,2)
86 ;;=12^^f^1
87 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",1,45)
88 ;;=
89 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",2,47)
90 ;;=
91 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"AC",3,57)
92 ;;=
93 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",45,45)
94 ;;=
95 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",47,47)
96 ;;=
97 ;;^UTILITY(U,$J,"DIST(.403,",11,40,2,40,"B",57,57)
98 ;;=
99 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,0)
100 ;;=3^^5,1^^^1^17,79
101 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,1)
102 ;;=Kernel File^1,3,2
103 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,0)
104 ;;=^.4032PI^53^2
105 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,48,0)
106 ;;=XPD EDIT BUILD3^1^3,2^e
107 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,48,2)
108 ;;=9^^n
109 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,53,0)
110 ;;=XPD EDIT BUILD31^2^1,2^d
111 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",1,48)
112 ;;=
113 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"AC",2,53)
114 ;;=
115 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",48,48)
116 ;;=
117 ;;^UTILITY(U,$J,"DIST(.403,",11,40,3,40,"B",53,53)
118 ;;=
119 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,0)
120 ;;=4^^1,1^2^1
121 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,1)
122 ;;=File^
123 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,0)
124 ;;=^.4032PI^59^3
125 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,45,0)
126 ;;=XPD EDIT BUILD HDR^1^1,1^d
127 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,58,0)
128 ;;=XPD EDIT BUILD40^2^5,1^e
129 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,58,2)
130 ;;=12^^n
131 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,59,0)
132 ;;=XPD EDIT BUILD41^3^1,1^d
133 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",1,45)
134 ;;=
135 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",2,58)
136 ;;=
137 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"AC",3,59)
138 ;;=
139 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",45,45)
140 ;;=
141 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",58,58)
142 ;;=
143 ;;^UTILITY(U,$J,"DIST(.403,",11,40,4,40,"B",59,59)
144 ;;=
145 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,0)
146 ;;=5^^6,3^^^1^17,77
147 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,1)
148 ;;=Record Merge^2,2,8
149 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,0)
150 ;;=^.4032PI^50^1
151 ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,50,0)
152 ;;=XPD EDIT BUILD5^1^1,3^e
Note: See TracBrowser for help on using the repository browser.