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/XPDIN002.m@ 1569

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

initial load of FOIAVistA 6/30/08 version

File size: 4.7 KB
Line 
1XPDIN002 ; ; 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.6,7,"DT")
6 ;;=2940519
7 ;;^DD(9.6,10,0)
8 ;;=MULTI-PACKAGE^9.63P^^10;0
9 ;;^DD(9.6,10,21,0)
10 ;;=^^2^2^2940503^
11 ;;^DD(9.6,10,21,1,0)
12 ;;=This multiple contains other packages that will be sent with this package
13 ;;^DD(9.6,10,21,2,0)
14 ;;=for a multi-package distribution.
15 ;;^DD(9.6,20,0)
16 ;;=ALPHA/BETA TESTING^S^y:YES;n:NO;^ABPKG;1^Q
17 ;;^DD(9.6,20,21,0)
18 ;;=^^5^5^2940502^^^^
19 ;;^DD(9.6,20,21,1,0)
20 ;;=YES means this package is currently in alpha or beta test and that you want
21 ;;^DD(9.6,20,21,2,0)
22 ;;=to track option usage and errors relating to this package at the sites.
23 ;;^DD(9.6,20,21,3,0)
24 ;;=
25 ;;^DD(9.6,20,21,4,0)
26 ;;=NO means that you want to discontinue tracking of alpha or beta testing
27 ;;^DD(9.6,20,21,5,0)
28 ;;=at sites.
29 ;;^DD(9.6,20,"DT")
30 ;;=2940307
31 ;;^DD(9.6,21,0)
32 ;;=INSTALLATION MESSAGE^S^y:YES;n:NO;^ABPKG;2^Q
33 ;;^DD(9.6,21,21,0)
34 ;;=^^3^3^2940307^^
35 ;;^DD(9.6,21,21,1,0)
36 ;;=YES means you want a Installation Message sent when this package is
37 ;;^DD(9.6,21,21,2,0)
38 ;;=installed at a site. The message will be sent to the mailgroup in the
39 ;;^DD(9.6,21,21,3,0)
40 ;;='ADDRESS FOR USAGE REPORTING' field.
41 ;;^DD(9.6,21,"DT")
42 ;;=2940307
43 ;;^DD(9.6,22,0)
44 ;;=ADDRESS FOR USAGE REPORTING^FX^^ABPKG;3^K:$L(X)>60!($L(X)<5)!(X'?1"G."1U.E1"@"1U.E) X I $D(X) N DIC,XPD S DIC=4.2,DIC(0)="QEM",XPD=X,X=$P(X,"@",2) D ^DIC S:Y>0 X=$P(XPD,"@")_"@"_$P(Y,U,2) K:Y<0 X
45 ;;^DD(9.6,22,3)
46 ;;=Answer should be a group addressee network mail format (e.g., G.PKG-TEST@ISC-ANYWHERE)
47 ;;^DD(9.6,22,21,0)
48 ;;=^^4^4^2940307^
49 ;;^DD(9.6,22,21,1,0)
50 ;;=This field contains a mail group at a domain to which
51 ;;^DD(9.6,22,21,2,0)
52 ;;=installation, option usage, and error messages are sent.
53 ;;^DD(9.6,22,21,3,0)
54 ;;=This is usually a mail group containing one or more of
55 ;;^DD(9.6,22,21,4,0)
56 ;;=the developers of the package at the developing ISC.
57 ;;^DD(9.6,22,"DT")
58 ;;=2940308
59 ;;^DD(9.6,23,0)
60 ;;=PACKAGE NAMESPACE OR PREFIX^9.66A^^ABNS;0
61 ;;^DD(9.6,23,21,0)
62 ;;=^^3^3^2940307^
63 ;;^DD(9.6,23,21,1,0)
64 ;;=This multiple field is used to identify the namespace or
65 ;;^DD(9.6,23,21,2,0)
66 ;;=prefixes used to identify the options and routines
67 ;;^DD(9.6,23,21,3,0)
68 ;;=associated with the alpha or beta test package.
69 ;;^DD(9.6,30,0)
70 ;;=GLOBAL^9.65^^GLO;0
71 ;;^DD(9.6,30,21,0)
72 ;;=^^1^1^2950105^^
73 ;;^DD(9.6,30,21,1,0)
74 ;;=This multiple contains the globals to transport with KIDS.
75 ;;^DD(9.6,50,0)
76 ;;=INSTALL QUESTIONS^9.62^^QUES;0
77 ;;^DD(9.6,50,21,0)
78 ;;=^^4^4^2940502^^^
79 ;;^DD(9.6,50,21,1,0)
80 ;;=These are the Install questions that will be asked at the installing site.
81 ;;^DD(9.6,50,21,2,0)
82 ;;=All questions will use the VA Fileman Reader (DIR) and all variables need
83 ;;^DD(9.6,50,21,3,0)
84 ;;=to be defined in this multiple. Only the ENVIROMENT CHECK ROUTINE will be
85 ;;^DD(9.6,50,21,4,0)
86 ;;=loaded at the installing site when these questions are asked.
87 ;;^DD(9.6,913,0)
88 ;;=ENVIRONMENT CHECK ROUTINE^FX^^PRE;1^K:$L(X)<3!(X'?1U.7UN) X
89 ;;^DD(9.6,913,.1)
90 ;;=DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED
91 ;;^DD(9.6,913,3)
92 ;;=Enter name of developer's environment check routine (3-8 characters) that runs before any user questions are asked. This routine should be used for environment check only and should not alter data.
93 ;;^DD(9.6,913,21,0)
94 ;;=^^8^8^2931118^^^
95 ;;^DD(9.6,913,21,1,0)
96 ;;=The name of the developer's routine which is run at the beginning of
97 ;;^DD(9.6,913,21,2,0)
98 ;;=the install process. This should just check the environment
99 ;;^DD(9.6,913,21,3,0)
100 ;;=and should not alter any data, since the user has no way to exit out of
101 ;;^DD(9.6,913,21,4,0)
102 ;;=the install process until this program runs to completion.
103 ;;^DD(9.6,913,21,5,0)
104 ;;=This routine can interact with the user. If the variable XPDQUIT is set,
105 ;;^DD(9.6,913,21,6,0)
106 ;;=the install process will terminate.
107 ;;^DD(9.6,913,21,7,0)
108 ;;= Note: This routine must be self-contained, since it will be the only
109 ;;^DD(9.6,913,21,8,0)
110 ;;=routine installed from this package at this time.
111 ;;^DD(9.6,913,"DT")
112 ;;=2940119
113 ;;^DD(9.6,914,0)
114 ;;=POST-INSTALL ROUTINE^FX^^INIT;E1,240^K:$L(X)>17!(X'?.1UP.7UN.1"^"1UP.7UN) X
115 ;;^DD(9.6,914,.1)
116 ;;=
117 ;;^DD(9.6,914,3)
118 ;;=Enter the name of the developer's post-initialization [TAG^]ROUTINE.
119 ;;^DD(9.6,914,21,0)
120 ;;=^^3^3^2940518^^^^
121 ;;^DD(9.6,914,21,1,0)
122 ;;=The name of the developer's routine which is run immediately after the
123 ;;^DD(9.6,914,21,2,0)
124 ;;=installation of the package. This routine cannot be interactive with
125 ;;^DD(9.6,914,21,3,0)
126 ;;=the user, it might be queued to run at a later time.
Note: See TracBrowser for help on using the repository browser.