1: DIPKI008 ; ; 22-DEC-1994
2: ;;21.0;VA FileMan;;Dec 28, 1994
3: ;Per VHA Directive 10-93-142, this routine should not be modified.
4: Q:'DIFQ(9.4) 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
5: Q Q
6: ;;^DD(9.44,222.7,"DT")
7: ;;=2940502
8: ;;^DD(9.44,222.8,0)
9: ;;=MERGE OR OVERWRITE SITE'S DATA^S^m:MERGE;o:OVERWRITE;^222;8^Q
10: ;;^DD(9.44,222.8,3)
11: ;;=
12: ;;^DD(9.44,222.8,21,0)
13: ;;=^^7^7^2920513^^^^
14: ;;^DD(9.44,222.8,21,1,0)
15: ;;=
16: ;;^DD(9.44,222.8,21,2,0)
17: ;;=If the data being sent is to be MERGED, then only data which is not
18: ;;^DD(9.44,222.8,21,3,0)
19: ;;=already on file at the recipient site will be put in place.
20: ;;^DD(9.44,222.8,21,4,0)
21: ;;=
22: ;;^DD(9.44,222.8,21,5,0)
23: ;;=If the data being sent is to OVERWRITE, then the data included in
24: ;;^DD(9.44,222.8,21,6,0)
25: ;;=the initialization routines will be put in place regardless of what
26: ;;^DD(9.44,222.8,21,7,0)
27: ;;=is on file at the recipient site.
28: ;;^DD(9.44,222.8,"DT")
29: ;;=2890627
30: ;;^DD(9.44,222.9,0)
31: ;;=MAY USER OVERRIDE DATA UPDATE^S^y:YES;n:NO;^222;9^Q
32: ;;^DD(9.44,222.9,3)
33: ;;=
34: ;;^DD(9.44,222.9,21,0)
35: ;;=^^7^7^2920513^^^^
36: ;;^DD(9.44,222.9,21,1,0)
37: ;;=YES means that the user has the option to determine whether or not
38: ;;^DD(9.44,222.9,21,2,0)
39: ;;=to bring in the data that has been sent with the package. However,
40: ;;^DD(9.44,222.9,21,3,0)
41: ;;=he does not get the ability to change from merge to overwrite or
42: ;;^DD(9.44,222.9,21,4,0)
43: ;;=from overwrite to merge.
44: ;;^DD(9.44,222.9,21,5,0)
45: ;;=
46: ;;^DD(9.44,222.9,21,6,0)
47: ;;=No means that the developer of the INIT will control whether the data
48: ;;^DD(9.44,222.9,21,7,0)
49: ;;=will be installed at the target site.
50: ;;^DD(9.44,222.9,"DT")
51: ;;=2940502
52: ;;^DD(9.44,223,0)
53: ;;=SCREEN TO DETERMINE DD UPDATE^KX^^223;E1,245^K:$L(X)>240 X I $D(X) D ^DIM
54: ;;^DD(9.44,223,3)
55: ;;=This is Standard MUMPS code from 1 to 240 characters in length.
56: ;;^DD(9.44,223,9)
57: ;;=@
58: ;;^DD(9.44,223,21,0)
59: ;;=^^7^7^2920513^^
60: ;;^DD(9.44,223,21,1,0)
61: ;;=This field contains standard MUMPS code which is used to determine
62: ;;^DD(9.44,223,21,2,0)
63: ;;=whether or not a data dictionary should be updated. This code must
64: ;;^DD(9.44,223,21,3,0)
65: ;;=set $T. If $T=1, the DD will be updated. If $T=0, it will not.
66: ;;^DD(9.44,223,21,4,0)
67: ;;=
68: ;;^DD(9.44,223,21,5,0)
69: ;;=This code will be executed within VA FileMan which may be being called
70: ;;^DD(9.44,223,21,6,0)
71: ;;=from within MailMan which is being called from within MenuMan.
72: ;;^DD(9.44,223,21,7,0)
73: ;;=Namespace your variables.
74: ;;^DD(9.44,223,"DT")
75: ;;=2890927
76: ;;^DD(9.444,0)
77: ;;=*STATUS SUB-FIELD^NL^2^4
78: ;;^DD(9.444,0,"NM","*STATUS")
79: ;;=
80: ;;^DD(9.444,0,"UP")
81: ;;=9.4
82: ;;^DD(9.444,.01,0)
83: ;;=DATE^DX^^0;1^S %DT="E" D ^%DT S (DINUM,X)=Y K:Y<1 X,DINUM
84: ;;^DD(9.444,.01,3)
85: ;;=Please enter the date at which the current status took effect.
86: ;;^DD(9.444,.01,21,0)
87: ;;=^^1^1^2851008^^
88: ;;^DD(9.444,.01,21,1,0)
89: ;;=This is the date at which the current status took effect.
90: ;;^DD(9.444,.01,"DT")
91: ;;=2840814
92: ;;^DD(9.444,1,0)
93: ;;=STATUS^S^A:ASSIGNED;P:PENDING;T:TEMPORARY;X:NO LONGER USED;^0;2^Q
94: ;;^DD(9.444,1,21,0)
95: ;;=^^2^2^2851008^
96: ;;^DD(9.444,1,21,1,0)
97: ;;=This specifies the current status of the namespace, i.e. Temporary,
98: ;;^DD(9.444,1,21,2,0)
99: ;;=Pending, Assigned, etc.
100: ;;^DD(9.444,1,"DT")
101: ;;=2840814
102: ;;^DD(9.444,1.5,0)
103: ;;=EXPIRATION DATE^D^^2;1^S %DT="E" D ^%DT S X=Y K:Y<1 X
104: ;;^DD(9.444,1.5,3)
105: ;;=Please enter the date at which the namespace was de-assigned.
106: ;;^DD(9.444,1.5,21,0)
107: ;;=^^2^2^2851008^^
108: ;;^DD(9.444,1.5,21,1,0)
109: ;;=This is the date at which the assignment of the namespace to
110: ;;^DD(9.444,1.5,21,2,0)
111: ;;=this Package expired.
112: ;;^DD(9.444,1.5,"DT")
113: ;;=2840815
114: ;;^DD(9.444,2,0)
115: ;;=COMMENTS^9.454^^1;0
116: ;;^DD(9.444,2,21,0)
117: ;;=^^1^1^2851008^
118: ;;^DD(9.444,2,21,1,0)
119: ;;=These are any comments about the status of this Package's namespace.
120: ;;^DD(9.45,0)
121: ;;=FIELD SUB-FIELD^NL^.01^1
122: ;;^DD(9.45,0,"IX","B",9.45,.01)
123: ;;=
124: ;;^DD(9.45,0,"NM","FIELD")
125: ;;=
126: ;;^DD(9.45,0,"UP")
127: ;;=9.44
128: ;;^DD(9.45,.01,0)
129: ;;=FIELD^MFX^^0;1^S %=+^DIC(9.4,DA(2),4,DA(1),0),X=$S($L(X)>30:X,$D(^DD(%,"B",X)):X,X'?.NP:0,'$D(^DD(%,X,0)):0,1:$P(^(0),U,1)) K:X=0 X
130: ;;^DD(9.45,.01,.1)
131: ;;=FIELDS REQUIRED FOR THE PACKAGE
132: ;;^DD(9.45,.01,1,0)
133: ;;=^.1
134: ;;^DD(9.45,.01,1,1,0)
135: ;;=9.45^B
136: ;;^DD(9.45,.01,1,1,1)
137: ;;=S ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)=""
138: ;;^DD(9.45,.01,1,1,2)
139: ;;=K ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)
140: ;;^DD(9.45,.01,3)
141: ;;=Please enter the name of a field.
142: ;;^DD(9.45,.01,21,0)
143: ;;=^^4^4^2920513^^^^
144: ;;^DD(9.45,.01,21,1,0)
145: ;;=The name of a FileMan field required by this Package. This field is
146: ;;^DD(9.45,.01,21,2,0)
147: ;;=only to be filled in if you wish to send only selected fields in
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIPKI008.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman / USER