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

DIPKI005.m

Go to the documentation of this file. 
  1. DIPKI005 ; ; 30-MAR-1999
  1.  ;;22.0;VA FileMan;;Mar 30, 1999
  1.  ;Per VHA Directive 10-93-142, this routine should not be modified.
  1.  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
  1. Q Q
  1.  ;;^DD(9.42,.01,21,1,0)
  1.  ;;=This multiple is used for documentation purposes only and does
  1.  ;;^DD(9.42,.01,21,2,0)
  1.  ;;=not control anything during the INIT process.  It is used to document
  1.  ;;^DD(9.42,.01,21,3,0)
  1.  ;;=the routines that are included in this Package.
  1.  ;;^DD(9.42,.01,22)
  1.  ;;=
  1.  ;;^DD(9.42,.01,"DT")
  1.  ;;=2850211
  1.  ;;^DD(9.43,0)
  1.  ;;=*GLOBAL SUB-FIELD^NL^5^3
  1.  ;;^DD(9.43,0,"DT")
  1.  ;;=2910827
  1.  ;;^DD(9.43,0,"IX","B",9.43,.01)
  1.  ;;=
  1.  ;;^DD(9.43,0,"NM","*GLOBAL")
  1.  ;;=
  1.  ;;^DD(9.43,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.43,.01,0)
  1.  ;;=GLOBAL^MF^^0;1^K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>15!($L(X)<1) X
  1.  ;;^DD(9.43,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.43,.01,1,1,0)
  1.  ;;=9.43^B
  1.  ;;^DD(9.43,.01,1,1,1)
  1.  ;;=S ^DIC(9.4,DA(1),3,"B",X,DA)=""
  1.  ;;^DD(9.43,.01,1,1,2)
  1.  ;;=K ^DIC(9.4,DA(1),3,"B",X,DA)
  1.  ;;^DD(9.43,.01,3)
  1.  ;;=Enter name of global used in this package.  Answer must be 1-15 characters in length.  (Used for documentation only.)
  1.  ;;^DD(9.43,.01,21,0)
  1.  ;;=^^2^2^2920513^^^
  1.  ;;^DD(9.43,.01,21,1,0)
  1.  ;;=The name of a global which is part of this Package.  Used for documentation
  1.  ;;^DD(9.43,.01,21,2,0)
  1.  ;;=only.
  1.  ;;^DD(9.43,.01,"DT")
  1.  ;;=2910827
  1.  ;;^DD(9.43,4,0)
  1.  ;;=DESCRIPTION^9.431^^4;0
  1.  ;;^DD(9.43,4,21,0)
  1.  ;;=^^1^1^2920513^^
  1.  ;;^DD(9.43,4,21,1,0)
  1.  ;;=This is a description of the global and how it is used by the Package.
  1.  ;;^DD(9.43,5,0)
  1.  ;;=JOURNALLING^S^M:mandatory!;O:optional--not required;N:not recommended;^5;1^Q
  1.  ;;^DD(9.43,5,21,0)
  1.  ;;=^^1^1^2920513^^^
  1.  ;;^DD(9.43,5,21,1,0)
  1.  ;;=Advises whether or not to Journal this global.
  1.  ;;^DD(9.43,5,"DT")
  1.  ;;=2850228
  1.  ;;^DD(9.431,0)
  1.  ;;=DESCRIPTION SUB-FIELD^NL^.01^1
  1.  ;;^DD(9.431,0,"NM","DESCRIPTION")
  1.  ;;=
  1.  ;;^DD(9.431,0,"UP")
  1.  ;;=9.43
  1.  ;;^DD(9.431,.01,0)
  1.  ;;=DESCRIPTION^W^^0;1^Q
  1.  ;;^DD(9.431,.01,21,0)
  1.  ;;=^^1^1^2920513^^^
  1.  ;;^DD(9.431,.01,21,1,0)
  1.  ;;=This is a description of the global and how it is used by the Package.
  1.  ;;^DD(9.431,.01,"DT")
  1.  ;;=2850228
  1.  ;;^DD(9.432,0)
  1.  ;;=*EXCLUDED NAME SPACE SUB-FIELD^NL^.01^1
  1.  ;;^DD(9.432,0,"NM","*EXCLUDED NAME SPACE")
  1.  ;;=
  1.  ;;^DD(9.432,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.432,.01,0)
  1.  ;;=EXCLUDED NAME SPACE^MFX^^0;1^K:$L(X)>7!($L(X)<2)!'(X?1U1UN.UN) X
  1.  ;;^DD(9.432,.01,3)
  1.  ;;=Please enter the prefix of the excluded name space (2-7 characters).
  1.  ;;^DD(9.432,.01,4)
  1.  ;;=W !,?5,"When DIFROM builds '",$P(^DIC(9.4,D0,0),"^",2),"INIT',",!?5,"OPTIONS, FUNCTIONS, SECURITY KEYS, and BULLETINS beginning with",!?5,"these characters WON'T be included.",!
  1.  ;;^DD(9.432,.01,21,0)
  1.  ;;=^^2^2^2851008^
  1.  ;;^DD(9.432,.01,21,1,0)
  1.  ;;=This specifies a sub-set of the Package's namespace which is not to
  1.  ;;^DD(9.432,.01,21,2,0)
  1.  ;;=be exported by the DIFROM routines.
  1.  ;;^DD(9.432,.01,"DT")
  1.  ;;=2841128
  1.  ;;^DD(9.44,0)
  1.  ;;=*FILE SUB-FIELD^NL^223^9
  1.  ;;^DD(9.44,0,"DT")
  1.  ;;=2890928
  1.  ;;^DD(9.44,0,"IX","B",9.44,.01)
  1.  ;;=
  1.  ;;^DD(9.44,0,"NM","*FILE")
  1.  ;;=
  1.  ;;^DD(9.44,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.44,.01,0)
  1.  ;;=FILE^M*P1'^DIC(^0;1^S DIC("S")="I Y>1.9999" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  1.  ;;^DD(9.44,.01,.1)
  1.  ;;=REQUIRED FILES FOR THIS PACKAGE
  1.  ;;^DD(9.44,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.44,.01,1,1,0)
  1.  ;;=9.44^B
  1.  ;;^DD(9.44,.01,1,1,1)
  1.  ;;=S ^DIC(9.4,DA(1),4,"B",X,DA)=""
  1.  ;;^DD(9.44,.01,1,1,2)
  1.  ;;=K ^DIC(9.4,DA(1),4,"B",X,DA)
  1.  ;;^DD(9.44,.01,1,2,0)
  1.  ;;=9.4^AR
  1.  ;;^DD(9.44,.01,1,2,1)
  1.  ;;=S ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)=""
  1.  ;;^DD(9.44,.01,1,2,2)
  1.  ;;=K ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)
  1.  ;;^DD(9.44,.01,3)
  1.  ;;=Please enter the name of a FILE that is known to VA FileMan.
  1.  ;;^DD(9.44,.01,12)
  1.  ;;=Select a file which is used by this package.
  1.  ;;^DD(9.44,.01,12.1)
  1.  ;;=S DIC("S")="I Y>1.9999"
  1.  ;;^DD(9.44,.01,21,0)
  1.  ;;=^^2^2^2920513^^^^
  1.  ;;^DD(9.44,.01,21,1,0)
  1.  ;;=The name of a VA FileMan file which you wish to transport with
  1.  ;;^DD(9.44,.01,21,2,0)
  1.  ;;=this package.  This may be any file whose number is 2 or greater.
  1.  ;;^DD(9.44,.01,"DT")
  1.  ;;=2890928
  1.  ;;^DD(9.44,2,0)
  1.  ;;=FIELD^9.45A^^1;0
  1.  ;;^DD(9.44,2,21,0)
  1.  ;;=^^3^3^2920513^^^
  1.  ;;^DD(9.44,2,21,1,0)
  1.  ;;=The names of the FileMan Fields required by this Package.  Enter data
  1.  ;;^DD(9.44,2,21,2,0)
  1.  ;;=here ONLY if you wish to send just selected fields from a Data Dictionary
  1.  ;;^DD(9.44,2,21,3,0)
  1.  ;;=instead of the entire DD (i.e., a partial DD).
  1.  ;;^DD(9.44,222.1,0)
  1.  ;;=UPDATE THE DATA DICTIONARY^S^y:YES;n:NO;^222;1^Q
  1.  ;;^DD(9.44,222.1,21,0)
  1.  ;;=^^8^8^2920513^^^^
  1.  ;;^DD(9.44,222.1,21,1,0)
  1.  ;;=YES means that the Data Dictionary for this file should be updated when
  1.  ;;^DD(9.44,222.1,21,2,0)
  1.  ;;=this version of the package is installed.
  1.  ;;^DD(9.44,222.1,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.44,222.1,21,4,0)
  1.  ;;=NO means that this Data Dictionary has not changed since the last version,
  1.  ;;^DD(9.44,222.1,21,5,0)
  1.  ;;=and therefore, need not be updated.
  1.  ;;^DD(9.44,222.1,21,6,0)
  1.  ;;= 
  1.  ;;^DD(9.44,222.1,21,7,0)
  1.  ;;=If the Data Dictionary does not exist on the recipient system, then this
  1.  ;;^DD(9.44,222.1,21,8,0)
  1.  ;;=field does not apply.  The DD will be put in place.
  1.  ;;^DD(9.44,222.1,"DT")
  1.  ;;=2890627
  1.  ;;^DD(9.44,222.2,0)
  1.  ;;=ASSIGN A VERSION NUMBER^S^y:YES;n:NO;^222;2^Q
  1.  ;;^DD(9.44,222.2,3)
  1.  ;;=
  1.  ;;^DD(9.44,222.2,21,0)
  1.  ;;=^^5^5^2920513^^^^
  1.  ;;^DD(9.44,222.2,21,1,0)
  1.  ;;=YES means that you want to set ^DD(file#,0,"VR") to the version
  1.  ;;^DD(9.44,222.2,21,2,0)
  1.  ;;=number of this package when the init is finished.
  1.  ;;^DD(9.44,222.2,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.44,222.2,21,4,0)
  1.  ;;=NO means that you intend for the version number to remain as it is.
  1.  ;;^DD(9.44,222.2,21,5,0)
  1.  ;;=This may mean that this DD has no version number at all.
  1.  ;;^DD(9.44,222.4,0)
  1.  ;;=MAY USER OVERRIDE DD UPDATE^S^y:YES;n:NO;^222;4^Q
  1.  ;;^DD(9.44,222.4,3)
  1.  ;;=
  1.  ;;^DD(9.44,222.4,21,0)
  1.  ;;=^^5^5^2920513^^^^
  1.  ;;^DD(9.44,222.4,21,1,0)
  1.  ;;=YES means that the user may decide at installation time whether or not
  1.  ;;^DD(9.44,222.4,21,2,0)
  1.  ;;=to update the data dictionary for this file.
  1.  ;;^DD(9.44,222.4,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.44,222.4,21,4,0)
  1.  ;;=NO means that the developer building the INIT is determining if the
  1.  ;;^DD(9.44,222.4,21,5,0)
  1.  ;;=data dictionary is to be updated.
  1.  ;;^DD(9.44,222.7,0)
  1.  ;;=DATA COMES WITH FILE^S^y:YES;n:NO;^222;7^Q
  1.  ;;^DD(9.44,222.7,2)
  1.  ;;=DATA COMES WITH FILE
  1.  ;;^DD(9.44,222.7,21,0)
  1.  ;;=^^4^4^2920513^^^^
  1.  ;;^DD(9.44,222.7,21,1,0)
  1.  ;;=YES means that the data should be included in the initialization
  1.  ;;^DD(9.44,222.7,21,2,0)
  1.  ;;=routines.
  1.  ;;^DD(9.44,222.7,21,3,0)
  1.  ;;= 
  1.  ;;^DD(9.44,222.7,21,4,0)
  1.  ;;=NO means that the data should be left out.
  1.  ;;^DD(9.44,222.7,"DT")
  1.  ;;=2940502
  1.  ;;^DD(9.44,222.8,0)
  1.  ;;=MERGE OR OVERWRITE SITE'S DATA^S^m:MERGE;o:OVERWRITE;^222;8^Q