Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XPDIN002

XPDIN002.m

Go to the documentation of this file. 
  1. XPDIN002 ; ; 03-JUL-1995
  1.  ;;8.0;KERNEL;;JUL 10, 1995
  1.  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
  1. Q Q
  1.  ;;^DD(9.6,7,"DT")
  1.  ;;=2940519
  1.  ;;^DD(9.6,10,0)
  1.  ;;=MULTI-PACKAGE^9.63P^^10;0
  1.  ;;^DD(9.6,10,21,0)
  1.  ;;=^^2^2^2940503^
  1.  ;;^DD(9.6,10,21,1,0)
  1.  ;;=This multiple contains other packages that will be sent with this package
  1.  ;;^DD(9.6,10,21,2,0)
  1.  ;;=for a multi-package distribution.
  1.  ;;^DD(9.6,20,0)
  1.  ;;=ALPHA/BETA TESTING^S^y:YES;n:NO;^ABPKG;1^Q
  1.  ;;^DD(9.6,20,21,0)
  1.  ;;=^^5^5^2940502^^^^
  1.  ;;^DD(9.6,20,21,1,0)
  1.  ;;=YES means this package is currently in alpha or beta test and that you want
  1.  ;;^DD(9.6,20,21,2,0)
  1.  ;;=to track option usage and errors relating to this package at the sites.
  1.  ;;^DD(9.6,20,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.6,20,21,4,0)
  1.  ;;=NO means that you want to discontinue tracking of alpha or beta testing
  1.  ;;^DD(9.6,20,21,5,0)
  1.  ;;=at sites.
  1.  ;;^DD(9.6,20,"DT")
  1.  ;;=2940307
  1.  ;;^DD(9.6,21,0)
  1.  ;;=INSTALLATION MESSAGE^S^y:YES;n:NO;^ABPKG;2^Q
  1.  ;;^DD(9.6,21,21,0)
  1.  ;;=^^3^3^2940307^^
  1.  ;;^DD(9.6,21,21,1,0)
  1.  ;;=YES means you want a Installation Message sent when this package is
  1.  ;;^DD(9.6,21,21,2,0)
  1.  ;;=installed at a site.  The message will be sent to the mailgroup in the 
  1.  ;;^DD(9.6,21,21,3,0)
  1.  ;;='ADDRESS FOR USAGE REPORTING' field.
  1.  ;;^DD(9.6,21,"DT")
  1.  ;;=2940307
  1.  ;;^DD(9.6,22,0)
  1.  ;;=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
  1.  ;;^DD(9.6,22,3)
  1.  ;;=Answer should be a group addressee network mail format (e.g., G.PKG-TEST@ISC-ANYWHERE)
  1.  ;;^DD(9.6,22,21,0)
  1.  ;;=^^4^4^2940307^
  1.  ;;^DD(9.6,22,21,1,0)
  1.  ;;=This field contains a mail group at a domain to which
  1.  ;;^DD(9.6,22,21,2,0)
  1.  ;;=installation, option usage, and error messages are sent.
  1.  ;;^DD(9.6,22,21,3,0)
  1.  ;;=This is usually a mail group containing one or more of
  1.  ;;^DD(9.6,22,21,4,0)
  1.  ;;=the developers of the package at the developing ISC.
  1.  ;;^DD(9.6,22,"DT")
  1.  ;;=2940308
  1.  ;;^DD(9.6,23,0)
  1.  ;;=PACKAGE NAMESPACE OR PREFIX^9.66A^^ABNS;0
  1.  ;;^DD(9.6,23,21,0)
  1.  ;;=^^3^3^2940307^
  1.  ;;^DD(9.6,23,21,1,0)
  1.  ;;=This multiple field is used to identify the namespace or
  1.  ;;^DD(9.6,23,21,2,0)
  1.  ;;=prefixes used to identify the options and routines
  1.  ;;^DD(9.6,23,21,3,0)
  1.  ;;=associated with the alpha or beta test package.
  1.  ;;^DD(9.6,30,0)
  1.  ;;=GLOBAL^9.65^^GLO;0
  1.  ;;^DD(9.6,30,21,0)
  1.  ;;=^^1^1^2950105^^
  1.  ;;^DD(9.6,30,21,1,0)
  1.  ;;=This multiple contains the globals to transport with KIDS.
  1.  ;;^DD(9.6,50,0)
  1.  ;;=INSTALL QUESTIONS^9.62^^QUES;0
  1.  ;;^DD(9.6,50,21,0)
  1.  ;;=^^4^4^2940502^^^
  1.  ;;^DD(9.6,50,21,1,0)
  1.  ;;=These are the Install questions that will be asked at the installing site.
  1.  ;;^DD(9.6,50,21,2,0)
  1.  ;;=All questions will use the VA Fileman Reader (DIR) and all variables need
  1.  ;;^DD(9.6,50,21,3,0)
  1.  ;;=to be defined in this multiple. Only the ENVIROMENT CHECK ROUTINE will be
  1.  ;;^DD(9.6,50,21,4,0)
  1.  ;;=loaded at the installing site when these questions are asked.
  1.  ;;^DD(9.6,913,0)
  1.  ;;=ENVIRONMENT CHECK ROUTINE^FX^^PRE;1^K:$L(X)<3!(X'?1U.7UN) X
  1.  ;;^DD(9.6,913,.1)
  1.  ;;=DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED
  1.  ;;^DD(9.6,913,3)
  1.  ;;=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.
  1.  ;;^DD(9.6,913,21,0)
  1.  ;;=^^8^8^2931118^^^
  1.  ;;^DD(9.6,913,21,1,0)
  1.  ;;=The name of the developer's routine which is run at the beginning of
  1.  ;;^DD(9.6,913,21,2,0)
  1.  ;;=the install process.  This should just check the environment
  1.  ;;^DD(9.6,913,21,3,0)
  1.  ;;=and should not alter any data, since the user has no way to exit out of
  1.  ;;^DD(9.6,913,21,4,0)
  1.  ;;=the install process until this program runs to completion.
  1.  ;;^DD(9.6,913,21,5,0)
  1.  ;;=This routine can interact with the user. If the variable XPDQUIT is set,
  1.  ;;^DD(9.6,913,21,6,0)
  1.  ;;=the install process will terminate.
  1.  ;;^DD(9.6,913,21,7,0)
  1.  ;;= Note: This routine must be self-contained, since it will be the only
  1.  ;;^DD(9.6,913,21,8,0)
  1.  ;;=routine installed from this package at this time.
  1.  ;;^DD(9.6,913,"DT")
  1.  ;;=2940119
  1.  ;;^DD(9.6,914,0)
  1.  ;;=POST-INSTALL ROUTINE^FX^^INIT;E1,240^K:$L(X)>17!(X'?.1UP.7UN.1"^"1UP.7UN) X
  1.  ;;^DD(9.6,914,.1)
  1.  ;;=
  1.  ;;^DD(9.6,914,3)
  1.  ;;=Enter the name of the developer's post-initialization [TAG^]ROUTINE. 
  1.  ;;^DD(9.6,914,21,0)
  1.  ;;=^^3^3^2940518^^^^
  1.  ;;^DD(9.6,914,21,1,0)
  1.  ;;=The name of the developer's routine which is run immediately after the
  1.  ;;^DD(9.6,914,21,2,0)
  1.  ;;=installation of the package.  This routine cannot be interactive with
  1.  ;;^DD(9.6,914,21,3,0)
  1.  ;;=the user, it might be queued to run at a later time.