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/XPDIN006.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.8 KB
Line 
1XPDIN006 ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 Q:'DIFQ(9.6) 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 ;;^DD(9.64,222.8,3)
6 ;;=
7 ;;^DD(9.64,222.8,21,0)
8 ;;=7^^9^9^2941108^^^^
9 ;;^DD(9.64,222.8,21,1,0)
10 ;;=ADD ONLY IF NEW will install data at the installing site only if this
11 ;;^DD(9.64,222.8,21,2,0)
12 ;;=file is new to the site or there is no data in this file at the site.
13 ;;^DD(9.64,222.8,21,3,0)
14 ;;=MERGE data will only bring in data which is not already on file at
15 ;;^DD(9.64,222.8,21,4,0)
16 ;;=the installing site.
17 ;;^DD(9.64,222.8,21,5,0)
18 ;;=OVERWRITE data will be put in place regardless of what is on file
19 ;;^DD(9.64,222.8,21,6,0)
20 ;;=at the installing site.
21 ;;^DD(9.64,222.8,21,7,0)
22 ;;=REPLACE will delete the installing site's data before installing data for
23 ;;^DD(9.64,222.8,21,8,0)
24 ;;=this file. It will preserve locally developed fields, if they were created
25 ;;^DD(9.64,222.8,21,9,0)
26 ;;=within the VA Programming Standards and Conventions.
27 ;;^DD(9.64,222.8,"DT")
28 ;;=2940831
29 ;;^DD(9.64,222.9,0)
30 ;;=MAY USER OVERRIDE DATA UPDATE^S^y:YES;n:NO;^222;9^Q
31 ;;^DD(9.64,222.9,3)
32 ;;=
33 ;;^DD(9.64,222.9,21,0)
34 ;;=7^^7^7^2940414^^^
35 ;;^DD(9.64,222.9,21,1,0)
36 ;;=YES means that the user has the option to determine whether or not
37 ;;^DD(9.64,222.9,21,2,0)
38 ;;=to bring in the data that has been sent with this package. However,
39 ;;^DD(9.64,222.9,21,3,0)
40 ;;=the user does not get the ability to change how to install the SITE'S DATA,
41 ;;^DD(9.64,222.9,21,4,0)
42 ;;=i.e. MERGE to REPLACE.
43 ;;^DD(9.64,222.9,21,5,0)
44 ;;=
45 ;;^DD(9.64,222.9,21,6,0)
46 ;;=NO means that the developer of this package will control whether the data
47 ;;^DD(9.64,222.9,21,7,0)
48 ;;=will be installed at the target site.
49 ;;^DD(9.64,222.9,"DT")
50 ;;=2940502
51 ;;^DD(9.64,223,0)
52 ;;=SCREEN TO DETERMINE DD UPDATE^KX^^223;E1,245^K:$L(X)>240 X I $D(X) D ^DIM
53 ;;^DD(9.64,223,3)
54 ;;=This is Standard MUMPS code from 1 to 240 characters in length.
55 ;;^DD(9.64,223,9)
56 ;;=@
57 ;;^DD(9.64,223,21,0)
58 ;;=^^5^5^2940915^^^^
59 ;;^DD(9.64,223,21,1,0)
60 ;;=This field contains standard MUMPS code which is used to determine
61 ;;^DD(9.64,223,21,2,0)
62 ;;=whether or not a data dictionary should be updated. This code must
63 ;;^DD(9.64,223,21,3,0)
64 ;;=set $T. If $T=1, the DD will be updated. If $T=0, it will not.
65 ;;^DD(9.64,223,21,4,0)
66 ;;=
67 ;;^DD(9.64,223,21,5,0)
68 ;;=Namespace your variables.
69 ;;^DD(9.64,223,"DT")
70 ;;=2890927
71 ;;^DD(9.64,224,0)
72 ;;=SCREEN TO SELECT DATA^K^^224;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
73 ;;^DD(9.64,224,3)
74 ;;=This is Standard MUMPS code.
75 ;;^DD(9.64,224,9)
76 ;;=@
77 ;;^DD(9.64,224,21,0)
78 ;;=^^5^5^2950512^^^^
79 ;;^DD(9.64,224,21,1,0)
80 ;;=This field contains standard M code which is used to determine
81 ;;^DD(9.64,224,21,2,0)
82 ;;=whether a record in a file should be exported in this package.
83 ;;^DD(9.64,224,21,3,0)
84 ;;=The variable Y will be equal to the internal entry number of the
85 ;;^DD(9.64,224,21,4,0)
86 ;;=current record. This code must set $T, if $T=1 then the record will
87 ;;^DD(9.64,224,21,5,0)
88 ;;=be sent. If $T=0 it will not.
89 ;;^DD(9.64,224,"DT")
90 ;;=2940119
91 ;;^DD(9.641,0)
92 ;;=DD NUMBER SUB-FIELD^^1^3
93 ;;^DD(9.641,0,"DT")
94 ;;=2950330
95 ;;^DD(9.641,0,"IX","APDD",9.641,.01)
96 ;;=
97 ;;^DD(9.641,0,"NM","DD NUMBER")
98 ;;=
99 ;;^DD(9.641,0,"UP")
100 ;;=9.64
101 ;;^DD(9.641,.01,0)
102 ;;=DD NUMBER^MFX^^0;1^K:X[""""!($A(X)=45) X I $D(X) S X=$$CHKDD^DIFROMSD(D1,+$G(X),"N") K:X'>0 X S:$D(X) DINUM=+X,X=$P(X,"^",2)
103 ;;^DD(9.641,.01,1,0)
104 ;;=^.1
105 ;;^DD(9.641,.01,1,1,0)
106 ;;=9.641^APDD^MUMPS
107 ;;^DD(9.641,.01,1,1,1)
108 ;;=S ^XPD(9.6,DA(2),4,"APDD",DA(1),DA)=""
109 ;;^DD(9.641,.01,1,1,2)
110 ;;=K ^XPD(9.6,DA(2),4,"APDD",DA(1),DA)
111 ;;^DD(9.641,.01,1,1,"%D",0)
112 ;;=^^2^2^2950117^
113 ;;^DD(9.641,.01,1,1,"%D",1,0)
114 ;;=Used to create an array structure containing Partial DDs. This array
115 ;;^DD(9.641,.01,1,1,"%D",2,0)
116 ;;=is passed to FIA^DIFROMSU as a list of DD numbers and fields to transport.
117 ;;^DD(9.641,.01,1,1,"DT")
118 ;;=2940829
119 ;;^DD(9.641,.01,3)
120 ;;=Enter a valid DD number for this file.
121 ;;^DD(9.641,.01,4)
122 ;;=D DDIOLDD^DIFROMSD(D1)
123 ;;^DD(9.641,.01,21,0)
124 ;;=^^17^17^2940903^
125 ;;^DD(9.641,.01,21,1,0)
126 ;;=
127 ;;^DD(9.641,.01,21,2,0)
128 ;;=DD NUMBER pertains to the file's number or any multiple field contained
129 ;;^DD(9.641,.01,21,3,0)
130 ;;=within the file.
131 ;;^DD(9.641,.01,21,4,0)
132 ;;=
133 ;;^DD(9.641,.01,21,5,0)
134 ;;=This list starts with the file's top level number followed by a list of
135 ;;^DD(9.641,.01,21,6,0)
136 ;;=multiple fields contained within the file, if any. These DO NOT represent
137 ;;^DD(9.641,.01,21,7,0)
138 ;;=Field Number(s).
139 ;;^DD(9.641,.01,21,8,0)
140 ;;=
141 ;;^DD(9.641,.01,21,9,0)
142 ;;=The nesting levels are not represented. All the DD NUMBERs, file number
143 ;;^DD(9.641,.01,21,10,0)
144 ;;=and multiple fields, have been flatten to a single list.
Note: See TracBrowser for help on using the repository browser.