Return to DIPKI003.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DIPKI003	; ; 22-DEC-1994
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	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
    5: Q	Q
    6: 	;;^DD(9.4,11.5,21,1,0)
    7: 	;;=The name of this Package's Alpha Test site.
    8: 	;;^DD(9.4,11.5,"DT")
    9: 	;;=2940603
   10: 	;;^DD(9.4,11.6,0)
   11: 	;;=*BETA^P4'^DIC(4,^9;2^Q
   12: 	;;^DD(9.4,11.6,3)
   13: 	;;=Please enter the name of the Beta Test site.
   14: 	;;^DD(9.4,11.6,21,0)
   15: 	;;=^^1^1^2920513^^^
   16: 	;;^DD(9.4,11.6,21,1,0)
   17: 	;;=The name of this Package's Beta Test site.
   18: 	;;^DD(9.4,11.6,"DT")
   19: 	;;=2940603
   20: 	;;^DD(9.4,11.7,0)
   21: 	;;=*DELTA^9.409P^^10;0
   22: 	;;^DD(9.4,11.7,21,0)
   23: 	;;=^^1^1^2920706^^
   24: 	;;^DD(9.4,11.7,21,1,0)
   25: 	;;=The names of the Delta Test sites for this Package.
   26: 	;;^DD(9.4,11.7,"DT")
   27: 	;;=2940603
   28: 	;;^DD(9.4,12,0)
   29: 	;;=*PRIMARY HELP FRAME^P9.2'^DIC(9.2,^0;4^Q
   30: 	;;^DD(9.4,12,3)
   31: 	;;=
   32: 	;;^DD(9.4,12,21,0)
   33: 	;;=^^1^1^2920416^^^
   34: 	;;^DD(9.4,12,21,1,0)
   35: 	;;=This is the primary Help Frame for this Package.
   36: 	;;^DD(9.4,12,"DT")
   37: 	;;=2940603
   38: 	;;^DD(9.4,13,0)
   39: 	;;=CURRENT VERSION^F^^VERSION;1^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X
   40: 	;;^DD(9.4,13,3)
   41: 	;;=Enter the version of this package currently running, (1-8 characters).
   42: 	;;^DD(9.4,13,21,0)
   43: 	;;=^^5^5^2920702^
   44: 	;;^DD(9.4,13,21,1,0)
   45: 	;;=This field holds the version number of the package currently running
   46: 	;;^DD(9.4,13,21,2,0)
   47: 	;;=at this site.  When a package initialization has been run, this field
   48: 	;;^DD(9.4,13,21,3,0)
   49: 	;;=will be updated with the version number most recently installed.
   50: 	;;^DD(9.4,13,21,4,0)
   51: 	;;=This can be either using the old format (1.0, 16.04, etc.) or the new
   52: 	;;^DD(9.4,13,21,5,0)
   53: 	;;=format (18.0T4, 19.1V2, etc.)
   54: 	;;^DD(9.4,13,"DT")
   55: 	;;=2860221
   56: 	;;^DD(9.4,20,0)
   57: 	;;=AFFECTS RECORD MERGE^9.402P^^20;0
   58: 	;;^DD(9.4,20,21,0)
   59: 	;;=^^2^2^2940627^
   60: 	;;^DD(9.4,20,21,1,0)
   61: 	;;=This Multipule lists the files that will impact this package if a Record
   62: 	;;^DD(9.4,20,21,2,0)
   63: 	;;=Merge is done on any of the files in the list.
   64: 	;;^DD(9.4,22,0)
   65: 	;;=VERSION^9.49I^^22;0
   66: 	;;^DD(9.4,22,21,0)
   67: 	;;=^^1^1^2930415^^^^
   68: 	;;^DD(9.4,22,21,1,0)
   69: 	;;=The version numbers of this Package.
   70: 	;;^DD(9.4,200.1,0)
   71: 	;;=*USER TERMINATE TAG^F^^200;1^K:$L(X)>8!($L(X)<1)!'((X?1U.UN)!(X?1N.N)) X
   72: 	;;^DD(9.4,200.1,3)
   73: 	;;=Enter the entry TAG for the routine in field 200.2
   74: 	;;^DD(9.4,200.1,21,0)
   75: 	;;=^^3^3^2920306^^^
   76: 	;;^DD(9.4,200.1,21,1,0)
   77: 	;;=This field holds the entry point into the routine that will be called at
   78: 	;;^DD(9.4,200.1,21,2,0)
   79: 	;;=the time that a USER (File 200 entry with access/verify codes) is
   80: 	;;^DD(9.4,200.1,21,3,0)
   81: 	;;=terminated. See field 200.2
   82: 	;;^DD(9.4,200.1,"DT")
   83: 	;;=2940603
   84: 	;;^DD(9.4,200.2,0)
   85: 	;;=*USER TERMINATE ROUTINE^F^^200;2^K:$L(X)>8!($L(X)<2)!'(X?2U.UN) X
   86: 	;;^DD(9.4,200.2,3)
   87: 	;;=Enter a 2-8 character routine name.
   88: 	;;^DD(9.4,200.2,21,0)
   89: 	;;=^^7^7^2920306^^^
   90: 	;;^DD(9.4,200.2,21,1,0)
   91: 	;;=This field holds the name of a routine that will be called at the time
   92: 	;;^DD(9.4,200.2,21,2,0)
   93: 	;;=that a USER (File 200 entry with access/verify codes) is terminated.
   94: 	;;^DD(9.4,200.2,21,3,0)
   95: 	;;=ie. has their access/verify codes removed.
   96: 	;;^DD(9.4,200.2,21,4,0)
   97: 	;;=This is to allow each package to do their own clean-up.
   98: 	;;^DD(9.4,200.2,21,5,0)
   99: 	;;= 
  100: 	;;^DD(9.4,200.2,21,6,0)
  101: 	;;=At the time the call is made DA will hold the IFN of the user being
  102: 	;;^DD(9.4,200.2,21,7,0)
  103: 	;;=terminated. This normally runs in the background without an IO device.
  104: 	;;^DD(9.4,200.2,"DT")
  105: 	;;=2940603
  106: 	;;^DD(9.4,913,0)
  107: 	;;=*ENVIRONMENT CHECK ROUTINE^F^^PRE;1^K:$L(X)>8!($L(X)<3) X
  108: 	;;^DD(9.4,913,.1)
  109: 	;;=DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED
  110: 	;;^DD(9.4,913,3)
  111: 	;;=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.
  112: 	;;^DD(9.4,913,21,0)
  113: 	;;=^^4^4^2921202^
  114: 	;;^DD(9.4,913,21,1,0)
  115: 	;;=The name of the developer's routine which is run at the beginning of
  116: 	;;^DD(9.4,913,21,2,0)
  117: 	;;=the NAMESPACE_INIT routine.  This should just check the environment
  118: 	;;^DD(9.4,913,21,3,0)
  119: 	;;=and should not alter any data, since the user has no way to exit out of
  120: 	;;^DD(9.4,913,21,4,0)
  121: 	;;=the INIT process until this program runs to completion.
  122: 	;;^DD(9.4,913,23,0)
  123: 	;;=^^2^2^2921202^^^^
  124: 	;;^DD(9.4,913,23,1,0)
  125: 	;;=  A call to this routine gets inserted, by DIFROM at the beginning of the
  126: 	;;^DD(9.4,913,23,2,0)
  127: 	;;=NAMESPACE_INIT routine, before the EN entry point.
  128: 	;;^DD(9.4,913,"DT")
  129: 	;;=2940606
  130: 	;;^DD(9.4,913.5,0)
  131: 	;;=*ENVIRONMENT CHECK DONE DATE^D^^PRE;2^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  132: 	;;^DD(9.4,913.5,3)
  133: 	;;=