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

DIPKI006.m

Go to the documentation of this file. 
  1. DIPKI006 ; ; 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.44,222.8,3)
  1.  ;;=
  1.  ;;^DD(9.44,222.8,21,0)
  1.  ;;=^^7^7^2920513^^^^
  1.  ;;^DD(9.44,222.8,21,1,0)
  1.  ;;= 
  1.  ;;^DD(9.44,222.8,21,2,0)
  1.  ;;=If the data being sent is to be MERGED, then only data which is not
  1.  ;;^DD(9.44,222.8,21,3,0)
  1.  ;;=already on file at the recipient site will be put in place.
  1.  ;;^DD(9.44,222.8,21,4,0)
  1.  ;;= 
  1.  ;;^DD(9.44,222.8,21,5,0)
  1.  ;;=If the data being sent is to OVERWRITE, then the data included in
  1.  ;;^DD(9.44,222.8,21,6,0)
  1.  ;;=the initialization routines will be put in place regardless of what
  1.  ;;^DD(9.44,222.8,21,7,0)
  1.  ;;=is on file at the recipient site.
  1.  ;;^DD(9.44,222.8,"DT")
  1.  ;;=2890627
  1.  ;;^DD(9.44,222.9,0)
  1.  ;;=MAY USER OVERRIDE DATA UPDATE^S^y:YES;n:NO;^222;9^Q
  1.  ;;^DD(9.44,222.9,2)
  1.  ;;=MAY USER OVERRIDE DATA UPDATE
  1.  ;;^DD(9.44,222.9,3)
  1.  ;;=
  1.  ;;^DD(9.44,222.9,21,0)
  1.  ;;=^^7^7^2920513^^^^
  1.  ;;^DD(9.44,222.9,21,1,0)
  1.  ;;=YES means that the user has the option to determine whether or not
  1.  ;;^DD(9.44,222.9,21,2,0)
  1.  ;;=to bring in the data that has been sent with the package.  However,
  1.  ;;^DD(9.44,222.9,21,3,0)
  1.  ;;=he does not get the ability to change from merge to overwrite or
  1.  ;;^DD(9.44,222.9,21,4,0)
  1.  ;;=from overwrite to merge.
  1.  ;;^DD(9.44,222.9,21,5,0)
  1.  ;;= 
  1.  ;;^DD(9.44,222.9,21,6,0)
  1.  ;;=No means that the developer of the INIT will control whether the data
  1.  ;;^DD(9.44,222.9,21,7,0)
  1.  ;;=will be installed at the target site.
  1.  ;;^DD(9.44,222.9,"DT")
  1.  ;;=2940502
  1.  ;;^DD(9.44,223,0)
  1.  ;;=SCREEN TO DETERMINE DD UPDATE^KX^^223;E1,245^K:$L(X)>240 X I $D(X) D ^DIM
  1.  ;;^DD(9.44,223,3)
  1.  ;;=This is Standard MUMPS code from 1 to 240 characters in length.
  1.  ;;^DD(9.44,223,9)
  1.  ;;=@
  1.  ;;^DD(9.44,223,21,0)
  1.  ;;=^^7^7^2920513^^
  1.  ;;^DD(9.44,223,21,1,0)
  1.  ;;=This field contains standard MUMPS code which is used to determine
  1.  ;;^DD(9.44,223,21,2,0)
  1.  ;;=whether or not a data dictionary should be updated.  This code must
  1.  ;;^DD(9.44,223,21,3,0)
  1.  ;;=set $T.  If $T=1, the DD will be updated.  If $T=0, it will not.
  1.  ;;^DD(9.44,223,21,4,0)
  1.  ;;= 
  1.  ;;^DD(9.44,223,21,5,0)
  1.  ;;=This code will be executed within VA FileMan which may be being called
  1.  ;;^DD(9.44,223,21,6,0)
  1.  ;;=from within MailMan which is being called from within MenuMan.
  1.  ;;^DD(9.44,223,21,7,0)
  1.  ;;=Namespace your variables.
  1.  ;;^DD(9.44,223,"DT")
  1.  ;;=2890927
  1.  ;;^DD(9.444,0)
  1.  ;;=*STATUS SUB-FIELD^NL^2^4
  1.  ;;^DD(9.444,0,"NM","*STATUS")
  1.  ;;=
  1.  ;;^DD(9.444,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.444,.01,0)
  1.  ;;=DATE^DX^^0;1^S %DT="E" D ^%DT S (DINUM,X)=Y K:Y<1 X,DINUM
  1.  ;;^DD(9.444,.01,3)
  1.  ;;=Please enter the date at which the current status took effect.
  1.  ;;^DD(9.444,.01,21,0)
  1.  ;;=^^1^1^2851008^^
  1.  ;;^DD(9.444,.01,21,1,0)
  1.  ;;=This is the date at which the current status took effect.
  1.  ;;^DD(9.444,.01,"DT")
  1.  ;;=2840814
  1.  ;;^DD(9.444,1,0)
  1.  ;;=STATUS^S^A:ASSIGNED;P:PENDING;T:TEMPORARY;X:NO LONGER USED;^0;2^Q
  1.  ;;^DD(9.444,1,21,0)
  1.  ;;=^^2^2^2851008^
  1.  ;;^DD(9.444,1,21,1,0)
  1.  ;;=This specifies the current status of the namespace, i.e. Temporary,
  1.  ;;^DD(9.444,1,21,2,0)
  1.  ;;=Pending, Assigned, etc.
  1.  ;;^DD(9.444,1,"DT")
  1.  ;;=2840814
  1.  ;;^DD(9.444,1.5,0)
  1.  ;;=EXPIRATION DATE^D^^2;1^S %DT="E" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(9.444,1.5,3)
  1.  ;;=Please enter the date at which the namespace was de-assigned.
  1.  ;;^DD(9.444,1.5,21,0)
  1.  ;;=^^2^2^2851008^^
  1.  ;;^DD(9.444,1.5,21,1,0)
  1.  ;;=This is the date at which the assignment of the namespace to
  1.  ;;^DD(9.444,1.5,21,2,0)
  1.  ;;=this Package expired.
  1.  ;;^DD(9.444,1.5,"DT")
  1.  ;;=2840815
  1.  ;;^DD(9.444,2,0)
  1.  ;;=COMMENTS^9.454^^1;0
  1.  ;;^DD(9.444,2,21,0)
  1.  ;;=^^1^1^2851008^
  1.  ;;^DD(9.444,2,21,1,0)
  1.  ;;=These are any comments about the status of this Package's namespace.
  1.  ;;^DD(9.45,0)
  1.  ;;=FIELD SUB-FIELD^NL^.01^1
  1.  ;;^DD(9.45,0,"IX","B",9.45,.01)
  1.  ;;=
  1.  ;;^DD(9.45,0,"NM","FIELD")
  1.  ;;=
  1.  ;;^DD(9.45,0,"UP")
  1.  ;;=9.44
  1.  ;;^DD(9.45,.01,0)
  1.  ;;=FIELD^MFX^^0;1^S %=+^DIC(9.4,DA(2),4,DA(1),0),X=$S($L(X)>30:X,$D(^DD(%,"B",X)):X,X'?.NP:0,'$D(^DD(%,X,0)):0,1:$P(^(0),U,1)) K:X=0 X
  1.  ;;^DD(9.45,.01,.1)
  1.  ;;=FIELDS REQUIRED FOR THE PACKAGE
  1.  ;;^DD(9.45,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.45,.01,1,1,0)
  1.  ;;=9.45^B
  1.  ;;^DD(9.45,.01,1,1,1)
  1.  ;;=S ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)=""
  1.  ;;^DD(9.45,.01,1,1,2)
  1.  ;;=K ^DIC(9.4,DA(2),4,DA(1),1,"B",X,DA)
  1.  ;;^DD(9.45,.01,3)
  1.  ;;=Please enter the name of a field.
  1.  ;;^DD(9.45,.01,21,0)
  1.  ;;=^^4^4^2920513^^^^
  1.  ;;^DD(9.45,.01,21,1,0)
  1.  ;;=The name of a FileMan field required by this Package.  This field is
  1.  ;;^DD(9.45,.01,21,2,0)
  1.  ;;=only to be filled in if you wish to send only selected fields in
  1.  ;;^DD(9.45,.01,21,3,0)
  1.  ;;=an INIT of this file, instead of the full data dictionary. (i.e.,
  1.  ;;^DD(9.45,.01,21,4,0)
  1.  ;;=a partial DD).
  1.  ;;^DD(9.45,.01,"DT")
  1.  ;;=2840302
  1.  ;;^DD(9.454,0)
  1.  ;;=COMMENTS SUB-FIELD^NL^.01^1
  1.  ;;^DD(9.454,0,"NM","COMMENTS")
  1.  ;;=
  1.  ;;^DD(9.454,0,"UP")
  1.  ;;=9.444
  1.  ;;^DD(9.454,.01,0)
  1.  ;;=COMMENTS^W^^0;1^Q
  1.  ;;^DD(9.454,.01,21,0)
  1.  ;;=^^1^1^2851008^
  1.  ;;^DD(9.454,.01,21,1,0)
  1.  ;;=These are comments about the status of this Package's namespace.
  1.  ;;^DD(9.454,.01,"DT")
  1.  ;;=2840815
  1.  ;;^DD(9.455,0)
  1.  ;;=*KEY VARIABLE SUB-FIELD^NL^1^3
  1.  ;;^DD(9.455,0,"DT")
  1.  ;;=2920928
  1.  ;;^DD(9.455,0,"IX","AB",9.455,.01)
  1.  ;;=
  1.  ;;^DD(9.455,0,"NM","*KEY VARIABLE")
  1.  ;;=
  1.  ;;^DD(9.455,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.455,.01,0)
  1.  ;;=KEY VARIABLE^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<1) X
  1.  ;;^DD(9.455,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.455,.01,1,1,0)
  1.  ;;=9.455^AB
  1.  ;;^DD(9.455,.01,1,1,1)
  1.  ;;=S ^DIC(9.4,DA(1),1933,"AB",$E(X,1,30),DA)=""
  1.  ;;^DD(9.455,.01,1,1,2)
  1.  ;;=K ^DIC(9.4,DA(1),1933,"AB",$E(X,1,30),DA)
  1.  ;;^DD(9.455,.01,3)
  1.  ;;=Please enter the name of a MUMPS Variable needed by this Package (1-17 characters).
  1.  ;;^DD(9.455,.01,21,0)
  1.  ;;=^^2^2^2851009^^
  1.  ;;^DD(9.455,.01,21,1,0)
  1.  ;;=The name of a MUMPS variable which the Package would like defined
  1.  ;;^DD(9.455,.01,21,2,0)
  1.  ;;=prior to entry into the routines.
  1.  ;;^DD(9.455,.01,"DT")
  1.  ;;=2850228
  1.  ;;^DD(9.455,.02,0)
  1.  ;;=PURPOSE FOR ERR REPORTS^F^^0;2^K:$L(X)>40!($L(X)<3) X
  1.  ;;^DD(9.455,.02,3)
  1.  ;;=Answer must be 3-40 characters in length.  This will be displayed to indicate the purpose of this variable on error reports
  1.  ;;^DD(9.455,.02,21,0)
  1.  ;;=^^8^8^2920928^
  1.  ;;^DD(9.455,.02,21,1,0)
  1.  ;;=This field is meant to contain a brief description of the purpose or role
  1.  ;;^DD(9.455,.02,21,2,0)
  1.  ;;=of this KEY VARIABLE.  If this variable is present in an error which has
  1.  ;;^DD(9.455,.02,21,3,0)
  1.  ;;=been trapped, and a user selects display of key variables, then this
  1.  ;;^DD(9.455,.02,21,4,0)
  1.  ;;=description will be displayed to aid the user in interpeting the variable
  1.  ;;^DD(9.455,.02,21,5,0)
  1.  ;;=and its value at the time the error occurred.  If this description is not