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

DIPKI002.m

Go to the documentation of this file. 
  1. DIPKI002 ; ; 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.4,9.1,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,9.5,0)
  1.  ;;=*MENU^9.495^^M;0
  1.  ;;^DD(9.4,9.5,21,0)
  1.  ;;=^^1^1^2920513^^^
  1.  ;;^DD(9.4,9.5,21,1,0)
  1.  ;;=This is the name of a menu-type option in another namespace.
  1.  ;;^DD(9.4,9.5,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,10,0)
  1.  ;;=DEVELOPER (PERSON/SITE)^F^^DEV;1^K:$L(X)>50!($L(X)<2) X
  1.  ;;^DD(9.4,10,3)
  1.  ;;=Please enter the name of the principal Developer and Site (2-50 characters).
  1.  ;;^DD(9.4,10,21,0)
  1.  ;;=^^1^1^2920513^^
  1.  ;;^DD(9.4,10,21,1,0)
  1.  ;;=The name of the principal Developer and Site for this Package.
  1.  ;;^DD(9.4,10.6,0)
  1.  ;;=*LOWEST FILE NUMBER^NJ12,2^^11;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
  1.  ;;^DD(9.4,10.6,3)
  1.  ;;=Type a Number between 0 and 999999999, 2 Decimal Digits
  1.  ;;^DD(9.4,10.6,21,0)
  1.  ;;=^^1^1^2920513^^^^
  1.  ;;^DD(9.4,10.6,21,1,0)
  1.  ;;=Inclusive lower bound of the range of file numbers allocated to this package.
  1.  ;;^DD(9.4,10.6,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,11,0)
  1.  ;;=*HIGHEST FILE NUMBER^NJ12,2^^11;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
  1.  ;;^DD(9.4,11,3)
  1.  ;;=Type a Number between 0 and 999999999, 2 Decimal Digits
  1.  ;;^DD(9.4,11,21,0)
  1.  ;;=^^1^1^2920513^^^
  1.  ;;^DD(9.4,11,21,1,0)
  1.  ;;=Inclusive upper bound of the range of file numbers assigned to this package.
  1.  ;;^DD(9.4,11,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,11.01,0)
  1.  ;;=DEVELOPMENT ISC^F^^5;1^K:$L(X)>20!($L(X)<3) X
  1.  ;;^DD(9.4,11.01,3)
  1.  ;;=Please enter the name of the ISC (3-20 characters).
  1.  ;;^DD(9.4,11.01,21,0)
  1.  ;;=^^1^1^2920513^^^
  1.  ;;^DD(9.4,11.01,21,1,0)
  1.  ;;=The ISC responsible for the development and management of this Package.
  1.  ;;^DD(9.4,11.01,"DT")
  1.  ;;=2840815
  1.  ;;^DD(9.4,11.1,0)
  1.  ;;=*MAINTENANCE ISC^F^^7;1^K:$L(X)>20!($L(X)<3) X
  1.  ;;^DD(9.4,11.1,3)
  1.  ;;=Please enter the name of the ISC (3-20 characters).
  1.  ;;^DD(9.4,11.1,21,0)
  1.  ;;=^^1^1^2920513^^^
  1.  ;;^DD(9.4,11.1,21,1,0)
  1.  ;;=The ISC responsible for the support and maintenance of this Package.
  1.  ;;^DD(9.4,11.1,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,11.3,0)
  1.  ;;=CLASS^S^I:National;II:Inactive;III:Local;^7;3^Q
  1.  ;;^DD(9.4,11.3,21,0)
  1.  ;;=^^1^1^2920513^^
  1.  ;;^DD(9.4,11.3,21,1,0)
  1.  ;;=The ranking Class of this software Package.
  1.  ;;^DD(9.4,11.3,"DT")
  1.  ;;=2940325
  1.  ;;^DD(9.4,11.4,0)
  1.  ;;=*VERIFICATION^9.404ID^^8;0
  1.  ;;^DD(9.4,11.4,21,0)
  1.  ;;=^^1^1^2920513^^^
  1.  ;;^DD(9.4,11.4,21,1,0)
  1.  ;;=Information about the verification(s) of this Package.
  1.  ;;^DD(9.4,11.4,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,11.5,0)
  1.  ;;=*ALPHA^P4'^DIC(4,^9;1^Q
  1.  ;;^DD(9.4,11.5,3)
  1.  ;;=Please enter the name of the Alpha Test site.
  1.  ;;^DD(9.4,11.5,21,0)
  1.  ;;=^^1^1^2920513^^^
  1.  ;;^DD(9.4,11.5,21,1,0)
  1.  ;;=The name of this Package's Alpha Test site.
  1.  ;;^DD(9.4,11.5,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,11.6,0)
  1.  ;;=*BETA^P4'^DIC(4,^9;2^Q
  1.  ;;^DD(9.4,11.6,3)
  1.  ;;=Please enter the name of the Beta Test site.
  1.  ;;^DD(9.4,11.6,21,0)
  1.  ;;=^^1^1^2920513^^^
  1.  ;;^DD(9.4,11.6,21,1,0)
  1.  ;;=The name of this Package's Beta Test site.
  1.  ;;^DD(9.4,11.6,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,11.7,0)
  1.  ;;=*DELTA^9.409P^^10;0
  1.  ;;^DD(9.4,11.7,21,0)
  1.  ;;=^^1^1^2920706^^
  1.  ;;^DD(9.4,11.7,21,1,0)
  1.  ;;=The names of the Delta Test sites for this Package.
  1.  ;;^DD(9.4,11.7,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,12,0)
  1.  ;;=*PRIMARY HELP FRAME^P9.2'^DIC(9.2,^0;4^Q
  1.  ;;^DD(9.4,12,3)
  1.  ;;=
  1.  ;;^DD(9.4,12,21,0)
  1.  ;;=^^1^1^2920416^^^
  1.  ;;^DD(9.4,12,21,1,0)
  1.  ;;=This is the primary Help Frame for this Package.
  1.  ;;^DD(9.4,12,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,13,0)
  1.  ;;=CURRENT VERSION^F^^VERSION;1^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X
  1.  ;;^DD(9.4,13,3)
  1.  ;;=Enter the version of this package currently running, (1-8 characters).
  1.  ;;^DD(9.4,13,21,0)
  1.  ;;=^^5^5^2920702^
  1.  ;;^DD(9.4,13,21,1,0)
  1.  ;;=This field holds the version number of the package currently running
  1.  ;;^DD(9.4,13,21,2,0)
  1.  ;;=at this site.  When a package initialization has been run, this field
  1.  ;;^DD(9.4,13,21,3,0)
  1.  ;;=will be updated with the version number most recently installed.
  1.  ;;^DD(9.4,13,21,4,0)
  1.  ;;=This can be either using the old format (1.0, 16.04, etc.) or the new
  1.  ;;^DD(9.4,13,21,5,0)
  1.  ;;=format (18.0T4, 19.1V2, etc.)
  1.  ;;^DD(9.4,13,"DT")
  1.  ;;=2860221
  1.  ;;^DD(9.4,20,0)
  1.  ;;=AFFECTS RECORD MERGE^9.402P^^20;0
  1.  ;;^DD(9.4,20,21,0)
  1.  ;;=^^2^2^2940627^
  1.  ;;^DD(9.4,20,21,1,0)
  1.  ;;=This Multipule lists the files that will impact this package if a Record
  1.  ;;^DD(9.4,20,21,2,0)
  1.  ;;=Merge is done on any of the files in the list.
  1.  ;;^DD(9.4,22,0)
  1.  ;;=VERSION^9.49I^^22;0
  1.  ;;^DD(9.4,22,21,0)
  1.  ;;=^^1^1^2930415^^^^
  1.  ;;^DD(9.4,22,21,1,0)
  1.  ;;=The version numbers of this Package.
  1.  ;;^DD(9.4,200.1,0)
  1.  ;;=*USER TERMINATE TAG^F^^200;1^K:$L(X)>8!($L(X)<1)!'((X?1U.UN)!(X?1N.N)) X
  1.  ;;^DD(9.4,200.1,3)
  1.  ;;=Enter the entry TAG for the routine in field 200.2
  1.  ;;^DD(9.4,200.1,21,0)
  1.  ;;=^^3^3^2920306^^^
  1.  ;;^DD(9.4,200.1,21,1,0)
  1.  ;;=This field holds the entry point into the routine that will be called at
  1.  ;;^DD(9.4,200.1,21,2,0)
  1.  ;;=the time that a USER (File 200 entry with access/verify codes) is
  1.  ;;^DD(9.4,200.1,21,3,0)
  1.  ;;=terminated. See field 200.2
  1.  ;;^DD(9.4,200.1,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,200.2,0)
  1.  ;;=*USER TERMINATE ROUTINE^F^^200;2^K:$L(X)>8!($L(X)<2)!'(X?2U.UN) X
  1.  ;;^DD(9.4,200.2,3)
  1.  ;;=Enter a 2-8 character routine name.
  1.  ;;^DD(9.4,200.2,21,0)
  1.  ;;=^^7^7^2920306^^^
  1.  ;;^DD(9.4,200.2,21,1,0)
  1.  ;;=This field holds the name of a routine that will be called at the time
  1.  ;;^DD(9.4,200.2,21,2,0)
  1.  ;;=that a USER (File 200 entry with access/verify codes) is terminated.
  1.  ;;^DD(9.4,200.2,21,3,0)
  1.  ;;=ie. has their access/verify codes removed.
  1.  ;;^DD(9.4,200.2,21,4,0)
  1.  ;;=This is to allow each package to do their own clean-up.
  1.  ;;^DD(9.4,200.2,21,5,0)
  1.  ;;= 
  1.  ;;^DD(9.4,200.2,21,6,0)
  1.  ;;=At the time the call is made DA will hold the IFN of the user being
  1.  ;;^DD(9.4,200.2,21,7,0)
  1.  ;;=terminated. This normally runs in the background without an IO device.
  1.  ;;^DD(9.4,200.2,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4,913,0)
  1.  ;;=*ENVIRONMENT CHECK ROUTINE^F^^PRE;1^K:$L(X)>8!($L(X)<3) X
  1.  ;;^DD(9.4,913,.1)
  1.  ;;=DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED
  1.  ;;^DD(9.4,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.4,913,21,0)
  1.  ;;=^^4^4^2921202^
  1.  ;;^DD(9.4,913,21,1,0)
  1.  ;;=The name of the developer's routine which is run at the beginning of
  1.  ;;^DD(9.4,913,21,2,0)
  1.  ;;=the NAMESPACE_INIT routine.  This should just check the environment
  1.  ;;^DD(9.4,913,21,3,0)
  1.  ;;=and should not alter any data, since the user has no way to exit out of
  1.  ;;^DD(9.4,913,21,4,0)
  1.  ;;=the INIT process until this program runs to completion.