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