source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDIN005.m@ 1607

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

initial load of FOIAVistA 6/30/08 version
File size: 4.8 KB
Line 
1XPDIN005 ; ; 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.2,21,3,0)
6 ;;=only be installed if the file is new at the installing site.
7 ;;^DD(9.64,222.2,21,4,0)
8 ;;=
9 ;;^DD(9.64,222.2,21,5,0)
10 ;;=NO means you do not want to include security codes.
11 ;;^DD(9.64,222.2,"DT")
12 ;;=2940211
13 ;;^DD(9.64,222.3,0)
14 ;;=SEND FULL OR PARTIAL DD^S^f:FULL;p:PARTIAL;^222;3^Q
15 ;;^DD(9.64,222.3,1,0)
16 ;;=^.1
17 ;;^DD(9.64,222.3,1,1,0)
18 ;;=^^TRIGGER^9.64^222.7
19 ;;^DD(9.64,222.3,1,1,1)
20 ;;=X ^DD(9.64,222.3,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,4,D1,222)):^(222),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="n" X ^DD(9.64,222.3,1,1,1.4)
21 ;;^DD(9.64,222.3,1,1,1.3)
22 ;;=K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9.64,222.3,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="PARTIAL"
23 ;;^DD(9.64,222.3,1,1,1.4)
24 ;;=S DIH=$S($D(^XPD(9.6,DIV(0),4,DIV(1),222)):^(222),1:""),DIV=X S $P(^(222),U,7)=DIV,DIH=9.64,DIG=222.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
25 ;;^DD(9.64,222.3,1,1,2)
26 ;;=Q
27 ;;^DD(9.64,222.3,1,1,"%D",0)
28 ;;=^^2^2^2941220^
29 ;;^DD(9.64,222.3,1,1,"%D",1,0)
30 ;;=This cross-reference sets the DATA COMES WITH FILE field to 'NO' if the
31 ;;^DD(9.64,222.3,1,1,"%D",2,0)
32 ;;=Data Dictionary is a PARTIAL.
33 ;;^DD(9.64,222.3,1,1,"CREATE CONDITION")
34 ;;=SEND FULL OR PARTIAL DD="PARTIAL"
35 ;;^DD(9.64,222.3,1,1,"CREATE VALUE")
36 ;;="n"
37 ;;^DD(9.64,222.3,1,1,"DELETE VALUE")
38 ;;=NO EFFECT
39 ;;^DD(9.64,222.3,1,1,"DT")
40 ;;=2941220
41 ;;^DD(9.64,222.3,1,1,"FIELD")
42 ;;=#222.7
43 ;;^DD(9.64,222.3,1,2,0)
44 ;;=9.64^AC^MUMPS
45 ;;^DD(9.64,222.3,1,2,1)
46 ;;=K:X="f" ^XPD(9.6,DA(1),4,DA,2),^XPD(9.6,DA(1),4,"APDD",DA)
47 ;;^DD(9.64,222.3,1,2,2)
48 ;;=Q
49 ;;^DD(9.64,222.3,1,2,"%D",0)
50 ;;=^^2^2^2941220^
51 ;;^DD(9.64,222.3,1,2,"%D",1,0)
52 ;;=This cross-reference is to clean up the partial DD information when
53 ;;^DD(9.64,222.3,1,2,"%D",2,0)
54 ;;=you send a Full DD.
55 ;;^DD(9.64,222.3,1,2,"DT")
56 ;;=2941220
57 ;;^DD(9.64,222.3,5,1,0)
58 ;;=9.64^222.7^1
59 ;;^DD(9.64,222.3,"DT")
60 ;;=2941220
61 ;;^DD(9.64,222.5,0)
62 ;;=RESOLVE POINTERS^S^y:YES;n:NO;^222;5^Q
63 ;;^DD(9.64,222.5,21,0)
64 ;;=^^4^4^2941108^
65 ;;^DD(9.64,222.5,21,1,0)
66 ;;=YES means you want to have all pointer type fields values resolved at the
67 ;;^DD(9.64,222.5,21,2,0)
68 ;;=installing site.
69 ;;^DD(9.64,222.5,21,3,0)
70 ;;=
71 ;;^DD(9.64,222.5,21,4,0)
72 ;;=NO means you want any pointer type field values resolved.
73 ;;^DD(9.64,222.5,"DT")
74 ;;=2940601
75 ;;^DD(9.64,222.6,0)
76 ;;=DATA LIST^FX^^222;6^S X=$$SEL^DIFROMSS(D1,X) K:X="" X
77 ;;^DD(9.64,222.6,3)
78 ;;=Select Sort Template containing the list of records to transport, for this file.
79 ;;^DD(9.64,222.6,4)
80 ;;=D HELP^DIFROMSS(D1)
81 ;;^DD(9.64,222.6,12)
82 ;;=Must be a sort list
83 ;;^DD(9.64,222.6,12.1)
84 ;;=S DIC("S")="I $P(^(0),U,4)=D1,$D(^(1))>9"
85 ;;^DD(9.64,222.6,21,0)
86 ;;=^^2^2^2940720^^^^
87 ;;^DD(9.64,222.6,21,1,0)
88 ;;=This is the results of a search, which is stored in a Sort template. This
89 ;;^DD(9.64,222.6,21,2,0)
90 ;;=Sort list will contain the records to be transported.
91 ;;^DD(9.64,222.6,"DT")
92 ;;=2940720
93 ;;^DD(9.64,222.7,0)
94 ;;=DATA COMES WITH FILE^S^y:YES;n:NO;^222;7^Q
95 ;;^DD(9.64,222.7,1,0)
96 ;;=^.1
97 ;;^DD(9.64,222.7,1,1,0)
98 ;;=^^TRIGGER^9.64^222.3
99 ;;^DD(9.64,222.7,1,1,1)
100 ;;=X ^DD(9.64,222.7,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,4,D1,222)):^(222),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X="f" X ^DD(9.64,222.7,1,1,1.4)
101 ;;^DD(9.64,222.7,1,1,1.3)
102 ;;=K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9.64,222.7,0)):$P(^(0),U,3),1:"") S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59),1)="YES"
103 ;;^DD(9.64,222.7,1,1,1.4)
104 ;;=S DIH=$S($D(^XPD(9.6,DIV(0),4,DIV(1),222)):^(222),1:""),DIV=X S $P(^(222),U,3)=DIV,DIH=9.64,DIG=222.3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
105 ;;^DD(9.64,222.7,1,1,2)
106 ;;=Q
107 ;;^DD(9.64,222.7,1,1,"%D",0)
108 ;;=^^2^2^2941220^
109 ;;^DD(9.64,222.7,1,1,"%D",1,0)
110 ;;=This cross-reference sets the SEND FULL OR PATIAL DD field to FULL
111 ;;^DD(9.64,222.7,1,1,"%D",2,0)
112 ;;=when sending data with a file.
113 ;;^DD(9.64,222.7,1,1,"CREATE CONDITION")
114 ;;=DATA COMES WITH FILE="YES"
115 ;;^DD(9.64,222.7,1,1,"CREATE VALUE")
116 ;;="f"
117 ;;^DD(9.64,222.7,1,1,"DELETE VALUE")
118 ;;=NO EFFECT
119 ;;^DD(9.64,222.7,1,1,"DT")
120 ;;=2941220
121 ;;^DD(9.64,222.7,1,1,"FIELD")
122 ;;=#222.3
123 ;;^DD(9.64,222.7,5,1,0)
124 ;;=9.64^222.3^1
125 ;;^DD(9.64,222.7,21,0)
126 ;;=^^4^4^2920513^^^^
127 ;;^DD(9.64,222.7,21,1,0)
128 ;;=YES means that the data should be included in the initialization
129 ;;^DD(9.64,222.7,21,2,0)
130 ;;=routines.
131 ;;^DD(9.64,222.7,21,3,0)
132 ;;=
133 ;;^DD(9.64,222.7,21,4,0)
134 ;;=NO means that the data should be left out.
135 ;;^DD(9.64,222.7,"DT")
136 ;;=2941220
137 ;;^DD(9.64,222.8,0)
138 ;;=SITE'S DATA^S^a:ADD ONLY IF NEW FILE;m:MERGE;o:OVERWRITE;r:REPLACE;^222;8^Q
Note: See TracBrowser for help on using the repository browser.