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

XPDIN004.m

Go to the documentation of this file. 
  1. XPDIN004 ; ; 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.62,10,21,0)
  1.  ;;=^^6^6^2940110^^
  1.  ;;^DD(9.62,10,21,1,0)
  1.  ;;=This field contains standard M code which will be executed after the DIR
  1.  ;;^DD(9.62,10,21,2,0)
  1.  ;;=array has been set from the previous fields, but before the call to the DIR
  1.  ;;^DD(9.62,10,21,3,0)
  1.  ;;=routine. If the developer doesn't want to ask a question, kill the DIR
  1.  ;;^DD(9.62,10,21,4,0)
  1.  ;;=array.  The array XPDQUES(SUBSCRIPT)=internal answer will be defined for all
  1.  ;;^DD(9.62,10,21,5,0)
  1.  ;;=questions asked.  This code can only make references to the ENVIORMENT CHECK
  1.  ;;^DD(9.62,10,21,6,0)
  1.  ;;=ROUTINE, since it will be the only routine loaded at this time.
  1.  ;;^DD(9.62,10,"DT")
  1.  ;;=2931129
  1.  ;;^DD(9.623,0)
  1.  ;;=DIR(A,#) SUB-FIELD^^.01^1
  1.  ;;^DD(9.623,0,"DT")
  1.  ;;=2931122
  1.  ;;^DD(9.623,0,"NM","DIR(A,#)")
  1.  ;;=
  1.  ;;^DD(9.623,0,"UP")
  1.  ;;=9.62
  1.  ;;^DD(9.623,.01,0)
  1.  ;;=DIR(A,#)^WL^^0;1^Q
  1.  ;;^DD(9.623,.01,"DT")
  1.  ;;=2931122
  1.  ;;^DD(9.626,0)
  1.  ;;=DIR(?,#) SUB-FIELD^^.01^1
  1.  ;;^DD(9.626,0,"DT")
  1.  ;;=2931122
  1.  ;;^DD(9.626,0,"NM","DIR(?,#)")
  1.  ;;=
  1.  ;;^DD(9.626,0,"UP")
  1.  ;;=9.62
  1.  ;;^DD(9.626,.01,0)
  1.  ;;=DIR(?,#)^WL^^0;1^Q
  1.  ;;^DD(9.626,.01,"DT")
  1.  ;;=2931122
  1.  ;;^DD(9.63,0)
  1.  ;;=MULTI-PACKAGE SUB-FIELD^^.01^2
  1.  ;;^DD(9.63,0,"DT")
  1.  ;;=2940503
  1.  ;;^DD(9.63,0,"IX","B",9.63,.01)
  1.  ;;=
  1.  ;;^DD(9.63,0,"NM","MULTI-PACKAGE")
  1.  ;;=
  1.  ;;^DD(9.63,0,"UP")
  1.  ;;=9.6
  1.  ;;^DD(9.63,.001,0)
  1.  ;;=INSTALL ORDER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  1.  ;;^DD(9.63,.001,3)
  1.  ;;=Type a Number between 1 and 99, 0 Decimal Digits
  1.  ;;^DD(9.63,.001,21,0)
  1.  ;;=^^1^1^2940503^
  1.  ;;^DD(9.63,.001,21,1,0)
  1.  ;;=This is the order in which this package will be installed.
  1.  ;;^DD(9.63,.001,"DT")
  1.  ;;=2940503
  1.  ;;^DD(9.63,.01,0)
  1.  ;;=MULTI-PACKAGE^MP9.6'^XPD(9.6,^0;1^Q
  1.  ;;^DD(9.63,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.63,.01,1,1,0)
  1.  ;;=9.63^B
  1.  ;;^DD(9.63,.01,1,1,1)
  1.  ;;=S ^XPD(9.6,DA(1),10,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(9.63,.01,1,1,2)
  1.  ;;=K ^XPD(9.6,DA(1),10,"B",$E(X,1,30),DA)
  1.  ;;^DD(9.63,.01,21,0)
  1.  ;;=^^1^1^2940503^
  1.  ;;^DD(9.63,.01,21,1,0)
  1.  ;;=Name of package that will be part of this multi-package distribution.
  1.  ;;^DD(9.63,.01,"DT")
  1.  ;;=2940502
  1.  ;;^DD(9.64,0)
  1.  ;;=FILE SUB-FIELD^NL^224^13
  1.  ;;^DD(9.64,0,"DT")
  1.  ;;=2950330
  1.  ;;^DD(9.64,0,"IX","AC",9.64,222.3)
  1.  ;;=
  1.  ;;^DD(9.64,0,"IX","APDD",9.6411,.01)
  1.  ;;=
  1.  ;;^DD(9.64,0,"IX","B",9.64,.01)
  1.  ;;=
  1.  ;;^DD(9.64,0,"NM","FILE")
  1.  ;;=
  1.  ;;^DD(9.64,0,"UP")
  1.  ;;=9.6
  1.  ;;^DD(9.64,.01,0)
  1.  ;;=FILE^M*P1'X^DIC(^0;1^S DIC("S")="I Y>1.9999" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
  1.  ;;^DD(9.64,.01,.1)
  1.  ;;=REQUIRED FILES FOR THIS PACKAGE
  1.  ;;^DD(9.64,.01,1,0)
  1.  ;;=^.1^^-1
  1.  ;;^DD(9.64,.01,1,1,0)
  1.  ;;=9.64^B
  1.  ;;^DD(9.64,.01,1,1,1)
  1.  ;;=S ^XPD(9.6,DA(1),4,"B",X,DA)=""
  1.  ;;^DD(9.64,.01,1,1,2)
  1.  ;;=K ^XPD(9.6,DA(1),4,"B",X,DA)
  1.  ;;^DD(9.64,.01,3)
  1.  ;;=Please enter the name of a FILE that is known to VA FileMan.
  1.  ;;^DD(9.64,.01,12)
  1.  ;;=Select a file which is used by this package.
  1.  ;;^DD(9.64,.01,12.1)
  1.  ;;=S DIC("S")="I Y>1.9999"
  1.  ;;^DD(9.64,.01,21,0)
  1.  ;;=^^2^2^2920513^^^^
  1.  ;;^DD(9.64,.01,21,1,0)
  1.  ;;=The name of a VA FileMan file which you wish to transport with
  1.  ;;^DD(9.64,.01,21,2,0)
  1.  ;;=this package.  This may be any file whose number is 2 or greater.
  1.  ;;^DD(9.64,.01,"DT")
  1.  ;;=2931104
  1.  ;;^DD(9.64,.02,0)
  1.  ;;=CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X
  1.  ;;^DD(9.64,.02,3)
  1.  ;;=Answer must be 3-30 characters in length.
  1.  ;;^DD(9.64,.02,21,0)
  1.  ;;=^^1^1^2950330^
  1.  ;;^DD(9.64,.02,21,1,0)
  1.  ;;=This field contains the checksum for this Data Dictionary
  1.  ;;^DD(9.64,.02,"DT")
  1.  ;;=2950330
  1.  ;;^DD(9.64,1,0)
  1.  ;;=DD NUMBER^9.641^^2;0
  1.  ;;^DD(9.64,1,21,0)
  1.  ;;=^^2^2^2940903^
  1.  ;;^DD(9.64,1,21,1,0)
  1.  ;;=DD NUMBER pertains to the top level of the file, file number, or a
  1.  ;;^DD(9.64,1,21,2,0)
  1.  ;;=sub-file such as a multiple field.
  1.  ;;^DD(9.64,222.1,0)
  1.  ;;=UPDATE THE DATA DICTIONARY^S^y:YES;n:NO;^222;1^Q
  1.  ;;^DD(9.64,222.1,21,0)
  1.  ;;=8^^7^7^2940503^
  1.  ;;^DD(9.64,222.1,21,1,0)
  1.  ;;=YES means that the Data Dictionary for this file should be updated when
  1.  ;;^DD(9.64,222.1,21,2,0)
  1.  ;;=this version of the package is installed.
  1.  ;;^DD(9.64,222.1,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.64,222.1,21,4,0)
  1.  ;;=NO means that this Data Dictionary has not changed since the last version,
  1.  ;;^DD(9.64,222.1,21,5,0)
  1.  ;;= 
  1.  ;;^DD(9.64,222.1,21,6,0)
  1.  ;;=If the Data Dictionary does not exist at the installing site, then this
  1.  ;;^DD(9.64,222.1,21,7,0)
  1.  ;;=field does not apply.  The DD will be put in place.
  1.  ;;^DD(9.64,222.1,"DT")
  1.  ;;=2890627
  1.  ;;^DD(9.64,222.2,0)
  1.  ;;=SEND SECURITY CODE^S^y:YES;n:NO;^222;2^Q
  1.  ;;^DD(9.64,222.2,21,0)
  1.  ;;=^^5^5^2940503^^^
  1.  ;;^DD(9.64,222.2,21,1,0)
  1.  ;;=YES means you want to include the security protection currently
  1.  ;;^DD(9.64,222.2,21,2,0)
  1.  ;;=on this file when it is distributed. The security protection will