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/XPDIN00P.m@ 701

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

initial load of WorldVistAEHR
File size: 4.7 KB
Line 
1XPDIN00P ; ; 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(.404,",48,40,2,2)
6 ;;=1,50^26
7 ;;^UTILITY(U,$J,"DIST(.404,",48,40,2,3)
8 ;;=SEND TO SITE
9 ;;^UTILITY(U,$J,"DIST(.404,",48,40,2,4)
10 ;;=1
11 ;;^UTILITY(U,$J,"DIST(.404,",48,40,"B",1,1)
12 ;;=
13 ;;^UTILITY(U,$J,"DIST(.404,",48,40,"B",2,2)
14 ;;=
15 ;;^UTILITY(U,$J,"DIST(.404,",49,0)
16 ;;=XPD EDIT BUILD4^9.64
17 ;;^UTILITY(U,$J,"DIST(.404,",49,40,0)
18 ;;=^.4044I^18^7
19 ;;^UTILITY(U,$J,"DIST(.404,",49,40,1,0)
20 ;;=1^ DD Export Options ^1^
21 ;;^UTILITY(U,$J,"DIST(.404,",49,40,1,2)
22 ;;=^^1,27^1
23 ;;^UTILITY(U,$J,"DIST(.404,",49,40,2,0)
24 ;;=2^File^3^
25 ;;^UTILITY(U,$J,"DIST(.404,",49,40,2,1)
26 ;;=.01
27 ;;^UTILITY(U,$J,"DIST(.404,",49,40,2,2)
28 ;;=3,30^45^3,24
29 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,0)
30 ;;=7^Data Comes With File...^3^
31 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,1)
32 ;;=222.7
33 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,2)
34 ;;=12,33^3^12,8
35 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,3)
36 ;;=NO
37 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,10)
38 ;;=S:X="y" DDSSTACK=13
39 ;;^UTILITY(U,$J,"DIST(.404,",49,40,7,13)
40 ;;=D:X="y" PUT^DDSVAL(DIE,.DA,222.3,"f","","I")
41 ;;^UTILITY(U,$J,"DIST(.404,",49,40,13,0)
42 ;;=6^Screen to Determine DD Update^3
43 ;;^UTILITY(U,$J,"DIST(.404,",49,40,13,1)
44 ;;=223
45 ;;^UTILITY(U,$J,"DIST(.404,",49,40,13,2)
46 ;;=10,2^76^9,2^1
47 ;;^UTILITY(U,$J,"DIST(.404,",49,40,14,0)
48 ;;=5^Send Security Code^3
49 ;;^UTILITY(U,$J,"DIST(.404,",49,40,14,1)
50 ;;=222.2
51 ;;^UTILITY(U,$J,"DIST(.404,",49,40,14,2)
52 ;;=7,62^3^7,42
53 ;;^UTILITY(U,$J,"DIST(.404,",49,40,14,3)
54 ;;=YES
55 ;;^UTILITY(U,$J,"DIST(.404,",49,40,16,0)
56 ;;=4^Update the Data Dictionary^3
57 ;;^UTILITY(U,$J,"DIST(.404,",49,40,16,1)
58 ;;=222.1
59 ;;^UTILITY(U,$J,"DIST(.404,",49,40,16,2)
60 ;;=7,30^3^7,2
61 ;;^UTILITY(U,$J,"DIST(.404,",49,40,16,3)
62 ;;=YES
63 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,0)
64 ;;=3^Send Full or Partial DD...^3
65 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,1)
66 ;;=222.3
67 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,2)
68 ;;=5,33^7^5,5
69 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,3)
70 ;;=FULL
71 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,10)
72 ;;=S:X="p" DDSSTACK=11
73 ;;^UTILITY(U,$J,"DIST(.404,",49,40,18,13)
74 ;;=D:X="p" PUT^DDSVAL(DIE,.DA,222.7,"n","","I")
75 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",1,1)
76 ;;=
77 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",2,2)
78 ;;=
79 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",3,18)
80 ;;=
81 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",4,16)
82 ;;=
83 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",5,14)
84 ;;=
85 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",6,13)
86 ;;=
87 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"B",7,7)
88 ;;=
89 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C"," DD EXPORT OPTIONS ",1)
90 ;;=
91 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","DATA COMES WITH FILE...",7)
92 ;;=
93 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","FILE",2)
94 ;;=
95 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","SCREEN TO DETERMINE DD UPDATE",13)
96 ;;=
97 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","SEND FULL OR PARTIAL DD...",18)
98 ;;=
99 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","SEND SECURITY CODE",14)
100 ;;=
101 ;;^UTILITY(U,$J,"DIST(.404,",49,40,"C","UPDATE THE DATA DICTIONARY",16)
102 ;;=
103 ;;^UTILITY(U,$J,"DIST(.404,",50,0)
104 ;;=XPD EDIT BUILD5^9.402
105 ;;^UTILITY(U,$J,"DIST(.404,",50,40,0)
106 ;;=^.4044I^4^4
107 ;;^UTILITY(U,$J,"DIST(.404,",50,40,1,0)
108 ;;=1^ Affects Record Merge ^1^
109 ;;^UTILITY(U,$J,"DIST(.404,",50,40,1,2)
110 ;;=^^1,23^1
111 ;;^UTILITY(U,$J,"DIST(.404,",50,40,2,0)
112 ;;=2^File Affected^3^
113 ;;^UTILITY(U,$J,"DIST(.404,",50,40,2,1)
114 ;;=.01
115 ;;^UTILITY(U,$J,"DIST(.404,",50,40,2,2)
116 ;;=3,16^45^3,1
117 ;;^UTILITY(U,$J,"DIST(.404,",50,40,3,0)
118 ;;=3^Name of Merge Routine^3^
119 ;;^UTILITY(U,$J,"DIST(.404,",50,40,3,1)
120 ;;=3
121 ;;^UTILITY(U,$J,"DIST(.404,",50,40,3,2)
122 ;;=5,24^8^5,1
123 ;;^UTILITY(U,$J,"DIST(.404,",50,40,4,0)
124 ;;=4^Record has Package Data^3^
125 ;;^UTILITY(U,$J,"DIST(.404,",50,40,4,1)
126 ;;=4
127 ;;^UTILITY(U,$J,"DIST(.404,",50,40,4,2)
128 ;;=10,1^70^8,21^1
129 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",1,1)
130 ;;=
131 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",2,2)
132 ;;=
133 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",3,3)
134 ;;=
135 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"B",4,4)
136 ;;=
137 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"C"," AFFECTS RECORD MERGE ",1)
138 ;;=
139 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"C","FILE AFFECTED",2)
140 ;;=
141 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"C","NAME OF MERGE ROUTINE",3)
142 ;;=
143 ;;^UTILITY(U,$J,"DIST(.404,",50,40,"C","RECORD HAS PACKAGE DATA",4)
144 ;;=
145 ;;^UTILITY(U,$J,"DIST(.404,",51,0)
146 ;;=XPD EDIT BUILD6^9.4
147 ;;^UTILITY(U,$J,"DIST(.404,",51,11)
148 ;;=I $G(XPDBR) S DDSBR="COM" K XPDBR
149 ;;^UTILITY(U,$J,"DIST(.404,",51,40,0)
150 ;;=^.4044I^5^2
151 ;;^UTILITY(U,$J,"DIST(.404,",51,40,2,0)
152 ;;=2^Select Affects Record Merge^3^
153 ;;^UTILITY(U,$J,"DIST(.404,",51,40,2,1)
154 ;;=20
155 ;;^UTILITY(U,$J,"DIST(.404,",51,40,2,2)
156 ;;=5,31^30^5,2
157 ;;^UTILITY(U,$J,"DIST(.404,",51,40,2,7)
158 ;;=^
Note: See TracBrowser for help on using the repository browser.